Delphi控件源码

开发平台：
Delphi

Am_yljs.dfm：源码内容
							object Am_ylj: TAm_ylj
  Left = 184
  Top = 170
  Width = 725
  Height = 450
  Caption = #39044#31435#21367#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
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000018799CFF18799CFF18799CFF18799CFF18799CFF18799CFF1879
    9CFF18799CFF18799CFF18799CFF18799CFF18799CFF18799CFF000000000000
    0000218AADFF107DA5FF31A2C6FF31A2C6FF31A2C6FF31A2C6FF31A2C6FF31A2
    C6FF31A2C6FF31A2C6FF31A2C6FF31A2C6FF31A2C6FF219EC6FF18799CFF31A2
    C6FF63CBFFFF1092BDFF9CFBFFFF52BADEFF52BADEFF52BADEFF52BADEFF52BA
    DEFF52BADEFF52BADEFF52BADEFF52BADEFFA5E7FFFF31A2C6FF18799CFF31A2
    C6FF63CBFFFF2196BDFF9CF3FFFFD6D3BDFFD6D3BDFFD6D3BDFFD6D3BDFFD6D3
    BDFFD6D3BDFFD6D3BDFFD6D3BDFFD6D3BDFFD6D3BDFF31A2C6FF18799CFF31A2
    C6FF63CBFFFF2196BDFF9CF3FFFFD6D3BDFFFFEBDEFFFFEBDEFFFFEBDEFFFFEB
    DEFFFFEBDEFFFFEBDEFFFFEBDEFFFFEBDEFFD6D3BDFF31A2C6FF18799CFF31A2
    C6FF63CBFFFF31A2C6FF9CFBFFFFD6D3BDFFFFEBDEFFFFEBDEFFFFEBDEFFFFEB
    DEFFFFEBDEFFFFEBDEFFFFEBDEFFFFEBDEFFD6D3BDFF31A2C6FF18799CFF31A2
    C6FF6BD3FFFF31A2C6FF9CFBFFFFD6D3BDFFFFEBDEFFFFD7ADFFFFD7ADFFFFD7
    ADFFFFD7ADFFFFD7ADFFFFD7ADFFFFEBDEFFD6D3BDFF31A2C6FF18799CFF31A2
    C6FF7BDFFFFF31A2C6FFFFFBFFFFFFE7D6FFFFFFFFFFFFFBFFFFFFFFFFFFFFFB
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7D6FF31A2C6FF18799CFF31A2
    C6FF84E7FFFF31A2C6FF42A6BDFF9C8273FFCEB69CFFCEB69CFFCEB69CFFCEB6
    9CFFCEB69CFFCEB69CFFCEB69CFFCEB69CFF9C8273FF31A2C6FF0000000031A2
    C6FF94F7FFFF8CF7FFFF94F7FFFF9C8273FFFFEFDEFFFFF3E7FFFFF3E7FFFFF3
    E7FFFFF3E7FFFFF3E7FFFFF3E7FFFFF3E7FF9C8273FF000000000000000031A2
    C6FFFFFBFFFF9CFFFFFF9CFFFFFF9C8273FFFFF7E7FFFFDBB5FFFFDBB5FFFFDB
    B5FFFFDBB5FFFFDBB5FFFFDBB5FFFFF7EFFF9C8273FF00000000000000000000
    000031A2C6FFFFFBFFFFFFFBFFFF9C8273FFFFFBF7FFFFFBF7FFFFFBF7FFFFFB
    F7FFFFFBF7FFFFFBF7FFFFE7CEFFFFE7CEFF9C8273FF00000000000000000000
    00000000000031A2C6FF31A2C6FF9C8273FFF7FFFFFFFFDBB5FFFFDBB5FFFFDB
    B5FFFFDBB5FFFFFFFFFFFFA629FFFFA629FFFFA629FF00000000000000000000
    00000000000000000000000000009C8273FFFFF7EFFFFFFBF7FFFFFBF7FFFFFB
    F7FFFFFBF7FFFFFBF7FFFFB65AFFFFB65AFF0000000000000000000000000000
    00000000000000000000000000009C8273FF9C8273FF9C8273FF9C8273FF9C82
    73FF9C8273FF9C8273FFFFB65AFF00000000000000000000000000000000FFFF
    0000C00100008000000000000000000000000000000000000000000000000000
    000000010000000300000003000080030000C0030000F0070000F00F0000}
  OldCreateOrder = False
  Position = poDefault
  Scaled = False
  ShowHint = True
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 717
    Height = 49
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 40
        Width = 713
      end>
    FixedSize = True
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 700
      Height = 40
      ButtonHeight = 30
      ButtonWidth = 119
      Caption = 'ToolBar1'
      Images = mainfrm.zsg
      List = True
      ShowCaptions = True
      TabOrder = 0
      object add1: TToolButton
        Left = 0
        Top = 2
        Action = Add
        AutoSize = True
        Enabled = False
        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 YLJ1: TToolButton
        Left = 243
        Top = 2
        AutoSize = True
        Caption = #39044#31435#21367#24402#26723'(&G)'
        Enabled = False
        ImageIndex = 9
        OnClick = YLJ1Click
      end
      object WJCZ: TToolButton
        Left = 360
        Top = 2
        AutoSize = True
        Caption = #25991#20214#25805#20316'(&F)'
        DropdownMenu = PopupMenu2
        Enabled = False
        ImageIndex = 8
      end
      object ToolButton1: TToolButton
        Left = 465
        Top = 2
        Action = Refresh
        AutoSize = True
        ImageIndex = 3
      end
      object ToolButton3: TToolButton
        Left = 546
        Top = 2
        Action = Quit
        AutoSize = True
        ImageIndex = 6
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 49
    Width = 717
    Height = 374
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 223
      Top = 0
      Width = 5
      Height = 374
      Cursor = crHSplit
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 223
      Height = 374
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object Tree: TTreeView
        Left = 0
        Top = 0
        Width = 223
        Height = 374
        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 = 228
      Top = 0
      Width = 489
      Height = 374
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Splitter2: TSplitter
        Left = 0
        Top = 230
        Width = 489
        Height = 4
        Cursor = crVSplit
        Align = alTop
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 489
        Height = 230
        Align = alTop
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 0
        object GroupBox1: TGroupBox
          Left = 2
          Top = 2
          Width = 485
          Height = 226
          Align = alClient
          Caption = #26696#21367#31649#29702
          TabOrder = 0
          object DBGridEh1: TDBGridEh
            Left = 2
            Top = 14
            Width = 481
            Height = 210
            Align = alClient
            DataSource = V_ylj
            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]
            TabOrder = 0
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            VertScrollBar.VisibleMode = sbNeverShowEh
            OnDblClick = DBGridEh1DblClick
            Columns = <
              item
                EditButtons = <>
                FieldName = 'aj_xh'
                Footers = <>
                Title.Caption = #24207#21495
                Visible = False
              end
              item
                EditButtons = <>
                FieldName = 'aj_ndh'
                Footers = <>
                Title.Caption = #24180#20195#21495
              end
              item
                EditButtons = <>
                FieldName = 'aj_tm'
                Footers = <>
                Title.Caption = #39064#21517
              end
              item
                EditButtons = <>
                FieldName = 'ajlb_mc'
                Footers = <>
                Title.Caption = #26696#21367#31867#21035
              end
              item
                EditButtons = <>
                FieldName = 'bgqx_mc'
                Footers = <>
                Title.Caption = #20445#31649#26399#38480
              end
              item
                EditButtons = <>
                FieldName = 'mj_mc'
                Footers = <>
                Title.Caption = #23494#32423
              end
              item
                EditButtons = <>
                FieldName = 'bm_mc'
                Footers = <>
                Title.Caption = #37096#38376
              end
              item
                EditButtons = <>
                FieldName = 'user_name'
                Footers = <>
                Title.Caption = #29992#25143#21517
              end>
          end
        end
      end
      object Panel5: TPanel
        Left = 0
        Top = 234
        Width = 489
        Height = 140
        Align = alClient
        BevelInner = bvRaised
        BevelOuter = bvLowered
        TabOrder = 1
        object GroupBox2: TGroupBox
          Left = 2
          Top = 2
          Width = 485
          Height = 136
          Align = alClient
          Caption = #25991#20214#31649#29702
          TabOrder = 0
          object DBGridEh2: TDBGridEh
            Left = 2
            Top = 14
            Width = 481
            Height = 120
            Align = alClient
            DataSource = Ds_Wjgl
            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]
            TabOrder = 0
            TitleFont.Charset = ANSI_CHARSET
            TitleFont.Color = clWindowText
            TitleFont.Height = -12
            TitleFont.Name = #23435#20307
            TitleFont.Style = []
            OnDblClick = DBGridEh2DblClick
            Columns = <
              item
                EditButtons = <>
                FieldName = 'wj_ndh'
                Footers = <>
                Title.Caption = #24180#20195#21495
              end
              item
                EditButtons = <>
                FieldName = 'wj_xh'
                Footers = <>
                Title.Caption = #24207#21495
              end
              item
                EditButtons = <>
                FieldName = 'ajlb_mc'
                Footers = <>
                Title.Caption = #26696#21367#31867#21035
              end
              item
                EditButtons = <>
                FieldName = 'aj_xh'
                Footers = <>
                Title.Caption = #26696#21367#24207#21495
              end
              item
                EditButtons = <>
                FieldName = 'wj_ys'
                Footers = <>
                Title.Caption = #39029#25968
              end
              item
                EditButtons = <>
                FieldName = 'wj_jnxh'
                Footers = <>
                Title.Caption = #21367#20869#24207#21495
              end
              item
                EditButtons = <>
                FieldName = 'wj_hh'
                Footers = <>
                Title.Caption = #30418#21495
              end
              item
                EditButtons = <>
                FieldName = 'wj_dh'
                Footers = <>
                Title.Caption = #26723#21495
              end
              item
                EditButtons = <>
                FieldName = 'wj_tm'
                Footers = <>
                Title.Caption = #39064#21517
              end
              item
                EditButtons = <>
                FieldName = 'wj_gdrq'
                Footers = <>
                Title.Caption = #24402#26723#26085#26399
              end
              item
                EditButtons = <>
                FieldName = 'wj_rq'
                Footers = <>
                Title.Caption = #26085#26399
              end
              item
                EditButtons = <>
                FieldName = 'bgqx_mc'
                Footers = <>
                Title.Caption = #20445#31649#26399#38480
              end
              item
                EditButtons = <>
                FieldName = 'mj_mc'
                Footers = <>
                Title.Caption = #23494#32423
              end
              item
                EditButtons = <>
                FieldName = 'wj_ztc'
                Footers = <>
                Title.Caption = #20027#39064#35789
              end
              item
                EditButtons = <>
                FieldName = 'wj_ty'
                Footers = <>
                Title.Caption = #25552#35201
              end
              item
                EditButtons = <>
                FieldName = 'wj_fz'
                Footers = <>
                Title.Caption = #38468#27880
              end
              item
                EditButtons = <>
                FieldName = 'user_name'
                Footers = <>
                Title.Caption = #29992#25143#21517
              end
              item
                EditButtons = <>
                FieldName = 'wj_wsh'
                Footers = <>
                Title.Caption = #24494#32553#21495
              end
              item
                EditButtons = <>
                FieldName = 'wj_dm'
                Footers = <>
                Title.Caption = #25991#20214#20195#30721
              end
              item
                EditButtons = <>
                FieldName = 'wj_yc'
                Footers = <>
                Title.Caption = #39029#27425
              end
              item
                EditButtons = <>
                FieldName = 'ztlb_mc'
                Footers = <>
                Title.Caption = #36733#20307#31867#21035
              end
              item
                EditButtons = <>
                FieldName = 'bm_mc'
                Footers = <>
                Title.Caption = #36131#20219#32773
              end
              item
                EditButtons = <>
                FieldName = 'wjlb_mc'
                Footers = <>
                Title.Caption = #25991#20214#31867#21035
              end>
          end
        end
      end
    end
  end
  object ActionList1: TActionList
    Left = 184
    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)'
    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 = 216
    object A1: TMenuItem
      Action = Add
      Enabled = False
    end
    object E1: TMenuItem
      Action = Edit
      Enabled = False
    end
    object D1: TMenuItem
      Action = Delete
      Enabled = False
    end
    object N5: TMenuItem
      Caption = #23637#24320
      OnClick = N5Click
    end
    object N6: TMenuItem
      Caption = #21472#36215
      OnClick = N6Click
    end
  end
  object V_ylj: TDataSource
    DataSet = DM.V_ylj
    Left = 184
    Top = 112
  end
  object PopupMenu2: TPopupMenu
    OwnerDraw = True
    Left = 184
    Top = 176
    object N7: TMenuItem
      Caption = #28155#21152#25991#20214
      OnClick = N7Click
    end
    object N8: TMenuItem
      Caption = #20462#25913#25991#20214
      OnClick = N8Click
    end
    object N9: TMenuItem
      Caption = #21024#38500#25991#20214
      OnClick = N9Click
    end
    object N11: TMenuItem
      Caption = #31227#20986#25991#20214
    end
  end
  object Ds_Wjgl: TDataSource
    DataSet = DM.V_Wjgl
    Left = 184
    Top = 336
  end
  object XPBarMenu2: TXPBarMenu
    BarCaption = #39044#31435#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 = 640
    Top = 8
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 240
    Top = 112
  end
  object ClientDataSet2: TClientDataSet
    Aggregates = <>
    CommandText = 'Select * from V_Wjgl'
    IndexFieldNames = 'aj_xh'
    MasterFields = 'aj_xh'
    MasterSource = V_ylj
    PacketRecords = 0
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 248
    Top = 336
  end
end

						