Delphi控件源码

开发平台：
Delphi

sz_ztcks.dfm：源码内容
							object sz_ztck2: Tsz_ztck2
  Left = 199
  Top = 138
  Width = 749
  Height = 407
  Caption = #20027#39064#35789#24211
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  Icon.Data = {
    0000010001001010000001002000680400001600000028000000100000002000
    0000010020000000000040040000000000000000000000000000000000000000
    000000000000000000000000000000000000000000003128214A634D4ABD634D
    42BD634942BD634942BD634942BD634942BD634942BD3124219C000000100000
    000000000000000000000000000000000000000000006359527BFFDBC6FFFFDB
    C6FFFFD7BDFFFFD7BDFFFFD7BDFFFFD7BDFFFFD3B5FF7B6952BD000000100000
    0000000000000000000000000008000000520000003163554AADDEB6A5FFEFD7
    C6FFEFD3BDFFEFD3BDFFEFD3BDFFEFCFBDFFF7D3B5FF7B695ABD000000100000
    000000000000000000000000007B7B6D52FF392C10DE393829FF7B6531FF9C7D
    73FFEFD7C6FFEFD7BDFFEFD3BDFFEFD3BDFFF7D7BDFF7B695ABD000000100000
    00000000000800000052000000ADFFE3ADFFBD924AFF7B715AFFFFD384FF7355
    31FFE7C3B5FFEFD7C6FFEFD7C6FFEFD3BDFFF7D7BDFF7B695ABD000000100000
    00006B55527BE7B6A5FF735952FFFFD794FFBD9E63FFBDA67BFFBD9A5AFFBD92
    4AFF9C7D73FFEFD7C6FFEFD7C6FFEFD7C6FFF7DBC6FF7B695ABD000000100000
    00006359527BFFE3CEFF7B7163FFFFCB6BFF000000FFFFDFA5FF7B5D21FF7B65
    31FF735531FFE7C7B5FFEFD7C6FFEFD7C6FFF7DFC6FF7B695ABD000000100000
    00006B5D527BF7DFCEFF736963FFFFCB6BFF7B6D63FF7B6942FF7B5D21FF634D
    42FFBD924AFF9C7D73FFEFDBCEFFEFDBC6FFF7DFCEFF7B695ABD000000100000
    00006B615A7BF7E3CEFF393829FF7B6D52FF392C10FF7B6D63FF392C10FF3938
    29FF7B6D52FF392C10FFF7DBCEFFFFEFDEFFFFEBDEFF7B695ABD000000100000
    00006B615A7BF7E3D6FFEFDBCEFFEFD7C6FFEFD7C6FFF7DBC6FFF7EFEFFFEFDF
    D6FFEFDFD6FFFFF7EFFFFFF3EFFFFFE3D6FFFFAE73FF734939BD000000100000
    000073655A7BF7E7DEFFEFDBCEFFEFDBCEFFEFDBC6FFF7DFCEFFFFFFFFFFFFFF
    FFFFFFFBF7FFFFF7F7FFFFF7EFFFF7E3CEFFB59263DE00000031000000000000
    000073695A7BF7EBDEFFEFDFCEFFEFDBCEFFEFDBCEFFF7DFC6FFFFDFC6FFFFDF
    C6FFB59A84DE7361528C7361527B735D52AD0000001800000000000000000000
    00007369637BF7EBE7FFEFDFD6FFEFDFCEFFEFDBCEFFEFDBCEFFEFDBCEFFF7DF
    CEFF7B695ABD0000001000000031000000DE0000006300000052000000390000
    00007B6D637BFFFBF7FFFFF7F7FFFFF7EFFFFFF3EFFFFFEFE7FFFFEFE7FFFFCB
    C6FF7B5952BD00000018390039CEBD00BDFF7B007BFF390039FF000000520000
    00007B71637BF7F3EFFFEFE3D6FFEFE3D6FFFFF7EFFFFFF3EFFFF7DBC6FFF7B2
    5AFF312010840000000800000039390039FF000000AD0000007B000000080000
    00007B6D5A7BFFEBDEFFFFEBDEFFF7E7D6FFF7DFD6FFF7DFCEFFEFD3BDFF3934
    217300000008000000000000000000000039000000080000000000000000FC00
    0000FC000000E0000000E0000000800000008000000080000000800000008000
    000080000000800100008003000080000000800000008000000080330000}
  OldCreateOrder = False
  Position = poDefault
  ShowHint = True
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 741
    Height = 38
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 34
        Width = 737
      end>
    FixedSize = True
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 724
      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
        Enabled = False
        ImageIndex = 1
      end
      object dele1: TToolButton
        Left = 162
        Top = 2
        Action = Delete
        AutoSize = True
        Enabled = False
        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 = 741
    Height = 342
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 223
      Top = 0
      Width = 3
      Height = 342
      Cursor = crHSplit
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 223
      Height = 342
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object Tree: TTreeView
        Left = 0
        Top = 0
        Width = 223
        Height = 342
        Align = alClient
        Images = mainfrm.TreeView
        Indent = 19
        PopupMenu = PopupMenu1
        ReadOnly = True
        RowSelect = True
        TabOrder = 0
        OnClick = TreeClick
      end
    end
    object Panel3: TPanel
      Left = 226
      Top = 0
      Width = 515
      Height = 342
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Splitter2: TSplitter
        Left = 0
        Top = 143
        Width = 515
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 515
        Height = 143
        Align = alTop
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object Label8: TLabel
          Left = 282
          Top = 47
          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 = 282
          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 Label1: TLabel
          Left = 24
          Top = 56
          Width = 60
          Height = 12
          Caption = #35789#24211#20195#30721#65306
        end
        object Label2: TLabel
          Left = 12
          Top = 18
          Width = 72
          Height = 12
          Caption = #20027#39064#35789#20195#30721#65306
        end
        object Label3: TLabel
          Left = 36
          Top = 95
          Width = 48
          Height = 12
          Caption = #20027#39064#35789#65306
        end
        object Edit1: TEdit
          Left = 86
          Top = 51
          Width = 190
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 0
        end
        object Edit2: TEdit
          Left = 86
          Top = 13
          Width = 190
          Height = 20
          Color = cl3DLight
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 1
        end
        object Edit3: TEdit
          Left = 86
          Top = 90
          Width = 190
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 2
        end
      end
      object Panel5: TPanel
        Left = 0
        Top = 146
        Width = 515
        Height = 196
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        object GroupBox2: TGroupBox
          Left = 2
          Top = 2
          Width = 511
          Height = 192
          Align = alClient
          Caption = #20027#39064#35789#24211
          TabOrder = 0
          object DBGridEh1: TDBGridEh
            Left = 2
            Top = 14
            Width = 507
            Height = 176
            Align = alClient
            DataSource = sz_ztck
            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 = []
            OnDblClick = DBGridEh1DblClick
            Columns = <
              item
                EditButtons = <>
                FieldName = 'ztck_dm'
                Footers = <>
                Title.Caption = #35789#24211#20195#30721
                Width = 159
              end
              item
                EditButtons = <>
                FieldName = 'ztcl_dm'
                Footers = <>
                Title.Caption = #20027#39064#35789#20195#30721
                Width = 137
              end
              item
                EditButtons = <>
                FieldName = 'ztck_ztc'
                Footers = <>
                Title.Caption = #20027#39064#35789
              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 = 100
    Top = 104
  end
  object ActionList1: TActionList
    Left = 124
    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 = 164
    Top = 104
    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 sz_ztcl: TDataSource
    DataSet = DM.sz_ztcl
    Left = 68
    Top = 104
  end
  object sz_ztck: TDataSource
    DataSet = DM.sz_ztck
    Left = 184
    Top = 152
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket1
    Left = 152
    Top = 152
  end
end

						