ulogin.pas

连锁药店源码,开发环境 d6 up2, sqlserver200

unit Ulogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,udm, StdCtrls, DBCtrls, Buttons, ExtCtrls, Menus, Mask, DBCtrlsEh,
  DBLookupEh;

type
  TFlogin = class(TForm)
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    btok: TBitBtn;
    btno: TBitBtn;
    yh: TDBLookupComboboxEh;
    procedure FormShow(Sender: TObject);
    procedure btokClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure btnoClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    check:boolean;
    Ftimes:integer;{ Private declarations }
  public
    procedure iniapp(qx:int64);

    { Public declarations }
  end;

var
  Flogin: TFlogin;

implementation
uses umain;
{$R *.dfm}

procedure TFlogin.FormShow(Sender: TObject);
begin
 
  Ftimes:=0;
  check:=false;
  yh.SetFocus;
  edit2.text:='';
end;

procedure TFlogin.btokClick(Sender: TObject);
var mm:string;qx:int64;
begin
   Ftimes:=Ftimes+1;
   mm:=trim(adodm.tuser.Fieldbyname('password').AsString);
   qx:=adodm.tuser.FieldValues['able'];
   if (mm=trim(edit2.text)) and  (qx>1000000000) then
      begin

      
      fmain.auser.name:=adodm.tuser.FieldValues['oper'];
      fmain.auser.qx:=qx;
      fmain.auser.id:=adodm.tuser.fieldvalues['userid'];

      adodm.toper.Open;
      adodm.toper.append;
      adodm.toper.FieldByName('登录时间').AsDateTime:=now;
      adodm.toper.FieldByName('userid').AsVariant:=fmain.auser.id;
      adodm.toper.Post;

      adodm.toper.Last;
      fmain.operid:=adodm.toper.FieldByName('operid').AsVariant ;
      iniapp(qx);
     // showmessage(inttostr(fmain.operid));

      flogin.Close;
      end
   else
   if ftimes<3 then
   if mm<>trim(edit2.Text) then
   begin
      showmessage('密码不对,请重新录入!');
      edit2.SetFocus;
      exit;
   end else
   begin
       showmessage('你的权限数据被破坏!请与管理员联系重新分配!');
       yh.SetFocus;
       exit;
   end
   else
   begin
   showmessage('对不起,你没有通过口令认证!');
   application.Terminate;
   end;



end;

procedure TFlogin.iniapp(qx: int64);
var i,j:integer;
begin
  for i:=0 to fmain.MainMenu1.items.Count-1 do
   for j:=0 to fmain.MainMenu1.Items[i].Count-1 do
   fmain.MainMenu1.items[i].Items[j].Enabled:=false;
    qx:=qx xor 1234567890;
   qx:=qx shr 10;
   for i:=0 to 6 do //共有7 种权限
   if ((1 shl i) and qx)<>0 then
   case i of

     0:begin
        fmain.ls1.Enabled:=true;
        fmain.pf1.Enabled:=true;
        fmain.crlist1.Enabled:=true;
        end;
     1:begin
        fmain.rk1.Enabled:=true;
        fmain.ty1.Enabled:=true;
        fmain.bs1.Enabled:=true;
        fmain.xl1.Enabled:=true;
        fmain.pd1.Enabled:=true;
        fmain.kclist1.Enabled:=true;

       end;
     2:begin
        fmain.xstj.Enabled:=true;
        fmain.kctj.Enabled:=true;
        fmain.djsearch.Enabled:=true;
        fmain.support.Enabled:=true;
       end;
     3:begin
        fmain.yplist1.Enabled:=true;
        fmain.ypadd.Enabled:=true;
        fmain.ypedit.Enabled:=true;
        fmain.ypprice.Enabled:=true;
       end;
     4:begin
        fmain.yg1.Enabled:=true;
        fmain.bm1.Enabled:=true;
        fmain.company1.Enabled:=true;
       end;
     5:begin
        fmain.user1.Enabled:=true;
       end;
     6:begin
        fmain.back1.Enabled:=true;
       end;

     end;
        fmain.mm.Enabled:=true;
        fmain.relogin.Enabled:=true;
        fmain.quit.Enabled:=true;
        fmain.systemhelp.Enabled:=true;
        fmain.about.Enabled:=true;
        
        check:=true;
        fmain.StatusBar1.Panels[1].Text:='操作员:'+fmain.auser.name;
        fmain.StatusBar1.Panels[2].Text:='鞍山威特软件开发服务中心 Tel:[phone]';
end;

procedure TFlogin.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if not check then
 btno.Click
else canclose:=true;
end;

procedure TFlogin.btnoClick(Sender: TObject);
begin
  application.Terminate;

end;

procedure TFlogin.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=vk_return then
  sendmessage(handle,wm_keydown,vk_tab,0);
end;

end.