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