house_arrearage_f.pas

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

unit House_Arrearage_F;

interface

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

type
  TF_House_Arrearage = class(TForm)
    Panel1: TPanel;
    Panel3: TPanel;
    Bt_Close: TButton;
    DBG_House_Arrearage: TDBGrid;
    TFrm_Transfer1: TFrm_Transfer;
    Panel2: TPanel;
    DBN_House: TDBNavigator;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    E_SumArrearage: TEdit;
    E_SumLateFee: TEdit;
    procedure Bt_CloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure TFrm_Transfer1Bt_TransferSelectClick(Sender: TObject);
    procedure DBG_House_ArrearageKeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_House_Arrearage: TF_House_Arrearage;

implementation

uses Table_DM, Comm, CommFee, Variants;

{$R *.DFM}

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

procedure TF_House_Arrearage.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
	if DM_Table.Tb_House.Modified Then
    	Dm_Table.Tb_House.Cancel();
	Dm_Table.Tb_House.EnableControls();
	P_CloseTable(DM_Table.Tb_House);
    MyReleaseForm(TForm(F_House_Arrearage));
end;

procedure TF_House_Arrearage.FormActivate(Sender: TObject);
begin
	P_OpenTable(DM_Table.Tb_House);
    DM_Table.Tb_House.Refresh();
	Dm_Table.Tb_House.EnableControls();
end;

procedure TF_House_Arrearage.TFrm_Transfer1Bt_TransferSelectClick(
  Sender: TObject);
begin
	TFrm_Transfer1.Bt_TransferSelectClick(Sender);
end;

procedure TF_House_Arrearage.DBG_House_ArrearageKeyPress(Sender: TObject;
  var Key: Char);
begin
	if (Key = #13) Then
    	if(Not DM_Table.Tb_House.Eof) Then
			DM_Table.Tb_House.Next();
end;

procedure TF_House_Arrearage.Button1Click(Sender: TObject);
begin
    With DM_Table Do
    Begin
        Query.Active := false;
        Query.Sql.Clear;
        Query.Sql.Add('Select Sum(F_Arrearage) F_SumArrearage, Sum(F_LateFee) F_SumLateFee');
        Query.Sql.Add('From Tb_House');
        Query.Sql.Add('Where f_Transfer_No = ' + QuotedStr(Tb_Transfer['F_Transfer_No']));
        Query.Open();
        if(Query['F_SumArrearage'] <> NULL) Then
            E_SumArrearage.Text := FloatToStr(Query['F_SumArrearage'])
        Else
            E_SumArrearage.Text := '';
        if(Query['F_SumLateFee'] <> NULL) Then
            E_SumLateFee.Text := FloatToStr(Query['F_SumLateFee'])
        Else
            E_SumLateFee.Text := '';
        Query.Active := false;
    End;
end;

end.