unit4.dfm.~56~

《Delphi程序员成长攻略》-蒙祖强龚涛的源代码

object Form4: TForm4
  Left = 0
  Top = 0
  Width = 514
  Height = 539
  Caption = #25104#32489#26597#35810#32479#35745
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid1: TDBGrid
    Left = 8
    Top = 8
    Width = 489
    Height = 169
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 192
    Width = 241
    Height = 249
    Caption = #35774#32622#26597#35810#19982#32479#35745#26465#20214#65306
    TabOrder = 1
    object Label6: TLabel
      Left = 15
      Top = 124
      Width = 74
      Height = 25
      AutoSize = False
      Caption = #25104#32489#31561#32423#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 46
      Top = 163
      Width = 42
      Height = 25
      AutoSize = False
      Caption = #29677#32423#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 43
      Top = 45
      Width = 42
      Height = 25
      AutoSize = False
      Caption = #23398#21495#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 45
      Top = 83
      Width = 42
      Height = 25
      AutoSize = False
      Caption = #22995#21517#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 92
      Top = 40
      Width = 121
      Height = 21
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 93
      Top = 80
      Width = 121
      Height = 21
      TabOrder = 1
    end
    object Edit3: TEdit
      Left = 93
      Top = 160
      Width = 121
      Height = 21
      TabOrder = 2
    end
    object Button1: TButton
      Left = 127
      Top = 210
      Width = 105
      Height = 25
      Caption = #25191' '#34892' '#26597' '#35810
      TabOrder = 3
      OnClick = Button1Click
    end
    object ComboBox1: TComboBox
      Tag = 6
      Left = 93
      Top = 120
      Width = 125
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 4
      Items.Strings = (
        '('#31354#20540')'
        #20248#31168'(90-100)'
        #33391#22909'(80-89)'
        #20013#31561'(70-79)'
        #21450#26684'(60-69)'
        #19981#21450#26684'(60'#20197#19979')')
    end
  end
  object GroupBox2: TGroupBox
    Left = 264
    Top = 192
    Width = 233
    Height = 249
    Caption = #26597#35810#32467#26524#65306
    TabOrder = 2
    object Memo1: TMemo
      Left = 8
      Top = 16
      Width = 201
      Height = 217
      Lines.Strings = (
        'Memo1')
      ScrollBars = ssBoth
      TabOrder = 0
    end
  end
  object Button2: TButton
    Left = 14
    Top = 402
    Width = 104
    Height = 25
    Caption = #26174#31034#25152#26377#25968#25454
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 422
    Top = 464
    Width = 75
    Height = 25
    Caption = #25512'    '#20986
    TabOrder = 4
    OnClick = Button3Click
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 440
    Top = 40
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'AccessDSN'
    SQL.Strings = (
      'select * from student')
    Left = 440
    Top = 96
  end
end