unit2.~dfm

SQL server 2000 + Delphi 7 做的学生管理及综合积分测评系统。

          Top = 240
          Width = 75
          Height = 25
          Caption = #20462#25913
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 10
          OnClick = Button12Click
        end
        object Button15: TButton
          Left = 104
          Top = 240
          Width = 75
          Height = 25
          Caption = #37325#32622
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 11
          OnClick = Button15Click
        end
      end
      object GroupBox9: TGroupBox
        Left = 208
        Top = 16
        Width = 193
        Height = 321
        Caption = #28155#21152#29992#25143
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object StaticText47: TStaticText
          Left = 16
          Top = 32
          Width = 56
          Height = 20
          Caption = #29992#25143#31867#22411
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
        end
        object ComboBox18: TComboBox
          Left = 72
          Top = 32
          Width = 97
          Height = 21
          Style = csDropDownList
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          ItemIndex = 0
          ParentFont = False
          TabOrder = 1
          Text = #25805#20316#29992#25143
          Items.Strings = (
            #25805#20316#29992#25143
            #26597#35810#29992#25143)
        end
        object StaticText48: TStaticText
          Left = 24
          Top = 72
          Width = 43
          Height = 20
          Caption = #29992#25143#21517
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 2
        end
        object Edit22: TEdit
          Left = 72
          Top = 72
          Width = 97
          Height = 21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          Text = 'Edit22'
        end
        object StaticText49: TStaticText
          Left = 40
          Top = 112
          Width = 30
          Height = 20
          Caption = #23494#30721
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 4
        end
        object Edit23: TEdit
          Left = 72
          Top = 112
          Width = 97
          Height = 21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
          Text = 'Edit23'
        end
        object StaticText50: TStaticText
          Left = 16
          Top = 152
          Width = 56
          Height = 20
          Caption = #30830#35748#23494#30721
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 6
        end
        object Edit24: TEdit
          Left = 72
          Top = 152
          Width = 97
          Height = 21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 7
          Text = 'Edit24'
        end
        object Button16: TButton
          Left = 16
          Top = 240
          Width = 75
          Height = 25
          Caption = #28155#21152
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 8
          OnClick = Button16Click
        end
        object Button17: TButton
          Left = 104
          Top = 240
          Width = 75
          Height = 25
          Caption = #37325#32622
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 9
          OnClick = Button17Click
        end
      end
      object GroupBox10: TGroupBox
        Left = 408
        Top = 16
        Width = 193
        Height = 105
        Caption = #21024#38500#29992#25143
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        object StaticText51: TStaticText
          Left = 16
          Top = 32
          Width = 56
          Height = 20
          Caption = #29992#25143#21015#34920
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 0
        end
        object Button18: TButton
          Left = 96
          Top = 64
          Width = 75
          Height = 25
          Caption = #21024#38500
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 1
          OnClick = Button18Click
        end
        object DBLookupComboBox2: TDBLookupComboBox
          Left = 72
          Top = 32
          Width = 97
          Height = 21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          KeyField = #29992#25143#21517
          ListSource = DataSource10
          ParentFont = False
          TabOrder = 2
        end
      end
      object GroupBox11: TGroupBox
        Left = 408
        Top = 128
        Width = 193
        Height = 209
        Caption = #31649#29702#21592#20462#25913#23494#30721
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        object StaticText52: TStaticText
          Left = 16
          Top = 24
          Width = 43
          Height = 20
          Caption = #29992#25143#21517
          TabOrder = 0
        end
        object Edit25: TEdit
          Left = 64
          Top = 24
          Width = 89
          Height = 21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          Text = 'Edit25'
        end
        object StaticText53: TStaticText
          Left = 16
          Top = 56
          Width = 43
          Height = 20
          Caption = #26087#23494#30721
          TabOrder = 2
        end
        object Edit26: TEdit
          Left = 64
          Top = 56
          Width = 89
          Height = 21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          Text = 'Edit26'
        end
        object StaticText54: TStaticText
          Left = 16
          Top = 88
          Width = 43
          Height = 20
          Caption = #26032#23494#30721
          TabOrder = 4
        end
        object Edit27: TEdit
          Left = 64
          Top = 88
          Width = 89
          Height = 21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
          Text = 'Edit27'
        end
        object StaticText55: TStaticText
          Left = 8
          Top = 120
          Width = 56
          Height = 20
          Caption = #30830#35748#23494#30721
          TabOrder = 6
        end
        object Edit28: TEdit
          Left = 64
          Top = 120
          Width = 89
          Height = 21
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 7
          Text = 'Edit28'
        end
        object Button20: TButton
          Left = 16
          Top = 160
          Width = 75
          Height = 25
          Caption = #20462#25913
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 8
          OnClick = Button20Click
        end
        object Button21: TButton
          Left = 104
          Top = 160
          Width = 75
          Height = 25
          Caption = #37325#32622
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          TabOrder = 9
        end
      end
    end
  end
  object StaticText24: TStaticText
    Left = 440
    Top = 32
    Width = 4
    Height = 4
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 356
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 348
    Top = 32
  end
  object ADOCommand1: TADOCommand
    Connection = ADOConnection1
    Parameters = <>
    Left = 324
    Top = 32
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 384
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 372
    Top = 32
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security In' +
      'fo=False;Initial Catalog='#32508#21512#31215#20998#27979#35780#31995#32479';Data Source=GHB-34273036738'
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 328
  end
  object ADOQuery3: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#35838#31243)
    Left = 412
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery3
    Left = 396
    Top = 32
  end
  object ADOQuery4: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 436
  end
  object DataSource4: TDataSource
    DataSet = ADOQuery4
    Left = 420
    Top = 32
  end
  object ADOQuery5: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from '#35838#22806#32771#35780)
    Left = 464
  end
  object DataSource5: TDataSource
    DataSet = ADOQuery5
    Left = 444
    Top = 32
  end
  object ADOQuery6: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 488
  end
  object DataSource6: TDataSource
    DataSet = ADOQuery6
    Left = 468
    Top = 32
  end
  o