TUIBDatabaseEditForm

type TUIBDatabaseEditForm = class(TForm)

  Connection: TGroupBox;

  ModeLbl: TLabel;

  ServerLbl: TLabel;

  PortLbl: TLabel;

  DatabaseLbl: TLabel;

  Mode: TComboBox;

  ServerName: TEdit;

  DatabaseName: TEdit;

  PortName: TEdit;

  Browse: TButton;

  OpenDialog: TOpenDialog;

  OkBtn: TButton;

  CancelBtn: TButton;

  Parametters: TMemo;

  UserName: TEdit;

  UserNameLbl: TLabel;

  Password: TEdit;

  PasswordLbl: TLabel;

  SQLRole: TEdit;

  SQLRoleLbl: TLabel;

  CharacterSet: TComboBox;

  CharacterSetLbl: TLabel;

  Test: TButton;

  LibraryName: TEdit;

  BrowseLib: TButton;

  LibraryNameLbl: TLabel;

  procedure ModeChange();

  procedure BrowseClick();

  procedure FormCreate();

  procedure UserNameChange();

  procedure PasswordChange();

  procedure SQLRoleChange();

  procedure CharacterSetChange();

  procedure OkBtnClick();

  procedure TestClick();

  procedure ParamettersExit();

  procedure BrowseLibClick();

public

  property Database: TUIBDataBase; [rw]

end;

TUIBDatabaseEditForm

TObject