华中科技大学计算机专业11级软件工程报告 - 图文

4.2.3启动窗体pass实现

图4.1 pass窗体

主要功能是将用户输入的用户名和口令与oper表中的信息匹配，如果有匹配则通过否

则一共有3次机会进行账户登录。最后用公共变量userlevel保留账户的级别，以确定main函数中某些菜单的有效性。

Private Sub Command1_Click() ?确定按钮 Dim mrc As New ADODB.Recordset

txtsql = \* from oper where usr ='\& Trim(Text1(0).Text) & \psw ='\& Text1(1).Text & \ Set mrc = exesql(txtsql)

If mrc.EOF And mrc.BOF Then ?判断是否有记录 n = n + 1 If n < 3 Then

MsgBox \用户名或密码错误，还有\& Str(3 - n) & \次机会\vbOKOnly + vbExclamation, \提示信息\ Text1(0).Text = \ Text1(1).Text = \ Text1(0).SetFocus Else

MsgBox \已登录失败三次，退出系统\信息提示\ mrc.Close Unload Me End If Else

userlevel = mrc.Fields(\

22

mrc.Close Unload Me main.Show End If

End Sub 4.2.4 main窗体

图4.2 main窗体

从main窗体可以进入其他各种窗体，所以main窗体反映了系统所有的功能。

Private Sub MDIForm_Load() If userlevel = 1 Then menu11.Enabled = False menu12.Enabled = False menu3.Enabled = False End If End Sub

Private Sub menu11_click() '设置专业课程 setcourse.Show vbModal End Sub

Private Sub menu12_click() '设置专业班号 setclass.Show vbModal End Sub

Private Sub menu13_click() '录入学生记录 edstud.Show vbModal

23

End Sub

Private Sub menu21_click() '添加学生成绩信息 eddegree.Show vbModal End Sub

Private Sub menu22_click() '查询学生成绩信息 qudegree.Show vbModal End Sub

Private Sub menu31_click() '设置系统用户 setuser.Show vbModal End Sub

Private Sub menu32_Click() '系统初始化

If MsgBox(\本功能要清除系统中所有数据，真的初始化吗？\确认初始化操作\

Call deldata(\ Call deldata(\ Call deldata(\ Call deldata(\ Call deldata(\ Call deldata(\

MsgBox \系统初始化完毕,下次只能以1234/1234（用户名/口令）进入系统\vbOKOnly, \信息提示\ End If End Sub

Private Sub menu4_Click() '退出

If MsgBox(\确认退出？\提示信息\ End End If End Sub

4.2.5 setclass和setcourse窗体实现

setclass和setcourse窗体结构相似，对数据库的操作也相似，所以代码编写

也相似。下面只介绍setclass窗体的核心代码。

24

图4.3 setclass窗体

1>窗体启动时先检索prof表，如果存在内容则将专业信息打印在list1中 Private Sub Form_Load()

Adodc1.Refresh '绑定到prof表

If Adodc1.Recordset.RecordCount > 0 Then '如果有记录 Adodc1.Recordset.MoveFirst Do While Not Adodc1.Recordset.EOF

List1.AddItem (Adodc1.Recordset.Fields(\ Adodc1.Recordset.MoveNext Loop End If

Command3.Enabled = False Command4.Enabled = False

End Sub

2>专业“添加”按钮

Private Sub Command1_Click() '专业添加“确定”按钮 If Trim(Text1.Text) <> \

sqltxt = \ Set rs = exesql(sqltxt) '调用公共模块中函数使rs绑定到表 If Not rs.EOF Then

MsgBox \存在相同的专业，不能添加到专业表中\信息提示\

25