学籍管理系统(6)

Adodc2.Recordset.Fields(\专业\ Adodc2.Recordset.Fields(\附注\ Adodc2.Recordset.Update 'Adodc2.Recordset.Close

MsgBox \修改学籍信息成功!\修改学籍信息\

' Adodc2.Recordset.Bookmark = mybookmark Command2.Enabled = True Command3.Enabled = True Command4.Enabled = True Command5.Enabled = True Command10.Enabled = True mcclean = True End If Exit Sub AddErr:

MsgBox Err.Description End Sub

Private Sub Command2_Click() On Error GoTo AddErr

Adodc2.Recordset.MoveFirst GradeRefresh Exit Sub AddErr:

MsgBox Err.Description End Sub

Private Sub Command3_Click() On Error GoTo AddErr

Adodc2.Recordset.MoveLast

25

GradeRefresh Exit Sub AddErr:

MsgBox Err.Description End Sub

MsgBox Err.Description End Sub

Private Sub Form_Load() MakeCenter FrmInput If UserType = False Then Command6.Enabled = False 'Command7.Enabled = False 'Command8.Enabled = False CmdUpdata.Enabled = False CmdBolish.Enabled = False ' CmdBolish.Enabled = False 'CmdUpdata.Enabled = False Command10.Enabled = False End If

mcclean = True

Set rs = cn.Execute(\课程名称,课程号 from 课程\ rs.MoveFirst Do

Combo4.AddItem rs.Fields(1).Value Combo2.AddItem rs.Fields(0).Value rs.MoveNext

26

Loop Until rs.EOF rs.Close Set rs = Nothing Combo1.AddItem \男\ Combo1.AddItem \女\ Combo3.AddItem \优异\ Combo3.AddItem \良好\ Combo3.AddItem \中等\ Combo3.AddItem \及格\ Combo3.AddItem \不及格\

' Adodc1.ConnectionString = \Access Driver (*.mdb)};\& _

' \

' \' \

' Adodc1.RecordSource = \学生与课程\ 'txtSQL = \学生\ 'Set mrc = cn.Execute(txtSQL)

'Data1.RecordSource = \课程号,课程名称,成绩,备注 FROM 学生与课程 where 学号=text1.text\

Adodc2.ConnectionString = \& _

\

\ \

Adodc2.RecordSource = \学生\ Text1.DataField = \学号\ Text2.DataField = \名字\

27

'Combo1.Text = Adodc2.Recordset.Fields(\性别\ Text3.DataField = \班级\ Text4.DataField = \出生年月\ Text5.DataField = \民族\ Text6.DataField = \父母姓名\ Text7.DataField = \地址\ Text8.DataField = \邮政编码\ Text9.DataField = \电话号码\ Text10.DataField = \院系\ ' Text11.DataField = \专业\ Text12.DataField = \附注\' Label3.DataField = \学生ID\GradeRefresh End Sub

Private Function checkcourse() As Boolean On Error GoTo errh

Set rs = cn.Execute(\课程 where 课程名称='\Trim(Combo2.Text) & \课程号='\ 'If Adodc2.Recordset.EOF Then 'Adodc2.Recordset.Close If rs.EOF Then rs.Close

checkcourse = False Exit Function End If

checkcourse = True rs.Close Exit Function errh: rs.Close

28

MsgBox Err.Description End Function 4.5信息录入管理模块

该模块可以实现添加成绩、课程和基本信息的录入功能。

1、基本信息录入窗口 设计窗口如下：

其代码如下： Option Explicit

Dim rs As New ADODB.Recordset Private Sub Command1_Click() On Error GoTo AddErr 'Text1.Enabled = True If Text1.Text = \

MsgBox \请输入学号!\警告\ Text1.SetFocus Exit Sub End If

If Text3.Text = \

MsgBox \请输入名字!\警告\ Text3.SetFocus

29