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
  SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls,  IBDatabase, IB,  LResources;

type

  { TIBDatabaseEditForm }

  TIBDatabaseEditForm = class(TForm)
    Browse: TButton;
    UseWireCompression: TCheckBox;
    DatabasePath: TEdit;
    Label1: TLabel;
    Label10: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    ConfigOverrides: TMemo;
    PortNo: TEdit;
    Protocol: TComboBox;
    ConnectionTypeBtn: TRadioGroup;
    ServerName: TEdit;
    UseSystemDefaultCS: TCheckBox;
    Panel1: TPanel;
    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;
    Test: TButton;
    procedure BrowseClick(Sender: TObject);
    procedure ConfigOverridesEditingDone(Sender: TObject);
    procedure DatabaseParamsEditingDone(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure HelpBtnClick(Sender: TObject);
    procedure PasswordEditingDone(Sender: TObject);
    procedure ProtocolCloseUp(Sender: TObject);
    procedure ConnectionTypeBtnSelectionChanged(Sender: TObject);
    procedure SQLRoleEditingDone(Sender: TObject);
    procedure CharacterSetChange(Sender: TObject);
    procedure TestClick(Sender: TObject);
    procedure UserNameEditingDone(Sender: TObject);
    procedure UseSystemDefaultCSChange(Sender: TObject);
    procedure UseWireCompressionEditingDone(Sender: TObject);
  private
    { Private declarations }
    Database: TIBDatabase;
    FChanging: boolean;
    function Edit: Boolean;
    procedure AddParam(aName, aValue: string);
    procedure DeleteParam(aName: string);
    procedure UpdateParamEditBoxes;
  public
    { Public declarations }
  end;

var
  IBDatabaseEditForm: TIBDatabaseEditForm;

  function EditIBDatabase(ADatabase: TIBDatabase): Boolean;

implementation

{$R *.lfm}

uses TypInfo, IBMessages, IBUtils;

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

procedure TIBDatabaseEditForm.AddParam(aName, aValue: string);
begin
  if Trim(aValue) = '' then
    DeleteParam(aName)
  else
    DatabaseParams.Lines.Values[aName] := Trim(aValue);
end;

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

procedure TIBDatabaseEditForm.UpdateParamEditBoxes;
var st: string;
begin
  UserName.Text := DatabaseParams.Lines.Values['user_name'];
  Password.Text := DatabaseParams.Lines.Values['password'];
  SQLRole.Text := DatabaseParams.Lines.Values['sql_role_name'];
  st := DatabaseParams.Lines.Values['lc_ctype'];
  if (st <> '') then
    CharacterSet.ItemIndex := CharacterSet.Items.IndexOf(st)
  else
    CharacterSet.ItemIndex := -1;
end;

function TIBDatabaseEditForm.Edit: Boolean;
var
  aServerName: string;
  aDatabaseName: string;
  aProtocol: TProtocolAll;
  aPortNo: string;

begin
  if ParseConnectString(Database.DatabaseName, aServerName, aDatabaseName, aProtocol, aPortNo) then
  begin
    ServerName.Text := aServerName;
    DatabasePath.Text := aDatabaseName;
    Protocol.ItemIndex := ord(aProtocol);
    PortNo.Text := aPortNo;
  end;
  ProtocolCloseUp(nil);
  ConnectionTypeBtnSelectionChanged(nil);
  DatabaseParams.Lines.Assign(Database.Params);
  ConfigOverrides.Lines.Assign(Database.ConfigOverrides);
  LoginPrompt.Checked := Database.LoginPrompt;
  UpdateParamEditBoxes;
  UseSystemDefaultCS.Checked := Database.UseDefaultSystemCodePage;
  UseWireCompression.Checked := Database.WireCompression;
  Result := False;
  if ShowModal = mrOk then
  begin
    Database.DatabaseName := MakeConnectString(ServerName.Text, DatabasePath.Text,
      TProtocolAll(Protocol.ItemIndex), PortNo.Text);
    Database.Params.Assign(DatabaseParams.Lines);
    Database.ConfigOverrides.Assign(ConfigOverrides.Lines);
    Database.LoginPrompt := LoginPrompt.Checked;
    Database.UseDefaultSystemCodePage := UseSystemDefaultCS.Checked;
    Result := True;
  end;
end;

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

procedure TIBDatabaseEditForm.ConfigOverridesEditingDone(Sender: TObject);
begin
  FChanging := true;
  try
    UseWireCompression.Checked := CompareText(ConfigOverrides.Lines.Values['WireCompression'],'true') = 0;
  finally
    FChanging := false;
  end;
end;

procedure TIBDatabaseEditForm.DatabaseParamsEditingDone(Sender: TObject);
begin
  UpdateParamEditBoxes;
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.PasswordEditingDone(Sender: TObject);
begin
  AddParam('password', Password.Text);
end;

procedure TIBDatabaseEditForm.ProtocolCloseUp(Sender: TObject);
begin
  if Protocol.ItemIndex = 3 then
    ConnectionTypeBtn.ItemIndex := 0
  else
    ConnectionTypeBtn.ItemIndex := 1;
end;

procedure TIBDatabaseEditForm.ConnectionTypeBtnSelectionChanged(Sender: TObject);
begin
  if ConnectionTypeBtn.ItemIndex > 0 then
  begin
    Browse.Enabled := False;
    Label7.Enabled := True;
    Label8.Enabled := True;
    Protocol.Enabled := True;
    ServerName.Enabled := True;
    if Protocol.ItemIndex = 3 then
      Protocol.ItemIndex := 4;
  end
  else
  begin
    Browse.Enabled := True;
    Label7.Enabled := False;
    Label8.Enabled := true;
    ServerName.Text := '';
    ServerName.Enabled := False;
    Protocol.Enabled := true;
    Protocol.ItemIndex := 3;
  end;
end;

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

procedure TIBDatabaseEditForm.CharacterSetChange(Sender: TObject);
begin
  if (CharacterSet.ItemIndex <> -1 ) 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
    tempDB.DatabaseName := MakeConnectString(ServerName.Text, DatabasePath.Text,
      TProtocolAll(Protocol.ItemIndex), PortNo.Text);
    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;

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

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

procedure TIBDatabaseEditForm.UseWireCompressionEditingDone(Sender: TObject);
var Index: integer;
begin
  if FChanging then Exit;
  if UseWireCompression.Checked then
    ConfigOverrides.Lines.Values['WireCompression'] := 'true'
  else
  begin
    Index := ConfigOverrides.Lines.IndexOfName('WireCompression');
    if Index <> -1 then
      ConfigOverrides.Lines.Delete(Index);
  end;
end;


end.
Revision:	291
Committed:	Fri Apr 17 10:26:08 2020 UTC (4 years, 8 months ago) by tony
Content type:	text/x-pascal
File size:	11321 byte(s)
Log Message:	Changed for 2.3.4 merged into public release
#	User	Rev	Content
1	tony	33	{************************************************************************}
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	tony	45	{ $G+} (* Imported data: On *)
36	tony	33	{$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	tony	45	{ $U+} (* Pentim-safe FDIVs: On *)
44	tony	33	{$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	tony	45	SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
52	tony	231	StdCtrls, ExtCtrls, IBDatabase, IB, LResources;
53	tony	33
54			type
55
56			{ TIBDatabaseEditForm }
57
58			TIBDatabaseEditForm = class(TForm)
59	tony	231	Browse: TButton;
60	tony	267	UseWireCompression: TCheckBox;
61	tony	231	DatabasePath: TEdit;
62			Label1: TLabel;
63	tony	267	Label10: TLabel;
64	tony	231	Label7: TLabel;
65			Label8: TLabel;
66			Label9: TLabel;
67	tony	267	ConfigOverrides: TMemo;
68	tony	231	PortNo: TEdit;
69			Protocol: TComboBox;
70			ConnectionTypeBtn: TRadioGroup;
71			ServerName: TEdit;
72	tony	39	UseSystemDefaultCS: TCheckBox;
73	tony	33	Panel1: TPanel;
74			GroupBox1: TGroupBox;
75			UserName: TEdit;
76			Password: TEdit;
77			SQLRole: TEdit;
78			Label2: TLabel;
79			Label3: TLabel;
80			Label4: TLabel;
81			DatabaseParams: TMemo;
82			OKBtn: TButton;
83			CancelBtn: TButton;
84			Label5: TLabel;
85			LoginPrompt: TCheckBox;
86			Label6: TLabel;
87			CharacterSet: TComboBox;
88			Test: TButton;
89			procedure BrowseClick(Sender: TObject);
90	tony	267	procedure ConfigOverridesEditingDone(Sender: TObject);
91	tony	231	procedure DatabaseParamsEditingDone(Sender: TObject);
92	tony	33	procedure OKBtnClick(Sender: TObject);
93			procedure FormCreate(Sender: TObject);
94			procedure HelpBtnClick(Sender: TObject);
95	tony	231	procedure PasswordEditingDone(Sender: TObject);
96			procedure ProtocolCloseUp(Sender: TObject);
97			procedure ConnectionTypeBtnSelectionChanged(Sender: TObject);
98			procedure SQLRoleEditingDone(Sender: TObject);
99	tony	33	procedure CharacterSetChange(Sender: TObject);
100			procedure TestClick(Sender: TObject);
101	tony	231	procedure UserNameEditingDone(Sender: TObject);
102	tony	39	procedure UseSystemDefaultCSChange(Sender: TObject);
103	tony	267	procedure UseWireCompressionEditingDone(Sender: TObject);
104	tony	33	private
105			{ Private declarations }
106			Database: TIBDatabase;
107	tony	267	FChanging: boolean;
108	tony	33	function Edit: Boolean;
109	tony	231	procedure AddParam(aName, aValue: string);
110			procedure DeleteParam(aName: string);
111			procedure UpdateParamEditBoxes;
112	tony	33	public
113			{ Public declarations }
114			end;
115
116			var
117			IBDatabaseEditForm: TIBDatabaseEditForm;
118
119			function EditIBDatabase(ADatabase: TIBDatabase): Boolean;
120
121			implementation
122
123			{$R *.lfm}
124
125	tony	291	uses TypInfo, IBMessages, IBUtils;
126	tony	33
127			function EditIBDatabase(ADatabase: TIBDatabase): Boolean;
128			begin
129			with TIBDatabaseEditForm.Create(Application) do
130			try
131			Database := ADatabase;
132			Result := Edit;
133			finally
134			Free;
135			end;
136			end;
137
138	tony	231	procedure TIBDatabaseEditForm.AddParam(aName, aValue: string);
139	tony	33	begin
140	tony	231	if Trim(aValue) = '' then
141			DeleteParam(aName)
142			else
143			DatabaseParams.Lines.Values[aName] := Trim(aValue);
144	tony	33	end;
145
146	tony	231	procedure TIBDatabaseEditForm.DeleteParam(aName: string);
147	tony	33	var
148			i: Integer;
149			begin
150			for i := 0 to DatabaseParams.Lines.Count - 1 do
151			begin
152	tony	231	if (Pos(aName, LowerCase(DatabaseParams.Lines.Names[i])) = 1) then {mbcs ok}
153	tony	33	begin
154	tony	231	DatabaseParams.Lines.Delete(i);
155	tony	33	break;
156			end;
157			end;
158			end;
159
160	tony	231	procedure TIBDatabaseEditForm.UpdateParamEditBoxes;
161			var st: string;
162	tony	33	begin
163	tony	231	UserName.Text := DatabaseParams.Lines.Values['user_name'];
164			Password.Text := DatabaseParams.Lines.Values['password'];
165			SQLRole.Text := DatabaseParams.Lines.Values['sql_role_name'];
166			st := DatabaseParams.Lines.Values['lc_ctype'];
167			if (st <> '') then
168			CharacterSet.ItemIndex := CharacterSet.Items.IndexOf(st)
169			else
170			CharacterSet.ItemIndex := -1;
171	tony	33	end;
172
173			function TIBDatabaseEditForm.Edit: Boolean;
174			var
175	tony	231	aServerName: string;
176			aDatabaseName: string;
177			aProtocol: TProtocolAll;
178			aPortNo: string;
179	tony	33
180	tony	231	begin
181			if ParseConnectString(Database.DatabaseName, aServerName, aDatabaseName, aProtocol, aPortNo) then
182	tony	33	begin
183	tony	231	ServerName.Text := aServerName;
184			DatabasePath.Text := aDatabaseName;
185			Protocol.ItemIndex := ord(aProtocol);
186			PortNo.Text := aPortNo;
187	tony	33	end;
188	tony	231	ProtocolCloseUp(nil);
189			ConnectionTypeBtnSelectionChanged(nil);
190	tony	267	DatabaseParams.Lines.Assign(Database.Params);
191			ConfigOverrides.Lines.Assign(Database.ConfigOverrides);
192	tony	33	LoginPrompt.Checked := Database.LoginPrompt;
193	tony	231	UpdateParamEditBoxes;
194			UseSystemDefaultCS.Checked := Database.UseDefaultSystemCodePage;
195	tony	267	UseWireCompression.Checked := Database.WireCompression;
196	tony	33	Result := False;
197			if ShowModal = mrOk then
198			begin
199	tony	231	Database.DatabaseName := MakeConnectString(ServerName.Text, DatabasePath.Text,
200			TProtocolAll(Protocol.ItemIndex), PortNo.Text);
201	tony	267	Database.Params.Assign(DatabaseParams.Lines);
202			Database.ConfigOverrides.Assign(ConfigOverrides.Lines);
203	tony	33	Database.LoginPrompt := LoginPrompt.Checked;
204	tony	39	Database.UseDefaultSystemCodePage := UseSystemDefaultCS.Checked;
205	tony	33	Result := True;
206			end;
207			end;
208
209			procedure TIBDatabaseEditForm.BrowseClick(Sender: TObject);
210			begin
211			with TOpenDialog.Create(Application) do
212			try
213	tony	231	InitialDir := ExtractFilePath(DatabasePath.Text);
214	tony	33	Filter := SDatabaseFilter;
215			if Execute then
216	tony	231	DatabasePath.Text := FileName;
217	tony	33	finally
218			Free
219			end;
220			end;
221
222	tony	267	procedure TIBDatabaseEditForm.ConfigOverridesEditingDone(Sender: TObject);
223			begin
224			FChanging := true;
225			try
226			UseWireCompression.Checked := CompareText(ConfigOverrides.Lines.Values['WireCompression'],'true') = 0;
227			finally
228			FChanging := false;
229			end;
230			end;
231
232	tony	231	procedure TIBDatabaseEditForm.DatabaseParamsEditingDone(Sender: TObject);
233	tony	33	begin
234	tony	231	UpdateParamEditBoxes;
235	tony	33	end;
236
237			procedure TIBDatabaseEditForm.OKBtnClick(Sender: TObject);
238			begin
239			ModalResult := mrNone;
240			if Database.Connected then
241			begin
242			if MessageDlg(SDisconnectDatabase, mtConfirmation,
243			mbOkCancel, 0) <> mrOk then Exit;
244			Database.Close;
245			end;
246			ModalResult := mrOk;
247			end;
248
249			procedure TIBDatabaseEditForm.FormCreate(Sender: TObject);
250			begin
251			// HelpContext := hcDIBDataBaseEdit;
252			end;
253
254			procedure TIBDatabaseEditForm.HelpBtnClick(Sender: TObject);
255			begin
256			Application.HelpContext(HelpContext);
257			end;
258
259	tony	231	procedure TIBDatabaseEditForm.PasswordEditingDone(Sender: TObject);
260	tony	33	begin
261	tony	231	AddParam('password', Password.Text);
262	tony	33	end;
263
264	tony	231	procedure TIBDatabaseEditForm.ProtocolCloseUp(Sender: TObject);
265	tony	33	begin
266	tony	231	if Protocol.ItemIndex = 3 then
267			ConnectionTypeBtn.ItemIndex := 0
268			else
269			ConnectionTypeBtn.ItemIndex := 1;
270	tony	33	end;
271
272	tony	231	procedure TIBDatabaseEditForm.ConnectionTypeBtnSelectionChanged(Sender: TObject);
273	tony	33	begin
274	tony	231	if ConnectionTypeBtn.ItemIndex > 0 then
275			begin
276			Browse.Enabled := False;
277			Label7.Enabled := True;
278			Label8.Enabled := True;
279			Protocol.Enabled := True;
280			ServerName.Enabled := True;
281			if Protocol.ItemIndex = 3 then
282			Protocol.ItemIndex := 4;
283			end
284			else
285			begin
286			Browse.Enabled := True;
287			Label7.Enabled := False;
288			Label8.Enabled := true;
289			ServerName.Text := '';
290			ServerName.Enabled := False;
291			Protocol.Enabled := true;
292			Protocol.ItemIndex := 3;
293			end;
294			end;
295
296			procedure TIBDatabaseEditForm.SQLRoleEditingDone(Sender: TObject);
297			begin
298	tony	33	AddParam('sql_role_name', SQLRole.Text);
299			end;
300
301			procedure TIBDatabaseEditForm.CharacterSetChange(Sender: TObject);
302			begin
303	tony	231	if (CharacterSet.ItemIndex <> -1 ) then {do not localize}
304	tony	33	AddParam('lc_ctype', CharacterSet.Text)
305			else
306			DeleteParam('lc_ctype');
307			end;
308
309			procedure TIBDatabaseEditForm.TestClick(Sender: TObject);
310			var
311			tempDB : TIBDatabase;
312			begin
313			Test.Enabled := false;
314			tempDB := TIBDatabase.Create(nil);
315			try
316	tony	231	tempDB.DatabaseName := MakeConnectString(ServerName.Text, DatabasePath.Text,
317			TProtocolAll(Protocol.ItemIndex), PortNo.Text);
318	tony	33	tempDB.Params.Assign(DatabaseParams.Lines);
319			tempDB.LoginPrompt := LoginPrompt.Checked;
320			try
321			tempDB.Connected := true;
322			ShowMessage('Successful Connection');
323			except on E: Exception do
324			ShowMessage(E.Message)
325			end;
326			finally
327			tempDB.Free;
328			Test.Enabled := true;
329			end;
330			end;
331
332	tony	231	procedure TIBDatabaseEditForm.UserNameEditingDone(Sender: TObject);
333			begin
334			AddParam('user_name', UserName.Text);
335			end;
336
337	tony	39	procedure TIBDatabaseEditForm.UseSystemDefaultCSChange(Sender: TObject);
338			begin
339			CharacterSet.Enabled := not UseSystemDefaultCS.Checked;
340			if UseSystemDefaultCS.Checked then
341			DeleteParam('lc_ctype')
342			else
343			if (CharacterSet.Text <> 'None') then {do not localize}
344			AddParam('lc_ctype', CharacterSet.Text)
345			end;
346	tony	33
347	tony	267	procedure TIBDatabaseEditForm.UseWireCompressionEditingDone(Sender: TObject);
348			var Index: integer;
349			begin
350			if FChanging then Exit;
351			if UseWireCompression.Checked then
352			ConfigOverrides.Lines.Values['WireCompression'] := 'true'
353			else
354			begin
355			Index := ConfigOverrides.Lines.IndexOfName('WireCompression');
356			if Index <> -1 then
357			ConfigOverrides.Lines.Delete(Index);
358			end;
359			end;
360	tony	39
361	tony	267
362	tony	33	end.