login.pas

该系统主要用于生产采购系统

unit Login;

interface

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

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

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

procedure TLoginFrm.BitBtn2Click(Sender: TObject);
begin
  MainFrm.M_Login.Enabled:=true;
  MainFrm.M_Loginout.Enabled:=false;
  MainFrm.M_Scheme.Enabled:=false;
  LoginFrm.Close;
end;

procedure TLoginFrm.BitBtn1Click(Sender: TObject);
begin
   ID:=DBComboBox1.Text;
  with DM.AQ_User do
    begin
     close;
     SQl.Clear;
     SQL.Add('Select * from Scheme_User where User_ID='+ID+' and'+' User_Password='+''''+Edit1.text+'''');
     open;
    end;
    if DM.AQ_User.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.AQ_User.FieldValues['User_Name'];
       MainFrm.Login:=true;
       MainFrm.Show;
       edit1.Text:='******';
       LoginFrm.close;
      end;
end;


end.