学生档案管理系统(vb)

1、南京大学继续教育学院毕业设计（论文）课题名称:学生档案管理系统姓名:刘晓兵学号:HZ021405010专业（班级）:计算机技术与管理指导老师:刘跃建第1页共36页摘要学生档案管理系统是典型的信息管理系统 (MIS), 其开发主要包括后台 数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立 起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序 功能完备 ,易使用等特点。经过分析 ,我们使用 MICROSOFT 公司的 VISUAL BASIC 开发工具 ,利 用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象 ,首先在短时间内建立

2、系统应用原型 ,然后 ,对初始原型系 统进行需求迭代 ,不断修正和改进 ,直到形成用户满意的可行系统。关键字：控件、窗体、域。ABSTRACTThe system of managing student file is a typical application of managing information system ( know as MIS ),which mainly includes building up data-base of back-end and developing the application interface of front-end. The former

3、 required consistency and integrality and security of data. The later should make the application powerful and easily used.By looking up lots of datum, we selected Visual Basic presented by Microsoft because of its objective tools in Win32. VB offered a series of ActiveX operating a data-base. It ca

4、n give you a short-cut to build up a prototype of system application. The prototype could be modified and developed till users are satisfied with it.Keywords: ActiveX , Form , Field .目录第一章 引言第二章 需求分析与可行性论证1-2-3第三章 概要设计4-731 实现菜单选项32 实现工具栏33 帮助34 关于版本35 数据库的概念3.6 系统功能第四章 详细设计8-9-4 1 记录操作4 2 记录操作4.3系统

5、信息4.4.帮助系统第五章 代码编写10-31-第六章 测试31-32-第七章 总结33第一章 引 言学生档案管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要 ,所以学生档案管理系统应该能够为用户提供 充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文 件档案，这种管理方式存在着许多缺点,如 :效率低、保密性差 ,另外时间一长将产生大量的文件和数据 ,这对于查找、更新和维护都带来了不少的困难。 随着科学技术的不断提高 ,计算机科学日渐成熟 ,其强大的功能已为人们深刻 认识 ,它已进入人类社会的各个领域并发挥着越来越重要的作用。 作为计算机应用

6、的一部分 ,使用计算机对学生档案信息进行管理 ,具有着手工 管理所无法比拟的优点 .例如 :检索迅速、查找方便、可靠性高、存储量大、保 密性好、寿命长、成本低等。这些优点能够极大地提高学生档案管理的效率 也是企业的科学化、正规化管理 ,与世界接轨的重要条件。 因此，开发这样一套管理软件成为很有必要的事情,在下面的各章中我们将以开发一套学生档案管理系统为例 ,谈谈其开发过程和所涉及到的问题及解决方 法。第二章 需求分析与可行性论证需求分析计算机已经成为我们学习和工作的得力助手： 今天，计算机的价格已经十分低廉，性能却有了长足的进步。它已经被应用 于许多领域，计算机之所以如此流行的原因主要有以下几

7、个方面： 首先，计算机可以代替人工进行许多繁杂的劳动； 其次，计算机可以节省许多资源； 第三，计算机可以大大的提高人们的工作效率； 第四，计算机可以使敏感文档更加安全，等等。在中小学中用计算机管理学生档案的意义现在我国的中小学校中档案的管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这 种传统的管理方法必然被计算机为基础的信息管理所取代。我作为一个计算机应用的专科生，希望可以在这方面有所贡献。改革的总设 计师邓小平同志说过 “科学技术是第一生产力 ”，我希望能用我三年的所学编制 出一个实用的程序来帮助中小学进行更有效的学籍管理。归纳起来，

8、好处大约有以下几点：1 可以存储历届的学生档案，安全、高效；2 只需一到二名档案录入员即可操作系统，节省大量人力；3 可以迅速查到所需信息。可行性论证技术上可行性 ： 软件界面清晰，整洁。功能一目了然，操作简单，容易上手，对于一般 网络操作者都能胜任。综上所述，本系统的设计与开发在技术上和硬件设备上的条件都是满足 的，因此，它在技术上是可行的。运行上可行性 ： 本系统为一个小型的编辑系统，所耗费的资源非常的小，具体的系统需 求如下：CPU:至少 200MHz Intel Pentinm处理器操作系统： Windows 98 第二版、 Windows Me 、Windows NT4 、 Wind

