📄 tas400_01.pas.svn-base

📁 这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享
💻 SVN-BASE
📖 第 1 页 / 共 2 页
字号:
12 下一页
unit Tas400_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BAS200_12, dxExEdtr, DB, ADODB, ActnList, Menus, dxCntner, dxTL,
  dxDBCtrl, dxDBTL, ExtCtrls, ComCtrls, ToolWin, StdCtrls, wwfltdlg, fr_Class,
  wwdbdatetimepicker, Buttons, TeeProcs, TeEngine, Chart, DbChart, Series,
  dxDBTLCl;

type
  TTas400_01Form = class(TBas200_12Form)
    lblDate: TLabel;
    lblType: TLabel;
    sbSearch: TSpeedButton;
    edtFromDate: TwwDBDateTimePicker;
    edtToDate: TwwDBDateTimePicker;
    cbType: TComboBox;
    ADODataSet1FNo: TIntegerField;
    ADODataSet1FName: TStringField;
    ADODataSet1FParent: TIntegerField;
    ADODataSet1FTotal: TIntegerField;
    ADODataSet1FFinish: TIntegerField;
    ADODataSet1FPercent: TFloatField;
    dxDBTreeList1FName: TdxDBTreeListMaskColumn;
    ADOQuery1: TADOQuery;
    Splitter1: TSplitter;
    dxDBTreeList1FTotal: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FFinish: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FPercent: TdxDBTreeListCurrencyColumn;
    ActOpen: TAction;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Panel2: TPanel;
    DBChart2: TDBChart;
    Series1: TBarSeries;
    Series2: TBarSeries;
    Splitter2: TSplitter;
    DBChart1: TDBChart;
    BarSeries1: TBarSeries;
    BarSeries2: TBarSeries;
    ADODataSet2: TADODataSet;
    ADODataSet3: TADODataSet;
    Label1: TLabel;
    cbClass: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sbSearchClick(Sender: TObject);
    procedure dxDBTreeList1DblClick(Sender: TObject);
    procedure dxDBTreeList1FTotalDrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FFinishDrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FPercentDrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure ActOpenExecute(Sender: TObject);
    procedure ActPrintExecute(Sender: TObject);
    procedure ADODataSet1AfterScroll(DataSet: TDataSet);
  private
    ABusy:Boolean;
    ATotal:array[1..2] of double;
    procedure ByTaskClass(AFromDate,AToDate:TDateTime);  //按任務類別
    procedure ByItemClass(AFromDate,AToDate:TDateTime);  //按産品類別
    procedure ByCustomer(AFromDate,AToDate:TDateTime);  //按客户
    procedure UpdateParent(AParentNo:Integer;AValue:Double;ADataSet:TDataSet;AFieldName:string);
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure RefreshEvent; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Tas400_01Form: TTas400_01Form;

implementation

uses SYSDATA, CommFun, Tas510_01, TasComm;

{$R *.dfm}

procedure TTas400_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('TAS40001001');  //服务数量分析
  lblDate.Caption:=GetDBString('TAS40001002');  //起止日期
  lblType.Caption:=GetDBString('TAS40001003');  //类型
  sbSearch.Caption:=GetDBString('TAS40001004');  //查询
  ADODataSet1FName.DisplayLabel:=GetDBString('TAS40001005');  //名称
  ADODataSet1FTotal.DisplayLabel:=GetDBString('TAS40001006');  //服务总数
  ADODataSet1FFinish.DisplayLabel:=GetDBString('TAS40001007');  //已完成数
  ADODataSet1FPercent.DisplayLabel:=GetDBString('TAS40001008');  //完成比率
  cbType.Clear;
  cbType.Items.Add(GetDBString('TAS40001009'));  //按任务类别
  cbType.Items.Add(GetDBString('TAS40001010'));  //按产品类别
  cbType.Items.Add(GetDBString('TAS40001011'));  //按客户
  cbType.ItemIndex:=0;
  DBChart1.Series[0].Title:=GetDBString('TAS40001006');  //服务总数
  DBChart1.Series[1].Title:=GetDBString('TAS40001007');  //已完成数
  DBChart1.Title.Text.Text:=GetDBString('TAS40001013');  //总数分析
  DBChart2.Title.Text.Text:=GetDBString('TAS40001014');  //分类分析

  //取得所有任务类别
  GetAllTasksClass(cbClass);
