vb课程设计要点Word格式文档下载.docx

上传人:b****1 文档编号:4815349 上传时间:2023-05-04 格式:DOCX 页数:17 大小:487.68KB
下载 相关 举报
vb课程设计要点Word格式文档下载.docx_第1页
第1页 / 共17页
vb课程设计要点Word格式文档下载.docx_第2页
第2页 / 共17页
vb课程设计要点Word格式文档下载.docx_第3页
第3页 / 共17页
vb课程设计要点Word格式文档下载.docx_第4页
第4页 / 共17页
vb课程设计要点Word格式文档下载.docx_第5页
第5页 / 共17页
vb课程设计要点Word格式文档下载.docx_第6页
第6页 / 共17页
vb课程设计要点Word格式文档下载.docx_第7页
第7页 / 共17页
vb课程设计要点Word格式文档下载.docx_第8页
第8页 / 共17页
vb课程设计要点Word格式文档下载.docx_第9页
第9页 / 共17页
vb课程设计要点Word格式文档下载.docx_第10页
第10页 / 共17页
vb课程设计要点Word格式文档下载.docx_第11页
第11页 / 共17页
vb课程设计要点Word格式文档下载.docx_第12页
第12页 / 共17页
vb课程设计要点Word格式文档下载.docx_第13页
第13页 / 共17页
vb课程设计要点Word格式文档下载.docx_第14页
第14页 / 共17页
vb课程设计要点Word格式文档下载.docx_第15页
第15页 / 共17页
vb课程设计要点Word格式文档下载.docx_第16页
第16页 / 共17页
vb课程设计要点Word格式文档下载.docx_第17页
第17页 / 共17页
亲,该文档总共17页,全部预览完了,如果喜欢就下载吧!
下载资源
资源描述

vb课程设计要点Word格式文档下载.docx

《vb课程设计要点Word格式文档下载.docx》由会员分享,可在线阅读,更多相关《vb课程设计要点Word格式文档下载.docx(17页珍藏版)》请在冰点文库上搜索。

vb课程设计要点Word格式文档下载.docx

年月日

学生成绩信息管理系统

1课程设计题目

2功能描述

本程序主要有部分构成;

按姓名查询系统,按学号查询系统,逐条查询系统,录入系统,删除系统,修改系统,主窗体等。

目的是方便快捷的查询到所需内容,并且修改方便,一目了然。

3概要设计

根据功能描述,现将系统的体系结构,即组成系统的若干子功能模块说明如下。

按学号查询

按姓名查询

修改

删除

录入

逐条查询

1按学号查询:

此模块的功能是输入学号查询学生成绩信息。

2按姓名查询:

此模块的功能是输入姓名查询学生成绩信息。

3逐条查询:

此模块的功能是输入各项信息查询学生成绩信息。

4录入:

此模块的功能是录入学生成绩各项信息。

5删除:

此模块的功能是删除学生成绩错误信息。

6修改:

此模块的功能是修改学生成绩信息。

4详细设计

(1)创建主窗体

建立主窗体:

单击”工程”->

”添加MDI窗体”菜单,在弹出的对话框中单击”打开”按钮则为当前项目添加了一个MDI窗体。

设置好MDI窗体属性后,设置此项目的属性。

”工程1属性”菜单,进入项目属性设置窗体。

在此项目属性窗体中通用选项卡的启动对象中选择MDIfrmMain项,将这一多文档窗体作为程序的启动窗体。

(2)主要窗体的实现

主页面模块的设计:

此模块是系统服务器端的主要控制界面,通过菜单的选择,可以控制系统的所有功能。

主界面的设计步骤:

1)设计主界面控件布局:

在主界面的布局中使用了工具栏(ToolBar)、和图象列表(ImageList)等非Vb标准控件。

2)工具栏的设置:

给工具栏添加按钮。

3)添加菜单:

菜单的使用是为了更好的给用学生供功能指引,同时也简单了主菜单的操作。

(3)创建系统主界面

当系统运行时,便直接进入主窗体,窗体的上方标有各个功能键,每个功能键又包含若干功能,启动系统主界面,没有用到任何插件。

(4)如果信息录入错误,需对学生信息进行修改:

在该系统中,此模块是必不可少的首要环节。

通过检查对入住录入的信息的修改,可方便老师和学生查询信息。

显示有关控件;

通过语句:

OpenApp.Path&

"

\酒店信息管理.txt"

ForInputAs#1。

实现对相关数据所在文本文件以读方式打开;

\学生成绩信息管理系统

temp.txt"

ForOutputAs#2在当前文件夹中创建"

联系人号码temp.txt"

文件。

增删数据完成后,通过语句:

KillApp.Path&

NameApp..Path&

AsApp.Path&

.txt"

'

删除原来的联系人号码.txt文件,保留后者。

既增删数据成功。

5运行效果

1.查询系统的主界面

2.根据学号查询

3.根据姓名查询

4.逐条查询

5.录入

6.删除

7.修改

存在的不足:

只能单一的查询成绩信息,没有其他复杂的登录界面,程序简单可查询的信息量小。

