[工学]项目设计实训报告格式 - 副本.docVIP

西安郵電學 综合应用所学的高级语言程序设计知识，自行设计并实现一个较为完整的小型管理信息系统。通过系统分析、系统设计、编程实现，写实训报告等环节，初步掌握软件系统的设计方法和步骤，提高灵活运用程序语言和数据库进行软件开发的技能，提高程序设计水平和分析问题、解决问题的能力。 二、实验内容 1）熟悉高级语言可视化开发环境和各种内部控件及工具的用法； 2）熟悉大型数据库的使用方法，练习使用MS SQL Server建立和修改数据库。 3）学习Client/Server模式应用系统的开发。 三、需求分析 普通用户进入系统后，只能进行航班信息浏览、航班具体信息查询的操作；管理员进入系统可以进行航班信息浏览、航班具体信息查询的操作；亦可以对航班信息进行删除、添加的操作；系统具有航班的具体信息：如所属航空公司、飞机型号、座位数等等。 四、概要设计 1）描述软件的总体架构（必要时使用图形），即软件包括哪些模块以及各模块之间的联系。描述每个模块的功能。 2）数据库设计：数据库的概念结构设计（用E-R图描绘）和逻辑结构设计（即数据库中的表和表之间的联系）。 1．软件包含三个模块。 (1).普通用户直接进入界面； (2).管理员登陆界面； (3).管理员操作界面：普通查询、添加、删除等操作。 2.E_R图 五、详细设计和实现 系统源代码： frmLogin窗体的代码： Private Sub cmdExit_Click() End End Sub Private Sub cmdLogin_Click() Dim myData As Database Dim myRecord As Recordset If txtName.Text And txtPsw.Text Then Set myData = OpenDatabase(D:\VBWorkSpace\大二实训项目\学生成绩管理系统\StuDatoBase\stuInfo.mdb) Set myRecord = myData.OpenRecordset(SELECT * FROM userInfo WHERE 用户名= + txtName.Text + ) If Not myRecord.EOF Then If myRecord.Fields(0) = txtName.Text And myRecord.Fields(1) = txtPsw.Text Then MsgBox 欢迎你： + txtName.Text loginUserName = txtName.Text userFlag = myRecord.Fields(2) frmMainMenu.Show txtName.Text = txtPsw.Text = Unload Me Else MsgBox 账户或密码有误 txtPsw.Text = txtPsw.SetFocus End If Else MsgBox 账号不存在 txtName.Text = txtPsw.Text = txtName.SetFocus End If myRecord.Close myData.Close Else MsgBox 账号和密码都不能为空 txtName.SetFocus End If End Sub Private Sub Form_Load() Me.Icon = LoadPicture(D:\VBWorkSpace\大二实训项目\学生成绩管理系统\image\main.ico) End Sub Private Sub lblLoadPsw_Click() frmLosePsw.Show End Sub Private Sub lblNew_Click() frmAddUser.Show End Sub frmAddUser的代码： Private Sub addNew