readquery.pas

进销存·完整的·有数据库的·非常完整·只得参考

        bbSave.Visible := ivAlways;
        DataSetQuery.LockType := ltBatchOptimistic;
        Caption := '商品价格管理';
        sField := 'ID,UserCode,Name,Sort,Number,ConstPrice,Price,' +
          'Pos_Price,Price1,Price2,Price3,Price4';
        sCaption := 'ID,商品编号,商品名称,商品分类,数量,参考进价,' +
          '成本单价,参考售价,预设售价1,预设售价2,预设售价3,预设售价4';
        sWidth := '30,80,150,90,90,90,90,90,90,90,90,90';
        sWrite := 'Pos_Price,Price1,Price2,Price3,Price4';
        bbDetaled.Visible := ivNever;
        sUniqueTable := 'Ware';
        sPubMask := '1,2,3,4,5,$,$,$,$,$,$,$';
      end;
    WARE_STOCK_ORDER_COLLECT:
      begin
        Caption := '商品采购订单汇总表';
        sBandIndex := '4,3';
        if bUseTwoUnit then
        begin
          sPubCalcField := 'TwoNumber';
          cPubFieldMode := 'S';
          sTwoField := ',TwoNumber';
          sTwoCaption := ',辅助数量';
          sTwoWidth := ',90';
          sTwoMask := ',7';
          sBandIndex := '4,4';
        end;
        sField := 'ID,UserCode,Name ,Unit,SumNumber' + sTwoField + ',Price,Total';
        sCaption := 'ID,商品编号,商品名称,计量单位,进货数量' + sTwoCaption + ',单价,总金额';
        sWidth := '30,80,120,90,90' + sTwoWidth + ',90,90';
        sPrintChart := '5,Name,Total'; //默认图形字段
        sBandCaption := '　,订货数据'; //双表头
        sPubMask := '1,2,3,4,5' + sTwoMask + ',$,$';
        sColSum := 'SumNumber,Total';
      end;
    EMPLOYE_STOCK_ORDER_COLLECT:
      begin
        Caption := '业务员采购订单汇总表';
        sField := 'ID,UserCode,Name ,BillDate,SumNumber,Total';
        sCaption := 'ID,业务员编号,业务员名称,采购日期,进货数量,总金额';
        sWidth := '30,80,100,90,90,90';
        sPrintChart := '5,Name,Total'; //默认图形字段
        sBandCaption := '　,订货数据'; //双表头
        sBandIndex := '4,2';
        sPubMask := '1,2,3,4,5,$';
        sColSum := 'SumNumber,Total';
      end;
    CLIENT_STOCK_ORDER_COLLECT:
      begin
        Caption := '供应商供货订单汇总表';
        sField := 'ID,UserCode,Name,AreaName ,BillDate,SumNumber,Total';
        sCaption := 'ID,供应商编号,供应商名称,地区,供货日期,供货数量,总金额';
        sWidth := '30,90,120,90,90,90,90';
        sPrintChart := '5,Name,Total'; //默认图形字段
        sBandCaption := '　,订货数据'; //双表头
        sGroupField := 'AreaName';
        sBandIndex := '5,2';
        sPubMask := '1,2,3,4,5,6,$';
        sColSum := 'SumNumber,Total';
      end;
    WARE_SALE_ORDER_COLLECT:
      begin
        Caption := '商品销售订单汇总表';
        sBandIndex := '4,3';
        if bUseTwoUnit then
        begin
          sPubCalcField := 'TwoNumber';
          cPubFieldMode := 'S';
          sTwoField := ',TwoNumber';
          sTwoCaption := ',辅助数量';
          sTwoWidth := ',90';
          sTwoMask := ',7';
          sBandIndex := '4,4';
        end;
        sField := 'ID,UserCode,Name  ,Unit  ,SumNumber' + sTwoField + ',Price,Total';
        sCaption := 'ID,商品编号,商品名称,计量单位,销售数量' + sTwoCaption + ',单价,销售收入';
        sWidth := '30,80,120,90,90' + sTwoWidth + ',90,90';
        sPrintChart := '5,Name,Total'; //默认图形字段
        sBandCaption := '　,订单销售数据'; //双表头
        sPubMask := '1,2,3,4,5' + sTwoMask + ',$,$';
        sColSum := 'SumNumber,Total';
      end;
    EMPLOYE_SALE_ORDER_COLLECT:
      begin
        Caption := '业务员销售订单汇总表';
        sField := 'ID,UserCode,Name ,Billdate,SumNumber,Total';
        sCaption := 'ID,业务员编号,业务员名称,销售日期,销售数量,总金额';
        sWidth := '30,80,100,90,90,90';
        sPrintChart := '5,Name,Total'; //默认图形字段
        sBandCaption := '　,订单销售数据'; //双表头
        sBandIndex := '4,2';
        sPubMask := '1,2,3,4,5,$';
        sColSum := 'SumNumber,Total';
      end;
    CLIENT_SALE_ORDER_COLLECT:
      begin
        Caption := '客户销售订单汇总表';
        sField := 'ID,UserCode,Name,AreaName ,Billdate,SumNumber,Total';
        sCaption := 'ID,客户编号,客户名称,地区,销售日期,销售数量,总金额';
        sWidth := '30,90,120,90,90,90,90';
        sPrintChart := '5,Name,Total'; //默认图形字段
        sBandCaption := '　,订单销售数据'; //双表头
        sBandIndex := '5,2';
        sGroupField := 'AreaName';
        sPubMask := '1,2,3,4,5,6,$';
        sColSum := 'SumNumber,Total';
      end;
    WARE_STOCK_COLLECT:
      begin
        Caption := '商品采购汇总表';
        sBandIndex := '4,2';
        if bUseTwoUnit then
        begin
          sPubCalcField := 'TwoNumber';
          cPubFieldMode := 'S';
          sTwoField := ',TwoNumber';
          sTwoCaption := ',辅助数量';
          sTwoWidth := ',90';
          sTwoMask := ',7';
          sBandIndex := '4,3';
        end;
        sField := 'ID,UserCode,Name ,Unit,SumNumber' + sTwoField + ',Total';
        sCaption := 'ID,商品编号,商品名称,计量单位,进货数量' + sTwoCaption + ',总金额';
        sWidth := '30,80,120,90,90' + sTwoWidth + ',90';
        sPrintChart := '5,Name,Total'; //默认图形字段
        sBandCaption := '　,采购数据'; //双表头
        sPubMask := '1,2,3,4,5' + sTwoMask + ',$';
        sColSum := 'SumNumber,Total';
      end;
    WARE_STOCK_DETAILED:
      begin
        Caption := '商品采购明细表';
        sBandIndex := '7,3';
        if bUseTwoUnit then
        begin
          sPubCalcField := 'TwoNumber';
          cPubFieldMode := 'S';
          sTwoField := ',TwoNumber';
          sTwoCaption := ',辅助数量';
          sTwoWidth := ',90';
          sTwoMask := ',7';
          sBandIndex := '7,4';
        end;
        sField := 'ID,UserCode,Name ,Unit ,UnitName,iUserCode,BillType,Billdate ,SumNumber' + sTwoField +
          ',Price,Total';
        sCaption := 'ID,商品编号,商品名称,计量单位,往来单位,单据编号,单据类型,采购日期,进货数量' + sTwoCaption +
          ',单价,金额';
        sWidth := '30,80,120,90,90,90,90,90,90' + sTwoWidth + ',90,90';
        sGroupField := 'Name';
        sPrintChart := '5,Billdate,Total'; //默认图形字段
        sBandCaption := '　,采购数据'; //双表头
        sPubMask := '1,2,3,4,5,6,7,8,9' + sTwoMask + ',$,$';
        sColSum := 'SumNumber,Total';
      end;
    EMPLOYE_STOCK_COLLECT:
      begin
        Caption := '业务员采购汇总表';
        sField := 'ID,UserCode,Name ,SumNumber,Total';
        sCaption := 'ID,业务员编号,业务员名称,进货数量,总金额';
        sWidth := '30,80,100,90,90';
        sPrintChart := '3,Name,Total'; //默认图形字段
        sBandCaption := '　,采购数据'; //双表头
        sBandIndex := '3,2';
        sPubMask := '1,2,3,4,$';
        sColSum := 'SumNumber,Total';
      end;
    EMPLOYE_STOCK_DETAILED:
      begin
        Caption := '业务员采购明细表';
        sField := 'ID,UserCode,Name ,iUserCode,,BillType,BillDate,WareName,SumNumber,Total';
        sCaption := 'ID,业务员编号,业务员名称,单据编号,单据类型,进货日期,商品名称,进货数量,总金额';
        sWidth := '30,80,100,90,90,90,110,90,90';
        sGroupField := 'Name';
        sPrintChart := '5,Billdate,Total'; //默认图形字段
        sBandCaption := '　,采购数据'; //双表头
        sBandIndex := '6,3';
        sPubMask := '1,2,3,4,5,6,7,8,$';
        sColSum := 'SumNumber,Total';
      end;
    PROVIDE_STOCK_COLLECT:
      begin
        Caption := '供应商供货汇总表';
        sField := 'ID,UserCode,Name ,AreaName,SumNumber,Total';
        sCaption := 'ID,供应商编号,供应商名称,地区,供货数量,总金额';
        sWidth := '30,90,120,90,90,90';
        sPrintChart := '4,Name,Total'; //默认图形字段
        sBandCaption := '　,供货数据'; //双表头
        sBandIndex := '4,2';
        sGroupField := 'AreaName';
        sPubMask := '1,2,3,4,5,$';
        sColSum := 'SumNumber,Total';
      end;
    PROVIDE_STOCK_DETAILED:
      begin
        Caption := '供应商供货明细表';
        sField := 'ID,UserCode,Name ,AreaName,iUserCode,BillType,BillDate,WareName,SumNumber,Total';
        sCaption := 'ID,供应商编号,供应商名称,地区,单据编号,单据类型,供货日期,商品名称,供货数量,总金额';
        sWidth := '30,90,120,90,90,90,90,110,90,90';
        sGroupField := 'Name';
        sPrintChart := '5,BillDate,Total'; //默认图形字段
        sBandCaption := '　,供货数据'; //双表头
        sBandIndex := '7,3';
        sPubMask := '1,2,3,4,5,6,7,8,9,$';
        sColSum := 'SumNumber,Total';
      end;
    WARE_SALE_COLLECT:
      begin
        Caption := '商品销售汇总表';
        sBandIndex := '4,2';
        if bUseTwoUnit then
        begin
          sPubCalcField := 'TwoNumber';
          cPubFieldMode := 'S';
          sTwoField := ',TwoNumber';
          sTwoCaption := ',辅助数量';
          sTwoWidth := ',90';
          sTwoMask := ',7';
          sBandIndex := '4,3';
        end;
        sField := 'ID,UserCode,Name  ,Unit  ,SumNumber' + sTwoField + ',Total';
        sCaption := 'ID,商品编号,商品名称,计量单位,销售数量' + sTwoCaption + ',销售收入';
        sWidth := '30,80,120,90' + sTwoWidth + ',90,90';
        sPrintChart := '5,Name,Total'; //默认图形字段
        sBandCaption := '　,销售数据'; //双表头
        sPubMask := '1,2,3,4,5' + sTwoMask + ',$';
        sColSum := 'SumNumber,Total';
      end;
    WARE_SALE_DETAILED:
      begin
        Caption := '商品销售明细表';
        sBandIndex := '7,3';
        if bUseTwoUnit then
        begin
          sPubCalcField := 'TwoNumber';
          cPubFieldMode := 'S';
          sTwoField := ',TwoNumber';
          sTwoCaption := ',辅助数量';
          sTwoWidth := ',90';
          sTwoMask := ',7';
          sBandIndex := '7,4';
        end;
        sField := 'ID,UserCode,Name  ,Unit,UnitName,iUserCode,BillType,Billdate  ,SumNumber' + sTwoField + ',Price,Total';
        sCaption := 'ID,商品编号,商品名称,计量单位,往来单位,单据编号,单据类型,销售日期,销售数量' + sTwoCaption +
          ',单价,销售收入';
        sWidth := '30,80,120,90,90,90,90,90' + sTwoWidth + ',90,90';
        sGroupField := 'Name';
        sPrintChart := '5,Billdate,Total'; //默认图形字段
        sBandCaption := '　,销售数据'; //双表头
        sPubMask := '1,2,3,4,5,6,7,8,9' + sTwoMask + ',$,$';
        sColSum := 'SumNumber,Total';
      end;
    EMPLOYE_SALE_COLLECT:
      begin
        Caption := '业务员销售汇总表';
        sField := 'ID,UserCode,Name ,SumNumber,Total';
        sCaption := 'ID,业务员编号,业务员名称,销售数量,总金额';
        sWidth := '30,80,100,90,90';
        sPrintChart := '5,Name,Total'; //默认图形字段
        sBandCaption := '　,销售数据'; //双表头
        sBandIndex := '3,2';
        sPubMask := '1,2,3,4,$';
        sColSum := 'SumNumber,Total';
      end;
    EMPLOYE_SALE_DETAILED:
      begin
        Caption := '业务员销售明细表';
        sField := 'ID,UserCode,Name ,iUserCode,BillType,Billdate,WareName,SumNumber,Total';
        sCaption := 'ID,业务员编号,业务员名称,单据编号,单据类型,销售日期,商品名称,销售数量,总金额';
        sGroupField := 'Name';
        sWidth := '30,80,100,90,90,90,110,90,90';
        sPrintChart := '5,Billdate,Total'; //默认图形字段