6心德与体会

通过此次课程设计我懂得了很多,在这次的课程设计中不仅检验了我所学习的知识,也培养了我如何去把握一件事情,如何去做一件事情,又如何完成一件事情。

在设计过程中,与同学分工设计,和同学们相互探讨,相互学习,相互监督。

学会了合作,学会了运筹帷幄,学会了宽容,学会了理解,也学会了做人与处世。

课程设计是我们专业课程知识综合应用的实践训练,着是我们迈向社会,从事职业工作前一个必不少的过程.”千里之行始于足下”,通过这次课程设计,我深深体会到这句千古名言的真正含义.我今天认真的进行课程设计,学会脚踏实地迈开这一步,就是为明天能稳健地在社会大潮中奔跑打下坚实的基础.

7附录:

各功能模块的全部代码。

1主窗体代码

PrivateSubchaxun1_Click()

LoadFrm_查询1

Frm_查询1.Show

EndSub

PrivateSubchaxun2_Click()

LoadFrm_查询2

Frm_查询2.Show

PrivateSubchaxun3_Click()

LoadFrm_查询3

Frm_查询3.Show

PrivateSubImage1_Click()

PrivateSubForm_Load()

PrivateSubjishiben_Click()

Shell"

C:

\WINDOWS\notepad.exe"

vbNormalFocus

PrivateSubjisuanqi_Click()

\WINDOWS\system32\calc.exe"

PrivateSubluru_Click()

LoadFrm_录入

Frm_录入.Show

PrivateSubshanchu_Click()

LoadFrm_删除

Frm_删除.Show

PrivateSubtuichu_Click()

End

PrivateSubxiugai_Click()

LoadFrm_修改

Frm_修改.Show

2学号查询代码

PrivateSubCommand1_Click()

OnErrorResumeNext

dh=Trim(Text1.Text)

OpenApp.Path&

\学生成绩信息管理.txt"

ForInputAs#1

DoWhileNotEOF

(1)

LineInput#1,x

a=Trim(Left(x,10))

b=Trim(Mid(x,11,20))

c=Trim(Mid(x,31,20))

Ifdh=bThen

MsgBoxa&

Chr(13)&

b&

c

EndIf

Loop

Close#1

PrivateSubForm_Unload(CancelAsInteger)

OnErrorResumeNext

PrivateSubPicture1_Click()

3姓名查询代码

PrivateSubCommand2_Click()

xm=Trim(Text2.Text)

Ifxm=aThen

4逐条查询代码

Input#1,x

a=Trim(Left(x,20))

b=Trim(Mid(x,21,20))

c=Trim(Mid(x,41,20))

Ifdh=bOrdh=cThen

PrivateSubCommand3_Click()

Command3.Enabled=False

Command4.Enabled=True

Command5.Enabled=True

PrivateSubCommand4_Click()

IfNotEOF

(1)Then

Text3.Text=Trim(Left(x,10))

Text4.Text=Trim(Mid(x,11,20))

Text5.Text=Trim(Mid(x,31,20))

Else

MsgBox"

已经是最后一条了"

PrivateSubCommand5_Click()

Command3.Enabled=True

Command4.Enabled=False

Command5.Enabled=False

5录入代码

ForAppendAs#1

Print#1,Text1.Text;

Tab(11);

Text2.Text;

Tab(31);

Text3.Text

Text1.Text="

"

Text2.Text="

Text3.Text="

UnloadMe

6修改代码

DimnAsInteger

DimnumAsInteger

\学生成绩信息管理temp.txt"

ForOutputAs#2

Fori=1Ton-1

LineInput#1,a

Print#2,a

Nexti

Print#2,Text1.Text;

Text3.Text

Fori=n+1Tonum

Close#2

KillApp.Path&

NameApp.Path&

\电话.txt"

num=0

HScroll1.Min=1

num=num+1

HScroll1.Max=num

PrivateSubHScroll1_Change()

Fori=1ToHScroll1.Value

Text1.Text=Trim(Left(x,10))

Text2.Text=Trim(Mid(x,11,20))

Text3.Text=Trim(Mid(x,31,20))

n=HScroll1.Value

7删除代码

k=MsgBox("

是否确定要删除?

vbYesNo+vbExclamation,"

删除一条数据"

Ifk=6Then

num=num-1

EndIf

8参考文献

1.将加伏,张林峰,VisualBasic程序设计教程,北京,北京邮电大学出版社,2004

2.刘天慧,VisualBasic程序设计教程,北京,清华大学出版社,2006

3.曾强聪,VisualBasic6.0程序设计教程,北京:

中国水利水电出版社2003

4.武马群,VisualBasic程序设计教程,北京,北京工业大学出版社,2004

5.张基温。

信息系统开发案例。

北京;

清华大学出版社,1999;

6.党建武。

管理信息系统。

兰州大学出版社,2001;

7.毕庶伟。

管理信息系统分析与设计。

北京,机械工业出版社,1992。

8.黄梯云。

企业管理模型及微型机应用程序。

石家庄,河北人民出版社,1985.

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

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

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

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