update_dm.dfm

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

object DM_Update: TDM_Update
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 192
  Top = 107
  Height = 480
  Width = 696
  object ADOC_Update: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='#21319#32423'.md' +
      'b;Mode=Share Deny None;Extended Properties="";Persist Security I' +
      'nfo=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="' +
      '";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLE' +
      'DB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;J' +
      'et OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Passw' +
      'ord="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt ' +
      'Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet ' +
      'OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 40
    Top = 32
  end
  object ADOCommand: TADOCommand
    Connection = ADOC_Update
    Parameters = <>
    Left = 40
    Top = 96
  end
  object Tb_Update: TADOTable
    Connection = ADOC_Update
    CursorType = ctStatic
    IndexName = 'PrimaryKey'
    TableName = #21319#32423
    Left = 136
    Top = 32
    object Tb_UpdateDSDesigner: TIntegerField
      FieldName = #25191#34892#24207#21495
    end
    object Tb_UpdateDSDesigner2: TWideStringField
      FieldName = #35201#27714#29256#26412
    end
    object Tb_UpdateDSDesigner3: TWideStringField
      FieldName = #29256#26412
    end
    object Tb_UpdateDSDesigner4: TWideStringField
      FieldName = #35828#26126
      Size = 50
    end
    object Tb_UpdateSQL: TMemoField
      FieldName = 'SQL'#35821#21477
      BlobType = ftMemo
    end
  end
  object Ds_Update: TDataSource
    DataSet = Tb_Update
    Left = 136
    Top = 96
  end
  object IBQuery: TIBQuery
    Database = F_Login.IBX_Database
    Transaction = F_Login.IBX_Transaction
    BufferChunks = 1000
    CachedUpdates = False
    SQL.Strings = (
      'Select * From Tb_Ver')
    Left = 136
    Top = 176
  end
end