范文网 论文资料 vb课程设计实习报告(集锦)

vb课程设计实习报告(集锦)

vb课程设计实习报告实习阶段是我们踏入社会前的适应期,能让我们了解社会运作的方式与逻辑,在实习结束后,有必要对于这一阶段进行总结。以下是小编整理的《vb课程设计实习报告》相关资料,欢迎阅读!第一篇:vb课程设计实习报告《龟兔赛跑》VB课程设。

vb课程设计实习报告

实习阶段是我们踏入社会前的适应期,能让我们了解社会运作的方式与逻辑,在实习结束后,有必要对于这一阶段进行总结。以下是小编整理的《vb课程设计实习报告》相关资料,欢迎阅读!

第一篇:vb课程设计实习报告

《龟兔赛跑》VB课程设计报告

姓名:杨鹏班级:9131038602 学号:913103860240

1. 程序功能简要说明

本程序是一个小游戏,单击游戏窗口中的图形命令按钮,游戏进入预备状态,连续闪烁三次“预备”字样,然后发出“开始”命令,开始比赛。若“开始”命令未下达前就跑,要作为抢跑处理,重新开始游戏。 游戏速度可以选择。赛跑开始后,游戏者1轮流按“a”和“s”键,游戏者2轮流按“;”和“‘”键,分别使控制对象前进。谁按的快,谁就跑得快。记时牌显示各自所用时间。游戏者跑到终点时,游戏结束,谁用的时间少,谁就获得胜利。

2.程序界面说明

该程序中设置了三个timer控件,其中timer1用于控制字体闪烁三次,其余两个timer2,timer3分别用于控制乌龟和兔子到达终点的时间,一到达终点便停止计时并且使得按钮无效,达到计时的效果;水平滚动条按钮用于比赛过程中调节速度——即每一步运动的步长;picture图片框充当跑道;在窗口的左上角有使用菜单编辑器编辑的菜单选项,“帮助”菜单中“关于赛跑”显示版本信息,“自述文件”是使用shell函数打开一个文本文档,介绍了游戏规则及使用方法;“游戏”菜单中开局菜单用于开始游戏并且包含f2快捷键,退出菜单可以退出游戏

3.程序设计过程中遇到的问题及解决方法

一开始的设计字体闪烁就想了好长时间,测试的时候发现单纯的使用timer控件用于控制时间并不能让字体停止闪烁,后来添加了一个静态级变量i用于控制闪烁的次数。最让我感到困难的还是如何让乌龟和兔子运动起来,并且是轮流按两个按钮才能运动,课本上知道我们用setfocus事件来控制按钮的有效性,但是当时自己使用的是vb精简版并没有这个事件,于是就想到了用每一个对象用两个静态级逻辑变量来控制,于是得到了解决。另外在调用shell函数时发现文件找不到,找到了也是乱码,发现文本文档并没有保存为txt文件类型导致出错。

4.心得感悟

游戏设计的思维量还是挺大的,很多方法都是平时不常用的,但在不断地摸索当中从课本当中自学了很多方法和事件,提高了自己的自学能力和对VB这一门课程的理解。虽然自己独立完成这个小游戏花了较长时间但是对于自己解决每一个问题并取得成功感到高兴,每次解决一个问题之后都会有成就感。我也明白了凡事只要自己努力了,付出了就一定会取得成功!

5.部分程序代码说明

Public t3 As Date, t4 As String

Public t1 As Date, t2 As String

Public i As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Static x As Boolean, y As Boolean

Static p As Boolean, q As Boolean’逻辑

Dim j As Single

j = speed.Value

If KeyCode = 65 Or KeyCode = 83 Then

If i < 4 Then

MsgBox "兔子抢跑", 48, "犯规"

t1 = 0

t2 = t1

rtime.Caption = t2

t3 = 0

t4 = t3

ttime.Caption = t4

i = 0

Exit Sub

End If

End If

If x = False And i = 4 Then

If KeyCode = 65 Then

rabbit.Left = rabbit.Left + j

x = Not x

y = Not y

End If

End If

If y = True And i = 4 Then

If KeyCode = 83 Then

rabbit.Left = rabbit.Left + j

y = Not y

x = Not x

End If

End If

If rabbit.Left >= runway.Widthrabbit.Width

End If

If KeyCode = 186 Or KeyCode = 222 Then

If i < 4 Then

MsgBox "乌龟抢跑", 48, "犯规"

t1 = 0

t2 = t1

rtime.Caption = t2

t3 = 0

t4 = t3

ttime.Caption = t4

i = 0

End If

End If

If p = False And i = 4 Then

If KeyCode = 186 Then

turtle.Left = turtle.Left + j

