ser420_01.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

    ATotal[2]:=ATotal[2]+ADODataSet1.FieldByName('FFinish').Value;
    ADODataSet1.Next;
  end;
end;

procedure TSer420_01Form.sbSearchClick(Sender: TObject);
begin
  inherited;
//查询
  if (edtFromDate.Text='') or (edtToDate.Text='') then
  begin
    ShowMsg('UMS10000319');  //起止日期不可为空
    if edtFromDate.Text='' then edtFromDate.SetFocus else edtToDate.SetFocus;
    Abort;
  end;
  if edtFromDate.Date>edtToDate.Date then
  begin
    ShowMsg('UMS10000320');  //结束日期不能小于起始日期
    edtToDate.SetFocus;
    Abort;
  end;
  Screen.Cursor:=crHourGlass;
  ABusy:=True;
  ATotal[1]:=0;
  ATotal[2]:=0;
  ADOQuery1.Close;
  ADODataSet1.DisableControls;
  ADODataSet1.Close;
  ADODataSet1.FieldDefs.Clear;
  ADODataSet1.FieldDefs.Add('FNo',ftInteger,0);
  ADODataSet1.FieldDefs.Add('FName',ftString,50);
  ADODataSet1.FieldDefs.Add('FParent',ftInteger,0);
  ADODataSet1.FieldDefs.Add('FTotal',ftInteger,0);
  ADODataSet1.FieldDefs.Add('FFinish',ftInteger,0);
  ADODataSet1.FieldDefs.Add('FPercent',ftFloat,0);
  ADODataSet1.CreateDataSet;
  case cbType.ItemIndex of
    0:ByClass(edtFromDate.Date,edtToDate.Date);  //按服务类别
    1:ByPerson(edtFromDate.Date,edtToDate.Date);  //按接听人员
    2:ByCustomer(edtFromDate.Date,edtToDate.Date);  //按客户
  end;
  ADODataSet1.EnableControls;

  ADODataSet2.Close;
  ADODataSet2.FieldDefs.Clear;
  ADODataSet2.FieldDefs.Add('FName',ftString,50);
  ADODataSet2.FieldDefs.Add('FTotal',ftInteger,0);
  ADODataSet2.FieldDefs.Add('FFinish',ftInteger,0);
  ADODataSet2.CreateDataSet;
  ADODataSet2.Append;
  ADODataSet2.FieldByName('FName').Value:=DBChart1.Title.Text.Text;  //總數分析
  ADODataSet2.FieldByName('FTotal').Value:=ATotal[1];
  ADODataSet2.FieldByName('FFinish').Value:=ATotal[2];
  ADODataSet2.Post;
  DBChart1.RefreshData;
  ABusy:=False;
  ADODataSet1AfterScroll(ADODataSet1);
  Screen.Cursor:=crDefault;
end;

procedure TSer420_01Form.dxDBTreeList1DblClick(Sender: TObject);
begin
  inherited;
  if ADODataSet1.IsEmpty then Exit;
  Ser500_01Form:=TSer500_01Form.Create(Application);
  Ser500_01Form.cbClass.Text:=ADODataSet1.FieldByName('FName').Value;
  Ser500_01Form.edtFromDate.Date:=edtFromDate.Date;
  Ser500_01Form.edtToDate.Date:=edtToDate.Date;
  Ser500_01Form.sbSearch.Click;
  Ser500_01Form.ShowModal;
end;

procedure TSer420_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[1]);
end;

procedure TSer420_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',ATotal[2]);
end;

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

procedure TSer420_01Form.ActOpenExecute(Sender: TObject);
var
  AFieldInfo:TwwFieldInfo;
begin
  inherited;
