comport_u.dfm

delphi7.0+SQl server 2000开发的,对于初学者有较好的参考价值

object frm_com: Tfrm_com
  Left = 0
  Top = 0
  Caption = #31471#21475#35774#32622
  ClientHeight = 213
  ClientWidth = 339
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poMainFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 88
    Top = 56
    Width = 56
    Height = 14
    Caption = #31471#21475#21495#65306
  end
  object Label2: TLabel
    Left = 89
    Top = 96
    Width = 49
    Height = 14
    Caption = #21345#22411#21495':'
  end
  object DBComboBox1: TDBComboBox
    Left = 144
    Top = 53
    Width = 57
    Height = 22
    DataField = 'comport'
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ItemHeight = 14
    Items.Strings = (
      'COM1'
      'COM2'
      'COM3'
      'COM4'
      'COM5'
      'COM6')
    TabOrder = 0
  end
  object ok_BitBtn: TBitBtn
    Left = 61
    Top = 143
    Width = 75
    Height = 25
    Caption = #30830#23450'(&O)'
    TabOrder = 1
    OnClick = ok_BitBtnClick
  end
  object cancel_BitBtn: TBitBtn
    Left = 200
    Top = 143
    Width = 75
    Height = 25
    Caption = #21462#28040'(&C)'
    TabOrder = 2
    OnClick = cancel_BitBtnClick
  end
  object DBComboBox2: TDBComboBox
    Left = 144
    Top = 93
    Width = 145
    Height = 22
    DataField = 'cardtype'
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ItemHeight = 14
    Items.Strings = (
      'Inside 24C01A'
      'Inside 24C02'
      'Inside 24C04'
      'Inside 24C08'
      'Inside 24C16'
      'Inside 24C32'
      'Inside 24C64'
      'Inside 24C65'
      'ATMEL 88SC101'
      'ATMEL 88SC102'
      'ATMEL 88SC103'
      'ATMEL 88SC1601'
      'ATMEL 88SC1604'
      'ATMEL 88SC1604A'
      'ATMEL 24C01A'
      'ATMEL 24C02'
      'ATMEL 24C04'
      'ATMEL 24C08'
      'ATMEL 24C16'
      'ATMEL 24C32'
      'ATMEL 24C64'
      'ATMEL 45D041'
      'MICROCHIP 24LC01B'
      'MICROCHIP 24LC08B'
      'MICROCHIP 24LC16B'
      'MICROCHIP 24C65'
      'ATMEL 93C46'
      'SIEMENS 4404'
      'SIEMENS 4406'
      'SIEMENS 4442'
      'SIEMENS 4428'
      'SIEMENS 4432'
      'SIEMENS 4418')
    TabOrder = 3
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 32
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'tbl_com'
    Left = 64
  end
end