在窗体中添加二个Panel,三个Label,三个Edit,一个BitBtn,二个SpeedButton,一个StatusBar1控件,还添加一个ScoketConnection1控件(在DataSnap控件类中)如图:
usesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,Buttons,StdCtrls,ComCtrls,ImgList,ExtCtrls,Registry,Spin,Db,DBClient,variants;
typeTfrmLjsz=class(TForm)Panel1:TPanel;StatusBar1:TStatusBar;Panel2:TPanel;Label1:TLabel;edtAppHost:TEdit;Label2:TLabel;edtAppIP:TEdit;btnAppName:TBitBtn;Label3:TLabel;ScoketConnection1:ScoketConneciton;edtPort:TEdit;btnOK:TSpeedButton;btnCancel:TSpeedButton;procedurebtnOKClick(Sender:TObject);procedureedtAppHostExit(Sender:TObject);procedureedtAppIPExit(Send