end;

procedure TTas400_01Form.FormCreate(Sender: TObject);
var
  ADate:TDateTime;
begin
  inherited;
  SetInterface;
  ADate:=GetServerDate;
  edtFromDate.Date:=GetMonthFirstDate(ADate);
  edtToDate.Date:=GetMonthEndDate(ADate);
  sbSearch.Click;
end;

procedure TTas400_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  ADOQuery1.Close;
end;

//将下级任务类别数量累加到上级任务类别
procedure TTas400_01Form.UpdateParent(AParentNo:Integer;AValue:Double;ADataSet:TDataSet;AFieldName:string);
var
  AParent:Integer;
  AClassName:String;
begin
  //查找任务类别表中该记录是否有上级分类
  AParent:=GetValue('select T100_003 from TAS100 where T100_001='+IntToStr(AParentNo));
  if ADataSet.Locate('FNo',AParentNo,[]) then
  begin
    ADataSet.Edit;
    ADataSet.FieldByName(AFieldName).Value:=ADataSet.FieldByName(AFieldName).AsFloat+AValue;
    ADataSet.Post;
  end else
  begin
    AClassName:=GetValue('select T100_002 from TAS100 where T100_001='+IntToStr(AParentNo));
    ADataSet.Append;
    ADataSet.FieldByName('FNo').Value:=AParentNo;
    ADataSet.FieldByName('FName').Value:=AClassName;
    ADataSet.FieldByName('FParent').Value:=AParent;
    ADataSet.FieldByName(AFieldName).Value:=AValue;
    ADataSet.FieldByName('FPercent').Value:=0;
    ADataSet.Post;
  end;
end;

procedure TTas400_01Form.ByTaskClass(AFromDate,AToDate:TDateTime);  //按任務類別
var
  ABookmark:TBookmark;
  AValue,AParentNo:Integer;
  AClassNo:string;
