trunk/design/IBDatabaseEdit.pas

{************************************************************************}
{                                                                        }
{       Borland Delphi Visual Component Library                          }
{       InterBase Express core components                                }
{                                                                        }
{       Copyright (c) 1998-2000 Inprise Corporation                      }
{                                                                        }
{    InterBase Express is based in part on the product                   }
{    Free IB Components, written by Gregory H. Deatz for                 }
{    Hoagland, Longo, Moran, Dunst & Doukas Company.                     }
{    Free IB Components is used under license.                           }
{                                                                        }
{    The contents of this file are subject to the InterBase              }
{    Public License Version 1.0 (the "License"); you may not             }
{    use this file except in compliance with the License. You            }
{    may obtain a copy of the License at http://www.Inprise.com/IPL.html }
{    Software distributed under the License is distributed on            }
{    an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either              }
{    express or implied. See the License for the specific language       }
{    governing rights and limitations under the License.                 }
{    The Original Code was created by InterBase Software Corporation     }
{       and its successors.                                              }
{    Portions created by Inprise Corporation are Copyright (C) Inprise   }
{       Corporation. All Rights Reserved.                                }
{    Contributor(s): Jeff Overcash                                       }
{                                                                        }
{************************************************************************}

unit IBDatabaseEdit;

{$MODE Delphi}

{$A+}                           (* Aligned records: On *)
{$B-}                           (* Short circuit boolean expressions: Off *)
{$G+}                           (* Imported data: On *)
{$H+}                           (* Huge Strings: On *)
{$J-}                           (* Modification of Typed Constants: Off *)
{$M+}                           (* Generate run-time type information: On *)
{$O+}                           (* Optimization: On *)
{$Q-}                           (* Overflow checks: Off *)
{$R-}                           (* Range checks: Off *)
{$T+}                           (* Typed address: On *)
{$U+}                           (* Pentim-safe FDIVs: On *)
{$W-}                           (* Always generate stack frames: Off *)
{$X+}                           (* Extended syntax: On *)
{$Z1}                           (* Minimum Enumeration Size: 1 Byte *)


interface

uses
  {Windows,} Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, IBDataBase, IB, IBXConst, LResources;

type

  { TIBDatabaseEditForm }

  TIBDatabaseEditForm = class(TForm)
    Panel1: TPanel;
    DatabaseName: TEdit;
    Label1: TLabel;
    LocalRbtn: TRadioButton;
    RemoteRbtn: TRadioButton;
    Browse: TButton;
    GroupBox1: TGroupBox;
    UserName: TEdit;
    Password: TEdit;
    SQLRole: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DatabaseParams: TMemo;
    OKBtn: TButton;
    CancelBtn: TButton;
    Label5: TLabel;
    LoginPrompt: TCheckBox;
    Label6: TLabel;
    CharacterSet: TComboBox;
    ServerName: TEdit;
    Protocol: TComboBox;
    Label7: TLabel;
    Label8: TLabel;
    Test: TButton;
    procedure RemoteRbtnClick(Sender: TObject);
    procedure BrowseClick(Sender: TObject);
    procedure LocalRbtnClick(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure HelpBtnClick(Sender: TObject);
    procedure UserNameChange(Sender: TObject);
    procedure PasswordChange(Sender: TObject);
    procedure SQLRoleChange(Sender: TObject);
    procedure CharacterSetChange(Sender: TObject);
    procedure TestClick(Sender: TObject);
  private
    { Private declarations }
    Database: TIBDatabase;
    function Edit: Boolean;
    function GetParam(Name: string): string;
    procedure AddParam(Name, Value: string);
    procedure DeleteParam(Name: string);
  public
    { Public declarations }
  end;

var
  IBDatabaseEditForm: TIBDatabaseEditForm;

  function EditIBDatabase(ADatabase: TIBDatabase): Boolean;

implementation

{$R *.lfm}

uses TypInfo;

function EditIBDatabase(ADatabase: TIBDatabase): Boolean;
begin
  with TIBDatabaseEditForm.Create(Application) do
  try
    Database := ADatabase;
    Result := Edit;
  finally
    Free;
  end;
end;

function TIBDatabaseEditForm.GetParam(Name: string): string;
var
  i: Integer;
begin
  Result := '';
  for i := 0 to DatabaseParams.Lines.Count - 1 do
  begin
    if (Pos(Name, LowerCase(DatabaseParams.Lines.Names[i])) = 1) then {mbcs ok}
    begin
      Result := DatabaseParams.Lines.Values[DatabaseParams.Lines.Names[i]];
      break;
    end;
  end;
end;

procedure TIBDatabaseEditForm.AddParam(Name, Value: string);
var
  i: Integer;
  found: boolean;
begin
  found := False;
  if Trim(Value) <> '' then
  begin
    DatabaseParams.Lines.NameValueSeparator := '=';
    for i := 0 to DatabaseParams.Lines.Count - 1 do
    begin
      if (Pos(Name, LowerCase(DatabaseParams.Lines.Names[i])) = 1) then {mbcs ok}
      begin
        DatabaseParams.Lines.Values[DatabaseParams.Lines.Names[i]] := Value;
        found := True;
        break;
      end;
    end;
    if not found then
      DatabaseParams.Lines.Add(Name + '=' + Value);
  end
  else
    DeleteParam(Name);
end;

procedure TIBDatabaseEditForm.DeleteParam(Name: string);
var
  i: Integer;
begin
    for i := 0 to DatabaseParams.Lines.Count - 1 do
    begin
      if (Pos(Name, LowerCase(DatabaseParams.Lines.Names[i])) = 1) then {mbcs ok}
      begin
        DatabaseParams.Lines.Delete(i);
        break;
      end;
    end;
end;

function TIBDatabaseEditForm.Edit: Boolean;
var
  st: string;

  procedure DecomposeDatabaseName;
  var
    Idx1, Idx2: Integer;
    st: string;
  begin
    if Pos('\\', Database.DatabaseName) <> 0 then {do not localize}
    begin
      LocalRBtn.Checked := False;
      RemoteRbtn.Checked := True;
      Protocol.ItemIndex := 1;
      st := copy(Database.DatabaseName, 3, Length(Database.DatabaseName));
      Idx1 := Pos('\', st); {do not localize}
      if Idx1 = 0 then
        IBError(ibxeUnknownError, [nil])
      else begin
        ServerName.Text := Copy(st, 1, Idx1 - 1);
        DatabaseName.Text:= Copy(st, Idx1 + 1, Length(st));
      end;
    end
    else begin
      Idx1 := Pos(':', Database.DatabaseName ); {do not localize}
      If (Idx1 = 0) or (Idx1 = 2) then
      begin
        DatabaseName.Text := Database.DatabaseName;
      end
      else
      begin
        LocalRBtn.Checked := False;
        RemoteRbtn.Checked := True;
        Idx2 := Pos('@', Database.DatabaseName); {do not localize}
        if Idx2 = 0 then
        begin
          Protocol.ItemIndex := 0;
          ServerName.Text := copy(Database.DatabaseName, 1, Idx1 - 1);
          DatabaseName.Text := copy(Database.DatabaseName, Idx1 + 1,
            Length(Database.DatabaseName));
        end
        else begin
          Protocol.ItemIndex := 2;
          ServerName.Text := copy(Database.DatabaseName, 1, Idx2 - 1);
          DatabaseName.Text := copy(Database.DatabaseName, Idx2 + 1,
            Length(Database.DatabaseName));
        end;
      end;
    end;
  end;
begin
  DecomposeDatabaseName;
  if Trim(Database.Params.Text) = '' then
    DatabaseParams.Clear
  else
    DatabaseParams.Lines.Assign(Database.Params);
  LoginPrompt.Checked := Database.LoginPrompt;
  UserName.Text := GetParam('user_name');
  Password.Text := GetParam('password');
  SQLRole.Text := GetParam('sql_role');
  st := GetParam('lc_ctype');
  if (st <> '') then
    CharacterSet.ItemIndex := CharacterSet.Items.IndexOf(st);
  Result := False;
  if ShowModal = mrOk then
  begin
    Database.DatabaseName := DatabaseName.Text;
    if LocalRbtn.Checked then
      DatabaseName.Text := Database.DatabaseName
    else
      case Protocol.ItemIndex of
        0: Database.DatabaseName := Format('%s:%s', [ServerName.Text, DatabaseName.Text]); {do not localize}
        1: Database.DatabaseName := Format('\\%s\%s', [ServerName.Text, DatabaseName.Text]); {do not localize}
        2: Database.DatabaseName := Format('%s@%s', [ServerName.Text, DatabaseName.Text]); {do not localize}
      end;
    Database.Params := DatabaseParams.Lines;
    Database.LoginPrompt := LoginPrompt.Checked;
    Result := True;
  end;
end;

procedure TIBDatabaseEditForm.RemoteRbtnClick(Sender: TObject);
begin
  Browse.Enabled := False;
  Label7.Enabled := True;
  Label8.Enabled := True;
  Protocol.Enabled := True;
  ServerName.Enabled := True;
  if Protocol.Text = '' then
    Protocol.Text := 'TCP';
end;

procedure TIBDatabaseEditForm.BrowseClick(Sender: TObject);
begin
  with TOpenDialog.Create(Application) do
    try
      InitialDir := ExtractFilePath(DatabaseName.Text);
      Filter := SDatabaseFilter;
      if Execute then
        DatabaseName.Text := FileName;
    finally
      Free
    end;
end;

procedure TIBDatabaseEditForm.LocalRbtnClick(Sender: TObject);
begin
  Browse.Enabled := True;
  Label7.Enabled := False;
  Label8.Enabled := False;
  ServerName.Enabled := False;
  Protocol.Enabled := False;
end;

procedure TIBDatabaseEditForm.OKBtnClick(Sender: TObject);
begin
  ModalResult := mrNone;
  if Database.Connected then
  begin
    if MessageDlg(SDisconnectDatabase, mtConfirmation,
      mbOkCancel, 0) <> mrOk then Exit;
    Database.Close;
  end;
  ModalResult := mrOk;
end;

procedure TIBDatabaseEditForm.FormCreate(Sender: TObject);
begin
//  HelpContext := hcDIBDataBaseEdit;
end;

procedure TIBDatabaseEditForm.HelpBtnClick(Sender: TObject);
begin
  Application.HelpContext(HelpContext);
end;

procedure TIBDatabaseEditForm.UserNameChange(Sender: TObject);
begin
  AddParam('user_name', UserName.Text);
end;

procedure TIBDatabaseEditForm.PasswordChange(Sender: TObject);
begin
  AddParam('password', Password.Text);
end;

procedure TIBDatabaseEditForm.SQLRoleChange(Sender: TObject);
begin
  AddParam('sql_role_name', SQLRole.Text);
end;

procedure TIBDatabaseEditForm.CharacterSetChange(Sender: TObject);
begin
  if (CharacterSet.Text <> 'None') then {do not localize}
    AddParam('lc_ctype', CharacterSet.Text)
  else
    DeleteParam('lc_ctype');
end;

procedure TIBDatabaseEditForm.TestClick(Sender: TObject);
var
  tempDB : TIBDatabase;
begin
  Test.Enabled := false;
  tempDB := TIBDatabase.Create(nil);
  try
    if LocalRbtn.Checked then
      tempDB.DatabaseName := DatabaseName.Text
    else
      case Protocol.ItemIndex of
        0: tempDB.DatabaseName := Format('%s:%s', [ServerName.Text, DatabaseName.Text]); {do not localize}
        1: tempDB.DatabaseName := Format('\\%s\%s', [ServerName.Text, DatabaseName.Text]); {do not localize}
        2: tempDB.DatabaseName := Format('%s@%s', [ServerName.Text, DatabaseName.Text]); {do not localize}
      end;
    tempDB.Params.Assign(DatabaseParams.Lines);
    tempDB.LoginPrompt := LoginPrompt.Checked;
    try
      tempDB.Connected := true;
      ShowMessage('Successful Connection');
    except on E: Exception do
      ShowMessage(E.Message)
    end;
  finally
    tempDB.Free;
    Test.Enabled := true;
  end;
end;


end.
Revision:	33
Committed:	Sat Jul 18 12:30:52 2015 UTC (9 years, 3 months ago) by tony
Content type:	text/x-pascal
File size:	11640 byte(s)
Log Message:	Committing updates for Release R1-3-1
#	Content
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.