应用VisualBasic0设计学生管理系统.DOC

1、毕业设计文稿1应用 Visual Basic6.0 设计学生管理系统提要：本文论述了如何应用可视化程序设计语言 Visual Basic6.0 开发设计学生管理系统的方法，其设计成果对学校应用计算机进行学生基本情况的管理工作有一定参考意义。关键字：Visual Basic6.0 语言，窗体，控件，方法程序。学生管理系统是学校应用计算机管理学生相关事宜的软件系统，利用学生管理系统可以实现对学生的基本信息，班级信息，学生成绩，学员的增加,减少，变动的管理。实现快速查询修改，可以极大方便学生管理工作，提高管理工作的效率，应用 Visual Basic6.0 可以方便快捷地开发设计实用的学生管理系统软

2、件，该软件系统的操作简便，硬件的适应性强，具有可移植性，能够方便扩充功能。一基本的设计思想通过对 Visual Basic6.0 的深入学习从而对其有了一定程度上的认识和了解，掌握了其基本控件的运用和操作，该程序主要运用了Visual Basic6.0 中的“可视化数据管理器 ”，用与其相关联的Microsoft Access 建立“班级成员信息表” ，从而实现了对“班级成员”的查询；运用 Data 组件来操作数据库，以此来实现 “学生基本信息”和“成绩信息”的查询；运用最为基本的标签，文本框及按钮，结合其代码来完成各控件的基本功能。二设计内容该程序主要包括五个窗体：窗体一，该程序的封面运用时

3、钟控件实现了“毕业设计”四个字的动画效果；窗体二，学生管理结构；窗体三， “信息管理系学生”的基本信息情况，运用了 Data 组件来操作数据库；窗体四：“班级信息”使数据库与 Excel 相关联从而实现该功能。窗体五：“学生成绩查询”其各窗体程序代码为：Form1 窗体中的代码为： Private Sub Command1_Click()Form1.HideForm2.ShowEnd SubPrivate Sub Form_Click()Form2.ShowForm1.HideEnd Sub毕业设计文稿2Private Sub Timer1_Timer()If Label1.Left “ Th

4、en按“考号“查找记录.Data1.Recordset.FindFirst “考号=“ + i + “If NoMatch ThenMsgBox “对不起,没有发现此记录“ElseCall initdbfCall inittextEnd IfEnd IfEnd SubPrivate Sub cmdnext_Click()If Data1.Recordset.RecordCount = 0 Thencmdnext.Enabled = Falsecmdprior.Enabled = FalseElseData1.Recordset.MoveNext毕业设计文稿6If Data1.Recordset

5、.EOF ThenData1.Recordset.MoveLastcmdnext.Enabled = FalseElsecmdnextenabled = Truecmdprior.Enabled = TrueEnd IfEnd IfEnd SubPrivate Sub cmdprior_Click()If Data1.Recordset.RecordCount = 0 Thencmdnext.Enabled = Falsecmdprior.Enabled = FalseElseData1.Recordset.MovePreviousIf Data1.Recordset.BOF ThenData

6、1.Recordset.MoveFirstcmdprior.Enabled = FalseElsecmdnext.Enabled = Truecmdprior.Enabled = TrueEnd IfEnd IfEnd SubPrivate Sub cmdsave_Click()Data1.UpdateRecordData1.Recordset.Bookmark = Data1.Recordset.LastModifiedData1.RefreshData1.ReadOnly = TrueEnd SubForm4 窗体中的代码为：Private Sub cmbcountry_Change()f

7、illtypeEnd SubPrivate Sub cmbcountry_Click()filltypeEnd Sub毕业设计文稿7Private Sub cmbtype_Change()fillnamelistEnd SubPrivate Sub cmbtype_Click()fillnamelistEnd SubPrivate Sub Form_Click()Form2.Showfrmjjg.HideEnd SubSub Form_Load()setupfillcountryEnd SubSub Form_Unload(Cancel As Integer)cleanupEnd Sub模块中

8、的代码为：Option ExplicitPublic appjjg As Excel.ApplicationPublic wbjjg As Excel.WorkbookSub setup()On Error Resume NextSet appjjg = GetObject(, “excel.application“)If Err.Number “) Thenintcolumoffeature = 毕业设计文稿9shtcountry.Rows(1).Find(frmjjg.cmbtype.Text).ColumnSet rngrankedlist = shtcountry.Columns(in

9、tcolumoffeature)If (rngrankedlist.Cells(1, 1) = “) Thenintfirstblankcell = 0Elseintfirstblankcell = rngrankedlist.Find(“).RowEnd IfFor loop1 = 2 To intfirstblankcellfrmjjg.lstname.AddItem rngrankedlist.Cells(loop1, 1)Nextfrmjjg.lstname.Visible = TrueEnd IfSet shtcountry = NothingSet rngrankedlist =

10、NothingEnd Sub三. 系统的运行要求与操作方法1.系统运行要求硬件系统要求：至少具有 256 主频 CPU 的 PC 个人计算机，32MB 显示内存，VGA 图形显示器，IGB 硬盘容量，配备光盘驱动器,兼容鼠标。操作系统的要求:本软件系统对操作系统软件的基件要求是：Microsoft Windows98,Windows Me，Windows NT/2000 的单用户版。2. 基本操作方法打开 Visual Basic6.0 进入该程序，用鼠标单击封面窗体一，进入窗体二，单击按钮“学生基本信息”从而进入窗体三，利用 Data 组件及“添加” “删除” “更新” “退出” 按钮来完成

11、学生基本信息的查询。单击“退出”按钮即可回到窗体二，在窗体二中单击按钮“班级信息”进入窗体四，通过列表框来实现对各班学生成员的查询，单击“窗体四”可回到窗体二，在窗体二上单击按钮“成绩查询”进入窗体五，通过按扭“添加” “修改” “删除” “查询” “上一个” “下一个” “保存” “关闭”实现学生成绩的查询功能，单击“关闭”按钮回到窗体二，单击窗体二回到封面即窗体一，该程序操作完毕。结束语:通过对 Visual Basic6.0 的学习使我更加深刻的感受到它的重要性，它增强了我对计算机相关知识的求知欲望，在设计该程序的过程中大大强化了我的编程技巧，增强了我的编程爱好，通过对Visual Basic6.0 的学习不仅拓展了我的知识体系，而且完善了我的知识结构，从而开拓了通向计算机领域的阳庄大道。使我更加信心百倍的毕业设计文稿10迎接未来对我的挑战。