transfer_wasting2_f.pas

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

unit Transfer_Wasting2_F;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, ExtCtrls;

type
  TF_Transfer_Wasting2 = class(TForm)
    Panel1: TPanel;
    Bt_Return: TButton;
    Bt_Print: TButton;
    DBGrid1: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Bt_PrintClick(Sender: TObject);
    procedure Bt_ReturnClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Transfer_Wasting2: TF_Transfer_Wasting2;

implementation
Uses
	CommFee, RB_F, CommSMDLJF, Login_F;
{$R *.DFM}

procedure TF_Transfer_Wasting2.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
	MyReleaseForm(TForm(F_Transfer_Wasting2));
end;

procedure TF_Transfer_Wasting2.Bt_PrintClick(Sender: TObject);
begin
    RB.Report.Template.FileName := gRootPath + '台变线损统计表.RTM';
    RB.Report.Template.LoadFromFile();
    RB.Report.Print();
end;

procedure TF_Transfer_Wasting2.Bt_ReturnClick(Sender: TObject);
begin
	Close();
end;

procedure TF_Transfer_Wasting2.FormShow(Sender: TObject);
begin
	If F_Login.IBX_Transaction.InTransaction Then
	    F_Login.IBX_Transaction.Commit();
	RB.Q_Transfer_Wasting.Close;
	RB.Q_Transfer_Wasting.Open();
end;

end.