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

delphi edit1ȡֵ ÎÊÌâ

Ö÷´°ÌåForm1£¬ÓÐedit1,ÒªÏÔʾform2²éѯʱʹÓõÄÌõ¼þÖµ£¨from2.edit2).
ÏÖÔÚform1ÖÐdbgrid1ÒѾ­Õý³£ÏÔʾͨ¹ýform2.edit2(select * from A where epo='''+edit2.text+'''and ldate between lpt1 and lpt2)²éѯµÄ½á¹û¡£
ÏÖÔÚÒªÔÚform1Éϵ¥¶ÀÏÔʾform2.edit2.text¸øform1.edit1.
ÈçºÎ¸³Öµ£¿
form1 ÉÏuses unit2;
form1.edit1.text:=from2.edit2.text;

ÒýÓÃ
form1 ÉÏuses unit2;
form1.edit1.text:=from2.edit2.text;

¹À¼Æ»¹ÐèÒªÔÚform2.edit2.textµÄÍ˳öʼþÉÏдÉϸ³ÖµÓï¾ä

ÒýÓÃ
form1 ÉÏuses unit2;
form1.edit1.text:=from2.edit2.text;


ÒòΪform2ÒѾ­uses unit1(form1).
ÎÒÕâÑù×ö£¬ÔÚform1É϶¨ÒåÈ«¾Ö±äÁ¿public a:string;
È»ºóÔÚform2ÉϰÑedit2Öµ¸³¸øform1.a:=edit2.text;
¿ÉÊÇÔÚform1ÉÏ£¬edit1.text:=a,²»ÖªµÀΪʲôȡ²»µ½Öµ£¿

ÄÇÒª¿´ÄãÔÚʲôʼþÖд¥·¢µÄÉÏÊö²Ù×÷
È»ºóÄãҪȷ¶¨edit1.text:=aÊǸúÔÚform1.a:=edit2.text;µÄºóÃæÖ´ÐеÄÂð£¿

ÒýÓÃ
ÄÇÒª¿´ÄãÔÚʲôʼþÖд¥·¢µÄÉÏÊö²Ù×÷
È»ºóÄãҪȷ¶¨edit1.text:=aÊǸúÔÚform1.a:=edit2.text;µÄºóÃæÖ´ÐеÄÂð£¿

ÊÇÁ½¸ö²»´°ÌåÖС£
from1.a:=form2.edit2.textÊǸúÔÚButton1.clickºóÃæ£»
ÔÚfrom1´°ÌåµÄshowʼþÖУ¬edit1.text:=a

ÔÚform2.edit2.textµÄÍ˳öʼþÉÏдÉϸ³ÖµÓï¾ä:
from1.edit1.text:=form2.edit2.text;
{{


Ïà¹ØÎÊ´ð£º

delphi Ctrl+×ó¼ü ÎÞ·¨²é¿´ windows.pas Ôõô°ì

ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ 
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£

µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË

ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......

delphi編寫×Ô動¸üгÌÐò

ÓÉÓÚ¿Í戶¶ËÓеÄÎļþ經³£¸üУ¨遠³ÌµÄ£¬²»ÊǾÖÓò網£©£¬
ËùÒÔÏë寫個×Ô動¸üÐ嵀 ³ÌÐò¡£
¿´網É쵀 ·½·¨資ÁÏ£¬ÖªµÀЩ·½·¨£¬µ«²»ÖªµÀ¾ß體Ôõô寫¡£
......

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´úÂëתC#´úÂ룬¼±Ó㬿ÉÈËÃñ±ÒÖ§¸¶£¬Ð»Ð»

¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£
ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£
È磺DLLImport.GlobalAddAtom(¡­¡­);
Îļþ£ºUShare.pas
Delphi(Pascal) code:

unit UShare;
interface
uses Windows, Me ......

DELPHIÇë´ó¼Ò°ïÎÒ¿´¿´Õâ¶ÎËÑË÷´úÂë³ö´íÔÚÄĶù°¡£¿

procedure TForm4.BitBtn2Click(Sender: TObject);
begin
if (Trim(ComboBox2.Text) <>'')and(Trim(Edit3.Text) <>'')then
  begin
    with ADOQuery1 do ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