zflogin.pas

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

unit ZFLogin;

interface

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

type
  TLogin = class(TForm)
    BtnOk: TBitBtn;
    BtnCancel: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    EditUid: TEdit;
    EditPwd: TEdit;
    Image1: TImage;
    procedure BtnCancelClick(Sender: TObject);
    procedure BtnOkClick(Sender: TObject);
  private

    { Private declarations }
  public
    { Public declarations }
  end;

var
  Login: TLogin;

implementation

uses Main,publicfun;
{$R *.dfm}

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

procedure TLogin.BtnOkClick(Sender: TObject);
var
  Main : TFormmain;
  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
           Main := TFormmain.Create(application);
           Main.Show;
           Self.Hide;
         end;
      1: begin
           showmessage('用户代码错误，请重新输入！');
           EditUid.SetFocus;
         end;
      2: begin
           showmessage('用户口令错误，请重新输入！');
           EditPwd.SetFocus;
         end;
      else
        showmessage('无法验证用户登录！');
    end;
  end
  else
    showmessage('无法连接报表系统数据库！');

end;

end.