学籍管理系统(3)

Private Sub cmdCancel_Click() 'set the global var to false 'to denote a failed login LoginSucceeded = False Unload Me End Sub

Private Sub cmdOK_Click() On Error GoTo errh:

Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset

Set rs = cn.Execute(\超级用户 \ If rs.EOF Then rs.Close

Set rs = Nothing Unload Me Load FrmMain Exit Sub End If

rs.MoveFirst Dim i As Integer '校验是否为超级用户 Do

If rs.Fields(\ If rs.Fields(\ UserType = True

LoginSucceeded = True rs.Close

If txtPassword.Text = \ Unload Me Load FrmMain Exit Sub Exit Do End If End If

rs.MoveNext Loop Until rs.EOF '校验是否为普通用户

Set rs = cn.Execute(\学号 FROM 学生 WHERE 学号 =\& \& txtPassword.Text & \ If rs.EOF Then

MsgBox \无效密码或用户名请重试!\ txtPassword.SetFocus

10

SendKeys \ Else

rs.Close

UserType = False

LoginSucceeded = True Unload Me Load FrmMain End If Exit Sub errh:

MsgBox Err.Description End Sub

4．2系统主界面：

本模块是本系统的应用界面，在本界面上集成了本系统的所有功能，共有6个功能菜单，从而实现了系统管理、查看和修改、信息录入、查询四项功能，其中又8个子菜单。通过执行各个菜单命令可以进入各模块功能系统。

学籍管理系统主界面的设计效果

编写代码如下： Option Explicit Private Sub Form_Load() MakeCenter FrmMain If UserType = True Then

Me.Caption = Me.Caption + \超级用户]\ Else

11

Me.Caption = Me.Caption + \一般用户]\ menu3.Enabled = False ' Command4.Enabled = False menu1.Enabled = False menu5.Enabled = False

' Label5.ForeColor = &H8000000C ' Label4.ForeColor = &H8000000C 'Label8.ForeColor = &H8000000C End If Me.Show End Sub

Private Sub menu2_Click() FrmView.Show End Sub

Private Sub menu34_Click() On Error GoTo errh DataReport1.Show Exit Sub errh:

MsgBox Err.Description End Sub

Private Sub menu4a_Click() frmSearch.Show End Sub

Private Sub menu6_Click() frmAbout.Show End Sub

Private Sub menu7_Click() Unload Me End Sub

12

Private Sub menua_Click() frmPass.Show End Sub

Private Sub menuaddC_Click() DlgCourse.Show End Sub

Private Sub menuaddG_Click() frmAddGrade.Show End Sub

Private Sub menub_Click() DlgPass.Show End Sub

Private Sub menuc_Click() DlgLogin.Show Unload Me End Sub

Private Sub menud_Click() Reportreject.Show End Sub

Private Sub menug_Click() frmsearchInfo.Show End Sub

Private Sub menuInput_Click() FrmInput.Show End Sub

Private Sub menum_Click() ReportAch.Show End Sub

13

4．3系统管理：

该模块可以实现用户的修改密码、添加用户、重新登陆三种功能。 1、添加用户窗口效果如下：

其编写代码如下：

Option Explicit

Public addnewstate As Boolean Public upok As Boolean

Private Sub CancelButton_Click() Me.Hide upok = False End Sub

Private Sub Form_Paint() Text1.Text = \ Text2.Text = \ Text3.Text = \End Sub

Private Sub OKButton_Click() On Error GoTo errh

Dim rs As New Recordset 'If addnewstate Then If Text1.Text <> \

14