Delphi控件源码

开发平台：
Delphi

Unit2.dfm：源码内容
							object Form2: TForm2
  Left = 283
  Top = 201
  Width = 696
  Height = 480
  Caption = 'Form2'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 56
    Top = 32
    Width = 233
    Height = 41
    AutoSize = False
    Caption = #36873#25321#29992#25143#36523#20221
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object RadioButton1: TRadioButton
    Left = 360
    Top = 40
    Width = 113
    Height = 17
    Caption = #31649#29702#21592
    TabOrder = 0
  end
  object RadioButton2: TRadioButton
    Left = 360
    Top = 80
    Width = 113
    Height = 17
    Caption = #23398#29983
    TabOrder = 1
  end
  object Button1: TButton
    Left = 248
    Top = 320
    Width = 75
    Height = 25
    Caption = #30830#23450
    TabOrder = 2
    OnClick = Button1Click
  end
  object GroupBox1: TGroupBox
    Left = 176
    Top = 160
    Width = 329
    Height = 113
    Caption = #29992#25143#21517#21644#23494#30721
    TabOrder = 3
    object Label2: TLabel
      Left = 32
      Top = 24
      Width = 36
      Height = 13
      Caption = #29992#25143#21517
    end
    object Label5: TLabel
      Left = 32
      Top = 64
      Width = 33
      Height = 13
      Caption = #23494'   '#30721
    end
    object Edit3: TEdit
      Left = 160
      Top = 24
      Width = 121
      Height = 21
      TabOrder = 0
    end
    object MaskEdit1: TMaskEdit
      Left = 160
      Top = 72
      Width = 121
      Height = 21
      TabOrder = 1
    end
  end
  object ADOQuery1: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:Delphi0228manag' +
      'er.mdb;Persist Security Info=False'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from manager')
    Left = 112
    Top = 96
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 56
    Top = 96
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 56
    Top = 144
  end
  object ADOQuery2: TADOQuery
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:Delphi0228stude' +
      'nt.mdb;Persist Security Info=False'
    Parameters = <>
    Left = 112
    Top = 144
  end
end

						