【delphi开源代码栏目提醒】：网学会员--在 delphi开源代码编辑为广大网友搜集整理了：BMCBFX_SUM_u.pas绩等信息，祝愿广大网友取得需要的信息，参考学习。

    {
     unit name  : BMCBFX_SUM_u
     Author     : 李涛
     Create date: 2004-07-16 11:00:13
     description: 部门成本消耗分析单元
    }
    unit BMCBFX_SUM_u;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Base_Form_U, QRCtrls, QuickRpt, StdCtrls, Buttons, ExtCtrls,
      TeEngine, Series, TeeProcs, Chart, DbChart, ComCtrls, DB, ADODB;
    
    type
      TBMCBFX_SUM = class(TBase_Form)
        XFXM_SUM_DBChart: TDBChart;
        SpeedButton1: TSpeedButton;
        Series1: TBarSeries;
        SUM_DataSource: TDataSource;
        SUM_ADO: TADOQuery;
        Label1: TLabel;
        DateTimePicker1: TDateTimePicker;
        DateTimePicker2: TDateTimePicker;
        DateTimePicker3: TDateTimePicker;
        DateTimePicker4: TDateTimePicker;
        SUM_ADOC_name: TStringField;
        SUM_ADODSDesigner: TBCDField;
        SUM_ADODSDesigner2: TBCDField;
        procedure ADD_BitClick(Sender: TObject);
        procedure FormShow(Sender: TObject);
        procedure SpeedButton1Click(Sender: TObject);
      private
        KS,JZ: TDateTime;
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      BMCBFX_SUM: TBMCBFX_SUM;
    
    implementation
    
    uses FXT_Set_Option_Browser_u;
    
    {$R *.dfm}
    
    procedure TBMCBFX_SUM.ADD_BitClick(Sender: TObject);
    begin
      inherited;
      KS:=DateTimePicker1.Date+StrToTime(TimeToStr(DateTimePicker2.Time));
      JZ:=DateTimePicker3.Date+StrToTime(TimeToStr(DateTimePicker4.Time));
      SUM_ADO.Close;
      SUM_ADO.Parameters.ParamByName('KS').Value:=KS;
      SUM_ADO.Parameters.ParamByName('JZ').Value:=JZ;
      SUM_ADO.Open;
    end;
    
    procedure TBMCBFX_SUM.FormShow(Sender: TObject);
    begin
      inherited;
      DateTimePicker1.Date:=Date-1;
      DateTimePicker3.Date:=Date;
    end;
    
    procedure TBMCBFX_SUM.SpeedButton1Click(Sender: TObject);
    begin
      inherited;
      if not Assigned(FXT_Set_Option_Browser) then
      begin
         FXT_Set_Option_Browser:=TFXT_Set_Option_Browser.Create(self);
         FXT_Set_Option_Browser.DBChart_name:='XFXM_SUM_DBChart';
         FXT_Set_Option_Browser.Show;
      end;
    end;
    
    end.
    

上一篇：BlockerForm.pas
下一篇：最新参考文献中的标点符号