p = Not p

q = Not q

End If

End If

If q = True And i = 4 Then

If KeyCode = 222 Then

turtle.Left = turtle.Left + j

q = Not q

p = Not p

End If

End If

If turtle.Left >= runway.Widthturtle.Width

End If

If rTimer.Enabled = False And tTimer.Enabled = False Then

If t1 > t3 Then

MsgBox "乌龟赢了!", 48, "结果"

rTimer.Enabled = False

tTimer.Enabled = False

t3 = 0: t1 = 0

rabbit.Left = 0

turtle.Left = 0

rtime.Caption = "0:00:00"

ttime.Caption = "0:00:00"

i = 0

Exit Sub

ElseIf t1 < t3 Then

MsgBox "兔子赢了!", 48, "结果"

rTimer.Enabled = False

tTimer.Enabled = False

t3 = 0: t1 = 0

rabbit.Left = 0

turtle.Left = 0

rtime.Caption = "0:00:00"

ttime.Caption = "0:00:00"

i = 0

Exit Sub

ElseIf t1 = t3 And t1 > 0 And t3 > 0 Then

MsgBox "平局!", 48, "结果"

rTimer.Enabled = False

tTimer.Enabled = False

t3 = 0: t1 = 0

rabbit.Left = 0

turtle.Left = 0

rtime.Caption = "0:00:00"

ttime.Caption = "0:00:00"

i = 0

Exit Sub

End If

End If

End Sub

Private Sub Form_Load()

rabbit.Left = 0

turtle.Left = 0

rabbit.Width = turtle.Width

rtime.Caption = "0:00:00"

ttime.Caption = "0:00:00"

End Sub

Private Sub fox_Click()

Timer1.Enabled = True

ttime.Caption = "0:00:00"

rtime.Caption = "0:00:00"

t1 = 0

t3 = 0

End Sub

Private Sub gamemenu1_Click()

fox_Click

End Sub

Private Sub gamemenu2_Click()

End

End Sub

Private Sub helpmenu1_Click()

Shell "c:windows otepad.exe H:龟兔赛跑 eadme.txt", 1

End Sub

Private Sub helpmenu2_Click()

MsgBox "版本:1.01" & Chr(13) & "初次尝试敬请不吝赐教!", 48, "关于龟兔赛跑"

End Sub

Private Sub rTimer_Timer()

t1 = t1 + "00:00:01"

t2 = t

rtime.Caption = t2

End Sub

Private Sub Timer1_Timer()

If Label3.Visible = True Then

Label3.Visible = False

If i = 4 Then

Timer1.Enabled = False

rTimer.Enabled = True

tTimer.Enabled = True

End If

Else

i = i + 1

If i = 4 Then

Label3.Caption = "开始!"

End If

Label3.Visible = True

End If

End Sub

Private Sub tTimer_Timer()

t3 = t3 + "00:00:01"

t4 = t3

ttime.Caption = t4

End Sub

第二篇:VB课程设计总结

通过几周对VB的学习,使我增加了对VB课程的了解.

