项目设计实训报告格式副本.docx
- 文档编号:30270784
- 上传时间:2023-08-13
- 格式:DOCX
- 页数:52
- 大小:2.98MB
项目设计实训报告格式副本.docx
《项目设计实训报告格式副本.docx》由会员分享,可在线阅读,更多相关《项目设计实训报告格式副本.docx(52页珍藏版)》请在冰豆网上搜索。
项目设计实训报告格式副本
西安郵電大學
项目设计实训报告书
题目:
航班信息管理系统
院系名称
:
继职学院机
学生姓名
:
薛创
专业名称
:
计算机网络技术
班级
:
计网1003班
学号
:
3104203014
时间
:
2012年6月18日至2011年6月29日
一、实验目的
综合应用所学的高级语言程序设计知识,自行设计并实现一个较为完整的小型管理信息系统。
通过系统分析、系统设计、编程实现,写实训报告等环节,初步掌握软件系统的设计方法和步骤,提高灵活运用程序语言和数据库进行软件开发的技能,提高程序设计水平和分析问题、解决问题的能力。
二、实验内容
1)熟悉高级语言可视化开发环境和各种内部控件及工具的用法;
2)熟悉大型数据库的使用方法,练习使用MSSQLServer建立和修改数据库。
3)学习Client/Server模式应用系统的开发。
三、需求分析
普通用户进入系统后,只能进行航班信息浏览、航班具体信息查询的操作;管理员进入系统可以进行航班信息浏览、航班具体信息查询的操作;亦可以对航班信息进行删除、添加的操作;系统具有航班的具体信息:
如所属航空公司、飞机型号、座位数等等。
四、概要设计
1)描述软件的总体架构(必要时使用图形),即软件包括哪些模块以及各模块之间的联系。
描述每个模块的功能。
2)数据库设计:
数据库的概念结构设计(用E-R图描绘)和逻辑结构设计(即数据库中的表和表之间的联系)。
1.软件包含三个模块。
(1).普通用户直接进入界面;
(2).管理员登陆界面;
(3).管理员操作界面:
普通查询、添加、删除等操作。
2.E_R图
五、详细设计和实现
系统源代码:
frmLogin窗体的代码:
PrivateSubcmdExit_Click()
End
EndSub
PrivateSubcmdLogin_Click()
DimmyDataAsDatabase
DimmyRecordAsRecordset
IftxtName.Text<>""AndtxtPsw.Text<>""Then
SetmyData=OpenDatabase("D:
\VBWorkSpace\大二实训项目\学生成绩管理系统\StuDatoBase\stuInfo.mdb")
SetmyRecord=myData.OpenRecordset("SELECT*FROMuserInfoWHERE用户名='"+txtName.Text+"'")
IfNotmyRecord.EOFThen
IfmyRecord.Fields(0)=txtName.TextAndmyRecord.Fields
(1)=txtPsw.TextThen
MsgBox"欢迎你:
"+txtName.Text
loginUserName=txtName.Text
userFlag=myRecord.Fields
(2)
frmMainMenu.Show
txtName.Text=""
txtPsw.Text=""
UnloadMe
Else
MsgBox"账户或密码有误"
txtPsw.Text=""
txtPsw.SetFocus
EndIf
Else
MsgBox"账号不存在"
txtName.Text=""
txtPsw.Text=""
txtName.SetFocus
EndIf
myRecord.Close
myData.Close
Else
MsgBox"账号和密码都不能为空"
txtName.SetFocus
EndIf
EndSub
PrivateSubForm_Load()
Me.Icon=LoadPicture("D:
\VBWorkSpace\大二实训项目\学生成绩管理系统\image\main.ico")
EndSub
PrivateSublblLoadPsw_Click()
frmLosePsw.Show
EndSub
PrivateSublblNew_Click()
frmAddUser.Show
EndSub
frmAddUser的代码:
PrivateSubaddNewUser()
DimmyDataAsDatabase
DimmyRecordAsRecordset
SetmyData=OpenDatabase("D:
\VBWorkSpace\大二实训项目\学生成绩管理系统\StuDatoBase\stuInfo.mdb")
SetmyRecord=myData.OpenRecordset("SELECT*FROMuserInfoWHERE用户名='"+txtName.Text+"'")
myRecord.AddNew
myRecord.Fields("用户名")=Trim(txtName.Text)
myRecord.Fields("密码")=Trim(txtPsw.Text)
myRecord.Fields("权限")="普通"
myRecord.Update
myRecord.Close
myData.Close
EndSub
PrivateSubcmdClear_Click()
txtName.Text=""
txtPsw.Text=""
txtAPsw.Text=""
EndSub
PrivateSubcmdExit_Click()
UnloadMe
EndSub
PrivateSubcmdOk_Click()
IftxtPsw.Text<>""AndtxtAPsw.Text<>""Then
IftxtPsw.Text=txtAPsw.TextThen
addNewUser
MsgBox"注册成功"
MsgBox"你的帐号是:
"+txtName.Text+"请记好"
UnloadMe
frmLogin.Show
Else
MsgBox"两次密码输入不一样"
txtPsw.Text=""
txtAPsw.Text=""
txtPsw.SetFocus
EndIf
Else
MsgBox"密码不能为空"
txtPsw.Text=""
txtAPsw.Text=""
txtPsw.SetFocus
EndIf
EndSub
PrivateSubForm_Load()
Me.Picture=LoadPicture("D:
\VBWorkSpace\大二实训项目\学生成绩管理系统\image\lang3.jpg")
txtName.Text=""
txtPsw.Text=""
txtAPsw.Text=""
EndSub
frmLosePsw的代码:
PrivateSubloseUser()
DimmyDataAsDatabase
DimmyRecordAsRecordset
DimmyScoreAsRecordset
SetmyData=OpenDatabase("D:
\VBWorkSpace\大二实训项目\学生成绩管理系统\StuDatoBase\stuInfo.mdb")
SetmyRecord=myData.OpenRecordset("SELECT*FROMlosePsw")
myRecord.AddNew
myRecord.Fields(0)=txtName.Text
myRecord.Fields
(1)=txtEmail.Text
myRecord.Update
myRecord.Close
myData.Close
EndSub
PrivateSubcmdClose_Click()
UnloadMe
EndSub
PrivateSubcmdOk_Click()
IfMsgBox("你确定要提交"+txtName.Text+"吗?
",vbOKCancel)=vbOKThen
loseUser
MsgBox"申请成功,请你静候管理员的佳音"
UnloadMe
EndIf
EndSub
PrivateSubForm_Load()
Me.Picture=LoadPicture("D:
\VBWorkSpace\大二实训项目\学生成绩管理系统\image\lang3.jpg")
MsgBox"请你认真填写系统要求的内容,一定要准、全,单机确认后进入填写界面"
EndSub
frmMainMenu的代码:
PrivateSubinitUserAble(flagAsString)
Ifflag="普通"Then
system_user.Enabled=False
EndIf
EndSub
PrivateSubauthor_i_Click()
frmSystemDvlpment.Show
EndSub
PrivateSubchange_user_Click()
UnloadMe
frmLogin.Show
EndSub
PrivateSubexit_system_Click()
End
EndSub
PrivateSubForm_Load()
imgBrack.Picture=LoadPicture("D:
\VBWorkSpace\大二实训项目\学生成绩管理系统\image\lang3.jpg")
lblLoginUser.Caption="活动用户:
"+loginUserName
lblTime.Caption=Now()
initUserAbleuserFlag
EndSub
PrivateSubForm_Resize()
imgBrack.Left=0
imgBrack.Top=0
imgBrack.Width=Me.ScaleWidth
imgBrack.Height=Me.ScaleHeight
EndSub
PrivateSubStu_Info_Click()
frmStuInfo.Show
EndSub
PrivateSubstu_score_Click()
frmStuScoreInfo.Show
EndSub
PrivateSubsys_i_Click()
frmSystemInfo.Show
EndSub
PrivateSubsystem_user_Click()
frmUserManage.Show
EndSub
PrivateSubtime_Timer()
lblGy1.Caption="学习从来无捷径"
lblGy2.Caption="忍一时风平浪静"
EndSub
PrivateSubtime2_Timer()
lblGy1.Caption="循序渐进登高峰"
lblGy2.Caption="退一步海阔天空"
EndSub
PrivateSubtimeTime_Timer()
lblTime.Caption=Now()
EndSub
frmStuAll的代码:
PrivateSubcmdClose_Click()
frmStuInfo.Show
UnloadMe
EndSub
PrivateSubcmdFindStu_Click()
frmFindStu.Show
EndSub
PrivateSubForm_Load()
Me.Picture=LoadPicture("D:
\VBWorkSpace\大二实训项目\学生成绩管理系统\image\lang3.jpg")
EndSub
frmStuInfo的代码:
DimphotoPathAsString
PrivateSubinitUserAble(flagAsString)
Ifflag="普通"Then
cmdAdd.Enabled=False
cmdAdd.Visible=False
cmdDel.Enabled=False
cmdDel.Visible=False
cmdEdit.Visible=False
cmdEdit.Enabled=False
EndIf
EndSub
PrivateSubaddStuInfo()
DimmyDataAsDatabase
DimmyRecordAsRecordset
DimmyScoreAsRecordset
SetmyData=OpenDatabase("D:
\VBWorkSpace\大二实训项目\学生成绩管理系统\StuDatoBase\stuInfo.mdb")
SetmyRecord=myData.OpenRecordset("SELECT*FROMstuInfo")
SetmyScore=myData.OpenRecordset("SELECT*FROMStuScore")
'添加学生基本信息
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.Close
EndSub
PrivateSubeditStuInfo(stuNoAsString)
DimmyDataAsDatabase
DimmyRecordAsRecordset
DimSQLstringAsString
DimmyDateAsDate
SQLstring="SELECT*FROMstuInfoWHERE学号='"+stuNo+"'"
SetmyData=OpenDatabase("D:
\VBWorkSpace\大二实训项目\学生成绩管理系统\StuDatoBase\stuInfo.mdb")
SetmyRecord=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.Close
EndSub
PrivateSubremoveStuInfo(stuNoAsString)
DimmyDataAsDatabase
DimmyRecordAsRecordset
DimmyScoreAsRecordset
DimSQLstringAsString
SQLstring="SELECT*FROMstuInfoWHERE学号='"+stuNo+"'"
SetmyData=OpenDatabase("D:
\VBWorkSpace\大二实训项目\学生成绩管理系统\StuDatoBase\stuInfo.mdb")
SetmyRecord=myData.OpenRecordset(SQLstring)
SetmyScore=myData.OpenRecordset("SELECT*FROMStuScoreWHERE学号='"+stuNo+"'")
myRecord.Delete
myScore.Delete
myScore.Close
myRecord.Close
myData.Close
EndSub
PrivateFunctiongetNewStuNo()AsLong
DimmyDataAsDatabase
DimmyRecordAsRecordset
DimSQLstringAsString
SQLstring="SELECTmax(学号)FROMstuInfo"
SetmyData=OpenDatabase("D:
\VBWorkSpace\大二实训项目\学生成绩管理系统\StuDatoBase\stuInfo.mdb")
SetmyRecord=myData.OpenRecordset(SQLstring)
IfIsNull(myRecord.Fields(0))=FalseThen
getNewStuNo=Val(myRecord.Fields(0))+1
Else
getNewStuNo=20100301
EndIf
myRecord.Close
myData.Close
EndFunction
PrivateSubinitButton(statusAsBoolean)
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=status
EndSub
PrivateSubshowStuInfo(NoAsString)
DimmyDataAsDatabase
DimmyRecordAsRecordset
DimSQLstringAsString
DimmyDateAsDate
SQLstring="SELECT*FROMstuInfoWHERE学号='"+No+"'"
SetmyData=OpenDatabase("D:
\VBWorkSpace\大二实训项目\学生成绩管理系统\StuDatoBase\stuInfo.mdb")
SetmyRecord=myData.OpenRecordset(SQLstring)
IfmyRecord.RecordCount>0Then
DoWhileNotmyRecord.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
EndIf
myRecord.Close
myData.Close
EndSub
PrivateSubinitStuList()
DimmyDataAsDatabase
DimmyRecordAsRecordset
DimaddStringAsString
SetmyData=OpenDatabase("D:
\VBWorkSpace\大二实训项目\学生成绩管理系统\StuDatoBase\stuInfo.mdb")
SetmyRecord=myD
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 项目设计实训报告格式 副本 项目 设计 报告 格式