| 1 |
< |
{************************************************************************} |
| 2 |
< |
{ } |
| 3 |
< |
{ Borland Delphi Visual Component Library } |
| 4 |
< |
{ InterBase Express core components } |
| 5 |
< |
{ } |
| 6 |
< |
{ Copyright (c) 1998-2000 Inprise Corporation } |
| 7 |
< |
{ } |
| 8 |
< |
{ InterBase Express is based in part on the product } |
| 9 |
< |
{ Free IB Components, written by Gregory H. Deatz for } |
| 10 |
< |
{ Hoagland, Longo, Moran, Dunst & Doukas Company. } |
| 11 |
< |
{ Free IB Components is used under license. } |
| 12 |
< |
{ } |
| 13 |
< |
{ The contents of this file are subject to the InterBase } |
| 14 |
< |
{ Public License Version 1.0 (the "License"); you may not } |
| 15 |
< |
{ use this file except in compliance with the License. You } |
| 16 |
< |
{ may obtain a copy of the License at http://www.Inprise.com/IPL.html } |
| 17 |
< |
{ Software distributed under the License is distributed on } |
| 18 |
< |
{ an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either } |
| 19 |
< |
{ express or implied. See the License for the specific language } |
| 20 |
< |
{ governing rights and limitations under the License. } |
| 21 |
< |
{ The Original Code was created by InterBase Software Corporation } |
| 22 |
< |
{ and its successors. } |
| 23 |
< |
{ Portions created by Inprise Corporation are Copyright (C) Inprise } |
| 24 |
< |
{ Corporation. All Rights Reserved. } |
| 25 |
< |
{ Contributor(s): Jeff Overcash } |
| 26 |
< |
{ } |
| 27 |
< |
{************************************************************************} |
| 28 |
< |
|
| 29 |
< |
unit IBDatabaseEdit; |
| 30 |
< |
|
| 31 |
< |
{$MODE Delphi} |
| 32 |
< |
|
| 33 |
< |
{$A+} (* Aligned records: On *) |
| 34 |
< |
{$B-} (* Short circuit boolean expressions: Off *) |
| 35 |
< |
{$G+} (* Imported data: On *) |
| 36 |
< |
{$H+} (* Huge Strings: On *) |
| 37 |
< |
{$J-} (* Modification of Typed Constants: Off *) |
| 38 |
< |
{$M+} (* Generate run-time type information: On *) |
| 39 |
< |
{$O+} (* Optimization: On *) |
| 40 |
< |
{$Q-} (* Overflow checks: Off *) |
| 41 |
< |
{$R-} (* Range checks: Off *) |
| 42 |
< |
{$T+} (* Typed address: On *) |
| 43 |
< |
{$U+} (* Pentim-safe FDIVs: On *) |
| 44 |
< |
{$W-} (* Always generate stack frames: Off *) |
| 45 |
< |
{$X+} (* Extended syntax: On *) |
| 46 |
< |
{$Z1} (* Minimum Enumeration Size: 1 Byte *) |
| 47 |
< |
|
| 48 |
< |
|
| 49 |
< |
interface |
| 50 |
< |
|
| 51 |
< |
uses |
| 52 |
< |
{Windows,} Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
| 53 |
< |
StdCtrls, ExtCtrls, IBDataBase, IB, IBXConst, LResources; |
| 54 |
< |
|
| 55 |
< |
type |
| 56 |
< |
|
| 57 |
< |
{ TIBDatabaseEditForm } |
| 58 |
< |
|
| 59 |
< |
TIBDatabaseEditForm = class(TForm) |
| 60 |
< |
Panel1: TPanel; |
| 61 |
< |
DatabaseName: TEdit; |
| 62 |
< |
Label1: TLabel; |
| 63 |
< |
LocalRbtn: TRadioButton; |
| 64 |
< |
RemoteRbtn: TRadioButton; |
| 65 |
< |
Browse: TButton; |
| 66 |
< |
GroupBox1: TGroupBox; |
| 67 |
< |
UserName: TEdit; |
| 68 |
< |
Password: TEdit; |
| 69 |
< |
SQLRole: TEdit; |
| 70 |
< |
Label2: TLabel; |
| 71 |
< |
Label3: TLabel; |
| 72 |
< |
Label4: TLabel; |
| 73 |
< |
DatabaseParams: TMemo; |
| 74 |
< |
OKBtn: TButton; |
| 75 |
< |
CancelBtn: TButton; |
| 76 |
< |
Label5: TLabel; |
| 77 |
< |
LoginPrompt: TCheckBox; |
| 78 |
< |
Label6: TLabel; |
| 79 |
< |
CharacterSet: TComboBox; |
| 80 |
< |
ServerName: TEdit; |
| 81 |
< |
Protocol: TComboBox; |
| 82 |
< |
Label7: TLabel; |
| 83 |
< |
Label8: TLabel; |
| 84 |
< |
Test: TButton; |
| 85 |
< |
procedure RemoteRbtnClick(Sender: TObject); |
| 86 |
< |
procedure BrowseClick(Sender: TObject); |
| 87 |
< |
procedure LocalRbtnClick(Sender: TObject); |
| 88 |
< |
procedure OKBtnClick(Sender: TObject); |
| 89 |
< |
procedure FormCreate(Sender: TObject); |
| 90 |
< |
procedure HelpBtnClick(Sender: TObject); |
| 91 |
< |
procedure UserNameChange(Sender: TObject); |
| 92 |
< |
procedure PasswordChange(Sender: TObject); |
| 93 |
< |
procedure SQLRoleChange(Sender: TObject); |
| 94 |
< |
procedure CharacterSetChange(Sender: TObject); |
| 95 |
< |
procedure TestClick(Sender: TObject); |
| 96 |
< |
private |
| 97 |
< |
{ Private declarations } |
| 98 |
< |
Database: TIBDatabase; |
| 99 |
< |
function Edit: Boolean; |
| 100 |
< |
function GetParam(Name: string): string; |
| 101 |
< |
procedure AddParam(Name, Value: string); |
| 102 |
< |
procedure DeleteParam(Name: string); |
| 103 |
< |
public |
| 104 |
< |
{ Public declarations } |
| 105 |
< |
end; |
| 106 |
< |
|
| 107 |
< |
var |
| 108 |
< |
IBDatabaseEditForm: TIBDatabaseEditForm; |
| 109 |
< |
|
| 110 |
< |
function EditIBDatabase(ADatabase: TIBDatabase): Boolean; |
| 111 |
< |
|
| 112 |
< |
implementation |
| 113 |
< |
|
| 114 |
< |
{$R *.lfm} |
| 115 |
< |
|
| 116 |
< |
uses TypInfo; |
| 117 |
< |
|
| 118 |
< |
function EditIBDatabase(ADatabase: TIBDatabase): Boolean; |
| 119 |
< |
begin |
| 120 |
< |
with TIBDatabaseEditForm.Create(Application) do |
| 121 |
< |
try |
| 122 |
< |
Database := ADatabase; |
| 123 |
< |
Result := Edit; |
| 124 |
< |
finally |
| 125 |
< |
Free; |
| 126 |
< |
end; |
| 127 |
< |
end; |
| 128 |
< |
|
| 129 |
< |
function TIBDatabaseEditForm.GetParam(Name: string): string; |
| 130 |
< |
var |
| 131 |
< |
i: Integer; |
| 132 |
< |
begin |
| 133 |
< |
Result := ''; |
| 134 |
< |
for i := 0 to DatabaseParams.Lines.Count - 1 do |
| 135 |
< |
begin |
| 136 |
< |
if (Pos(Name, LowerCase(DatabaseParams.Lines.Names[i])) = 1) then {mbcs ok} |
| 137 |
< |
begin |
| 138 |
< |
Result := DatabaseParams.Lines.Values[DatabaseParams.Lines.Names[i]]; |
| 139 |
< |
break; |
| 140 |
< |
end; |
| 141 |
< |
end; |
| 142 |
< |
end; |
| 143 |
< |
|
| 144 |
< |
procedure TIBDatabaseEditForm.AddParam(Name, Value: string); |
| 145 |
< |
var |
| 146 |
< |
i: Integer; |
| 147 |
< |
found: boolean; |
| 148 |
< |
begin |
| 149 |
< |
found := False; |
| 150 |
< |
if Trim(Value) <> '' then |
| 151 |
< |
begin |
| 152 |
< |
DatabaseParams.Lines.NameValueSeparator := '='; |
| 153 |
< |
for i := 0 to DatabaseParams.Lines.Count - 1 do |
| 154 |
< |
begin |
| 155 |
< |
if (Pos(Name, LowerCase(DatabaseParams.Lines.Names[i])) = 1) then {mbcs ok} |
| 156 |
< |
begin |
| 157 |
< |
DatabaseParams.Lines.Values[DatabaseParams.Lines.Names[i]] := Value; |
| 158 |
< |
found := True; |
| 159 |
< |
break; |
| 160 |
< |
end; |
| 161 |
< |
end; |
| 162 |
< |
if not found then |
| 163 |
< |
DatabaseParams.Lines.Add(Name + '=' + Value); |
| 164 |
< |
end |
| 165 |
< |
else |
| 166 |
< |
DeleteParam(Name); |
| 167 |
< |
end; |
| 168 |
< |
|
| 169 |
< |
procedure TIBDatabaseEditForm.DeleteParam(Name: string); |
| 170 |
< |
var |
| 171 |
< |
i: Integer; |
| 172 |
< |
begin |
| 173 |
< |
for i := 0 to DatabaseParams.Lines.Count - 1 do |
| 174 |
< |
begin |
| 175 |
< |
if (Pos(Name, LowerCase(DatabaseParams.Lines.Names[i])) = 1) then {mbcs ok} |
| 176 |
< |
begin |
| 177 |
< |
DatabaseParams.Lines.Delete(i); |
| 178 |
< |
break; |
| 179 |
< |
end; |
| 180 |
< |
end; |
| 181 |
< |
end; |
| 182 |
< |
|
| 183 |
< |
function TIBDatabaseEditForm.Edit: Boolean; |
| 184 |
< |
var |
| 185 |
< |
st: string; |
| 186 |
< |
|
| 187 |
< |
procedure DecomposeDatabaseName; |
| 188 |
< |
var |
| 189 |
< |
Idx1, Idx2: Integer; |
| 190 |
< |
st: string; |
| 191 |
< |
begin |
| 192 |
< |
if Pos('\\', Database.DatabaseName) <> 0 then {do not localize} |
| 193 |
< |
begin |
| 194 |
< |
LocalRBtn.Checked := False; |
| 195 |
< |
RemoteRbtn.Checked := True; |
| 196 |
< |
Protocol.ItemIndex := 1; |
| 197 |
< |
st := copy(Database.DatabaseName, 3, Length(Database.DatabaseName)); |
| 198 |
< |
Idx1 := Pos('\', st); {do not localize} |
| 199 |
< |
if Idx1 = 0 then |
| 200 |
< |
IBError(ibxeUnknownError, [nil]) |
| 201 |
< |
else begin |
| 202 |
< |
ServerName.Text := Copy(st, 1, Idx1 - 1); |
| 203 |
< |
DatabaseName.Text:= Copy(st, Idx1 + 1, Length(st)); |
| 204 |
< |
end; |
| 205 |
< |
end |
| 206 |
< |
else begin |
| 207 |
< |
Idx1 := Pos(':', Database.DatabaseName ); {do not localize} |
| 208 |
< |
If (Idx1 = 0) or (Idx1 = 2) then |
| 209 |
< |
begin |
| 210 |
< |
DatabaseName.Text := Database.DatabaseName; |
| 211 |
< |
end |
| 212 |
< |
else |
| 213 |
< |
begin |
| 214 |
< |
LocalRBtn.Checked := False; |
| 215 |
< |
RemoteRbtn.Checked := True; |
| 216 |
< |
Idx2 := Pos('@', Database.DatabaseName); {do not localize} |
| 217 |
< |
if Idx2 = 0 then |
| 218 |
< |
begin |
| 219 |
< |
Protocol.ItemIndex := 0; |
| 220 |
< |
ServerName.Text := copy(Database.DatabaseName, 1, Idx1 - 1); |
| 221 |
< |
DatabaseName.Text := copy(Database.DatabaseName, Idx1 + 1, |
| 222 |
< |
Length(Database.DatabaseName)); |
| 223 |
< |
end |
| 224 |
< |
else begin |
| 225 |
< |
Protocol.ItemIndex := 2; |
| 226 |
< |
ServerName.Text := copy(Database.DatabaseName, 1, Idx2 - 1); |
| 227 |
< |
DatabaseName.Text := copy(Database.DatabaseName, Idx2 + 1, |
| 228 |
< |
Length(Database.DatabaseName)); |
| 229 |
< |
end; |
| 230 |
< |
end; |
| 231 |
< |
end; |
| 232 |
< |
end; |
| 233 |
< |
begin |
| 234 |
< |
DecomposeDatabaseName; |
| 235 |
< |
if Trim(Database.Params.Text) = '' then |
| 236 |
< |
DatabaseParams.Clear |
| 237 |
< |
else |
| 238 |
< |
DatabaseParams.Lines.Assign(Database.Params); |
| 239 |
< |
LoginPrompt.Checked := Database.LoginPrompt; |
| 240 |
< |
UserName.Text := GetParam('user_name'); |
| 241 |
< |
Password.Text := GetParam('password'); |
| 242 |
< |
SQLRole.Text := GetParam('sql_role'); |
| 243 |
< |
st := GetParam('lc_ctype'); |
| 244 |
< |
if (st <> '') then |
| 245 |
< |
CharacterSet.ItemIndex := CharacterSet.Items.IndexOf(st); |
| 246 |
< |
Result := False; |
| 247 |
< |
if ShowModal = mrOk then |
| 248 |
< |
begin |
| 249 |
< |
Database.DatabaseName := DatabaseName.Text; |
| 250 |
< |
if LocalRbtn.Checked then |
| 251 |
< |
DatabaseName.Text := Database.DatabaseName |
| 252 |
< |
else |
| 253 |
< |
case Protocol.ItemIndex of |
| 254 |
< |
0: Database.DatabaseName := Format('%s:%s', [ServerName.Text, DatabaseName.Text]); {do not localize} |
| 255 |
< |
1: Database.DatabaseName := Format('\\%s\%s', [ServerName.Text, DatabaseName.Text]); {do not localize} |
| 256 |
< |
2: Database.DatabaseName := Format('%s@%s', [ServerName.Text, DatabaseName.Text]); {do not localize} |
| 257 |
< |
end; |
| 258 |
< |
Database.Params := DatabaseParams.Lines; |
| 259 |
< |
Database.LoginPrompt := LoginPrompt.Checked; |
| 260 |
< |
Result := True; |
| 261 |
< |
end; |
| 262 |
< |
end; |
| 263 |
< |
|
| 264 |
< |
procedure TIBDatabaseEditForm.RemoteRbtnClick(Sender: TObject); |
| 265 |
< |
begin |
| 266 |
< |
Browse.Enabled := False; |
| 267 |
< |
Label7.Enabled := True; |
| 268 |
< |
Label8.Enabled := True; |
| 269 |
< |
Protocol.Enabled := True; |
| 270 |
< |
ServerName.Enabled := True; |
| 271 |
< |
if Protocol.Text = '' then |
| 272 |
< |
Protocol.Text := 'TCP'; |
| 273 |
< |
end; |
| 274 |
< |
|
| 275 |
< |
procedure TIBDatabaseEditForm.BrowseClick(Sender: TObject); |
| 276 |
< |
begin |
| 277 |
< |
with TOpenDialog.Create(Application) do |
| 278 |
< |
try |
| 279 |
< |
InitialDir := ExtractFilePath(DatabaseName.Text); |
| 280 |
< |
Filter := SDatabaseFilter; |
| 281 |
< |
if Execute then |
| 282 |
< |
DatabaseName.Text := FileName; |
| 283 |
< |
finally |
| 284 |
< |
Free |
| 285 |
< |
end; |
| 286 |
< |
end; |
| 287 |
< |
|
| 288 |
< |
procedure TIBDatabaseEditForm.LocalRbtnClick(Sender: TObject); |
| 289 |
< |
begin |
| 290 |
< |
Browse.Enabled := True; |
| 291 |
< |
Label7.Enabled := False; |
| 292 |
< |
Label8.Enabled := False; |
| 293 |
< |
ServerName.Enabled := False; |
| 294 |
< |
Protocol.Enabled := False; |
| 295 |
< |
end; |
| 296 |
< |
|
| 297 |
< |
procedure TIBDatabaseEditForm.OKBtnClick(Sender: TObject); |
| 298 |
< |
begin |
| 299 |
< |
ModalResult := mrNone; |
| 300 |
< |
if Database.Connected then |
| 301 |
< |
begin |
| 302 |
< |
if MessageDlg(SDisconnectDatabase, mtConfirmation, |
| 303 |
< |
mbOkCancel, 0) <> mrOk then Exit; |
| 304 |
< |
Database.Close; |
| 305 |
< |
end; |
| 306 |
< |
ModalResult := mrOk; |
| 307 |
< |
end; |
| 308 |
< |
|
| 309 |
< |
procedure TIBDatabaseEditForm.FormCreate(Sender: TObject); |
| 310 |
< |
begin |
| 311 |
< |
// HelpContext := hcDIBDataBaseEdit; |
| 312 |
< |
end; |
| 313 |
< |
|
| 314 |
< |
procedure TIBDatabaseEditForm.HelpBtnClick(Sender: TObject); |
| 315 |
< |
begin |
| 316 |
< |
Application.HelpContext(HelpContext); |
| 317 |
< |
end; |
| 318 |
< |
|
| 319 |
< |
procedure TIBDatabaseEditForm.UserNameChange(Sender: TObject); |
| 320 |
< |
begin |
| 321 |
< |
AddParam('user_name', UserName.Text); |
| 322 |
< |
end; |
| 323 |
< |
|
| 324 |
< |
procedure TIBDatabaseEditForm.PasswordChange(Sender: TObject); |
| 325 |
< |
begin |
| 326 |
< |
AddParam('password', Password.Text); |
| 327 |
< |
end; |
| 328 |
< |
|
| 329 |
< |
procedure TIBDatabaseEditForm.SQLRoleChange(Sender: TObject); |
| 330 |
< |
begin |
| 331 |
< |
AddParam('sql_role_name', SQLRole.Text); |
| 332 |
< |
end; |
| 333 |
< |
|
| 334 |
< |
procedure TIBDatabaseEditForm.CharacterSetChange(Sender: TObject); |
| 335 |
< |
begin |
| 336 |
< |
if (CharacterSet.Text <> 'None') then {do not localize} |
| 337 |
< |
AddParam('lc_ctype', CharacterSet.Text) |
| 338 |
< |
else |
| 339 |
< |
DeleteParam('lc_ctype'); |
| 340 |
< |
end; |
| 341 |
< |
|
| 342 |
< |
procedure TIBDatabaseEditForm.TestClick(Sender: TObject); |
| 343 |
< |
var |
| 344 |
< |
tempDB : TIBDatabase; |
| 345 |
< |
begin |
| 346 |
< |
Test.Enabled := false; |
| 347 |
< |
tempDB := TIBDatabase.Create(nil); |
| 348 |
< |
try |
| 349 |
< |
if LocalRbtn.Checked then |
| 350 |
< |
tempDB.DatabaseName := DatabaseName.Text |
| 351 |
< |
else |
| 352 |
< |
case Protocol.ItemIndex of |
| 353 |
< |
0: tempDB.DatabaseName := Format('%s:%s', [ServerName.Text, DatabaseName.Text]); {do not localize} |
| 354 |
< |
1: tempDB.DatabaseName := Format('\\%s\%s', [ServerName.Text, DatabaseName.Text]); {do not localize} |
| 355 |
< |
2: tempDB.DatabaseName := Format('%s@%s', [ServerName.Text, DatabaseName.Text]); {do not localize} |
| 356 |
< |
end; |
| 357 |
< |
tempDB.Params.Assign(DatabaseParams.Lines); |
| 358 |
< |
tempDB.LoginPrompt := LoginPrompt.Checked; |
| 359 |
< |
try |
| 360 |
< |
tempDB.Connected := true; |
| 361 |
< |
ShowMessage('Successful Connection'); |
| 362 |
< |
except on E: Exception do |
| 363 |
< |
ShowMessage(E.Message) |
| 364 |
< |
end; |
| 365 |
< |
finally |
| 366 |
< |
tempDB.Free; |
| 367 |
< |
Test.Enabled := true; |
| 368 |
< |
end; |
| 369 |
< |
end; |
| 370 |
< |
|
| 371 |
< |
|
| 372 |
< |
end. |
| 1 |
> |
{************************************************************************} |
| 2 |
> |
{ } |
| 3 |
> |
{ Borland Delphi Visual Component Library } |
| 4 |
> |
{ InterBase Express core components } |
| 5 |
> |
{ } |
| 6 |
> |
{ Copyright (c) 1998-2000 Inprise Corporation } |
| 7 |
> |
{ } |
| 8 |
> |
{ InterBase Express is based in part on the product } |
| 9 |
> |
{ Free IB Components, written by Gregory H. Deatz for } |
| 10 |
> |
{ Hoagland, Longo, Moran, Dunst & Doukas Company. } |
| 11 |
> |
{ Free IB Components is used under license. } |
| 12 |
> |
{ } |
| 13 |
> |
{ The contents of this file are subject to the InterBase } |
| 14 |
> |
{ Public License Version 1.0 (the "License"); you may not } |
| 15 |
> |
{ use this file except in compliance with the License. You } |
| 16 |
> |
{ may obtain a copy of the License at http://www.Inprise.com/IPL.html } |
| 17 |
> |
{ Software distributed under the License is distributed on } |
| 18 |
> |
{ an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either } |
| 19 |
> |
{ express or implied. See the License for the specific language } |
| 20 |
> |
{ governing rights and limitations under the License. } |
| 21 |
> |
{ The Original Code was created by InterBase Software Corporation } |
| 22 |
> |
{ and its successors. } |
| 23 |
> |
{ Portions created by Inprise Corporation are Copyright (C) Inprise } |
| 24 |
> |
{ Corporation. All Rights Reserved. } |
| 25 |
> |
{ Contributor(s): Jeff Overcash } |
| 26 |
> |
{ } |
| 27 |
> |
{************************************************************************} |
| 28 |
> |
|
| 29 |
> |
unit IBDatabaseEdit; |
| 30 |
> |
|
| 31 |
> |
{$MODE Delphi} |
| 32 |
> |
|
| 33 |
> |
{$A+} (* Aligned records: On *) |
| 34 |
> |
{$B-} (* Short circuit boolean expressions: Off *) |
| 35 |
> |
{ $G+} (* Imported data: On *) |
| 36 |
> |
{$H+} (* Huge Strings: On *) |
| 37 |
> |
{$J-} (* Modification of Typed Constants: Off *) |
| 38 |
> |
{$M+} (* Generate run-time type information: On *) |
| 39 |
> |
{$O+} (* Optimization: On *) |
| 40 |
> |
{$Q-} (* Overflow checks: Off *) |
| 41 |
> |
{$R-} (* Range checks: Off *) |
| 42 |
> |
{$T+} (* Typed address: On *) |
| 43 |
> |
{ $U+} (* Pentim-safe FDIVs: On *) |
| 44 |
> |
{$W-} (* Always generate stack frames: Off *) |
| 45 |
> |
{$X+} (* Extended syntax: On *) |
| 46 |
> |
{$Z1} (* Minimum Enumeration Size: 1 Byte *) |
| 47 |
> |
|
| 48 |
> |
interface |
| 49 |
> |
|
| 50 |
> |
uses |
| 51 |
> |
SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
| 52 |
> |
StdCtrls, ExtCtrls, IBDatabase, IB, LResources; |
| 53 |
> |
|
| 54 |
> |
type |
| 55 |
> |
|
| 56 |
> |
{ TIBDatabaseEditForm } |
| 57 |
> |
|
| 58 |
> |
TIBDatabaseEditForm = class(TForm) |
| 59 |
> |
Browse: TButton; |
| 60 |
> |
DatabasePath: TEdit; |
| 61 |
> |
Label1: TLabel; |
| 62 |
> |
Label7: TLabel; |
| 63 |
> |
Label8: TLabel; |
| 64 |
> |
Label9: TLabel; |
| 65 |
> |
PortNo: TEdit; |
| 66 |
> |
Protocol: TComboBox; |
| 67 |
> |
ConnectionTypeBtn: TRadioGroup; |
| 68 |
> |
ServerName: TEdit; |
| 69 |
> |
UseSystemDefaultCS: TCheckBox; |
| 70 |
> |
Panel1: TPanel; |
| 71 |
> |
GroupBox1: TGroupBox; |
| 72 |
> |
UserName: TEdit; |
| 73 |
> |
Password: TEdit; |
| 74 |
> |
SQLRole: TEdit; |
| 75 |
> |
Label2: TLabel; |
| 76 |
> |
Label3: TLabel; |
| 77 |
> |
Label4: TLabel; |
| 78 |
> |
DatabaseParams: TMemo; |
| 79 |
> |
OKBtn: TButton; |
| 80 |
> |
CancelBtn: TButton; |
| 81 |
> |
Label5: TLabel; |
| 82 |
> |
LoginPrompt: TCheckBox; |
| 83 |
> |
Label6: TLabel; |
| 84 |
> |
CharacterSet: TComboBox; |
| 85 |
> |
Test: TButton; |
| 86 |
> |
procedure BrowseClick(Sender: TObject); |
| 87 |
> |
procedure DatabaseParamsEditingDone(Sender: TObject); |
| 88 |
> |
procedure OKBtnClick(Sender: TObject); |
| 89 |
> |
procedure FormCreate(Sender: TObject); |
| 90 |
> |
procedure HelpBtnClick(Sender: TObject); |
| 91 |
> |
procedure PasswordEditingDone(Sender: TObject); |
| 92 |
> |
procedure ProtocolCloseUp(Sender: TObject); |
| 93 |
> |
procedure ConnectionTypeBtnSelectionChanged(Sender: TObject); |
| 94 |
> |
procedure SQLRoleEditingDone(Sender: TObject); |
| 95 |
> |
procedure CharacterSetChange(Sender: TObject); |
| 96 |
> |
procedure TestClick(Sender: TObject); |
| 97 |
> |
procedure UserNameEditingDone(Sender: TObject); |
| 98 |
> |
procedure UseSystemDefaultCSChange(Sender: TObject); |
| 99 |
> |
private |
| 100 |
> |
{ Private declarations } |
| 101 |
> |
Database: TIBDatabase; |
| 102 |
> |
function Edit: Boolean; |
| 103 |
> |
procedure AddParam(aName, aValue: string); |
| 104 |
> |
procedure DeleteParam(aName: string); |
| 105 |
> |
procedure UpdateParamEditBoxes; |
| 106 |
> |
public |
| 107 |
> |
{ Public declarations } |
| 108 |
> |
end; |
| 109 |
> |
|
| 110 |
> |
var |
| 111 |
> |
IBDatabaseEditForm: TIBDatabaseEditForm; |
| 112 |
> |
|
| 113 |
> |
function EditIBDatabase(ADatabase: TIBDatabase): Boolean; |
| 114 |
> |
|
| 115 |
> |
implementation |
| 116 |
> |
|
| 117 |
> |
{$R *.lfm} |
| 118 |
> |
|
| 119 |
> |
uses TypInfo, FBMessages, IBUtils; |
| 120 |
> |
|
| 121 |
> |
function EditIBDatabase(ADatabase: TIBDatabase): Boolean; |
| 122 |
> |
begin |
| 123 |
> |
with TIBDatabaseEditForm.Create(Application) do |
| 124 |
> |
try |
| 125 |
> |
Database := ADatabase; |
| 126 |
> |
Result := Edit; |
| 127 |
> |
finally |
| 128 |
> |
Free; |
| 129 |
> |
end; |
| 130 |
> |
end; |
| 131 |
> |
|
| 132 |
> |
procedure TIBDatabaseEditForm.AddParam(aName, aValue: string); |
| 133 |
> |
begin |
| 134 |
> |
if Trim(aValue) = '' then |
| 135 |
> |
DeleteParam(aName) |
| 136 |
> |
else |
| 137 |
> |
DatabaseParams.Lines.Values[aName] := Trim(aValue); |
| 138 |
> |
end; |
| 139 |
> |
|
| 140 |
> |
procedure TIBDatabaseEditForm.DeleteParam(aName: string); |
| 141 |
> |
var |
| 142 |
> |
i: Integer; |
| 143 |
> |
begin |
| 144 |
> |
for i := 0 to DatabaseParams.Lines.Count - 1 do |
| 145 |
> |
begin |
| 146 |
> |
if (Pos(aName, LowerCase(DatabaseParams.Lines.Names[i])) = 1) then {mbcs ok} |
| 147 |
> |
begin |
| 148 |
> |
DatabaseParams.Lines.Delete(i); |
| 149 |
> |
break; |
| 150 |
> |
end; |
| 151 |
> |
end; |
| 152 |
> |
end; |
| 153 |
> |
|
| 154 |
> |
procedure TIBDatabaseEditForm.UpdateParamEditBoxes; |
| 155 |
> |
var st: string; |
| 156 |
> |
begin |
| 157 |
> |
UserName.Text := DatabaseParams.Lines.Values['user_name']; |
| 158 |
> |
Password.Text := DatabaseParams.Lines.Values['password']; |
| 159 |
> |
SQLRole.Text := DatabaseParams.Lines.Values['sql_role_name']; |
| 160 |
> |
st := DatabaseParams.Lines.Values['lc_ctype']; |
| 161 |
> |
if (st <> '') then |
| 162 |
> |
CharacterSet.ItemIndex := CharacterSet.Items.IndexOf(st) |
| 163 |
> |
else |
| 164 |
> |
CharacterSet.ItemIndex := -1; |
| 165 |
> |
end; |
| 166 |
> |
|
| 167 |
> |
function TIBDatabaseEditForm.Edit: Boolean; |
| 168 |
> |
var |
| 169 |
> |
aServerName: string; |
| 170 |
> |
aDatabaseName: string; |
| 171 |
> |
aProtocol: TProtocolAll; |
| 172 |
> |
aPortNo: string; |
| 173 |
> |
|
| 174 |
> |
begin |
| 175 |
> |
if ParseConnectString(Database.DatabaseName, aServerName, aDatabaseName, aProtocol, aPortNo) then |
| 176 |
> |
begin |
| 177 |
> |
ServerName.Text := aServerName; |
| 178 |
> |
DatabasePath.Text := aDatabaseName; |
| 179 |
> |
Protocol.ItemIndex := ord(aProtocol); |
| 180 |
> |
PortNo.Text := aPortNo; |
| 181 |
> |
end; |
| 182 |
> |
ProtocolCloseUp(nil); |
| 183 |
> |
ConnectionTypeBtnSelectionChanged(nil); |
| 184 |
> |
if Trim(Database.Params.Text) = '' then |
| 185 |
> |
DatabaseParams.Clear |
| 186 |
> |
else |
| 187 |
> |
DatabaseParams.Lines.Assign(Database.Params); |
| 188 |
> |
LoginPrompt.Checked := Database.LoginPrompt; |
| 189 |
> |
UpdateParamEditBoxes; |
| 190 |
> |
UseSystemDefaultCS.Checked := Database.UseDefaultSystemCodePage; |
| 191 |
> |
Result := False; |
| 192 |
> |
if ShowModal = mrOk then |
| 193 |
> |
begin |
| 194 |
> |
Database.DatabaseName := MakeConnectString(ServerName.Text, DatabasePath.Text, |
| 195 |
> |
TProtocolAll(Protocol.ItemIndex), PortNo.Text); |
| 196 |
> |
Database.Params := DatabaseParams.Lines; |
| 197 |
> |
Database.LoginPrompt := LoginPrompt.Checked; |
| 198 |
> |
Database.UseDefaultSystemCodePage := UseSystemDefaultCS.Checked; |
| 199 |
> |
Result := True; |
| 200 |
> |
end; |
| 201 |
> |
end; |
| 202 |
> |
|
| 203 |
> |
procedure TIBDatabaseEditForm.BrowseClick(Sender: TObject); |
| 204 |
> |
begin |
| 205 |
> |
with TOpenDialog.Create(Application) do |
| 206 |
> |
try |
| 207 |
> |
InitialDir := ExtractFilePath(DatabasePath.Text); |
| 208 |
> |
Filter := SDatabaseFilter; |
| 209 |
> |
if Execute then |
| 210 |
> |
DatabasePath.Text := FileName; |
| 211 |
> |
finally |
| 212 |
> |
Free |
| 213 |
> |
end; |
| 214 |
> |
end; |
| 215 |
> |
|
| 216 |
> |
procedure TIBDatabaseEditForm.DatabaseParamsEditingDone(Sender: TObject); |
| 217 |
> |
begin |
| 218 |
> |
UpdateParamEditBoxes; |
| 219 |
> |
end; |
| 220 |
> |
|
| 221 |
> |
procedure TIBDatabaseEditForm.OKBtnClick(Sender: TObject); |
| 222 |
> |
begin |
| 223 |
> |
ModalResult := mrNone; |
| 224 |
> |
if Database.Connected then |
| 225 |
> |
begin |
| 226 |
> |
if MessageDlg(SDisconnectDatabase, mtConfirmation, |
| 227 |
> |
mbOkCancel, 0) <> mrOk then Exit; |
| 228 |
> |
Database.Close; |
| 229 |
> |
end; |
| 230 |
> |
ModalResult := mrOk; |
| 231 |
> |
end; |
| 232 |
> |
|
| 233 |
> |
procedure TIBDatabaseEditForm.FormCreate(Sender: TObject); |
| 234 |
> |
begin |
| 235 |
> |
// HelpContext := hcDIBDataBaseEdit; |
| 236 |
> |
end; |
| 237 |
> |
|
| 238 |
> |
procedure TIBDatabaseEditForm.HelpBtnClick(Sender: TObject); |
| 239 |
> |
begin |
| 240 |
> |
Application.HelpContext(HelpContext); |
| 241 |
> |
end; |
| 242 |
> |
|
| 243 |
> |
procedure TIBDatabaseEditForm.PasswordEditingDone(Sender: TObject); |
| 244 |
> |
begin |
| 245 |
> |
AddParam('password', Password.Text); |
| 246 |
> |
end; |
| 247 |
> |
|
| 248 |
> |
procedure TIBDatabaseEditForm.ProtocolCloseUp(Sender: TObject); |
| 249 |
> |
begin |
| 250 |
> |
if Protocol.ItemIndex = 3 then |
| 251 |
> |
ConnectionTypeBtn.ItemIndex := 0 |
| 252 |
> |
else |
| 253 |
> |
ConnectionTypeBtn.ItemIndex := 1; |
| 254 |
> |
end; |
| 255 |
> |
|
| 256 |
> |
procedure TIBDatabaseEditForm.ConnectionTypeBtnSelectionChanged(Sender: TObject); |
| 257 |
> |
begin |
| 258 |
> |
if ConnectionTypeBtn.ItemIndex > 0 then |
| 259 |
> |
begin |
| 260 |
> |
Browse.Enabled := False; |
| 261 |
> |
Label7.Enabled := True; |
| 262 |
> |
Label8.Enabled := True; |
| 263 |
> |
Protocol.Enabled := True; |
| 264 |
> |
ServerName.Enabled := True; |
| 265 |
> |
if Protocol.ItemIndex = 3 then |
| 266 |
> |
Protocol.ItemIndex := 4; |
| 267 |
> |
end |
| 268 |
> |
else |
| 269 |
> |
begin |
| 270 |
> |
Browse.Enabled := True; |
| 271 |
> |
Label7.Enabled := False; |
| 272 |
> |
Label8.Enabled := true; |
| 273 |
> |
ServerName.Text := ''; |
| 274 |
> |
ServerName.Enabled := False; |
| 275 |
> |
Protocol.Enabled := true; |
| 276 |
> |
Protocol.ItemIndex := 3; |
| 277 |
> |
end; |
| 278 |
> |
end; |
| 279 |
> |
|
| 280 |
> |
procedure TIBDatabaseEditForm.SQLRoleEditingDone(Sender: TObject); |
| 281 |
> |
begin |
| 282 |
> |
AddParam('sql_role_name', SQLRole.Text); |
| 283 |
> |
end; |
| 284 |
> |
|
| 285 |
> |
procedure TIBDatabaseEditForm.CharacterSetChange(Sender: TObject); |
| 286 |
> |
begin |
| 287 |
> |
if (CharacterSet.ItemIndex <> -1 ) then {do not localize} |
| 288 |
> |
AddParam('lc_ctype', CharacterSet.Text) |
| 289 |
> |
else |
| 290 |
> |
DeleteParam('lc_ctype'); |
| 291 |
> |
end; |
| 292 |
> |
|
| 293 |
> |
procedure TIBDatabaseEditForm.TestClick(Sender: TObject); |
| 294 |
> |
var |
| 295 |
> |
tempDB : TIBDatabase; |
| 296 |
> |
begin |
| 297 |
> |
Test.Enabled := false; |
| 298 |
> |
tempDB := TIBDatabase.Create(nil); |
| 299 |
> |
try |
| 300 |
> |
tempDB.DatabaseName := MakeConnectString(ServerName.Text, DatabasePath.Text, |
| 301 |
> |
TProtocolAll(Protocol.ItemIndex), PortNo.Text); |
| 302 |
> |
tempDB.Params.Assign(DatabaseParams.Lines); |
| 303 |
> |
tempDB.LoginPrompt := LoginPrompt.Checked; |
| 304 |
> |
try |
| 305 |
> |
tempDB.Connected := true; |
| 306 |
> |
ShowMessage('Successful Connection'); |
| 307 |
> |
except on E: Exception do |
| 308 |
> |
ShowMessage(E.Message) |
| 309 |
> |
end; |
| 310 |
> |
finally |
| 311 |
> |
tempDB.Free; |
| 312 |
> |
Test.Enabled := true; |
| 313 |
> |
end; |
| 314 |
> |
end; |
| 315 |
> |
|
| 316 |
> |
procedure TIBDatabaseEditForm.UserNameEditingDone(Sender: TObject); |
| 317 |
> |
begin |
| 318 |
> |
AddParam('user_name', UserName.Text); |
| 319 |
> |
end; |
| 320 |
> |
|
| 321 |
> |
procedure TIBDatabaseEditForm.UseSystemDefaultCSChange(Sender: TObject); |
| 322 |
> |
begin |
| 323 |
> |
CharacterSet.Enabled := not UseSystemDefaultCS.Checked; |
| 324 |
> |
if UseSystemDefaultCS.Checked then |
| 325 |
> |
DeleteParam('lc_ctype') |
| 326 |
> |
else |
| 327 |
> |
if (CharacterSet.Text <> 'None') then {do not localize} |
| 328 |
> |
AddParam('lc_ctype', CharacterSet.Text) |
| 329 |
> |
end; |
| 330 |
> |
|
| 331 |
> |
|
| 332 |
> |
end. |
