readquery.pas

胜天财务进销存2003源代码,SQLSERVER版,目前最完整的财务进销存系统.

    BASE_CLIENT:
      begin
        Caption := '客户详细资料查询';
        sField := 'ID,UserCode,Name,LinkMan,Phone,PhoneFax,Address,AreaName,Receive';
        sCaption := 'ID,用户编号,用户全名,联系人,联系电话,传真,地址,地区,应收款';
        sWidth := '30,80,150,80,70,70,120,80,60';
        bbChart.Visible := ivNever;
        bbDetaled.Visible := ivNever;
        sPubMask := '1,2,3,4,5,6,7,8,$';
        sColSum := 'Receive';
      end;
    BASE_PROVIDE:
      begin
        Caption := '供应商详细资料查询';
        bbDetaled.Visible := ivNever;
        sField := 'ID,UserCode,Name,LinkMan,Phone,PhoneFax,Address,AreaName,Payable';
        sCaption := 'ID,用户编号,用户全名,联系人,联系电话,传真,地址,地区,应付款';
        sWidth := '30,80,150,80,70,70,120,80,60';
        bbChart.Visible := ivNever;
        sPubMask := '1,2,3,4,5,6,7,8,$';
        sColSum := 'Payable';
      end;
    BASE_EMPLOYE:
      begin
        Caption := '员工详细资料查询';
        sField := 'ID,UserCode,Name,ComeDate,Sex,Dept,Learning,Place,Phone,PhoneMove';
        sCaption := 'ID,员工编号,员工名称,出生日期,性别,部门,学历,籍贯,电话,手机';
        sWidth := '30,80,100,80,50,70,60,60,60,60';
        bbChart.Visible := ivNever;
        bbDetaled.Visible := ivNever;
      end;
    BASE_WARE:
      begin
        Caption := '商品详细资料查询';
        sField := 'ID,UserCode,Name,Sort,Unit,Model,Spec,SumNumber,SumTotal,Pos_purch,Pos_Price,Up_Limit,Down_Limit';
        sCaption := 'ID,商品编号,商品名称,商品分类,计量单位,型号,规格,存货数量,总金额,参考进价,参考售价,库存上限,库存下限';
        sWidth := '30,80,120,70,70,70,70,70,70,70,70,70,70';
        sBandCaption := '　,商品价格,库存报警';
        sBandIndex := '7,4,2';
        sPubMask := '1,2,3,4,5,6,7,8,$,$,$,10,11';
        bbChart.Visible := ivNever;
        bbDetaled.Visible := ivNever;
      end;
    BASE_DEPOT:
      begin
        Caption := '仓库详细资料查询';
        sField := 'ID,UserCode,Name,PinYin,Address,Explain';
        sCaption := 'ID,仓库编号,仓库名称,拼音编码,位置,说明';
        sWidth := '30,80,150,70,100,100';
        bbChart.Visible := ivNever;
        bbDetaled.Visible := ivNever;
      end;
    BASE_FIXED_ADD:
      begin
        Caption := '固定资产详细资料查询';
        sField := 'ID,UserCode,Name,Spec,InDate,UseMonth,BornValue,NetValue';
        sCaption :=
          'ID,资产编号,资产名称,规格型号,入账日期,使用月份, 入账原值,净值';
        sWidth := '30,80,120,70,70,70,70,70';
        sPubMask := '1,2,3,4,5,6,$,$';
        bbChart.Visible := ivNever;
        bbDetaled.Visible := ivNever;
      end;
    BASE_FIXED_WORK:
      begin
        bbSave.Visible := ivAlways;
        DataSetQuery.LockType := ltBatchOptimistic;
        Caption := '固定资产工作量录入';
        sField := 'ID,UserCode,Name,UseMonth,CountMonth,Work';
        sCaption := 'ID,资产编号,资产名称,工作总量,期初累计工作量,本期工作量';
        sBandCaption := '　,工作量';
        sBandIndex := '4,2';
        sWidth := '30,80,120,90,90,90';
        sWrite := 'Work';
        bbChart.Visible := ivNever;
        sPubMask := '1,2,3,4,$,$';
        sUniqueTable := 'FixedWork';
        sColSum := 'UseMonth,CountMonth,Work';
        bbDetaled.Visible := ivNever;
      end;
    QUERY_FIXED_BILL:
      begin
        Caption := '固定资产清单';
        sField := 'ID,UserCode,Name,Spec,Sort,Dept,AddMode,UseStatus,AbateMode,BornValue,AllAbate,NetValue,InDate,'
          + 'FutuPvalue,FutuValue,UseMonth,CountMonth,MAbateMod,MAbateValue,Subject,Address';
        sCaption := 'ID,资产编号,资产名称,规格型号,类别,部门,增减方式,使用状况,折旧方法,入账原值,累计折旧,净值,入账日期,'
          + '预计净残值率,预计净残值,预计使用月份(工作量),已提月份(已提工作量),' +
          '月折旧率,月折旧额,科目,存放位置';
        sBandCaption := '　,资产折旧,使用月份(工作量),月折旧,　';
        sBandIndex := '9,6,2,2,2';
        sWidth := '30,80,120,70,80,80,70,70,70,70,70,80,90,80,70,90,90,70,70,80,200';
        sPrintChart := '3,Dept,AllAbate'; //默认图形字段
        bbDetaled.Visible := ivNever;
      end;
    QUERY_FIXED_DEPRECIATE:
      begin
        Caption := '固定资产折旧表';
        sField := 'ID,UserCode,Name,UseMonth,BornValue,SumDep,NowSumMod,NowSumValue';
        sCaption := 'ID,资产编号,资产名称,预计使用月份(工作量),期初入账原值,' +
          '期初累计折旧,月折旧率(%),本期计提折旧';
        sBandCaption := '　,资产折旧';
        sBandIndex := '3,5';
        sWidth := '30,80,120,80,80,80,80,80';
        sPrintChart := '5,Name,PeriodAbate'; //默认图形字段
        bbDetaled.Visible := ivNever;
      end;
    QUERY_FIXED_PILE_DEPRECIATE: //未完
      begin
        Caption := '固定资产累计折旧余额表';
        sField := 'ID,Period,UserCode,Name,A,B,C,D,E,F,I,J,K,L,M,N';
        sCaption := 'ID,期间号,固定资产编号,固定资产名称,期初余额,本年借方,本年货方,本期借方,本期货方,期末余额,'
          +
          '期初余额,本年借方,本年货方,本期借方,本期货方,期末余额';
        sWidth := '30,50,90,120,70,70,70,70,70,70,70,70,70,70,70,70';
        sBandCaption := '　,固定资产(余额方向为借方),累计折旧(余额方向为货方)';
        sBandIndex := '4,6,6';
        bbChart.Visible := ivNever;
        bbDetaled.Visible := ivNever;
      end;
    QUERY_FIXED_WORK: //未完
      begin
        Caption := '固定资产工作量查询';
        sField := 'ID,Period,UserCode,Name,UseMonth,Work,CountMonth';
        sCaption :=
          'ID,期间号,固定资产编号,固定资产名称,工作总量,本期工作量,期末累计工作量';
        sBandCaption := '　,固定资产工作量';
        sBandIndex := '4,3';
        sWidth := '30,50,90,120,80,80,90';
        sPrintChart := '3,Period,Work'; //默认图形字段
        bbDetaled.Visible := ivNever;
      end;
    WAGE_DATA_INPUT, QUERY_WAGE_PRINT_BAR, QUERY_WAGE_PRINT_TAB:
      begin
        Caption := '工资数据录入';
        sCaption := 'Name';
        sField := 'Order';
        sExp := 'Expression';
        GetDataField(sCaption, sField, sWidth, sWrite, sExp);
        sExpCaptionSave := sCaption;
        sExpFieldSave := sField;
        sExpSave := sExp;
        sSaveDataField := sField + 'Signature';
        sBandCaption := '　,工资数据录入,　'; //双表头
        sBandIndex := '4,' + IntToStr(GetCommaStrCount(sField) + 1) + ',1';
        sField := 'ID,Dept,UserCode,Name,Wage,' + sField + 'Signature';
        sCaption := 'ID,部门,职员编号,职员名称,基本工资,' + sCaption + '签名';
        sWidth := '30,90,100,150,80,' + sWidth + '80';
        sWrite := 'Signature,' + sWrite;
        sIsString := 'Signature';
        sColSum := 'Wage,' + sField;
        bbChart.Visible := ivNever;
        bbDetaled.Visible := ivNever;
        case lMode of
          WAGE_DATA_INPUT:
            begin
              Caption := '工资数据录入';
              DataSetQuery.LockType := ltBatchOptimistic;
              bbSave.Visible := ivAlways;
              sUniqueTable := 'WageTable';
            end;
          QUERY_WAGE_PRINT_BAR:
            begin
              Caption := '打印工资条';
              sWrite := '';
              MainGrid.Tag := 5; //打印成条型表
              sBandCaption := '';
              sBandIndex := ''; //去掉双表头
            end;
          QUERY_WAGE_PRINT_TAB:
            begin
              Caption := '打印工资发放表';
              sWrite := '';
            end;
        end;
      end;
    QUERY_WAGE_PRINT_SUM:
      begin
        Caption := '部门工资汇总表';
        sCaption := 'Name';
        sField := 'Order';
        sExp := 'Expression';
        GetDataField(sCaption, sField, sWidth, sWrite, sExp);
        sBandCaption := '　,工资数据,　'; //双表头
        sBandIndex := '2,' + IntToStr(GetCommaStrCount(sField) + 1);
        sField := 'ID,Dept,Wage,' + sField;
        sCaption := 'ID,部门,基本工资,' + sCaption;
        sWidth := '30,100,90,' + sWidth;
        sWrite := '';
        sPrintChart := '5,Dept,Wage'; //默认图形字段
        bbDetaled.Visible := ivNever;
      end;
    QUERY_WAGE_LEARNING:
      begin
        Caption := '员工结构分析';
        sField := 'ID,Learning,count,Percent';
        sCaption := 'ID,学历名称,员工人数,所占比例％';
        sWidth := '30,150,150,150';
        sPrintChart := '5,Learning,Percent'; //默认图形字段
        sPubMask := '0,0,0,$';
        bbDetaled.Visible := ivNever;
      end;
    WARE_STOCK_QUERY:
      begin
        if bUseTwoUnit then //双单位参数
        begin
          sPubCalcField := 'TwoNumber';
          cPubFieldMode := 'S';
          sTwoField := ',TwoNumber';
          sTwoCaption := ',辅助数量';
          sTwoWidth := ',90';
          sTwoMask := ',7';
        end;
        Caption := '商品库存查询';
        sField := 'ID,UserCode,Name,Sort,Unit,SumNumber' + sTwoField + ',Price,SumTotal';
        sCaption := 'ID,商品编号,商品名称,商品分类,单位,数量' + sTwoCaption + ',单价,总金额';
        sWidth := '30,80,150,90,90,90' + sTwoWidth + ',90,90';
        sPrintChart := '5,Name,SumNumber'; //默认图形字段
        bbDepot.Visible := ivAlways;
        pnlDepot.Visible := True;
        sPubMask := '1,2,3,4,5,6' + sTwoMask + ',$,$';
        sColSum := 'SumNumber' + sTwoField + ',SumTotal';
        bbDetaled.Visible := ivNever;
      end;
    WARE_STOCK_DISTRIBUTE:
      begin
        Caption := '商品分仓库存查询';
        sSql := ' SELECT D.Name AS DName, 90 AS Width FROM Depot AS D ';
        sField := 'DName';
        sCaption := 'DName';
        sWidth := 'Width';
        TableToStrings(sSql, sField, sCaption, sWidth, ',');
        sColSum := sField;
        sField := 'ID,UserCode,Name,Sort,Unit,' + sField;
        sCaption := 'ID,商品编号,商品名称,商品分类,单位,' + sCaption;
        sWidth := '30,80,150,90,90,' + sWidth;
        bbDetaled.Visible := ivNever;
      end;
    WARE_STOCK_EDIT:
      begin
        if bUseTwoUnit then //双单位参数
        begin
          sPubCalcField := 'TwoNumber';
          cPubFieldMode := 'S';
          sTwoField := ',TwoNumber';
          sTwoCaption := ',辅助数量';
          sTwoWidth := ',90';
          sTwoMask := ',7';
        end;
        bbSave.Visible := ivAlways;
        DataSetQuery.LockType := ltBatchOptimistic;
        Caption := '期初库存修改';
        sField := 'ID,UserCode,Name,Sort,Number' + sTwoField + ',Price,Total';
        sCaption := 'ID,商品编号,商品名称,商品分类,库存数量' + sTwoCaption + ',成本单价,金额';
        sWidth := '30,80,150,90,90' + sTwoWidth + ',90,90';
        sPrintChart := '5,Name,Number'; //默认图形字段
        pnlDepot.Visible := True;
        bbDepot.Visible := ivAlways;
        sWrite := 'Number,Price';
        sUniqueTable := 'WareStock0';
        sColSum := 'Number,Total';
        bbDetaled.Visible := ivNever;
        lblEditDepot.Visible := True;
        if bStartAccount then
        begin
          lblEditDepot.Caption := '启用账套以后不能修改库存数量';
          DataSetQuery.LockType := ltReadOnly;
        end
        else
          lblEditDepot.Caption := '必需选择仓库才能修改库存数量';
      end;