form8.frm

对学生的信息进行系统的管理,对查询学生的信息.查询学生的成绩.统计.也有对老师的一些简单的系统管理.

VERSION 5.00
Begin VB.Form Form8 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "成绩修改                                                                             "
   ClientHeight    =   3045
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   5010
   LinkTopic       =   "Form8"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3045
   ScaleWidth      =   5010
   ShowInTaskbar   =   0   'False
   Begin VB.Frame Frame1 
      Caption         =   "成绩修改"
      Height          =   2895
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   4815
      Begin VB.TextBox Text2 
         Height          =   270
         Left            =   1200
         TabIndex        =   11
         Top             =   2280
         Width           =   1695
      End
      Begin VB.TextBox Text1 
         Height          =   270
         Left            =   1200
         TabIndex        =   10
         Top             =   1680
         Width           =   1695
      End
      Begin VB.ComboBox Combo2 
         Height          =   300
         Left            =   1200
         TabIndex        =   9
         Top             =   1080
         Width           =   1695
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         Left            =   1200
         TabIndex        =   8
         Top             =   480
         Width           =   1695
      End
      Begin VB.CommandButton Command3 
         BackColor       =   &H00FF8080&
         Caption         =   "退出"
         Height          =   375
         Left            =   3600
         Style           =   1  'Graphical
         TabIndex        =   7
         Top             =   2160
         Width           =   735
      End
      Begin VB.CommandButton Command2 
         BackColor       =   &H00FF8080&
         Caption         =   "保存"
         Height          =   375
         Left            =   3600
         Style           =   1  'Graphical
         TabIndex        =   6
         Top             =   960
         Width           =   735
      End
      Begin VB.CommandButton Command1 
         BackColor       =   &H00FF8080&
         Caption         =   "修改"
         Height          =   375
         Left            =   3600
         Style           =   1  'Graphical
         TabIndex        =   5
         Top             =   480
         Width           =   735
      End
      Begin VB.Label Label4 
         Caption         =   "成绩："
         Height          =   255
         Left            =   480
         TabIndex        =   4
         Top             =   2280
         Width           =   615
      End
      Begin VB.Label Label3 
         Caption         =   "学期："
         Height          =   255
         Left            =   480
         TabIndex        =   3
         Top             =   1680
         Width           =   735
      End
      Begin VB.Label Label2 
         Caption         =   "课程："
         Height          =   255
         Left            =   480
         TabIndex        =   2
         Top             =   1080
         Width           =   855
      End
      Begin VB.Label Label1 
         Caption         =   "学号："
         Height          =   255
         Left            =   480
         TabIndex        =   1
         Top             =   480
         Width           =   855
      End
   End
End
Attribute VB_Name = "Form8"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Cmd1 As New ADODB.Command
Dim Cmd2 As New ADODB.Command
Dim Conn2 As New ADODB.Connection
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
Sub Wangjun()
Dim Txtsql As String
'Set Cmd.ActiveConnection = Conn
Txtsql = "select * from 成绩表 where 学号= '" & Trim(Combo1.Text) & "'and 课程 = '" & Trim(Combo2.Text) & "'"
'Cmd.CommandText = Txtsql
'Cmd.CommandType = adCmdText
'Set Rs = Cmd.Execute
Set Rs = ExecuteSQL(Txtsql) 'ggggggggggggggggggggggggggggggggggggggggggggggggggggggggggg
Text1.Text = Rs("学期")
Text2.Text = Rs("成绩")
End Sub

Private Sub Combo2_LostFocus()
Call Wangjun
End Sub

Private Sub Command2_Click()
Rs("成绩") = Text2.Text
Rs("学期") = Text1.Text
Rs.Update
Text1.Text = ""
Text2.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Text1.Enabled = False
Text2.Enabled = False
Combo1.Enabled = False
Combo2.Enabled = False
Command1.Enabled = True
Command2.Enabled = False
End Sub

Private Sub Command3_Click()
Unload Me
Conn.Close
End Sub

Private Sub Command1_Click()
Dim Txtsql1 As String
Dim Txtsql2 As String

'Dim Mrc1 As ADODB.Recordset
'Dim Mrc2 As ADODB.Recordset

'Set Cmd1.ActiveConnection = Conn
'Set Cmd2.ActiveConnection = Conn

Txtsql1 = "select 学号 from 学生基本信息表"
'Cmd1.CommandText = Txtsql1
'Cmd1.CommandType = adCmdText
'Set Mrc1 = Cmd1.Execute
Set Mrc1 = ExecuteSQL(Txtsql1)
Do While Not Mrc1.EOF
    Combo1.AddItem Mrc1("学号")
    Mrc1.MoveNext
Loop                                      '学号和课程的下拉框都用数据表中的字段

Txtsql2 = "select 课程名称 from 课程表"
'Cmd2.CommandText = Txtsql2
'Cmd2.CommandType = adCmdText
'Set Mrc2 = Cmd2.Execute
Set Mrc2 = ExecuteSQL(Txtsql2)
Do While Not Mrc2.EOF
    Combo2.AddItem Mrc2("课程名称")
    Mrc2.MoveNext
Loop
                                                                              
Combo1.Enabled = True
Combo2.Enabled = True
Text1.Enabled = True
Text2.Enabled = True
Command1.Enabled = False
Command2.Enabled = True
End Sub

Private Sub Form_Load()
Combo1.Enabled = False
Combo2.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\学生信息管理.mdb"
Conn.Open connstr
'Rs.Open "成绩表", Conn, adOpenKeyset, adLockPessimistic
Combo1.Text = ""
Combo2.Text = ""
Combo1.Enabled = False
Combo2.Enabled = False
Text1.Enabled = False
Text2.Enabled = False
Command2.Enabled = False
Combo1.Text = "请选择"
Combo2.Text = "请选择"
End Sub