town_f.pas

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

unit Town_F;

interface

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

type
  TF_Town = class(TForm)
    DBG_Village: TDBGrid;
    Panel1: TPanel;
    Bt_Return: TButton;
    DBG_Town: TDBGrid;
    DBN: TDBNavigator;
    Bt_Print: TButton;
    procedure Bt_ReturnClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DBG_TownEnter(Sender: TObject);
    procedure DBG_VillageEnter(Sender: TObject);
    procedure DBG_TownExit(Sender: TObject);
    procedure DBG_VillageExit(Sender: TObject);
    procedure Bt_PrintClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Town: TF_Town;

implementation

uses Table_DM, House_F, CommSmdljf, Village_R, Comm;

{$R *.DFM}


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

procedure TF_Town.FormActivate(Sender: TObject);
begin
	P_OpenTable(Dm_Table.Tb_Town);
    P_OpenTable(Dm_Table.Tb_Village);
end;




procedure TF_Town.DBG_TownEnter(Sender: TObject);
begin
     DBN.DataSource := DBG_Town.DataSource;
end;

procedure TF_Town.DBG_VillageEnter(Sender: TObject);
begin
     DBN.DataSource := DBG_Village.DataSource;
end;

procedure TF_Town.DBG_TownExit(Sender: TObject);
begin
     If DM_Table.Tb_Town.Modified then
        Dm_Table.Tb_Town.Post();
end;

procedure TF_Town.DBG_VillageExit(Sender: TObject);
begin
     If DM_Table.Tb_Village.Modified then
        Dm_Table.Tb_Village.Post();
end;

procedure TF_Town.Bt_PrintClick(Sender: TObject);
begin
	P_Print_Report(R_Village);
end;


procedure TF_Town.FormClose(Sender: TObject; var Action: TCloseAction);
begin
	Dm_Table.Tb_Town.Close();
    Dm_Table.Tb_Village.Close();
end;

end.