delphiÖÐÒ»¶Î´úÂëÎÊÌâ
ÎÒÓÐÒ»¸öedit£¬Ò»¸öbutton£¬½«editÊäÈëµÄÄÚÈÝÔÚsqlÖнøÐвéÕÒ£¬button°´ÏºóÔÚºóÃæÏÔʾ³öÀ´£¬µ«ÊÇÎÒÓÐÒ»¸öÎÊÌ⣬Èç¹ûÔÚsql²éѯ²»µ½¾ÍºÜÂé·³£¬Ïñ±¨´íÒ»ÑùµÄÌøÒ»¸ö¶Ô»°¿ò³öÀ´£¬ÎÒÏëÈç¹ûûÓÐËÑË÷µ½£¬ÄÇÌøÒ»¸ö¶Ô»°¿ò³öÀ´ÌáʾûÓкÏÊʵIJéѯ£¬ÇëÎÊÔõôŪ£¿ÊÇ×Ô¼ºÌí¼ÓÒ»¸öform»¹ÊÇÓÃshowmessage£¿
¶¼ÐУ¬showmessage¿ÉÄÜ×öÆðÀ´¸ü¿ì
ÌáʾÓÃshowmessage×îºÃ.Äã¿ÉÒ԰Ѳéѯ·Åµ½TRYÖÐ
if Qry.RecordCount = 0 then
ShowMessage('ûÓÐÕÒµ½¼Ç¼');
Èç¹ûÒªËü²»±¨´í£º
ÓÃ
try
...
except
...
finally
Õâ¸öÎÊÌâÔÚÓÚÄãÏëÔõô×ö£¬showmessage¾ÍÄܵ¯³ö¸ö¿òÌáʾ£¬Èç¹ûÄãÏ븽¼Ó¸ü¶àµÄÐÅÏ¢£¬¾Í×Ô¼º×öÒ»¸ö´°Ì壬ÏÔʾһ¸ö´°ÌåÒ²²»Âé·³
try
if qy.IsEmpty then showmessage('ûÓÐÕÒµ½¼Ç¼£¡')£»
except
on E:Exception do
ShowMessage(E.Message);
end;
showMessageºÜ·½±ãµÄ
begin
if cus_name.Text=''
then showmessage('ÇëÊäÈëÒª²éѯµÄ¿Í»§ÐÕÃû')
else
with adoquery1 do
begin
close;
sql.Clear;
sql.Add('select * from Ô¤¶©¿Í»§²éѯ±í where ¿Í»§ÐÕÃû=:name');
Parameters.ParamByName('name').Value:= Trim(cus_name.text);
open;
try
if adoquery1.RecordCount = 0 then
ShowMessage('ûÓÐÕÒµ½¼Ç¼');
except
while not eof do
begin
cus_time.Text:=adoquery1.Fieldbyname('Èëסʱ¼ä').AsString;
cus_rnum.Text:=adoquery1.Fieldbyname('·¿¼äºÅ').AsString;
Next;
Ïà¹ØÎÊ´ð£º
ÎÒ±¾À´ÔÚѧУÊÇŪµÄJ2EE
×òÌìÈ¥Á˳¤É³Ò»¼Ò¹«Ë¾Ó¦Æ¸ ˵ÊÇÓÐÒ»¸öÏîÄ¿ delphiµÄ
ʵϰÆÚÒ»¸öÔ ËÄÌì°ëµÄdelphiÅàѵ ºóÃæ25Ìì¸øÄãÒ»¸öÉè¼ÆÎĵµ×Ô¼º×öÒ»¸öÏîÄ¿
×ߺ󲻾ôòµç»°¹ýÀ´½ÐÎÒÐÇÆÚһȥ±¨µ½
¿´µ½delphiµ ......
³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË
ûÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......
ÎÒÃǵ¼Ê¦ÈÃÎÒÃÇÓÃdelphi×öÒ»¸ö½çÃæ,ÒÔǰûÓÐѧ¹ý,¸Ð¾õÓÐºÃ¶à¿Ø¼þҪѧ,²»ÊǺܶ®,ÓÐËÄܹ»Ö¸µ¼Ö¸µ¼°¡,лл!!
´ò¿ªdelphi£¬ÔÚÉÏÃæÕҿؼþ£¬ÍùformÉÏÍϾÍÊÇÁË£¬²¼¾ÖÉèÖúþÍÐÐÁË
¿ªdelphi£¬°Ñ¿Ø¼þÀ¸ÉϵĿؼþÍϵ½´°ÌåÉ ......
delphiÍç¼²ÊÕ¼¯
delphi·¢²¼ÒѾʮ¶àÄêÁË£¬ºÜ¶àbug һֱδµÃµ½ÐÞÕý£¬¿´¿´´ó¼Ò¶¼Óöµ½Ê²Ã´Íç¼²
1. delphi7¿ªÊ¼¼Ì³ÐµÄdbgrid²»ÄÜɾ³ýмӵÄÁУ¬Ö±µ½delphi2010 »¹´æÔÚ (±ØÈ»)
2. delphi5¿ªÊ¼Óöµ½ Ôö¼ÓеÄʼþ ......