早教吧作业答案频道 -->其他-->
以下代码的意思是什么?procedureFormClose(Sender:TObject;varAction:TCloseAction);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;implementation{$R*.dfm}procedureTForm1.Button1Click(Sender:TObject);begi
题目详情
以下代码的意思是什么?
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
with SQLConnection do
begin
Close;
Params.Values['HostName']:=HostName.Text;
Params.Values['UserName']:=User_Name.Text;
Params.Values['Password']:=Password.Text;
Params.Values['Database']:=Database.Text;
try
Connected:=True;
Statusbar1.Panels[0].Text:='Connect OK';
ButtonGo.Enabled:=True;
except
MessageDlg('Connect Error',mtError,[mbyes],0);
end;
end;
end;
procedure TForm1.ButtonGoClick(Sender: TObject);
begin
with SQLClientDataSet do
begin
Close;
CommandText:=ESQL.Text;
Open;
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SQLConnection.Close;
end;
end.
我不明白的是user.text,password.text的内容怎么指定的?
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
with SQLConnection do
begin
Close;
Params.Values['HostName']:=HostName.Text;
Params.Values['UserName']:=User_Name.Text;
Params.Values['Password']:=Password.Text;
Params.Values['Database']:=Database.Text;
try
Connected:=True;
Statusbar1.Panels[0].Text:='Connect OK';
ButtonGo.Enabled:=True;
except
MessageDlg('Connect Error',mtError,[mbyes],0);
end;
end;
end;
procedure TForm1.ButtonGoClick(Sender: TObject);
begin
with SQLClientDataSet do
begin
Close;
CommandText:=ESQL.Text;
Open;
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
SQLConnection.Close;
end;
end.
我不明白的是user.text,password.text的内容怎么指定的?
▼优质解答
答案和解析
用户在界面中输入.
看了 以下代码的意思是什么?pro...的网友还看了以下:
delphi7保留小数x,y:variant;procedureTForm1.Button1Cli 2020-04-07 …
英语翻译红色代表热情红色代表温暖橙色代表华丽橙色代表兴奋黄色代表光明黄色代表希望绿色代表和平绿色代 2020-05-13 …
以下代码的意思是什么?procedureFormClose(Sender:TObject;varA 2020-06-26 …
历史时代的划分1.石器时代2.红铜时代3.青铜时代4.铁器时代5.黑暗时代6.启蒙时代7.蒸汽时代 2020-07-20 …
31.Ifthewholeprogrambeforehand,agreatdealoftimean 2020-07-22 …
delphiinsert语句错误SQL.Add('insertintouserinfouserty 2020-07-26 …
delphi中byte数组转string的疑问procedureTForm1.Button1Clic 2020-10-30 …
地质学家把地球的发展历史划分为若干地质年代,主要包括太古代太古代、元古代元古代、古生代古生代、中生代 2020-11-21 …
直到20世纪后期,中国运动员才以他们在奥运会上的杰出表现让世界对他们刮目相看。(begi直到20世纪 2020-11-23 …
delphi7求一个数的N次方的函数delphi7中有没有求一个数的N次方的函数?如果没有请告诉一个 2020-12-31 …