成绩修改.frm

学生信息管理,满足学生的登陆

VERSION 5.00
Begin VB.Form Form8 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "成绩修改                                                                             "
   ClientHeight    =   3555
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   7485
   LinkTopic       =   "Form8"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3555
   ScaleWidth      =   7485
   ShowInTaskbar   =   0   'False
   Begin VB.TextBox Text2 
      Height          =   315
      Left            =   4800
      TabIndex        =   8
      Top             =   480
      Width           =   1905
   End
   Begin VB.ComboBox Combo2 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      ItemData        =   "成绩修改.frx":0000
      Left            =   1035
      List            =   "成绩修改.frx":0002
      TabIndex        =   7
      Top             =   1440
      Width           =   1740
   End
   Begin VB.ComboBox Combo1 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   360
      ItemData        =   "成绩修改.frx":0004
      Left            =   1080
      List            =   "成绩修改.frx":0006
      TabIndex        =   6
      Top             =   480
      Width           =   1740
   End
   Begin VB.CommandButton Command3 
      Caption         =   "退出"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   525
      Left            =   4920
      TabIndex        =   5
      Top             =   2280
      Width           =   915
   End
   Begin VB.CommandButton Command2 
      Caption         =   "保存"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   525
      Left            =   1800
      TabIndex        =   4
      Top             =   2280
      Width           =   915
   End
   Begin VB.CommandButton Command1 
      Caption         =   "修改"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   525
      Left            =   480
      TabIndex        =   3
      Top             =   2280
      Width           =   915
   End
   Begin VB.Label Label4 
      Caption         =   "分数:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      Left            =   3960
      TabIndex        =   2
      Top             =   480
      Width           =   795
   End
   Begin VB.Label Label2 
      Caption         =   "课程:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   360
      TabIndex        =   1
      Top             =   1560
      Width           =   795
   End
   Begin VB.Label Label1 
      Caption         =   "学号:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   285
      Left            =   360
      TabIndex        =   0
      Top             =   480
      Width           =   795
   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 tongxuanlei
End Sub

Private Sub Command2_Click()
If Text1.Text = "" Or Text2.Text = "" Then
    MsgBox "请输入学期或成绩！", vbOKOnly, "出错啦！"
    Exit Sub
End If
Rs("成绩") = Text2.Text
Rs("学期") = Text1.Text
Rs.Update
Text1.Text = ""
Text2.Text = ""
Combo1.Text = "请选择"
Combo2.Text = "请选择"
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
Txtsql1 = "select 学号 from 学生基本信息表"
'Cmd1.CommandText = Txtsql1
'Cmd1.CommandType = adCmdText
'Set Mrc1 = Cmd1.Execute
Set Mrc1 = ExecuteSQL(Txtsql1)    'ghfffffffggggggggggggggggggggggggggggggggggggggggggggggg
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) 'gggggggggggggggggggggggggggggggggggggggggggggggggggggggggg
Do While Not Mrc2.EOF
    Combo2.AddItem Mrc2("课程")
    Mrc2.MoveNext
Loop
                                                                              
Combo1.Enabled = True
Combo2.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
Text2.Enabled = False
Command2.Enabled = False
Combo1.Text = "请选择"
Combo2.Text = "请选择"
End Sub