cw_snzdxx.dfm

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

    object DBText10: TDBText
      Left = 224
      Top = 192
      Width = 65
      Height = 17
      DataField = 'Type10'
      DataSource = DS_acc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText11: TDBText
      Left = 224
      Top = 248
      Width = 65
      Height = 17
      DataField = 'sfje'
      DataSource = DS_acc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText12: TDBText
      Left = 224
      Top = 280
      Width = 65
      Height = 17
      DataField = 'mlje'
      DataSource = DS_acc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText13: TDBText
      Left = 224
      Top = 336
      Width = 65
      Height = 17
      DataField = 'xykje'
      DataSource = DS_acc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText14: TDBText
      Left = 224
      Top = 360
      Width = 65
      Height = 17
      DataField = 'kdr'
      DataSource = DS_acc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText15: TDBText
      Left = 224
      Top = 384
      Width = 65
      Height = 17
      DataField = 'dzr'
      DataSource = DS_acc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText16: TDBText
      Left = 72
      Top = 120
      Width = 65
      Height = 17
      DataField = 'Type3'
      DataSource = DS_acc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText17: TDBText
      Left = 72
      Top = 144
      Width = 65
      Height = 17
      DataField = 'Type5'
      DataSource = DS_acc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText18: TDBText
      Left = 72
      Top = 168
      Width = 65
      Height = 17
      DataField = 'Type7'
      DataSource = DS_acc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText19: TDBText
      Left = 72
      Top = 192
      Width = 65
      Height = 17
      DataField = 'Type9'
      DataSource = DS_acc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText20: TDBText
      Left = 72
      Top = 224
      Width = 65
      Height = 17
      DataField = 'Type11'
      DataSource = DS_acc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText21: TDBText
      Left = 72
      Top = 248
      Width = 65
      Height = 17
      DataField = 'ysje'
      DataSource = DS_acc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText22: TDBText
      Left = 72
      Top = 280
      Width = 65
      Height = 17
      DataField = 'zkje'
      DataSource = DS_acc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText23: TDBText
      Left = 72
      Top = 312
      Width = 65
      Height = 17
      DataField = 'rmbje'
      DataSource = DS_acc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText24: TDBText
      Left = 72
      Top = 336
      Width = 65
      Height = 17
      DataField = 'zpje'
      DataSource = DS_acc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText25: TDBText
      Left = 72
      Top = 360
      Width = 65
      Height = 17
      DataField = 'kdje'
      DataSource = DS_acc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object DBText26: TDBText
      Left = 72
      Top = 384
      Width = 65
      Height = 17
      DataField = 'dzje'
      DataSource = DS_acc
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
  end
  object GroupBox2: TGroupBox
    Left = 352
    Top = 40
    Width = 329
    Height = 409
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 8
      Top = 16
      Width = 313
      Height = 385
      DataSource = DS_xx
      Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      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 = 'HandNo'
          Title.Alignment = taCenter
          Title.Caption = #25163#29260#21495
          Width = 42
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MenuName'
          Title.Alignment = taCenter
          Title.Caption = #21517#31216
          Width = 110
          Visible = True
        end
        item
          Alignment = taCenter
          Expanded = False
          FieldName = 'Quantity'
          Title.Alignment = taCenter
          Title.Caption = #25968#37327
          Width = 33
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SalePrice'
          Title.Alignment = taCenter
          Title.Caption = #21333#20215
          Width = 40
          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 = 'BeginTime'
          Title.Alignment = taCenter
          Title.Caption = #30331#35760#26102#38388
          Width = 43
          Visible = True
        end>
    end
  end
  object Button1: TButton
    Left = 592
    Top = 16
    Width = 75
    Height = 25
    Caption = #36820'  '#22238
    TabOrder = 2
    OnClick = Button1Click
  end
  object Q_xx: TQuery
    Active = True
    DatabaseName = 'Hotel'
    SQL.Strings = (
      'select * from h_sn_Dinlist')
    Left = 392
    Top = 16
  end
  object DS_xx: TDataSource
    DataSet = Q_xx
    Left = 424
    Top = 16
  end
  object Q_acc: TQuery
    Active = True
    DatabaseName = 'Hotel'
    SQL.Strings = (
      'select * from h_sn_account')
    Left = 128
    Top = 8
  end
  object DS_acc: TDataSource
    DataSet = Q_acc
    Left = 168
    Top = 8
  end
end