unit3.dfm

这是一个文档管理系统

object Form3: TForm3
  Left = 218
  Top = 133
  Width = 696
  Height = 480
  Caption = 'Form3'
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object GroupBox1: TGroupBox
    Left = 56
    Top = 32
    Width = 593
    Height = 193
    Caption = #26465#20214#26597#35810
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 27
      Height = 13
      AutoSize = False
      Caption = #23398#38498':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 56
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #19987#19994#21517#31216
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 10
      Top = 85
      Width = 47
      Height = 13
      AutoSize = False
      Caption = #22995#21517
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 8
      Top = 153
      Width = 41
      Height = 13
      AutoSize = False
      Caption = #24615#21035
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 312
      Top = 16
      Width = 65
      Height = 17
      AutoSize = False
      Caption = #20986#29983#26085#26399
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 312
      Top = 48
      Width = 65
      Height = 13
      AutoSize = False
      Caption = #25152#22312#24180#32423
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 312
      Top = 80
      Width = 57
      Height = 13
      AutoSize = False
      Caption = #25919#27835#38754#35980
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 312
      Top = 120
      Width = 49
      Height = 13
      AutoSize = False
      Caption = #27665#26063
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 8
      Top = 119
      Width = 41
      Height = 13
      AutoSize = False
      Caption = #23398#21495
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object ComboBox1: TComboBox
      Left = 72
      Top = 16
      Width = 169
      Height = 21
      Style = csDropDownList
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      Sorted = True
      TabOrder = 0
      OnChange = ComboBox1Select
      OnSelect = ComboBox1Select
    end
    object ComboBox2: TComboBox
      Left = 71
      Top = 48
      Width = 170
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 1
    end
    object Edit1: TEdit
      Left = 72
      Top = 82
      Width = 169
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object ComboBox3: TComboBox
      Left = 72
      Top = 148
      Width = 169
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 3
      Items.Strings = (
        #30007
        #22899)
    end
    object Edit2: TEdit
      Left = 376
      Top = 16
      Width = 177
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object ComboBox4: TComboBox
      Left = 376
      Top = 48
      Width = 177
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 5
      Items.Strings = (
        #19968#24180#32423
        #20108#24180#32423
        #19977#24180#32423
        #22235#24180#32423)
    end
    object ComboBox5: TComboBox
      Left = 376
      Top = 80
      Width = 177
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 6
      Items.Strings = (
        #22242#21592
        #20826#21592
        #38750)
    end
    object ComboBox6: TComboBox
      Left = 376
      Top = 112
      Width = 177
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 7
      Items.Strings = (
        #27721
        #22238
        #21704
        #32500
        #33495
        #22766)
    end
    object Edit3: TEdit
      Left = 72
      Top = 114
      Width = 168
      Height = 21
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
    end
    object Button4: TButton
      Left = 480
      Top = 152
      Width = 75
      Height = 25
      Caption = #26597#25214
      TabOrder = 9
      OnClick = Button4Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 56
    Top = 240
    Width = 593
    Height = 129
    Caption = #26597#35810#32467#26524
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 8
      Top = 16
      Width = 561
      Height = 105
      DataSource = s2
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clBlack
      TitleFont.Height = -13
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object Button1: TButton
    Left = 136
    Top = 400
    Width = 75
    Height = 25
    Caption = #23548#20986
    TabOrder = 2
  end
  object Button2: TButton
    Left = 320
    Top = 400
    Width = 75
    Height = 25
    Caption = #25171#21360
    TabOrder = 3
  end
  object Button3: TButton
    Left = 512
    Top = 400
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 4
    OnClick = Button3Click
  end
  object q: TADOQuery
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from jbxx')
    Left = 16
    Top = 192
  end
  object s1: TDataSource
    DataSet = t1
    Left = 16
    Top = 152
  end
  object t2: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'xyzy'
    Left = 16
    Top = 112
  end
  object t1: TADOTable
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    TableName = 'jbxx'
    Left = 24
    Top = 72
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Do' +
      'cuments and Settings\user\'#26700#38754'\'#26723#26696#31649#29702'\student.mdb;Mode=Share Deny No' +
      'ne;Extended Properties="";Persist Security Info=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 Password="";Jet OLEDB:Cre' +
      'ate System Database=False;Jet OLEDB:Encrypt Database=False;Jet O' +
      'LEDB:Don'#39't Copy Locale on Compact=False;Jet OLEDB:Compact Withou' +
      't Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 16
    Top = 32
  end
  object s2: TDataSource
    DataSet = q
    Left = 16
    Top = 248
  end
end