hysrxx.pas

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

       begin
         dje[0]:=dje[0]+(table1.fieldbyname('xiaoj').asCurrency-table1.fieldbyname('md').asCurrency-table1.fieldbyname('gz').asCurrency);
         table1.Next;
       end;
       if dje[0]<>0 then
       begin
         i:=i+1;jje[0]:=0;kmdm[0]:='501002'; bmdm[0]:='';//'002'
       end;
       mf:=0;
       while not table1.Eof do
       begin
         if (trim(table1.fieldbyname('code').asstring)<>'合   计') and
           (table1.fieldbyname('xiaoj').asCurrency-table1.fieldbyname('gz').asCurrency<>0) then
         begin
           if (trim(table1.FieldByName('dm').asstring)='02') and (kmdm[0]='501002') then
           begin
             dje[0]:=dje[0]+(table1.fieldbyname('xiaoj').asCurrency-table1.fieldbyname('gz').asCurrency);
           end else
           begin
             kmdm[i]:='5010'+trim(table1.FieldByName('dm').asstring);
             bmdm[i]:='';//'0'+trim(table1.FieldByName('dm').asstring);
             dje[i]:=table1.fieldbyname('xiaoj').asCurrency-table1.fieldbyname('md').asCurrency-table1.fieldbyname('gz').asCurrency;
             jje[i]:=0;
             i:=i+1;
           end;
           mf:=mf+table1.fieldbyname('md').asCurrency;
         end;
         table1.Next;
       end;
       if mf<>0 then
       begin
         kmdm[i]:='503000';
         bmdm[i]:='';
         jje[i]:=mf;
         dje[i]:=0;
         i:=i+1;
       end;
       table1.Last;
       if table1.fieldbyname('xj').asCurrency+table1.fieldbyname('hy').asCurrency<>0 then
       begin
         kmdm[i]:='101';
         bmdm[i]:='';
         jje[i]:=table1.fieldbyname('xj').asCurrency+table1.fieldbyname('hy').asCurrency;
         dje[i]:=0;
         i:=i+1;
       end;
       if table1.fieldbyname('zp').asCurrency+table1.fieldbyname('card').asCurrency<>0 then
       begin
         kmdm[i]:='102001';
         bmdm[i]:='';
         jje[i]:=table1.fieldbyname('zp').asCurrency+table1.fieldbyname('card').asCurrency;
         dje[i]:=0;
         i:=i+1;
       end;
       bz:=yysrpz(formatdatetime('yyyy-mm-dd',begdate.Date),'1','前台交来营业收入',kmdm,bmdm,jje,dje,i);
       if bz=1 then
          Application.MessageBox('要产生的财务记帐凭证中借贷不平衡！','提示信息', 16);
       if bz=2 then
          Application.MessageBox('产生财务记帐凭证时有错误！','提示信息', 16);
     end;
   end;
   fm.Query2.Active:=false;
   fm.Query2.SQL.Clear;
   if kk.Caption='日' then
     fm.Query2.SQL.Add('delete srrb where rbdate='''+formatdatetime('yyyy-mm-dd',begdate.Date)+'''')
   else
     fm.Query2.SQL.Add('delete sryb where rbdate='''+formatdatetime('yyyy-mm',begdate.Date)+'''');
   fm.Query2.ExecSQL;
   fm.Query2.SQL.Clear;
   if kk.Caption='日' then
     fm.Query2.SQL.Add('insert into srrb select *,'''+formatdatetime('yyyy-mm-dd',begdate.Date)+''' from jkmoney')
   else
     fm.Query2.SQL.Add('insert into sryb select *,'''+formatdatetime('yyyy-mm',begdate.Date)+''' from jkmoney');
   fm.Query2.ExecSQL;
   fm.Query2.Active:=false;
   fm.Query2.SQL.Clear;
   if Application.MessageBox(pchar(kk.Caption+'报表保存完毕！是否退出？'),'提示信息', 68)=6 then close;
     }
end;

procedure ThyxxForm.PageControl1Change(Sender: TObject);
begin
   query1.Active:=false;
   query1.Open;
end;

procedure ThyxxForm.FormCreate(Sender: TObject);
begin
    DataSource1.DataSet:=nil;
    treeview1.Items.Clear;
    treeview2.Items.Clear;
    query3.Active:=false;
    query3.SQL.Clear;
    query3.SQL.Add('select * from custype order by CusType');
//    Table1.TableName:='商品类别';
    query3.Prepare;
    query3.Open;
    QUERY3.First;
    while not query3.Eof do
    begin
     // if (trim(query1.FieldByName('parentcode').asstring)='0') or (trim(query1.FieldByName('parentcode').asstring)='00') then
      if (trim(query3.FieldByName('parentcode').asstring)='0') then
      BEGIN
        treeview1.Selected:=treeview1.Items.Add(treeview1.items.getfirstnode,trim(query3.FieldByName('CusType').asstring));
        treeview2.Selected:=treeview2.Items.Add(treeview2.items.getfirstnode,trim(query3.FieldByName('CusName').asstring));
        treeview2.Selected.ImageIndex:=0;
        treeview2.Selected.SelectedIndex:=1;
      END
      else
      begin
        while trim(treeview1.Selected.Text)<>trim(query3.FieldByName('parentcode').asstring) do
        BEGIN
          treeview1.Selected:=treeview1.Selected.Parent;
          treeview2.Selected:=treeview2.Selected.Parent;
        END;
        treeview1.Selected:=treeview1.Items.AddChild(treeview1.selected,trim(query3.FieldByName('CusType').asstring));
        treeview2.Selected:=treeview2.Items.AddChild(treeview2.selected,trim(query3.FieldByName('CusName').asstring));
        treeview2.Selected.ImageIndex:=0;
        treeview2.Selected.SelectedIndex:=1;
      end;
      query3.Next;
    end;
    query3.Active:=false;
    query3.SQL.Clear;
    DataSource1.DataSet:=Query1;
   treeview2.FullCollapse;
   treeview1.FullCollapse;
   With DBChart1.Series[0] do
   begin
     DataSource:=Query1;
     XlabelsSource:='Code';
     YValues.ValueSource:='xiaoj';
   end;
   With DBChart2.Series[0] do
   begin
     DataSource:=Query1;
     XlabelsSource:='Code';
     YValues.ValueSource:='xiaoj';
   end;

end;

procedure ThyxxForm.TreeView2Click(Sender: TObject);
var
  ls:integer;
  CusName,CusCode:String;
begin
   With DBChart1.Series[0] do
   begin
     DataSource:=Query1;
     XlabelsSource:='Code';
     YValues.ValueSource:='xiaoj';
   end;
   With DBChart2.Series[0] do
   begin
     DataSource:=Query1;
     XlabelsSource:='Code';
     YValues.ValueSource:='xiaoj';
   end;
  if TreeView2.Selected<>nil then
  begin

    CusName:=TreeView2.Selected.Text;
    With Query5 do
    begin
      Close;
      Sql.Clear;
      sql.Add('Select CusType from Custype Where CusName='''+CusName+'''');
      prepare;
      Open;
      cusCode:=Fields[0].AsString+'%';
      Close;
      Sql.Clear;
      Sql.Add('Select * From jkMoney Where dm like '''+cusCode+'''');
      Open;
      DataSource1.DataSet:=Query5;
    end;
   With DBChart1.Series[0] do
   begin
     DataSource:=Query5;
     XlabelsSource:='Code';
     YValues.ValueSource:='xiaoj';
   end;
   With DBChart2.Series[0] do
   begin
     DataSource:=Query5;
     XlabelsSource:='Code';
     YValues.ValueSource:='xiaoj';
   end;

  end;
end;

procedure ThyxxForm.TreeView2Change(Sender: TObject; Node: TTreeNode);
begin
  TreeView2Click(nil);
end;

procedure CreateItemList;
begin

end;

procedure ThyxxForm.CreateItemList;
var
  idItem:String;
  xh:integer;
  cusCode,cusName:String;
  lsnum,lsxj,lshycard,lszp,lscard,lsgz,lsmf,lsother:currency;
  lsCusType,lsCusName:string;
  ls,ls1:string;
  strSql:String;
const
  strInsert='insert into jkmoney values(%d,%s,%f,%f,%f,%f,%f,%f,%f,%f,%f,%s)';
begin
  lsxj:=0;
  lsOther:=0;
  xh:=1;
  ls:=formatdatetime('yyyy-MM-dd',begdate.date)+' '+formatdatetime('hh:mm:ss',begtime.time);
  ls1:=formatdatetime('yyyy-MM-dd',enddate.date)+' '+formatdatetime('hh:mm:ss',endtime.time);
  With Query4 do
  begin
    Close;
    Sql.Clear;
    Sql.Add('Delete from jkMoney');
    prepare;
    execSql;
    Sql.Clear;
    sql.Add('Select cusCode,cusName From cusItem ');
    open;
    first;
    While not eof do
    begin
      cusCode:=fieldByName('CusCode').AsString;
      CusName:=FieldByName('CusName').AsString;
      With query5 do
      begin
         close;
         sql.Clear;
         Sql.Add('select isnull(count(Welid),0) from lscustom where Moditime>='''+ls+''' and Moditime<='''+ls1+''' and cuscode='''+cusCode+'''');
         prepare;
         open;
         lsNum:=fields[0].AsCurrency;
         close;
         sql.Clear;
         Sql.Add('select isnull(sum(Money),0) from lscustom where Moditime>='''+ls+''' and Moditime<='''+ls1+''' and substring(jzfs,2,1)=''2''  and isxj<>1 and ismd<>1  and cuscode='''+cusCode+'''');
         open;
         lszp:=fields[0].AsCurrency;
         close;
         sql.Clear;
         Sql.Add('select isnull(sum(Money),0) from lscustom where Moditime>='''+ls+''' and Moditime<='''+ls1+''' and substring(jzfs,2,1)=''3''  and isxj<>1 and ismd<>1   and cuscode='''+cusCode+'''');
         open;
         lsCard:=fields[0].AsCurrency;
         close;
         sql.Clear;
         Sql.Add('select isnull(sum(Money),0) from lscustom where Moditime>='''+ls+''' and Moditime<='''+ls1+''' and substring(jzfs,2,1)=''6''  and isxj<>1 and ismd<>1   and cuscode='''+cusCode+'''');
         open;
         lshyCard:=fields[0].AsCurrency;
         close;
         sql.Clear;
         Sql.Add('select isnull(sum(Money),0) from lscustom where Moditime>='''+ls+''' and Moditime<='''+ls1+''' and substring(jzfs,2,1)=''4''  and isxj<>1 and ismd<>1   and cuscode='''+cusCode+'''');
         open;
         lsgz:=fields[0].AsCurrency;
         close;
         sql.Clear;
         Sql.Add('select isnull(sum(Money),0) from lscustom where Moditime>='''+ls+''' and Moditime<='''+ls1+''' and ismd=1   and cuscode='''+cusCode+'''');
         open;
         lsmf:=fields[0].AsCurrency;
         close;
         sql.Clear;
         Sql.Add('select isnull(sum(Money),0) from lscustom where Moditime>='''+ls+''' and Moditime<='''+ls1+''' and substring(jzfs,2,1)=''1''  and isxj<>1 and ismd<>1   and cuscode='''+cusCode+'''');
         open;
         lsxj:=lsxj+fields[0].AsCurrency;
         close;
         sql.Clear;
         Sql.Add('select isnull(sum(Money),0) from lscustom where Regtime>='''+ls+''' and Regtime<='''+ls1+''' and isxj=1 and ismd<>1   and cuscode='''+cusCode+'''');
         open;
         lsxj:=lsxj+fields[0].AsCurrency;
         close;
         sql.Clear;
         Sql.Add('select isnull(sum(Money),0) from custom where Regtime>='''+ls+''' and Regtime<='''+ls1+''' and isxj=1  and cuscode='''+cusCode+'''');
         open;
         lsxj:=lsxj+fields[0].AsCurrency;
         close;
         Sql.Clear;
         StrSql:=format(strInsert,[xh,QuotedStr(CusName),lsnum,lsxj,lshycard,lszp,lscard,lsgz,lsmf,lsother,lsxj+lshycard+lscard+lsgz+lsmf+lsother,QuotedStr(cuscode)]) ;
         Sql.Add(strSql);
         lsXj:=0;
         ExecSql;
         UnPrepare;
         Sql.Clear;
      end;
      inc(xh);
      next;
    end;
    Close;
    unprepare;
    Sql.Clear;
  end;

end;

end.