9、ows2000 或 Windows XP内存：至少6 4 mb可用系统内存硬盘：至少8 5 mb可用磁盘空间显示器：分辨率1024 X 768Pixels、16位色以上显示器效果最佳光驱： cd-rom 驱动器 电脑无论是硬件还是软件都能够满足条件，因此，本系统在运行上是可行的。 法律可行性 ：本系统纯为私人设计，在开发过程中没有涉及合同、责任等与法律相抵 触的方面。因此，本系统在法律上是可行的。第三章 概要设计Windows 下的 VisualBasic Basic 。 Visual Basic 应用程序基本的构建 块是用户所创建的对象， 每一个对象都具有一些特性和行为 （属性、 事件和 方

10、 法）。开发人员可以最有效利用所创建的每一个对象。使用应用程序具有可 通用性可说扩展性和强有力的功能。Visual Basic 应用由一系列对象组成，包括有函数、菜单、函数、结构和 数据窗口、用户对象、用户事件等等，对象中又包含若干控件如命令按钮、 单行编辑器等这些对象和控件都可在许多应用中重复使用。3.1 实现菜单选项 菜单是程序最重要的特性之一，大多数程序都依赖一个定义良好的菜单使程 序易于使用和维护， Visual Basic 也提供了强大的创建菜单功能是程序更加标 准。您可以使用 Visual Basic 的 Application Wizard 也可以使用 Visual Basic

11、的菜单 编辑器建立菜单或者修改已经存在的菜单。3.2 实现工具栏CoolBar 控件与 Office97 种看到的 CoolBar 是类似的。 CoolBar 就是一个可以 在窗体上浮动的工具，同时也是其他 ActiveX 的容器。通过在 CoolBar 中迁 入其他空间你局可以向用户提供更好的灵活性和义用性。Toolbar 是工具条控件，是实现工具条的主体。其中的按钮可以显示图像和 标题，并按功能分组或加入分隔符，还可以围棋设置鼠标停留在其上显示的 提示字符。 Toolbar 也是一个控件容器且具有 Style 属性，并可以为其增加下拉按钮和平滑按钮等。选择 “工程”下拉菜单中的 “部件”选

12、项，显示 “部件 ”对话框。在 “控件 ”选项卡 列表中选择 “ Microsoft Windows Common Controls 6.0 后”工具相中增加改控 件。其属性及对象如下：1 Align 属性定义工具条在窗体中的位置2 ToolTipText 属性是字符串类型，定义控件的提示字符3 Style 属性定义按钮外观。4 ImageList 属性定义与数据条对应的 ImageList 控件名，该控件定义工具 条按钮显示的图像。5 HotImangeList 属性设置一个 ImageList 控件名，该控件定义按钮获得热 点时显示的图像。6 DisabledImageList 属性定义工

13、具条按钮无效时显示的图像。 创建工具条包括 ImageList 和 Toolbar 控件ImageList 用于为其他控件提供图像库，将 ImageList 控件加入到工具箱的操 作于前述 Toolbar 控件相同。3.3 帮助专业水平的软件通常都带有联机帮助功能。无论写出来的程序是要给大量的 用户使用，还是仅仅局限于公司内部有限的使用者，我们都应该为用户提供 详细的、易于理解的联机帮助文档。微软的 Help Workshop4.0 是一套独立于 Visual Basic 的用来协助我们创建、 运行于 32 位 Windows 操作系统下的帮助 文件的工具。使用它我们可以为我们编写的应用程序生

14、成一组帮助文件。3.4 关于版本 为了是程序显得更具有专业风格，首先可以在其中加入通常的应用程序信息。 这些信息包括公司名称、版本号、修订号以及其他类似信息。 Visual Basic 允 许你使用 APP 对象来保存这些信息， APP 对象是一个预定义对象，不需要在 程序中创建它。 APP 对象的大多数属性被应用程序用来提供常规的信息，通 过使用这些 APP 提供的属性，可以在应用程序和用户之间交流重要信息，在 项目属性框中可以设置它的属性。使用 Access2000 实现关系型数据库3.5 数据库的概念 数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和 表达信息，简而言之