首先了解到VB的特点,VB是在原来的Basic语言基础上发展而来的.Visual指的是可视的图形用户界面开发方法.不需编写大量代码去描述界面元素的外观和位置,只要把预先建立的对象添加到屏幕上的某点即可.如果使用者诸多PAINT之类的绘图程序,则实际上已经掌握了创建用户界面的必要技巧.BASIC指的是B语言,一种在计算机技术发展历史上应用得最为广泛的语言之一.VB在原来BASIC语言的基础上进一步发展至今包含了数百条语句,函数及关键词,其中很多和WINDOWS GUI有直接关系,VB不仅是可视语言,而且是面向对象的编程语言.其特点是概念多,实践性强,涉及面广. 之后,了解到一些基本的概念,含义.例如类,就是创建对象实例的模板包含了创建的属性描述和行为特征的定义.而此中的对象又是类的一个实例,继承了类的属性,方法,而VB中长用的对象有窗体,控件等.但我们在建立之前必须清楚对象的三要素:属性,方法和事件.而建立程序的步骤大致可分为:(1)启动程序,装载和显示窗体.(2)窗体等待事件的发生.(3)事件发生时,执行对应的事件发生过程.(4)再重复(2)(3)的过程(5)最后直接遇到"END"结束语句结束程序的运行或按"结束"强行停止程序的运行. 再用VB创建一个应用程序,第一步骤是创建窗体,它是用户与应用程序进行交互操作的可视部分,窗体是创建界面的基本构造模块,也是创建应用程序所使用的对象.而后必要设置窗体的属性,从而构出窗体的外观,设置好的窗体,窗体就作为对象,能够对其定义的事件作出响应,这也是所谓的窗体事件,而窗体事件又包括窗体本身事件,键盘事件和鼠标事件.在了解窗体基本知识就还应了解VB的语言基础,其中包括了代码模块(窗体模块,标准模块,类模块),注释,分行和续行,数据类节(字节型,逻辑型,数值型,日期型),变量与常数,运算符与表达式,数组,控制结构,子过程和函数.同时,为了编程,我们还应培养良好的编程习惯,首先是对象,变量及过程的命名约定,然结构化编码约定. 在VB中创建应用程序之际也就是和对象打交道之时,对象是代码和数据的组合,可以作为一个单位来处理,对象可以是应用程序的一部分,比如可以是控件,窗体,或数据访问对象.控件也是对象中的一种,主要用来获取用户的输入信息和显示输出信息.应用程序中可用的控件包括文本框,命令按扭和列表框.而通过另外一些控件可以访问其他应用程序并处理数据. VB程序设计同时可设计出一个更好的菜单系统,这样就可以使用户了解到更大量有关应用程序设计和结构的信息,精心规划菜单与工具栏有助于提高应用程序的可用性.同时在基于WINDOWS的应用程序中,对话框被用来提示应用程序继续运行所需的数据或者用户显示信息.对话框是一种特殊类型的窗体对象,在VB中按对话框的创建有三种类型的对话框,他们是预定义对话框,自定义对话框和标准对话框.对于自定义对话框和标准对话框,使可以完成与用户之间的交互. 学习VB程序设计后,增加对此的认识,深入学习VB程序就可掌握新的软件,新的编程环境,学习此课程,也可学会使用开发环境,开发工具的方法.才能更好地跟上计算机学科的发展.

第三篇:VB课程设计于心得

Visual Basic

---课程设计与心得

班级:计科107

姓名:张麟树

学号:1004681324

一、实验课题:设计一个能计算2阶、3阶、4阶行列式的小软件,运行时先由用户输入行列式的阶数,然后软件自动生成行列式的输入模板,如用户输入的阶数是3,则产生9个输入框并排成3行3列且用两条竖线界定。这里需用控件的动太加载技术。

二、实验代码:

Dim N As Integer Public Function choose(ByVal X As Integer) Do If X = 2 Then With Form1 .Line1.Visible = True .Line2.Visible = True .Line3.Visible = False .Line4.Visible = False .Line5.Visible = False .Line6.Visible = False End With For I = 0 To 3 Form1.Text1(I).Visible = True Next I Exit Do ElseIf X = 3 Then With Form1 .Line1.Visible = False .Line2.Visible = False .Line5.Visible = False .Line6.Visible = False .Line3.Visible = True .Line4.Visible = True End With For I = 0 To 8 Form1.Text1(I).Visible = True Next I Exit Do ElseIf X = 4 Then With Form1 .Line3.Visible = False .Line4.Visible = False .Line1.Visible = False .Line2.Visible = False .Line5.Visible = True .Line6.Visible = True End With For I = 0 To 15 Form1.Text1(I).Visible = True Next I Exit Do Else Call Command1_Click End If Loop End Function Public Function Huanyuan() Dim I As Integer For I = 0 To 15 Form1.Text1(I).Visible = False Next I With Form1 .Line1.Visible = False .Line2.Visible = False .Line3.Visible = False .Line4.Visible = False .Line5.Visible = False .Line6.Visible = False End With End Function

Private Sub Command1_Click() Dim I As Integer Call Huanyuan N = InputBox("请输入阶数(

2、3或4):") For I = 0 To 15 Form1.Text1(I).Text = "" Next I Call choose(N) End Sub

Private Sub Command2_Click() Dim val As Integer If N = 2 Then val = Form1.Text1(0) * Form1.Text1(3)Form1.Text1(0) * Form1.Text1(5) * Form1.Text1(7)Form1.Text1(3) * Form1.Text1(4) * Form1.Text1(6) Else val = Form1.Text1(0) * Form1.Text1(3) * Form1.Text1(8) * Form1.Text1(15) + Form1.Text1(2) * Form1.Text1(7) * Form1.Text1(14) * Form1.Text1(9) + Form1.Text1(1) * Form1.Text1(5) * Form1.Text1(11) * Form1.Text1(12)

+

Form1.Text1(4)

*

Form1.Text1(10)

* Form1.Text1(6) * Form1.Text1(13) - Form1.Text1(0) * Form1.Text1(10) * Form1.Text1(8) * Form1.Text1(13) + Form1.Text1(1) * Form1.Text1(2) * Form1.Text1(11)

*

Form1.Text1(14)

+

Form1.Text1(3)

