4.3.2 学生信息界面的设计
图4.11 学生基本信息界面
学生登录成功后，将进入到“学生信息表”界面，如图4.11。界面中涉及到“密码修改”，“电费查询”，“呼叫检修”和“退出”四大部分。
（1） 主界面设计
在Form_Load事件过程中由如下代码：
Dim strSQL As String
With objCn
.Provider = "SQLOLEDB"
.ConnectionString = "User ID=sa;PWD=311359;Data Source=(local);" & "Initial Catalog=学生公寓管理系统"
.Open
End With
strSQL = "SELECT*FROM 学生信息 WHERE 学生学号=" & Student_number & ""
Set objRs.ActiveConnection = objCn
objRs.Open (strSQL)
Text1 = Student_number 'Student_number为公共变量，在模块中声明
Text2 = objRs.Fields("学生姓名")
Text7 = objRs.Fields("联系电话")
Text3 = objRs.Fields("院系")
Text4 = objRs.Fields("专业")
Text5 = objRs.Fields("寝室号")
Dorm_number = objRs.Fields("寝室号") 'Dorm_number为公共变量，在模块中声明
objCn.Close: Set objCn = Nothing: Set objRs = Nothing
With objCn
.Provider = "SQLOLEDB"
.ConnectionString = "User ID=sa;PWD=311359;Data Source=(local);" & "Initial Catalog=学生公寓管理系统"
.Open
End With
strSQL = "SELECT*FROM 卫生评定 WHERE 寝室号=" & Dorm_number & ""
Set objRs.ActiveConnection = objCn
objRs.Open (strSQL) '如果数据表中该行数据为最后一个，则会显示EOF或BOF一个为真的错误，考虑用语句objRs.EOF确定限制。
Text6 = objRs.Fields("卫生")
objCn.Close: Set objCn = Nothing（2） “密码修改”设计
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
VB学生公寓管理系统设计毕业论文 第6页下载如图片无法显示或论文不完整，请联系qq752018766
