Delphi控件源码

开发平台：
Delphi

sz_kws.dfm：源码内容
							object sz_kw: Tsz_kw
  Left = 201
  Top = 106
  BorderStyle = bsDialog
  Caption = #24211#20301#31649#29702
  ClientHeight = 462
  ClientWidth = 620
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {
    0000010001001010000001002000680400001600000028000000100000002000
    0000010020000000000040040000000000000000000000000000000000000000
    000000000000000000000000000000000000000000004D4D4DFF4D4D4DFF4D4D
    4DFF4D4D4DFF0000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000004D4D4DFF7D3116FF753B26FF7049
    39FF4D4D4DFF4D4D4DFF4D4D4DFF4D4D4DFF0000000000000000000000000000
    00000000000000000000000000004D4D4DFFBF5900FF9D3C0BFFCD8477FFBA52
    33FFAD2F06FF792D12FF723D28FF6F4E40FF4D4D4DFF4D4D4DFF000000000000
    000000000000000000004D4D4DFFD36D00FFCB6400FFB06139FFECDAD0FFE7D0
    C3FFE1C2B3FFDBB7A6FFCB977DFFB3432AFF90422DFF4D4D4DFF000000000000
    0000000000004D4D4DFFDE7800FFE27B00FFCF6900FFB56B46FFF0E1D9FFEAD6
    CBFFE4C9BCFFDBB8A6FFD8B09DFFD2A48EFFCB9E8FFF4D4D4DFF000000000000
    000000000000CC7638FFEF8800FFE78000FFD46E00FFB76E4AFFF4E8E3FFEDDB
    D2FFAEA69BFFB69B93FFCD9B82FFD3A892FFCEA396FF4D4D4DFF000000000000
    000000000000CF7A38FFF48D00FFEC8500FFD87100FF794930FFF7EEEAFFF0E1
    D9FF9CA0BBFFB3ACB7FF59729EFFD9B3A0FFD0A89DFF4D4D4DFF000000000000
    000000000000CF7A39FFF99200FFF18B00FFDC7600FF361708FFFAF4F1FFF4EA
    E4FFEDDCD3FFE8D2C6FFE2C4B5FFDCB8A7FFD3AFA4FF4D4D4DFF000000000000
    000000000000D67C39FFFD9700FFF69000FFE27B00FFD1A07CFFE2B68CFFDDAC
    79FFE6BF9AFFF1CA9FFFCFB4A6FFD9B9AAFFD6B5ACFF4D4D4DFF000000000000
    000000000000F07E39FFFF9902FFFC9500FFFABB6BFFFFFFFFFFF6DFC6FFF1D3
    BBFFF4CFAFFFBB8665FF823F1AFF703611FF9C5342FF4D4D4DFF000000000000
    000000000000F2813EFFFF9F11FFFE9900FFF18C04FFFBF2EAFFFBF2EAFFF5D9
    C6FFD8AC94FFCFA088FFD3A790FFCA8F6DFF7D4025FF00000000000000000000
    000000000000EF884CFFFFA723FFFF9C0AFFF58F00FFECD1BBFFECC094FFD495
    70FFCFA088FFD2A58EFFD7AF9BFFCF9874FF814525FF00000000000000000000
    000000000000EE8D59FFFFAF37FFFFA31AFFF89303FFF2DAC3FFF1E4DDFF89CB
    DAFF739CAFFF497BA9FFDAB4A2FFD5A07BFF864926FF00000000000000000000
    000000000000EC8F61FFFFB648FFFFAA2CFFFB9B10FFF7E1C9FFF5EBE5FFEFDE
    D6FFE9D3C8FFE3C7B9FFDCBAA9FFDBA883FF8C4D27FF00000000000000000000
    000000000000EB976FFFFFBC58FFFFB240FFFDA31DFFFCDCAEFFF9E2C5FFF4D8
    B9FFEFCDACFFEAC4A0FFE5BA94FFE4AC72FFBB652DFF00000000000000000000
    000000000000E19374FFE19374FFE19374FFDCA8A0FFD9AEB3FFE5C7CEFFD9AE
    B3FFDBA883FFD5A07BFFE19374FFCA8F6DFF000000000000000000000000FC3F
    0000F8070000F0010000E0010000C0010000C0010000C0010000C0010000C001
    0000C0010000C0030000C0030000C0030000C0030000C0030000C0070000}
  OldCreateOrder = False
  Position = poDefault
  Scaled = False
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 620
    Height = 38
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 34
        Width = 616
      end>
    FixedSize = True
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 603
      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
        Hint = #22686#21152
        Action = Add
        AutoSize = True
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
      end
      object xiugai: TToolButton
        Left = 81
        Top = 2
        Hint = #20462#25913
        Action = Edit
        AutoSize = True
        ImageIndex = 1
        ParentShowHint = False
        ShowHint = True
      end
      object dele1: TToolButton
        Left = 162
        Top = 2
        Hint = #21024#38500
        Action = Delete
        AutoSize = True
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
      end
      object save1: TToolButton
        Left = 243
        Top = 2
        Hint = #20445#23384
        Action = Save
        AutoSize = True
        Enabled = False
        ImageIndex = 7
        ParentShowHint = False
        ShowHint = True
      end
      object Refresh1: TToolButton
        Left = 324
        Top = 2
        Hint = #21047#26032
        Action = Refresh
        AutoSize = True
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
      end
      object ToolButton3: TToolButton
        Left = 405
        Top = 2
        Hint = #36864#20986
        Action = Quit
        AutoSize = True
        ImageIndex = 6
        ParentShowHint = False
        ShowHint = True
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 38
    Width = 620
    Height = 424
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 223
      Top = 0
      Width = 3
      Height = 424
      Cursor = crHSplit
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 223
      Height = 424
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object Tree: TTreeView
        Left = 0
        Top = 0
        Width = 223
        Height = 424
        Align = alClient
        Images = mainfrm.TreeView
        Indent = 19
        PopupMenu = PopupMenu1
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        OnChange = TreeChange
        OnClick = TreeClick
      end
    end
    object Panel3: TPanel
      Left = 226
      Top = 0
      Width = 394
      Height = 424
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Splitter2: TSplitter
        Left = 0
        Top = 226
        Width = 394
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 394
        Height = 226
        Align = alTop
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object Label8: TLabel
          Left = 302
          Top = 23
          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 = 58
          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 = 177
          Width = 60
          Height = 12
          Caption = #32534#30721#35268#21017#65306
        end
        object Label1: TLabel
          Left = 20
          Top = 27
          Width = 60
          Height = 12
          Caption = #24211#20301#20195#30721#65306
        end
        object Label2: TLabel
          Left = 20
          Top = 64
          Width = 60
          Height = 12
          Caption = #24211#20301#21517#31216#65306
        end
        object Label3: TLabel
          Left = 20
          Top = 102
          Width = 60
          Height = 12
          Caption = #24211#20301#32423#25968#65306
        end
        object Label4: TLabel
          Left = 20
          Top = 139
          Width = 60
          Height = 12
          Caption = #24211#20301#35828#26126#65306
        end
        object Edit1: TEdit
          Left = 89
          Top = 173
          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 = 22
          Width = 206
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 0
          OnKeyPress = dbEdit1KeyPress
        end
        object DbEdit2: TEdit
          Left = 89
          Top = 59
          Width = 206
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 1
          OnKeyPress = DbEdit2KeyPress
        end
        object DbEdit3: TEdit
          Left = 89
          Top = 97
          Width = 206
          Height = 20
          Color = cl3DLight
          Enabled = False
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 2
        end
        object DbEdit4: TEdit
          Left = 89
          Top = 135
          Width = 206
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 3
        end
      end
      object Panel5: TPanel
        Left = 0
        Top = 229
        Width = 394
        Height = 195
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        object GroupBox2: TGroupBox
          Left = 2
          Top = 2
          Width = 390
          Height = 191
          Align = alClient
          Caption = #24211#20301#31649#29702
          TabOrder = 0
          object DBGridEh1: TDBGridEh
            Left = 2
            Top = 14
            Width = 386
            Height = 175
            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]
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            OnCellClick = DBGridEh1CellClick
            Columns = <
              item
                EditButtons = <>
                FieldName = 'kw_sjkwdm'
                Footers = <>
                Title.Caption = #19978#32423#20195#30721
                Width = 99
              end
              item
                EditButtons = <>
                FieldName = 'kw_dm'
                Footers = <>
                Title.Caption = #24211#20301#20195#30721
                Width = 120
              end
              item
                EditButtons = <>
                FieldName = 'kw_mc'
                Footers = <>
                Title.Caption = #24211#20301#21517#31216
                Width = 140
              end
              item
                EditButtons = <>
                FieldName = 'kw_js'
                Footers = <>
                Title.Caption = #24211#20301#32423#25968
                Width = 269
              end
              item
                EditButtons = <>
                FieldName = 'kw_sm'
                Footers = <>
                Title.Caption = #24211#20301#35828#26126
                Width = 280
              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 = []
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    FlatMenu = True
    AutoDetect = True
    Active = True
    Left = 584
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = DM.sz_kw
    Left = 184
    Top = 104
  end
  object ActionList1: TActionList
    Left = 184
    Top = 136
    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 = 184
    Top = 176
    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.Socket1
    Left = 184
    Top = 216
  end
end

						