ÈçºÎʵÏÖ£ºÊäÈëÊý¾Ý¶ø²»»áÖ÷¶¯±£´æµ½Êý¾Ý¿âÖС£°´Ò»¸öButton°´Å¥ºó²Å±£´æµ½Êý¾Ý¿âÖУ¡
¿ÉÒÔÓÃÐéÄâ±í°¡¡£
¸ú DBGridEh Î޹أ¬ÔÚÄãµÄÊý¾Ý¼¯¿Ø¼þÉÏÉèÖá£ÄãÓÃʲôÊý¾Ý¼¯¿Ø¼þ£¿
ÒýÓÃ
¸ú DBGridEh Î޹أ¬ÔÚÄãµÄÊý¾Ý¼¯¿Ø¼þÉÏÉèÖá£ÄãÓÃʲôÊý¾Ý¼¯¿Ø¼þ£¿
ADOQUERY
¿ÉÒÔÏòÒ»¹ý¶ÉTableÖÐÊäÈ룬ÔÙÈ·¶¨ºóÏòÕýÊ ......
DelphiÖÐÈçºÎ½«ÕûÐÎת»¯Îª×Ö·û´®ÐÍ
inttostr()
֮ǰÎÒÒѾÊÔ¹ýÁË£¬ ²»ÐÐ
x := integer(Edit1.Text);
y := integer(Edit2.Text);
z:= x+y;
Label3.Caption = z;
ÔõôÈÃzÊä³öÕýÈ·£¿
Label3.Caption = inttostr(z);
ÊÔÁË£¬ Êä³öΪ27955424
лл°¡~£ ......
unit ClientFrmMainUnit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, StdCtrls,
GlobalUnit, ExtCtrls;
type
TClientFrmMain = class(TForm) ......
´ó¼ÒºÃ£º
ÎÒÏëÎÊһϣ¬ÔÚÓÃdelphi ¿ª·¢midas ϵͳʱ£¬Ò»¸ö½Ó¿Ú¿ÉÒÔµ÷ÓÃÁíÒ»¸ö½Ó¿ÚµÄ·½·¨£¨method£©Âð
ÈçÉÏͼ¡£ÎÒÒªÔÚ½Ó¿ÚISRDMCOPÖе÷ÓÃISRDM½Ó¿ÚµÄLockBill·½·¨£¬ÈçºÎ²Ù×÷ÄØ¡£Çë¸ßÊÖ¸æÖª¡£
ßíßí¡£¡£¡£Äѵ½Ã»ÓÐÈËÖªµÀÂ𣿷¢Ìù¿ìÁ½ÌìÁË¡£Ã»ÓÐÈ˽ÓÌùÂð£¿
Ö»ÄÜÔÚʵÏÖÀàÀï²ÅÄܵ÷ÓÃÁíÍâÒ»¸ö½Ó¿Ú
¿´²» ......
ÎÒÊÇÐÂÊÖ£¡ÏÂÃæÊÇÎҵijÌÐò£¬°ïæ¿´¿´£¬ÏÈл¹ýÁË£»
memo1ÀïÊǸöºÜ´óµÄÊý×Ö£¬Ã¿Ò»´Î»¹²»Ò»Ñù£¡
test=record
a:integer;
b:integer;
function MyThreadFun(p: test): Integer; stdcall;
begin
Form1.Memo1.Text:=inttostr(p.a);
Result := 0;
end;
procedure TForm1.Button1Click(Sender ......
procedure TForm4.BitBtn2Click(Sender: TObject);
begin
if (Trim(ComboBox2.Text) <>'')and(Trim(Edit3.Text) <>'')then
begin
with ADOQuery1 do
begin
Close;
SQL.Clear;
......