Delphi控件源码

开发平台：
Delphi

sz_ztcls.dfm：源码内容
							object sz_ztcl: Tsz_ztcl
  Left = 79
  Top = 84
  Width = 701
  Height = 471
  Caption = #35789#31867#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
    000000000000000000210000006B0000008C0000008C0000008C0000008C0000
    008C0000008C0000008C00000073000000390000000800000000000000000000
    0000000000006B2C00FF9C4D00FF9C4D00FF9C4D00FF9C4D00FF9C4D00FF9C4D
    00FF9C4D00FFAD6500FF000000B5000000840000003900000008000000000000
    000000000000631800FFFFFFFFFFFFBA21FFBD8618FFFFFFF7FFFFB221FFDEB6
    73FFFFFFBDFFD69221FF9C5500FF000000B50000007300000021000000000000
    0000000000006B2400FFE7CB8CFFCE9A39FFB57900FFDEBE7BFFCE9631FFC68E
    21FFE7BA73FFA57929FFE79600FF9C4D00FF0000008C00000029000000000000
    0000000000006B2800FFE7AE42FFCE7900FFB57500FFDE9E29FFCE7900FFC686
    18FFE79A08FFAD6900FFAD7100FF8C4900FF0000008C00000029000000000000
    000000000000631800FFFFFFFFFFFFBA29FFBD8618FFFFFFFFFFFFB621FFDEBA
    73FFFFFFC6FFD69621FFA56900FF8C4900FF0000008C00000029000000000000
    0000000000086B2C00FFC68E18FFB57D18FFB57100FFBD8618FFBD8210FFAD75
    08FF9C6D21FF7B4D00FFDE8E00FFA55900FF0000008C00000029000000000000
    000000000021843400FFFFFFC6FFEF8E00FFDE9A18FFFFEB84FFEF8E00FF9C61
    00FFD69E42FFFFE7ADFFF7B64AFF844100FF0000006B00000021000000000000
    0000000000FF000000FF000018FFFFEF8CFF000000FF4A2C39FFFFFF8CFFD686
    00FFDE9208FF9C6908FF8C5100FF6B2400FF0000005200000039000000210000
    0000000000FF00FF00FF42C300FF182021FF00F300FF299200FF290810FFFFA6
    00FFD68200FF0000008C000000520000006B0000008C0000008C0000006B0000
    0000000000FF00FF00FF84FF00FF000000FF00FF00FF42CF00FF100031FFFFF7
    84FF8C4D00FF00000073737DD6FF000031FF000039FF00004AFF0000089C0000
    0008000000FF84FF00FF000000FF10FF00FF529A00FF000000FF42FF00FF2100
    00FF9C5100FF0000005A848EBDFF0000FFFF0000E7FF00007BFF0000089C0000
    0021000000FF84FF00FF000000FF080000FF52F700FF000000FF080000FF0875
    00FF000000B50000007352559CFFC6C3EFFF5A59FFFF00008CFF000008730000
    00FF00FF00FF00DF00FF5AFF00FF000000FF31AA00FF000000FF00FF00FF10F7
    00FF002800FF0000006BADAEE7FF00005AFF080C63FF181C7BFF080829312120
    21FF210021FF210021FF100021FF181421FF100021FF211421FF210021FF1800
    21FF000008FF0000002100000008000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000C003
    0000C0010000C0010000C0010000C0010000C001000080010000800100008000
    00008000000080000000000000000000000000000000000F0000FFFF0000}
  OldCreateOrder = False
  Position = poDefault
  Scaled = False
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 693
    Height = 38
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 34
        Width = 689
      end>
    FixedSize = True
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 676
      Height = 34
      AutoSize = True
      ButtonHeight = 30
      ButtonWidth = 83
      Caption = 'ToolBar1'
      Images = mainfrm.zsg
      List = True
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = 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
        Wrap = True
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 38
    Width = 693
    Height = 406
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 223
      Top = 0
      Width = 3
      Height = 406
      Cursor = crHSplit
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 223
      Height = 406
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object Tree: TTreeView
        Left = 0
        Top = 0
        Width = 223
        Height = 406
        Align = alClient
        Images = mainfrm.TreeView
        Indent = 19
        PopupMenu = PopupMenu1
        ReadOnly = True
        TabOrder = 0
        OnClick = TreeClick
      end
    end
    object Panel3: TPanel
      Left = 226
      Top = 0
      Width = 467
      Height = 406
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Splitter2: TSplitter
        Left = 0
        Top = 162
        Width = 467
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 467
        Height = 162
        Align = alTop
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object Label8: TLabel
          Left = 298
          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 = 298
          Top = 54
          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 = 40
          Top = 128
          Width = 60
          Height = 12
          Caption = #32534#30721#35268#21017#65306
        end
        object Label1: TLabel
          Left = 28
          Top = 16
          Width = 72
          Height = 12
          Caption = #20027#39064#35789#20195#30721#65306
        end
        object Label2: TLabel
          Left = 28
          Top = 53
          Width = 72
          Height = 12
          Caption = #20027#39064#35789#21517#31216#65306
        end
        object Label4: TLabel
          Left = 28
          Top = 90
          Width = 72
          Height = 12
          Caption = #20027#39064#35789#32423#25968#65306
        end
        object Edit1: TEdit
          Left = 100
          Top = 124
          Width = 190
          Height = 20
          Color = cl3DLight
          Enabled = False
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 2
        end
        object dbEdit2: TEdit
          Left = 100
          Top = 52
          Width = 190
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 1
        end
        object dbEdit4: TEdit
          Left = 100
          Top = 87
          Width = 190
          Height = 20
          Color = cl3DLight
          Enabled = False
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 3
        end
        object DbEdit1: TEdit
          Left = 100
          Top = 14
          Width = 190
          Height = 20
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          TabOrder = 0
          OnKeyPress = DbEdit1KeyPress
        end
      end
      object Panel5: TPanel
        Left = 0
        Top = 165
        Width = 467
        Height = 241
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        object GroupBox2: TGroupBox
          Left = 2
          Top = 2
          Width = 463
          Height = 237
          Align = alClient
          Caption = #20027#39064#35789#31867#31649#29702
          TabOrder = 0
          object DBGridEh1: TDBGridEh
            Left = 2
            Top = 14
            Width = 459
            Height = 221
            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 = 'ztcl_dm'
                Footers = <>
                Title.Caption = #20027#39064#35789#20195#30721
                Width = 161
              end
              item
                EditButtons = <>
                FieldName = 'ztcL_mc'
                Footers = <>
                Title.Caption = #20027#39064#35789#21517#31216
                Width = 223
              end
              item
                EditButtons = <>
                FieldName = 'ztcl_sjdm'
                Footers = <>
                Title.Caption = #19978#32423#20195#30721
                Width = 191
              end
              item
                EditButtons = <>
                FieldName = 'ztcl_js'
                Footers = <>
                Title.Caption = #32423#25968
                Width = 348
              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_ztcl
    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 = 192
  end
end

						