mealform.dfm

本程序是一个餐饮业的管理软件

object FrmMeal: TFrmMeal
  Left = 353
  Top = 63
  BorderStyle = bsToolWindow
  Caption = #29992#39184#31649#29702
  ClientHeight = 442
  ClientWidth = 569
  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 PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 569
    Height = 449
    ActivePage = TabSheet2
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = #24320#21488
      object Label1: TLabel
        Left = 16
        Top = 48
        Width = 36
        Height = 13
        Caption = #21488#21495#65306
      end
      object Label2: TLabel
        Left = 16
        Top = 16
        Width = 48
        Height = 13
        Caption = #27969#27700#21495#65306
      end
      object Label3: TLabel
        Left = 328
        Top = 16
        Width = 60
        Height = 13
        Caption = #24320#21488#26102#38388#65306
      end
      object Label4: TLabel
        Left = 328
        Top = 48
        Width = 59
        Height = 13
        Caption = #24320#21488#20154'ID'#65306
      end
      object Label5: TLabel
        Left = 403
        Top = 16
        Width = 3
        Height = 13
      end
      object Label14: TLabel
        Left = 16
        Top = 80
        Width = 36
        Height = 13
        Caption = #20154#25968#65306
      end
      object Edit1: TEdit
        Left = 400
        Top = 40
        Width = 145
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 0
      end
      object GroupBox1: TGroupBox
        Left = 0
        Top = 112
        Width = 561
        Height = 313
        Caption = #33756#21333
        TabOrder = 1
        object Label6: TLabel
          Left = 16
          Top = 56
          Width = 48
          Height = 13
          Caption = #39184#31867#22411#65306
        end
        object Label7: TLabel
          Left = 16
          Top = 88
          Width = 36
          Height = 13
          Caption = #33756#21517#65306
        end
        object Label8: TLabel
          Left = 16
          Top = 120
          Width = 60
          Height = 13
          Caption = #26159#21542#19979#21333#65306
        end
        object Label9: TLabel
          Left = 16
          Top = 152
          Width = 60
          Height = 13
          Caption = #26159#21542#36192#20104#65306
        end
        object Label10: TLabel
          Left = 328
          Top = 24
          Width = 60
          Height = 13
          Caption = #26159#21542#36864#22238#65306
        end
        object Label11: TLabel
          Left = 328
          Top = 56
          Width = 36
          Height = 13
          Caption = #20215#26684#65306
        end
        object Label12: TLabel
          Left = 328
          Top = 88
          Width = 36
          Height = 13
          Caption = #25240#25187#65306
        end
        object Label13: TLabel
          Left = 328
          Top = 120
          Width = 48
          Height = 13
          Caption = #20570#33756#20154#65306
        end
        object Label15: TLabel
          Left = 16
          Top = 24
          Width = 48
          Height = 13
          Caption = #27969#27700#21495#65306
        end
        object DBGrid1: TDBGrid
          Left = 0
          Top = 200
          Width = 561
          Height = 113
          DataSource = Data.DataSOrder
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
        end
        object DBComboBox2: TDBComboBox
          Left = 80
          Top = 48
          Width = 145
          Height = 21
          DataField = 'DishType'
          DataSource = Data.DataSOrder
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          ItemHeight = 13
          Items.Strings = (
            #20937#33756
            #20919#21697
            #29980#21697
            #27700#26524
            #28909#33756
            #23478#24120
            #29305#33394
            #37202#27700
            #20027#39135)
          TabOrder = 1
        end
        object DBComboBox3: TDBComboBox
          Left = 80
          Top = 112
          Width = 145
          Height = 21
          DataField = 'Ordered'
          DataSource = Data.DataSOrder
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          ItemHeight = 13
          Items.Strings = (
            #26159
            #21542)
          TabOrder = 2
        end
        object DBComboBox4: TDBComboBox
          Left = 80
          Top = 144
          Width = 145
          Height = 21
          DataField = 'Gifts'
          DataSource = Data.DataSOrder
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          ItemHeight = 13
          Items.Strings = (
            #26159
            #21542)
          TabOrder = 3
        end
        object DBComboBox5: TDBComboBox
          Left = 400
          Top = 16
          Width = 145
          Height = 21
          DataField = 'Back'
          DataSource = Data.DataSOrder
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          ItemHeight = 13
          Items.Strings = (
            #26159
            #21542)
          TabOrder = 4
        end
        object DBNavigator1: TDBNavigator
          Left = 136
          Top = 168
          Width = 279
          Height = 26
          DataSource = Data.DataSOrder
          VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbEdit, nbPost, nbCancel]
          Flat = True
          TabOrder = 5
        end
        object DBEdit2: TDBEdit
          Left = 400
          Top = 48
          Width = 145
          Height = 21
          DataField = 'Price'
          DataSource = Data.DataSOrder
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 6
        end
        object DBEdit3: TDBEdit
          Left = 400
          Top = 80
          Width = 145
          Height = 21
          DataField = 'Discount'
          DataSource = Data.DataSOrder
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 7
        end
        object DBEdit4: TDBEdit
          Left = 400
          Top = 112
          Width = 145
          Height = 21
          DataField = 'ProducterID'
          DataSource = Data.DataSOrder
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 8
        end
        object DBEdit5: TDBEdit
          Left = 80
          Top = 16
          Width = 145
          Height = 21
          DataField = 'StreamNumber'
          DataSource = Data.DataSOrder
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          ReadOnly = True
          TabOrder = 9
        end
        object DBComboBox7: TDBComboBox
          Left = 80
          Top = 80
          Width = 145
          Height = 21
          DataField = 'DishName'
          DataSource = Data.DataSOrder
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          ItemHeight = 13
          TabOrder = 10
        end
      end
      object btBegin: TButton
        Left = 328
        Top = 72
        Width = 75
        Height = 25
        Caption = #24320#21488
        TabOrder = 2
        OnClick = btBeginClick
      end
      object Edit2: TEdit
        Left = 80
        Top = 80
        Width = 145
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 3
      end
      object ComboBox1: TComboBox
        Left = 80
        Top = 40
        Width = 145
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ItemHeight = 13
        TabOrder = 4
        Text = '1'
        Items.Strings = (
          '1'
          '2'
          '3'
          '4'
          '5'
          '6'
          '7'
          '8'
          '9'
          '10'
          '11'
          '12'
          '13'
          '14'
          '15'
          '16'
          '17'
          '18'
          '19'
          '20')
      end
      object Edit3: TEdit
        Left = 80
        Top = 8
        Width = 145
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 5
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25910#21488
      ImageIndex = 1
      object Label16: TLabel
        Left = 24
        Top = 16
        Width = 48
        Height = 13
        Caption = #27969#27700#21495#65306