fee_transfer_f.pas

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

unit Fee_Transfer_F;

interface

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

type
  TF_Fee_Transfer = class(TForm)
    Panel_Button: TPanel;
    Bt_Print: TButton;
    Bt_Return: TButton;
    DBGrid1: TDBGrid;
    DBE_Line_No: TDBEdit;
    DBE_Transfer_No: TDBEdit;
    TFrm_Line1: TFrm_Line;
    procedure Bt_ReturnClick(Sender: TObject);
    procedure Bt_PrintClick(Sender: TObject);
    procedure DBE_Line_NoChange(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBE_Transfer_NoChange(Sender: TObject);
    procedure FormDeactivate(Sender: TObject);
    procedure TFrm_Line1Bt_TransferSelectClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Fee_Transfer: TF_Fee_Transfer;

implementation

uses Table_DM, Comm, CommSmdljf, Fee_Transfer_R, Fee_Transfer_New_R;

{$R *.DFM}



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

procedure TF_Fee_Transfer.Bt_PrintClick(Sender: TObject);
begin
	R_Fee_Transfer_New := TR_Fee_Transfer_New.Create(Application);
	P_Print_Report(R_Fee_Transfer_New);
    R_Fee_Transfer_New.Destroy();
end;

procedure TF_Fee_Transfer.DBE_Line_NoChange(Sender: TObject);
begin
	Dm_Table.V_Transfer_Fee.Filter := 'F_Line_No = ' + QuotedStr(DBE_Line_No.Text);
end;

procedure TF_Fee_Transfer.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
	Dm_Table.v_Transfer_Fee.Close();
end;


procedure TF_Fee_Transfer.DBE_Transfer_NoChange(Sender: TObject);
begin
   	Bt_Print.Enabled := DBE_Transfer_No.Text <> ''
end;


procedure TF_Fee_Transfer.FormDeactivate(Sender: TObject);
begin
    Dm_Table.V_Transfer_Fee.DisableControls;
end;

procedure TF_Fee_Transfer.TFrm_Line1Bt_TransferSelectClick(
  Sender: TObject);
begin
    TFrm_Line1.Bt_TransferSelectClick(Sender);
    DM_Table.V_Transfer_Fee.Refresh();
    Dm_Table.V_Transfer_Fee.EnableControls;
end;

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

end.