manform.~dfm

简单的餐饮软件部分源码

object cmform: Tcmform
  Left = 127
  Top = 198
  AutoScroll = False
  Caption = 'cmform'
  ClientHeight = 207
  ClientWidth = 664
  Color = clBackground
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 7
    Top = 14
    Width = 62
    Height = 17
    AutoSize = False
    Caption = #21488'('#21345')'#21495':'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 6
    Top = 38
    Width = 63
    Height = 17
    AutoSize = False
    Caption = #20154'        '#25968':'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object spbut1: TSpeedButton
    Left = 219
    Top = 9
    Width = 58
    Height = 26
    Caption = #36755#20837
    Flat = True
    OnClick = spbut1Click
  end
  object spbut2: TSpeedButton
    Left = 219
    Top = 37
    Width = 59
    Height = 26
    Caption = #36755#20837
    Flat = True
    OnClick = spbut2Click
  end
  object Edit1: TEdit
    Left = 70
    Top = 10
    Width = 147
    Height = 21
    CharCase = ecUpperCase
    TabOrder = 0
    OnEnter = Edit1Enter
  end
  object Edit2: TEdit
    Left = 70
    Top = 36
    Width = 147
    Height = 21
    TabOrder = 1
    Text = '1'
    OnEnter = Edit2Enter
    OnKeyPress = Edit2KeyPress
  end
  object but1: TButton
    Left = 135
    Top = 69
    Width = 68
    Height = 35
    Caption = 'but1'
    Default = True
    TabOrder = 2
    OnClick = but1Click
  end
  object but2: TButton
    Left = 210
    Top = 69
    Width = 68
    Height = 35
    Cancel = True
    Caption = 'but2'
    TabOrder = 3
    OnClick = but2Click
  end
  object bit1: TBitBtn
    Left = 293
    Top = 5
    Width = 46
    Height = 46
    Caption = '0'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = bit1Click
  end
  object Bit2: TBitBtn
    Left = 293
    Top = 53
    Width = 46
    Height = 46
    Caption = '1'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = Bit2Click
  end
  object Bit3: TBitBtn
    Left = 341
    Top = 53
    Width = 46
    Height = 46
    Caption = '2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = Bit3Click
  end
  object Bit4: TBitBtn
    Left = 389
    Top = 53
    Width = 46
    Height = 46
    Caption = '3'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = Bit4Click
  end
  object Bit7: TBitBtn
    Left = 389
    Top = 101
    Width = 46
    Height = 46
    Caption = '6'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    OnClick = Bit7Click
  end
  object Bit6: TBitBtn
    Left = 341
    Top = 101
    Width = 46
    Height = 46
    Caption = '5'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    OnClick = Bit6Click
  end
  object Bit5: TBitBtn
    Left = 293
    Top = 101
    Width = 46
    Height = 46
    Caption = '4'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
    OnClick = Bit5Click
  end
  object Bit8: TBitBtn
    Left = 293
    Top = 149
    Width = 46
    Height = 46
    Caption = '7'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 11
    OnClick = Bit8Click
  end
  object Bit9: TBitBtn
    Left = 341
    Top = 149
    Width = 46
    Height = 46
    Caption = '8'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 12
    OnClick = Bit9Click
  end
  object Bit10: TBitBtn
    Left = 389
    Top = 149
    Width = 46
    Height = 46
    Caption = '9'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 13
    OnClick = Bit10Click
  end
  object bit11: TBitBtn
    Left = 437
    Top = 5
    Width = 46
    Height = 46
    Caption = 'A'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 14
    OnClick = bit11Click
  end
  object bit12: TBitBtn
    Left = 485
    Top = 5
    Width = 46
    Height = 46
    Caption = 'B'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 15
    OnClick = bit12Click
  end
  object bit13: TBitBtn
    Left = 533
    Top = 5
    Width = 46
    Height = 46
    Caption = 'C'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 16
    OnClick = bit13Click
  end
  object bit14: TBitBtn
    Left = 581
    Top = 5
    Width = 46
    Height = 46
    Caption = 'D'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 17
    OnClick = bit14Click
  end
  object Bit17: TBitBtn
    Left = 533
    Top = 53
    Width = 46
    Height = 46
    Caption = 'G'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 18
    OnClick = Bit17Click
  end
  object bit16: TBitBtn
    Left = 485
    Top = 53
    Width = 46
    Height = 46
    Caption = 'F'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 19
    OnClick = bit16Click
  end
  object bit15: TBitBtn
    Left = 438
    Top = 53
    Width = 45
    Height = 46
    Caption = 'E'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 20
    OnClick = bit15Click
  end
  object bit18: TBitBtn
    Left = 581
    Top = 53
    Width = 46
    Height = 46
    Caption = 'H'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 21
    OnClick = bit18Click
  end
  object bit19: TBitBtn
    Left = 437
    Top = 101
    Width = 46
    Height = 46
    Caption = 'I'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 22
    OnClick = bit19Click
  end
  object bit20: TBitBtn
    Left = 485
    Top = 101
    Width = 46
    Height = 46
    Caption = 'J'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 23
    OnClick = bit20Click
  end
  object bit21: TBitBtn
    Left = 533
    Top = 101
    Width = 46
    Height = 46
    Caption = 'K'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 24
    OnClick = bit21Click
  end
  object bit22: TBitBtn
    Left = 581
    Top = 101
    Width = 46
    Height = 46
    Caption = 'L'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 25
    OnClick = bit22Click
  end
  object bit23: TBitBtn
    Left = 437
    Top = 149
    Width = 46
    Height = 46
    Caption = 'M'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 26
    OnClick = bit23Click
  end
  object bit24: TBitBtn
    Left = 485
    Top = 149
    Width = 46
    Height = 46
    Caption = 'N'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 27
    OnClick = bit24Click
  end
  object bit25: TBitBtn
    Left = 533
    Top = 149
    Width = 46
    Height = 46
    Caption = 'O'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 28
    OnClick = bit25Click
  end
  object bit26: TBitBtn
    Left = 581
    Top = 149
    Width = 46
    Height = 46
    Caption = 'P'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 29
    OnClick = bit26Click
  end
  object but3: TButton
    Left = 341
    Top = 5
    Width = 93
    Height = 44
    Caption = 'but3'
    TabOrder = 30
    OnClick = but3Click
  end
end