15、，数据库就是信息的集合。计算机的数据库可以分为两 类：非关系数据库( flat-file )和关系数据库( relational )。关系数据库中包含 了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。新建一个数据库 创建任何一个数据库的第一步是仔细的规划数据库，设计必须是灵活的、有 逻辑的。创建一个数据库结构的过程被认为是数据模型设计。1 标识需要的数据；2 收集被标识的字段到表中；3 标识主关键字字段；4 绘制一个简单的数据图表；6 标识指定字段的信息；7 创建物理表。修改已建的数据库数据库的修改分为： 添加、编辑和删除记录。 这三种操作均可由 Visual Basic 创

16、建的程序来完成，下面的章节将详细描述实现的具体方法。实现数据库之间的联系数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的纪录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。系统总体规划3.6 系统功能1 可以进行文本操作；2 添加一个数据库项目；3 删

17、除一个数据库项目；4 修改一个数据库项目；5 查询信息；6 察看课程表。第四章 详细设计用户界面的实现主界面包含三方面的内容 ,以下一一介绍 :4.1. 记录操作打开记录操作 ,进入记录操作菜单项分别由文件、视图及帮助三个选项。4.1.1 文件包括：新建、打开、打开写字板、保存、另存、打印、退出4.1.2 视图包括：状态条、工具栏、背景颜色、显示、课程表、文本编辑器、 网络浏览4.1. 3 帮助包括：内容关于帮助4.2 记录操作打开记录操作进入记录操作选项页分别由浏览记录、查找等三个选项组成。4.21 浏览记录：学生学籍库、课程库、成绩库4.22 查找记录4.23 备注4.3 系统信息打开系统

18、信息进入选项页分别由系统信息、信息采集等组成。4.4. 帮助系统数据库的实现4.4.1 学籍数据库学籍数据库里存储了学生的档案包括：学号、姓名、年龄等列名（中文）列名（英文）数据类型宽度小数点位数是否为空姓名Name Date8No 学号 CodeInteger6No 性别 SexDate2No 年龄 AgeDate6No 民族 NationDate6No 政治面貌 Visage.Date2.Yes. 家庭住址 AddressDate10No 备注 RecordDate15No 学籍模块： 该模块主要完成学生基本信息的录入、删除 、更新等功能。在此模块中定义 了八个域名来进行学生的信息存储。如

19、果用户修改某一纪录中的某一项，可 单添加按钮进行学生记录的编辑， 此窗口使用数据窗口的 FREEDOM 风格（典 型的录入界面）。该种风格特点是列标题紧挨着数据列在此窗口还可以增加 新学生纪录。4.42 成绩数据库成绩数据库里存储了学生的成绩包括：学号、成绩、等 列名（中文）列名（英文）数据类型宽度小数点位数是否为空姓名 Name Date8No 学号 CodeInteger6No 成绩 ScoreDate10No 备注 RecordDate15No 成绩模块：该模块主要完成学生成绩的基本信息的录入、删除 、更新等功能。在此模块 中定义了四个域名来进行学生的信息存储。4.4.3 课程数据库 课

20、程数据库利存储了课程的信息：课程名、作者、出版社等 列名（中文）列名（英文）数据类型宽度小数点位数是否为空课程 IDCourseDate8No 课程名 NameDate15No 出版社 PublisherDate20No 作者 ScoreDate18No 备注 RecordDate15No课程模块：该模块主要完成存储课程的所有信息及录入、删除 、更新等功能与 VB 的连接Visual Basic 提供了与底层数据库系统紧密的连接。 Visual Basic 支持不同的关 系数据库管理系统并充分发挥每一个数据库的特长。生成独立应用或脱离服 务器运行的服务以上的应用， Visual Basic 连