* Form1.Text1(4) * Form1.Text1(6) * Form1.Text1(15) + Form1.Text1(5) * Form1.Text1(7) * Form1.Text1(9) * Form1.Text1(12) End If MsgBox ("结果为: " & val) End Sub

Private Sub Command3_Click() End End Sub

三、实验结果:

选择菜单:

二阶行列式:

三阶行列式:

四阶行列式:

四、心得与体会:

作为一名计算机专业的学生,在接触了C语言、数据结构与C++课程后,对计算机语言有了一定的兴趣,于是在这个学期我毫不犹豫的选择了VB课程(算法与程序设计)。

VB程序设计的入门学习并不难,但却是一个十分重要的过程,因为程序设计思想的形成,以及之前学习积累的经验,很快就对VB有了一定的了解。下面就是我这段时间学习的新的与体会。 我认为作为学习程序设计最重要的一点是要注重理解一些重要的概念.VB程序设计本身并不复杂,翻开一本程序设计学习的书籍,看到的无非就是变量,函数,条件语句,循环语句等概念.但要真正能进行程序设计,需要深入理解这些概念.因此,在 程序入门阶段还是应该重视概念的学习.我们学习VB并没有从正常的途径,而是通过老师的演示与讲解,了解并学习了这门课程,可以说VB语言相对来说比其他语言简单,从他的语法就可以看出 其次,自己动手编写程序。程序设计入门阶段要经常自己动手抄写或编写一些小程序,亲自动手进行程序设计是创造性思维应用的体现,是培养逻辑思维的好方法.因此一定要多动手编写程序,而且要从小程序开发开始,逐渐提高写程序的能力.只有不断的从自己的程序中积累经验,从中进步,才能写出好的程序。程序设计课是高强度的脑力劳动,不是听会的,也不是看会的,而是练会的.只有自己动手,编写一些程序,才会有成就感,进而对课程产生兴趣,学起来才比较从容.动手能力的培养是这门课和以往课程最大的不同之处.重点放在思路,算法,编程构思和程序实现上.语句只是表达工具,要求堂上积极思考,尽量当堂学懂,并做到灵活应用. 编程序不像做其它的事情,写程序之前一定要计划周详,把所有的可能性都想到,并想好相应的解决方法,不然思想会很混乱,很容易出现错误。还有就是编程序最重要的其实是思想,思想确定之后用什么语言或什么方法就简单了,接下来就是设计并写成代码的事情了

好的程序员就是这样一步一步炼成的。

在者,阅读,借签别人设计的好程序。多看别人设计好的程序代码,包括教材上的例题程序.在读懂别人程序后,要想他为什么这么设计能不能将程序修改完成更多的功能 则可以学到别人优秀的东西,帮助自己 提高自身水平. 通过这次学习,我越来越喜欢上计算机语言,感谢方老师,我相信在计算机语言上回走的更远。

第四篇:VB课程设计-文本编辑器

学院名称学生姓名专业名称班

级VB课程设计报告

——文本编辑器

: : : :

一、课程设计题目

用Visual Basic程序设计语言编写一个简易的文本编辑器

要求:有最基本的文本编辑功能,包括复制、剪切、粘贴、字体设置、背景颜色设置、字体颜色设置;同时拥有文本管理功能,包括打开文件、保存文件;以及完整的系统运行退出等功能,所有的操作可选择设定的快捷键。

二、课程设计目的

虽然本学期的Visual Basic课程是自学的,相对于课堂学习有些不足,但通过平时的上机实验,初步掌握了VB程序设计的各种方法,学会了编写最基本的VB程序;对于完整的VB程序设计来讲是很不足的,平时掌握的只是单独的窗体(Form)程序编写,以及各种简单控件的使用,没有做到很好连贯性,所以有必要做一次完整的VB程序设计,结合所学的基本知识,使用多个窗体自成一套系统,加上各种控件的综合运用,初步设计一个合格的VB应用程序;这样在巩固VB所学的同时,更好地学会程序设计的一些思想和方法,对于以后的编程学习或是工作有重要的实践意义。

三、课程设计说明

题目为文本编辑器,即是最基本的文本编辑程序,首先必须做好文本编辑器本身的功能,然后对其完善,做成一个完整的小程序

功能设计说明:功能是这个文本编辑器的核心内容,也就是程序的作用,它是用来做什么的;本程序就是用来编写文本的,编写过程中要利用到窗体(Form)一个,控件包括:RichTextBox1(超文本框)、CommonDialog(通用对话框),以及InputBox(消息框)、菜单编辑器等,。要做的工作就是编写代码把这些控件和窗体等结合为一体,使得程序能够成为一体,顺畅运行。

