Delphi控件源码

开发平台：
Delphi

Am_kwgls.~dfm：源码内容
							object Am_kwgl: TAm_kwgl
  Left = 190
  Top = 108
  Width = 602
  Height = 489
  Caption = #24211#20301#29366#20917#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
    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
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 594
    Height = 38
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 34
        Width = 590
      end>
    FixedSize = True
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 577
      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
        Enabled = False
        ImageIndex = 1
        ParentShowHint = False
        ShowHint = True
      end
      object dele1: TToolButton
        Left = 162
        Top = 2
        Hint = #21024#38500
        Action = Delete
        AutoSize = True
        Enabled = False
        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 Print1: TToolButton
        Left = 405
        Top = 2
        Action = Print
        AutoSize = True
        ImageIndex = 5
        ParentShowHint = False
        ShowHint = True
      end
      object Quit1: TToolButton
        Left = 486
        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 = 594
    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
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ReadOnly = True
        RowSelect = True
        ShowHint = True
        TabOrder = 0
        OnChange = TreeChange
        OnClick = TreeClick
      end
    end
    object Panel3: TPanel
      Left = 226
      Top = 0
      Width = 368
      Height = 424
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Splitter2: TSplitter
        Left = 0
        Top = 196
        Width = 368
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 368
        Height = 196
        Align = alTop
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object Label1: TLabel
          Left = 33
          Top = 17
          Width = 36
          Height = 12
          Caption = #26085#26399#65306
          FocusControl = DBEdit1
        end
        object Label2: TLabel
          Left = 33
          Top = 46
          Width = 36
          Height = 12
          Caption = #24211#20301#65306
        end
        object Label3: TLabel
          Left = 33
          Top = 80
          Width = 36
          Height = 12
          Caption = #28201#24230#65306
          FocusControl = DBEdit3
        end
        object Label4: TLabel
          Left = 33
          Top = 111
          Width = 36
          Height = 12
          Caption = #28287#24230#65306
          FocusControl = DBEdit4
        end
        object Label5: TLabel
          Left = 33
          Top = 147
          Width = 36
          Height = 12
          Caption = #22791#27880#65306
        end
        object Label6: TLabel
          Left = 272
          Top = 48
          Width = 7
          Height = 13
          Caption = '*'
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -13
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
        end
        object DBEdit1: TDBEdit
          Left = 72
          Top = 14
          Width = 190
          Height = 20
          Color = cl3DLight
          DataField = 'kwzk_rq'
          DataSource = am_kwzk
          Enabled = False
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 0
        end
        object DBEdit3: TDBEdit
          Left = 72
          Top = 76
          Width = 190
          Height = 20
          DataField = 'kwzk_wd'
          DataSource = am_kwzk
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 1
        end
        object DBEdit4: TDBEdit
          Left = 72
          Top = 107
          Width = 190
          Height = 20
          DataField = 'kwzk_sd'
          DataSource = am_kwzk
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 2
        end
        object DBMemo1: TDBMemo
          Left = 72
          Top = 136
          Width = 190
          Height = 50
          DataField = 'kwzk_bz'
          DataSource = am_kwzk
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 3
        end
        object DBEditEh1: TDBEditEh
          Left = 72
          Top = 45
          Width = 190
          Height = 20
          EditButtons = <>
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 4
          Visible = True
        end
      end
      object Panel5: TPanel
        Left = 0
        Top = 199
        Width = 368
        Height = 225
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        object GroupBox2: TGroupBox
          Left = 2
          Top = 2
          Width = 364
          Height = 221
          Align = alClient
          Caption = #24211#20301#29366#20917
          TabOrder = 0
          object DBGridEh1: TDBGridEh
            Left = 2
            Top = 14
            Width = 360
            Height = 205
            Align = alClient
            DataSource = am_kwzk
            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 = 'kw_dm'
                Footers = <>
                Title.Caption = #24211#20301#20195#30721
                Width = 111
              end
              item
                EditButtons = <>
                FieldName = 'kwzk_rq'
                Footers = <>
                Title.Caption = #26085#26399
                Width = 198
              end
              item
                EditButtons = <>
                FieldName = 'kwzk_wd'
                Footers = <>
                Title.Caption = #28201#24230
                Width = 159
              end
              item
                EditButtons = <>
                FieldName = 'kwzk_sd'
                Footers = <>
                Title.Caption = #28287#24230
                Width = 241
              end
              item
                EditButtons = <>
                FieldName = 'kwzk_bz'
                Footers = <>
                Title.Caption = #22791#27880
                Width = 284
              end
              item
                EditButtons = <>
                FieldName = 'kwzk_xh'
                Footers = <>
              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 = 168
    Top = 104
  end
  object sz_kw: TDataSource
    DataSet = DM.sz_kw
    Left = 168
    Top = 64
  end
  object ActionList1: TActionList
    Left = 168
    Top = 144
    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)'
      OnExecute = PrintExecute
    end
    object Quit: TAction
      Caption = #36864#20986'(&X)'
      OnExecute = QuitExecute
    end
  end
  object PopupMenu1: TPopupMenu
    OwnerDraw = True
    Left = 168
    Top = 184
    object A1: TMenuItem
      Action = Add
      Enabled = False
    end
    object E1: TMenuItem
      Action = Edit
      Enabled = False
    end
    object DeleS: TMenuItem
      Caption = #21024#38500#21333#26465'(&S)'
      Enabled = False
      OnClick = DeleSClick
    end
    object N5: TMenuItem
      Caption = #23637#24320
      OnClick = N5Click
    end
    object N6: TMenuItem
      Caption = #21472#36215
      OnClick = N6Click
    end
  end
  object am_kwzk: TDataSource
    DataSet = DM.Am_kwzk
    Left = 168
    Top = 224
  end
end

						