21、接数据库的方式有两种：通过使用 Visual Basic的 DATA 控件。通过使用由Visual Basic提供的专用的直接与数据库相连的接口第五章 代码编写程序清单Option ExplicitDim FileName As String 文件名，用于打开、保存文件Dim UndoString As String 用于 Undo 操作Dim UndoNew As String 用于 Undo 操作Private Sub ImgUndoDisable()禁用“ Undo按钮UndoString = UndoNew = ImgUndo.Enabled = FalseImgUndo.Pictur

22、e = ImageDisable.ListImages(Undo).PictureEnd SubPrivate Sub ImgUndoEnable()有效“ Undo按钮ImgUndo.Enabled = TrueImgUndo.Picture = ImageUp.ListImages(Undo).PictureEnd SubPrivate Sub Check_ImgPaste()设置粘贴按钮If Len(Clipboard.GetText) 0 ThenImgPaste.Enabled = TrueImgPaste.Picture = ImageUp.ListImages(Paste).Pi

23、cture ElseImgPaste.Enabled = FalseImgPaste.Picture = ImageDisable.ListImages(Paste).PictureEnd IfEnd SubPrivate Sub Check_ImgCutCopy()设置剪切、复制按钮If Text1.SelLength 0 ThenImgCut.Enabled = TrueImgCut.Picture = ImageUp.ListImages(Cut).PictureImgCopy.Enabled = TrueImgCopy.Picture = ImageUp.ListImages(Copy

24、).Picture ElseImgCut.Enabled = FalseImgCut.Picture = ImageDisable.ListImages(Cut).PictureImgCopy.Enabled = FalseImgCopy.Picture = ImageDisable.ListImages(Copy).PictureEnd IfEnd SubPrivate Sub BackColor_Click()CommonDialog1.ShowColorText1.BackColor = CommonDialog1.ColorEnd SubPrivate Sub Box_Click()显

25、停工具栏If Box.Checked Then将停显工具栏Box.Checked = FalseCoolBar1.Visible = FalseElseBox.Checked = TrueCoolBar1.Visible = TrueEnd IfForm_Resize 重新调整控件位置End SubPrivate Sub Close_Click()Dim FileNum As IntegerIf Len(FileName) 0 Then有输入文件名FileNum = FreeFile() 获得可用文件号Open FileName For Output As FileNum 打开输出文件 如果无

26、指定文件，则创建新文件Print #FileNum, Text1.Text 输出文本Close FileNum 关闭文件End IfText1.Text = FileName = End SubPrivate Sub ComboSize_Click()Text1.FontSize = Val(ComboSize.Text)End SubPrivate Sub ComboFont_Click()Text1.FontName = ComboFont.TextEnd SubPrivate Sub Copy_Click()Clipboard.SetText Text1.SelText 复制文本到剪裁板

27、End SubPrivate Sub Cut_Click()Clipboard.SetText Text1.SelText 复制文本到剪裁板Text1.SelText = 清选择的文本End SubPrivate Sub DataTime_Click()Text1.SelText = NowEnd SubPrivate Sub Delete_Click()Text1.SelText = 清选择的文本End SubPrivate Sub Edit_Click()当程序显示 “编辑 ”子菜单前，触发该程序If Text1.SelLength 0 Then 文本框中有选中的文本Cut.Enabled

