tas410_01.pas.svn-base

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

unit Tas410_01;

interface

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

type
  TTas410_01Form = class(TBas200_12Form)
    Panel2: TPanel;
    DBChart1: TDBChart;
    Splitter1: TSplitter;
    lblYear: TLabel;
    cbYear: TComboBox;
    lblType: TLabel;
    cbType: TComboBox;
    sbSearch: TSpeedButton;
    ADODataSet1FNo: TIntegerField;
    ADODataSet1FName: TStringField;
    ADODataSet1FParent: TIntegerField;
    ADODataSet1FTotal1: TIntegerField;
    ADODataSet1FFinish1: TIntegerField;
    ADODataSet1FPercent1: TFloatField;
    ADODataSet1FTotal2: TIntegerField;
    ADODataSet1FFinish2: TIntegerField;
    ADODataSet1FPercent2: TFloatField;
    ADODataSet1FTotal3: TIntegerField;
    ADODataSet1FFinish3: TIntegerField;
    ADODataSet1FPercent3: TFloatField;
    ADODataSet1FTotal4: TIntegerField;
    ADODataSet1FFinish4: TIntegerField;
    ADODataSet1FPercent4: TFloatField;
    ADODataSet1FTotal5: TIntegerField;
    ADODataSet1FFinish5: TIntegerField;
    ADODataSet1FPercent5: TFloatField;
    ADODataSet1FTotal6: TIntegerField;
    ADODataSet1FFinish6: TIntegerField;
    ADODataSet1FPercent6: TFloatField;
    ADODataSet1FTotal7: TIntegerField;
    ADODataSet1FFinish7: TIntegerField;
    ADODataSet1FPercent7: TFloatField;
    ADODataSet1FTotal8: TIntegerField;
    ADODataSet1FFinish8: TIntegerField;
    ADODataSet1FPercent8: TFloatField;
    ADODataSet1FTotal9: TIntegerField;
    ADODataSet1FFinish9: TIntegerField;
    ADODataSet1FPercent9: TFloatField;
    ADODataSet1FTotal10: TIntegerField;
    ADODataSet1FFinish10: TIntegerField;
    ADODataSet1FPercent10: TFloatField;
    ADODataSet1FTotal11: TIntegerField;
    ADODataSet1FFinish11: TIntegerField;
    ADODataSet1FPercent11: TFloatField;
    ADODataSet1FTotal12: TIntegerField;
    ADODataSet1FFinish12: TIntegerField;
    ADODataSet1FPercent12: TFloatField;
    ADODataSet1FTotal: TIntegerField;
    ADODataSet1FFinish: TIntegerField;
    ADODataSet1FPercent: TFloatField;
    dxDBTreeList1FName: TdxDBTreeListMaskColumn;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    dxDBTreeList1FTotal1: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FFinish1: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FPercent1: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FTotal2: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FFinish2: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FPercent2: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FTotal3: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FFinish3: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FPercent3: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FTotal4: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FFinish4: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FPercent4: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FTotal5: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FFinish5: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FPercent5: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FTotal6: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FFinish6: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FPercent6: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FTotal7: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FFinish7: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FPercent7: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FTotal8: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FFinish8: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FPercent8: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FTotal9: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FFinish9: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FPercent9: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FTotal10: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FFinish10: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FPercent10: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FTotal11: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FFinish11: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FPercent11: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FTotal12: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FFinish12: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FPercent12: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FTotal: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FFinish: TdxDBTreeListCurrencyColumn;
    dxDBTreeList1FPercent: TdxDBTreeListCurrencyColumn;
    ActOpen: TAction;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    Series4: TLineSeries;
    Series3: TLineSeries;
    Label1: TLabel;
    cbClass: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sbSearchClick(Sender: TObject);
    procedure dxDBTreeList1FTotal1DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FFinish1DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FPercent1DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FTotal2DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FFinish2DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FPercent2DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FTotal3DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FFinish3DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FPercent3DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FTotal4DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FFinish4DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FPercent4DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FTotal5DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FFinish5DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FPercent5DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FTotal6DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FFinish6DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FPercent6DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FTotal7DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FFinish7DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FPercent7DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FTotal8DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FFinish8DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FPercent8DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FTotal9DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FFinish9DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FPercent9DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FTotal10DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FFinish10DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FPercent10DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FTotal11DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FFinish11DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FPercent11DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FTotal12DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FFinish12DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    procedure dxDBTreeList1FPercent12DrawSummaryFooter(Sender: TObject;
      ACanvas: TCanvas; ARect: TRect; var AText: String;
      var AAlignment: TAlignment; AFont: TFont; var AColor: TColor;
      var ADone: Boolean);
    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);
  private
    ATotal:array[1..13] of double;
    AFinish:array[1..13] of double;
    procedure ByTaskClass(AYear:string);  //按任務類別
    procedure ByItemClass(AYear:string);  //按産品類別
    procedure ByCustomer(AYear:string);  //按客户
    procedure UpdateParent(AParentNo:Integer;AValue:Double;ADataSet:TDataSet;AFieldName:string);
    procedure SetFieldValue(AMonth,AValue,AType:Integer);
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure RefreshEvent; override;