jb1.pas

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

unit jb1;

interface

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

type
  TJBForm1 = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    xj: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    zp: TMemo;
    card: TMemo;
    gz: TMemo;
    mf: TMemo;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    xjjz: TEdit;
    Label13: TLabel;
    zpjz: TEdit;
    Label14: TLabel;
    cardjz: TEdit;
    Label15: TLabel;
    gzjz: TEdit;
    Label16: TLabel;
    mfjz: TEdit;
    Label17: TLabel;
    hej: TEdit;
    Button1: TButton;
    Button2: TButton;
    q1: TQuery;
    Button3: TButton;
    Panel1: TPanel;
    GroupBox5: TGroupBox;
    Label18: TLabel;
    Label23: TLabel;
    jbj: TLabel;
    jcw: TLabel;
    GroupBox4: TGroupBox;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    bj: TLabel;
    cw: TLabel;
    yj: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    GroupBox6: TGroupBox;
    sbqxj: TEdit;
    sbqzp: TEdit;
    sbqcard: TEdit;
    sbqgz: TEdit;
    sbqmf: TEdit;
    sbqhj: TEdit;
    GroupBox7: TGroupBox;
    bbjxj: TEdit;
    bbjzp: TEdit;
    bbjcard: TEdit;
    bbjgz: TEdit;
    bbjmf: TEdit;
    bbjhj: TEdit;
    GroupBox8: TGroupBox;
    jxbxj: TEdit;
    jxbzp: TEdit;
    jxbcard: TEdit;
    jxbgz: TEdit;
    jxbmf: TEdit;
    jxbhj: TEdit;
    klk: TGroupBox;
    pass: TEdit;
    bgtime: TMaskEdit;
    edtime: TMaskEdit;
    Panel3: TPanel;
    Label22: TLabel;
    jcs: TLabel;
    Regid1: TEdit;
    curname: TEdit;
    nextbc: TEdit;
    nextname: TEdit;
    curbc: TEdit;
    Regid2: TEdit;
    Label12: TLabel;
    hy: TMemo;
    Label24: TLabel;
    Label25: TLabel;
    hyjz: TEdit;
    sbqhy: TEdit;
    bbjhy: TEdit;
    jxbhy: TEdit;
    GroupBox9: TGroupBox;
    dy: TRadioButton;
    RadioButton2: TRadioButton;
    s1: TStoredProc;
    Label26: TLabel;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure bgtimeExit(Sender: TObject);
    procedure edtimeExit(Sender: TObject);
    procedure xjjzExit(Sender: TObject);
    procedure xjjzKeyPress(Sender: TObject; var Key: Char);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure nextnameExit(Sender: TObject);
    procedure passExit(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure nextbcExit(Sender: TObject);
    procedure nextbcDblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  JBForm1: TJBForm1;

implementation
uses dataproc, Srbbpt;
{$R *.DFM}
var
  bz:integer;

procedure jb;
begin
with jbform1 do
  begin
  q1.Active :=false;
  q1.sql.clear;
  q1.sql.add('insert into changebc values('''+edtime.text+''','''+bgtime.text+''',:pOldBc,:pOldRegid,:pnewBc,:pnewRegid,');
  q1.sql.add(bj.Caption+','+cw.Caption+','+yj.Caption+','+jbj.Caption+','+jcw.Caption+','+jcs.Caption+','+xjjz.text+','+hyjz.text+','+zpjz.Text+','+cardjz.text+','+gzjz.Text+','+mfjz.Text+',');
  q1.sql.add(':phy,:pzp,:pcard,:pgz,:pmf)');
  q1.ParamByName ('poldbc').asstring:=copy(trim(curbc.text),12,4);
  q1.ParamByName ('poldregid').asstring:=trim(regid1.text);
  q1.ParamByName ('pnewbc').asstring:=copy(trim(nextbc.text),12,4);
  q1.ParamByName ('pnewregid').asstring:=trim(regid2.text);
  q1.ParamByName ('phy').asstring:=trim(hy.Lines.Text);
  q1.ParamByName ('pzp').asstring:=trim(zp.Lines.Text);
  q1.ParamByName ('pcard').asstring:=trim(card.Lines.Text);
  q1.ParamByName ('pgz').asstring:=trim(gz.Lines.Text);
  q1.ParamByName ('pmf').asstring:=trim(mf.Lines.Text);
  q1.Prepare ;
  q1.ExecSQL ;
  q1.Active :=false;
  q1.sql.clear;
  showmessage('交班成功!');
  Panel3.Enabled:=false;

//  close;
end;
end;
procedure getdata;
var
  i:real;j:integer;
begin
with jbform1 do
  begin
  q1.Active :=false;
  q1.sql.Clear ;
  q1.sql.add('select isnull(sum(deposit),0) from deposit');
  q1.Open;
  xj.Text :=q1.fields[0].asstring;
  yj.Caption:=q1.fields[0].asstring;
  q1.Close;
  q1.Active :=false;
  q1.sql.Clear ;
  q1.sql.add('select roomno,jzfs,Name,sdjcode from nowin,mode where nowin.jzfs=mode.code and jzfs<>'''+'01'+'''');
  q1.Open;
  zp.Text:='';
  card.text:='';
  gz.text:='';
  mf.text:='';
  while not q1.Eof do
  begin
    if trim(q1.FieldByName('jzfs').asstring)='02' then
    begin
       if trim(zp.Text)<>'' then zp.Text:=zp.Text+',';
       zp.Text:=zp.Text+trim(q1.FieldByName('roomno').asstring);
    end;
    if copy(q1.FieldByName('jzfs').asstring,2,1)='3' then
    begin
       if trim(card.Text)<>'' then card.Text:=card.Text+',';
       card.Text:=card.Text+trim(q1.FieldByName('roomno').asstring)+':'+trim(q1.FieldByName('name').asstring);
    end;
    if copy(q1.FieldByName('jzfs').asstring,2,1)='6' then
    begin
       if trim(card.Text)<>'' then card.Text:=card.Text+',';
       card.Text:=card.Text+trim(q1.FieldByName('roomno').asstring)+':'+trim(q1.FieldByName('name').asstring);
       if trim(hy.Text)<>'' then hy.Text:=hy.Text+',';
       hy.Text:=hy.Text+trim(q1.FieldByName('roomno').asstring)+':'+trim(q1.FieldByName('sdjcode').asstring);
    end;
    if trim(q1.FieldByName('jzfs').asstring)='04' then
     begin
       if trim(gz.Text)<>'' then gz.Text:=gz.Text+',';
       gz.Text:=gz.Text+trim(q1.FieldByName('roomno').asstring);
     end;
    if trim(q1.FieldByName('jzfs').asstring)='05' then
    begin
       if trim(mf.Text)<>'' then mf.Text:=mf.Text+',';
       mf.Text:=mf.Text+trim(q1.FieldByName('roomno').asstring);
    end;
    q1.Next;
  end;
  q1.Close;
  q1.Active :=false;
  q1.sql.Clear ;
  q1.sql.add('select count(roomno) from qbnowin where isbj=1 and BegTime>'''+bgtime.text+''' and begtime<='''+edtime.text+'''');
  q1.Open;
  bj.Caption:=q1.Fields[0].asstring;
  q1.Close;
  q1.Active :=false;
  q1.sql.Clear ;
  q1.sql.add('select count(roomno) from qbnowin where isbj<>1 and BegTime>'''+bgtime.text+''' and begtime<='''+edtime.text+'''');
  q1.Open;
  cw.Caption:=q1.Fields[0].asstring;
  q1.Close;
  q1.sql.Clear ;
  q1.sql.add('select sum(num) from qbnowin where (sex=''0'' or welid in (select welid from qbGuestMx where sex=''女'')) and BegTime>'''+bgtime.text+''' and begtime<='''+edtime.text+'''');
  q1.Open;
  i:=q1.Fields[0].asfloat;
  q1.sql.Clear ;
  q1.sql.add('select sum(num) from qbnowin where (sex=''1'' or welid in (select welid from qbGuestMx where sex=''男'')) and BegTime>'''+bgtime.text+''' and begtime<='''+edtime.text+'''');
  q1.Open;
  Label26.Caption:='登记人数：男'+q1.Fields[0].asstring+'人;女'+floattostr(i)+'人 合计：'+floattostr(i+q1.Fields[0].asfloat)+'人';;
  q1.Active :=false;
  q1.sql.Clear ;
  q1.sql.add('select * from jkmoney');
  q1.Open;
  q1.First;
  jbj.Caption:=q1.fieldbyname('num').asstring;
  q1.Next;
  jcw.Caption:=q1.fieldbyname('num').asstring;
  q1.Next;
  jcs.Caption:=q1.fieldbyname('num').asstring;
  q1.Active :=false;
  q1.sql.clear;
  q1.sql.Add('select (select sum(ysmoney) from lsjz where jzfs=''01'' and jztime>=:pbeg and jztime<=:pend) ,');
  q1.sql.Add('(select sum(ysmoney) from lsjz where jzfs=''06'' and jztime>=:pbeg and jztime<=:pend),');
  q1.sql.Add('(select sum(ysmoney) from lsjz where jzfs=''02'' and jztime>=:pbeg and jztime<=:pend),');
  q1.sql.Add('(select sum(ysmoney) from lsjz where jzfs>''1'' and jztime>=:pbeg and jztime<=:pend),');
  q1.sql.Add('(select sum(ysmoney) from lsjz where jzfs=''04'' and jztime>=:pbeg and jztime<=:pend),');
  q1.sql.Add('(select sum(ysmoney) from lsjz where jzfs=''05'' and jztime>=:pbeg and jztime<=:pend),');
  q1.sql.Add('(select sum(ysmoney) from lsjz where jztime>=:pbeg and jztime<=:pend)');
  q1.ParamByName('pbeg').asdatetime:=strtodatetime(bgtime.Text);
  q1.ParamByName('pend').asdatetime:=strtodatetime(edtime.Text);
  q1.Prepare;
  q1.open;
    xjjz.Text:=floattostr(q1.Fields[0].AsFloat);
    hyjz.Text:=floattostr(q1.Fields[1].AsFloat);
    zpjz.text:=floattostr(q1.Fields[2].AsFloat);
    cardjz.Text:=floattostr(q1.Fields[3].AsFloat);
    gzjz.text:=floattostr(q1.Fields[4].AsFloat);
    mfjz.Text:=floattostr(q1.Fields[5].AsFloat);
    hej.Text:=floattostr(q1.Fields[6].AsFloat);
  q1.Close;
  q1.Active :=false;
  q1.sql.Clear ;
  q1.sql.Add('select avg(zsbyjxj),avg(zsbyjhy),avg(zsbyjzp),avg(zsbyjcard),avg(zsbyjgz),avg(zsbyjmd),sum(bcjxj),sum(bcjhy),sum(bcjzp),sum(bcjcard),sum(bcjgz),sum(bcjmd) from jkmx where GiveTime='''+trim(bgtime.Text)+''' and bc='''+trim(copy(trim(curbc.text),12,4))+'''');
  q1.Open;
  if not q1.Eof then
  begin
     sbqxj.Text:=q1.Fields[0].asstring;
     sbqhy.Text:=q1.Fields[1].asstring;
     sbqzp.Text:=q1.Fields[2].asstring;
     sbqcard.Text:=q1.Fields[3].asstring;
     sbqgz.Text:=q1.Fields[4].asstring;