1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| procedure Tfrm_TestConnectOracleDBGrid.bt_ConnectClick(Sender: TObject);
begin
OracleLogon1.Execute;
username := OracleSession1.LogonUsername;
password := OracleSession1.LogonPassword;
database := OracleSession1.LogonDatabase;
end;
procedure Tfrm_TestConnectOracleDBGrid.bt_ReqClick(Sender: TObject);
begin
if OracleSession1.Connected = True then
OracleDataSet1.Active :=True;
else
begin
OracleSession1.LogonUsername := username;
OracleSession1.LogonPassword := password;
OracleSession1.LogonDatabase := database;
OracleSession1.LogOn;
OracleDataSet1.Active := True;
end;
OracleSession1.LogOff;
end; |
