thing_base.dfm

delphi的一个开发实例

              Font.Style = []
              ParentFont = False
              TabOrder = 17
              object Image1: TImage
                Left = 1
                Top = 1
                Width = 152
                Height = 265
                Align = alClient
                Center = True
                Stretch = True
                Transparent = True
                OnDblClick = Image1DblClick
              end
            end
          end
          object Panel19: TPanel
            Left = 1
            Top = 268
            Width = 657
            Height = 41
            Align = alTop
            BorderStyle = bsSingle
            Color = clSkyBlue
            TabOrder = 1
            object ToolBar2: TToolBar
              Left = 1
              Top = 1
              Width = 651
              Height = 35
              Align = alClient
              ButtonHeight = 30
              Caption = 'ToolBar1'
              TabOrder = 0
              object Cmd_E_Add: TSpeedButton
                Left = 0
                Top = 2
                Width = 80
                Height = 30
                Caption = #22686#21152
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000130B0000130B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
                  33333333FF33333333FF333993333333300033377F3333333777333993333333
                  300033F77FFF3333377739999993333333333777777F3333333F399999933333
                  33003777777333333377333993333333330033377F3333333377333993333333
                  3333333773333333333F333333333333330033333333F33333773333333C3333
                  330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
                  993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
                  333333333337733333FF3333333C333330003333333733333777333333333333
                  3000333333333333377733333333333333333333333333333333}
                NumGlyphs = 2
                OnClick = Cmd_E_AddClick
              end
              object Cmd_E_Delete: TSpeedButton
                Left = 80
                Top = 2
                Width = 80
                Height = 30
                Caption = #21024#38500
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000130B0000130B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
                  333333333333333333FF33333333333330003333333333333777333333333333
                  300033FFFFFF3333377739999993333333333777777F3333333F399999933333
                  3300377777733333337733333333333333003333333333333377333333333333
                  3333333333333333333F333333333333330033333F33333333773333C3333333
                  330033337F3333333377333CC3333333333333F77FFFFFFF3FF33CCCCCCCCCC3
                  993337777777777F77F33CCCCCCCCCC399333777777777737733333CC3333333
                  333333377F33333333FF3333C333333330003333733333333777333333333333
                  3000333333333333377733333333333333333333333333333333}
                NumGlyphs = 2
                OnClick = Cmd_E_DeleteClick
              end
              object Cmd_E_Edit: TSpeedButton
                Left = 160
                Top = 2
                Width = 80
                Height = 30
                Caption = #20462#25913
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000120B0000120B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
                  000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
                  00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
                  F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
                  0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
                  FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
                  FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
                  0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
                  00333377737FFFFF773333303300000003333337337777777333}
                NumGlyphs = 2
                OnClick = Cmd_E_EditClick
              end
              object Cmd_E_Save: TSpeedButton
                Left = 240
                Top = 2
                Width = 80
                Height = 30
                Caption = #20445#23384
                Enabled = False
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000130B0000130B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
                  FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
                  FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
                  007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
                  7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
                  99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
                  99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
                  99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
                  93337FFFF7737777733300000033333333337777773333333333}
                NumGlyphs = 2
                OnClick = Cmd_E_SaveClick
              end
              object Cmd_E_Exit: TSpeedButton
                Left = 320
                Top = 2
                Width = 80
                Height = 30
                Caption = #21047#26032
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000120B0000120B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555
                  555557777F777555F55500000000555055557777777755F75555005500055055
                  555577F5777F57555555005550055555555577FF577F5FF55555500550050055
                  5555577FF77577FF555555005050110555555577F757777FF555555505099910
                  555555FF75777777FF555005550999910555577F5F77777775F5500505509990
                  3055577F75F77777575F55005055090B030555775755777575755555555550B0
                  B03055555F555757575755550555550B0B335555755555757555555555555550
                  BBB35555F55555575F555550555555550BBB55575555555575F5555555555555
                  50BB555555555555575F555555555555550B5555555555555575}
                NumGlyphs = 2
                OnClick = Cmd_E_ExitClick
              end
              object Cmd_E_Cancel: TSpeedButton
                Left = 400
                Top = 2
                Width = 80
                Height = 30
                Caption = #36864#20986
                Glyph.Data = {
                  76010000424D7601000000000000760000002800000020000000100000000100
                  04000000000000010000130B0000130B00001000000000000000000000000000
                  800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                  FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
                  3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
                  33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
                  993337777F777F3377F3393999707333993337F77737333337FF993399933333
                  399377F3777FF333377F993339903333399377F33737FF33377F993333707333
                  399377F333377FF3377F993333101933399377F333777FFF377F993333000993
                  399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
                  99333773FF777F777733339993707339933333773FF7FFF77333333999999999
                  3333333777333777333333333999993333333333377777333333}
                NumGlyphs = 2
                OnClick = Cmd_E_CancelClick
              end
              object Cmd_E_Treeview: TSpeedButton
                Left = 480
                Top = 2
                Width = 31
                Height = 30
                Caption = #24314#26641
                Visible = False
                OnClick = Cmd_E_TreeviewClick
              end
            end
          end
          object Panel20: TPanel
            Left = 1
            Top = 309
            Width = 657
            Height = 347
            Align = alClient
            Color = clSkyBlue
            TabOrder = 2
            object DBGrid5: TDBGrid
              Left = 1
              Top = 1
              Width = 655
              Height = 345
              Align = alClient
              FixedColor = clSkyBlue
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
              ReadOnly = True
              TabOrder = 0
              TitleFont.Charset = GB2312_CHARSET
              TitleFont.Color = clWindowText
              TitleFont.Height = -13
              TitleFont.Name = #23435#20307
              TitleFont.Style = []
              OnCellClick = DBGrid5CellClick
            end
          end
        end
      end
      object TabSh3: TTabSheet
        Caption = #24448#26469#21333#20301
        ImageIndex = 2
        object Panel21: TPanel
          Left = 0
          Top = 0
          Width = 844
          Height = 326
          Align = alTop
          BevelOuter = bvNone
          Color = clSkyBlue
          TabOrder = 0
          object ED1: TLabeledEdit
            Left = 120
            Top = 10
            Width = 560
            Height = 21
            EditLabel.Width = 65
            EditLabel.Height = 13
            EditLabel.Caption = #21333#20301#21517#31216#65306
            LabelPosition = lpLeft
            LabelSpacing = 3
            TabOrder = 0
          end
          object ED3: TLabeledEdit
            Left = 480
            Top = 42
            Width = 200
            Height = 21
            EditLabel.Width = 65
            EditLabel.Height = 13
            EditLabel.Caption = #21333#20301#32534#21495#65306
            LabelPosition = lpLeft
            LabelSpacing = 3
            TabOrder = 1
          end
          object ED4: TLabeledEdit
            Left = 120
            Top = 74
            Width = 560
            Height = 21
            EditLabel.Width = 65
            EditLabel.Height = 13
            EditLabel.Caption = #35814#32454#22320#22336#65306
            LabelPosition = lpLeft
            LabelSpacing = 3
            TabOrder = 2
          end
          object ED5: TLabeledEdit
            Left = 120
            Top = 106
            Width = 200
            Height = 21
            EditLabel.Width = 65
            EditLabel.Height = 13
            EditLabel.Caption = #37038#25919#32534#30721#65306
            LabelPosition = lpLeft
            LabelSpacing = 3
            TabOrder = 3
          end
          object ED2: TLabeledEdit
            Left = 120
            Top = 42
            Width = 200
            Height = 21
            EditLabel.Width = 67
            EditLabel.Height = 13
            EditLabel.Caption = #31616'    '#31216#65306
            LabelPosition = lpLeft
            LabelSpacing = 3
            TabOrder = 4
          end
          object ED6: TLabeledEdit
            Left = 480
            Top = 106
            Width = 200
            Height = 21
            EditLabel.Width = 65
            EditLabel.Height = 13
            EditLabel.Caption = #32852#31995#20154#21592#65306
            LabelPosition = lpLeft
            LabelSpacing = 3
            TabOrder = 5
          end
          object ED8: TLabeledEdit
            Left = 480
            Top = 138
            Width = 200
            Height = 21
            EditLabel.Width = 65
            EditLabel.Height = 13
            EditLabel.Caption = #20256#30495#21495#30721#65306
            LabelPosition = lpLeft
            LabelSpacing = 3
            TabOrder = 6
          end
          object ED10: TLabeledEdit
            Left = 480
            Top = 170
            Width = 200
            Height = 21
            EditLabel.Width = 39
            EditLabel.Height = 13
            EditLabel.Caption = #31246#21495#65306
            LabelPosition = lpLeft
            LabelSpacing = 3
            TabOrder = 7
          end
          object ED7: TLabeledEdit
            Left = 120
            Top = 138
            Width = 200
            Height = 21
            EditLabel.Width = 65
            EditLabel.Height = 13
            EditLabel.Caption = #32852#31995#30005#35805#65306
            LabelPosition = lpLeft
            LabelSpacing = 3
            TabOrder = 8
          end
          object ED9: TLabeledEdit
            Left = 120
            Top = 170
            Width = 200
            Height = 21
            EditLabel.Width = 65
            EditLabel.Height = 13