u_login.~pas

《delphi数据库系统开发实例导航》源代码

unit u_login;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons;

type
  TF_login = class(TForm)
    i_server: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    i_passwd: TEdit;
    b_login: TBitBtn;
    b_exit: TBitBtn;
    procedure i_passwdChange(Sender: TObject);
    procedure b_exitClick(Sender: TObject);
    procedure b_loginClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_login: TF_login;

implementation

uses u_data, u_main;
{$R *.DFM}

procedure TF_login.i_passwdChange(Sender: TObject);
begin
  b_login.Enabled:=(length(i_passwd.Text)>0);
end;

procedure TF_login.b_exitClick(Sender: TObject);
begin
  Close;
end;

procedure TF_login.b_loginClick(Sender: TObject);
begin
  with DM_main do
  begin
    try
      Database.Params.Values['SERVER NAME']:=i_server.Text+':PMISDB';
      Database.Params.Values['USER NAME']:='PMISDBA';
      Database.Params.Values['PASSWORD']:=i_passwd.Text;
      Database.Connected:=True;
      Close;
    except
      Database.Connected:=False;
      MessageDlg('连接错误！请确认服务器地址和密码！', mtWarning, [mbOK, mbHelp], 6);
    end;
  end;
end;

end.