login1.pas

北京铁路局住房分配系统,数据库为MSSql2000,依次执行crebas4.sql

unit Login1;

interface

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

type
  TFormLogin = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    EditUid: TEdit;
    EditPwd: TEdit;
    BtnOk: TBitBtn;
    BtnCancel: TBitBtn;
    procedure BtnOkClick(Sender: TObject);
    procedure BtnCancelClick(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormLogin: TFormLogin;

implementation

uses Main,publicfun,cssz;

{$R *.dfm}

procedure TFormLogin.BtnOkClick(Sender: TObject);
var
  Formmain: TFormmain;
  FormCssz: TFormCssz;
  cUid, cPwd : string;
  nRet : smallint;
begin
  if Connect()=0 then
  begin
    cUid := trim(EditUid.Text );
    cPwd := trim(EditPwd.Text );
    nRet := fLogin(cUid,cPwd);
    case nRet of
      0: begin
           Formmain := TFormmain.Create(application);
           Formmain.Show;
           Self.Hide;
         end;
      1: begin
           showmessage('用户代码错误，请重新输入！');
           EditUid.SetFocus;
         end;
      2: begin
           showmessage('用户口令错误，请重新输入！');
           EditPwd.SetFocus;
         end;
      else
        showmessage('无法验证用户登录！');
    end;
  end
  else
    begin
      showmessage('无法连接报表系统数据库,请设置连接参数！');
      FormCssz:= TFormCssz.Create(application);
      FormCssz.ShowModal;
    end;


end;

procedure TFormLogin.BtnCancelClick(Sender: TObject);
begin
  Close;
end;

procedure TFormLogin.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    begin
      Key := #0;
      Perform(WM_NEXTDLGCTL,0,0);
    end;
end;

end.