unit7.~dfm

一个简单的医疗查询系统

object Form7: TForm7
  Left = 255
  Top = 178
  Width = 534
  Height = 312
  BorderIcons = [biSystemMenu]
  Caption = #38376#35786#25910#36153
  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 = -1
    Top = 0
    Width = 527
    Height = 65
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 25
      Top = 12
      Width = 72
      Height = 12
      Caption = #38376#35786#31867#21035#21517#31216
    end
    object Label2: TLabel
      Left = 245
      Top = 11
      Width = 36
      Height = 12
      Caption = #25340#38899#30721
    end
    object Label9: TLabel
      Left = 43
      Top = 40
      Width = 48
      Height = 12
      Caption = #36153#29992#20998#31867
    end
    object Label10: TLabel
      Left = 234
      Top = 40
      Width = 48
      Height = 12
      Caption = #30149#31181#20998#31867
    end
    object Edit1: TEdit
      Left = 103
      Top = 8
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 287
      Top = 8
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 1
    end
    object Button1: TButton
      Left = 429
      Top = 17
      Width = 75
      Height = 25
      Caption = #25628#32034
      TabOrder = 2
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 103
      Top = 35
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      KeyField = #32534#21495
      ListField = #36153#29992#20998#31867
      ListSource = DataSource1
      TabOrder = 3
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 287
      Top = 34
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      KeyField = #32534#21495
      ListField = #30149#31181#20998#31867
      ListSource = DataSource1
      TabOrder = 4
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 65
    Width = 526
    Height = 120
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 0
      Top = 2
      Width = 525
      Height = 120
      DataSource = DataSource1
      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
  end
  object Panel3: TPanel
    Left = -8
    Top = 184
    Width = 534
    Height = 75
    BevelInner = bvLowered
    TabOrder = 2
    object Label3: TLabel
      Left = 48
      Top = 15
      Width = 24
      Height = 12
      Caption = #32534#21495
      OnClick = Label3Click
    end
    object Label4: TLabel
      Left = 196
      Top = 16
      Width = 24
      Height = 12
      Caption = #21517#31216
    end
    object Label5: TLabel
      Left = 361
      Top = 15
      Width = 36
      Height = 12
      Caption = #25340#38899#30721
    end
    object Label6: TLabel
      Left = 48
      Top = 37
      Width = 24
      Height = 12
      Caption = #36153#29992
    end
    object Label7: TLabel
      Left = 176
      Top = 38
      Width = 48
      Height = 12
      Caption = #36153#29992#20998#31867
    end
    object Label8: TLabel
      Left = 348
      Top = 37
      Width = 48
      Height = 12
      Caption = #30149#31181#20998#31867
    end
    object DBEdit1: TDBEdit
      Left = 79
      Top = 11
      Width = 79
      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 = 79
      Top = 35
      Width = 79
      Height = 20
      DataField = #36153#29992
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 234
      Top = 34
      Width = 79
      Height = 20
      DataField = #36153#29992#20998#31867
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 407
      Top = 34
      Width = 79
      Height = 20
      DataField = #30149#31181#20998#31867
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 406
      Top = 10
      Width = 79
      Height = 20
      DataField = #25340#38899#30721
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 4
    end
    object DBEdit6: TDBEdit
      Left = 234
      Top = 10
      Width = 111
      Height = 20
      DataField = #21517#31216
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 5
    end
  end
  object MainMenu1: TMainMenu
    Left = 408
    Top = 112
    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 = 104
    Top = 113
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #38376#35786#25910#36153#39033#30446
    Left = 152
    Top = 113
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 200
    Top = 113
  end
end