mainexport_f.pas

县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数据库为Interbase/Firebird, 深入使用Procedure和Trigger等, 对入门者具有很好的参考价值

unit MainExport_F;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, ComCtrls, Buttons, ToolWin, ExtCtrls, ExtDlgs, jpeg;

type
  TF_MainExport = class(TForm)
    MainMenu: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    X1: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    H1: TMenuItem;
    M1: TMenuItem;
    N10: TMenuItem;
    A1: TMenuItem;
    N11: TMenuItem;
    StatusBar: TStatusBar;
    ToolBar1: TToolBar;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ImageBackground: TImage;
    OPD: TOpenPictureDialog;
    O1: TMenuItem;
    C1: TMenuItem;
    P2: TMenuItem;
    CD: TColorDialog;
    procedure X1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure P2Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
  private
    { Private declarations }
    LastTime:TDateTime;//上次显示的时间
    procedure AppActive(Sender: TObject);
    procedure AppIdle(Sender: TObject; Var Done:Boolean);
  public
    { Public declarations }
  end;

var
  F_MainExport: TF_MainExport;

implementation

uses ImportResult_F, Import_DM, Import_F;

{$R *.DFM}

procedure TF_MainExport.AppActive(Sender: TObject);//应用程序被激活时
Begin
	Application.Restore();//当应用程序被最小化时，激活即可恢复
End;

//应用程序得闲时,显示时间
procedure TF_MainExport.AppIdle(Sender: TObject;Var Done:Boolean);
Begin
	if(LastTime <> Time()) Then
    Begin
        LastTime := Time();
    	StatusBar.SimpleText := DateToStr(Date())+' '+TimeToStr(LastTime);
    End;
End;

procedure TF_MainExport.X1Click(Sender: TObject);
begin
	Close();
end;

procedure TF_MainExport.FormCreate(Sender: TObject);
begin
	Width := Screen.Width;
    Height := Screen.Height;
	BorderStyle := bsSingle;
    BorderIcons := [];

	Application.ShowHint := true;
    Application.OnActivate := AppActive;
    Application.OnIdle := AppIdle;
    LastTime := Time();
end;

procedure TF_MainExport.SpeedButton1Click(Sender: TObject);
begin
	Close();
end;

procedure TF_MainExport.P2Click(Sender: TObject);
begin
	If OPD.Execute() Then
    Begin
    	Try
	    	ImageBackground.Picture.LoadFromFile(OPD.FileName);
        Finally
        	;
        End;
    End;
end;

procedure TF_MainExport.C1Click(Sender: TObject);
begin
	CD.Color := Color;
	if CD.Execute Then
    	Color := CD.Color;
end;

procedure TF_MainExport.N5Click(Sender: TObject);
begin
	F_Import.Show();
end;

end.