uses AdoConEd;
Connection: TADOConnection;
edtConnStr: TRzEdit;
procedure TFrmMain.btnConfigClick( Sender: TObject );
begin
if Connection.Connected then Connection.Close;
Connection.ConnectionString := edtConnStr.Text;
if EditConnectionString( Connection ) then
edtConnStr.Text := Connection.ConnectionString;
end;
发表于 2005年06月18日 10:21 AM