login.pas

一个初级的条码应用管理系统,应用于DT9

unit login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls;

type
  TFormlogin = class(TForm)
    Label1: TLabel;
    Edit2: TEdit;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    ADOQuery1: TADOQuery;
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formlogin: TFormlogin;

implementation
 uses main, datamodel;
{$R *.dfm}

procedure TFormlogin.Button1Click(Sender: TObject);
var
  user,pass,temp:string;

   begin
      user:=ComboBox1.Text;
      pass:=edit2.Text;

         ADOQuery1.Close;
         ADOQuery1.SQL.Clear;
         ADOQuery1.SQL.Text:='select 用户名 from 用户 where 用户名='''+user+''' and 密码 ='''+pass+'''';
         ADOQuery1.Open;
        temp:=ADOQuery1.Fieldbyname('用户名').AsString;
        if temp<>'' then
           begin
           //先将所有按钮置为不可用
           formmain.Button1.Enabled:=false; //系统管理
           formmain.Button3.Enabled:=false;//入库管理
           formmain.Button5.Enabled:=false;//库存预警
           formmain.Button6.Enabled:=false; //出库管理
               {检查用户是否有系统管理权限}
              ADOQuery1.Close;
              ADOQuery1.SQL.Clear;
              ADOQuery1.SQL.Text:='select 权限序号 from 权限清单 where 用户名='''+temp+''' and 权限名称=''系统设置''';
              ADOQuery1.Open;
            if ADOQuery1.FieldByName('权限序号').AsString<>'' then
              formmain.Button1.Enabled:=true;

               {检查是否有入库管理权限}
               ADOQuery1.Close;
               ADOQuery1.SQL.Clear;
               ADOQuery1.SQL.Text:='select 权限序号 from 权限清单 where 用户名='''+temp+''' and 权限名称=''入库管理''';
               ADOQuery1.Open;
            if ADOQuery1.FieldByName('权限序号').AsString<>'' then
              formmain.Button3.Enabled:=true;

              {检查是否具有库存预警权限}

               ADOQuery1.Close;
               ADOQuery1.SQL.Clear;
               ADOQuery1.SQL.Text:='select 权限序号 from 权限清单 where 用户名='''+temp+''' and 权限名称=''库存预警''';
               ADOQuery1.Open;
            if ADOQuery1.FieldByName('权限序号').AsString<>'' then
              formmain.Button5.Enabled:=true;

              {检查是否具有出库管理权限}
               ADOQuery1.Close;
               ADOQuery1.SQL.Clear;
               ADOQuery1.SQL.Text:='select 权限序号 from 权限清单 where 用户名='''+temp+''' and 权限名称=''出库管理''';
               ADOQuery1.Open;
            if ADOQuery1.FieldByName('权限序号').AsString<>'' then
              formmain.Button6.Enabled:=true;
  //------------登陆成功------

             formmain.Show;
             formlogin.Hide;
           end
   //--------登陆失败----

              else
               begin
                showmessage('密码错误，请检查后重新输入');
                end
        end;
    //------登陆窗口再次显示时，清空原来的密码

                         

procedure TFormlogin.FormShow(Sender: TObject);
begin
edit2.Clear;
end;

procedure TFormlogin.FormCreate(Sender: TObject);
begin
combobox1.Items.Add('administrator');
combobox1.Items.Add('仓库管理员');
combobox1.Items.Add('销售人员');
end;

end.