//查看
  if ADODataSet1.IsEmpty then Exit;
  Screen.Cursor:=crHourGlass;
  Ser500_01Form:=TSer500_01Form.Create(Application);
  Ser500_01Form.edtFromDate.Date:=edtFromDate.Date;
  Ser500_01Form.edtToDate.Date:=edtToDate.Date;
  Ser500_01Form.sbSearch.Click;
  AFieldInfo:=TwwFieldInfo.create;
  //按服务类别
  if cbType.ItemIndex=0 then
  begin
    Ser500_01Form.cbClass.ItemIndex:=Ser500_01Form.cbClass.Items.IndexOf(ADODataSet1FName.Value);
    Ser500_01Form.sbSearch.Click;
  end else
  //按接听人员
  if cbType.ItemIndex=1 then
  begin
    FilterDialog(Ser500_01Form.DataSource1,False);
    AFieldInfo.FieldName:='I120_003';
//    AFieldInfo.DisplayLabel:=Ser500_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(Ser500_01Form.DataSource1,False);
    AFieldInfo.FieldName:='O150_003';
    AFieldInfo.DisplayLabel:=Ser500_01Form.ADOQuery1O150_003.DisplayLabel;
    AFieldInfo.MatchType:=fdMatchStart;
    AFieldInfo.CaseSensitive:=False;
    AFieldInfo.NonMatching:=False;
    AFieldInfo.FilterValue:=ADODataSet1FName.Value;;
    SYSDM.wwFilterDialog1.FieldInfo.Add(AFieldInfo);
    SYSDM.wwFilterDialog1.ApplyFilter;
  end;
  Screen.Cursor:=crDefault;
  Ser500_01Form.ShowModal;
//  if Assigned(AFieldInfo) then AFieldInfo.Free;
end;

procedure TSer420_01Form.ReportGetValue(const ParName: String; var ParValue: Variant);
var
  AValue,AValue1,AValue2:Double;
begin
  inherited;
  if ParName='ADate' then ParValue:=lblDate.Caption  //起止日期
  else if ParName='AFromDate' then ParValue:=edtFromDate.Text  //
  else if ParName='AToDate' then ParValue:=edtToDate.Text  //
  else if ParName='AType' then ParValue:=lblType.Caption  //类型
  else if ParName='ATypeValue' then ParValue:=cbType.Text  //
  else if ParName='FName' then ParValue:=ADODataSet1FName.DisplayLabel  //名称
  else if ParName='FTotal' then ParValue:=ADODataSet1FTotal.DisplayLabel  //总的时间
  else if ParName='FFinish' then ParValue:=ADODataSet1FFinish.DisplayLabel  //日均时间
  else if ParName='FPercent' then ParValue:=ADODataSet1FPercent.DisplayLabel  //所占比率

  else if ParName='FSum' then ParValue:=GetDBString('TAS40001012')  //合计
  else if ParName='FSum1' then
  begin
    AValue:=dxDBTreeList1.ColumnByFieldName('FTotal').SummaryFooterValue;
    if cbType.ItemIndex=0 then AValue:=AValue/2;
    ParValue:=FormatFloat(',0.00',AValue);
  end
  else if ParName='FSum2' then
  begin
    AValue:=dxDBTreeList1.ColumnByFieldName('FFinish').SummaryFooterValue;
    if cbType.ItemIndex=0 then AValue:=AValue/2;
    ParValue:=FormatFloat(',0.00',AValue);
  end
  else if ParName='FSum3' then
  begin
    AValue1:=dxDBTreeList1.ColumnByFieldName('FTotal').SummaryFooterValue;
    AValue2:=dxDBTreeList1.ColumnByFieldName('FFinish').SummaryFooterValue;
    if cbType.ItemIndex=0 then
    begin
      AValue1:=AValue1/2;
      AValue2:=AValue2/2;
    end;
    if AValue1=0 then AValue:=0 else AValue:=(AValue2/AValue1)*100;
    ParValue:=FormatFloat(',0.00%',AValue);
  end
end;

procedure TSer420_01Form.ActPrintExecute(Sender: TObject);
var
  AfrReport:TfrReport;
