frmorderinfo.dfm

住宿餐饮 - 订餐管理系统,DelPhi写的。适合酒店

object OrderInfo: TOrderInfo
  Left = 235
  Top = 159
  Width = 721
  Height = 521
  Caption = #35746#21333#20449#24687#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 16
    Top = 16
    Width = 673
    Height = 217
    Caption = #35746#21333#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 32
      Width = 48
      Height = 13
      Caption = #35746#21333#32534#21495
    end
    object Label2: TLabel
      Left = 176
      Top = 32
      Width = 48
      Height = 13
      Caption = #39038#23458#22995#21517
    end
    object Label3: TLabel
      Left = 24
      Top = 72
      Width = 48
      Height = 13
      Caption = #35746#39184#26102#38388
    end
    object Label4: TLabel
      Left = 176
      Top = 72
      Width = 48
      Height = 13
      Caption = #39044#23450#26102#38388
    end
    object Label5: TLabel
      Left = 352
      Top = 32
      Width = 48
      Height = 13
      Caption = #39044#35745#37329#39069
    end
    object Label6: TLabel
      Left = 352
      Top = 72
      Width = 48
      Height = 13
      Caption = #39184#26700#32534#21495
    end
    object Label8: TLabel
      Left = 24
      Top = 112
      Width = 48
      Height = 13
      Caption = #32852#31995#30005#35805
    end
    object Label9: TLabel
      Left = 24
      Top = 152
      Width = 24
      Height = 13
      Caption = #22791#27880
    end
    object Label7: TLabel
      Left = 176
      Top = 112
      Width = 54
      Height = 13
      Caption = #29992#39184#20154#25968'  '
    end
    object Label10: TLabel
      Left = 352
      Top = 112
      Width = 54
      Height = 13
      Caption = #20184#27454#26041#24335'  '
    end
    object btnAdd: TButton
      Left = 552
      Top = 24
      Width = 75
      Height = 25
      Caption = #28155#21152' '
      TabOrder = 0
      OnClick = btnAddClick
    end
    object btnDelete: TButton
      Left = 552
      Top = 64
      Width = 75
      Height = 25
      Caption = #21024#38500
      TabOrder = 1
      OnClick = btnDeleteClick
    end
    object btnModify: TButton
      Left = 552
      Top = 104
      Width = 75
      Height = 25
      Caption = #20462#25913
      TabOrder = 2
      OnClick = btnModifyClick
    end
    object btnClear: TButton
      Left = 552
      Top = 144
      Width = 75
      Height = 25
      Caption = #28165#31354
      TabOrder = 3
      OnClick = btnClearClick
    end
    object OrderID: TEdit
      Left = 80
      Top = 28
      Width = 57
      Height = 21
      TabOrder = 4
      OnChange = OrderIDChange
    end
    object UserName: TEdit
      Left = 229
      Top = 28
      Width = 100
      Height = 21
      TabOrder = 5
    end
    object TimeOrder: TDateTimePicker
      Left = 80
      Top = 68
      Width = 81
      Height = 21
      CalAlignment = dtaLeft
      Date = 37642.3892438079
      Time = 37642.3892438079
      DateFormat = dfShort
      DateMode = dmComboBox
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 6
    end
    object TimeUse: TDateTimePicker
      Left = 232
      Top = 68
      Width = 97
      Height = 21
      CalAlignment = dtaLeft
      Date = 37642.3892438079
      Time = 37642.3892438079
      DateFormat = dfShort
      DateMode = dmComboBox
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Kind = dtkDate
      ParseInput = False
      ParentFont = False
      TabOrder = 7
    end
    object Price: TEdit
      Left = 407
      Top = 27
      Width = 82
      Height = 21
      TabOrder = 8
    end
    object TableID: TEdit
      Left = 408
      Top = 69
      Width = 81
      Height = 21
      TabOrder = 9
    end
    object Tel: TEdit
      Left = 80
      Top = 108
      Width = 61
      Height = 21
      TabOrder = 10
    end
    object Note: TEdit
      Left = 56
      Top = 149
      Width = 434
      Height = 21
      TabOrder = 11
    end
    object Num: TEdit
      Left = 232
      Top = 107
      Width = 81
      Height = 21
      TabOrder = 12
    end
    object Mode: TComboBox
      Left = 408
      Top = 104
      Width = 81
      Height = 21
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 13
      Items.Strings = (
        ''
        #32593#19978
        #20449#29992#21345
        #29616#37329)
    end
  end
  object DBGrid1: TDBGrid
    Left = 16
    Top = 240
    Width = 673
    Height = 177
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 424
    Width = 249
    Height = 41
    Caption = #25490#24207#26041#27861
    TabOrder = 2
    object SortAsc: TRadioButton
      Left = 16
      Top = 16
      Width = 57
      Height = 17
      Caption = #21319#24207
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = SortAscClick
    end
    object SortDesc: TRadioButton
      Left = 120
      Top = 16
      Width = 57
      Height = 17
      Caption = #38477#24207
      TabOrder = 1
      OnClick = SortDescClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 336
    Top = 424
    Width = 353
    Height = 41
    Caption = #25490#24207#20869#23481
    TabOrder = 3
    object id: TRadioButton
      Left = 8
      Top = 16
      Width = 57
      Height = 17
      Caption = #32534#21495
      Checked = True
      TabOrder = 0
      TabStop = True
      OnClick = idClick
    end
    object name: TRadioButton
      Left = 80
      Top = 16
      Width = 57
      Height = 17
      Caption = #22995#21517
      TabOrder = 1
      OnClick = nameClick
    end
    object OrderTime: TRadioButton
      Left = 160
      Top = 16
      Width = 73
      Height = 17
      Caption = #23450#39184#26102#38388
      TabOrder = 2
      OnClick = OrderTimeClick
    end
    object PreTime: TRadioButton
      Left = 248
      Top = 16
      Width = 73
      Height = 17
      Caption = #39044#23450#26102#38388
      TabOrder = 3
      OnClick = PreTimeClick
    end
  end
  object Table1: TTable
    DatabaseName = 'DB'
    TableName = 'OrderInfo.DB'
    Left = 448
    Top = 200
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'DB'
    SQL.Strings = (
      'select * from OrderInfo order by '#35746#21333#32534#21495' asc')
    Left = 368
    Top = 200
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 408
    Top = 200
  end
end