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; {{
Ïà¹ØÎÊ´ð£º
¾ÍÊÇÒ»¸ö·þÎñ¶ËºÍÒ»¸ö¿Í»§¶Ë£¬Àï±ßÓÐһЩ¹²Óõ¥Ôª £¬ÎÒÔÚ ¹¤³ÌµÄSEARCH PATHÀïÉèÖõÄ·¾¶£¬ Àï±ßÓиö½á¹¹Ì壬ÎÒÔÚ·þÎñ¶Ë´ò¿ª£¬¼ÓÁ˳ÉÔ±£¬µ«ÊÇÎÒÔÚ¿Í»§¶ËÆäËûµ¥Ôª·ÃÎʲ»µ½ÎÒмӵģ¬ÎÒÔÚ¿Í»§¶Ë´ò¿ªÄǸöµ¥Ôª£¬È·Êµ¼ÓÁ ......
procedure RunFunction; type TFunc = function(A: Integer): Integer;stdcall;¡¡//ÕâÀï¸ù¾ÝDLLÀïÃæº¯ÊýµÄÉùÃ÷ÐÞ¸Ä var ......
¼±Óá£ÁªÏµQQ£º8775262£¬Ð»Ð»¡£ ÐèÒª½øÐÐDllImportµÄµØ·½Ö±½ÓдDLLImport.·½·¨Ãû¡£ È磺DLLImport.GlobalAddAtom(¡¡); Îļþ£ºUShare.pas Delphi(Pascal) code: unit UShare; interface uses Windows, Me ......
procedure TForm4.BitBtn2Click(Sender: TObject); begin if (Trim(ComboBox2.Text) <>'')and(Trim(Edit3.Text) <>'')then begin with ADOQuery1 do ......