dbmodule.dfm

来自「小管理程序主要管理的小咖啡厅我是从网上下的经测试可用」· DFM 代码 · 共 267 行

object dm: Tdm
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Left = 322
  Top = 205
  Height = 310
  Width = 661
  object conn: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 8
    Top = 8
  end
  object Qfangtai: TADOTable
    Connection = conn
    CursorType = ctStatic
    Filtered = True
    AfterOpen = UpdateFieldFormats
    OnFilterRecord = QfangtaiFilterRecord
    OnPostError = QfangtaiPostError
    TableName = 'Q_fangtai'
    Left = 65
    Top = 12
  end
  object QFangtaiDataSource: TDataSource
    DataSet = Qfangtai
    Left = 65
    Top = 58
  end
  object Qmasterclass: TADOTable
    Connection = conn
    Filtered = True
    OnFilterRecord = QmasterclassFilterRecord
    OnPostError = QmasterclassPostError
    TableName = 'Q_masterclass'
    Left = 139
    Top = 13
  end
  object Qchildclass: TADOTable
    Connection = conn
    Filtered = True
    OnFilterRecord = QchildclassFilterRecord
    IndexFieldNames = 'Mclassid'
    MasterFields = 'mclassid'
    MasterSource = QmasterclassDataSource
    TableName = 'Q_childclass'
    Left = 217
    Top = 13
  end
  object QmasterclassDataSource: TDataSource
    DataSet = Qmasterclass
    Left = 137
    Top = 60
  end
  object QchildclassDataSource: TDataSource
    DataSet = Qchildclass
    Left = 217
    Top = 60
  end
  object Qcaipin: TADOTable
    Connection = conn
    Filtered = True
    AfterOpen = UpdateFieldFormats
    OnEditError = QcaipinEditError
    OnFilterRecord = QcaipinFilterRecord
    OnPostError = QcaipinPostError
    IndexFieldNames = 'chclassid'
    MasterFields = 'chclassid'
    MasterSource = QchildclassDataSource
    TableName = 'Q_caipin'
    Left = 297
    Top = 12
    object QcaipinCaipinid: TIntegerField
      FieldName = 'Caipinid'
    end
    object Qcaipinchclassid: TIntegerField
      FieldName = 'chclassid'
    end
    object Qcaipincaipinname: TWideStringField
      FieldName = 'caipinname'
      Size = 50
    end
    object Qcaipincaipinunit: TWideStringField
      FieldName = 'caipinunit'
      Size = 50
    end
    object Qcaipincaipinprice: TBCDField
      FieldName = 'caipinprice'
      Precision = 19
    end
    object Qcaipincaipinma: TWideStringField
      FieldName = 'caipinma'
      Size = 50
    end
    object Qcaipinisdel: TIntegerField
      FieldName = 'isdel'
    end
    object Qcaipincaipingroup: TIntegerField
      FieldName = 'caipingroup'
    end
    object Qcaipincaipingroupname: TStringField
      FieldKind = fkLookup
      FieldName = 'caipingroupname'
      LookupDataSet = Qcaipinitem
      LookupKeyFields = 'id'
      LookupResultField = 'listname'
      KeyFields = 'caipingroup'
      Lookup = True
    end
  end
  object QcaipinDataSource: TDataSource
    DataSet = Qcaipin
    Left = 297
    Top = 60
  end
  object QUnitList: TADOTable
    Connection = conn
    TableName = 'UnitList'
    Left = 361
    Top = 12
  end
  object UnitListDataSource: TDataSource
    DataSet = QUnitList
    Left = 364
    Top = 59
  end
  object Qfangshi: TADOTable
    Connection = conn
    OnPostError = QfangshiPostError
    TableName = 'Q_fangshi'
    Left = 430
    Top = 14
  end
  object QfangshiDataSource: TDataSource
    DataSet = Qfangshi
    Left = 432
    Top = 59
  end
  object Qfangtaistatus: TADOTable
    Connection = conn
    IndexFieldNames = 'statusid'
    MasterFields = 'statusid'
    MasterSource = QFangtaiDataSource
    TableName = 'Q_fangtaistatus'
    Left = 501
    Top = 16
  end
  object QfangtaistatusDataSource: TDataSource
    DataSet = Qfangtaistatus
    Left = 504
    Top = 64
  end
  object Qsysparam: TADOTable
    Connection = conn
    TableName = 'Q_sysparam'
    Left = 8
    Top = 58
  end
  object QDisList: TADOTable
    Connection = conn
    TableName = 'Q_DisList'
    Left = 16
    Top = 114
  end
  object QDisListDataSource: TDataSource
    DataSet = QDisList
    Left = 16
    Top = 168
  end
  object QueryPass: TADOQuery
    Connection = conn
    Parameters = <>
    Left = 16
    Top = 224
  end
  object WorkLogQuery: TADOQuery
    Connection = conn
    Parameters = <>
    Left = 96
    Top = 224
  end
  object ChuanBiaoQuery: TADOQuery
    Connection = conn
    Parameters = <>
    Left = 192
    Top = 228
  end
  object QGuest: TADOTable
    Connection = conn
    OnPostError = QGuestPostError
    TableName = 'Q_Guest'
    Left = 96
    Top = 120
  end
  object QGuestDataSource: TDataSource
    DataSet = QGuest
    Left = 96
    Top = 168
  end
  object Qusers: TADOTable
    Connection = conn
    OnPostError = QusersPostError
    TableName = 'Q_users'
    Left = 176
    Top = 120
    object Qusersuserid: TAutoIncField
      FieldName = 'userid'
      ReadOnly = True
    end
    object Qusersusername: TWideStringField
      FieldName = 'username'
      Size = 50
    end
    object Qusersuserpass: TWideStringField
      FieldName = 'userpass'
      Size = 50
    end
    object QusersGroupid: TIntegerField
      FieldName = 'Groupid'
    end
    object Qusersgroupname: TStringField
      FieldKind = fkLookup
      FieldName = 'groupname'
      LookupDataSet = Qgroup
      LookupKeyFields = 'Groupid'
      LookupResultField = 'Groupname'
      KeyFields = 'Groupid'
      Lookup = True
    end
  end
  object QusersDataSource: TDataSource
    DataSet = Qusers
    Left = 176
    Top = 176
  end
  object Qgroup: TADOTable
    Connection = conn
    TableName = 'Q_group'
    Left = 232
    Top = 120
  end
  object QgroupDataSource: TDataSource
    DataSet = Qgroup
    Left = 240
    Top = 176
  end
  object comquery: TADOQuery
    Connection = conn
    ParamCheck = False
    Parameters = <>
    Left = 264
    Top = 224
  end
  object Qcaipinitem: TADOTable
    Connection = conn
    TableName = 'Q_caipinitem'
    Left = 304
    Top = 120
  end
  object QcaipinitemDataSource: TDataSource
    DataSet = Qcaipinitem
    Left = 304
    Top = 168
  end
end