unit3.dfm

一个简单的医疗查询系统

object Form3: TForm3
  Left = 239
  Top = 175
  Width = 549
  Height = 342
  BorderIcons = [biSystemMenu]
  Caption = #31185#23460#20449#24687
  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 Panel1: TPanel
    Left = 0
    Top = 0
    Width = 540
    Height = 193
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 200
      Top = 10
      Width = 24
      Height = 12
      Caption = #31185#23460
    end
    object DBGrid1: TDBGrid
      Left = 0
      Top = 31
      Width = 537
      Height = 162
      DataSource = DataSource2
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 0
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 234
      Top = 6
      Width = 145
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      KeyField = #32534#21495
      ListField = #21517#31216
      ListSource = DataSource1
      TabOrder = 1
      OnClick = DBLookupComboBox1Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 193
    Width = 540
    Height = 96
    BevelInner = bvLowered
    TabOrder = 1
    object Label2: TLabel
      Left = 64
      Top = 14
      Width = 24
      Height = 12
      Caption = #32534#21495
    end
    object Label3: TLabel
      Left = 208
      Top = 15
      Width = 48
      Height = 12
      Caption = #31185#23460#21517#31216
    end
    object Label4: TLabel
      Left = 401
      Top = 11
      Width = 24
      Height = 12
      Caption = #21307#29983
    end
    object Label5: TLabel
      Left = 40
      Top = 39
      Width = 48
      Height = 12
      Caption = #20837#32844#26102#38388
    end
    object Label6: TLabel
      Left = 230
      Top = 39
      Width = 24
      Height = 12
      Caption = #32844#31216
    end
    object DBEdit1: TDBEdit
      Left = 96
      Top = 10
      Width = 98
      Height = 20
      DataField = #32534#21495
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 97
      Top = 35
      Width = 97
      Height = 20
      DataField = #20837#32844#26085#26399
      DataSource = DataSource2
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 265
      Top = 10
      Width = 111
      Height = 20
      DataField = #21517#31216
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 264
      Top = 37
      Width = 113
      Height = 20
      DataField = #32844#31216
      DataSource = DataSource2
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 432
      Top = 9
      Width = 98
      Height = 20
      DataField = #22995#21517
      DataSource = DataSource2
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 4
    end
  end
  object MainMenu1: TMainMenu
    Left = 304
    Top = 72
    object N1: TMenuItem
      Caption = #36864#20986
      OnClick = N1Click
    end
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #31185#23460#36164#26009
    Left = 216
    Top = 72
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 264
    Top = 72
  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 = 176
    Top = 72
  end
  object ADOTable2: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #21307#29983#36164#26009
    Left = 216
    Top = 120
  end
  object DataSource2: TDataSource
    DataSet = ADOTable2
    Left = 264
    Top = 120
  end
end