本次设计在按照题目要求的前提下,为了完整地展示一个应用程序,在最初就设计为最基本的文本的编辑器,所以取名为“易记本”,就是简易记事本的简称,然后加入图标,在程序完成之后还进行了大包操作,得到应用程序的安装文件,最后安装在电脑上运行使用。 四.源代码

Private Sub Command1_Click() Dim i As Integer If Text2.Text <> "123456" Then i = MsgBox("密码错误", 5 + vbExclamation, "警告") If i <> 6 Then End Else Text2.Text = "" Text2.SetFocus End If End If Form1.Hide Form2.Show End Sub

Private Sub Form_Load() Text1.Text = "" Text1.MaxLength = 6

Text2.Text = "" Text2.MaxLength = 6 Text2.PasswordChar = "*" End Sub

Private Sub Text1_LostFocus() If Not IsNumeric(Text1.Text) Then MsgBox "帐号必须为数字", , "警告" Text1.Text = "" Text1.SetFocus End If End Sub

Private Sub Command1_Click() Form2.Hide Form3.Show End Sub

Private Sub Command2_Click() Form2.Hide Form4.Show End Sub

Private Sub Command3_Click() Form2.Hide Form5.Show End Sub

Private Sub Color_Click() CommonDialog1.Action = 3 Text1.ForeColor = CommonDialog1.Color End Sub

Private Sub Command1_Click() Form3.Hide Form2.Show End Sub

Private Sub Copy_Click() Dim st As String st = Text1.SelText End Sub

Private Sub Cut_Click()

Dim st As String st = Text1.SelText Text1.SelText = "" End Sub

Private Sub Exit_Click() End End Sub

Private Sub Font_Click() CommonDialog1.Flags = cdlCFBoth Or cdlCFEffects CommonDialog1.Action = 4 Text1.FontName = CommonDialog1.FileName Text1.FontSize = CommonDialog1.FontSize Text1.FontBold = CommonDialog1.FontBold Text1.FontItalic = CommonDialog1.FontItalic Text1.FontStrikethru = CommonDialog1.FontStrikethru Text1.FontUnderline = CommonDialog1.FontUnderline Text1.ForeColor = CommonDialog1.Color End Sub

Sub New_Click() Text1.Text = "" Me.Caption = File End Sub

Sub Open_Click() CommonDialog1.Action = 1 Text1.Text = "" Open CommonDialog1.FileName For Input As #1 Do While Not EOF(1) Line Input #1, inputdata Text1.Text = Text1.Text + inputdata + vbCrLf Loop Close #1 End Sub

Private Sub Paste_Click() Text1.SelText = st End Sub

Private Sub Print_Click() CommonDialog1.Action = 5 For i = 1 To CommonDialog1.Copies

Printer.Print Text1.Text Next i Printer.EndDoc End Sub

Private Sub SaveAs_Click() CommonDialog1.FileName = "vb课设用.txt" CommonDialog1.DefaultExt = "txt" CommonDialog1.Action = 2 Open CommonDialog1.FileName For Output As #1 Print #1, Text1.Text End Sub

Dim arr As Long, sum As Long, a As Integer Private Sub Command1_Click() a = HScroll1.Value Text1.Text = plus(a) Call isprime(a) End Sub

Private Sub Command2_Click() End End Sub

Private Sub HScroll1_Change() Label2.Caption = HScroll1.Value End Sub Sub isprime(max As Integer) Dim x As Integer, i As Integer, j As Integer For i = 2 To max x = 0 For j = 2 To ictP * 2 Show1 ctDu(I), &HFFFFFF / (ctDuS + 1) * I * 0.6 Next Dim x As Single, y As Single Static J As Single Picture1.DrawWidth = 15 x0 = Picture1.ScaleWidth * 0.5: y0 = Picture1.ScaleHeight * 0.5 Picture1.PSet (x0, y0), 255 x = 1200: y = 0: J = JJ x = S * Cos(J + ToJ): y = S * Sin(J + ToJ) End Sub Private Sub Command1_Click() End End Sub

五、运行结果

六. 心得体会

通过本次课程设计,使我对VB的认识更加深入了一层,VB主要由两部分组成,一个是Visual可视化界面设计,另一个是Basic程序设计。对于第一部分,我觉得还是比较容易的,因为它比较直观。就目前我所学的,对于第二部分还是比较困难。在做设计的过程中发现自己存在不少问题,由于word知识欠缺,我没有办法为我的课程设计创建目录,这让我觉得很遗憾,尤其是对VB编程语句的不熟悉而造成在运行过程的很多次出错。具体说文本编辑器的设计,首先是控件的使用要注意,例如不能使用平时一般的Text文本框,因为其只适用于一般的文本显示,使用RichTextBox,可拥有文本的完整功能,不用再添加滚动条等控件,而是使用其自带的滚动条;其实是菜单的设计,应注意菜单的名称书写,不能出现重复现象,否则要使用索引,不仅增加麻烦更不利于程序编写,然后编写代码的时候应注意必须与菜单中的名字一一对应,否则会出现错误;最后要注意程序的完整性以及实用性、便捷性,能够有友好的UI设计,给用户最好的体验。

第五篇:VB课程设计--学生信息管理系统

11111111111111111111111111111111111111111111

要………………………………………………………………………5 前

言………………………………………………………………………6 第一章 为什么要开发一个学生档案管理系统……………………………7 1.1 在教育中用计算机管理学生档案的意义.………………………7 1.2为将来学校上网做好准备……………………..…………………7 1.3 学生档案的设计分析……………………………………………7 第二章 编程环境的选择.…………………………………………………9 2.1开发工具的介绍.…………………………………………………9 2.3关系型数据库……………………………………………………11 2.4 数据库的概念……………………………………………………12 2.5新建一个数据库.…………………………………………………12 第三章 需求分析………….………………………………………………14 3.1 可行性研究………………………………………………………14 3.2 需求分析…………………………………………………………15 第四章 系统总体规划..……………………………………………………17 4.1软件模块结构设计………………………………………………17 4.2数据库设计...……………………………………………………18 第五章 系统具体实………………………………………………………19 5.1 主界面………………………………………………………………19 5.2数据库的实现…………………………………………………………21 5.3 ACCESS与VB的连接………………………………………………22 第六章 测试 …………………………………………………………………24 6.1程序运行界面 如下图………………………………………………24 6.2输入用户名和密码界面………………………………………………26

1 11111111111111111111111111111111111111111111 6.3系统所具备的功能显示界面…………………………………………26 6.4系统管理功能…………………………………………………………27 6.5班级系统………………………………………………………………30 6.6 档案管理……………………………..………………………………32 6.7课程管理………………………………………………………………33 6.8成绩管理………………………………………………………………34 结束语…………………………………………………………………………36 致

谢……………………………………………………………………….37 参考文献………………………………………………………………………38

摘 要

学生档案管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。

经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。

关键字:控件、窗体、域。

摘要:随着中国教育事业的迅速发展,学生的数量日益增加,学生的信息管理也变得日益繁重和复杂。如果想要提高学生信息管理的效率和质量,以适应教育事业的发展,我们就必须对学校内部进行改革和加强学校管理。借助现代信息技术的管理方法,建立学生信息管理系统势在必行。本文通过对一个学生信息管理系统的开发实例,对基于Visual Basic 6.0和SQL 2000的学生信息管理系统进行了分析和研究。

文章首先分析了管理信息系统的概念和特点,介绍了开发工具Visual Basic 6.0和SQL

2 11111111111111111111111111111111111111111111 2000,然后对学生信息管理信息系统进行了需求分析、概要设计和详细设计,在概要设计中进行了数据库的设计,在详细设计中讨论了系统的实现方法和编码。之后对系统测试进行了分析和讨论,功能模块的测试中把登录服务器模块的测试和其他功能模块的测试分开进行,介绍了一种实用的测试方法。最后是介绍系统的总体测试和系统发布。 本文所论述的学生信息管理系统对实现初中、高中和大中专院校的学生信息管理的现代化、

科学化具有重要意义。

关键词:学生信息管理系统;Visual Basic 6.0;SQL 2000 ;C/S模式

Information Management system of student

Based on C/S model

Abstrac: With the quick development of Chinese education, the student’s quantity increasingly increaseses, the student’s status management also becomes increasingly heavy and complicated. If want to improve the efficiency and quality of the student’s status management and adapt the development of the education business, we must to reform the inner school and enhance the school management. So ask for the management method of the modern information technique and eatablish the student’s status management system is imperative. This text analysis and study the student’s status management information system which based on Visual Basic 6.0 and SQL 2000 across an example of student’s status management imformation system.Firstly, the article analyzed the management information system’s concept and characteristics and introduced the development tools Visual Basic 6.0 and SQL 2000 .Then it carried through the need analysis, general design and detailed design for the student’s student status information system.It designed the database in the general design and discussed the realize methord and coding of the system in the detailed design. Then it analysised and dicussed to the system test.It classified the test of registering server mold and the test of other founction mold in the function mold test and introduced a practical test method.Finally it introduced the total test and release of the system. The student’s student status management this text discussing have important meaning to realize the student’s student status manage of junior and senior high school. Keywords: Students status management system;Visual Basic 6.0;SQL 2000;C/S model

