学生管理系统说明书 - 图文(3)

图3.2 学生成绩管理系统

代码如下：

Private Sub Image1_Click() End Sub

Private Sub mStuInfo_Click() Form3.Show End Sub

Private Sub 成绩信息录入_Click() Form3.Show End Sub

Private Sub 退出系统_Click() End End Sub

Private Sub 课程信息管理_Click() form4.Show End Sub

Private Sub 学生信息查询_Click() stusearch.Show End Sub

9

3.3.3学生信息管理的设计

该窗体能够实现学生成绩的录入，修改，删除及查询操作。 运行效果如下：

图3.3 学生信息管理

代码如下：

Private Sub Command1_Click()

On Error GoTo errorhandler '允许错误发生 If Text1.Text <> \

Adodc1.RecordSource = \学号='\& \

Adodc1.Refresh

If Adodc1.Recordset.RecordCount > 0 Then MsgBox \此人已登记！\提示信息\ Exit Sub End If

Adodc1.Recordset.AddNew

Adodc1.Recordset.Fields(\学号\ Adodc1.Recordset.Fields(\姓名\ Adodc1.Recordset.Fields(\性别\ Adodc1.Recordset.Fields(\专业\

MsgBox \添加成功!\提示信息\

10

Adodc1.Recordset.Update Exit Sub Exit Sub Else

MsgBox \请将数据添加完整!\提示信息\ End If

errorhandler: '允许错误发生的错误处理 If Err.Number = -2147467259 Then

MsgBox \无此类型，添加不成功。\提示信息\ 'Resume Next Exit Sub End If End Sub

Private Sub Command2_Click()

On Error GoTo errorhandler '允许错误发生 Adodc1.RecordSource = \ If Adodc1.Recordset.RecordCount = 0 Then MsgBox \没有该学号\提示信息\ Exit Sub End If

sure = MsgBox(\确定删除吗？\提示信息\ Select Case sure Case vbOK

Adodc1.Recordset.Delete Adodc1.Recordset.Update

MsgBox \记录已删除。\提示信息\ Text1.Text = \ Case vbCancel Exit Sub End Select Adodc1.Refresh

11

Exit Sub

errorhandler: '允许错误发生的错误处理 'If Err.Number = 91 Then 'Resume Next 'End If End Sub

Private Sub Command3_Click()

Adodc1.ConnectionString = \

Security=SSPI;Persist Security Info=False;Initial Catalog=PXSCJ;Data Source=XS18\

Adodc1.RecordSource = \学号='\Text1.Text & \

Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh Exit Sub End Sub

Private Sub Command4_Click() Form1.Show Unload Me End Sub

rivate Sub Image1_Click() End Sub

3.3.4.课程信息管理的设计

12

图3.4

代码如下：

Private Sub Command1_Click() Dim a As String Dim b As String Dim c As String Dim d As String a = Text1.Text b = Text2.Text c = Text3.Text d = Text4.Text