数据库 学生管理系统

ssno = \

If ckbSno.Value = 1 Then ssno = \End If

ssname = \

If ckbSname.Value = 1 Then

ssname = \End If

smname = \

If ckbMajor.Value = 1 Then

smname = \End If stmp = \

If ssno <> \If ssname <> \

stmp = ssno + \If smname <> \

stmp = stmp + \End If Else

If smname <> \

stmp = ssno + \Else

stmp = ssno End If End If Else

If ssname <> \If smname <> \

stmp = ssname + \Else

stmp = ssname End If Else

stmp = smname End If End If

If Trim(stmp) <> \

strsql = strsql + \End If

gradeADO.ConnectionString = getconnstring gradeADO.RecordSource = strsql gradeADO.Refresh End Sub

18

Private Sub cmdUpdate_Click() Dim scno, ssql As String If Trim(sNo.Text) = \

Call MsgBox(\请选择学生！\提示\Exit Sub End If

If Trim(cbxCourse.Text) = \

Call MsgBox(\请选择输入课程名！\提示\cbxCourse.SetFocus Exit Sub End If

If Trim(txtGrade.Text) = \

Call MsgBox(\请输入该学生的课程成绩！\提示\txtGrade.SetFocus Exit Sub End If scno = \

Set sqlrs = execsql(\If Not sqlrs.EOF Then scon = Trim(sqlrs(\End If sqlrs.Close

If scno = \

Call MsgBox(\不存在该课程，请重新选择！\提示\cbxCourse.SetFocus Exit Sub End If

Set sqlrs = execsql(\scno + \

If Not sqlrs.EOF Then

If Int(Trim(sqlrs(\更新

ssql = \

ssql = ssql + \Else '插入 ssql = \

ssql = ssql + \End If sqlrs.Close execsql (ssql)

Call MsgBox(\保存成功！\提示\gradeADO.Refresh End If End Sub

19

'Option Explicit

'Dim WithEvents db As ADODB.Recordset Private Sub Form_Load() 'Set db = adodc1.Recordset

Set sqlrs = execsql(\While Not sqlrs.EOF

cbxMajor.AddItem (sqlrs(\sqlrs.MoveNext Wend

sqlrs.Close

Set sqlrs = execsql(\While Not sqlrs.EOF

cbxCourse.AddItem (sqlrs(\sqlrs.MoveNext Wend

sqlrs.Close End Sub

'Private Sub gradeADO_willmove(ByVal adreason As ADODB.EventReasonEnum, ByVal perror As ADODB.Error, adstatus As ADODB.EventStatusEnum, ByVal precordset As ADODB.Recordset)

Private Sub db_MoveComplete(ByVal adreason As ADODB.EventReasonEnum, ByVal perror As ADODB.Error, adstatus As ADODB.EventStatusEnum, ByVal precordset As ADODB.Recordset) If Not precordset.EOF And Not precordset.BOF Then sNo.Text = precordset(\sName.Text = \

If precordset(\cbxCourse.Text = \

If precordset(\txtGrade.Text = \

If precordset(\studentno = precordset(\course = \

If precordset(\cmdDelete.Enabled = False

If studentno <> \End If End Sub

Private Sub gradeDataGrid_Click()

End Sub

20

4.2.7、学生成绩的查询实现

在以上的窗体功能建立成功后，录入相应的数据后便可以进行成绩查询了，通过输入相应的信息进行查询

部分程序代码如下：

Private Sub cmdFind_Click() Dim strsql, stmp As String Dim strsno, ssno As String

Dim strsname, ssname As String Dim strmname, smname As String strsno = Trim(txtSno.Text)

strsname = Trim(txtSname.Text) strmname = Trim(cbxMajor.Text)

strsql = \ssno = \

If ckbSno.Value = 1 Then ssno = \End If

ssname = \

If ckbSname.Value = 1 Then

ssname = \End If

21