Delphi控件源码

开发平台：
Delphi

am_ghgls.dfm：源码内容
							object am_ghgl: Tam_ghgl
  Left = 21
  Top = 110
  Width = 812
  Height = 415
  Caption = #24402#36824#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
    00000000000000000000000000006B6563FF6B6563FF6B6563FF6B6563FF6B65
    63FF6B6563FF6B6563FF6B6563FF000000000000000000000000000000000000
    00000000000000000000E7B6A5FFE7B6A5FFE7B6A5FFE7B6A5FFE7B6A5FFE7B6
    A5FFE7B6A5FFE7B6A5FF686564FF000000000000000000000000000000000000
    00000000000000000000E4C6B6FFFCD8C3FFFBD7C1FFE2B5A7FFE2B5A7FFE2B5
    A7FFEFC3AFFFE9B3A3FF686564FF000000000000000000000000000000000000
    00000000000000000000E5CDBCFFE3BEADFFE3BDABFFE1BAA8FFE1B9A6FFE1B7
    A4FFEDC5ABFFE9B3A3FF686564FF000000000000000000000000000000000000
    00000000000000000000E8D1C1FFE3C0B0FFE3BEAEFFE1BCABFFE1BAA9FFE1B9
    A7FFEDC8B0FFE9B3A3FF686564FF000000000000000000000000000000000000
    00000000000000000000ECD6C7FFE3C2B3FFE3C0B1FFE3BFAFFFE3BEADFFE3BD
    ABFFFADCC1FFE9B3A3FF6B6563FF000000000000000000000000000000000000
    00000000000000000000EEDBCCFFE4C3B7FFE4C2B4FFE3C1B2FFE3C0B0FFE3BE
    AEFFFBDFC8FFE9B3A3FF6B6563FF000000000000000000000000000000000000
    00000000000000000000F2E0D1FFE4C5BAFFE4C4B7FFE3C3B5FFD19C7CFFFBDD
    C3FFFBDEC5FFE9B3A3FF6B6563FF000000000000000000000000000000004000
    00FF400000FF400000FFBA726BFFE4C7BDFFF0DBD0FFFCEEE1FFE1B196FFAC7F
    65FFC58B69FFC18A6DFFB6704BFFB18974FF343232FF0000000000000000D836
    0CFFE05C16FFCC5625FFDCB2ABFFE3C6BEFFE2C5BCFFE2C4B9FFEFD8CCFFDEBE
    ACFFFBF5F2FFEAC4B0FFDB9571FFD37F54FFB07455FF343232FF00000000E05C
    16FFE67533FFEA8546FFBB6454FFFEFAF5FFFEF7F1FFFDF4ECFFFDF2E9FFFEF7
    F2FFF5E3DAFFD88E67FFCB6F3EFFB9663BFFA7582EFF5B5B5BFF00000000CC56
    25FF8D221FFFED9255FFF09F64FFBC6A5BFFF7E4D3FFF4E0CFFFF1DCCBFFF6EB
    E3FFF1D7C9FFD4845AFFAC6946FFD88F68FFC06C41FFB57553FF343232FF3300
    0CFF00000000A22833FFF3AC72FFF6B881FF7E3225FF754425FFE36644FFD287
    74FFFAF3EFFFD89572FFEAC4AFFFEDCBBAFFDEA181FFB66136FF676767FF0000
    00000000000000000000AE5E4FFFF9C590FFFCD29FFFBF7158FFA52633FF3027
    22FFDFB7A2FFEBC5B1FFD9B19DFFF9EFEAFFEDCAB8FFB66136FF343232FF0000
    0000000000000000000000000000000000000000000000000000000000000000
    0000312B28FF644534FF5A311CFFD7A184FFC88A6AFF28140AFF00000000FFFF
    0000F00F0000E00F0000E00F0000E00F0000E00F0000E00F0000E00F0000E00F
    00000003000000010000000100000000000040000000E0000000FF810000}
  OldCreateOrder = False
  Position = poDefault
  Scaled = False
  ShowHint = True
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 804
    Height = 36
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 32
        Width = 800
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 787
      AutoSize = True
      ButtonHeight = 30
      ButtonWidth = 83
      Caption = 'ToolBar1'
      EdgeInner = esNone
      EdgeOuter = esNone
      Images = mainfrm.zsg
      List = True
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = True
      TabOrder = 0
      Transparent = True
      object ToolButton1: TToolButton
        Left = 0
        Top = 2
        AutoSize = True
        Caption = #24402#36824'(&G)'
        Enabled = False
        ImageIndex = 0
        OnClick = ToolButton1Click
      end
      object ToolButton2: TToolButton
        Left = 81
        Top = 2
        AutoSize = True
        Caption = #32493#20511'(&C)'
        Enabled = False
        ImageIndex = 1
        OnClick = ToolButton2Click
      end
      object ToolButton4: TToolButton
        Left = 162
        Top = 2
        AutoSize = True
        Caption = #21047#26032'(&R)'
        ImageIndex = 3
        OnClick = ToolButton4Click
      end
      object ToolButton5: TToolButton
        Left = 243
        Top = 2
        AutoSize = True
        Caption = #26597#25214'(&F)'
        ImageIndex = 4
        OnClick = ToolButton5Click
      end
      object ToolButton6: TToolButton
        Left = 324
        Top = 2
        AutoSize = True
        Caption = #25171#21360'(&P)'
        ImageIndex = 5
        OnClick = ToolButton6Click
      end
      object RadioGroup1: TRadioGroup
        Left = 405
        Top = 2
        Width = 292
        Height = 30
        Columns = 3
        ItemIndex = 2
        Items.Strings = (
          #26410#36824#21015#34920
          #24050#36824#21015#34920
          #36926#26399#26410#25442#21015#34920)
        TabOrder = 0
        OnClick = RadioGroup1Click
      end
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 36
    Width = 804
    Height = 352
    Align = alClient
    DataSource = jygl
    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 = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        EditButtons = <>
        FieldName = 'jy_xh'
        Footers = <>
        Title.Caption = #20511#38405#24207#21495
      end
      item
        EditButtons = <>
        FieldName = 'dz_dm'
        Footers = <>
        Title.Caption = #35835#32773#20195#30721
      end
      item
        EditButtons = <>
        FieldName = 'dz_xm'
        Footers = <>
        Title.Caption = #35835#32773#22995#21517
      end
      item
        EditButtons = <>
        FieldName = 'aj_dh'
        Footers = <>
        Title.Caption = #26696#21367#26723#21495
      end
      item
        EditButtons = <>
        FieldName = 'jy_jyzt'
        Footers = <>
        Title.Caption = #20511#38405#29366#24577
        Width = 165
      end
      item
        EditButtons = <>
        FieldName = 'jy_yhrq'
        Footers = <>
        Title.Caption = #24212#36824#26085#26399
      end
      item
        EditButtons = <>
        FieldName = 'jy_jyrq'
        Footers = <>
        Title.Caption = #20511#38405#26085#26399
      end
      item
        EditButtons = <>
        Footers = <>
        Title.Caption = #36926#26399#22825#25968
        Visible = False
      end
      item
        EditButtons = <>
        FieldName = 'aj_tm'
        Footers = <>
        Title.Caption = #26696#21367#39064#21517
      end>
  end
  object XPBarMenu1: TXPBarMenu
    BarCaption = #24402#36824#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 = 88
  end
  object jygl: TDataSource
    DataSet = DM.v_gh
    Left = 48
    Top = 88
  end
  object DataSource1: TDataSource
    DataSet = DM.am_jygl
    Left = 88
    Top = 88
  end
  object PrintDBGridEh1: TPrintDBGridEh
    DBGridEh = DBGridEh1
    Options = []
    Page.BottomMargin = 2
    Page.LeftMargin = 2
    Page.RightMargin = 2
    Page.TopMargin = 2
    PageFooter.Font.Charset = DEFAULT_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -11
    PageFooter.Font.Name = 'MS Sans Serif'
    PageFooter.Font.Style = []
    PageHeader.Font.Charset = DEFAULT_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -11
    PageHeader.Font.Name = 'MS Sans Serif'
    PageHeader.Font.Style = []
    Units = MM
    Left = 136
    Top = 88
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from V_Gh'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 216
    Top = 88
  end
end

						