unit4.dfm

这是一个文档管理系统

object Form4: TForm4
  Left = 267
  Top = 160
  Width = 696
  Height = 480
  Caption = #25104#32489#26597#35810
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 32
    Top = 24
    Width = 633
    Height = 113
    Caption = #26597#35810
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -19
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 39
      Width = 49
      Height = 25
      AutoSize = False
      Caption = #23398#21495
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 312
      Top = 39
      Width = 65
      Height = 25
      AutoSize = False
      Caption = #35838#31243#21495
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 83
      Top = 34
      Width = 182
      Height = 28
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 392
      Top = 35
      Width = 169
      Height = 28
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
  end
  object GroupBox2: TGroupBox
    Left = 32
    Top = 160
    Width = 633
    Height = 217
    Caption = #26597#35810#32467#26524
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 8
      Top = 16
      Width = 609
      Height = 185
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object Button1: TButton
    Left = 584
    Top = 104
    Width = 75
    Height = 25
    Caption = #26597#35810
    TabOrder = 2
  end
  object Button2: TButton
    Left = 121
    Top = 400
    Width = 75
    Height = 25
    Caption = #23548#20986
    TabOrder = 3
  end
  object Button3: TButton
    Left = 297
    Top = 400
    Width = 75
    Height = 25
    Caption = #25171#21360
    TabOrder = 4
  end
  object Button4: TButton
    Left = 481
    Top = 400
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 5
    OnClick = Button4Click
  end
  object DataSource1: TDataSource
    DataSet = a2
    Top = 192
  end
  object a2: TADOQuery
    Active = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Se' +
      'ttings\user\'#26700#38754'\'#26723#26696#31649#29702'\student.mdb;Persist Security Info=False'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from grade')
    Top = 232
  end
end