以下代码的意思是什么?
procedureFormClose(Sender:TObject;varAction:TCloseAction);
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
Form1:TForm1;
implementation
{$R*.dfm}
procedureTForm1.Button1Click(Sender:TObject);
begin
withSQLConnectiondo
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:='ConnectOK';
ButtonGo.Enabled:=True;
except
MessageDlg('ConnectError',mtError,[mbyes],0);
end;
end;
end;
procedureTForm1.ButtonGoClick(Sender:TObject);
begin
withSQLClientDataSetdo
begin
Close;
CommandText:=ESQL.Text;
Open;
end;
end;
procedureTForm1.FormClose(Sender:TObject;varAction:TCloseAction);
begin
SQLConnection.Close;
end;
end.
我不明白的是user.text,password.text的内容怎么指定的?
![已知点A（-2，0），B（2，0），C（0，2），直线y=ax+b（a＞0）将△ABC分割为面积相等的两部分，则b的取值范围是（）A．（0，2−2）B．(2−2，1)C．(2−2，23]D．[23，1)](/UploadFile/wdimg/2071/1898024075/19/1153945628.jpg)
