unit4.dfm

一个简单的医疗查询系统

object Form4: TForm4
  Left = 236
  Top = 168
  Width = 587
  Height = 383
  BorderIcons = [biSystemMenu]
  Caption = #21307#29983#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 Label9: TLabel
    Left = 223
    Top = 17
    Width = 24
    Height = 12
    Caption = #22995#21517
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 579
    Height = 254
    BevelInner = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 32
      Top = 16
      Width = 24
      Height = 12
      Caption = #32534#21495
    end
    object Label2: TLabel
      Left = 224
      Top = 15
      Width = 24
      Height = 12
      Caption = #22995#21517
    end
    object Label3: TLabel
      Left = 32
      Top = 47
      Width = 24
      Height = 12
      Caption = #25340#38899
    end
    object Label4: TLabel
      Left = 224
      Top = 46
      Width = 24
      Height = 12
      Caption = #32844#31216
    end
    object Label5: TLabel
      Left = 392
      Top = 16
      Width = 24
      Height = 12
      Caption = #31185#23460
    end
    object Edit1: TEdit
      Left = 62
      Top = 13
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 254
      Top = 12
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 1
    end
    object Edit3: TEdit
      Left = 62
      Top = 45
      Width = 121
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 2
    end
    object Button1: TButton
      Left = 470
      Top = 37
      Width = 75
      Height = 25
      Caption = #25628#32034
      TabOrder = 3
    end
    object DBGrid1: TDBGrid
      Left = 5
      Top = 70
      Width = 572
      Height = 182
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 4
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 432
      Top = 11
      Width = 145
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      KeyField = #32534#21495
      ListField = #31185#23460
      ListSource = DataSource1
      TabOrder = 5
      OnClick = DBLookupComboBox1Click
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 254
      Top = 43
      Width = 145
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      KeyField = #32534#21495
      ListField = #32844#31216
      ListSource = DataSource1
      TabOrder = 6
      OnClick = DBLookupComboBox2Click
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 253
    Width = 579
    Height = 77
    BevelInner = bvLowered
    TabOrder = 1
    object Label6: TLabel
      Left = 41
      Top = 19
      Width = 24
      Height = 12
      Caption = #32534#21495
    end
    object Label7: TLabel
      Left = 41
      Top = 44
      Width = 24
      Height = 12
      Caption = #25340#38899
    end
    object Label8: TLabel
      Left = 223
      Top = 17
      Width = 24
      Height = 12
      Caption = #22995#21517
    end
    object Label10: TLabel
      Left = 223
      Top = 43
      Width = 24
      Height = 12
      Caption = #32844#31216
    end
    object Label11: TLabel
      Left = 420
      Top = 17
      Width = 24
      Height = 12
      Caption = #31185#23460
    end
    object DBEdit1: TDBEdit
      Left = 72
      Top = 16
      Width = 121
      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 = 256
      Top = 14
      Width = 121
      Height = 20
      DataField = #22995#21517
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 453
      Top = 14
      Width = 104
      Height = 20
      DataField = #31185#23460
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 2
    end
    object DBEdit4: TDBEdit
      Left = 72
      Top = 41
      Width = 121
      Height = 20
      DataField = #25340#38899
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 256
      Top = 40
      Width = 121
      Height = 20
      DataField = #32844#31216
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
      TabOrder = 4
    end
  end
  object MainMenu1: TMainMenu
    Left = 472
    Top = 120
    object N1: TMenuItem
      Caption = #36755#20986
      object N2: TMenuItem
        Caption = #25171#21360#21307#29983#20449#24687
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object N4: TMenuItem
        Caption = #23548#20986#21307#29983#20449#24687
      end
    end
    object N5: TMenuItem
      Caption = #20851#38381
      OnClick = N5Click
    end
  end
  object MainMenu2: TMainMenu
    Left = 472
    Top = 120
    object MenuItem1: TMenuItem
      Caption = #36755#20986
      object MenuItem2: TMenuItem
        Caption = #25171#21360#21307#29983#20449#24687
      end
      object MenuItem3: TMenuItem
        Caption = '-'
      end
      object MenuItem4: TMenuItem
        Caption = #23548#20986#21307#29983#20449#24687
      end
    end
    object MenuItem5: TMenuItem
      Caption = #20851#38381
      OnClick = N5Click
    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 = 160
    Top = 120
  end
  object ADOTable1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = #21307#29983#36164#26009
    Left = 208
    Top = 120
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 248
    Top = 120
  end
end