unit1.dfm

使用borland C++寫成的簡單小程式

object Form1: TForm1
  Left = 193
  Top = 113
  Width = 865
  Height = 557
  HorzScrollBar.Visible = False
  VertScrollBar.Visible = False
  Caption = 'PC '#31471' '#33756#21934#25033#29992#31243#24335
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 872
    Top = 384
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    Visible = False
    OnClick = Button1Click
  end
  object foodindex: TStringGrid
    Left = 960
    Top = 120
    Width = 313
    Height = 257
    ColCount = 3
    DefaultColWidth = 24
    DefaultRowHeight = 16
    TabOrder = 1
    ColWidths = (
      24
      226
      37)
  end
  object ComboBox1: TComboBox
    Left = 824
    Top = 384
    Width = 41
    Height = 21
    ItemHeight = 13
    TabOrder = 2
    Visible = False
  end
  object Button3: TButton
    Left = 1072
    Top = 200
    Width = 75
    Height = 25
    Caption = 'Button3'
    TabOrder = 3
    Visible = False
    OnClick = Button3Click
  end
  object Memo1: TMemo
    Left = 1056
    Top = 168
    Width = 305
    Height = 305
    Lines.Strings = (
      'Memo1')
    TabOrder = 4
    Visible = False
    OnChange = Memo1Change
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 16
    Width = 369
    Height = 265
    Caption = #26410#20986#33756#26700#27425#36039#26009
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    object StringGrid1: TStringGrid
      Left = 24
      Top = 24
      Width = 257
      Height = 217
      DefaultColWidth = 24
      DefaultRowHeight = 16
      Enabled = False
      RowCount = 2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSelect]
      ParentFont = False
      ScrollBars = ssVertical
      TabOrder = 0
      ColWidths = (
        24
        22
        126
        53
        24)
    end
    object Button2: TButton
      Left = 296
      Top = 208
      Width = 57
      Height = 33
      Caption = 'Finish'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = Button2Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 280
    Width = 369
    Height = 233
    Caption = #26410#20986#33756#32113#35336#36039#26009
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
    object StringGrid2: TStringGrid
      Left = 16
      Top = 32
      Width = 329
      Height = 177
      ColCount = 3
      DefaultColWidth = 24
      DefaultRowHeight = 16
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      ColWidths = (
        24
        229
        44)
    end
  end
  object StringGrid4: TStringGrid
    Left = 984
    Top = 288
    Width = 249
    Height = 177
    DefaultColWidth = 24
    DefaultRowHeight = 16
    Enabled = False
    RowCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goRowSelect]
    ScrollBars = ssVertical
    TabOrder = 7
    Visible = False
    ColWidths = (
      24
      22
      126
      53
      24)
  end
  object GroupBox3: TGroupBox
    Left = 400
    Top = 8
    Width = 449
    Height = 505
    Caption = #26700#27425#32113#35336#36039#26009
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
    object Label1: TLabel
      Left = 366
      Top = 19
      Width = 40
      Height = 20
      Caption = #26700#27425':'
    end
    object StringGrid3: TStringGrid
      Left = 24
      Top = 24
      Width = 329
      Height = 465
      ColCount = 3
      DefaultColWidth = 24
      DefaultRowHeight = 16
      RowCount = 2
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      ColWidths = (
        24
        240
        27)
    end
    object Button4: TButton
      Left = 366
      Top = 448
      Width = 75
      Height = 25
      Caption = 'Pay'
      TabOrder = 1
      OnClick = Button4Click
    end
    object table: TComboBox
      Left = 376
      Top = 48
      Width = 41
      Height = 28
      ItemHeight = 20
      TabOrder = 2
      OnChange = tableChange
    end
    object Panel1: TPanel
      Left = 360
      Top = 88
      Width = 81
      Height = 33
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
  end
  object Timer2: TTimer
    OnTimer = Timer2Timer
    Left = 312
    Top = 8
  end
  object Timer1: TTimer
    Interval = 300
    OnTimer = Timer1Timer
    Left = 360
    Top = 8
  end
end