xueshengxinxinasadj.txt

来自「delphi源码」· 文本 代码 · 共 74 行

if user.Text=''  then
   Application.MessageBox('账号或密码不能为空','提示',MB_Ok)
   else
 begin
 adoquery1.SQL.Clear ;
 cmdstr:='select * from 用户信息表 where ID='+quotedstr(user.Text)
   +'and Password='+quotedstr(password.Text);
 adoquery1.SQL.Add(cmdstr);
 adoquery1.Open;
  if adoquery1.RecordCount<>0 then
   begin
    f_Main:=tf_Main.Create(self);
    usrtype:=adoquery1.FieldList[3].AsInteger;
    if usrtype=0 then                              //管理员
      begin
        f_main.ToolBar2.Visible:= true;
        F_main.n1.Enabled:=true;
        F_main.n3.Enabled:=true;
        F_main.n2.Enabled:=true;
        F_main.n4.Enabled:=true;
        F_main.n13.Enabled:=true;
      end
    else if(usrtype=1)then                       //收银员
      begin
        f_main.ToolBar2.Visible:= true;
        F_main.n1.Enabled:=true;
        F_main.n3.Enabled:=false;
        F_main.n2.Enabled:=true;
        F_main.ToolButton5.Enabled := true;
        F_main.n4.Enabled:=false;
        F_main.n13.Enabled:=false;
        F_main.ToolButton3.Enabled := False;
        F_main.btn1.Enabled := False;
      end
      else if(usrtype=2)then                      //药品入库员
      begin
      f_main.ToolBar2.Visible:= true;
        F_main.ToolButton3.Enabled:=true;
        F_main.btn1.Enabled:=true;
        F_main.n13.Enabled:=true;
        F_main.ToolButton1.Enabled:=false;
        F_main.ToolButton2.Enabled:=false;
        F_main.ToolButton5.Enabled:=false;
        F_main.n1.Enabled:=false;
        F_main.n2.Enabled:=false;
        F_main.n3.Enabled:=false;
        F_main.n4.Enabled:=false;
      end
      else
      begin
        F_main.ToolButton3.Enabled:=false;
        F_main.btn1.Enabled:=false;
        F_main.n13.Enabled:=false;
        F_main.ToolButton1.Enabled:=false;
        F_main.ToolButton2.Enabled:=false;
        F_main.ToolButton5.Enabled:=false;
        F_main.n1.Enabled:=false;
        F_main.n3.Enabled:=false;
        F_main.n2.Enabled:=false;
        F_main.n4.Enabled:=false;
      end;
      F_main.Operator:=user.Text;
      F_main.Popedom:=IntToStr(usrtype);
      user.Text:='';
      password.Text:='';
   f_Main.Show;
   self.hide;
   end
   else
   if (messagedlg('输入的用户名或密码不存在！是否要重输？',
      mtinformation,[mbyes,mbno],0)=mryes) then
      user.Text:='';
      password.Text:='';
   end