cssjwh.pas

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

unit cssjwh;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, Mask, DBCtrls, StdCtrls, Db, DBTables;

type
  Tcssjwhform = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    name: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    GroupBox2: TGroupBox;
    DBEdit3: TDBEdit;
    Label5: TLabel;
    DBEdit4: TDBEdit;
    Label9: TLabel;
    Label10: TLabel;
    GroupBox3: TGroupBox;
    Label6: TLabel;
    Label8: TLabel;
    Label11: TLabel;
    Label7: TLabel;
    Panel1: TPanel;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    Label12: TLabel;
    Label13: TLabel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    syrq: TEdit;
    Panel2: TPanel;
    Panel3: TPanel;
    Edit1: TEdit;
    Label14: TLabel;
    procedure nameKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure syrqKeyPress(Sender: TObject; var Key: Char);
    procedure Panel2DblClick(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure nameChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cssjwhform: Tcssjwhform;

implementation

uses dataproc;

{$R *.DFM}

procedure Tcssjwhform.nameKeyPress(Sender: TObject; var Key: Char);
begin
//  if trim(unpassname(Table1.fieldbyname('UnitName').asstring))<>'酒店之星' then
//     key:=#0;
  if key=#13 then
  begin
   {  try
//     if trim(unpassname(Table1.fieldbyname('UnitName').asstring))='酒店之星' then
     begin }
       Table1.Edit;
       Table1.fieldbyname('UnitName').asstring:=trim(passname(name.Text));
       Table1.Next;
       Table1.open;
     {end;
     except
     end;}
  end;
end;

procedure Tcssjwhform.FormCreate(Sender: TObject);
begin
   shortdateformat:='yyyy-mm-dd';
   Table1.Open;
   name.text:=trim(unpassname(Table1.fieldbyname('UnitName').asstring));
   if trim(Table1.fieldbyname('MoneyTime').asstring)<>trim(passzh('199908191918')) then
   begin
     Label10.Visible:=true;
     syrq.Visible:=true;
     syrq.text:=trim(unpassname(Table1.fieldbyname('MoneyTime').asstring));
   end
   else
   begin
     Label10.Visible:=false;
     syrq.Visible:=false;
     syrq.text:='';
   end;

end;

procedure Tcssjwhform.Button1Click(Sender: TObject);
begin
//   Table1.Refresh;
   Table1.Next;
   Table1.open;
//   Table1.Close;

end;

procedure Tcssjwhform.Button2Click(Sender: TObject);
begin
   Table1.Close;
   Table1.open;

end;

procedure Tcssjwhform.Button3Click(Sender: TObject);
begin
  Close;
end;

procedure Tcssjwhform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
     selectnext(activecontrol,true,true);

end;

procedure Tcssjwhform.syrqKeyPress(Sender: TObject; var Key: Char);
begin

  if key=#13 then
  begin
     try
       if strtodate(syrq.text)-now>100 then
       begin
          showmessage('时间不能超过100天');
          syrq.text:=datetostr(now+100);
          exit;
       end;
     if trim(Table1.fieldbyname('MoneyTime').asstring)='' then
     begin
       Table1.Edit;
       Table1.fieldbyname('MoneyTime').asstring:=trim(passname(syrq.Text));
       Table1.Next;
       Table1.open;
    end;
     except
        showmessage('时间不对');
        syrq.text:=trim(unpassname(Table1.fieldbyname('MoneyTime').asstring));
        syrq.SetFocus ;
     end;
  end;
  if trim(Table1.fieldbyname('MoneyTime').asstring)<>'' then
    key:=#0;

end;

procedure Tcssjwhform.Panel2DblClick(Sender: TObject);
begin
   if trim(syrq.text)<>'' then
   begin
      Panel3.Visible:=true;
      ActiveControl:=edit1;
   end
   else
   begin
       Table1.Edit;
       Table1.fieldbyname('MoneyTime').asstring:=trim(passname(''));
       Label10.Visible:=true;
       Table1.Next;
       Table1.open;
       syrq.Visible:=true;
    //   syrq.text:='';
   end;
end;

procedure Tcssjwhform.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
   if trim(Edit1.Text)='19991389' then
   begin
       Table1.Edit;
       name.Enabled:=true;
       Table1.fieldbyname('UnitName').asstring:=trim(passname(trim(name.Text)));
       Table1.fieldbyname('MoneyTime').asstring:=trim(passname(trim(syrq.Text)));
       Label10.Visible:=false;
       Table1.Next;
       Table1.open;
       syrq.Visible:=false;
       syrq.text:='';
   end
   else
   begin
       showmessage('口令不对，不能修改');
       name.Enabled:=false;
   end;
   Panel3.Visible:=false;
 end;
end;

procedure Tcssjwhform.nameChange(Sender: TObject);
begin
{   if trim(unpassname(Table1.fieldbyname('UnitName').asstring))='酒店之星' then
   begin
     Table1.Edit;
     Table1.fieldbyname('UnitName').asstring:=trim(passname(name.Text));
   end;  }

end;

end.