db_frm.~dfm

来自「完整的delphi书籍源代码,大家有空的时候自己慢慢看看」· ~DFM 代码 · 共 140 行

object DBFrm: TDBFrm
  Left = 221
  Top = 109
  Width = 376
  Height = 261
  Caption = 'DBFrm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Opera_Query: TQuery
    DatabaseName = 'hotel1'
    Left = 40
  end
  object Opera_DataSource: TDataSource
    DataSet = Opera_Table
    Left = 80
  end
  object Opera_Table: TTable
    Active = True
    DatabaseName = 'hotel1'
    TableName = 'Operator'
  end
  object Room_Table: TTable
    Active = True
    DatabaseName = 'hotel1'
    TableName = 'Room'
    Left = 8
    Top = 40
  end
  object Room_DataSource: TDataSource
    DataSet = Room_Table
    Left = 40
    Top = 40
  end
  object Room_Query: TQuery
    DatabaseName = 'hotel1'
    Left = 80
    Top = 40
  end
  object restable_Table: TTable
    Active = True
    DatabaseName = 'hotel1'
    TableName = 'restable'
    Left = 8
    Top = 88
  end
  object restable_DataSource: TDataSource
    DataSet = restable_Table
    Left = 48
    Top = 88
  end
  object Dish_Table: TTable
    Active = True
    DatabaseName = 'hotel1'
    TableName = 'Dish'
    Left = 8
    Top = 128
  end
  object Dish_DataSource: TDataSource
    DataSet = Dish_Table
    Left = 48
    Top = 128
  end
  object login_Table: TTable
    Active = True
    DatabaseName = 'hotel1'
    TableName = 'login'
    Left = 200
    Top = 128
  end
  object yuding_Table: TTable
    Active = True
    DatabaseName = 'hotel1'
    TableName = 'yuding'
    Left = 200
    Top = 88
  end
  object yuding_DataSource: TDataSource
    DataSet = yuding_Table
    Left = 248
    Top = 88
  end
  object yuding_Query: TQuery
    DatabaseName = 'hotel1'
    Left = 288
    Top = 88
  end
  object customer_Table: TTable
    Active = True
    DatabaseName = 'hotel1'
    TableName = 'customer'
    Left = 200
    Top = 40
  end
  object customer_DataSource: TDataSource
    DataSet = customer_Table
    Left = 248
    Top = 40
  end
  object meal_Table: TTable
    Active = True
    DatabaseName = 'hotel1'
    TableName = 'Meals'
    Left = 200
  end
  object meal_DataSource: TDataSource
    DataSet = meal_Table
    Left = 248
  end
  object restable_Query: TQuery
    DatabaseName = 'hotel1'
    Left = 88
    Top = 88
  end
  object meal_Query: TQuery
    DatabaseName = 'hotel1'
    Left = 296
  end
  object roombene_Table: TTable
    Active = True
    DatabaseName = 'hotel1'
    TableName = 'room_benefit'
    Left = 8
    Top = 176
  end
  object tablebene_Table: TTable
    Active = True
    DatabaseName = 'hotel1'
    TableName = 'table_benefit'
    Left = 48
    Top = 176
  end
end