dtconnects.dfm

IC卡饭堂售饭管理系统源码,内有相关说明,

object DTConnect: TDTConnect
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 292
  Top = 97
  Height = 338
  Width = 352
  object ADOConnection1: TADOConnection
    Connected = True
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 32
  end
  object QryICCard: TADOQuery
    CacheSize = 100
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * From UserCard')
    Left = 120
    Top = 32
  end
  object DsICCard: TDataSource
    DataSet = QryICCard
    Left = 168
    Top = 32
  end
  object QryUser: TADOQuery
    CacheSize = 100
    Connection = ADOConnection1
    Parameters = <>
    Left = 104
    Top = 96
  end
  object ADOCommand1: TADOCommand
    Connection = ADOConnection1
    Parameters = <>
    Left = 32
    Top = 80
  end
  object QryCheck: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 32
    Top = 168
  end
  object QryBadCard: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from BadCard')
    Left = 232
    Top = 88
  end
  object DsBadCard: TDataSource
    DataSet = QryBadCard
    Left = 264
    Top = 88
  end
  object QryUserInfo: TADOQuery
    CacheSize = 100
    Connection = ADOConnection1
    CursorType = ctStatic
    AfterInsert = QryUserInfoAfterInsert
    BeforeDelete = QryUserInfoBeforeDelete
    Parameters = <>
    SQL.Strings = (
      'select  * from [USer]')
    Left = 200
    Top = 240
  end
  object QryUse: TDataSource
    DataSet = QryUserInfo
    Left = 232
    Top = 240
  end
  object DSmoney: TDataSource
    DataSet = QrySellMoney
    Left = 248
    Top = 200
  end
  object QrySellMoney: TADOQuery
    CacheSize = 100
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from Sellmoney')
    Left = 208
    Top = 200
  end
  object QryDay: TADOQuery
    CacheSize = 100
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from sellmoney')
    Left = 24
    Top = 240
  end
  object DSDay: TDataSource
    DataSet = QryDay
    Left = 56
    Top = 240
  end
  object QryAdd: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from ADDmoney')
    Left = 96
    Top = 160
  end
  object DSAdd: TDataSource
    DataSet = QryAdd
    Left = 136
    Top = 152
  end
end