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

西安郵電大學项 目 设 计 实 训 报 告 书题 目： 航班信息管理系统 院系名称：继职学院机学生姓名：薛 创专业名称：计算机网络技术班 级：计网1003班学号：3104203014时间：2012年6月18日 至2011年6月29日 一、实验目的综合应用所学的高级语言程序设计知识，自行设计并实现一个较为完整的小型管理信息系统。通过系统分析、系统设计、编程实现，写实训报告等环节，初步掌握软件系统的设计方法和步骤，提高灵活运用程序语言和数据库进行软件开发的技能，提高程序设计水平和分析问题、解决问题的能力。二、实验内容 1）熟悉高级语言可视化开发环境和各种内部控件及工具的用法； 2）熟悉大型数据库的使用方法，练习使用MS SQL Server建立和修改数据库。3）学习Client/Server模式应用系统的开发。三、需求分析普通用户进入系统后，只能进行航班信息浏览、航班具体信息查询的操作；管理员进入系统可以进行航班信息浏览、航班具体信息查询的操作；亦可以对航班信息进行删除、添加的操作；系统具有航班的具体信息：如所属航空公司、飞机型号、座位数等等。四、概要设计1）描述软件的总体架构（必要时使用图形），即软件包括哪些模块以及各模块之间的联系。描述每个模块的功能。2）数据库设计：数据库的概念结构设计（用E-R图描绘）和逻辑结构设计（即数据库中的表和表之间的联系）。1软件包含三个模块。(1).普通用户直接进入界面；(2).管理员登陆界面；(3).管理员操作界面：普通查询、添加、删除等操作。2.E_R图学生信息管理系统性别密码登 录 界 面 系别专业学号姓名组成出生日期学 生 基 本 信 息用户名微机原理操作系统组成C+=+学 生 成 绩英语学号VB姓名计算机网络Java数据库网页设计五、详细设计和实现系统源代码：frmLogin窗体的代码：Private Sub cmdExit_Click() EndEnd SubPrivate Sub cmdLogin_Click() Dim myData As Database Dim myRecord As Recordset If txtName.Text And txtPsw.Text Then Set myData = OpenDatabase(D:VBWorkSpace大二实训项目学生成绩管理系统StuDatoBasestuInfo.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 SubPrivate Sub Form_Load() Me.Icon = LoadPicture(D:VBWorkSpace大二实训项目学生成绩管理系统imagemain.ico)End SubPrivate Sub lblLoadPsw_Click() frmLosePsw.ShowEnd SubPrivate Sub lblNew_Click() frmAddUser.ShowEnd SubfrmAddUser的代码：Private Sub addNewUser() Dim myData As Database Dim myRecord As Recordset Set myData = OpenDatabase(D:VBWorkSpace大二实训项目学生成绩管理系统StuDatoBasestuInfo.mdb) Set myRecord = myData.OpenRecordset(SELECT * FROM userInfo WHERE 用户名= + txtName.Text + ) myRecord.AddNew myRecord.Fields(用户名) = Trim(txtName.Text) myRecord.Fields(密码) = Trim(txtPsw.Text) myRecord.Fields(权限) = 普通 myRecord.Update myRecord.Close myData.CloseEnd SubPrivate Sub cmdClear_Click() txtName.Text = txtPsw.Text = txtAPsw.Text = End SubPrivate Sub cmdExit_Click() Unload MeEnd SubPrivate Sub cmdOk_Click() If txtPsw.Text And txtAPsw.Text Then If txtPsw.Text = txtAPsw.Text Then addNewUser MsgBox 注册成功 MsgBox 你的帐号是: + txtName.Text + 请记好 Unload Me frmLogin.Show Else MsgBox 两次密码输入不一样 txtPsw.Text = txtAPsw.Text = txtPsw.SetFocus End If Else MsgBox 密码不能为空 txtPsw.Text = txtAPsw.Text = txtPsw.SetFocus End IfEnd SubPrivate Sub Form_Load() Me.Picture = LoadPicture(D:VBWorkSpace大二实训项目学生成绩管理系统imagelang3.jpg) txtName.Text = txtPsw.Text = txtAPsw.Text = End SubfrmLosePsw的代码：Private Sub loseUser() Dim myData As Database Dim myRecord As Recordset Dim myScore As Recordset Set myData = OpenDatabase(D:VBWorkSpace大二实训项目学生成绩管理系统StuDatoBasestuInfo.mdb) Set myRecord = myData.OpenRecordset(SELECT * FROM losePsw) myRecord.AddNew myRecord.Fields(0) = txtName.Text myRecord.Fields(1) = txtEmail.Text myRecord.Update myRecord.Close myData.CloseEnd SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub cmdOk_Click() If MsgBox(你确定要提交 + txtName.Text + 吗？, vbOKCancel) = vbOK Then loseUser MsgBox 申请成功，请你静候管理员的佳音 Unload Me End IfEnd SubPrivate Sub Form_Load() Me.Picture = LoadPicture(D:VBWorkSpace大二实训项目学生成绩管理系统imagelang3.jpg) MsgBox 请你认真填写系统要求的内容，一定要准、全，单机确认后进入填写界面End SubfrmMainMenu的代码：Private Sub initUserAble(flag As String) If flag = 普通 Then system_user.Enabled = False End IfEnd SubPrivate Sub author_i_Click() frmSystemDvlpment.ShowEnd SubPrivate Sub change_user_Click() Unload Me frmLogin.ShowEnd SubPrivate Sub exit_system_Click() EndEnd SubPrivate Sub Form_Load() imgBrack.Picture = LoadPicture(D:VBWorkSpace大二实训项目学生成绩管理系统imagelang3.jpg) lblLoginUser.Caption = 活动用户： + loginUserName lblTime.Caption = Now() initUserAble userFlagEnd SubPrivate Sub Form_Resize() imgBrack.Left = 0 imgBrack.Top = 0 imgBrack.Width = Me.ScaleWidth imgBrack.Height = Me.ScaleHeightEnd SubPrivate Sub Stu_Info_Click() frmStuInfo.ShowEnd SubPrivate Sub stu_score_Click() frmStuScoreInfo.ShowEnd SubPrivate Sub sys_i_Click() frmSystemInfo.ShowEnd SubPrivate Sub system_user_Click() frmUserManage.ShowEnd SubPrivate Sub time_Timer() lblGy1.Caption = 学 习 从 来 无 捷 径 lblGy2.Caption = 忍 一 时 风 平 浪 静End SubPrivate Sub time2_Timer() lblGy1.Caption = 循 序 渐 进 登 高 峰 lblGy2.Caption = 退 一 步 海 阔 天 空End SubPrivate Sub timeTime_Timer() lblTime.Caption = Now()End SubfrmStuAll的代码：Private Sub cmdClose_Click() frmStuInfo.Show Unload MeEnd SubPrivate Sub cmdFindStu_Click() frmFindStu.ShowEnd SubPrivate Sub Form_Load() Me.Picture = LoadPicture(D:VBWorkSpace大二实训项目学生成绩管理系统imagelang3.jpg)End SubfrmStuInfo的代码：Dim photoPath As StringPrivate Sub initUserAble(flag As String) If flag = 普通 Then cmdAdd.Enabled = False cmdAdd.Visible = False cmdDel.Enabled = False cmdDel.Visible = False cmdEdit.Visible = False cmdEdit.Enabled = False End IfEnd SubPrivate Sub addStuInfo() Dim myData As Database Dim myRecord As Recordset Dim myScore As Recordset Set myData = OpenDatabase(D:VBWorkSpace大二实训项目学生成绩管理系统StuDatoBasestuInfo.mdb) Set myRecord = myData.OpenRecordset(SELECT * FROM stuInfo) Set myScore = myData.OpenRecordset(SELECT * FROM StuScore) 添加学生基本信息 myRecord.AddNew myRecord.Fields(学号) = txtStuNo.Text myRecord.Fields(姓名) = txtStuName.Text myRecord.Fields(性别) = comStuSex.Text myRecord.Fields(院系) = txtStuFac.Text myRecord.Fields(专业) = txtStuPro.Text myRecord.Fields(出生日期) = cmbYear.List(cmbYear.ListIndex) + - + cmbMonth.List(cmbMonth.ListIndex) + - + cmbDay.List(cmbDay.ListIndex) myRecord.Update 添加学生成绩记录 myScore.AddNew myScore.Fields(0) = txtStuNo.Text myScore.Update myScore.Close myRecord.Close myData.CloseEnd SubPrivate Sub editStuInfo(stuNo As String) Dim myData As Database Dim myRecord As Recordset Dim SQLstring As String Dim myDate As Date SQLstring = SELECT * FROM stuInfo WHERE 学号= + stuNo + Set myData = OpenDatabase(D:VBWorkSpace大二实训项目学生成绩管理系统StuDatoBasestuInfo.mdb) Set myRecord = myData.OpenRecordset(SQLstring) myRecord.Edit myRecord.Fields(姓名) = txtStuName.Text myRecord.Fields(性别) = comStuSex.List(comStuSex.ListIndex) myRecord.Fields(院系) = txtStuFac.Text myRecord.Fields(专业) = txtStuPro.Text &有问题 myDate = cmbYear.Text + - + cmbMonth.List(cmbMonth.ListIndex) + - + cmbDay.List(cmbDay.ListIndex) myRecord.Fields(出生日期) = myDate myRecord.Update myRecord.Close myData.CloseEnd SubPrivate Sub removeStuInfo(stuNo As String) Dim myData As Database Dim myRecord As Recordset Dim myScore As Recordset Dim SQLstring As String SQLstring = SELECT * FROM stuInfo WHERE 学号= + stuNo + Set myData = OpenDatabase(D:VBWorkSpace大二实训项目学生成绩管理系统StuDatoBasestuInfo.mdb) Set myRecord = myData.OpenRecordset(SQLstring) Set myScore = myData.OpenRecordset(SELECT * FROM StuScore WHERE 学号= + stuNo + ) myRecord.Delete myScore.Delete myScore.Close myRecord.Close myData.CloseEnd SubPrivate Function getNewStuNo() As Long Dim myData As Database Dim myRecord As Recordset Dim SQLstring As String SQLstring = SELECT max(学号) FROM stuInfo Set myData = OpenDatabase(D:VBWorkSpace大二实训项目学生成绩管理系统StuDatoBasestuInfo.mdb) Set myRecord = myData.OpenRecordset(SQLstring) If IsNull(myRecord.Fields(0) = False Then getNewStuNo = Val(myRecord.Fields(0) + 1 Else getNewStuNo = 20100301 End If myRecord.Close myData.CloseEnd FunctionPrivate Sub initButton(status As Boolean) txtStuNo.Enabled = False txtStuName.Enabled = status comStuSex.Enabled = status txtStuFac.Enabled = status txtStuPro.Enabled = status cmbYear.Enabled = status cmbMonth.Enabled = status cmbDay.Enabled = status cmdDel.Enabled = status cmdEdit.Enabled = statusEnd SubPrivate Sub showStuInfo(No As String) Dim myData As Database Dim myRecord As Recordset Dim SQLstring As String Dim myDate As Date SQLstring = SELECT * FROM stuInfo WHERE 学号= + No + Set myData = OpenDatabase(D:VBWorkSpace大二实训项目学生成绩管理系统StuDatoBasestuInfo.mdb) Set myRecord = myData.OpenRecordset(SQLstring) If myRecord.RecordCount 0 Then Do While Not myRecord.EOF txtStuNo = myRecord.Fields(学号) txtStuName = myRecord.Fields(姓名) comStuSex.Text = myRecord.Fields(性别) txtStuFac = myRecord.Fields(院系) txtStuPro = myRecord.Fields(专业) myDate = myRecord.Fields(出生日期) KHKJHKJHKJHKJHKJHKJH&%&% cmbYear.Text = Year(myDate) cmbMonth.ListIndex = Month(myDate) - 1 cmbDay.ListIndex = Day(myDate) - 1 imgStuPhoto.Picture = LoadPicture(photoPath + txtStuNo.Text + .jpg) myRecord.MoveNext Loop cmdDel.Enabled = True cmdEdit.Enabled = True End If myRecord.Close myData.CloseEnd SubPrivate Sub initStuList() Dim myData As Database Dim myRecord As Recordset Dim addString As String Set myData = OpenDatabase(D:VBWorkSpace大二实训项目学生成绩管理系统StuDatoBasestuInfo.mdb) Set myRecord = myData.OpenRecordset(SELECT * FROM stuInfo) lstStuList.Clear If myRecord.RecordCount 0 Then Do While Not myRecord.EOF addString = myRecord.Fields(0) + + myRecord.Fields(1) lstStuList.AddItem addString myRecord.MoveNext Loop lstStuList.ListIndex = 0 End If myRecord.Close myData.CloseEnd SubPrivate Sub initDay(myYear As Integer, myMonth As Integer) Dim tmpDate As Date Dim dayCnt As Integer Dim i As Integer If myMonth 12 Then tmpDate = str(myYear) + - + str(myMonth + 1) + -1 tmpDate = tmpDate - 1 dayCnt = Day(tmpDate) Else dayCnt = 31 End If cmbDay.Clear For i = 1 To dayCnt cmbDay.AddItem Mid(Trim(str(100 + i), 2) Next i cmbDay.ListIndex = 0End SubPrivate Sub cmbMonth_Click() initDay Val(cmbYear.List(cmbYear.ListIndex), Val(cmbMonth.List(cmbMonth.ListIndex)End SubPrivate Sub cmbYear_Click() If cmbMonth.ListIndex -1 Then initDay Val(cmbYear.List(cmbYear.ListIndex), Val(cmbMonth.List(cmbMonth.ListIndex) End IfEnd SubPrivate Sub cmdAdd_Click() If cmdAdd.Caption = 添 加 Then initButton True txtStuNo.Text = Trim(str(getNewStuNo() cmdAdd.Caption = 确 定 cmdDel.Caption = 放 弃 cmdEdit.Visible = False cmdChange.Visible = False lblStatus.Caption = 添加 txtStuName.SetFocus txtStuName.SelStart = 0 txtStuName.SelLength = Len(txtStuName.Text) txtStuFac.Text = txtStuPro.Text = Else If lblStatus.Caption = 添加 Then 处理添加 addStuInfo lstStuList.AddItem txtStuNo.Text + + txtStuName.Text lblListTotal.Caption = 共有 + Trim(str(lstStuList.ListCount) + 个学生 initButton False cmdAdd.Caption = 添 加 cmdDel.Caption = 删 除 cmdEdit.Visible = True cmdChange.Visible = True Else editStuInfo txtStuNo.Text initStuList initButton False cmdAdd.Caption = 添 加 cmdDel.Caption = 删 除 cmdEdit.Visible = True cmdChange.Visible = True 处理更改&%&%&%&%&%&%&%& End If End IfEnd SubPrivate Sub cmdBrack_Click() Unload MeEnd SubPrivate Sub cmdChange_Click() frmStuAll.Show Unload MeEnd SubPrivate Sub cmdDel_Click() If cmdDel.Caption = 删 除 Then If MsgBox(你确定要删除 + txtStuName.Text + 吗？, vbOKCancel) = vbOK Then removeStuInfo txtStuNo.Text initStuList lblListTotal.Caption = 共有 + Trim(str(lstStuList.ListCount) + 个学生 If lstStuList.ListCount 0 Then lstStuList.ListIndex = 0 Else cmdDel.Enabled = False cmdEdit.Enabled = False End If End If Else initButton False cmdAdd.Caption = 添 加 cmdDel.Caption = 删 除 cmdEdit.Visible = True cmdChange.Visible = True End If End SubPrivate Sub cmdEdit_Click() initButton True cmdAdd.Caption = 确 定 cmdDel.Caption = 放 弃 cmdEdit.Visible = False cmdChange.Visible = False lblStatus.Caption = 更改End SubPrivate Sub Form_Load() Dim i As Integer Dim myDate As Date photoPath = D:VBWorkSpace大二实训项目学生成绩管理系统image Me.Picture = LoadPicture(photoPath + lang3.jpg) 初始化年、月 cmbYear.Clear myDate = Now For i = -100 To 0 cmbYear.AddItem Year(myDate) + i Next i cmbYear.ListIndex = Year(myDate) - cmbYear.List(0) - 18 For i = 1 To 12 cmbMonth.AddItem Mid(Trim(str(100 + i), 2) Next i cmbMonth.ListIndex = 0 lblStatus.Caption = 无 lblTime.Caption = Now 调用过程初始化日 initDay Val(cmbYear.List(cmbYear.ListIndex), Val(cmbMonth.List(cmbMonth.ListIndex) 初始化列表框 initStuList 初始化总个数 lblListTotal.Caption = 共有 + Trim(str(lstStuList.ListCount) + 个学生 If lstStuList.ListCount 0 Then myRecord.Edit myRecord.Fields(1) = 0 myRecord.Fields(JAVA) = 0 myRecord.Fields(计算机原理) = 0 myRecord.Fields(数据库) = 0 myRecord.Fields(英语) = 0 myRecord.Fields(数字电路) = 0 myRecord.Fields(模拟电路) = 0 myRecord.Fields(操作系统) = 0 myRecord.Update End If myRecord.Close myData.CloseEnd SubPrivate Sub editScore(stuNo As String) Dim myData As Database Dim myRecord As Recordset Set myData = OpenDatabase(D:VBWorkSpace大二实训项目学生成绩管理系统StuDatoBasestuInfo.mdb) Set myRecord = myData.OpenRecordset(SELECT * FROM StuScore WHERE 学号= + stuNo + ) If myRecord.RecordCount 0 Then myRecord.Edit myRecord.Fields(1) = Val(txtC.Text) myRecord.Fields(JAVA) = Val(txtJava.Text) myRecord.Fields(计算机原理) = Val(txtJSJ.Text) myRecord.Fields(数据库) = Val(txtSJK.Text) myRecord.Fields(英语) = Val(txtYY.Text) myRecord.Fields(数字电路) = Val(txtSD.T