VB学生宿舍管理系统(ER图+流程图+功能体系图+源程序) 第5页
4.2 宿舍管理系统文护模块体系
4.2宿舍管理系统信息文护模块体系结构
对学生的信息录入到数据库中，如果需要修改的话，可以随时地对信息进行添加，删除，修改和更新，并把处理以后的信息保存到数据库中，以方便一般用户和管理员查询，对学生信息的查询，用户可以选择按姓名和学号进行查询，另外，还可以查到该宿舍的物品，剩余的押金。如果查询后，有的信息需要修改的话，登陆后，可以对需要修改的信息进行修改，然后在保存到数据库中。
此模块详细设计过程中遇到的困难和解决方法：
(1). Visual Basic怎样和SQL SERVER 数据库连接起来，解决方法是，用Activex控件中的Adodc进行连接，在里面设置数据库类型是SQLSERVER类型，取一个别名选择使用的服务器名，和访问时的用户名及密码，选择连接的实际数据库名等等做好这一系列设置之后，就可以通过Visual Basic中的像OLEDB和Adodc控件中属性的设置就可以和数据库连接起来了。
(2).输入的信息如何存入数据库中，使用一个Activex控件和一个Adodc控件，设置Adodc控件和Adodc控件的属性让它们和数据库连接起来，然后通过编写程序存入数据库中.，由于未对数据库进行刷新，刚刚存入数据的数据库在表中还没有显示，因此在预览之前，先把Query进行关闭再打开，这里面还存在一个问题就是，第一次添加进入的数据库的案件信息可以正确预览出来，可是再次添加的进入数据库的案件信息就无法正确预览出来了，这个问题在指导老师的帮助下，通过对程序进行单步执行，知道在预览之前还要对参数进行刷新，这样以来问题才完全解决，学会单步执行可以很好的检测出程序中错误的地方。
5.宿舍管理系统主界面的功能及主要的代码
5.1用户登陆界面
用户界面的登陆，输入正确的用户名和密码后，即可以登陆系统的主界面了，如果输入的密码不正确，将不能进入系统。此系统界面共用到两个Command标签，两个TextBox编辑框和两个 Command按扭。
登陆按扭的代码如下：
Private Sub Command1_Click()
Dim txtsql As String
Dim mrc As ADODB.Recordset
Dim msgtext As String 作者QQ752018766
username = ""
If Trim(Text1.Text = "") Then
MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Else
If Trim(mrc.Fields(1)) = Trim(Text2.Text) Then
ok = True
mrc.Close
Me.Hide
username = Trim(Text1.Text = "")
Else
5.2 宿舍管理系统主界面
用户登陆后，即进入了主界面，主界面分成四大块：系统管理，人员管理，日常工作管理和帮助信息。
对学生的信息录入到数据库中，如果需要修改的话，可以登陆界面后，对数据库中的信息可以随时地对信息进行添加，删除，和修改，并把处理以后的信息保存到数据库中，以方便一般用户和管理员查询，对学生信息的查询，用户可以选择按姓名和学号进行查询。对寝室情况查询，用户只需输入即可查询到该寝室的入住信息，以便宿舍管理人员更好地对寝室的使用情况有所了解，
日常工作管理的功能是：对用户需要查找的信息，可以利用查询各种情况，和登记一些情况以供用户来分析所需要的信息。
帮助信息模块主要是面向第一次登陆的用户的，告诉用户本软件的版本。
5. 3 查询信息的主界面
查询模块的主要功能是：学生入住学校后，对存入数据库的信息按输入的条件查询，对学生信息表，可以按学号和姓名进行查询你所需要的信息；对寝室信息表，可以输入寝室号进行查询，了解该寝室情况；对学生信息表，可以输入姓名和宿舍号进行查询宿舍的信息，了解宿舍的入住情况，否则，不可以查到信息，系统会提醒你必须同时输入学号和姓名才可以查询，由于查询模块有多个，此处只选择一个作为代表，如下：
查询系统的主要代码如下：
Private Sub Command1_Click()
Select Case Me.Combo1.ListIndex
Case 1
txtsql = "select * from jjxx where xm='" & Me.Text1.Text & "'"
Set mrc = ExecuteSQL(txtsql, msgtext)
上一页 [1] [2] [3] [4] [5] [6] [7] 下一页
VB学生宿舍管理系统(ER图+流程图+功能体系图+源程序) 第5页下载如图片无法显示或论文不完整，请联系qq752018766
