datamodule_10kv.dfm

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

object DM_10KV: TDM_10KV
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 192
  Top = 107
  Height = 480
  Width = 696
  object IBDB_Fee: TIBDatabase
    DatabaseName = 'D:\Mis\10KVFee\Exe\10KVFEE.FB'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey')
    LoginPrompt = False
    DefaultTransaction = IBT_Fee
    IdleTimer = 0
    SQLDialect = 3
    TraceFlags = []
    Left = 24
    Top = 24
  end
  object IBT_Fee: TIBTransaction
    Active = False
    DefaultDatabase = IBDB_Fee
    AutoStopAction = saNone
    Left = 24
    Top = 80
  end
  object DB_10KV: TDatabase
    DatabaseName = 'DB10KV'
    DriverName = 'STANDARD'
    Params.Strings = (
      'Path=.')
    SessionName = 'Default'
    Left = 24
    Top = 208
  end
  object Q_10KV: TQuery
    DatabaseName = 'DB10KV'
    SQL.Strings = (
      'Select * From "10KV.DBF"')
    Left = 24
    Top = 272
  end
  object Ds_10KV: TDataSource
    DataSet = Q_10KV
    Left = 24
    Top = 328
  end
  object Q_Update: TQuery
    DatabaseName = 'DB10KV'
    Left = 88
    Top = 272
  end
  object IBSQL: TIBSQL
    Database = IBDB_Fee
    ParamCheck = True
    Transaction = IBT_Fee
    Left = 176
    Top = 24
  end
  object Ds_10KVGathering: TDataSource
    DataSet = Q_10KVGathering
    Left = 108
    Top = 75
  end
  object IBQ_Price: TIBQuery
    Database = IBDB_Fee
    Transaction = IBT_Fee
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'Select f_Name '
      'From Tb_10kvPrice'
      'Where f_Price1 = :Price Or f_Price10 = :Price')
    Left = 232
    Top = 24
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'Price'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'Price'
        ParamType = ptUnknown
      end>
  end
  object Q_10KVGathering: TIBQuery
    Database = IBDB_Fee
    Transaction = IBT_Fee
    BufferChunks = 1000
    CachedUpdates = False
    Left = 104
    Top = 24
  end
end