Delphi控件源码

开发平台：
Delphi

sz_bms.~dfm：源码内容
							object sz_bm: Tsz_bm
  Left = 194
  Top = 109
  Width = 609
  Height = 435
  Caption = #37096#38376#31649#29702
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {
    0000010001001010000001002000680400001600000028000000100000002000
    0000010020000000000040040000000000000000000000000000000000000000
    000200000015000000400000006B000000700000004D00000021000000060000
    00000000000200000015000000400000006B000000700000004D000000210000
    00115C505068B4A2A2E5B49A9AED4D3939CC0000009100000053000000160000
    0000000000115C505068B4A2A2E5B49A9AED4D3939CC0000009100000053825F
    5F52CEB4B4F5C2A3A3FFC2A3A3FFB89797FD755757D700000061000000190000
    0000825F5F52CEB4B4F5C2A3A3FFC2A3A3FFB89797FD755757D700000061AA95
    97FFEEECEDFFE7E0E0FFCFBABCFFBD9494FFA17B7BE80000004F000000100000
    0000AA9597FFEEECEDFFE7E0E0FFCFBABCFFBD9494FFA17B7BE80000004ECCA0
    951BD4A59AFFD9ABA6FFCE9593FFC57679FF000000A80000006D0000003D0000
    003040322F56D4A59AFFD9ABA6FFCE9593FFC57679FF000000A6000000600000
    0000DA9A79FFE79B54FFE9A15BFFE09B6FFE804C4AE0000000A30000008D0705
    058EBAAAA8E3DA9A79FFE79B54FFE9A15BFFE09B6FFE784745DD000000830000
    0000DCB89CFFFFC748FFFFCD58FFFECB5CFFD1836CFF262626FF016FA2FF016F
    A2FF262626FFDCB89CFFFFC748FFFFCD58FFFECB5CFFD1836CFF0000008F0000
    0000DEBBA4FFFFDD80FFFFE090FFFFE284FFDF9B73FF7A8080D82EABD5FF2EAB
    D5FF5E6063CEDEBBA4FFFFDD80FFFFE090FFFFE284FFDF9B73FF0000008F0000
    0000D5B8A9FFF4E19BFFFFF1ADFFFFF0A2FFE5A87AFF0000006BC5BEBEFF2626
    26FF0000008FD5B8A9FFF4E19BFFFFF1ADFFFFF0A2FFE5A87AFF0000006B0000
    0000D3B6B5FFD3B6B5FFD3B6B5FFD3B6B5FFDDA182FF0000002FC5BEBEFF2626
    26FF0000009BD3B6B5FFD3B6B5FFD3B6B5FFD3B6B5FFDDA182FF000000230000
    0000000000000000000000000000000000000000000000000023C5BEBEFF2626
    26FF000000B20000008F00000054000000180000000000000000000000000000
    00000000000000000000000000000000000000000000DA9A79FFE79B54FFE9A1
    5BFFE09B6FFE784745DD000000830000002A0000000000000000000000000000
    00000000000000000000000000000000000000000000DCB89CFFFFC748FFFFCD
    58FFFECB5CFFD1836CFF0000008F0000002F0000000000000000000000000000
    00000000000000000000000000000000000000000000DEBBA4FFFFDD80FFFFE0
    90FFFFE284FFDF9B73FF0000008F0000002F0000000000000000000000000000
    00000000000000000000000000000000000000000000D5B8A9FFF4E19BFFFFF1
    ADFFFFF0A2FFE5A87AFF0000006B000000230000000000000000000000000000
    00000000000000000000000000000000000000000000D3B6B5FFD3B6B5FFD3B6
    B5FFD3B6B5FFDDA182FF000000230000000B0000000000000000000000000080
    0000008000000080000000800000000000008000000080000000800000008000
    000080000000FC070000FC070000FC070000FC070000FC070000FC070000}
  OldCreateOrder = False
  Position = poDefault
  Scaled = False
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 601
    Height = 38
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 34
        Width = 597
      end>
    FixedSize = True
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 584
      Height = 34
      AutoSize = True
      ButtonHeight = 30
      ButtonWidth = 83
      Caption = 'ToolBar1'
      Images = mainfrm.zsg
      List = True
      ShowCaptions = True
      TabOrder = 0
      object add1: TToolButton
        Left = 0
        Top = 2
        Action = Add
        AutoSize = True
        ImageIndex = 0
      end
      object xiugai: TToolButton
        Left = 81
        Top = 2
        Action = Edit
        AutoSize = True
        ImageIndex = 1
      end
      object dele1: TToolButton
        Left = 162
        Top = 2
        Action = Delete
        AutoSize = True
        ImageIndex = 2
      end
      object save1: TToolButton
        Left = 243
        Top = 2
        Action = Save
        AutoSize = True
        Enabled = False
        ImageIndex = 7
      end
      object refresh1: TToolButton
        Left = 324
        Top = 2
        Action = Refresh
        AutoSize = True
        ImageIndex = 3
      end
      object ToolButton3: TToolButton
        Left = 405
        Top = 2
        Action = Quit
        AutoSize = True
        ImageIndex = 6
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 38
    Width = 601
    Height = 370
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 223
      Top = 0
      Width = 3
      Height = 370
      Cursor = crHSplit
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 223
      Height = 370
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object Tree: TTreeView
        Left = 0
        Top = 0
        Width = 223
        Height = 370
        Align = alClient
        Images = mainfrm.TreeView
        Indent = 19
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ReadOnly = True
        ShowHint = True
        TabOrder = 0
        OnClick = TreeClick
      end
    end
    object Panel3: TPanel
      Left = 226
      Top = 0
      Width = 375
      Height = 370
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Splitter2: TSplitter
        Left = 0
        Top = 225
        Width = 375
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 375
        Height = 225
        Align = alTop
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object Label8: TLabel
          Left = 302
          Top = 18
          Width = 8
          Height = 15
          Caption = '*'
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label9: TLabel
          Left = 304
          Top = 59
          Width = 8
          Height = 15
          Caption = '*'
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -15
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object Label10: TLabel
          Left = 20
          Top = 173
          Width = 60
          Height = 12
          Caption = #32534#30721#35268#21017#65306
        end
        object Label1: TLabel
          Left = 20
          Top = 22
          Width = 60
          Height = 12
          Caption = #37096#38376#20195#30721#65306
        end
        object Label2: TLabel
          Left = 20
          Top = 58
          Width = 60
          Height = 12
          Caption = #37096#38376#21517#31216#65306
        end
        object Label3: TLabel
          Left = 20
          Top = 96
          Width = 60
          Height = 12
          Caption = #37096#38376#32423#25968#65306
        end
        object Label4: TLabel
          Left = 20
          Top = 136
          Width = 60
          Height = 12
          Caption = #37096#38376#35828#26126#65306
        end
        object Edit1: TEdit
          Left = 89
          Top = 169
          Width = 206
          Height = 20
          Color = cl3DLight
          Enabled = False
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 4
        end
        object dbEdit1: TEdit
          Left = 89
          Top = 16
          Width = 206
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 0
          OnKeyPress = dbEdit1KeyPress
        end
        object DbEdit2: TEdit
          Left = 89
          Top = 54
          Width = 206
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 1
          OnKeyPress = DbEdit2KeyPress
        end
        object DbEdit3: TEdit
          Left = 89
          Top = 92
          Width = 206
          Height = 20
          Color = cl3DLight
          Enabled = False
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 3
        end
        object DbEdit4: TEdit
          Left = 89
          Top = 130
          Width = 206
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 2
        end
      end
      object Panel5: TPanel
        Left = 0
        Top = 228
        Width = 375
        Height = 142
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        object GroupBox2: TGroupBox
          Left = 2
          Top = 2
          Width = 371
          Height = 138
          Align = alClient
          Caption = #37096#38376#31649#29702
          TabOrder = 0
          object DBGridEh1: TDBGridEh
            Left = 2
            Top = 14
            Width = 367
            Height = 122
            Align = alClient
            DataSource = DataSource1
            FooterColor = clWindow
            FooterFont.Charset = ANSI_CHARSET
            FooterFont.Color = clWindowText
            FooterFont.Height = -12
            FooterFont.Name = #23435#20307
            FooterFont.Style = []
            ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
            OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking]
            TabOrder = 0
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            OnCellClick = DBGridEh1CellClick
            Columns = <
              item
                EditButtons = <>
                FieldName = 'bm_sjbmdm'
                Footers = <>
                Title.Caption = #19978#32423#37096#38376#20195#30721
                Width = 91
              end
              item
                EditButtons = <>
                FieldName = 'bm_dm'
                Footers = <>
                Title.Caption = #37096#38376#20195#30721
                Width = 81
              end
              item
                EditButtons = <>
                FieldName = 'bm_mc'
                Footers = <>
                Title.Caption = #37096#38376#21517#31216
                Width = 108
              end
              item
                EditButtons = <>
                FieldName = 'bm_js'
                Footers = <>
                Title.Caption = #37096#38376#32423#25968
                Width = 54
              end
              item
                EditButtons = <>
                FieldName = 'bm_sm'
                Footers = <>
                Title.Caption = #37096#38376#35828#26126
                Width = 219
              end>
          end
        end
      end
    end
  end
  object XPBarMenu1: TXPBarMenu
    BarCaption = #26696#21367#31649#29702
    BarFont.Charset = GB2312_CHARSET
    BarFont.Color = clWhite
    BarFont.Height = -11
    BarFont.Name = 'Tahoma'
    BarFont.Style = []
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    SelectColor = clRed
    CheckedColor = clRed
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    FlatMenu = True
    AutoDetect = True
    Active = True
    Left = 136
    Top = 104
  end
  object DataSource1: TDataSource
    DataSet = DM.sz_bm
    Left = 104
    Top = 104
  end
  object ActionList1: TActionList
    Left = 176
    Top = 104
    object Add: TAction
      Caption = #22686#21152'(&A)'
      OnExecute = AddExecute
    end
    object Edit: TAction
      Caption = #20462#25913'(&E)'
      OnExecute = EditExecute
    end
    object Delete: TAction
      Caption = #21024#38500'(&D)'
      OnExecute = DeleteExecute
    end
    object Save: TAction
      Caption = #20445#23384'(&S)'
      OnExecute = SaveExecute
    end
    object Refresh: TAction
      Caption = #21047#26032'(&R)'
      OnExecute = RefreshExecute
    end
    object Print: TAction
      Caption = #25171#21360'(&P)'
    end
    object Quit: TAction
      Caption = #36864#20986'(&X)'
      OnExecute = QuitExecute
    end
  end
  object PopupMenu1: TPopupMenu
    OwnerDraw = True
    Left = 176
    Top = 144
    object A1: TMenuItem
      Action = Add
    end
    object E1: TMenuItem
      Action = Edit
    end
    object D1: TMenuItem
      Action = Delete
    end
    object N5: TMenuItem
      Caption = #23637#24320
      OnClick = N5Click
    end
    object N6: TMenuItem
      Caption = #21472#36215
      OnClick = N6Click
    end
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 176
    Top = 208
  end
end

						