unit6.~dfm

一个简单的医疗查询系统

object Form6: TForm6
  Left = 335
  Top = 205
  Width = 267
  Height = 200
  BorderIcons = [biSystemMenu]
  Caption = #38376#35786#25346#21495
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 259
    Height = 116
    Caption = #25346#21495#20449#24687
    TabOrder = 0
    object Label1: TLabel
      Left = 29
      Top = 33
      Width = 48
      Height = 12
      Caption = #25346#21495#31867#22411
    end
    object Label2: TLabel
      Left = 39
      Top = 62
      Width = 36
      Height = 12
      Caption = #25346#21495#36153
    end
    object DBEdit1: TDBEdit
      Left = 89
      Top = 60
      Width = 121
      Height = 20
      DataField = #25346#21495#36153
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 0
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 89
      Top = 29
      Width = 145
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      KeyField = #32534#21495
      ListField = #25346#21495#31867#22411
      ListSource = DataSource1
      TabOrder = 1
    end
  end
  object MainMenu1: TMainMenu
    Left = 240
    Top = 72
    object N1: TMenuItem
      Caption = #36864#20986
      OnClick = N1Click
    end
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source='#21307#30103#20449#24687#26597#35810#31995 +
      #32479'.mdb;Persist Security Info=True'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 8
    Top = 80
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #38376#35786#25346#21495#31867#22411
    Left = 40
    Top = 80
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 72
    Top = 80
  end
end