payform.~dfm

简单的餐饮软件部分源码

object fpay: Tfpay
  Left = 123
  Top = 149
  AutoScroll = False
  Caption = 'fpay'
  ClientHeight = 279
  ClientWidth = 658
  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 = 10
    Top = 50
    Width = 80
    Height = 34
    AutoSize = False
    Caption = #23454#25910#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 10
    Top = 100
    Width = 80
    Height = 37
    AutoSize = False
    Caption = #24212#25910#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -27
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object lmeal: TLabel
    Left = 91
    Top = 100
    Width = 180
    Height = 32
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -27
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label3: TLabel
    Left = 10
    Top = 160
    Width = 80
    Height = 33
    AutoSize = False
    Caption = #25214#38646#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
    OnDblClick = Label3DblClick
  end
  object lchange: TLabel
    Left = 90
    Top = 160
    Width = 180
    Height = 32
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -27
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object Label4: TLabel
    Left = 10
    Top = 6
    Width = 103
    Height = 33
    AutoSize = False
    Caption = #38134#34892#21345':'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    Transparent = True
  end
  object but11: TButton
    Left = 111
    Top = 226
    Width = 88
    Height = 42
    Caption = 'but11'
    TabOrder = 1
    OnClick = but11Click
  end
  object but12: TButton
    Left = 21
    Top = 226
    Width = 88
    Height = 42
    Caption = 'but12'
    Default = True
    TabOrder = 2
    OnClick = but12Click
  end
  object but13: TButton
    Left = 200
    Top = 226
    Width = 88
    Height = 42
    Cancel = True
    Caption = 'Button1'
    TabOrder = 3
    OnClick = but13Click
  end
  object Edit1: TEdit
    Left = 93
    Top = 53
    Width = 178
    Height = 25
    BorderStyle = bsNone
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnKeyDown = Edit1KeyDown
    OnKeyPress = Edit1KeyPress
  end
  object Edit2: TEdit
    Left = 110
    Top = 11
    Width = 193
    Height = 21
    TabOrder = 4
    Visible = False
  end
  object GroupBox1: TGroupBox
    Left = 328
    Top = -3
    Width = 4
    Height = 284
    TabOrder = 5
  end
  object Edit3: TEdit
    Left = 40
    Top = 200
    Width = 241
    Height = 21
    BorderStyle = bsNone
    TabOrder = 6
    Visible = False
  end
end