begin
  //inherited;
  with TBitmap.Create do
  try
    DBChart1.bevelOuter:=bvNone;
    Width:=DBChart1.Width;
    Height:=DBChart1.Height;
    DBChart1.BufferedDisplay:=False;
    DBChart1.Draw(Canvas,Rect(0,0,Width,Height));
    DBChart1.BufferedDisplay:=True;
    SaveToFile(ASystemPath+'Report\SER420A.bmp');
    DBChart1.bevelOuter:=bvLowered;
    DBChart2.bevelOuter:=bvNone;
    Width:=DBChart2.Width;
    Height:=DBChart2.Height;
    DBChart2.BufferedDisplay:=False;
    DBChart2.Draw(Canvas,Rect(0,0,Width,Height));
    DBChart2.BufferedDisplay:=True;
    SaveToFile(ASystemPath+'Report\SER420B.bmp');
    DBChart2.bevelOuter:=bvLowered;
  finally
    Free;
  end;

  AfrReport:=TfrReport.Create(nil);
  try
    ABusy:=True;
    PreparedReport(ADODataSet1,AReportName,AfrReport);
    SYSDM.frDBDataSet1.DataSet:=ADODataSet1;
    ADODataSet1.DisableControls;
    SYSDM.frReport2.OnGetValue:=ReportGetValue;
    TfrPictureView(SYSDM.frReport2.FindObject('Picture2')).Picture.LoadFromFile(ASystemPath+'Report\SER420A.bmp');
    TfrPictureView(SYSDM.frReport2.FindObject('Picture3')).Picture.LoadFromFile(ASystemPath+'Report\SER420B.bmp');
    SYSDM.frReport2.ShowPreparedReport;
    SYSDM.frReport2.ShowReport;
    ADODataSet1.EnableControls;
  finally
    ABusy:=False;
    ADODataSet1.EnableControls;
    SYSDM.frReport2.Clear;
//    AfrReport.Free;
    if FileExists(ASystemPath+'Report\SER420A.bmp') then DeleteFile(ASystemPath+'Report\SER420A.bmp');
    if FileExists(ASystemPath+'Report\SER420B.bmp') then DeleteFile(ASystemPath+'Report\SER420B.bmp');
  end;
end;

procedure TSer420_01Form.ADODataSet1AfterScroll(DataSet: TDataSet);
var
  AParent,ANo:Integer;
begin
  inherited;
  if ABusy then Exit;
  if ADODataSet1.IsEmpty then Exit;
  ADODataSet3.Close;
  ADODataSet3.FieldDefs.Clear;
  ADODataSet3.FieldDefs.Add('FName',ftString,50);
  ADODataSet3.FieldDefs.Add('FTotal',ftInteger,0);
  ADODataSet3.FieldDefs.Add('FFinish',ftInteger,0);
  ADODataSet3.CreateDataSet;
  ANo:=ADODataSet1.FieldByName('FNo').Value;
  AParent:=ADODataSet1.FieldByName('FParent').Value;
  ABusy:=True;
  ADODataSet1.DisableControls;
  ADODataSet1.First;
  while not ADODataSet1.Eof do
  begin
    if ADODataSet1.FieldByName('FParent').Value=AParent then
    begin
      ADODataSet3.Append;
      ADODataSet3.FieldByName('FName').Value:=ADODataSet1.FieldByName('FName').Value;
      ADODataSet3.FieldByName('FTotal').Value:=ADODataSet1.FieldByName('FTotal').Value;
      ADODataSet3.FieldByName('FFinish').Value:=ADODataSet1.FieldByName('FFinish').Value;
      ADODataSet3.Post;
    end;
    ADODataSet1.Next;
  end;
  ADODataSet1.Locate('FNo',ANo,[]);
  ADODataSet1.EnableControls;
  DBChart2.RefreshData;
  ABusy:=False;
end;

procedure TSer420_01Form.RefreshEvent;
begin
  inherited;
  sbSearch.Click;
end;

initialization
  RegisterClass(TSer420_01Form);

finalization
  UnRegisterClass(TSer420_01Form);

end.