fee_multi_list_f.pas

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

unit Fee_Multi_List_F;

interface

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

type
  TF_Fee_Multi_List = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    DBE_House_No: TDBEdit;
    Panel2: TPanel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Bt_TransferSelect: TButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    Bt_Print: TButton;
    Bt_Return: TButton;
    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 Panel2Click(Sender: TObject);
    procedure Bt_TransferSelectClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Fee_Multi_List: TF_Fee_Multi_List;

implementation

uses Table_DM, CommSmdljf, Fee_Multi_List_R, Comm, TransferSelect_F;

{$R *.DFM}




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

procedure TF_Fee_Multi_List.Bt_PrintClick(Sender: TObject);
begin
	P_Print_Report(R_Fee_Multi_List);
end;


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

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

procedure TF_Fee_Multi_List.FormDeactivate(Sender: TObject);
begin
	Dm_Table.v_Multi_Fee.DisableControls;
end;



procedure TF_Fee_Multi_List.Panel2Click(Sender: TObject);
begin
	F_TransferSelect.Show();
end;

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

procedure TF_Fee_Multi_List.FormShow(Sender: TObject);
begin
	P_OpenTable(DM_Table.V_Multi_Fee);
	Dm_Table.v_Multi_Fee.EnableControls;
end;

procedure TF_Fee_Multi_List.FormActivate(Sender: TObject);
begin
	Dm_Table.v_Multi_Fee.EnableControls;
end;

end.