login.pas

delphi7.0+ACCESS,是以前做过的一个档案资料管理信息系统

unit Login;

interface

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

type
  TLoginFrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    DBComboBox1: TDBComboBox;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label3: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    User:string;
  end;

var
  LoginFrm: TLoginFrm;
implementation
  uses DataModule,Main;
{$R *.dfm}

procedure TLoginFrm.BitBtn1Click(Sender: TObject);
var
  s:string;
begin
  with DM.ADOQuery1 do
    begin
     close;
     SQl.Clear;
     SQL.Add('Select User_Password,User_Name from Archives_User where'+' User_ID='+DBComboBox1.Text+' and'+' User_Password'+'='+Edit1.text);
     open;
    end;
    if DM.ADOQuery1.RecordCount<1 then
      begin
       MessageDlg('密码不对',mtWarning,[mbOk],0);
       edit1.Text:='******';
       showmessage('密码不对！请联系管理员获取密码再登录！');
       DM.ADOConnection1.Connected:=false;
       MainFrm.Login:=false;
       LoginFrm.close;
      end
    else
      begin
       User:=DM.ADOQuery1.FieldValues['User_Name'];
       MainFrm.Login:=true;
       MainFrm.Show;
       edit1.Text:='******';
       LoginFrm.close;
      end;
end;

procedure TLoginFrm.BitBtn2Click(Sender: TObject);
begin
   MainFrm.M_Login.Enabled:=true;
   MainFrm.M_Disconnect.Enabled:=false;
   MainFrm.M_Class.Enabled:=false;
   MainFrm.M_Tank.Enabled:=false;
   MainFrm.M_Manage.Enabled:=false;
   MainFrm.M_Borrow.Enabled:=false;
   MainFrm.M_Rerurn.Enabled:=false;
   MainFrm.TB_Manage.Enabled:=false;
   MainFrm.TB_Borrow.Enabled:=false;
   MainFrm.TB_Return.Enabled:=false;
   MainFrm.M_Pass_Modify.Enabled:=false;
   MainFrm.StatusBar1.Panels[1].Text:='尚未登录！请按F2登录。';
   DM.ADOConnection1.Connected:=False;
   LoginFrm.Close;
end;

end.