datamodule_10kv.pas

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

unit DataModule_10KV;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, IBDatabase, IBCustomDataSet, IBTable, DBTables, IBSQL, IBQuery;

type
  TDM_10KV = class(TDataModule)
    IBDB_Fee: TIBDatabase;
    IBT_Fee: TIBTransaction;
    DB_10KV: TDatabase;
    Q_10KV: TQuery;
    Ds_10KV: TDataSource;
    Q_Update: TQuery;
    IBSQL: TIBSQL;
    Ds_10KVGathering: TDataSource;
    IBQ_Price: TIBQuery;
    Q_10KVGathering: TIBQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM_10KV: TDM_10KV;

implementation
Uses
	CommSMDLJF;
{$R *.DFM}

procedure TDM_10KV.DataModuleCreate(Sender: TObject);
begin
    If Not gEnabledFee Then//不使用收费功能
        Exit;

	If IBDB_Fee.Connected Then
    Begin
        ShowMessage('编译前请关闭DM_10KV中的数据库连接IBDB_Fee!');
        IBDB_Fee.Connected := False;
    End;
    IBDB_Fee.Params.Clear();
    IBDB_Fee.Params.Add('User_name=sysdba');
    IBDB_Fee.Params.Add('Password=masterkey');
    IBDB_Fee.DatabaseName := gFeeDBServer;//收费数据库名称
	Try
	    IBDB_Fee.Connected := True;
    	IBT_Fee.Active := True;
    Except
    	ShowMessage('不能正确连接到收费数据库, 不能使用收费功能');
        gEnabledFee := False;
    End;

	If DB_10KV.Connected Then
    	ShowMessage('编译前请关闭DM_10KV中的数据库连接DB_10KV!');
	DM_10KV.DB_10KV.Connected := False;
    DM_10KV.DB_10KV.Params.Clear();
	DM_10KV.DB_10KV.Params.Add('Path='+gRootPath);
    DM_10KV.DB_10KV.Connected := True;
end;

end.