Delphi控件源码

开发平台：
Delphi

Am_ylj_bjs.dfm：源码内容
							object Am_ylj_bj: TAm_ylj_bj
  Left = 227
  Top = 103
  Width = 422
  Height = 236
  BorderIcons = []
  Caption = #39044#31435#21367#32534#36753
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001001010000001002000680400001600000028000000100000002000
    0000010020000000000040040000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    00000000000018799CFF18799CFF18799CFF18799CFF18799CFF18799CFF1879
    9CFF18799CFF18799CFF18799CFF0000FFFF0000FFFF18799CFF000000000000
    0000218AADFF107DA5FF31A2C6FF31A2C6FF31A2C6FF31A2C6FF31A2C6FF31A2
    C6FF31A2C6FF31A2C6FF31A2C6FF0000FFFF0000FFFF219EC6FF18799CFF31A2
    C6FF63CBFFFF1092BDFF9CFBFFFF52BADEFF52BADEFF52BADEFF52BADEFF52BA
    DEFF52BADEFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF31A2
    C6FF63CBFFFF2196BDFF9CF3FFFFD6D3BDFFD6D3BDFFD6D3BDFFD6D3BDFFD6D3
    BDFFD6D3BDFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF0000FFFF31A2
    C6FF63CBFFFF2196BDFF9CF3FFFFD6D3BDFFFFEBDEFFFFEBDEFFFFEBDEFFFFEB
    DEFFFFEBDEFFFFEBDEFFFFEBDEFF0000FFFF0000FFFF31A2C6FF18799CFF31A2
    C6FF63CBFFFF31A2C6FF9CFBFFFFD6D3BDFFFFEBDEFFFFEBDEFFFFEBDEFFFFEB
    DEFFFFEBDEFFFFEBDEFFFFEBDEFF0000FFFF0000FFFF31A2C6FF18799CFF31A2
    C6FF6BD3FFFF31A2C6FF9CFBFFFFD6D3BDFFFFEBDEFFFFD7ADFFFFD7ADFFFFD7
    ADFFFFD7ADFFFFD7ADFFFFD7ADFFFFEBDEFFD6D3BDFF31A2C6FF18799CFF31A2
    C6FF7BDFFFFF31A2C6FFFFFBFFFFFFE7D6FFFFFFFFFFFFFBFFFFFFFFFFFFFFFB
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFE7D6FF31A2C6FF18799CFF31A2
    C6FF84E7FFFF31A2C6FF42A6BDFF9C8273FFCEB69CFFCEB69CFFCEB69CFFCEB6
    9CFFCEB69CFFCEB69CFFCEB69CFFCEB69CFF9C8273FF31A2C6FF0000000031A2
    C6FF94F7FFFF8CF7FFFF94F7FFFF9C8273FFFFEFDEFFFFF3E7FFFFF3E7FFFFF3
    E7FFFFF3E7FFFFF3E7FFFFF3E7FFFFF3E7FF9C8273FF000000000000000031A2
    C6FFFFFBFFFF9CFFFFFF9CFFFFFF9C8273FFFFF7E7FFFFDBB5FFFFDBB5FFFFDB
    B5FFFFDBB5FFFFDBB5FFFFDBB5FFFFF7EFFF9C8273FF00000000000000000000
    000031A2C6FFFFFBFFFFFFFBFFFF9C8273FFFFFBF7FFFFFBF7FFFFFBF7FFFFFB
    F7FFFFFBF7FFFFFBF7FFFFE7CEFFFFE7CEFF9C8273FF00000000000000000000
    00000000000031A2C6FF31A2C6FF9C8273FFF7FFFFFFFFDBB5FFFFDBB5FFFFDB
    B5FFFFDBB5FFFFFFFFFFFFA629FFFFA629FFFFA629FF00000000000000000000
    00000000000000000000000000009C8273FFFFF7EFFFFFFBF7FFFFFBF7FFFFFB
    F7FFFFFBF7FFFFFBF7FFFFB65AFFFFB65AFF0000000000000000000000000000
    00000000000000000000000000009C8273FF9C8273FF9C8273FF9C8273FF9C82
    73FF9C8273FF9C8273FFFFB65AFF00000000000000000000000000000000FFFF
    0000C00100008000000000000000000000000000000000000000000000000000
    000000010000000300000003000080030000C0030000F0070000F00F0000}
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  ShowHint = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object SpeedButton1: TSpeedButton
    Left = 267
    Top = 176
    Width = 71
    Height = 29
    Hint = #30830#23450
    Caption = #30830#23450'(&O)'
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 337
    Top = 176
    Width = 71
    Height = 29
    Hint = #36864#20986
    Caption = #36864#20986'(&X)'
    OnClick = SpeedButton2Click
  end
  object Panel1: TPanel
    Left = 3
    Top = 7
    Width = 406
    Height = 166
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 14
      Width = 48
      Height = 12
      Caption = #24180#20195#21495#65306
    end
    object Label2: TLabel
      Left = 28
      Top = 40
      Width = 36
      Height = 12
      Caption = #39064#21517#65306
    end
    object Label3: TLabel
      Left = 4
      Top = 102
      Width = 60
      Height = 12
      Caption = #20445#31649#26399#38480#65306
    end
    object Label4: TLabel
      Left = 224
      Top = 101
      Width = 36
      Height = 12
      Caption = #23494#32423#65306
    end
    object Label5: TLabel
      Left = 212
      Top = 137
      Width = 48
      Height = 12
      Caption = #29992#25143#21517#65306
    end
    object Label6: TLabel
      Left = 200
      Top = 14
      Width = 60
      Height = 12
      Caption = #26696#21367#31867#21035#65306
    end
    object DBMemo1: TDBMemo
      Left = 64
      Top = 40
      Width = 330
      Height = 41
      DataField = 'aj_tm'
      DataSource = ds_ajgl
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      ScrollBars = ssVertical
      TabOrder = 0
      WordWrap = False
      OnKeyDown = DBMemo1KeyDown
      OnKeyPress = DBMemo1KeyPress
      OnMouseDown = DBMemo1MouseDown
    end
    object L_bgqx: TDBLookupComboBox
      Left = 67
      Top = 99
      Width = 130
      Height = 20
      DataField = 'bgqx_dm'
      DataSource = ds_ajgl
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      KeyField = 'bgqx_dm'
      ListField = 'bgqx_mc'
      ListSource = DM.Ds_Bgqx
      TabOrder = 1
    end
    object L_mj: TDBLookupComboBox
      Left = 262
      Top = 98
      Width = 130
      Height = 20
      DataField = 'mj_dm'
      DataSource = ds_ajgl
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      KeyField = 'mj_dm'
      ListField = 'mj_mc'
      ListSource = DM.Ds_mj
      TabOrder = 2
    end
    object DBEditEh1: TDBEditEh
      Left = 264
      Top = 12
      Width = 130
      Height = 20
      Color = cl3DLight
      EditButtons = <>
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 3
      Visible = True
    end
    object DBEditEh2: TDBEditEh
      Left = 64
      Top = 9
      Width = 121
      Height = 20
      DataField = 'aj_ndh'
      DataSource = ds_ajgl
      EditButtons = <>
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 4
      Visible = True
    end
    object DBEditEh3: TDBEditEh
      Left = 264
      Top = 132
      Width = 130
      Height = 20
      Color = cl3DLight
      DataField = 'user_name'
      DataSource = ds_ajgl
      EditButtons = <>
      Enabled = False
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 5
      Visible = True
    end
  end
  object ds_ajgl: TDataSource
    DataSet = DM.Am_ajgl
    Left = 16
    Top = 144
  end
  object FlatHint1: TFlatHint
    ColorBackground = clGradientActiveCaption
    ColorArrowBackground = clGradientActiveCaption
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Left = 48
    Top = 144
  end
end

						