jiezhang.dfm

结于初学者来说这对数据库是一个很好的例子

      Caption = #20803
    end
    object Label6: TLabel
      Left = 40
      Top = 48
      Width = 36
      Height = 12
      Caption = #27927'  '#28020
    end
    object Label28: TLabel
      Left = 208
      Top = 48
      Width = 36
      Height = 12
      Caption = #25353'  '#25705
    end
    object Label43: TLabel
      Left = 40
      Top = 16
      Width = 36
      Height = 13
      AutoSize = False
      Caption = #38047#28857#25151
    end
    object Label45: TLabel
      Left = 136
      Top = 16
      Width = 12
      Height = 12
      Caption = #20803
    end
    object Label8: TLabel
      Left = 136
      Top = 48
      Width = 12
      Height = 12
      Caption = #20803
    end
    object Label7: TLabel
      Left = 304
      Top = 48
      Width = 12
      Height = 12
      Caption = #20803
    end
    object DBText1: TDBText
      Left = 87
      Top = 16
      Width = 42
      Height = 13
      Alignment = taRightJustify
      AutoSize = True
      DataField = 'Type1'
      DataSource = DS_xfxx
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBText2: TDBText
      Left = 87
      Top = 48
      Width = 42
      Height = 13
      Alignment = taRightJustify
      AutoSize = True
      DataField = 'Type2'
      DataSource = DS_xfxx
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBText3: TDBText
      Left = 255
      Top = 48
      Width = 42
      Height = 13
      Alignment = taRightJustify
      AutoSize = True
      DataField = 'Type3'
      DataSource = DS_xfxx
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBText4: TDBText
      Left = 87
      Top = 80
      Width = 42
      Height = 13
      Alignment = taRightJustify
      AutoSize = True
      DataField = 'Type4'
      DataSource = DS_xfxx
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBText5: TDBText
      Left = 255
      Top = 80
      Width = 42
      Height = 13
      Alignment = taRightJustify
      AutoSize = True
      DataField = 'Type5'
      DataSource = DS_xfxx
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBText6: TDBText
      Left = 87
      Top = 112
      Width = 42
      Height = 13
      Alignment = taRightJustify
      AutoSize = True
      DataField = 'Type6'
      DataSource = DS_xfxx
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBText7: TDBText
      Left = 255
      Top = 112
      Width = 42
      Height = 12
      Alignment = taRightJustify
      AutoSize = True
      DataField = 'Type7'
      DataSource = DS_xfxx
    end
    object DBText8: TDBText
      Left = 87
      Top = 144
      Width = 42
      Height = 13
      Alignment = taRightJustify
      AutoSize = True
      DataField = 'Type8'
      DataSource = DS_xfxx
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBText9: TDBText
      Left = 255
      Top = 112
      Width = 42
      Height = 13
      Alignment = taRightJustify
      AutoSize = True
      DataField = 'Type7'
      DataSource = DS_xfxx
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBText10: TDBText
      Left = 249
      Top = 144
      Width = 48
      Height = 13
      Alignment = taRightJustify
      AutoSize = True
      DataField = 'Type9'
      DataSource = DS_xfxx
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBText11: TDBText
      Left = 81
      Top = 176
      Width = 48
      Height = 13
      Alignment = taRightJustify
      AutoSize = True
      DataField = 'Type10'
      DataSource = DS_xfxx
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBText12: TDBText
      Left = 249
      Top = 176
      Width = 48
      Height = 13
      Alignment = taRightJustify
      AutoSize = True
      DataField = 'Type11'
      DataSource = DS_xfxx
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBText13: TDBText
      Left = 209
      Top = 200
      Width = 48
      Height = 13
      Alignment = taRightJustify
      AutoSize = True
      DataField = 'ysje'
      DataSource = DS_xfxx
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
  end
  object GroupBox4: TGroupBox
    Left = 8
    Top = 24
    Width = 353
    Height = 193
    Caption = #28040#36153#39033#30446#21015#34920
    TabOrder = 3
    object DBGrid1: TDBGrid
      Left = 8
      Top = 16
      Width = 337
      Height = 169
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'MenuName'
          Title.Alignment = taCenter
          Title.Caption = #39033#30446#21517#31216
          Width = 168
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SalePrice'
          Title.Alignment = taCenter
          Title.Caption = #21333#20215
          Width = 47
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Quantity'
          Title.Alignment = taCenter
          Title.Caption = #25968#37327
          Width = 41
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Waiter'
          Title.Alignment = taCenter
          Title.Caption = #26381#21153#21592
          Width = 50
          Visible = True
        end>
    end
  end
  object Button1: TButton
    Left = 608
    Top = 2
    Width = 75
    Height = 25
    Caption = #26597#30475#36149#23486#21345
    TabOrder = 4
    OnClick = Button1Click
  end
  object Q_insys: TQuery
    DatabaseName = 'Hotel'
    RequestLive = True
    Left = 480
  end
  object Q_over: TQuery
    DatabaseName = 'Hotel'
    Left = 520
  end
  object Q_SnDinList: TQuery
    DatabaseName = 'Hotel'
    SQL.Strings = (
      'select * from Sn_DinList')
    Left = 80
    Top = 128
  end
  object DataSource1: TDataSource
    DataSet = Q_SnDinList
    Left = 120
    Top = 128
  end
  object Q_xfxx: TQuery
    DatabaseName = 'Hotel'
    SQL.Strings = (
      'select * from Sn_Account')
    Left = 200
    Top = 240
  end
  object DS_xfxx: TDataSource
    DataSet = Q_xfxx
    Left = 232
    Top = 240
  end
  object Q_h: TQuery
    DatabaseName = 'Hotel'
    Left = 552
    Top = 48
  end
  object Q_kdr: TQuery
    DatabaseName = 'Hotel'
    SQL.Strings = (
      'select * from UserInfo order by UserNo')
    Left = 552
    Top = 152
  end
  object Q_dzr: TQuery
    DatabaseName = 'Hotel'
    SQL.Strings = (
      'select * from VipInfo order by UserNo')
    Left = 592
    Top = 152
  end
  object Q_kg: TQuery
    DatabaseName = 'Hotel'
    Left = 264
    Top = 8
  end
  object Q_room: TQuery
    DatabaseName = 'Hotel'
    Left = 184
    Top = 8
  end
  object T_dzkd: TTable
    DatabaseName = 'Hotel'
    TableName = 'h_dzkd'
    Left = 456
    Top = 24
  end
  object Q_zkl: TQuery
    DatabaseName = 'Hotel'
    SQL.Strings = (
      'select * from DinList')
    Left = 256
    Top = 128
  end
  object see_kdr: TQuery
    DatabaseName = 'Hotel'
    Left = 520
    Top = 152
  end
  object Q_selkddz: TQuery
    DatabaseName = 'hotel'
    Left = 304
    Top = 72
  end
end