begin
  //取得有子任务的电脑编号
  AClassNo:=GetChildTask(cbClass.Text);

  //服務總數統計   按申报日期来统计
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(T510_001) as FTotal,T100_001,T100_002,T100_003');
  ADOQuery1.SQL.Add('  from TAS510,TAS100 where T510_004=T100_001 and '+AByTotal+'>='+GetDateString(AFromDate)+' and '+AByTotal+'<='+GetDateString(AToDate));
  if AClassNo<>'' then ADOQuery1.SQL.Add('  and T510_004 in ('+AClassNo+')');
  ADOQuery1.SQL.Add('  group by T100_001,T100_002,T100_003');
  ADOQuery1.SQL.Add('order by T100_003,T100_001');
  ADOQuery1.Open;
  while not ADOQuery1.Eof do
  begin
    ADODataSet1.Append;
    ADODataSet1.FieldByName('FNo').Value:=ADOQuery1.FieldByName('T100_001').Value;
    ADODataSet1.FieldByName('FName').Value:=ADOQuery1.FieldByName('T100_002').Value;
    ADODataSet1.FieldByName('FParent').Value:=ADOQuery1.FieldByName('T100_003').Value;
    ADODataSet1.FieldByName('FTotal').Value:=ADOQuery1.FieldByName('FTotal').Value;
    ADODataSet1.FieldByName('FFinish').Value:=0;
    ADODataSet1.FieldByName('FPercent').Value:=0;
    ADODataSet1.Post;
    ATotal[1]:=ATotal[1]+ADOQuery1.FieldByName('FTotal').Value;
    ADOQuery1.Next;
  end;
  //已完成數量統計   按实际完成日期来统计
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(T510_001) as FFinish,T100_001,T100_002,T100_003');
  ADOQuery1.SQL.Add('  from TAS510,TAS100 where T510_004=T100_001 and T510_003 in ('+AStatusNo+') and '+AByFinish+'>='+GetDateString(AFromDate)+' and '+AByFinish+'<='+GetDateString(AToDate));
  if AClassNo<>'' then ADOQuery1.SQL.Add('  and T510_004 in ('+AClassNo+')');
  ADOQuery1.SQL.Add('  group by T100_001,T100_002,T100_003');
  ADOQuery1.SQL.Add('order by T100_003,T100_001');
  ADOQuery1.Open;
  while not ADOQuery1.Eof do
  begin
    if ADODataSet1.Locate('FNo',ADOQuery1.FieldByName('T100_001').Value,[]) then
    begin
      ADODataSet1.Edit;
      ADODataSet1.FieldByName('FFinish').Value:=ADOQuery1.FieldByName('FFinish').Value;
      ADODataSet1.FieldByName('FPercent').Value:=(ADOQuery1.FieldByName('FFinish').Value/ADODataSet1.FieldByName('FTotal').Value)*100;
      ADODataSet1.Post;
    end else
    begin
      ADODataSet1.Append;
      ADODataSet1.FieldByName('FNo').Value:=ADOQuery1.FieldByName('T100_001').Value;
      ADODataSet1.FieldByName('FName').Value:=ADOQuery1.FieldByName('T100_002').Value;
      ADODataSet1.FieldByName('FParent').Value:=ADOQuery1.FieldByName('T100_003').Value;
      ADODataSet1.FieldByName('FTotal').Value:=0;
      ADODataSet1.FieldByName('FFinish').Value:=ADOQuery1.FieldByName('FFinish').Value;
      ADODataSet1.FieldByName('FPercent').Value:=100;
      ADODataSet1.Post;
    end;
    ATotal[2]:=ATotal[2]+ADOQuery1.FieldByName('FFinish').Value;
    ADOQuery1.Next;
  end;

  //累加數量到上級類別
  ADODataSet1.First;
  while not ADODataSet1.Eof do
  begin
    ABookmark:=ADODataSet1.GetBookmark;
    AParentNo:=ADODataSet1.FieldByName('FParent').Value;
    if AParentNo<>0 then
    begin
      AValue:=ADODataSet1.FieldByName('FTotal').AsInteger;
      UpdateParent(AParentNo,AValue,ADODataSet1,'FTotal');
      ADODataSet1.GotoBookmark(ABookmark);
      AValue:=ADODataSet1.FieldByName('FFinish').AsInteger;
      UpdateParent(AParentNo,AValue,ADODataSet1,'FFinish');
    end;
    ADODataSet1.GotoBookmark(ABookmark);
    ADODataSet1.FreeBookmark(ABookmark);
    ADODataSet1.Edit;
    if (ADODataSet1.FieldByName('FTotal').IsNull) or (ADODataSet1.FieldByName('FTotal').AsInteger=0) then
      ADODataSet1.FieldByName('FPercent').Value:=0
    else
      ADODataSet1.FieldByName('FPercent').Value:=(ADODataSet1.FieldByName('FFinish').AsInteger/ADODataSet1.FieldByName('FTotal').AsInteger)*100;
    ADODataSet1.Post;
    ADODataSet1.Next;
  end;
end;

procedure TTas400_01Form.ByItemClass(AFromDate,AToDate:TDateTime);  //按産品類別
var
  AClassNo:string;
