基于VB的驾驶员理论考试模拟系统的设计与实现代码

本科毕业设计（论文）代码

题目：基于VB的驾驶员理论考试模拟系统的设计与实现学生姓名：张文江

院（系）：计算机学院

专业班级：计1201

指导教师：韩建宁

完成时间：2016年6月5日

代码清单

1.Modulel.bas

Public Cn As New ADODB.Connection

Public UserID As String''用户账号

Public UserName As String'用户姓名

Public UserType As String''用户类型

Public strTableName As String''表名

Public mFso As New FileSystemObject

Public ksKm As String'考试科目

Public ksMk As String'模块

Type KsData

ksName As String'试卷名称

ksTime As Integer'考试时间

pdtSum As Integer'判断题总数

pdtValue As Integer'判断每题分值

pdtNdSum(2)As Integer'判断题各难度题数

dstSum As Integer'单选题总数

dstValue As Integer'单选题每题分值

dstNdSum(2)As Integer'各难度题数

End Type

Public ksInfo As KsData''考试数据

Sub ConnectData()

If Cn.State Then Cn.Close

'Cn.ConnectionString="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=驾驶员理论考试;Data Source=."

Cn.ConnectionString="driver={sql

server};server=WIN7U-20141007T;uid=sa;pwd=hcx112531;Database=驾驶员理论考试" Cn.Open

End Sub

Sub LoadGrid(mfg As MSHFlexGrid,rstSql As String)

Dim rst As New ADODB.Recordset

rst.Open rstSql,Cn,adOpenStatic,adLockReadOnly

With mfg

.Clear

.Rows=2

.Cols=rst.Fields.Count

For i=0To rst.Fields.Count-1

.TextMatrix(0,i)=Trim(rst(i).Name)

.ColWidth(i)=(.Width-500)/.Cols

Next i

While Not rst.EOF

For i=0To rst.Fields.Count-1

If Not IsNull(rst(i))Then.TextMatrix(.Rows-1,i)=Trim(rst(i)) Next i

.Rows=.Rows+1

rst.MoveNext

Wend

End With

End Sub

2.登陆提醒界面frmts.frm

Private Sub Command1_Click()

If Check1.Value=1Then

Unload Me

frmLogin.Show

Else

MsgBox"请在我已阅读上打勾!"

End If

End Sub

Private Sub Command2_Click()

End

End Sub

3.登陆界面frmLogin.frm

Dim CountLogin As Integer

Private Sub Command1_Click()

'登录

If Trim(Text1.Text)=""Then MsgBox"用户账号不能为空":Exit Sub

If Trim(Text2.Text)=""Then MsgBox"用户账号不能为空":Exit Sub

If Trim(Combo1.Text)=""Then MsgBox"用户类型不能为空":Exit Sub

If Trim(Text3.Text)=""Then MsgBox"密码不能为空":Exit Sub

Dim rsLogin As New ADODB.Recordset

rsLogin.Open"select*from用户信息表where用户姓名='"&Text1.Text&"'and 用户账号='"&Text2.Text&"'and密码='"&Text3.Text&"'and权限='"& Combo1.Text&"'",Cn,adOpenStatic,adLockReadOnly

If Not rsLogin.EOF Then

UserID=Text2.Text

UserName=Text1.Text

UserType=Combo1.Text

If Trim(Combo1.Text)="管理员"Then

frmAdmin.Show

Else

frmKs.Show

End If

Unload Me

Else

CountLogin=CountLogin+1