Delphi控件源码

开发平台：
Delphi

Am_Ygxzs.dfm：源码内容
							object Am_Ygxz: TAm_Ygxz
  Left = 199
  Top = 107
  Width = 544
  Height = 375
  BorderIcons = [biSystemMenu]
  Caption = #21592#24037#36873#25321
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020040000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000EEEEEEE0006EEE003DD000DD00DD00E6EE
    EEE60EE0E6E0E0B503305DD055006E6EEE60EEE06E0EE00B3B3770500000E6E6
    E60EEEE0000EE00BB33770000000006E606EEE077700E083B38F700000000000
    06EEE0777770073B38FF7000000000000E6E0777777008B38FF8700000000000
    0600777777000833F7700000000000000007777000000073FFFFFFFF70000000
    00077777777777078FFFFFFFF000000000000777777777708FFFFFFF80000000
    00000777777777708FFFFF700000000000000777777770078FFFFFFF80000000
    00000777777777708FFFFFF000000000000077777777777088FFFFFFFF000000
    000777777777770008FFFFFFF000000000077777777777770FFFCCFF00000000
    00000777777077707FFF70070000000000000777770077078FFFF88800000000
    000000077770007B38FFFFFF700000000000000777770078308F0F0F37000000
    000000077777707B0B33B3B38B0000000000000777770078B8BBBB3BBB000000
    000000000000007B8BBBBBBBB00000000000000000000078B8BBBBBB00000000
    000000000000000B8BBBBB000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFFFFFFC000000000000000000000030000000F0000003FC000
    003FF000003FF0000007F0000003F8000003E0000003E0000003C0000003C000
    0001800000010000000300000007000000070000000700000003000000010000
    00018000000180000003C0000007C000000FE000003FF0007FFFFC00FFFF}
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 536
    Height = 312
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object DBGridEh1: TDBGridEh
      Left = 2
      Top = 2
      Width = 532
      Height = 308
      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
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = DBGridEh1DblClick
      Columns = <
        item
          EditButtons = <>
          FieldName = 'bm_dm'
          Footers = <>
          Title.Caption = #37096#38376#20195#30721
        end
        item
          EditButtons = <>
          FieldName = 'bm_mc'
          Footers = <>
          Title.Caption = #37096#38376#21517#31216
        end
        item
          EditButtons = <>
          FieldName = 'yg_dm'
          Footers = <>
          Title.Caption = #21592#24037#20195#30721
        end
        item
          EditButtons = <>
          FieldName = 'Yg_xm'
          Footers = <>
          Title.Caption = #21592#24037#22995#21517
        end>
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 312
    Width = 536
    Height = 36
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object SpeedButton1: TSpeedButton
      Left = 346
      Top = 3
      Width = 57
      Height = 29
      Caption = #26597#25214'(&S)'
      Visible = False
    end
    object SpeedButton2: TSpeedButton
      Left = 402
      Top = 3
      Width = 57
      Height = 29
      Caption = #30830#23450'(&O)'
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 458
      Top = 3
      Width = 57
      Height = 29
      Caption = #36864#20986'(&X)'
      OnClick = SpeedButton3Click
    end
  end
  object DataSource1: TDataSource
    DataSet = DM.v_yggl
    Left = 8
    Top = 256
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from xt_user'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket1
    Left = 48
    Top = 256
  end
end

						