ulogin.pas

恒邦餐饮管理源码。将源码放到C:hbjdcyzy 登陆:1001/1001

unit ulogin;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons,u_main, ExtCtrls, Db, DBTables;

type
  Tlogin = class(TForm)
    BitBtn2: TBitBtn;
    GroupBox1: TGroupBox;
    Image1: TImage;
    Label1: TLabel;
    czyh: TEdit;
    Label2: TLabel;
    czmm: TEdit;
    yes: TBitBtn;
    Query1: TQuery;
    Query2: TQuery;
    DB_login: TDatabase;
    procedure BitBtn2Click(Sender: TObject);
    procedure yesClick(Sender: TObject);
    procedure czmmKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure czyhKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  login: Tlogin;

implementation

{$R *.DFM}

procedure Tlogin.BitBtn2Click(Sender: TObject);
begin
 Application.Terminate;
 i_login:=0;
 close;
end;

procedure Tlogin.yesClick(Sender: TObject);
var
  d,d1,d2,t,t1,t2:string;
begin
 Query1.ParamByName('s_czyh').asstring:=trim(czyh.text);
 Query1.active:=false;
 Query1.active:=true;
 if (trim(czyh.text)='') or (Query1.RecordCount=0) or (length(czyh.text)>4) then
  begin
   messagebox(handle,'请输入合法的操作员号！','系统提示信息',MB_OK+MB_ICONWARNING);
   czyh.setfocus;
   exit;
  end;
 Query2.ParamByName('s_czyh').asstring:=trim(czyh.text);
 Query2.ParamByName('s_czmm').asstring:=trim(czmm.text);
 Query2.active:=false;
 Query2.active:=true;
 if (trim(czmm.text)='') or (Query2.RecordCount=0) then
  begin
   messagebox(handle,'请输入正确的权限密码！','系统提示信息',MB_OK+MB_ICONWARNING);
   czmm.setfocus;
   exit;
  end;
 with Query2 do
  begin
   d:=formatdatetime('yyyy.mm.dd',date());
   d1:=formatdatetime('yyyy.mm.dd',fieldbyname('syrq1').asdatetime);
   d2:=formatdatetime('yyyy.mm.dd',fieldbyname('syrq2').asdatetime);
   t:=formatdatetime('hh.mm.ss',time());
   t1:=formatdatetime('hh.mm.ss',fieldbyname('sysj1').asdatetime);
   t2:=formatdatetime('hh.mm.ss',fieldbyname('sysj2').asdatetime);
   s_czym:=fieldbyname('czym').asstring;
  end;
 {if (d1>d) or (d>d2) or (t1>t) or (t>t2) then
   begin
    messagebox(handle,'您在本时间段内没有操作权限!','系统提示信息',MB_OK+MB_ICONWARNING);
    czyh.setfocus;
    exit;
   end;}
 s_czyh:=czyh.text;
 i_login:=1;
 close;
end;

procedure Tlogin.czmmKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then  yes.SetFocus;
end;

procedure Tlogin.czyhKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then  czmm.SetFocus;
end;

procedure Tlogin.FormCreate(Sender: TObject);
begin
 if screen.Width<>800 then
  begin
   messagebox(handle,'请把计算机桌面和屏幕区域设为 800X600 像素!','系统提示信息',MB_OK+MB_ICONWARNING);
   close;
   Release;
   login:=NIL;
   Application.Terminate;
  end;
 if formatdatetime('yyyy.mm.dd',date())>'2006.01.01' then
  begin
   messagebox(handle,'该程序已经过期，请联系: [e-mail]!'+#13+' http://hbonline.home.sohu.com 。','系统提示信息',MB_OK+MB_ICONWARNING);
   close;
   Release;
   login:=NIL;
   Application.Terminate;
  end;
end;

procedure Tlogin.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Release;
 login:=NIL;
end;

end.