validfee_f.pas

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

unit ValidFee_F;

interface

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

type
  TF_ValidFee = class(TForm)
    Panel1: TPanel;
    Memo1: TMemo;
    Panel2: TPanel;
    DBG_Msg: TDBGrid;
    DBNavigator1: TDBNavigator;
    Panel3: TPanel;
    Bt_Valid: TButton;
    Bt_Print: TButton;
    Bt_MonthFee: TButton;
    Bt_Return: TButton;
    procedure Bt_ValidClick(Sender: TObject);
    procedure Bt_MonthFeeClick(Sender: TObject);
    procedure Bt_ReturnClick(Sender: TObject);
    procedure Bt_PrintClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_ValidFee: TF_ValidFee;

implementation

uses Table_DM, CommSmdljf, Msg_R, Fee_Balance_F, Fee_List_F, Msg_F,
  MonthFeeThread;

{$R *.DFM}

procedure TF_ValidFee.Bt_ValidClick(Sender: TObject);
begin
	p_Valid();
	if(Not DM_Table.Tb_Msg.Active) then
    	Dm_Table.Tb_Msg.Open();
    Dm_Table.Tb_Msg.Refresh();
    If Dm_Table.Tb_Msg.Eof Then
    Begin
    	MessageBox(Handle,'抄表数据检查完毕,没有发现可疑之处','系统提示',0);
		Bt_Print.Enabled := False;
    End
    Else
    Begin
    	MessageBox(Handle,'系统发现可疑数据,请仔细核对相关抄表数据','系统提示',0);
		Bt_Print.Enabled := True;
    End;
end;

procedure TF_ValidFee.Bt_MonthFeeClick(Sender: TObject);
//var
//	pThread: TMonthFeeThread;
begin
	Hide();
	P_OpenMessageBox('系统提示','正在计算本月电费，请稍候...');
	//计费本月电费
    P_MonthFee();
    Close();
    P_CloseMessageBox();//关闭消息窗口
    MessageBox(Handle,'本月电费计算完毕,按《确定》查看明细对帐表','系统提示',0);
    F_Fee_List.ShowModal();
{
    Close();
	P_OpenMessageBox('系统提示','正在计算本月电费，请稍候...');
	pThread := TMonthFeeThread.Create(false);//建立线程并立即执行
}
end;

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

procedure TF_ValidFee.Bt_PrintClick(Sender: TObject);
begin
	P_Print_Report(R_Msg);
end;

end.