proc_dm.pas

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

unit Proc_Dm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables;

type
  TDM_Proc = class(TDataModule)
    sp_SetThis_Count: TStoredProc;
    sp_gethouse: TStoredProc;
    sp_getmsg: TStoredProc;
    sp_MonthFee: TStoredProc;
    sp_NewMonth: TStoredProc;
    sp_Valid: TStoredProc;
    sp_setThis_Null: TStoredProc;
    sp_SetLast: TStoredProc;
    sp_MaxHouseNo: TStoredProc;
    sp_MaxVillageNo: TStoredProc;
    sp_MaxLineNo: TStoredProc;
    sp_MaxTransferNo: TStoredProc;
    sp_MaxTownNo: TStoredProc;
    sp_GetAmmeter: TStoredProc;
    sp_GetServicePrice: TStoredProc;
    sp_GetAddress: TStoredProc;
    sp_GetLine: TStoredProc;
    sp_GetServiceFee: TStoredProc;
    sp_GetCountry: TStoredProc;
    sp_GetService: TStoredProc;
    sp_GetCurrent: TStoredProc;
    sp_Extraction: TStoredProc;
    sp_TransferWasting: TStoredProc;
    sp_upd_password: TStoredProc;
    sp_Log: TStoredProc;
    sp_GetUsedCount: TStoredProc;
    sp_HouseUsedCount: TStoredProc;
    sp_HouseMonthFee: TStoredProc;
    sp_HouseFee: TStoredProc;
    sp_HouseSetPrice: TStoredProc;
    sp_GetVillageName: TStoredProc;
    sp_GetAmmeterNo: TStoredProc;
    sp_MergeTransfer: TStoredProc;
    sp_DisbranchTransfer: TStoredProc;
    sp_AmmeterReplace: TStoredProc;
    sp_TransferAlterLine: TStoredProc;
    sp_AmmeterMove: TStoredProc;
    sp_CopyRate: TStoredProc;
    sp_LineCopyRate: TStoredProc;
    sp_GetTransferInfo: TStoredProc;
    sp_CalcCooks: TStoredProc;
    sp_CalcTransferCooks: TStoredProc;
    sp_GenHouseCard: TStoredProc;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM_Proc: TDM_Proc;

implementation

{$R *.DFM}

































end.