begin_goods.~dfm

delphi的一个开发实例

object frm_Begin_Goods: Tfrm_Begin_Goods
  Left = -4
  Top = -4
  Anchors = [akLeft, akTop, akBottom]
  AutoSize = True
  BorderStyle = bsNone
  Caption = #26399#21021#24211#23384#21830#21697
  ClientHeight = 663
  ClientWidth = 842
  Color = clSkyBlue
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 14
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 842
    Height = 663
    Align = alClient
    Caption = 'Panel1'
    Color = clSkyBlue
    TabOrder = 0
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 840
      Height = 661
      ActivePage = TabSheet1
      Align = alClient
      Style = tsFlatButtons
      TabIndex = 0
      TabOrder = 0
      object TabSheet1: TTabSheet
        Caption = #24211#23384#21830#21697#26399#21021
        object Panel2: TPanel
          Left = 0
          Top = 0
          Width = 832
          Height = 629
          Align = alClient
          Caption = 'Panel1'
          Color = clSkyBlue
          TabOrder = 0
          object Panel3: TPanel
            Left = 681
            Top = 1
            Width = 150
            Height = 627
            Align = alRight
            Color = clSkyBlue
            TabOrder = 0
            object SpeedButton5: TSpeedButton
              Left = 10
              Top = 254
              Width = 133
              Height = 27
              Caption = #21830#21697#36807#28388
              OnClick = SpeedButton5Click
            end
            object GroupBox1: TGroupBox
              Left = 1
              Top = 422
              Width = 148
              Height = 204
              Align = alBottom
              TabOrder = 0
              object SpeedButton6: TSpeedButton
                Left = 10
                Top = 34
                Width = 133
                Height = 27
                Caption = #21830#21697#26597#35810
              end
              object Cmd_Goods_Cancel: TSpeedButton
                Left = 10
                Top = 127
                Width = 133
                Height = 27
                Caption = #20851#38381
                OnClick = Cmd_Goods_CancelClick
              end
              object SpeedButton7: TSpeedButton
                Left = 10
                Top = 80
                Width = 133
                Height = 27
                Caption = #25171#21360
              end
            end
          end
          object Panel4: TPanel
            Left = 1
            Top = 1
            Width = 680
            Height = 627
            Align = alClient
            Color = clSkyBlue
            TabOrder = 1
            object Panel5: TPanel
              Left = 1
              Top = 1
              Width = 678
              Height = 41
              Align = alTop
              Color = clMedGray
              TabOrder = 0
              object Label1: TLabel
                Left = 8
                Top = 11
                Width = 140
                Height = 20
                Caption = #35831#36873#25321#25805#20316#31867#21035
                Font.Charset = GB2312_CHARSET
                Font.Color = clFuchsia
                Font.Height = -20
                Font.Name = #24188#22278
                Font.Style = []
                ParentFont = False
              end
              object SpeedButton1: TSpeedButton
                Left = 378
                Top = 10
                Width = 65
                Height = 22
                Caption = #21462#28040#36873#25321
                OnClick = SpeedButton1Click
              end
              object RadioButton1: TRadioButton
                Left = 152
                Top = 12
                Width = 102
                Height = 17
                Caption = #22686#21152#36215#21021
                Font.Charset = GB2312_CHARSET
                Font.Color = clWindowText
                Font.Height = -20
                Font.Name = #23435#20307
                Font.Style = []
                ParentFont = False
                TabOrder = 0
                OnClick = RadioButton1Click
              end
              object RadioButton2: TRadioButton
                Left = 271
                Top = 12
                Width = 102
                Height = 17
                Caption = #20462#25913#36215#21021
                Font.Charset = GB2312_CHARSET
                Font.Color = clWindowText
                Font.Height = -20
                Font.Name = #23435#20307
                Font.Style = []
                ParentFont = False
                TabOrder = 1
                OnClick = RadioButton2Click
              end
            end
            object GroupBox2: TGroupBox
              Left = 1
              Top = 42
              Width = 678
              Height = 584
              Align = alClient
              TabOrder = 1
              object StatusBar1: TStatusBar
                Left = 2
                Top = 553
                Width = 674
                Height = 29
                Color = clCream
                Panels = <
                  item
                    Text = #21512#35745#65306
                    Width = 200
                  end
                  item
                    Text = #26399#21021#25968#37327#65306
                    Width = 224
                  end
                  item
                    Text = #26399#21021#24635#20215#65306
                    Width = 244
                  end>
                SimplePanel = False
              end
              object Panel18: TPanel
                Left = 2
                Top = 16
                Width = 43
                Height = 537
                Align = alLeft
                BevelOuter = bvNone
                Color = clSkyBlue
                TabOrder = 1
                object Cmd_Delete: TSpeedButton
                  Left = 2
                  Top = 52
                  Width = 40
                  Height = 25
                  Caption = #20943#34892
                  Flat = True
                  NumGlyphs = 2
                  OnClick = Cmd_DeleteClick
                end
                object Cmd_Add: TSpeedButton
                  Left = 2
                  Top = 27
                  Width = 40
                  Height = 25
                  Caption = #22686#34892
                  Flat = True
                  NumGlyphs = 2
                  OnClick = Cmd_AddClick
                end
              end
              object StringGrid1: TStringGrid
                Left = 45
                Top = 16
                Width = 631
                Height = 537
                Align = alClient
                Color = clWhite
                ColCount = 8
                DefaultRowHeight = 20
                FixedColor = clSkyBlue
                RowCount = 2
                Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goRowSizing, goColSizing, goRowMoving, goColMoving, goEditing, goTabs, goThumbTracking]
                ParentShowHint = False
                ShowHint = True
                TabOrder = 2
                OnDblClick = StringGrid1DblClick
                OnDrawCell = StringGrid1DrawCell
                OnSetEditText = StringGrid1SetEditText
                ColWidths = (
                  64
                  64
                  64
                  64
                  64
                  64
                  64
                  64)
              end
            end
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = #24212#25910#24212#20184#26399#21021
        ImageIndex = 1
        object Panel6: TPanel
          Left = 0
          Top = 0
          Width = 832
          Height = 629
          Align = alClient
          Caption = 'Panel1'
          Color = clSkyBlue
          TabOrder = 0
          object Panel7: TPanel
            Left = 681
            Top = 1
            Width = 150
            Height = 627
            Align = alRight
            Color = clSkyBlue
            TabOrder = 0
            object SpeedButton9: TSpeedButton
              Left = 10
              Top = 72
              Width = 133
              Height = 27