export_dm.pas

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

unit Export_DM;

interface

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

type
  TDM_Export = class(TDataModule)
    DBDest: TDatabase;
    Ext_Transfer: TTable;
    Ext_House: TTable;
    Ext_HouseF_House_No: TStringField;
    Ext_HouseF_Transfer_No: TStringField;
    Ext_HouseF_House_Name: TStringField;
    Ext_HouseF_Ct: TSmallintField;
    Ext_HouseF_Elect_No: TStringField;
    Ext_HouseF_LateFee: TFloatField;
    Ext_HouseF_Used_Amount: TFloatField;
    BM_House: TBatchMove;
    Tb_House: TTable;
    Tb_HouseF_HOUSE_NO: TStringField;
    Tb_HouseF_TRANSFER_NO: TStringField;
    Tb_HouseF_HOUSE_NAME: TStringField;
    Tb_HouseF_CT: TIntegerField;
    Tb_HouseF_ELECT_NO: TStringField;
    Tb_HouseF_LATEFEE: TFloatField;
    Tb_HouseF_USED_AMOUNT: TFloatField;
    Q_Delete: TQuery;
    DS_House: TDataSource;
    DS_Transfer: TDataSource;
    sp_TransferProvide: TStoredProc;
    Tb_Transfer: TTable;
    Tb_TransferF_TRANSFER_NO: TStringField;
    Tb_TransferF_TRANSFER_NAME: TStringField;
    Tb_TransferF_POWERCOUNT: TIntegerField;
    Tb_TransferF_NORMALCOUNT: TIntegerField;
    Tb_TransferF_BUYCOUNT: TFloatField;
    Tb_TransferF_PROVIDECOUNT: TFloatField;
    Tb_Transfer_Fee: TTable;
    Tb_Transfer_FeeF_LINE_NO: TStringField;
    Tb_Transfer_FeeF_TRANSFER_NO: TStringField;
    Tb_Transfer_FeeF_TRANSFER_NAME: TStringField;
    Tb_Transfer_FeeF_COUNTER: TIntegerField;
    Tb_Transfer_FeeF_BUYCOUNT: TFloatField;
    Tb_Transfer_FeeF_COUNT1: TFloatField;
    Tb_Transfer_FeeF_COUNTRYAMOUNT1: TFloatField;
    Tb_Transfer_FeeF_SERVICEAMOUNT1: TFloatField;
    Tb_Transfer_FeeF_AMOUNT1: TFloatField;
    Tb_Transfer_FeeF_COUNT2: TFloatField;
    Tb_Transfer_FeeF_COUNTRYAMOUNT2: TFloatField;
    Tb_Transfer_FeeF_SERVICEAMOUNT2: TFloatField;
    Tb_Transfer_FeeF_AMOUNT2: TFloatField;
    Tb_Transfer_FeeF_COUNT3: TFloatField;
    Tb_Transfer_FeeF_COUNTRYAMOUNT3: TFloatField;
    Tb_Transfer_FeeF_SERVICEAMOUNT3: TFloatField;
    Tb_Transfer_FeeF_AMOUNT3: TFloatField;
    Tb_Transfer_FeeF_COUNT4: TFloatField;
    Tb_Transfer_FeeF_COUNTRYAMOUNT4: TFloatField;
    Tb_Transfer_FeeF_SERVICEAMOUNT4: TFloatField;
    Tb_Transfer_FeeF_AMOUNT4: TFloatField;
    Tb_Transfer_FeeF_COUNT5: TFloatField;
    Tb_Transfer_FeeF_COUNTRYAMOUNT5: TFloatField;
    Tb_Transfer_FeeF_SERVICEAMOUNT5: TFloatField;
    Tb_Transfer_FeeF_AMOUNT5: TFloatField;
    Tb_Transfer_FeeF_COUNT: TFloatField;
    Tb_Transfer_FeeF_COUNTRYAMOUNT: TFloatField;
    Tb_Transfer_FeeF_SERVICEAMOUNT: TFloatField;
    Tb_Transfer_FeeF_ARREARAGE: TFloatField;
    Tb_Transfer_FeeF_LATEFEE: TFloatField;
    Tb_Transfer_FeeF_AMOUNT: TFloatField;
    Ext_Transfer_Fee: TTable;
    Ext_Transfer_Feef_line_no: TStringField;
    Ext_Transfer_Feef_transfer_no: TStringField;
    Ext_Transfer_Feef_transfer_name: TStringField;
    Ext_Transfer_Feef_counter: TIntegerField;
    Ext_Transfer_Feef_BuyCount: TIntegerField;
    Ext_Transfer_FeeF_COUNT1: TIntegerField;
    Ext_Transfer_FeeF_COUNTRYAMOUNT1: TFloatField;
    Ext_Transfer_FeeF_SERVICEAMOUNT1: TFloatField;
    Ext_Transfer_FeeF_AMOUNT1: TFloatField;
    Ext_Transfer_FeeF_COUNT2: TIntegerField;
    Ext_Transfer_FeeF_COUNTRYAMOUNT2: TFloatField;
    Ext_Transfer_FeeF_SERVICEAMOUNT2: TFloatField;
    Ext_Transfer_FeeF_AMOUNT2: TFloatField;
    Ext_Transfer_FeeF_COUNT3: TIntegerField;
    Ext_Transfer_FeeF_COUNTRYAMOUNT3: TFloatField;
    Ext_Transfer_FeeF_SERVICEAMOUNT3: TFloatField;
    Ext_Transfer_FeeF_AMOUNT3: TFloatField;
    Ext_Transfer_FeeF_COUNT4: TIntegerField;
    Ext_Transfer_FeeF_COUNTRYAMOUNT4: TFloatField;
    Ext_Transfer_FeeF_SERVICEAMOUNT4: TFloatField;
    Ext_Transfer_FeeF_AMOUNT4: TFloatField;
    Ext_Transfer_FeeF_COUNT5: TIntegerField;
    Ext_Transfer_FeeF_COUNTRYAMOUNT5: TFloatField;
    Ext_Transfer_FeeF_SERVICEAMOUNT5: TFloatField;
    Ext_Transfer_FeeF_AMOUNT5: TFloatField;
    Ext_Transfer_Feef_count: TIntegerField;
    Ext_Transfer_Feef_countryAmount: TFloatField;
    Ext_Transfer_Feef_serviceAmount: TFloatField;
    Ext_Transfer_Feef_Arrearage: TFloatField;
    Ext_Transfer_Feef_LateFee: TFloatField;
    Ext_Transfer_Feef_Amount: TFloatField;
    DS_Transfer_Fee: TDataSource;
    BM_Transfer_Fee: TBatchMove;
    BM_Transfer: TBatchMove;
    Ext_TransferF_Transfer_No: TStringField;
    Ext_TransferF_Transfer_Name: TStringField;
    Ext_TransferF_PowerCount: TIntegerField;
    Ext_TransferF_NormalCount: TIntegerField;
    Ext_TransferF_BuyCount: TFloatField;
    Ext_TransferF_ProvideCount: TFloatField;
    Ext_HouseF_Used_Count: TFloatField;
    Tb_HouseF_USED_COUNT: TFloatField;
    V_Fee: TTable;
    Ext_Fee: TTable;
    Ext_FeeF_HOUSE_NO: TStringField;
    Ext_FeeF_HOUSE_NAME: TStringField;
    Ext_FeeF_TRANSFER_NO: TStringField;
    Ext_FeeF_COUNT1: TFloatField;
    Ext_FeeF_COUNTRYAMOUNT1: TFloatField;
    Ext_FeeF_SERVICEAMOUNT1: TFloatField;
    Ext_FeeF_AMOUNT1: TFloatField;
    Ext_FeeF_COUNT2: TFloatField;
    Ext_FeeF_COUNTRYAMOUNT2: TFloatField;
    Ext_FeeF_SERVICEAMOUNT2: TFloatField;
    Ext_FeeF_AMOUNT2: TFloatField;
    Ext_FeeF_COUNT3: TFloatField;
    Ext_FeeF_COUNTRYAMOUNT3: TFloatField;
    Ext_FeeF_SERVICEAMOUNT3: TFloatField;
    Ext_FeeF_AMOUNT3: TFloatField;
    Ext_FeeF_COUNT4: TFloatField;
    Ext_FeeF_COUNTRYAMOUNT4: TFloatField;
    Ext_FeeF_SERVICEAMOUNT4: TFloatField;
    Ext_FeeF_AMOUNT4: TFloatField;
    Ext_FeeF_COUNT5: TFloatField;
    Ext_FeeF_COUNTRYAMOUNT5: TFloatField;
    Ext_FeeF_SERVICEAMOUNT5: TFloatField;
    Ext_FeeF_AMOUNT5: TFloatField;
    Ext_FeeF_COUNT: TFloatField;
    Ext_FeeF_COUNTRYAMOUNT: TFloatField;
    Ext_FeeF_SERVICEAMOUNT: TFloatField;
    Ext_FeeF_AMOUNT: TFloatField;
    Ext_FeeF_ARREARAGE: TFloatField;
    Ext_FeeF_LATEFEE: TFloatField;
    Ext_FeeF_BOX_NO: TStringField;
    Ds_Fee: TDataSource;
    BM_Fee: TBatchMove;
    V_FeeF_HOUSE_NO: TStringField;
    V_FeeF_HOUSE_NAME: TStringField;
    V_FeeF_TRANSFER_NO: TStringField;
    V_FeeF_COUNT1: TFloatField;
    V_FeeF_COUNTRYAMOUNT1: TFloatField;
    V_FeeF_SERVICEAMOUNT1: TFloatField;
    V_FeeF_AMOUNT1: TFloatField;
    V_FeeF_COUNT2: TFloatField;
    V_FeeF_COUNTRYAMOUNT2: TFloatField;
    V_FeeF_SERVICEAMOUNT2: TFloatField;
    V_FeeF_AMOUNT2: TFloatField;
    V_FeeF_COUNT3: TFloatField;
    V_FeeF_COUNTRYAMOUNT3: TFloatField;
    V_FeeF_SERVICEAMOUNT3: TFloatField;
    V_FeeF_AMOUNT3: TFloatField;
    V_FeeF_COUNT4: TFloatField;
    V_FeeF_COUNTRYAMOUNT4: TFloatField;
    V_FeeF_SERVICEAMOUNT4: TFloatField;
    V_FeeF_AMOUNT4: TFloatField;
    V_FeeF_COUNT5: TFloatField;
    V_FeeF_COUNTRYAMOUNT5: TFloatField;
    V_FeeF_SERVICEAMOUNT5: TFloatField;
    V_FeeF_AMOUNT5: TFloatField;
    V_FeeF_COUNT: TFloatField;
    V_FeeF_COUNTRYAMOUNT: TFloatField;
    V_FeeF_SERVICEAMOUNT: TFloatField;
    V_FeeF_AMOUNT: TFloatField;
    V_FeeF_ARREARAGE: TFloatField;
    V_FeeF_LATEFEE: TFloatField;
    V_FeeF_BOX_NO: TStringField;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM_Export: TDM_Export;

implementation

{$R *.DFM}

procedure TDM_Export.DataModuleCreate(Sender: TObject);
begin
	If DBDest.Connected Then
    	ShowMessage('请关闭DM_Update中的数据库连接!');
end;

end.