Ò׽ؽØͼÈí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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 ±¾µØ×°ÔØÇý¶¯ - Delphi / Windows SDK/API

delphi ÊÖ¶¯×°ÔØÇý¶¯ÎļþÌáʾ£º
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
ÊDz»ÊÇÕâ¸öÇý¶¯±ØÐèÒªÓÃINFÀ´°²×°¡£¡£ÓÃ×Ô´øµÄINFÀ´×°ÊÇÕý³£µÄ¡£ÓÃÊÖ¶¯×°ÔؾÍÌáʾÈçÉÏ¡ ......

Ç¿ÁÒ½¨ÒéDELPHI°æ¸ü»»´ó°æ - Delphi / ·Ç¼¼ÊõÇø

hongqi162¡¢windindance
´Ë2È˳¤ÆÚ²»ÔÚÏߣ¬ÌرðÊÇwindindance
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
hongqi162»¹ÊǾ­³£ÉÏÀ´×ª×ªµÄ

ÒýÓÃ
¸ü»»ÓÐÄÜÁ¦µÄÈËÉÏ
ÆäʵҲ²»ÊÇʲôÄÜÁ¦µÄÔ­Òò£¬Ö÷Òª¿ÉÄÜÊÇʱ¼äÎÊÌâ°É
¹¤×÷µÄ»¹ÒªÉÏ°à£¬Ñ§Ï ......

delphiÈçºÎ±¸·ÝorcalÊý¾Ý¿â£¿ - Delphi / Êý¾Ý¿âÏà¹Ø

³ÌÐòʹÓõÄÊÇOrcalÊý¾Ý¿â£¬Ï붨ÆÚ£¨Ã¿¼¾¶È£©¶ÔÊý¾Ý¿â½øÐб¸·Ý£¬Ã»É¶Í·Ð÷£¬ÇëÎÊÓ¦¸ÃÔõôŪ£¿
ÓÐʲôÌØÊâÒªÇóÂ𣬱ÈÈçҪǰ¶Ë½çÃ棿
Ò»°ãÓÃÊý¾Ý¿â×Ô´øµÄ¡°¼Æ»®ÈÎÎñ¡±ÅäÖÃһϾ͹»ÁË

ûÓÐʲôÌØÊâÒªÇó¡£ÀýÈ磬ֻҪµ ......

Delphi Hook

ÇëÎÊÓÃcmd.exe Ö´ÐÐregedit.exe ʱ£¬ÎªÊ²Ã´ÓÃCreateProcess hook²»µ½£¬
°´ctrl+alt+del µÈÒ²hook²»µ½£¬ËûÃDz»Êǵ÷ÓÃCreateProcess Âð£¿
ÊÔÊÔ¼àÊÓShellexecute£¬ÓÃShell¹³×Ó

function NewShellExecuteW(hwnd:H ......

delphiÓïÑÔÇ¿´óÔÚʲôµØ·½ Ó¦¸ÃÔõôѧ

ƽʱѧϰJavaΪÖ÷ ÏÖÔÚ¹«Ë¾ÒªÇóѧϰDelphi ÒòΪ´ÓÀ´Ã»Ñ§¹ý ÌØ´ËÒ»ÎÊ
Ç¿´óÔÚWIN32×ÀÃ濪·¢£¬Ò²¿ÉÒÔ½áºÏJAVA×ö½çÃæ(RIA¿ª·¢)
Èç¹ûÓÃDelphi×ö½çÃ棺
1.ȱµãÊÇ»¹Òª·¢²¼
2.ÓŵãÔòÊDz»ÐèҪѧJS\AJAX¿ò¼Ü,Ò²²»Óõ£ÐÄ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