ser410_01.pas.svn-base

开源的网站整站程序,功能强大带采集系统.

  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  if ATotal[4]=0 then AText:='0.00%' else AText:=FormatFloat(',0.00%',(AFinish[4]/ATotal[4])*100);
end;

procedure TSer410_01Form.dxDBTreeList1FTotal5DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AText:=FormatFloat(',0.00',ATotal[5]);
end;

procedure TSer410_01Form.dxDBTreeList1FFinish5DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AText:=FormatFloat(',0.00',AFinish[5]);
end;

procedure TSer410_01Form.dxDBTreeList1FPercent5DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  if ATotal[5]=0 then AText:='0.00%' else AText:=FormatFloat(',0.00%',(AFinish[5]/ATotal[5])*100);
end;

procedure TSer410_01Form.dxDBTreeList1FTotal6DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AText:=FormatFloat(',0.00',ATotal[6]);
end;

procedure TSer410_01Form.dxDBTreeList1FFinish6DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AText:=FormatFloat(',0.00',AFinish[6]);
end;

procedure TSer410_01Form.dxDBTreeList1FPercent6DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  if ATotal[6]=0 then AText:='0.00%' else AText:=FormatFloat(',0.00%',(AFinish[6]/ATotal[6])*100);
end;

procedure TSer410_01Form.dxDBTreeList1FTotal7DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AText:=FormatFloat(',0.00',ATotal[7]);
end;

procedure TSer410_01Form.dxDBTreeList1FFinish7DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AText:=FormatFloat(',0.00',AFinish[7]);
end;

procedure TSer410_01Form.dxDBTreeList1FPercent7DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  if ATotal[7]=0 then AText:='0.00%' else AText:=FormatFloat(',0.00%',(AFinish[7]/ATotal[7])*100);
end;

procedure TSer410_01Form.dxDBTreeList1FTotal8DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AText:=FormatFloat(',0.00',ATotal[8]);
end;

procedure TSer410_01Form.dxDBTreeList1FFinish8DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AText:=FormatFloat(',0.00',AFinish[8]);
end;

procedure TSer410_01Form.dxDBTreeList1FPercent8DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  if ATotal[8]=0 then AText:='0.00%' else AText:=FormatFloat(',0.00%',(AFinish[8]/ATotal[8])*100);
end;

procedure TSer410_01Form.dxDBTreeList1FTotal9DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AText:=FormatFloat(',0.00',ATotal[9]);
end;

procedure TSer410_01Form.dxDBTreeList1FFinish9DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AText:=FormatFloat(',0.00',AFinish[9]);
end;

procedure TSer410_01Form.dxDBTreeList1FPercent9DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  if ATotal[9]=0 then AText:='0.00%' else AText:=FormatFloat(',0.00%',(AFinish[9]/ATotal[9])*100);
end;

procedure TSer410_01Form.dxDBTreeList1FTotal10DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AText:=FormatFloat(',0.00',ATotal[10]);
end;

procedure TSer410_01Form.dxDBTreeList1FFinish10DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AText:=FormatFloat(',0.00',AFinish[10]);
end;

procedure TSer410_01Form.dxDBTreeList1FPercent10DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  if ATotal[10]=0 then AText:='0.00%' else AText:=FormatFloat(',0.00%',(AFinish[10]/ATotal[10])*100);
end;

procedure TSer410_01Form.dxDBTreeList1FTotal11DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AText:=FormatFloat(',0.00',ATotal[11]);
end;

procedure TSer410_01Form.dxDBTreeList1FFinish11DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AText:=FormatFloat(',0.00',AFinish[11]);
end;

procedure TSer410_01Form.dxDBTreeList1FPercent11DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  if ATotal[11]=0 then AText:='0.00%' else AText:=FormatFloat(',0.00%',(AFinish[11]/ATotal[11])*100);
end;

procedure TSer410_01Form.dxDBTreeList1FTotal12DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AText:=FormatFloat(',0.00',ATotal[12]);
end;

procedure TSer410_01Form.dxDBTreeList1FFinish12DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AText:=FormatFloat(',0.00',AFinish[12]);
end;

procedure TSer410_01Form.dxDBTreeList1FPercent12DrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  if ATotal[12]=0 then AText:='0.00%' else AText:=FormatFloat(',0.00%',(AFinish[12]/ATotal[12])*100);
end;

procedure TSer410_01Form.dxDBTreeList1FTotalDrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AText:=FormatFloat(',0.00',ATotal[13]);
end;

procedure TSer410_01Form.dxDBTreeList1FFinishDrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  AText:=FormatFloat(',0.00',AFinish[13]);
end;

procedure TSer410_01Form.dxDBTreeList1FPercentDrawSummaryFooter(
  Sender: TObject; ACanvas: TCanvas; ARect: TRect; var AText: String;
  var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
  var ADone: Boolean);
begin
  inherited;
  if ATotal[13]=0 then AText:='0.00%' else AText:=FormatFloat(',0.00%',(AFinish[13]/ATotal[13])*100);
end;

procedure TSer410_01Form.ActOpenExecute(Sender: TObject);
begin
{var
  AFieldInfo:TwwFieldInfo;
begin
  inherited;
//查看
  if ADODataSet1.IsEmpty then Exit;
  Screen.Cursor:=crHourGlass;
  Tas510_01Form:=TTas510_01Form.Create(Application);
  Tas510_01Form.edtFromDate.Date:=EncodeDate(StrToInt(cbYear.Text),1,1);
  Tas510_01Form.edtToDate.Date:=EncodeDate(StrToInt(cbYear.Text),12,31);
  Tas510_01Form.sbSearch.Click;
  AFieldInfo:=TwwFieldInfo.create;
  //按任务类别
  if cbType.ItemIndex=0 then
  begin
    Tas510_01Form.cbClass.ItemIndex:=Tas510_01Form.cbClass.Items.IndexOf(ADODataSet1FName.Value);
    Tas510_01Form.sbSearch.Click;
  end else
  //按产品类别
  if cbType.ItemIndex=1 then
  begin
    FilterDialog(Tas510_01Form.DataSource1,False);
    AFieldInfo.FieldName:='I120_003';
    AFieldInfo.DisplayLabel:=Tas510_01Form.ADOQuery1I120_003.DisplayLabel;
    AFieldInfo.MatchType:=fdMatchStart;
    AFieldInfo.CaseSensitive:=False;
    AFieldInfo.NonMatching:=False;
    AFieldInfo.FilterValue:=ADODataSet1FName.Value;;
    SYSDM.wwFilterDialog1.FieldInfo.Add(AFieldInfo);
    SYSDM.wwFilterDialog1.ApplyFilter;
  end else
  //按客户
  if cbType.ItemIndex=2 then
  begin
    FilterDialog(Tas510_01Form.DataSource1,False);
    AFieldInfo.FieldName:='O150_003';
    AFieldInfo.DisplayLabel:=Tas510_01Form.ADOQuery1O150_003.DisplayLabel;