begin
  //取得有子任务的电脑编号
  AClassNo:=GetChildTask(cbClass.Text);

  //服務總數統計     按申报日期来统计
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(T510_001) as FTotal,I120_001,I120_003');
  ADOQuery1.SQL.Add('  from TAS510,INV150,INV120 where T510_017=I150_001 and I150_005=I120_001 and '+AByTotal+'>='+GetDateString(AFromDate)+' and '+AByTotal+'<='+GetDateString(AToDate));
  if AClassNo<>'' then ADOQuery1.SQL.Add('  and T510_004 in ('+AClassNo+')');
  ADOQuery1.SQL.Add('  group by I120_001,I120_003');
  ADOQuery1.SQL.Add('order by I120_001');
  ADOQuery1.Open;
  while not ADOQuery1.Eof do
  begin
    ADODataSet1.Append;
    ADODataSet1.FieldByName('FNo').Value:=ADOQuery1.FieldByName('I120_001').Value;
    ADODataSet1.FieldByName('FName').Value:=ADOQuery1.FieldByName('I120_003').Value;
    ADODataSet1.FieldByName('FParent').Value:=ADOQuery1.FieldByName('I120_001').Value;
    ADODataSet1.FieldByName('FTotal').Value:=ADOQuery1.FieldByName('FTotal').Value;
    ADODataSet1.FieldByName('FFinish').Value:=0;
    ADODataSet1.FieldByName('FPercent').Value:=0;
    ADODataSet1.Post;  
    ATotal[1]:=ATotal[1]+ADOQuery1.FieldByName('FTotal').Value;
    ADOQuery1.Next;
  end;
  //已完成數量統計   按实际完成日期来统计
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(T510_001) as FFinish,I120_001,I120_003');
  ADOQuery1.SQL.Add('  from TAS510,INV150,INV120 where T510_017=I150_001 and I150_005=I120_001 and T510_003 in ('+AStatusNo+') and '+AByFinish+'>='+GetDateString(AFromDate)+' and '+AByFinish+'<='+GetDateString(AToDate));
  if AClassNo<>'' then ADOQuery1.SQL.Add('  and T510_004 in ('+AClassNo+')');
  ADOQuery1.SQL.Add('  group by I120_001,I120_003');
  ADOQuery1.SQL.Add('order by I120_001');
  ADOQuery1.Open;
  while not ADOQuery1.Eof do
  begin
    if ADODataSet1.Locate('FNo',ADOQuery1.FieldByName('I120_001').Value,[]) then
    begin
      ADODataSet1.Edit;
      ADODataSet1.FieldByName('FFinish').Value:=ADOQuery1.FieldByName('FFinish').Value;
      ADODataSet1.FieldByName('FPercent').Value:=(ADOQuery1.FieldByName('FFinish').Value/ADODataSet1.FieldByName('FTotal').Value)*100;
      ADODataSet1.Post;
    end else
    begin
      ADODataSet1.Append;
      ADODataSet1.FieldByName('FNo').Value:=ADOQuery1.FieldByName('I120_001').Value;
      ADODataSet1.FieldByName('FName').Value:=ADOQuery1.FieldByName('I120_003').Value;
      ADODataSet1.FieldByName('FParent').Value:=ADOQuery1.FieldByName('I120_001').Value;
      ADODataSet1.FieldByName('FTotal').Value:=0;
      ADODataSet1.FieldByName('FFinish').Value:=ADOQuery1.FieldByName('FFinish').Value;
      ADODataSet1.FieldByName('FPercent').Value:=100;
      ADODataSet1.Post;
    end;
    ATotal[2]:=ATotal[2]+ADOQuery1.FieldByName('FFinish').Value;
    ADOQuery1.Next;
  end;
end;

procedure TTas400_01Form.ByCustomer(AFromDate,AToDate:TDateTime);  //按客户
var
  AClassNo:string;
begin
  //取得有子任务的电脑编号
  AClassNo:=GetChildTask(cbClass.Text);

  //服務總數統計        按申报日期来统计
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('select count(T510_001) as FTotal,O150_001,O150_003');
  ADOQuery1.SQL.Add('  from TAS510,ORD150 where T510_016=O150_001 and '+AByTotal+'>='+GetDateString(AFromDate)+' and '+AByTotal+'<='+GetDateString(AToDate));
  if AClassNo<>'' then ADOQuery1.SQL.Add('  and T510_004 in ('+AClassNo+')');
  ADOQuery1.SQL.Add('  group by O150_001,O150_003');
  ADOQuery1.SQL.Add('order by O150_001');
  ADOQuery1.Open;
  while not ADOQuery1.Eof do
  begin
12 下一页
💿 文件大小 5005 K
👤 上传用户 struggle10000
📂 所属分类企业管理
🏷️ 相关标签

#ERP #代码 #企业信息 #管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -