VB实验报告.docx

VB实验报告.docx

《VB实验报告.docx》由会员分享，可在线阅读，更多相关《VB实验报告.docx（14页珍藏版）》请在冰豆网上搜索。

VB实验报告

实验报告

课程：

管理信息系统行政班级：

姓名学号：

一、实验目的

设计一个具有添加、删除、修改、查询学生成绩的管理系统。

学生的成绩信息在绑定的一个数据库中，一个管理员可以对不同学生的成绩进行操作。

验证管理信息系统的有关概念和理论，加深对概念和知识的理解和认识；熟悉和掌握管理信息系统有关工具的使用与操作方法；通过实验初步掌握利用所学知识和工具开发一个简单管理信息系统的能力。

二、实验方法

运用VisualBasic6.0建立一个学生成绩查询管理系统。

用ADO控件设计“学生成绩数据库”,为VistlalBasic提供了功能强大的数据库管理功能。

可视化的集成开发环境。

面向对象的程序设计思想，交互式的开发环境以及高度的可扩充性。

VisualBasic采用面向对象的程序设计技术，使开发应用更方便。

而且VisualBasic提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化界面设计过程。

从而有效的提高了应用程序的运行效率和可靠性，可以使用结构化查询语言（SQL）直接访问Server上的数据库，并提供简单的面向对象的库操作命令、多用户数据库的加锁机制和网络数据库的编程技术，为单机上运行的数据库提供SQI网络接口，以便在分布式环境中快速而有效地实现客户朋臣务器（Client／Server）方案。

三、实验环境及开发工具

1.实验环境

★普通PC及主频在1GHZ以上档次的微机，笔记本电脑，各种品牌兼容机，

最佳档次在2GHZ以上的微机。

★128MB或256MB以上内存，最好配1GB以上内存

★20GB以上硬盘

★光电鼠标

2．开发工具

★VisualBasic6.0

四、实验内容

（一）、系统分析

1、系统数据流程图

2、数据字典

（1）、数据流名称：

学生成绩信息管理系统

组成：

学号姓名

来源：

学生成绩管理员

去向：

院电子档案管理库

（2）加工条目：

输入数据：

学生基本成绩信息

输出数据：

学生基本成绩信息分表

加工逻辑：

将各管理员传来的学生基本信息信息表进行汇总，得出全校学生基本成绩信息总表。

3、系统中所有实体（包括实体的属性）以及实体之间的联系类型分析

学生（学号，姓名，）

课程（课程名）

成绩（分数）

用户（帐号，密码，）

（二）、系统设计

1、子系统划分（或功能划分或模块划分）

（1）学生成绩系统默克：

主要用于用户登录。

用户可通过登录系统选择并查看自身的帐户选课信息。

（2）学生成绩信息模块：

主要用于查看课程分数并可进行增加、修改、删除。

2、模块之间联系的分析

3、数据库设计

（1）数据库的E-R图

a.学生成绩系统登陆实体E-R图，如下所示：

b.学生成绩管理信息实体E-R图，如下所示：

c.学生成绩管理实体E-R图，如下所示：

f.典型模块（或程序）的程序流程图：

（三）、系统实现（附程序流程图表示的典型模块的源代码）

登陆界面及登录界面代码：

PrivateSubCommand1_Click（）

IfText1.Text="123"AndText2.Text="123"Then

Form3.Show

Else

MsgBox"用户名或密码不正确",vbOKOnly+vbCritical,"登录信息"

EndIf

EndSub

PrivateSubCommand2_Click（）

End

EndSub

主菜单界面及主菜单界面代码：

PrivateSubCommand1_Click（）

Search.Show

Form3.Hide

EndSub

PrivateSubCommand2_Click（）

Insert.Text1.Enabled=True

Insert.Text2.Enabled=True

Form1.Hide

Insert.Show

EndSub

PrivateSubCommand3_Click（）

Insert.Text1.Enabled=False

Insert.Text2.Enabled=False

A=1

Form1.Hide

Insert.Show

Xueh=Val（InputBox（"请输入学号"））

Open"\myfile.txt"ForRandomAs#1Len=Len（Std）

Fori=1ToLOF

（1）/Len（Std）

Get#1,i,Std

IfStd.no=XuehThen

Insert.Text1.Text=Std.no

Insert.Text2.Text=Std.name

Insert.Text3.Text=Std.math

Insert.Text4.Text=Std.english

Insert.Text5.Text=Std.politic

Xuh=i

A=0

EndIf

Nexti

IfA=1ThenMsgBox（"没有些学号，此人"）

Close#1

EndSub

PrivateSubCommand4_Click（）

A=1

Form1.Hide

Insert.Show

Xueh=Val（InputBox（"请输入学号"））

Open"\myfile.txt"ForRandomAs#1Len=Len（Std）

Open"\myfile1.txt"ForRandomAs#2Len=Len（Std）

Fori=1ToLOF

（1）/Len（Std）

Get#1,i,Std

IfStd.no<>XuehThenPut#2,i,Std

A=0

Nexti

IfA=1ThenMsgBox（"没有些学号，此人"）

Close#1

Kill"\myfile.txt"

Open"\myfile.txt"ForRandomAs#3Len=Len（Std）

Fori=1ToLOF

（2）/Len（Std）

Get#2,i,Std

Put#3,i,Std

Nexti

Close#2

Close#3

Kill"\myfile1.txt"

EndSub

PrivateSubCommand5_Click（）

End

EndSub

学生成绩增加页面代码：

PrivateSubCommand1_Click（）

Open"\myfile.txt"ForRandomAs#1Len=Len（Std）

WithStd1

.no=Val（Text1.Text）

.name=Text2.Text

.math=Val（Text3.Text）

.english=Val（Text4.Text）

.politic=Val（Text5.Text）

.averagen=（Val（Text3.Text）+Val（Text4.Text）+Val（Text5.Text））/3

EndWith

Fori=1ToLOF

（1）/Len（Std）

Get#1,i,Std

IfStd1.averagen>Std.averagenThen

Std2=Std

Std=Std1

Std1=Std2

EndIf

Put#1,i,Std

Nexti

Put#1,LOF

（1）/Len（Std）+1,Std1

Close#1

MsgBox（"操作成功"）

EndSub

PrivateSubCommand2_Click（）

Open"\myfile.txt"ForRandomAs#1Len=Len（Std）

Get#1,Xuh+1,Std

Put#1,Xuh,Std

Close#1

Open"\myfile.txt"ForRandomAs#1Len=Len（Std）

WithStd1

.no=Val（Text1.Text）

.name=Text2.Text

.math=Val（Text3.Text）

.english=Val（Text4.Text）

.politic=Val（Text5.Text）

.averagen=（Val（Text3.Text）+Val（Text4.Text）+Val（Text5.Text））/3

EndWith

Fori=1ToLOF

（1）/Len（Std）

Get#1,i,Std

IfStd1.averagen>Std.averagenThen

Std2=Std

Std=Std1

Std1=Std2

EndIf

Put#1,i,Std

Nexti

Put#1,LOF

（1）/Len（Std）+1,Std1

Close#1

EndSub

PrivateSubCommand3_Click（）

Form3.Show

Insert.Hide

EndSub

学生成绩查询页面代码

DimAAsInteger

'

PrivateSubCommand1_Click（）

Picture1.Cls

Search.Picture1.Print"学号姓名数学成绩英语成绩政治"

Open"\myfile.txt"ForRandomAs#1Len=Len（Std）

Fori=1To（LOF

（1）/Len（Std））Step1

Get#1,i,Std

IfStd.no=Val（Text1.Text）Then

Search.Picture1.PrintStd.no,Std.name,Std.math,Std.english,Std.politic

EndIf

Nexti

Close#1

EndSub

PrivateSubCommand2_Click（）

Picture1.Cls

Search.Picture1.Print"学号姓名数学成绩英语成绩政治"

Open"\myfile.txt"ForRandomAs#1Len=Len（Std）

Fori=1To（LOF

（1）/Len（Std））Step1

Get#1,i,Std

IfInStr（Std.name,Text2.Text）<>0Then

Search.Picture1.PrintStd.no,Std.name,Std.math,Std.english,Std.politic

EndIf

Nexti

Close#1

EndSub

PrivateSubCommand3_Click（）

Form3.Show

Search.Hide

EndSub

PrivateSubCommand4_Click（）

Search.Picture1.Print"学号姓名数学成绩英语成绩政治"

Open"\myfile.txt"ForRandomAs#1Len=Len（Std）

Fori=1To（LOF

（1）/Len（Std））Step1

Get#1,i,Std

Search.Picture1.PrintStd.no,Std.name,Std.math,Std.english,Std.politic

Nexti

Close#1

EndSub

（四）、系统评价及改进

本管理系统通过对信息的采集、存储、加工、维护和使用等,并随着管理科学和技术科学的发展而形成的。

学生成绩管理系统能为用户提供充足的信息，对学生来说可以轻松使用。

整个软件在开发过程中使用模块化程序设计方法，充分考虑了各种实际情况，通过这段时间的具体应用和不断完善，显示出良好的效果。

整个管理系统是随着管理科学和技术科学的发展而形成的。

本系统为用户提供充足的成绩信息和查询手段。

整个系统在开发过程中使用模块化程序设计方法，充分考虑了各种实际情况，逐步取代了人们长期以来所使用的单纯的人工管理方式，提高了工作效率，也对学生工作管理的科学化、正规化起到了重要的作用。