c_datam.dfm

来自「《delphi数据库设计与实例开发》随书光盘」· DFM 代码 · 共 108 行

object dm: Tdm
  OldCreateOrder = False
  Left = 247
  Top = 230
  Height = 230
  Width = 469
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=hotel_manage;Data Source=127.0.0.1'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 32
    Top = 16
  end
  object ADO_user: TADOTable
    Connection = ADOConnection1
    TableName = 'cuser'
    Left = 112
    Top = 16
  end
  object ADO_roomtype: TADOTable
    Connection = ADOConnection1
    TableName = 'roomtype'
    Left = 192
    Top = 16
  end
  object ADO_room: TADOTable
    Connection = ADOConnection1
    TableName = 'Room'
    Left = 96
    Top = 80
  end
  object ADO_foodtype: TADOTable
    Connection = ADOConnection1
    TableName = 'foodtype'
    Left = 32
    Top = 80
  end
  object ADO_dish: TADOTable
    Connection = ADOConnection1
    TableName = 'Dish'
    Left = 160
    Top = 80
  end
  object ADO_meals: TADOTable
    Connection = ADOConnection1
    TableName = 'Meals'
    Left = 232
    Top = 80
  end
  object ADO_table: TADOTable
    Connection = ADOConnection1
    TableName = 'restable'
    Left = 32
    Top = 144
  end
  object ADO_inroom: TADOTable
    Connection = ADOConnection1
    TableName = 'room_in'
    Left = 112
    Top = 144
  end
  object ADOQ_kfcx: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 184
    Top = 144
  end
  object ADO_customer: TADOTable
    Connection = ADOConnection1
    TableName = 'customer'
    Left = 264
    Top = 144
  end
  object ADO_order: TADOTable
    Connection = ADOConnection1
    TableName = 'yuding'
    Left = 272
    Top = 16
  end
  object ADOQ_dish: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 336
    Top = 144
  end
  object ADOQ_meals: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 304
    Top = 80
  end
  object ADO_benefit: TADOTable
    Connection = ADOConnection1
    TableName = 'Table_benefit'
    Left = 376
    Top = 80
  end
  object ADO_roombenefit: TADOTable
    Connection = ADOConnection1
    TableName = 'room_benefit'
    Left = 352
    Top = 16
  end
end