unit1.dfm

用delphi编写的本草纲目查询系统 还没完善 不过能够基本操作了

object Form1: TForm1
  Left = 209
  Top = 119
  Width = 794
  Height = 591
  Caption = #26412#33609#32434#30446#26597#35810#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label9: TLabel
    Left = 640
    Top = 48
    Width = 132
    Height = 13
    Caption = #35831#36755#20837#24744#35201#26597#35810#30340#33647#21517#65306
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 8
    Width = 609
    Height = 385
    Caption = #19987#19994#26597#35810
    TabOrder = 0
    object Label1: TLabel
      Left = 40
      Top = 40
      Width = 60
      Height = 13
      Caption = #33647#21697#21517#31216#65306
    end
    object Label2: TLabel
      Left = 40
      Top = 96
      Width = 36
      Height = 13
      Caption = #27668#21619#65306
    end
    object Label3: TLabel
      Left = 272
      Top = 88
      Width = 36
      Height = 13
      Caption = #33647#25928#65306
    end
    object Label4: TLabel
      Left = 272
      Top = 160
      Width = 108
      Height = 13
      Caption = #19982#27492#33647#30456#20114#20914#31361#30340#65306
    end
    object Label5: TLabel
      Left = 272
      Top = 240
      Width = 135
      Height = 13
      Caption = ' '#19982#27492#33647#21487#20197#22686#24378#33647#24615#30340#65306
    end
    object Label6: TLabel
      Left = 40
      Top = 160
      Width = 60
      Height = 13
      Caption = #26377#26080#27602#24615#65306
    end
    object Label7: TLabel
      Left = 272
      Top = 312
      Width = 84
      Height = 13
      Caption = #27492#33647#21487#20197#35299#27602#65306
    end
    object Label8: TLabel
      Left = 272
      Top = 40
      Width = 36
      Height = 13
      Caption = #21448#21517#65306
    end
    object RadioGroup1: TRadioGroup
      Left = 24
      Top = 176
      Width = 225
      Height = 169
      Caption = #20027#27835
      TabOrder = 0
    end
    object DBEdit1: TDBEdit
      Left = 112
      Top = 40
      Width = 121
      Height = 21
      DataField = #33647#21697#21517#31216
      DataSource = DataSource1
      TabOrder = 1
    end
    object DBEdit2: TDBEdit
      Left = 112
      Top = 88
      Width = 121
      Height = 21
      DataField = #27668#21619
      DataSource = DataSource1
      TabOrder = 2
    end
    object DBEdit3: TDBEdit
      Left = 112
      Top = 152
      Width = 121
      Height = 21
      DataField = #26159#21542#26377#27602#24615
      DataSource = DataSource1
      TabOrder = 3
    end
    object DBEdit4: TDBEdit
      Left = 440
      Top = 88
      Width = 121
      Height = 21
      DataSource = DataSource1
      TabOrder = 4
    end
    object DBEdit9: TDBEdit
      Left = 440
      Top = 40
      Width = 121
      Height = 21
      DataField = #21448#21517
      DataSource = DataSource1
      TabOrder = 5
    end
    object DBMemo1: TDBMemo
      Left = 440
      Top = 160
      Width = 129
      Height = 49
      DataField = #19982#27492#33647#30456#20114#20914#31361#30340
      DataSource = DataSource1
      TabOrder = 6
    end
    object DBMemo2: TDBMemo
      Left = 40
      Top = 200
      Width = 185
      Height = 137
      DataField = #20027#27835
      DataSource = DataSource1
      TabOrder = 7
    end
    object DBMemo3: TDBMemo
      Left = 440
      Top = 232
      Width = 129
      Height = 49
      DataField = #19982#27492#33647#22686#24378#33647#25928#30340
      DataSource = DataSource1
      TabOrder = 8
    end
    object DBMemo4: TDBMemo
      Left = 440
      Top = 304
      Width = 129
      Height = 41
      DataField = #27492#33647#21487#35299#30340#27602
      DataSource = DataSource1
      TabOrder = 9
    end
    object DBNavigator1: TDBNavigator
      Left = 40
      Top = 352
      Width = 240
      Height = 25
      DataSource = DataSource1
      TabOrder = 10
    end
  end
  object Button1: TButton
    Left = 664
    Top = 128
    Width = 75
    Height = 25
    Caption = #24320#22987#26597#35810
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 664
    Top = 360
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 2
    OnClick = Button2Click
  end
  object DBGrid1: TDBGrid
    Left = 40
    Top = 408
    Width = 689
    Height = 120
    DataSource = DataSource1
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Button3: TButton
    Left = 664
    Top = 200
    Width = 75
    Height = 25
    Caption = #28155#21152
    TabOrder = 4
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 664
    Top = 280
    Width = 75
    Height = 25
    Caption = #21024#38500
    TabOrder = 5
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 664
    Top = 240
    Width = 75
    Height = 25
    Caption = #20462#25913
    TabOrder = 6
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 664
    Top = 320
    Width = 75
    Height = 25
    Caption = #20445#23384
    TabOrder = 7
    OnClick = Button6Click
  end
  object Edit1: TEdit
    Left = 664
    Top = 88
    Width = 89
    Height = 21
    TabOrder = 8
  end
  object ADOQuery1: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from bencao')
    Left = 200
    Top = 464
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Do' +
      'cuments and Settings\Administrator\'#26700#38754'\'#26412#33609#32434#30446#26597#35810#31995#32479'\bencaogangmu.mdb;' +
      'Mode=Share Deny None;Extended Properties="";Persist Security Inf' +
      'o=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";' +
      'Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB' +
      ':Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet' +
      ' OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Passwor' +
      'd="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Da' +
      'tabase=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet OL' +
      'EDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 328
    Top = 472
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 376
    Top = 440
  end
end