功能及界面学生公寓管理系统

《功能及界面学生公寓管理系统》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、4.2目标系统的模块结构4.2.1系统的HIPO图H1P0图是层次图加输入/处理/输出图的英文缩写。结构化设计技术把用数据流图表示的系统逻辑模型转变为H1P0图表示的系统层次模块结构。结构化设计技术的核心是模块分解设计，模块上系统结构图的主要元素。其设计思想是，采用自顶向下、逐层分解的方法，先给出总的模块功能，再逐层分解，使其分为多个大小适当，功能明确，具有一定独立性且容易实现的模块，从而把一个复杂的系统设计转变成为多个简单模块的设计。在学生公寓管理系统中，采用了模块结构化设计方法，根据数据流图，按层次划分各个模块，每个模块完成一个功能，且每个模块完成一个功能，且每个模块具有单入

2、口单出口。该系统的功能模块图如下所示：学生公寓管理系统图4・1系统功能模块图2.程序主窗口系统经过身份验证后即可进入主系统界面，进入主界面后，用户可以根据需要对系统进行各种操作。系统主界而的设计如图5-4所示图5-4系统主界面3.学生信息管理界面学生管理界面完成学生信息的添加、删除及修改的功能。在添加学生时首先选择“增加”按钮，接下来从班级信息中选择该学生所在的班级，输入用姓名和性别，点击“保存”即可完成学生的添加操作，删除和修改学生的信息时，在学生信息列表中双击某个学生，再点击“删除”，或“修改”进行删除和修改操作。学生信息管理界面如图5-5所示：系别1年级▲►2003级200

3、3级if03.1班1+032班一计算机系2003级计03.3班数控系2003级数03.1班▼班级信息-学生信息系别

4、计算机系—年级

5、如03级班级

6、计03.1班姓名

7、性别V]増加删除才厂悔力顽m刚艳贺王李葛韩韩李级级33oOoO22<级级级4433oooOoooO2222—机机机机机机系控计计计计计数►f王华数03.2班2003级l±学生所在班级信息其中“保存”按钮的代码为：PrivateSubCominand4_Click（）Ifczlx=〃增加〃ThenAdodc2・RecordSource="select*from学生"Adodc2.RefreshAdodc2.Records

8、et.AddNewAdodc2.Recordset.Fields（，z姓名〃）=xm.TextAdodc2.Recordset.FieldsC性别〃）=xb.TextAdodc2.Recordset.Fields（，z系别〃）=Textl.TextAdodc2.Recordset.Fields（〃年级〃）=Text2.TextAdodc2.Recordset.Fields（〃班级〃）=Text3.TextAdodc2.Recordset.Fields（，z公寓楼号〃）=，Combo5.TextAdodc2.Recordset.FieldsC寝室房号〃）=，Combo4.TextA

9、dodc2.Recordset・UpdateMsgBox（〃保存成功〃）1〃〃czlx=AdodcLRefreshFramel.Enabled=FalseElselfczlx=〃修改〃ThenAdodc2.RecordSource="select*from学生where序号二'〃+bh.Text+〃，〃Adodc2.RefreshIfAdodc2.Recordset・BOF=FalseThen'Adodc2.Recordset.Fields（，z序号〃）=bh.TextAdodc2.Recordset.Fields（，z姓名〃）=xm.TextAdodc2.Recordset.F

10、ieldsC性别〃）=xb.TextAdodc2.Recordset.Fields（，z系别〃）=Textl.TextAdodc2.Recordset.Fields（〃年级〃）=Text2.TextAdodc2.Recordset.Fields（〃班级〃）=Text3.TextAdodc2.Recordset.Fields（z，公寓楼号〃）="”'ComboS.TextAdodc2.Recordset.Fields（，z寝室房号〃）='Combo4・TextAdodc2.Recordset.UpdateMsgBox（"保存成功"）!〃〃czlx=Adodcl.RefreshFra

11、me1.Enabled=FalseElseMsgBox（"没找到"）ExitSubEndIfEndIfEndSub4•住宿登记模块住宿登记模块完成学生寝室分配或调整的功能，可以按条件对学生查询，双击学生信息列表中的某个学生，从下面的下列列表框中选择公寓楼号，寝室号，点击寝室登记，即可以完成学生寝室登记或调寝的功能。寝室登记界面设计如图5-6所示：其中“寝室登记”按钮的代码如下：PrivateSubConnnand5_Click（）Ifxm.Text二"，‘ThenExitSubA