目 录 前言 1 1 系统开发环境及其工具介绍 2

3 11111111111111111111111111111111111111111111

1.1 系统简介 2 1.1.1 管理信息系统的概述 2 1.1.4 学生学籍管理信息系统概述 2 1.2 系统开发工具及开发环境概述 3 1.2.1 Visual Basic 6.0 的介绍 3 1.2.2 ADO数据访问技术 3 1.2.3 Microsoft SQL Server简介 8

2 需求分析 11 2.1 系统需求 11 2.1.1 编写目的 11 2.1.2 背景及范围 11 2.2 任务概要 11 2.2.1 目标 11 2.2.2 运行环境 11 2.2.3 条件与限制 11 3 系统总体分析与设计 12

3.1 系统分析 12 3.1.1 系统功能的分析 12 3.1.2 系统功能模块设计 12

3.2 数据库设计 13 3.2.1 数据库需求分析 13 3.2.2 数据库概念结构设计 13 3.2.3 数据库逻辑结构设计 15

4 详细设计 18 4.1 学生管理系统主窗体的创建 18 4.1.1 创建工程项目——Student_MIS 18 4.1.2 创建学生信息管理系统的主窗体 18

4.1.3 创建主窗体的菜单 20 4.1.4 创建公用模块 20 4.2 系统用户管理模块的创建 21 4.2.1 用户登录窗体的创建 21 4.2.2 添加用户窗体的创建 23 4.2.3 修改用户密码窗体的创建 24 4.3 学籍管理模块的创建 25

4 11111111111111111111111111111111111111111111 4.3.1 添加学籍信息窗体的创建 25 4.3.2 修改学籍信息窗体的创建 27 4.3.3 查询学籍信息窗体的创建 29 4.4 班级管理模块的创建 30 4.4.1 添加班级信息窗体的创建 30 4.4.2 修改班级信息窗体的创建 32 4.5 课程设置模块的创建 32 4.5.1 添加课程信息窗体的创建 32 4.5.2 修改课程信息窗体的创建 33 4.5.3 设置年级课程窗体的创建 34 4.6 成绩管理模块的创建 35 4.6.1 添加成绩信息窗体的创建 36 4.6.2 修改成绩信息窗体的创建 37 4.6.3 查询成绩信息窗体的创建 37

5 运行与测试 39 5.1 登录服务器模块测试 39 5.2 其他模块的测试 39 5.3 帮助文档的设计 39 5.4 系统测试和打包发行 40

结束语 41 参考文献 42 致谢 43 附录 44

前言

管理信息系统就是我们常说的MIS(Management Information System),在强调管理,强调信息的现代社会中它变得越来越普及。MIS是一门新的学科,它跨越了若干个领域,比如管理科学、系统科学,运筹学、统计学以及计算机科学。[1]在这些学科的基础上,形成信息收集和加工的方法,从而形成一个纵横交织的系统。

管理信息系统起初应用于最基础的工作,如打印报表、计算工资、人事管理等,进而发展到企业财务管理、库存管理等单项业务管理,这属于电子数据处理(EDP,Electronic Data Processing)系统。当建立了企业数据库,有了计算机网络从而达到数据共享后,从系统观点出发,实施全局规划和设计信息系统时,就达到管理信息系统的阶段。随着计算机技术的进步和人们对系统的需求进一步提高,人们更加强调管理信息系统能否支持企业高层

5 11111111111111111111111111111111111111111111 领导的决策这一功能,更侧重于企业外部信息的收集、综合数据库、模型库、方法库和其他人工智能工具能否直接面向决策者,这是决策支持系统(DSS,Decision Support System)

的任务。

我国20世纪70年代末有少数企业开始MIS的局部应用。“六五”期间,选择一些大型企业进行MIS的开发试点,其中首都钢铁公司、北京第一棉纺厂、湖北第二汽车制造厂、宁江机床厂等取得了经验。20世纪80年代中后期,在全国性的计算机应用热潮中,许多企业纷纷从财务管理、人事管理等单项应用入手,尝试建立MIS。许多企业,如北京内燃机厂、北京电视机厂、沈阳鼓风机厂、天津渤海无线电厂的MIS初具规模,建立了覆盖全厂的计算机网络。“八五”期间,企业逐步走向市场,MIS建设的目标和需求日益明确。一些企业的系统,如北京第一机床厂、山西经纬纺织机械厂、成都飞机制造公司等都达到了很高的水平,与企业中其他系统集成,形成了CIMS。目前,我国MIS已经有了相当的普及率,几乎覆盖了各个行业及各个部门。

