zdbb.pas

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

unit zdbb;

interface

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

type
  TzzbbForm = class(TForm)
    Panel1: TPanel;
    DataSource1: TDataSource;
    Query1: TQuery;
    DBGrid1: TDBGrid;
    Panel2: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    jiao: TLabel;
    jie: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
    Panel8: TPanel;
    Panel9: TPanel;
    Panel10: TPanel;
    Panel11: TPanel;
    Panel12: TPanel;
    GroupBox1: TGroupBox;
    Label3: TLabel;
    Label6: TLabel;
    GroupBox2: TGroupBox;
    Label8: TLabel;
    Label9: TLabel;
    blys: TLabel;
    GroupBox3: TGroupBox;
    Label11: TLabel;
    Label12: TLabel;
    jxbs: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label7: TLabel;
    syjs: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    BitBtn3: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label10: TLabel;
    Label13: TLabel;
    ksyj: TEdit;
    zsyj: TEdit;
    kbly: TEdit;
    zbly: TEdit;
    kyxb: TEdit;
    zyxb: TEdit;
    Edit3: TEdit;
    zfhm: TEdit;
    zffs: TEdit;
    syfs: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure ksyjKeyPress(Sender: TObject; var Key: Char);
    procedure ksyjKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ksyjExit(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure zfhmExit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zzbbForm: TzzbbForm;

implementation

uses dataproc,zdbbprint;

{$R *.DFM}

procedure TzzbbForm.BitBtn1Click(Sender: TObject);
begin
  Application.CreateForm(TzdbbprintForm, zdbbprintForm);
  zdbbprintForm.QRLabel1.Caption:=Panel3.Caption;
  zdbbprintForm.QRLabel2.Caption:=edit1.Text+' 至 '+edit2.Text;
  zdbbprintForm.QRLabel12.Caption:='交班人: '+jiao.Caption;
  zdbbprintForm.QRLabel13.Caption:='接班人: '+jie.Caption;
  zdbbprintForm.yjqk.Lines.Add('');
  zdbbprintForm.yjqk.Lines.Add(GroupBox1.Caption);
  zdbbprintForm.yjqk.Lines.Add('起:'+trim(ksyj.Text));
  zdbbprintForm.yjqk.Lines.Add('止:'+trim(zsyj.Text));
  zdbbprintForm.yjqk.Lines.Add('共:     '+syjs.Caption);
  zdbbprintForm.yjqk.Lines.Add('');
  zdbbprintForm.yjqk.Lines.Add(GroupBox2.Caption);
  zdbbprintForm.yjqk.Lines.Add('起:'+trim(kbly.Text));
  zdbbprintForm.yjqk.Lines.Add('止:'+trim(zbly.Text));
  zdbbprintForm.yjqk.Lines.Add('共:     '+blys.Caption);
  zdbbprintForm.yjqk.Lines.Add('');
  zdbbprintForm.yjqk.Lines.Add(GroupBox3.Caption);
  zdbbprintForm.yjqk.Lines.Add('起:'+trim(kyxb.Text));
  zdbbprintForm.yjqk.Lines.Add('止:'+trim(zyxb.Text));
  zdbbprintForm.yjqk.Lines.Add('共:     '+jxbs.Caption);
  zdbbprintForm.yjqk.Lines.Add('');
  zdbbprintForm.yjqk.Lines.Add('作废份数:'+trim(zffs.text)+' 份');
  zdbbprintForm.yjqk.Lines.Add('');
  zdbbprintForm.yjqk.Lines.Add('本班作废号:');
  zdbbprintForm.yjqk.Lines.Add(trim(zfhm.Text));
  zdbbprintForm.yjqk.Lines.Add('');
  zdbbprintForm.yjqk.Lines.Add('本班共使用: '+trim(syfs.text)+' 份');
  zdbbprintForm.yjqk.Lines.Add('');
  zdbbprintForm.yjqk.Lines.Add('上班未结帐移交: '+trim(Edit3.text)+' 份');
  zdbbprintForm.yjqk.Lines.Add('');
  zdbbprintForm.yjqk.Height:=18*Query1.RecordCount;
  zdbbprintForm.QuickRep1.Preview;
  zdbbprintForm.Free;
end;

procedure TzzbbForm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure TzzbbForm.ksyjKeyPress(Sender: TObject; var Key: Char);
begin
  if (key>'9') or (key<'0') then
    if (key<>#13) and (key<>#8) then key:=#0;
end;

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

procedure TzzbbForm.ksyjExit(Sender: TObject);
var sb,bb,xb:integer;
begin
  sb:=0;bb:=0;xb:=0;
  if (trim(ksyj.Text)<>'') and (trim(zsyj.Text)<>'') then
  begin
    sb:=strtoint(trim(zsyj.Text))-strtoint(trim(ksyj.Text))+1;
    syjs.Caption:=inttostr(sb)+'份';
  end else syjs.Caption:='';
  if (trim(kbly.Text)<>'') and (trim(zbly.Text)<>'') then
  begin
    bb:=strtoint(trim(zbly.Text))-strtoint(trim(kbly.Text))+1;
    blys.Caption:=inttostr(bb)+'份';
  end else blys.Caption:='';
  if (trim(kyxb.Text)<>'') and (trim(zyxb.Text)<>'') then
  begin
    xb:=strtoint(trim(zyxb.Text))-strtoint(trim(kyxb.Text))+1;
    jxbs.Caption:=inttostr(xb)+'份';
  end else jxbs.Caption:='';
  if (sb<>0) and (bb<>0) and (xb<>0) and (trim(zffs.Text)<>'') and (trim(zfhm.Text)<>'')   then
  begin
    syfs.Text:=inttostr(bb);
    if (jie.Caption<>'') then
      BitBtn3.Enabled:=true;
  end else
  begin
    syfs.Text:='';
    BitBtn3.Enabled:=false;
  end;
end;

procedure TzzbbForm.BitBtn3Click(Sender: TObject);
begin
  fm.Query2.Active:=false;
  fm.Query2.SQL.Clear;
  fm.Query2.SQL.Add('delete from zdbbfb where regtime=:prq and jsj='''+curper.workjsj+''' ');
  fm.Query2.ParamByName('prq').asdatetime:=strtodatetime(trim(Edit2.Text));
  fm.Query2.ExecSQL;
  fm.Query2.SQL.Clear;
  fm.Query2.SQL.Add('insert into zdbbfb values('''+trim(ksyj.Text)+''','''+trim(zsyj.Text)+''','''+trim(kbly.Text)+''','''+trim(zbly.Text)+''','''+trim(kyxb.Text)+''','''+trim(zyxb.Text)+''','+trim(zffs.Text)+','+trim(syfs.Text)+','''+curper.workjsj+''',:prq,:pzfhm,:pwjzfs)');
  fm.Query2.ParamByName('prq').asdatetime:=strtodatetime(trim(Edit2.Text));
  fm.Query2.ParamByName('pzfhm').AsMemo:=trim(zfhm.Text);
  fm.Query2.ParamByName('pwjzfs').Asstring:=trim(edit3.Text);
  fm.Query2.ExecSQL;
  fm.Query2.Active:=false;
  fm.Query2.SQL.Clear;
  Panel2.Enabled:=false;
  BitBtn3.Enabled:=false;
  tag:=1;
end;

procedure TzzbbForm.zfhmExit(Sender: TObject);
begin
  if (jie.Caption<>'') and (trim(zffs.Text)<>'') and (trim(syfs.Text)<>'') and (trim(zfhm.Text)<>'')   then
      BitBtn3.Enabled:=true
  else
    BitBtn3.Enabled:=false;

end;

end.