prgramstaticfrm.pas

一个电力企业的后台管理程序

unit prgramstaticFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Qrctrls, QuickRpt, QRPrntr, ComCtrls, ToolWin, ExtCtrls, StdCtrls,
  Buttons;

type
  TForm_prgramstatic = class(TForm)
    Panel2: TPanel;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    TimePicker_End: TDateTimePicker;
    DatePicker_End: TDateTimePicker;
    TimePicker_Start: TDateTimePicker;
    DatePicker_Start: TDateTimePicker;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
    FCanClose:integer;
  public
    { Public declarations }
    //FForm_TrRep:TForm_TrRep;
  end;

var
  Form_prgramstatic: TForm_prgramstatic;

implementation
uses TrRepFrm, SystemDM;
{$R *.DFM}

procedure TForm_prgramstatic.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  SysDM.qr_temp.close;
  Action:=CaFree;
end;

procedure TForm_prgramstatic.FormCreate(Sender: TObject);
begin
  FCanClose:=0;
  DatePicker_End.date:=date;
  TimePicker_End.Time:=time;
  DatePicker_Start.date:=date+time-0.5;
  TimePicker_Start.time:=date+time-0.5;
end;

procedure TForm_prgramstatic.SpeedButton1Click(Sender: TObject);
begin
  if not Assigned(Form_TrRep) then
  begin
    FCanClose:=FcanClose+1;
    Form_TrRep:=TForm_TrRep.Create(self);
    Form_TrRep.Hide;
    Form_TrRep.QuickRep1.Preview;
    Form_TrRep.Free;
    Form_TrRep:=nil;
    FcanClose:=FcanClose-1;  
  end;
end;

procedure TForm_prgramstatic.SpeedButton2Click(Sender: TObject);
begin
  close;
end;

end.