fee_balance_f.pas

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

unit Fee_Balance_F;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, StdCtrls, ExtCtrls, Grids, DBGrids, Mask, Transfer_Frm, 
  ppDBPipe, ppDBBDE, ppComm, ppRelatv, ppProd, ppClass, ppReport, ppModule,
  raCodMod, ppBands, ppVar, ppPrnabl, ppCtrls, ppCache, ppEndUsr,
  ppParameter, ppMemo, ppStrtch, ppSubRpt, DBTables, Db;

type
  TF_Fee_Balance = class(TForm)
    DBG_House: TDBGrid;
    GroupBox1: TGroupBox;
    DBE_House_No: TDBEdit;
    Bt_Print: TButton;
    Bt_Return: TButton;
    Bt_OverPrint: TButton;
    TFrm_Transfer: TFrm_Transfer;
    RB_A4: TRadioButton;
    RB_Letter: TRadioButton;
    Label1: TLabel;
    E_TopMargin: TEdit;
    Label2: TLabel;
    procedure Bt_ReturnClick(Sender: TObject);
    procedure Bt_PrintClick(Sender: TObject);
    procedure DBE_House_NoChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDeactivate(Sender: TObject);
    procedure Bt_TransferSelectClick(Sender: TObject);
    procedure Bt_OverPrintClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure TFrm_Transfer1Bt_TransferSelectClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Fee_Balance: TF_Fee_Balance;

implementation

uses Table_DM, CommSmdljf, Fee_Balance_R, Comm, TransferSelect_F, QRPrntr;

{$R *.DFM}





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

procedure TF_Fee_Balance.Bt_PrintClick(Sender: TObject);
begin
	R_Fee_Balance.SetCoverPrint(false);
    If RB_A4.Checked Then
	Begin//A4纸时纸的长度增加了17.6mm, 因此顶端留出8.8mm
        R_Fee_Balance.Page.PaperSize := A4;
        R_Fee_Balance.Page.TopMargin := StrToFloat(E_TopMargin.Text) ;//
    End
    Else
    Begin
    	R_Fee_Balance.Page.PaperSize := Letter;
        R_Fee_Balance.Page.TopMargin := 0;
    End;
	P_Print_Report(R_Fee_Balance);
end;



procedure TF_Fee_Balance.DBE_House_NoChange(Sender: TObject);
begin
   	Bt_OverPrint.Enabled := DBE_House_No.Text <> '';
   	Bt_Print.Enabled := DBE_House_No.Text <> '';
end;

procedure TF_Fee_Balance.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
	DM_Table.V_House.Close();
end;



procedure TF_Fee_Balance.FormDeactivate(Sender: TObject);
begin
    Dm_Table.V_House.DisableControls;
end;

procedure TF_Fee_Balance.Bt_TransferSelectClick(Sender: TObject);
begin
	F_TransferSelect.Show();
end;

procedure TF_Fee_Balance.Bt_OverPrintClick(Sender: TObject);
begin
	R_Fee_Balance.Page.TopMargin := 0;
	R_Fee_Balance.Page.PaperSize := Letter;
	R_Fee_Balance.SetCoverPrint(True);
	P_Print_Report(R_Fee_Balance);
end;

procedure TF_Fee_Balance.FormShow(Sender: TObject);
begin
	P_OpenTable(DM_Table.V_House);
    DM_Table.V_House.Refresh();
    Dm_Table.V_House.EnableControls;
end;

procedure TF_Fee_Balance.FormActivate(Sender: TObject);
begin
    Dm_Table.V_House.EnableControls;
end;

procedure TF_Fee_Balance.TFrm_Transfer1Bt_TransferSelectClick(
  Sender: TObject);
begin
  	TFrm_Transfer.Bt_TransferSelectClick(Sender);
end;

end.