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;
Ïà¹ØÎÊ´ð£º
Ò»Ö±ÏëʹÓÃdll£¬µ«delphiµÄdll×Ó´°Ìå¾³£Óи÷ÖÖÎÊÌ⣬±ÈÈçÖ÷´°¿ÚÓëdll×Ó´°¿ÚµÄ½¹µãÎÊÌ⣬×Ó´°¿ÚÖпؼþµÄtab¼ü¡¢Èȼü¡¢enter¼üµÈµÄÎÊÌ⣬×Ó´°¿ÚÍ˳öµÄÎÊÌ⡢ƽÃæ°´Å¥ÎÊÌâµÈµÈ£¬ÍøÕ¾ÉϽøÐÐÁËËÑË÷£¬Ã»ÓбȽÏÍêÃÀµÄ½â¾ö· ......
select * from shuju.DB where ¿ªÅ̼Û-ÊÕÅ̼Û<=0.02
¿ªÅÌ¼Û ÓëÊÕÅÌ¼Û ÊÇÊý¾Ý¿âÀïµÄ×Ö¶Î
select * from aTableName where ((¿ªÅ̼Û-ÊÕÅ̼Û) <=0.02 )
¿ªÅ̼۱ÈÊÕÅ̼۵ÍÁ½·ÖÒÔϵÄÇé¿ö
Mark!!!!!!
se ......
ÎÒÃǵ¼Ê¦ÈÃÎÒÃÇÓÃdelphi×öÒ»¸ö½çÃæ,ÒÔǰûÓÐѧ¹ý,¸Ð¾õÓкöà¿Ø¼þҪѧ,²»ÊǺܶ®,ÓÐËÄܹ»Ö¸µ¼Ö¸µ¼°¡,лл!!
´ò¿ªdelphi£¬ÔÚÉÏÃæÕҿؼþ£¬ÍùformÉÏÍϾÍÊÇÁË£¬²¼¾ÖÉèÖúþÍÐÐÁË
¿ªdelphi£¬°Ñ¿Ø¼þÀ¸ÉϵĿؼþÍϵ½´°ÌåÉ ......
ÊÖÍ·ÓÐÒ»¸öСCASE£¬ÒªÓõ½Êý¾Ý¿â£¬Ïë²ÉÓÃSQLite¡£
ÓÐÓùýµÄÅóÓÑÂð£¿
ÒªÔõô°²×°sqlite·þÎñ£¿»¹ÊDz»ÐèÒª°²×°£¿
ÓÃʲôÈí¼þÀ´¹ÜÀíSqliteÊý¾Ý¿â£¿ÈçÌí¼Ó±í£¬Ð´´æ´¢¹ý³ÌµÈ¡£
delphiÖÐÔõôÑùÁ¬½Óµ½sqliteÊý¾Ý¿â£¿ÓÃʲ ......