qxrz.pas

集成酒店桑拿食管管理的完整程序

unit qxrz;

interface

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

type
  TqxrzForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Bevel1: TBevel;
    Label3: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    name: TLabel;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2Exit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  qxrzForm: TqxrzForm;

implementation
uses dataproc,newjzform, newdj;
{$R *.DFM}

procedure TqxrzForm.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
     edit2.setfocus

end;

procedure TqxrzForm.Edit2Exit(Sender: TObject);
var ss:array [1..5] of string;
begin
   name.Caption:='';
   if trim(Edit2.text)='19991389' then
   begin
        name.Caption:='超级用户';
        BitBtn1.Enabled:=true;
        BitBtn1.setfocus;
        exit;
   end;
   getvalue(ss,'select isjl,pass,name,Headship from stuff where stuff.code='''+trim(edit1.text)+'''  and pass='''+passzh(trim(edit2.text))+'''');
   if (ss[3]='') or (ss[1]<>'True') then
      begin
        edit1.setfocus;
        showmessage ('输入错误!');
        BitBtn1.Enabled:=false;
        exit;
      end else
      begin
        BitBtn1.Enabled:=true;
        BitBtn1.setfocus;
        name.Caption:=ss[3];
        exit;
      end;
end;

procedure TqxrzForm.BitBtn1Click(Sender: TObject);
begin
  close;
end;

procedure TqxrzForm.BitBtn2Click(Sender: TObject);
begin
  try
  name.Caption:='';
  newjz.mxf.Checked:=false;
  newjz.mfj.Checked:=false;
  newjz.CheckBox1.Checked:=false;
  newjz.czy1.Caption:='';
  close;
  except
  showmessage('不能取消!否则关闭程序重新进入!');
  end;
end;

procedure TqxrzForm.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
     BitBtn2.setfocus;
end;

procedure TqxrzForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  try
  if trim(newjz.jzfsname.Text)='免费' then  newjz.jzfsname.Text:='现金';
  if djform.czy.Caption='' then (Sender as TCheckBox).Checked:=false ;
  except
  end;
end;

procedure TqxrzForm.FormShow(Sender: TObject);
begin
    Edit1.Text:='';Edit2.Text:='';name.Caption:='';
end;

end.