Delphi控件源码

开发平台：
Delphi

am_jygls.~dfm：源码内容
							object am_jygl: Tam_jygl
  Left = 185
  Top = 110
  Width = 812
  Height = 375
  Caption = #20511#38405#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
    0000000000000000000000000000000000000000000000000000AB5421FFE779
    37FFE87F3EFF764728FF00000000000000000000000000000000000000000000
    00000000000000000000000000000000000000000000723816FFDC4A23FFD731
    28FFEB8C4DFFEE995CFFBB5B33FF000000000000000000000000000000000000
    000000000000000000009E867EFFCEB3ACFFCBB0AAFFD4825DFFD27851FF624A
    46FFD24A53FFF1A368FFF1A66BFFBC5E37FF3F190CFF33000CFF000000000000
    00000000000000000000E4C6B6FFFCD8C3FFFBD7C1FFE2B5A7FFE2B5A7FFE2B5
    A7FFEFC3AFFFE15D63FFF4B279FFF7BF88FFFCB37FFF660019FF000000000000
    00000000000000000000E5CDBCFFE3BEADFFE3BDABFFE1BAA8FFE1B9A6FFE1B7
    A4FFEDC5ABFFE9B3A3FFD8616CFFFACC97FFFDD9A6FF660019FF000000000000
    00000000000000000000E8D1C1FFE3C0B0FFE3BEAEFFE1BCABFFE1BAA9FFE1B9
    A7FFEDC8B0FFE78E8EFFD7324BFFE46B6BFFE57172FF660019FF000000000000
    00000000000000000000ECD6C7FFE3C2B3FFE3C0B1FFE3BFAFFFE3BEADFFE3BD
    ABFFFADCC1FFE9B3A3FF686564FF000000000000000000000000000000000000
    00000000000000000000EEDBCCFFE4C3B7FFE4C2B4FFE3C1B2FFE3C0B0FFE3BE
    AEFFFBDFC8FFE9B3A3FF686564FF000000000000000000000000000000000000
    00000000000000000000F2E0D1FFE4C5BAFFE4C4B7FFE3C3B5FFD19C7CFFFBDD
    C3FFFBDEC5FFE9B3A3FF969391FF000000000000000000000000000000000000
    00000000000000000000EEDBCCFFE4C7BDFFF0DBD0FFFCEEE1FFE1B196FFAC7F
    65FFC58B69FFC18A6DFFB6704BFFB18974FF343232FF00000000000000000000
    00000000000000000000F2E0D1FFE3C6BEFFE2C5BCFFE2C4B9FFEFD8CCFFDEBE
    ACFFFBF5F2FFEAC4B0FFDB9571FFD37F54FFB07455FF343232FF000000000000
    00000000000000000000EEDBCCFFFEFAF5FFFEF7F1FFFDF4ECFFFDF2E9FFFEF7
    F2FFF5E3DAFFD88E67FFCB6F3EFFB9663BFFA7582EFF5B5B5BFF000000000000
    00000000000000000000F7E4D3FFF4E0CFFFF1DCCBFFF4E0CFFFF1DCCBFFF6EB
    E3FFF1D7C9FFD4845AFFAC6946FFD88F68FFC06C41FFB57553FF343232FF0000
    000000000000000000000000000000000000000000000000000000000000D287
    74FFFAF3EFFFD89572FFEAC4AFFFEDCBBAFFDEA181FFB66136FF676767FF0000
    0000000000000000000000000000000000000000000000000000000000003027
    22FFDFB7A2FFEBC5B1FFD9B19DFFF9EFEAFFEDCAB8FFB66136FF343232FF0000
    0000000000000000000000000000000000000000000000000000000000000000
    0000312B28FF644534FF5A311CFFD7A184FFC88A6AFF28140AFF00000000FE1F
    0000FC0F0000E0010000E0010000E0010000E0010000E00F0000E00F0000E00F
    0000E0030000E0010000E0010000E0000000FF000000FF000000FF810000}
  OldCreateOrder = False
  Position = poDefault
  Scaled = False
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 804
    Height = 40
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 36
        Width = 800
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 787
      Height = 36
      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 = #22686#21152'(&A)'
        ImageIndex = 0
        OnClick = ToolButton1Click
      end
      object ToolButton2: TToolButton
        Left = 81
        Top = 2
        AutoSize = True
        Caption = #20462#25913'(&E)'
        ImageIndex = 1
        OnClick = ToolButton2Click
      end
      object ToolButton3: TToolButton
        Left = 162
        Top = 2
        AutoSize = True
        Caption = #21024#38500'(&D)'
        ImageIndex = 2
        OnClick = ToolButton3Click
      end
      object ToolButton4: TToolButton
        Left = 243
        Top = 2
        AutoSize = True
        Caption = #21047#26032'(&R)'
        ImageIndex = 3
        OnClick = ToolButton4Click
      end
      object ToolButton5: TToolButton
        Left = 324
        Top = 2
        AutoSize = True
        Caption = #26597#25214'(&F)'
        ImageIndex = 4
        OnClick = ToolButton5Click
      end
      object ToolButton6: TToolButton
        Left = 405
        Top = 2
        AutoSize = True
        Caption = #25171#21360'(&P)'
        ImageIndex = 5
        OnClick = ToolButton6Click
      end
      object ToolButton7: TToolButton
        Left = 486
        Top = 2
        AutoSize = True
        Caption = #36864#20986'(&X)'
        ImageIndex = 6
        OnClick = ToolButton7Click
      end
      object RadioGroup1: TRadioGroup
        Left = 567
        Top = 2
        Width = 185
        Height = 30
        Columns = 2
        Items.Strings = (
          #20170#26085#20511#38405
          #21382#21490#20511#38405)
        TabOrder = 0
        OnClick = RadioGroup1Click
      end
    end
  end
  object DBGridEh1: TDBGridEh
    Left = 0
    Top = 40
    Width = 804
    Height = 308
    Align = alClient
    DataSource = v_jy
    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]
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    TitleFont.Charset = ANSI_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    OnDblClick = DBGridEh1DblClick
    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 = 'jy_jyrq'
        Footers = <>
        Title.Caption = #20511#38405#26085#26399
      end
      item
        EditButtons = <>
        FieldName = 'jy_yhrq'
        Footers = <>
        Title.Caption = #24212#36824#26085#26399
      end
      item
        EditButtons = <>
        FieldName = 'jy_ghrq'
        Footers = <>
        Title.Caption = #24402#36824#26085#26399
      end
      item
        EditButtons = <>
        FieldName = 'jy_jsr'
        Footers = <>
        Title.Caption = #32463#25163#20154
      end
      item
        EditButtons = <>
        FieldName = 'jy_jyzt'
        Footers = <>
        Title.Caption = #24402#36824#29366#24577
      end
      item
        EditButtons = <>
        FieldName = 'jy_bz'
        Footers = <>
        Title.Caption = #22791#27880
      end>
  end
  object v_jy: TDataSource
    DataSet = ClientDataSet1
    Left = 14
    Top = 78
  end
  object XPBarMenu1: TXPBarMenu
    BarCaption = #20511#38405#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 = 568
    Top = 56
  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 = 94
    Top = 78
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from V_JY'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 46
    Top = 78
  end
end

						