收藏
下载资源下载资源 加入VIP,免费下载

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

上传人：b****0 文档编号：18103004 上传时间：2023-08-13 格式：DOCX 页数：52 大小：2.98MB
下载 相关 举报
项目设计实训报告格式副本.docx_第1页
第1页 / 共52页
项目设计实训报告格式副本.docx_第2页
第2页 / 共52页
项目设计实训报告格式副本.docx_第3页
第3页 / 共52页
项目设计实训报告格式副本.docx_第4页
第4页 / 共52页
项目设计实训报告格式副本.docx_第5页
第5页 / 共52页
项目设计实训报告格式副本.docx_第6页
第6页 / 共52页
项目设计实训报告格式副本.docx_第7页
第7页 / 共52页
项目设计实训报告格式副本.docx_第8页
第8页 / 共52页
项目设计实训报告格式副本.docx_第9页
第9页 / 共52页
项目设计实训报告格式副本.docx_第10页
第10页 / 共52页
项目设计实训报告格式副本.docx_第11页
第11页 / 共52页
项目设计实训报告格式副本.docx_第12页
第12页 / 共52页
项目设计实训报告格式副本.docx_第13页
第13页 / 共52页
项目设计实训报告格式副本.docx_第14页
第14页 / 共52页
项目设计实训报告格式副本.docx_第15页
第15页 / 共52页
项目设计实训报告格式副本.docx_第16页
第16页 / 共52页
项目设计实训报告格式副本.docx_第17页
第17页 / 共52页
项目设计实训报告格式副本.docx_第18页
第18页 / 共52页
项目设计实训报告格式副本.docx_第19页
第19页 / 共52页
项目设计实训报告格式副本.docx_第20页
第20页 / 共52页
亲，该文档总共52页，到这儿已超出免费预览范围，如果喜欢就下载吧！
下载资源
资源描述

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

《项目设计实训报告格式副本.docx》由会员分享，可在线阅读，更多相关《项目设计实训报告格式副本.docx（52页珍藏版）》请在冰点文库上搜索。

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

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

西安郵電大學

项目设计实训报告书

 

题目：

航班信息管理系统

 

院系名称

：

继职学院机

学生姓名

：

薛创

专业名称

：

计算机网络技术

班级

：

计网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

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置：首页 > 人文社科 > 法律资料

copyright@ 2008-2023 冰点文库 网站版权所有

经营许可证编号:鄂ICP备19020893号-2