housefee_f.pas

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

unit HouseFee_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;

type
  TF_HouseFee = class(TForm)
    DBG_HouseFee: TDBGrid;
    Frm_Transfer: TFrm_Transfer;
    Panel1: TPanel;
    Bt_Close: TButton;
    Bt_Print: TButton;
    Bt_Update: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Frm_Transfer1Bt_TransferSelectClick(Sender: TObject);
    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_HouseFee: TF_HouseFee;

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

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

procedure TF_HouseFee.Frm_Transfer1Bt_TransferSelectClick(Sender: TObject);
begin
    Frm_Transfer.Bt_TransferSelectClick(Sender);
    FormShow(Sender);
end;

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

procedure TF_HouseFee.Bt_PrintClick(Sender: TObject);
begin
    RB.Report.Template.FileName := gRootPath + '农电三-2表.RTM';
    RB.Report.Template.LoadFromFile();
    RB.Report.Print();
end;

procedure TF_HouseFee.FormShow(Sender: TObject);
begin
	If F_Login.IBX_Transaction.InTransaction Then
	    F_Login.IBX_Transaction.Commit();
    RB.Q_HouseFee.Close();
    RB.Q_HouseFee.ParamByName('TransferNo').AsString := DM_Table.Tb_Transfer['f_Transfer_No'];
    RB.Q_HouseFee.Open();
end;

procedure TF_HouseFee.Bt_UpdateClick(Sender: TObject);
begin
    RB.Report.Template.FileName := gRootPath + '农电三-2表.RTM';
    RB.Report.Template.LoadFromFile();
    RB.D_Report.ShowModal();
end;

end.