在学校,尤其是在各大高校,对于学生的管理是相当重要,而且也是相当麻烦的,它是学校管理中最基本的一项常规性工作。而长期以来,学校管理都是依赖人工来进行的,面对如此众多的学生信息,其工作量是相当相当巨大的。这样不仅仅浪费了大量的人力物力,而且由于人工管理存在着大量的不可预知性,造成学生信息管理的一些不规范,使得信息

管理陷入“事倍功半”的地步。

开发本系统就是为了解决学校在管理中的一些不规范,使学生信息的管理向着规范化、简

单化、有效化的方向发展。[2] 根据学生信息管理系统的基本流程和高校学生信息管理的实际要求,本系统需要实现以下

功能:

(1) 学生基本信息的录入,基本信息包括学生的基本情况、所在班级、所学课程和成绩等;

(2) 要求在系统中能够对学生信息精心灵活的浏览和查询; (3) 要求在系统中能够对班级信息进行输入、查询和修改等; (4) 要求能够对学校基本课程信息录入、修改和设置等; (5) 要求能够对学生成绩信息进行输入、修改和查询等; (6) 本系统可以提供给管理员或者学生本人使用。对学生类用

6 11111111111111111111111111111111111111111111

6.3系统所具备的功能显示界面

如图

7 11111111111111111111111111111111111111111111

6.4系统管理功能

如图

8 11111111111111111111111111111111111111111111

6.5班级系统

.

6.5.1 班级添加

9 11111111111111111111111111111111111111111111

6.6 档案管理

10 11111111111111111111111111111111111111111111

6.6.1 档案添加

6.6.2 档案查询

11 11111111111111111111111111111111111111111111

6.7课程管理

6.7.1课程设置

12 11111111111111111111111111111111111111111111

6.7.2 课程添加

13 11111111111111111111111111111111111111111111

四、设计结果分析

(1)系统所具备的功能显示界面

14 11111111111111111111111111111111111111111111

15 11111111111111111111111111111111111111111111

16 11111111111111111111111111111111111111111111 (2)结果分析

1、第一步能很好的运行,初始密码就是用户名,只有密码正确才会进入系统。

2、点击在用户界面可以加入新的用户和删除以前的用户,也可以对密码进行修改。

3、在班级管理系统中各个功能都可以实现,可以显示当前系统中所有的班级信息。

4、课程设计一栏中可以添加系统中已经存储的课程和手动的输入课程,可以对课程的信息进行相应的操作。

5、成绩管理功能可以正常的运行,每一个功能都是单独的实现,不会产生混淆。

6、学籍管理是比较难的一部分,在运行了几次才让各个功能更能很好的实现,能够很好的将学生的信息存到数据库中。而且可以对其中的数据镜像相应的操作

17 11111111111111111111111111111111111111111111

五、个人小结

虽然Vb课结束了,但是自己感觉好像没有学到太多的东西,可能是上机的时间比较少吧,还有就是对待这么课的心态不同和老师要求的不严的缘故。

通过写完这个学生管理系统,感到收获很多,不动手就不知道自己的在哪里不懂,在这次作业的完成中遇到了许多自己无法调试的错误,只能请教已经学过了的同学,感觉到自己的知识的缺乏。虽然最后自己把所有的功能都按照预期的编好了,也可以很好的运行,但是其中也有许多的不足,对图像的不理解和不会很好的使用是自己的程序让人感到很呆板,这是需要改进的一大部分。

跟着老师学习了一个学期,自己感觉到学会一些简单的程序编写,至少认识了vb的作用性,这次的大作业,我只能把每一功能当做一个小的程序来编写,不会很好的联系所用的功能,在编写较长的运算时,不能够写好,只能对着书本一个的一个算法尝试,不能脱离课本,有时看着课本也不知道怎么写。

当自己写到难的时候,有点想放弃,感觉太难了,就把自己的程序给别人修改,加工。对其中的控件和文件的概念不是很熟

18 11111111111111111111111111111111111111111111 悉,还有就是数据库,以前没有接触,虽然老师在最后一节课的时候是一步一步的在课堂上讲解的,但是自己操作时,有时不知道在哪个地方编辑。

编完这个程序最大的收获就是将自己不同的和学到的知识重新的联系起来了,又重新的复习了所学的内容,对不同的算法有了新的了解。常用控件和系统对象有了初步的认识,学会利用数据库来存储信息,对上课不知道的多文档界面,在试着编写的过程中有了较大的认识。

总的来说,这一个学期并没有浪费,可以在别人的帮助下做完这个学生管理系统,感到有种成就感,虽然不是很完美,至少自己能够让这个系统完整的运行,其中不足之处,就只好留在自

19

上一篇
下一篇
返回顶部