unit4.~dfm

学生管理系统(delphi7.0+sql2000) 对学生基本信息,学生成绩,课程进行插,删,改功能

object Form4: TForm4
  Left = 530
  Top = 240
  Width = 699
  Height = 542
  Caption = #22522#26412#20449#24687#26597#35810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 691
    Height = 507
    Align = alClient
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 2
      Top = 138
      Width = 687
      Height = 367
      Align = alBottom
      DataSource = DataSource1
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object GroupBox2: TGroupBox
      Left = 8
      Top = 16
      Width = 169
      Height = 105
      Caption = #31934#30830#26597#35810
      TabOrder = 1
      object Label1: TLabel
        Left = 5
        Top = 24
        Width = 36
        Height = 13
        Caption = #23398#21495#65306
      end
      object Edit1: TEdit
        Left = 40
        Top = 16
        Width = 121
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        MaxLength = 10
        TabOrder = 0
        OnKeyPress = Edit1KeyPress
      end
      object Button1: TButton
        Left = 46
        Top = 64
        Width = 75
        Height = 25
        Caption = #26597#35810
        TabOrder = 1
        OnClick = Button1Click
      end
    end
    object GroupBox3: TGroupBox
      Left = 192
      Top = 16
      Width = 489
      Height = 105
      Caption = #27169#31946#26597#35810
      TabOrder = 2
      object SpeedButton1: TSpeedButton
        Left = 408
        Top = 16
        Width = 73
        Height = 25
        Caption = #26597#35810' '
        OnClick = SpeedButton1Click
      end
      object Label2: TLabel
        Left = 8
        Top = 24
        Width = 36
        Height = 13
        Caption = #23398#21495#65306
      end
      object Label3: TLabel
        Left = 192
        Top = 24
        Width = 36
        Height = 13
        Caption = #22995#21517#65306
      end
      object Label4: TLabel
        Left = 0
        Top = 72
        Width = 60
        Height = 13
        Caption = #25152#22312#29677#32423#65306
      end
      object Label5: TLabel
        Left = 192
        Top = 64
        Width = 60
        Height = 13
        Caption = #25152#23398#19987#19994'    '
      end
      object Button2: TButton
        Left = 406
        Top = 64
        Width = 75
        Height = 25
        Caption = #36820#22238
        TabOrder = 0
        OnClick = Button2Click
      end
      object Edit2: TEdit
        Left = 64
        Top = 16
        Width = 121
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        MaxLength = 20
        TabOrder = 1
      end
      object Edit3: TEdit
        Left = 264
        Top = 16
        Width = 121
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        MaxLength = 20
        TabOrder = 2
      end
      object Edit4: TEdit
        Left = 64
        Top = 64
        Width = 121
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        MaxLength = 20
        TabOrder = 3
      end
      object Edit5: TEdit
        Left = 264
        Top = 56
        Width = 121
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
        MaxLength = 20
        TabOrder = 4
      end
    end
  end
  object ADOConnection1: TADOConnection
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog=xueshengguanli'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 504
    Top = 240
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 552
    Top = 240
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 608
    Top = 240
  end
end