开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 医药行业 > 查看源码
Ulogin.pas
资源名称：连锁药店源码.rar　[点击查看]
上传用户：jiete_yjc
上传日期：2010-02-11
资源大小：422k
文件大小：4k
源码类别：

医药行业

开发平台：

Delphi

Ulogin.pas：源码内容
  1. unit Ulogin;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs,udm, StdCtrls, DBCtrls, Buttons, ExtCtrls, Menus, Mask, DBCtrlsEh,
  8.   DBLookupEh;
  10. type
  11.   TFlogin = class(TForm)
  12.     Edit2: TEdit;
  13.     Label1: TLabel;
  14.     Label2: TLabel;
  15.     btok: TBitBtn;
  16.     btno: TBitBtn;
  17.     yh: TDBLookupComboboxEh;
  18.     procedure FormShow(Sender: TObject);
  19.     procedure btokClick(Sender: TObject);
  20.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  21.     procedure btnoClick(Sender: TObject);
  22.     procedure FormKeyDown(Sender: TObject; var Key: Word;
  23.       Shift: TShiftState);
  24.   private
  25.     check:boolean;
  26.     Ftimes:integer;{ Private declarations }
  27.   public
  28.     procedure iniapp(qx:int64);
  30.     { Public declarations }
  31.   end;
  33. var
  34.   Flogin: TFlogin;
  36. implementation
  37. uses umain;
  38. {$R *.dfm}
  40. procedure TFlogin.FormShow(Sender: TObject);
  41. begin
  42.  
  43.   Ftimes:=0;
  44.   check:=false;
  45.   yh.SetFocus;
  46.   edit2.text:='';
  47. end;
  49. procedure TFlogin.btokClick(Sender: TObject);
  50. var mm:string;qx:int64;
  51. begin
  52.    Ftimes:=Ftimes+1;
  53.    mm:=trim(adodm.tuser.Fieldbyname('password').AsString);
  54.    qx:=adodm.tuser.FieldValues['able'];
  55.    if (mm=trim(edit2.text)) and  (qx>1000000000) then
  56.       begin
  58.       
  59.       fmain.auser.name:=adodm.tuser.FieldValues['oper'];
  60.       fmain.auser.qx:=qx;
  61.       fmain.auser.id:=adodm.tuser.fieldvalues['userid'];
  63.       adodm.toper.Open;
  64.       adodm.toper.append;
  65.       adodm.toper.FieldByName('登录时间').AsDateTime:=now;
  66.       adodm.toper.FieldByName('userid').AsVariant:=fmain.auser.id;
  67.       adodm.toper.Post;
  69.       adodm.toper.Last;
  70.       fmain.operid:=adodm.toper.FieldByName('operid').AsVariant ;
  71.       iniapp(qx);
  72.      // showmessage(inttostr(fmain.operid));
  74.       flogin.Close;
  75.       end
  76.    else
  77.    if ftimes<3 then
  78.    if mm<>trim(edit2.Text) then
  79.    begin
  80.       showmessage('密码不对,请重新录入!');
  81.       edit2.SetFocus;
  82.       exit;
  83.    end else
  84.    begin
  85.        showmessage('你的权限数据被破坏!请与管理员联系重新分配!');
  86.        yh.SetFocus;
  87.        exit;
  88.    end
  89.    else
  90.    begin
  91.    showmessage('对不起,你没有通过口令认证!');
  92.    application.Terminate;
  93.    end;
  97. end;
  99. procedure TFlogin.iniapp(qx: int64);
  100. var i,j:integer;
  101. begin
  102.   for i:=0 to fmain.MainMenu1.items.Count-1 do
  103.    for j:=0 to fmain.MainMenu1.Items[i].Count-1 do
  104.    fmain.MainMenu1.items[i].Items[j].Enabled:=false;
  105.     qx:=qx xor 1234567890;
  106.    qx:=qx shr 10;
  107.    for i:=0 to 6 do //共有7 种权限
  108.    if ((1 shl i) and qx)<>0 then
  109.    case i of
  111.      0:begin
  112.         fmain.ls1.Enabled:=true;
  113.         fmain.pf1.Enabled:=true;
  114.         fmain.crlist1.Enabled:=true;
  115.         end;
  116.      1:begin
  117.         fmain.rk1.Enabled:=true;
  118.         fmain.ty1.Enabled:=true;
  119.         fmain.bs1.Enabled:=true;
  120.         fmain.xl1.Enabled:=true;
  121.         fmain.pd1.Enabled:=true;
  122.         fmain.kclist1.Enabled:=true;
  124.        end;
  125.      2:begin
  126.         fmain.xstj.Enabled:=true;
  127.         fmain.kctj.Enabled:=true;
  128.         fmain.djsearch.Enabled:=true;
  129.         fmain.support.Enabled:=true;
  130.        end;
  131.      3:begin
  132.         fmain.yplist1.Enabled:=true;
  133.         fmain.ypadd.Enabled:=true;
  134.         fmain.ypedit.Enabled:=true;
  135.         fmain.ypprice.Enabled:=true;
  136.        end;
  137.      4:begin
  138.         fmain.yg1.Enabled:=true;
  139.         fmain.bm1.Enabled:=true;
  140.         fmain.company1.Enabled:=true;
  141.        end;
  142.      5:begin
  143.         fmain.user1.Enabled:=true;
  144.        end;
  145.      6:begin
  146.         fmain.back1.Enabled:=true;
  147.        end;
  149.      end;
  150.         fmain.mm.Enabled:=true;
  151.         fmain.relogin.Enabled:=true;
  152.         fmain.quit.Enabled:=true;
  153.         fmain.systemhelp.Enabled:=true;
  154.         fmain.about.Enabled:=true;
  155.         
  156.         check:=true;
  157.         fmain.StatusBar1.Panels[1].Text:='操作员:'+fmain.auser.name;
  158.         fmain.StatusBar1.Panels[2].Text:='鞍山威特软件开发服务中心 Tel:0412-2662251';
  159. end;
  161. procedure TFlogin.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  162. begin
  163. if not check then
  164.  btno.Click
  165. else canclose:=true;
  166. end;
  168. procedure TFlogin.btnoClick(Sender: TObject);
  169. begin
  170.   application.Terminate;
  172. end;
  174. procedure TFlogin.FormKeyDown(Sender: TObject; var Key: Word;
  175.   Shift: TShiftState);
  176. begin
  177.   if key=vk_return then
  178.   sendmessage(handle,wm_keydown,vk_tab,0);
  179. end;
  181. end.