snmai.dfm

简单的餐饮软件部分源码

object mainform: Tmainform
  Left = 163
  Top = 73
  AutoScroll = False
  BorderIcons = [biSystemMenu]
  Caption = 'mainform'
  ClientHeight = 448
  ClientWidth = 546
  Color = clBackground
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 400
    Top = 8
    Width = 313
    Height = 401
    AutoSize = True
  end
  object Sbar: TStatusBar
    Left = 0
    Top = 413
    Width = 546
    Height = 35
    Panels = <
      item
        Width = 260
      end
      item
        Width = 220
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object but1: TButton
    Left = 80
    Top = 18
    Width = 185
    Height = 46
    Caption = 'but1'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = but1Click
  end
  object but2: TButton
    Left = 80
    Top = 63
    Width = 186
    Height = 46
    Caption = 'but2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
  end
  object but3: TButton
    Left = 80
    Top = 107
    Width = 186
    Height = 46
    Caption = 'but2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = but3Click
  end
  object but4: TButton
    Left = 80
    Top = 149
    Width = 186
    Height = 46
    Caption = 'but2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
  end
  object but5: TButton
    Left = 80
    Top = 194
    Width = 186
    Height = 46
    Caption = 'but2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnClick = but5Click
  end
  object but6: TButton
    Left = 80
    Top = 239
    Width = 186
    Height = 46
    Caption = 'but2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = but6Click
  end
  object but9: TButton
    Left = 80
    Top = 355
    Width = 186
    Height = 46
    Cancel = True
    Caption = 'but2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
    OnClick = but9Click
  end
  object but7: TButton
    Left = 80
    Top = 282
    Width = 186
    Height = 46
    Caption = 'but2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnClick = but7Click
  end
  object but8: TButton
    Left = 80
    Top = 330
    Width = 186
    Height = 46
    Cancel = True
    Caption = 'but2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    OnClick = but8Click
  end
  object but10: TButton
    Left = 150
    Top = 34
    Width = 185
    Height = 46
    Caption = 'but1'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 10
  end
  object popubase: TPopupMenu
    AutoHotkeys = maManual
    Left = 352
    Top = 368
    object pufile1: TMenuItem
      Caption = #29992#25143#36164#26009
      OnClick = pufile1Click
    end
    object pufile2: TMenuItem
      Caption = #33756#24335#20998#31867
      OnClick = pufile2Click
    end
    object pufile3: TMenuItem
      Caption = 'fasfafaffa'
      Enabled = False
    end
    object pufile4: TMenuItem
      Caption = 'vcxvxvsdfa'
      OnClick = pufile4Click
    end
    object pufile5: TMenuItem
      Caption = 'ghgh'
      OnClick = pufile5Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object pufile6: TMenuItem
      Caption = 'FSAFSFDF'
      OnClick = pufile6Click
    end
    object pufile7: TMenuItem
      Caption = 'dsafadsffaf'
      OnClick = pufile7Click
    end
    object pufile8: TMenuItem
      Caption = 'dsdfaf'
      OnClick = pufile8Click
    end
    object pufile9: TMenuItem
      Caption = 'fdgsfg'
      Enabled = False
    end
    object pufile10: TMenuItem
      Caption = '432'
    end
  end
end