formlogin.~pas

这是一个关于药品进销存的管理软件

unit FormLogin;

interface

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

type
  Tlogin = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    ADOQuery1: TADOQuery;
    ADOCommand1: TADOCommand;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  login: Tlogin;

implementation

uses FormManage, FormQidongping;

{$R *.dfm}

procedure Tlogin.Button1Click(Sender: TObject);
var
num,user,pass,temp,temp2,baohu2:string;
baohu:integer;

begin
  //------------------根据用户输入的密码和帐号进行查询----------
 //保存用户输入的帐号和密码
 user:=edit2.Text;
 pass:=Edit3.Text;
//使用ADOQuery1组件时要养成好的习惯，先将其关闭，
//将原来的SQL语句清除后再添加新的SQL语句
 ADOQuery1.Close;
 ADOQuery1.SQL.Clear;
 ADOQuery1.SQL.Text:='select 用户编号 from 用户信息 where 用户名='''+user+'''and 密码='''+pass+'''';
 Adoquery1.Open;
 temp:=adoquery1.FieldByName('用户编号').AsString;
 if temp<>'' then
 begin

    adoquery1.Close;
    adoquery1.SQL.Clear;
    adoquery1.SQl.Text:='select 权限 from 用户信息 where 用户名='''+user+'''and 密码='''+pass+'''';
    Adoquery1.Open;

    temp2:=adoquery1.fieldbyname('权限').AsString;
    showmessage(temp2);

    if temp2='系统管理员' then
    begin
      manage.N1.enabled:=true;
      manage.N6.Enabled:=true;
      manage.N35.Enabled:=true;
      manage.N36.Enabled:=true;
      manage.N14.Enabled:=true;
      manage.n18.Enabled:=true;
      manage.N23.Enabled:=true;
      manage.button2.Enabled:=true;
      manage.Button3.Enabled:=true;
      manage.Button4.Enabled:=true;
      manage.show;
      login.Close;
 
    end;
    if temp2='进货管理员' then
    begin
      manage.N1.Enabled:=true;
      manage.N2.Enabled:=true;
      manage.N3.Enabled:=false;
      manage.N4.Enabled:=false;
      manage.N5.Enabled:=false;
      manage.N6.Enabled:=true;
      manage.N35.Enabled:=true;
      manage.N14.Enabled:=true;
      manage.N27.Enabled:=true;
      manage.Button2.Enabled:=true;
      manage.Button3.Enabled:=false;
      manage.Button4.Enabled:=true;
      manage.Show;
      login.Close;

    end;
    if temp2='统计查看员' then
    begin
       manage.N1.Enabled:=true;
      manage.N2.Enabled:=true;
      manage.N3.Enabled:=false;
      manage.N4.Enabled:=false;
      manage.N5.Enabled:=false;
      manage.N6.Enabled:=true;
      manage.N35.Enabled:=false;
      manage.N14.Enabled:=true;
      manage.N15.Enabled:=false;
      manage.N16.Enabled:=true;
      manage.N17.Enabled:=true;
      manage.N18.Enabled:=true;
      manage.N19.Enabled:=false;
      manage.N20.Enabled:=true;
      manage.N21.Enabled:=true;
      manage.N22.Enabled:=true;
      manage.Button2.Enabled:=false;
      manage.Button3.Enabled:=false;
      manage.Button4.Enabled:=true;
      manage.Show;
      login.Close;

      end;
      if temp2='销售管理员' then
      begin
      manage.N1.Enabled:=true;
      manage.N2.Enabled:=true;
      manage.N3.Enabled:=true;
      manage.N4.Enabled:=false;
      manage.N5.Enabled:=false;
      manage.N6.Enabled:=true;
      manage.N35.Enabled:=false;
      manage.N14.Enabled:=false;
      manage.N18.Enabled:=true;
      manage.N23.Enabled:=false;
      manage.Button2.Enabled:=false;
      manage.Button3.Enabled:=true;
      manage.Button4.Enabled:=true;
      manage.Show;
      login.Close;

      end;
 end;
 if temp='' then
 begin
 showmessage('密码不对，请重新输入');
 adoquery1.Close;
 adoquery1.SQL.Clear;
 adoquery1.SQL.Text:='select max(编号) as 最大编号 from 输入保护';
 adoquery1.Open;
 baohu:=adoquery1.fieldbyname('最大编号').AsInteger;

 if baohu=3 then
   begin
   adocommand1.CommandText:='update 输入保护 set 编号=0 where 查找=1';
   adocommand1.Execute;
   login.Close;

   end;
 if baohu<3 then
   begin

   baohu:=baohu+1 ;
   baohu2:=inttostr(baohu);
   adocommand1.CommandText:='update 输入保护 set 编号=d1 where 查找=1';
   adocommand1.Parameters.ParamByName('d1').Value:=baohu;
   adocommand1.Execute;

   end;
 end;
end;


procedure Tlogin.Button2Click(Sender: TObject);
begin
  login.Close;
end;

procedure Tlogin.Edit2Click(Sender: TObject);
var
temp:integer;
temp2:string;
begin
temp2:=edit1.Text;
temp:=strtoint(temp2);
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select 用户名 from 用户信息 where 用户编号='''+edit1.text+'''');
adoquery1.Open;
edit2.Text:=adoquery1.fieldbyname('用户名').asstring;
end;

procedure Tlogin.Timer1Timer(Sender: TObject);
begin
qidongping.close;
login.Show;

end;

end.