Delphi控件源码

开发平台：
Delphi

am_ajlb_xzs.~dfm：源码内容
							object Am_Ajlb_xz: TAm_Ajlb_xz
  Left = 190
  Top = 108
  Width = 544
  Height = 375
  BorderIcons = [biSystemMenu]
  Caption = #26696#21367#31867#21035#36873#25321
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001001010000001002000680400001600000028000000100000002000
    0000010020000000000040040000000000000000000000000000000000000000
    000A000000380303037E03030395030303950303039503030395030303950303
    039503030395030303950303039503030395030303950303037E000000380000
    00211C82B5FF1A80B3FF177DB0FF157BAEFF1278ABFF0F75A8FF0C72A5FF0A70
    A3FF076DA0FF056B9EFF03699CFF01679AFF006699FF020202CB0303037E2187
    BAFF66CCFFFF1F85B8FF99FFFFFF6ED4FFFF6ED4FFFF6ED4FFFF6ED4FFFF6ED4
    FFFF6ED4FFFF6ED4FFFF6ED4FFFF5CC2F0FF99FFFFFF006699FF03030394248A
    BDFF66CCFFFF268CBFFF99FFFFFF80E1FEFF83D9EFFF84DEF8FF7FD6E4FF80CF
    CEFF7FC9C6FF81C0BDFF87BCB8FF8EBDBAFFA7D7C8FF266584FF1D1B1A9C278D
    C0FF66CCFFFF2C92C5FF99FFFFFF8DE3EBFF86C5BAFF8CB8BBFF77C6B6FF85D7
    C5FF8BD8CDFF8BCDC2FF8EC4B8FF92BFB1FFA0BFA6FF305466FF494745AB298F
    C2FF66CCFFFF3298CBFF99FFFFFF98F2F5FF8DD9C0FF8FBAA8FF85CAB3FF96EC
    D5FF9AE9D8FF95DBC9FF95D0BDFF99CAB6FF9EC5AFFF295669FF9A6224F42C92
    C5FF6ED4FFFF3399CCFF99FFFFFF99FFFFFF98EFD8FF9FE4C9FF97D5B8FF9EF3
    D7FFA3F8E2FF9CE6D1FF99D8C1FF9AD0B8FF92C1AFFF2D596BFFA84600FF2E94
    C7FF7AE0FFFF2C92C5FFF9F7F3FFFAFDFAFFF6FAF0FFDBF2D7FFE2F1D9FFE4F5
    DAFFE7FEEAFFDDEBD9FFD7D9C5FFD4CFB9FFC8BCADFF2E556AFF9D6A49E33096
    C9FF85EBFFFF80E6FFFF54929EFF5AA9C0FF76B8D8FF63AEBBFF4DA7B1FF50AD
    B5FF58B4C4FF4BA2B6FF3F8C9BFF347684FF1E5875FF357291FF000000003298
    CBFF91F7FFFF8EF4FFFFC0D7B4FFC0E9DBFFFBFFFFFFFDF8E6FFC38D53FF7A94
    4AFF8AE0A6FF76C7A1FF4D8457FF374E2CFF0000000000000000000000003399
    CCFFFFFFFFFF99FFFFFFB3F1EFFF9ADFD6FFE6FDFFFFDAE6DDFF9D7256FF85A2
    B0FF567F76FF332E0FFF4C2E14FF4B727EFF0000000000000000000000000000
    00003399CCFFFFFFFFFFFFFFFFFFE4EEEDFF799282FF838F8CFF4E4A494F8D81
    686E444615FC664204FF973001FFB84B33E0EFE4E13500000000000000000000
    0000000000003399CCFF3398CBFF7FABB2FFBC873FFFDF7532DFCEC2BF348FA6
    6EB27D9A3FFFA9A65AFFB97524FFA52200FFBE867A8E00000000000000000000
    00000000000000000000A9A9AA03A0CCB2DCEDFFEFFFDFAD73FAE2C3C36B9FC4
    82AFA8E48EFFBCE6B0FF979250FF602000FF9C75739D00000000000000000000
    0000000000000000000000000000DDEFED61A1C8C8DEADAEAAA4F2E3E60CC1D7
    B17F7AC57CFF87D6B0FF517C51FF2A280CFF0000000000000000000000000000
    0000000000000000000000000000000000008DB4B319ADB4B60C000000000000
    00000000000059926AE93F6A4DE8000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000001
    0000000700000007000080030000C0030000E0030000F0070000F9CF0000}
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 536
    Height = 305
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object DBGridEh2: TDBGridEh
      Left = 2
      Top = 2
      Width = 532
      Height = 301
      Align = alClient
      DataSource = DataSource2
      FooterColor = clWindow
      FooterFont.Charset = GB2312_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 = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      OnDblClick = DBGridEh2DblClick
      Columns = <
        item
          EditButtons = <>
          FieldName = 'qz_dm'
          Footers = <>
          Title.Caption = #20840#23447#20195#30721
        end
        item
          EditButtons = <>
          FieldName = 'ajlb_sjlbdm'
          Footers = <>
          Title.Caption = #19978#32423#31867#21035#20195#30721
          Width = 85
        end
        item
          EditButtons = <>
          FieldName = 'ajlb_dm'
          Footers = <>
          Title.Caption = #26696#21367#31867#21035#20195#30721
          Width = 75
        end
        item
          EditButtons = <>
          FieldName = 'ajlb_mc'
          Footers = <>
          Title.Caption = #26696#21367#31867#21035#21517#31216
          Width = 96
        end
        item
          EditButtons = <>
          FieldName = 'ajlb_js'
          Footers = <>
          Title.Caption = #26696#21367#31867#21035#32423#25968
          Width = 106
        end>
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 305
    Width = 536
    Height = 43
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object SpeedButton1: TSpeedButton
      Left = 346
      Top = 3
      Width = 57
      Height = 29
      Hint = #26597#25214
      Caption = #26597#25214'(&A)'
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 402
      Top = 3
      Width = 57
      Height = 29
      Hint = #30830#23450
      Caption = #30830#23450'(&O)'
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 458
      Top = 3
      Width = 57
      Height = 29
      Hint = #36864#20986
      Caption = #36864#20986'(&X)'
      OnClick = SpeedButton3Click
    end
  end
  object DataSource2: TDataSource
    DataSet = ClientDataSet1
    Left = 24
    Top = 312
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    CommandText = 'select * from sz_ajlb'
    Params = <>
    ProviderName = 'Provider1'
    RemoteServer = ljsz.Socket2
    Left = 56
    Top = 312
  end
end

						