zdbbcx.pas

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

unit zdbbcx;

interface

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

type
  TzdbbcxForm = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    Bevel1: TBevel;
    ComboBox2: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zdbbcxForm: TzdbbcxForm;

implementation

uses dataproc, zdbb;

{$R *.DFM}

procedure TzdbbcxForm.FormCreate(Sender: TObject);
begin
  fm.Query2.Active:=false;
  fm.Query2.SQL.Clear;
  fm.Query2.SQL.Add('select distinct regtime,jsr,czy,jsj from zdpk order by regtime desc');
  fm.Query2.Open;
  while not fm.Query2.Eof do
  begin
     ComboBox1.Items.Add(fm.Query2.fieldbyname('regtime').asstring);
     ComboBox2.Items.Add(copy(trim(fm.Query2.fieldbyname('jsr').asstring)+'          ',1,10)+copy(trim(fm.Query2.fieldbyname('czy').asstring)+'          ',1,10)+trim(fm.Query2.fieldbyname('jsj').asstring));
     fm.Query2.Next;
  end;
  fm.Query2.Active:=false;
  fm.Query2.SQL.Clear;
end;

procedure TzdbbcxForm.BitBtn1Click(Sender: TObject);
begin
  Application.CreateForm(TzzbbForm, zzbbForm);
  zzbbForm.Edit2.Text:=ComboBox1.Items[ComboBox1.ItemIndex];
  if ComboBox1.ItemIndex+1<ComboBox1.Items.Count then
    zzbbForm.Edit1.Text:=ComboBox1.Items[ComboBox1.ItemIndex+1];
  fm.Query2.Active:=false;
  fm.Query2.SQL.Clear;
  fm.Query2.SQL.Add('delete from zdpkls');
  fm.Query2.ExecSQL;
  fm.Query2.SQL.Clear;
  fm.Query2.SQL.Add('insert into zdpkls select * from zdpk where regtime=:prq');
  fm.Query2.ParamByName('prq').asdatetime:=strtodatetime(ComboBox1.Items[ComboBox1.ItemIndex]);
  fm.Query2.ExecSQL;
  fm.Query2.Active:=false;
  fm.Query2.SQL.Clear;
  zzbbForm.jie.Caption:=trim(copy(ComboBox2.Items[ComboBox1.ItemIndex],1,10));
  zzbbForm.jiao.Caption:=trim(copy(ComboBox2.Items[ComboBox1.ItemIndex],11,10));
  zzbbForm.Panel3.Caption:=curper.sydw+trim(copy(ComboBox2.Items[ComboBox1.ItemIndex],21,20))+'站点班报表';
  zzbbForm.Query1.Active:=false;
  zzbbForm.Query1.SQL.Clear;
  if ComboBox1.ItemIndex+1<ComboBox1.Items.Count then
  begin
   zzbbForm.Query1.SQL.Add('select a.name as 名称,a.cuscode AS 编号,a.dw as 单位,a.dj as 单价,b.xsnum as 上班销售,b.outnumwj AS 上班未结,a.innum AS 调入数,b.sjnum AS 上班实存,a.xsnum AS 数量,a.xsje as 金额,a.outnumwj AS 未结数,a.sjnum AS 实存');
   zzbbForm.Query1.SQL.Add('from zdpkls as a,zdpk as b where a.spcode=b.spcode and b.regtime=:prq');
   zzbbForm.Query1.SQL.Add('union (select ''总计'' as 名称,null AS 编号,null as 单位,null as 单价,sum(b.xsnum) as 上班销售,sum(b.outnumwj) AS 上班未结,sum(a.innum) AS 调入数,sum(b.sjnum) AS 上班实存,sum(a.xsnum) AS 数量,sum(a.xsje) as 金额,');
   zzbbForm.Query1.SQL.Add('sum(a.outnumwj) AS 未结数,sum(a.sjnum) AS 实存 from zdpkls as a,zdpk as b where a.spcode=b.spcode and b.regtime=:prq)');
   zzbbForm.Query1.ParamByName('prq').asdatetime:=strtodatetime(zzbbForm.Edit1.Text);
  end else
  begin
   zzbbForm.Query1.SQL.Add('select a.name as 名称,a.cuscode AS 编号,a.dw as 单位,a.dj as 单价,0 as 上班销售,0 AS 上班未结,0 AS 上班实存,a.innum AS 调入数,a.xsnum AS 数量,a.xsje as 金额,a.outnumwj AS 未结数,a.sjnum AS 实存');
   zzbbForm.Query1.SQL.Add('from zdpkls as a ');
   zzbbForm.Query1.SQL.Add('union (select ''总计'' as 名称,null AS 编号,null as 单位,null as 单价,0 as 上班销售,0 AS 上班未结,0 AS 上班实存,sum(a.innum) AS 调入数,sum(a.xsnum) AS 数量,sum(a.xsje) as 金额,sum(a.outnumwj) AS 未结数,sum(a.sjnum) AS 实存');
   zzbbForm.Query1.SQL.Add('from zdpkls as a )');
  end;
  zzbbForm.Query1.Open;
  fm.Query2.Active:=false;
  fm.Query2.SQL.Clear;
  fm.Query2.SQL.Add('select * from zdbbfb where regtime=:prq');
  fm.Query2.ParamByName('prq').asdatetime:=strtodatetime(ComboBox1.Items[ComboBox1.ItemIndex]);
  fm.Query2.Open;
  if not fm.Query2.IsEmpty then
  begin
    zzbbForm.ksyj.Text:=fm.Query2.Fieldbyname('ksbyj').asstring;
    zzbbForm.zsyj.Text:=fm.Query2.Fieldbyname('zsbyj').asstring;
    zzbbForm.kbly.Text:=fm.Query2.Fieldbyname('kbbly').asstring;
    zzbbForm.zbly.Text:=fm.Query2.Fieldbyname('zbbly').asstring;
    zzbbForm.kyxb.Text:=fm.Query2.Fieldbyname('kyjxb').asstring;
    zzbbForm.zyxb.Text:=fm.Query2.Fieldbyname('zyjxb').asstring;
    zzbbForm.zffs.Text:=fm.Query2.Fieldbyname('zffs').asstring;
    zzbbForm.syfs.Text:=fm.Query2.Fieldbyname('syfs').asstring;
    zzbbForm.zfhm.Text:=fm.Query2.Fieldbyname('zfhm').asstring;
  end;
  zzbbForm.Panel2.Enabled:=false;
  zzbbForm.BitBtn3.Visible:=false;
  zzbbForm.ShowModal;
  zzbbForm.Free;

end;

procedure TzdbbcxForm.BitBtn3Click(Sender: TObject);
begin
  close;
end;

end.