source: trunk/Packages/ChronisPlatform/Forms/UFormConnection.pas

unit UFormConnection;

{$mode delphi}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  maskedit, USqlDatabase;

type

  { TFormConnection }

  TFormConnection = class(TForm)
    ButtonConnect: TButton;
    ButtonCancel: TButton;
    EditHostName: TEdit;
    EditUserName: TEdit;
    EditSchema: TEdit;
    EditPassword: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
  private
    { private declarations }
  public
    procedure LoadFromDatabase(Database: TSqlDatabase);
    procedure SaveToDatabase(Database: TSqlDatabase);
  end;

var
  FormConnection: TFormConnection;

implementation

{$R *.lfm}

{ TFormConnection }

procedure TFormConnection.LoadFromDatabase(Database: TSqlDatabase);
begin
  EditHostName.Text := Database.HostName;
  EditUserName.Text := Database.UserName;
  EditPassword.Text := '';
  EditSchema.Text := Database.Database;
end;

procedure TFormConnection.SaveToDatabase(Database: TSqlDatabase);
begin
  Database.HostName := EditHostName.Text;
  Database.UserName := EditUserName.Text;
  Database.Password := EditPassword.Text;
  Database.Database := EditSchema.Text;
end;

end.