sn_xfdj.dfm

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

      Alignment = taCenter
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 136
      Top = 24
      Width = 48
      Height = 12
      Caption = #32534'  '#21495#65306
    end
    object XF_spbh: TLabel
      Left = 184
      Top = 24
      Width = 3
      Height = 13
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 88
      Top = 56
      Width = 12
      Height = 12
      Caption = #20803
    end
    object ME_pycx: TMaskEdit
      Left = 64
      Top = 16
      Width = 65
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 0
      OnChange = ME_pycxChange
    end
    object SP_sl: TMaskEdit
      Left = 192
      Top = 48
      Width = 62
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      TabOrder = 1
      OnKeyPress = SP_slKeyPress
    end
    object SP_fwy: TComboBox
      Left = 320
      Top = 48
      Width = 73
      Height = 20
      Style = csDropDownList
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ItemHeight = 12
      TabOrder = 2
      OnKeyPress = SP_fwyKeyPress
    end
    object Button1: TButton
      Left = 408
      Top = 42
      Width = 59
      Height = 25
      Caption = #30830#23450
      TabOrder = 3
      OnClick = Button1Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 32
    Width = 193
    Height = 409
    Caption = #39033#30446#21015#34920
    TabOrder = 1
    object Db_sp: TDBGrid
      Left = 8
      Top = 16
      Width = 177
      Height = 385
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = Db_spDblClick
      Columns = <
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'MenuNo'
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Width = 30
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MenuName'
          Title.Alignment = taCenter
          Title.Caption = #21517#31216
          Width = 85
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SalePrice'
          Title.Alignment = taCenter
          Title.Caption = #20215#26684
          Width = 34
          Visible = True
        end>
    end
  end
  object GroupBox3: TGroupBox
    Left = 208
    Top = 120
    Width = 473
    Height = 321
    Caption = #24050#28040#36153#21830#21697#21015#34920
    TabOrder = 2
    object DBGrid1: TDBGrid
      Left = 8
      Top = 16
      Width = 457
      Height = 297
      DataSource = DataSource2
      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
          Alignment = taCenter
          Expanded = False
          FieldName = 'MenuNo'
          Title.Alignment = taCenter
          Title.Caption = #32534#21495
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MenuName'
          Title.Alignment = taCenter
          Title.Caption = #21517#31216
          Width = 153
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SalePrice'
          Title.Alignment = taCenter
          Title.Caption = #20215#26684
          Width = 52
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Quantity'
          Title.Alignment = taCenter
          Title.Caption = #25968#37327
          Width = 44
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Waiter'
          Title.Alignment = taCenter
          Title.Caption = #26381#21153#21592
          Width = 61
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'operator'
          Title.Alignment = taCenter
          Title.Caption = #25805#20316#21592
          Width = 58
          Visible = True
        end>
    end
  end
  object Q_select: TQuery
    Active = True
    AutoRefresh = True
    DatabaseName = 'Hotel'
    SQL.Strings = (
      'select * from Sn_menu order by MenuNo')
    Left = 392
  end
  object DataSource1: TDataSource
    DataSet = Q_select
    Left = 432
    Top = 8
  end
  object T_spin: TTable
    Active = True
    DatabaseName = 'Hotel'
    TableName = 'Sn_DinList'
    Left = 480
    Top = 8
  end
  object Q_skc: TQuery
    DatabaseName = 'Hotel'
    RequestLive = True
    Left = 536
  end
  object Query1: TQuery
    Left = 24
  end
  object Q_splb: TQuery
    DatabaseName = 'Hotel'
    SQL.Strings = (
      'select * from sn_Dinlist')
    Left = 288
    Top = 104
  end
  object DataSource2: TDataSource
    DataSet = Q_splb
    Left = 320
    Top = 104
  end
  object Q_service: TQuery
    DatabaseName = 'Hotel'
    SQL.Strings = (
      'select Name from Sn_service')
    Left = 576
    Top = 40
  end
end