项目设计实训报告格式-副本

《项目设计实训报告格式-副本》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、西安郵電大學项目设计实训报告书题目：航班信息管理系统院系名称：继职学院机学生姓名：薛创专业名称：计算机网络技术班级：计网1003班学号：3104203014时间：2012年6月18日至2011年6月29日一、实验目的综合应用所学的高级语言程序设计知识，自行设计并实现一个较为完整的小型管理信息系统。通过系统分析、系统设计、编程实现，写实训报告等环节，初步掌握软件系统的设计方法和步骤，提高灵活运用程序语言和数据库进行软件开发的技能，提高程序设计水平和分析问题、解决问题的能力。二、实验内容1）熟悉高级语言可视化开

2、发环境和各种内部控件及工具的用法；2）熟悉大型数据库的使用方法，练习使用MSSQLServer建立和修改数据库。3）学习Client/Server模式应用系统的开发。三、需求分析普通用户进入系统后，只能进行航班信息浏览、航班具体信息查询的操作；管理员进入系统可以进行航班信息浏览、航班具体信息查询的操作；亦可以对航班信息进行删除、添加的操作；系统具有航班的具体信息：如所属航空公司、飞机型号、座位数等等。四、概要设计1）描述软件的总体架构（必要时使用图形），即软件包括哪些模块以及各模块之间的联系。描述每个模块的

3、功能。2）数据库设计：数据库的概念结构设计（用E-R图描绘）和逻辑结构设计（即数据库中的表和表之间的联系）。1．软件包含三个模块。(1).普通用户直接进入界面；(2).管理员登陆界面；(3).管理员操作界面：普通查询、添加、删除等操作。2.E_R图学生信息管理系统性别密码登录界面系别专业学号姓名组成出生日期学生基本信息用户名微机原理操作系统组成C++=+学生成绩英语学号VB姓名计算机网络Java数据库网页设计五、详细设计和实现系统源代码：frmLogin窗体的代码：PrivateSubcmdExit_Cli

4、ck()EndEndSubPrivateSubcmdLogin_Click()DimmyDataAsDatabaseDimmyRecordAsRecordsetIftxtName.Text<>""AndtxtPsw.Text<>""ThenSetmyData=OpenDatabase("D:VBWorkSpace大二实训项目学生成绩管理系统StuDatoBasestuInfo.mdb")SetmyRecord=myData.OpenRecordset("SELECT*FROMuserInfoWHE

5、RE用户名='"+txtName.Text+"'")IfNotmyRecord.EOFThenIfmyRecord.Fields(0)=txtName.TextAndmyRecord.Fields(1)=txtPsw.TextThenMsgBox"欢迎你："+txtName.TextloginUserName=txtName.TextuserFlag=myRecord.Fields(2)frmMainMenu.ShowtxtName.Text=""txtPsw.Text=""UnloadMeElseMsgB

6、ox"账户或密码有误"txtPsw.Text=""txtPsw.SetFocusEndIfElseMsgBox"账号不存在"txtName.Text=""txtPsw.Text=""txtName.SetFocusEndIfmyRecord.ClosemyData.CloseElseMsgBox"账号和密码都不能为空"txtName.SetFocusEndIfEndSubPrivateSubForm_Load()Me.Icon=LoadPicture("D:VBWorkSpace大二实训项目学生成绩管

7、理系统imagemain.ico")EndSubPrivateSublblLoadPsw_Click()frmLosePsw.ShowEndSubPrivateSublblNew_Click()frmAddUser.ShowEndSubfrmAddUser的代码：PrivateSubaddNewUser()DimmyDataAsDatabaseDimmyRecordAsRecordsetSetmyData=OpenDatabase("D:VBWorkSpace大二实训项目学生成绩管理系统StuD

8、atoBasestuInfo.mdb")SetmyRecord=myData.OpenRecordset("SELECT*FROMuserInfoWHERE用户名='"+txtName.Text+"'")myRecord.AddNewmyRecord.Fields("用户名")=Trim(txtName.Text)myRecord.Fields("密码")=Trim(txtPsw.Text)myRecord.F