lnomanager_f.pas

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

unit LNoManager_F;

interface

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

type
  TF_LNomanager = class(TForm)
    Panel1: TPanel;
    Bt_SetLNo: TButton;
    Panel2: TPanel;
    Bt_Close: TButton;
    DBE_TransferNo: TDBEdit;
    DBNavigator1: TDBNavigator;
    Bt_MeterNoCheck: TButton;
    DBG_Transfer: TDBGrid;
    procedure Bt_CloseClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Bt_MeterNoCheckClick(Sender: TObject);
    procedure DBG_TransferDblClick(Sender: TObject);
    procedure Bt_SetLNoClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_LNomanager: TF_LNomanager;

implementation

uses LNoSet_F, Mobile_DM, RepeatLNo_F, CommFee;

{$R *.DFM}

procedure TF_LNomanager.Bt_CloseClick(Sender: TObject);
begin
	Close();
end;

procedure TF_LNomanager.FormActivate(Sender: TObject);
begin
	DM_Mobile.Tb_Transfer.Open();
    DM_Mobile.Tb_Transfer.Refresh();
end;

procedure TF_LNomanager.Bt_MeterNoCheckClick(Sender: TObject);
begin
	MyCreateForm(TF_RepeatLNo, TForm(F_RepeatLNo));
//	F_RepeatLNo.Show();
end;

procedure TF_LNomanager.DBG_TransferDblClick(Sender: TObject);
begin
	MyCreateForm(TF_LNoSet, TForm(F_LNoSet));
//	F_LNoSet.Show();
end;

procedure TF_LNomanager.Bt_SetLNoClick(Sender: TObject);
begin
	MyCreateForm(TF_LNoSet, TForm(F_LNoSet));
//	F_LNoSet.Show();
end;

procedure TF_LNomanager.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
	MyReleaseForm(TForm(F_LNoManager));
end;

end.