fee_line_f.pas

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

unit Fee_Line_F;

interface

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

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

var
  F_Fee_Line: TF_Fee_Line;

implementation

uses Table_DM, Comm, CommSmdljf, Fee_Transfer_R, Fee_Line_R, Fee_Line_New_R;

{$R *.DFM}



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

procedure TF_Fee_Line.Bt_PrintClick(Sender: TObject);
begin
	P_Print_Report(R_Fee_Line_New);
end;

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


procedure TF_Fee_Line.FormDeactivate(Sender: TObject);
begin
    Dm_Table.V_Line_Fee.DisableControls;
end;

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

end.