Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÕâÖÖÇé¿öÔõô°ì£¿ - Delphi / Windows SDK/API

¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬
Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......

delphi動態調ÓÃdllµÄÀ§»ó

procedure RunFunction;  
  type  
  TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä  
  var  
  ......

ÇóÒ»¶Î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ºÅ