?? ser420_01.pas.svn-base
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -