transferfee_f.pas

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

unit TransferFee_F;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Mask, DBCtrls, ExtCtrls, Transfer_Frm, Db,
  IBCustomDataSet, IBQuery, ppDB, ppDBPipe, ppComm, ppRelatv, ppProd,
  ppClass, ppReport, ppPrnabl, ppCtrls, ppBands, ppCache, ppParameter,
  ppVar, Line_Frm;

type
  TF_TransferFee = class(TForm)
    DBG_TransferFee: TDBGrid;
    Panel1: TPanel;
    Bt_Close: TButton;
    Bt_Print: TButton;
    Bt_Update: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Bt_CloseClick(Sender: TObject);
    procedure Bt_PrintClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Bt_UpdateClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_TransferFee: TF_TransferFee;

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

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

procedure TF_TransferFee.Bt_CloseClick(Sender: TObject);
begin
    Close();
end;

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

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

procedure TF_TransferFee.Bt_UpdateClick(Sender: TObject);
begin
    RB.Report.Template.FileName := gRootPath + '台变分类统计表.RTM';
    RB.Report.Template.LoadFromFile();
    RB.D_Report.ShowModal();
end;

end.