28、 = TrueCopy.Enabled = TrueDelete.Enabled = TrueElseCut.Enabled = FalseCopy.Enabled = FalseDelete.Enabled = FalseEnd IfIf Len(Clipboard.GetText() 0 Then剪裁板中有文本数据Paste.Enabled = TrueElse没有可粘贴的文本Paste.Enabled = FalseEnd IfEnd SubPrivate Sub Exit_Click()Unload MeEnd SubPrivate Sub FindText_KeyPress(KeyA

29、scii As Integer)Dim BeginPos As LongIf KeyAscii = 13 ThenBeginPos = InStr(1, Text1.Text, FindText.Text, vbTextCompare)If BeginPos 0 ThenText1.SelStart = BeginPos - 1Text1.SelLength = Len(FindText.Text)End IfEnd IfEnd SubPrivate Sub Fontcolor_Click()CommonDialog1.ShowColorText1.ForeColor = CommonDial

30、og1.ColorEnd SubPrivate Sub Form_Load()Dim i As Integer加载图像ImgNew.Picture = ImageUp.ListImages(New).PictureImgOpen.Picture = ImageUp.ListImages(Open).PictureImgSave.Picture = ImageUp.ListImages(Save).PictureImgUndo.Picture = ImageDisable.ListImages(Undo).PictureCheck_ImgPasteCheck_ImgCutCopy加载系统字体Fo

31、r i = 0 To Screen.FontCount - 1 ComboFont.AddItem Screen.Fonts(i) Next iEnd SubPrivate Sub Form_Resize()Dim TextTop As Long修改工具条大小CoolBar1.Top = Me.ScaleTopMe.ScaleLeftText1.Width = Me.ScaleWidthIf Me.ScaleHeight CoolBar1.Height ThenText1.Height = Me.ScaleHeight - TextTopElseText1.Height = 0End IfEn

32、d SubPrivate Sub ImgCopy_Click()Copy_Click 复制Check_ImgPasteCheck_ImgCutCopyEnd SubPrivate Sub ImgCopy_MouseDown(Button As Integer, Shift As Integer, X AsSingle, Y As Single) “按下 ”按钮If Button = 1 ThenImgCopy.Picture = ImageDown.ListImages(Copy).PictureEnd IfEnd SubPrivate Sub ImgCopy_MouseMove(Button

33、 As Integer, Shift As Integer, X AsSingle, Y As Single)Label1 = 将选择的文本复制到剪裁板 判断鼠标位置 ,显示不同图像If Button = 1 And (X 0 And X 0 And Y 0 ThenCut_Click 剪切Check_ImgPasteCheck_ImgCutCopyEnd IfEnd SubPrivate Sub ImgCut_MouseDown(Button As Integer, Shift As Integer, X As Single,Y As Single)If Button = 1 Then “按

34、下 ”按钮ImgCut.Picture = ImageDown.ListImages(Cut).PictureEnd IfEnd SubPrivate Sub ImgCut_MouseMove(Button As Integer, Shift As Integer, X As Single,Y As Single)Label1 = 剪切选择的文字到剪裁板II判断鼠标位置 ,显示不同图像If Button = 1 And (X 0 And X 0 And Y 0 And X 0 And Y 0 And X 0 And Y 0 And X 0 And Y 0 And X 0 And Y 0 And

35、 X 0 And Y 0 Then有输入文件名FileName = CommonDialog1.FileName 保存文件名FileSize = FileLen(FileName) 获得文件长度If FileSize MaxLen Then文件超长MsgBox 该文件过大，只能显示部分文本 , , 警Exit SubEnd IfScreen.MousePointer = 11 设置鼠标为沙漏FileNum = FreeFile() 获得可用文件号32KOpen FileName For Input As FileNum 以顺序输入方式打开文件Do While Not EOF(FileNum)

36、And Len(buffer) Label1.Left ThenLabel1.Width = Picture1.ScaleWidth - Label1.LeftEnd IfEnd SubPrivate Sub Save_Click()Dim FileNum As Integer 文件句柄号CommonDialog1.ShowSave 显示保存对话框If Len(CommonDialog1.FileName) 0 Then 有输入文件名FileName = CommonDialog1.FileName 保存文件名FileNum = FreeFile() 获得可用文件号Open FileName

37、For Output As FileNum 打开输出文件 如果无指定文件，则创建新文件Print #FileNum, Text1.Text 输出文本Close FileNum 关闭文件Me.Caption = 记事本 - + FileName 修改标题显示ImgUndoDisableEnd IfEnd SubPrivate Sub Text1_Change()If Not ImgUndo.Enabled Then使“ Un do按钮可用ImgUndoEnableEnd IfUndoString = UndoNewUndoNew = Text1End SubPrivate Sub Text1_Click()Check_ImgCutCopyEnd SubPrivate Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)Check_ImgCutCopyEnd sub第六章 测试编程环境的选择微软公司的 Visual Basic 6.0 是 Windows 应用程序开发工具，使目前最为广泛 的、易学易用的面向对象的开发工具。Visual Basic 提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了 界面设计过程，从而有效的提