当前位置:跳过导航链接计算机毕业设计首页 : VB计算机毕业设计 : 详细内容

VB题库组卷考试管理系统(7)

来源:xiaoniu168.com 作者:本站原创 添加时间:2012-01-30 点击数:21851

计算机毕业设计前台功能介绍:

4.1 用户登陆界面
运行系统显示用户登录界面,输入员工名称、密码才能进行下一步的操作。系统会通过员工名称和密码来识别用户身份的真假,经过正确的识别后,用户才能对其进行操作。

以下是引用片段:

其关键代码实现如下:
Private Sub UserControl12_Click()
'根据输入的用户和密码信息在数据库中查找是否具有相同的记录
Dim tmprs As New ADODB.Recordset
Set tmprs = ExecSql("select Qx.Ygid,Qx.Ygmm,Qx.intStwh,Qx.intZjgl,Qx.IntXxll,Qx.intQxxx from Qx,YG where qx.ygid=yg.ygid and  yg.ygmc='" & Trim(Me.Text3(0).Text) & "' and qx.Ygmm='" & Trim(Me.Text3(1).Text) & "'")
If tmprs.RecordCount <= 0 Then
   MsgBox "帐号或密码错误,不能使用系统,请重新输入!"
   Exit Sub
End If
frmMain.BaseInfo.Enabled = tmprs.Fields(2).Value
frmMain.Toolbar1.Buttons(1).Enabled = frmMain.BaseInfo.Enabled
frmMain.ExamInfo.Enabled = tmprs.Fields(3).Value
frmMain.Toolbar1.Buttons(5).Enabled = frmMain.ExamInfo.Enabled
frmMain.Toolbar1.Buttons(6).Enabled = frmMain.ExamInfo.Enabled
frmMain.QueryInfo.Enabled = tmprs.Fields(4).Value
frmMain.QxInfo.Enabled = tmprs.Fields(5).Value
frmMain.Toolbar1.Buttons(1).Enabled = frmMain.QxInfo.Enabled
strRyid = tmprs.Fields(0).Value
strRyName = Me.Text3(0).Text
Unload Me
frmMain.Show
End Sub

〖资料来源:计算机毕业论文 www.xiaoniu168.com

第8页为计算机毕业论文科目内容设置功能介绍......

上一篇:VB图书管理系统

【联系方式】

【本站信誉】

用心做计算机毕业设计论文网
计算机毕业设计客服
计算机毕业论文客服在线 计算机毕业论文客服在线
计算机毕业论文在线,计算机毕业设计在线