fee_list_f.pas

来自「县级供电企业电费核算源码, 在客户处正常运行8年以上, Delphi 5开发,数」· PAS 代码 · 共 94 行

unit Fee_List_F;

interface

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

type
  TF_Fee_List = class(TForm)
    GroupBox1: TGroupBox;
    DBG_House: TDBGrid;
    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_PrintClick(Sender: TObject);
    procedure Bt_ReturnClick(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 FormShow(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Fee_List: TF_Fee_List;

implementation

uses Fee_List_R, CommSmdljf, Table_DM, Comm, TransferSelect_F;

{$R *.DFM}



procedure TF_Fee_List.Bt_PrintClick(Sender: TObject);
begin
	P_Print_Report(R_Fee_List);
end;

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

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

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



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

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

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

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

end.