unit1.~dfm

Delphi控件源码EjunPYComboBox.rarhenhaoyong o

object Form1: TForm1
  Left = 321
  Top = 203
  Width = 434
  Height = 327
  Caption = 'EjunSoft '#24518#21531#36719#20214' http://www.ejun.cn'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  DesignSize = (
    426
    293)
  PixelsPerInch = 96
  TextHeight = 12
  object ComboBox1: TComboBox
    Left = 88
    Top = 232
    Width = 145
    Height = 20
    ItemHeight = 12
    TabOrder = 0
    Text = 'ComboBox1'
    Visible = False
    Items.Strings = (
      #24191#24030
      #22825#27941
      #19978#28023
      #20848#24030
      #27494#27721
      #31119#24314
      #19978#28023#28393
      #29645#29664#28207
      #22799#23041#22839
      #24191#23433
      #19978#20914
      #31119#24030
      #22825#23433#38376)
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 16
    Width = 398
    Height = 260
    Anchors = [akLeft, akTop, akRight, akBottom]
    Caption = #25340#38899#33258#21160#23436#25104#36755#20837'EjunPYComboBox'#28436#31034
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 240
      Width = 150
      Height = 12
      Caption = #27880#20876#65306' http://www.ejun.cn'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = Label1Click
      OnMouseEnter = Label1MouseEnter
      OnMouseLeave = Label1MouseLeave
    end
    object Label2: TLabel
      Left = 16
      Top = 40
      Width = 288
      Height = 12
      Caption = #35831#22312'ComboBox'#20013#36755#20837#19979#34920#20013#20013#25991#21517#31216#30340#27721#35821#25340#38899#39318#23383#30446
    end
    object DBGrid1: TDBGrid
      Left = 8
      Top = 104
      Width = 369
      Height = 120
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
    object DBPYComboBox1: TDBPYComboBox
      Left = 56
      Top = 64
      Width = 145
      Height = 20
      ItemHeight = 12
      TabOrder = 1
      DataSource = DataSource1
      DataField = 'name'
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=E:\De' +
      'lphiProject\PYComboBox\Bin\data2.mdb;Mode=Share Deny None;Extend' +
      'ed Properties="";Persist Security Info=False;Jet OLEDB:System da' +
      'tabase="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password' +
      '="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Je' +
      't OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transact' +
      'ions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create Syste' +
      'm Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don'#39 +
      't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica' +
      ' Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 64
    Top = 24
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'product'
    Left = 104
    Top = 24
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 144
    Top = 24
  end
end