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;
Ïà¹ØÎÊ´ð£º
delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......
³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐÊ²Ã´ÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃæ£¿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË
ûÓÐÊ²Ã´ÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......
·þÎñÆ÷ÊÇÒ»¸öÍøÂçÉ豸£¬Ä¿Ç°ÔÚÄÚÍø£¬IP¹Ì¶¨Îª192.168.1.123£¬¿ª·Å9707~9738¹²31¸öÁ¬Ðø¶Ë¿Ú(ÓÃXP×Ô´øµÄ³¬¼¶ÖÕ¶ËÊÔ¹ýÁË£¬ÕâЩ¶Ë¿Ú¶¼¿ÉÒÔÕý³£Á¬½Ó¡¢Í¨Ñ¶)¡£
ÓÃTcpClient¿Ø¼þдµÄ¿Í»§¶ËÈí¼þ£¬¾Í9730Õâ¸ö¶Ë¿ÚÎÞ·¨½¨Á¢Á¬½ ......
ÎÒ×ÔѧµÄD7£¬·¢ÏֺܻìÂÒ£¬ÌرðÊÇ·ÃÎÊACCESSµÄ·½·¨Óкö࣬ÀýÈç¿ÉÒÔÓÃadoconnection¿Ø¼þÁ¬½Ó¿â£¬»¹¿ÉÒÔÓÃ×Ö·û´®£¬Ôöɾ¸ÄµÄ·½Ê½Ò²ºÃ¼¸ÖÖ£¬¶¼²»ÖªµÀ¸ÃÓÃÄÄÖÖ·½·¨ÁË¡£
ÄÄλÄܸøÎÒµãÀý×Ó£º
ÐèÒªµÄÊÇÏÔʾ¼Ç¼¡¢Ìí¼Ó¼Ç¼¡ ......
ÇëÎÊÓÃcmd.exe Ö´ÐÐregedit.exe ʱ£¬ÎªÊ²Ã´ÓÃCreateProcess hook²»µ½£¬
°´ctrl+alt+del µÈÒ²hook²»µ½£¬ËûÃDz»Êǵ÷ÓÃCreateProcess Âð£¿
ÊÔÊÔ¼àÊÓShellexecute£¬ÓÃShell¹³×Ó
function NewShellExecuteW(hwnd:H ......