zdpk.pas

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

      Query1.ExecSQL;
      fm.Query2.Next;
    end;
    fm.Query2.Active:=false;
    fm.Query2.SQL.Clear;
    fm.Query3.Active:=false;
    fm.Query3.SQL.Clear;
    Query1.Active:=false;
    Query1.SQL.Clear;
  end;
//  BitBtn7.Enabled:=true;
  kfnameChange(nil);
end;

procedure TzdpkForm.BitBtn2Click(Sender: TObject);
var jje,dje:array [0..2] of Currency;
    kmdm,bmdm:array [0..2] of string;
    i,j,bz:integer;
begin
 {  if Application.MessageBox('是否产生财务记帐凭证？','提示信息', 36)=6 then
   begin
     fm.Query2.Active:=false;
     fm.Query2.SQL.Clear;
     fm.Query2.SQL.Add('select sum(xsnum*cbj),kf from zdpkls where jsj='''+curper.workjsj+''' group by kf ');
     fm.Query2.Open;
     i:=0;
     while not fm.Query2.Eof do
     begin
        for j:=0 to 2 do
        begin
          jje[j]:=0;dje[j]:=0;kmdm[j]:='';bmdm[j]:='';
        end;
       if fm.Query2.Fields[0].asCurrency<>0 then
       begin
         for j:=0 to kfh.Items.Count-1 do if kfh.Items[i]=trim(fm.Query2.Fields[1].asstring) then
         begin
           kmdm[i]:='5020'+trim(dm.Items[i]);
           bmdm[i]:='';
         end;
         jje[i]:=fm.Query2.Fields[0].asCurrency;
         dje[i]:=0;
         i:=i+1;
         kmdm[i]:='128'+trim(fm.Query2.Fields[1].asstring);bmdm[i]:='';
         dje[i]:=fm.Query2.Fields[0].asCurrency;
         jje[i]:=0;
         i:=i+1;
         bz:=yysrpz(trim(pksj.text),'1','消费站点'+trim(curper.workjsj)+'销售成本',kmdm,bmdm,jje,dje,i);
         if bz=1 then
           Application.MessageBox('要产生的财务记帐凭证中借贷不平衡！','提示信息', 16);
         if bz=2 then
           Application.MessageBox('产生财务记帐凭证时有错误！','提示信息', 16);
       end;
       fm.Query2.Next;
     end;
   end; }
  fm.Query2.Active:=false;
  fm.Query2.SQL.Clear;
  fm.Query2.SQL.Add('update zdpkls set jsr='''+jsr.Caption+''' where jsj='''+curper.workjsj+''' ');
  fm.Query2.ExecSQL;
  fm.Query2.SQL.Clear;
  fm.Query2.SQL.Add('insert into zdpk select * from zdpkls where jsj='''+curper.workjsj+'''');
  fm.Query2.SQL.Add('delete zdpkls where jsj='''+curper.workjsj+'''');
  fm.Query2.ExecSQL;
  fm.Query2.Active:=false;
  fm.Query2.SQL.Clear;
  pksj.Enabled:=true;
  BitBtn2.Enabled:=false;
  FormShow(nil);
end;

procedure TzdpkForm.BitBtn6Click(Sender: TObject);
begin
  GroupBox1.Visible:=false;
end;

procedure TzdpkForm.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=27 then
  begin
   GroupBox1.Visible:=false;
   jsr.Caption:='';
   BitBtn2.Enabled:=false;
   BitBtn7.Enabled:=false;
  end;
end;

procedure TzdpkForm.Edit1Exit(Sender: TObject);
begin
  if (ActiveControl<>Edit1) and (ActiveControl<>Edit2) and (ActiveControl<>BitBtn5) and (ActiveControl<>BitBtn6) and (BitBtn5.tag=0) then
  begin
   GroupBox1.Visible:=false;
   jsr.Caption:='';
   BitBtn2.Enabled:=false;
   BitBtn7.Enabled:=false;
  end;
end;

procedure TzdpkForm.BitBtn5Click(Sender: TObject);
begin
   BitBtn5.tag:=1;
   GroupBox1.Visible:=false;
end;

procedure TzdpkForm.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then edit2.SetFocus;
end;

procedure TzdpkForm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    Edit2Exit(nil);
end;

procedure TzdpkForm.Edit2Exit(Sender: TObject);
begin
  if (trim(edit1.text)<>'') and (jsr.Caption='') then
  begin
    fm.Query2.Active:=false;
    fm.Query2.SQL.Clear;
    fm.Query2.SQL.Add('select Name from stuff where code='''+trim(edit1.text)+''' and pass='''+passzh(trim(edit2.text))+'''');
    fm.Query2.Open;
    if (trim(fm.Query2.Fields[0].AsString)<>'')  then   //and (trim(fm.Query2.Fields[0].AsString)=curper.name)
    begin
      jsr.Caption:=trim(fm.Query2.Fields[0].AsString);
      BitBtn2.Enabled:=true;
      BitBtn7.Enabled:=true;
      BitBtn5.Enabled:=true;
      BitBtn5.SetFocus;
    end else BitBtn6.SetFocus;
    fm.Query2.Active:=false;
    fm.Query2.SQL.Clear;
  end;
  Edit1Exit(nil);
end;

procedure TzdpkForm.BitBtn3Click(Sender: TObject);
begin
  Application.CreateForm(TzdpkprintForm, zdpkprintForm);
  zdpkprintForm.zdm.Caption:=Panel1.Caption;
  zdpkprintForm.bmm.Caption:=kfname.tabs[kfname.TabIndex];
  zdpkprintForm.sj.Caption:=pksj.Text;
  if pksj.Enabled then
  begin
    zdpkprintForm.QRSubDetail3.DataSet:=TABLE1;
    zdpkprintForm.QRDBText1.DataSet:=TABLE1;
    zdpkprintForm.QRDBText2.DataSet:=TABLE1;
    zdpkprintForm.QRDBText3.DataSet:=TABLE1;
    zdpkprintForm.QRDBText4.DataSet:=TABLE1;
    zdpkprintForm.QRDBText5.DataSet:=TABLE1;
    zdpkprintForm.QRDBText6.DataSet:=TABLE1;
    zdpkprintForm.QRDBText7.DataSet:=TABLE1;
    zdpkprintForm.QRDBText8.DataSet:=TABLE1;
   end
   else
   begin
    zdpkprintForm.QRSubDetail3.DataSet:=TABLE1;
    zdpkprintForm.QRDBText1.DataSet:=TABLE1;
    zdpkprintForm.QRDBText2.DataSet:=TABLE1;
    zdpkprintForm.QRDBText3.DataSet:=TABLE1;
    zdpkprintForm.QRDBText4.DataSet:=TABLE1;
    zdpkprintForm.QRDBText5.DataSet:=TABLE1;
    zdpkprintForm.QRDBText6.DataSet:=TABLE1;
    zdpkprintForm.QRDBText7.DataSet:=TABLE1;
    zdpkprintForm.QRDBText8.DataSet:=TABLE1;
   end;
  zdpkprintForm.hide;
  zdpkprintForm.qr1.Preview;
  zdpkprintForm.close;
  zdpkprintForm.free;

end;

procedure TzdpkForm.BitBtn7Click(Sender: TObject);
begin
  Application.CreateForm(TzzbbForm, zzbbForm);
  zzbbForm.Edit2.Text:=pksj.Text;
  zzbbForm.Edit1.Text:=pksj.Items[0];
  zzbbForm.jie.Caption:=jsr.Caption;
  zzbbForm.jiao.Caption:=curper.name;
  zzbbForm.Panel3.Caption:=curper.sydw+curper.workjsj+'站点班报表';
  zzbbForm.Query1.Active:=false;
  zzbbForm.Query1.SQL.Clear;
  if pksj.Items.Count>0 then
  begin
   zzbbForm.Query1.SQL.Add('select a.name as 名称,a.spcode 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.spcode 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;
  zzbbForm.ShowModal;
  if (zzbbForm.Tag=1) and (BitBtn2.Enabled) then BitBtn2Click(nil);
  zzbbForm.Free;
end;

procedure TzdpkForm.Button1Click(Sender: TObject);
begin
   if pksj.Enabled then exit;
   GroupBox1.Visible:=true;
   edit1.Text:='';
   edit2.Text:='';
   edit1.SetFocus;
   jsr.Caption:='';
   BitBtn2.Enabled:=false;
   BitBtn7.Enabled:=false;
   BitBtn5.tag:=0;

end;

end.