datam.dfm

来自「基本的物业管理系统」· DFM 代码 · 共 96 行

object Data: TData
  OldCreateOrder = False
  Left = 340
  Top = 185
  Height = 414
  Width = 386
  object ADOConnectLogin: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db_Sys.mdb;Persist ' +
      'Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 56
    Top = 32
  end
  object ADOLogin: TADOQuery
    Connection = ADOConnectLogin
    Parameters = <>
    Left = 56
    Top = 88
  end
  object ADOCLogin: TADOCommand
    Connection = ADOConnectLogin
    Parameters = <>
    Left = 120
    Top = 32
  end
  object DataSouLogin: TDataSource
    DataSet = ADOLogin
    Left = 120
    Top = 88
  end
  object DatasHJGL: TDataSource
    DataSet = ADOtHJGL
    Left = 120
    Top = 176
  end
  object DatasMemeber: TDataSource
    Left = 120
    Top = 224
  end
  object ADOtHJGL: TADOQuery
    Connection = ADOConnectLogin
    Parameters = <>
    Left = 56
    Top = 176
  end
  object ADOtMember: TADOQuery
    Connection = ADOConnectLogin
    Parameters = <>
    Left = 56
    Top = 224
  end
  object ADOQInOut: TADOQuery
    Connection = ADOConnectLogin
    Parameters = <>
    SQL.Strings = (
      'Select * from InOut')
    Left = 56
    Top = 304
  end
  object DataSInOut: TDataSource
    DataSet = ADOQInOut
    Left = 120
    Top = 304
  end
  object ADOFix: TADOQuery
    Connection = ADOConnectLogin
    Parameters = <>
    SQL.Strings = (
      'select * from Fix')
    Left = 264
    Top = 40
  end
  object DataSFix: TDataSource
    DataSet = ADOFix
    Left = 312
    Top = 40
  end
  object ADOFee: TADOQuery
    Connection = ADOConnectLogin
    Parameters = <>
    SQL.Strings = (
      'select * from Fee')
    Left = 264
    Top = 144
  end
  object DataSFee: TDataSource
    DataSet = ADOFee
    Left = 312
    Top = 144
  end
end