1、此外,Visual Basic 6.0 还增加了一些新的功能:具体如下:增加了ADO数据对象,该数据访问技术是一个简单的数据模型,可更好地与其它Microsoft和非Microsoft技术集成。它还是一个通用接口,可用于访问本地或远程数据、连续和离散记录集、用户可访问的数据绑定接口和分层记录集。提供了数据环境设计器,其中提供了一种创建ADO对象的交互设计环境,数据环境可作为窗体或报表中所有要求数据对象的数据源,或者通过数据环境的方法和属性由等程序访问,数据环境设计器具有用户连接设计器的全部功能和附加特性,如拖放、分层、分组和合计等。数据报表,允许用户使用拖放方法利用任何记录集合快速创建报表。数
2、据源,创建可绑定任何控件的数据源用户定义控件和类。SQL编辑器,允许用户增加新的存储过程至SQL服务器程序和Oracle数据库中,用户还可以使用编辑器编写触发器。增强的数据窗体向导,现在用户不仅可以构造不绑定至数据控件的代码窗体,而且可以使用ADO代码,该向导已经集成到应用程序向导、Chart向导和FlexGrid向导中。文件系统对象,Visual Basic 6.0 提供了改进的在文件系统中移动的程序集,并可创建文本文件和目录。DataGrid控件,该控件可帮助用户快速构造观察和编辑记录的程序,它也支持新的ADO数据控件。可视化数据库工具集成(企业版)。在Visual Basic 6.0 中
3、用户可以可视地创建数据库和查询、SQL服务器程序、Oracle数据库表、使用拖放方法创建视图,以及自动改变列数据类型。3、Visual Basic 6.0 的版本目前Visual Basic 6.0有三种版本,各自满足不同的开发需要。其中:Visual Basic 6.0学习版使编程人员可轻松学习和设计一些基本的应用程序。该版本包括所有的内部控件,连同Grid、Tab和Data_Bound控件。Visual Basic 6.0专业版为专业编程人员提供了一套进行开发的功能完备的工具。该版本包括学习版的全部功能连同ActiveX控件,还包括Internet Application Designer
4、(Internet报务器应用程序设计器)、Integrated Visual DatabaseTools(集成可视化数据库工具)、Data Environment (数据环境)、ActiveX污染Data Objects(数据对象,简称ADO)和Dynamic HTML Page Designer (动态HTML页面设计器)。Visual Basic 6.0企业版使得专业编程人员能够开发功能强大的组内分布式应用程序。该版本包括专业版的全部功能连同Back Office 工具,如SQL Server Microsoft Transaction Server 、Internet Informati
5、on 、Visual SourceSafe、SNA Server。三、需求分析3.1 设计思想由于本系统是一个基于C/S的数据库的信息管理系统,所以第一步就是需要利用SQL Server 2000建立所需要的数据库,第二步就使用Visual Basic 6.0完成该系统客户端应用程序的开发。3.2 可行性分析可行性分析是系统分析阶段的第二项活动,它的主要目是进一步明确系统的目标、规模与功能,对系统开发背景、必要性和意义进行了调查分析并根据需要和可能提出开发系统的初步方案与计划。可行性分析是对系统进行全面、概要的分析。通过调查分析,本系统设计主要有以下三个可行性:3.2.1 操作可行性本系统操作
6、简单,易于理解,只需通过简单指导,上手较快,系统管理员、教师以及学生均能进行操作,运行环境要求低。3.2.2 技术可行性本系统在Windows XP Server 开发环境下,利用Visual Basic 6.0开发工具,并使用SQL Server 2000作为数据库管理系统,来实现学生学籍管理系统的各种功能。SQL Server 2000属于主从时式的数据库服务器这也是主从式数据库服务器的特点,服务器本身重在数据的管理,为客户端应用程序提供一致的接口。当然也可以使用SQL Server 2005为数据库管理系统,开发工具也可以是它的更高版,这样可以提高系统的性能,降低它的局限性。3.2.3
7、经济可行性采用新的学生学籍管理系统可取代原系统的手工管理工作,减少人工开支,节省资金,并且可大大提高数据信息的取得,缩短数据信息处理时间,提高学生信息的利用率,使教学质量更进了一个台阶。3.3 功能需求按照系统开发业务分析要求和原则,在与系统管理人员的充分沟通,整理出学生学籍管理系统所需求的基本功能和用户界面的一些需求,这些需求将作为系统分析和逻辑设计的依据。3.3.1 基本功能需求能对学生的学籍及成绩进行基本管理,包括:学生基本信息和学科成绩的存储、输入、删除、修改、查询,以及升留级管理。学生基本信息应包括:学号、姓名、出生年份、籍贯、性别、专业、班级、家庭住址、本校住址、个人联系电话、家庭
8、联系电话;成绩信息应包括:学号、课号、课名、成绩、上课时间、教师号。查询能够按照:学号、课号、班级、时间等进行查询。3.4 性能需求根据Visual Basic 6.0的运行需求以及系统的调试需求,至少需要满足以下的软硬件要求:开发工具:Visual Basic 6.0;操作系统:Windows2000/XP;数据库: SQL Server 2000;CPU: 2.4GHz以上;内存: 512以上;硬盘: 80GB以上;VGA显示器或更高;四、系统设计4.1系统设计思想1、采用现有的资源,先进的管理系统开发方案,充分利用学校现有的资源,减少开发中的时间和财力、物力、提高系统开发的水平和应用效果
9、。2、系统就满足学校的需求,例如学生信息的录入、查询、更新等。学生录入与排名。3、系统就具备数据库维护功能,及时根据用户需求进行数据添加、删除、修改等操作。4.2系统设计分析 本系统适用于中小学校,其功能主要分为成绩管理:用于对成绩的输入、修改、查询。 学籍管理:用于对学生学籍的录入与修改、查询。 帮助信息:用于对本系统的具体操作进行详解。本系统性能力求易于使用,具体有较高的扩展性和可维护性。4.3系统功能分析录入功能:为一般用户提供相应的录入功能,为超级用户提供对所有信息的录入功能。查询功能:为所有用户提供查询的功能,可查询允许范围内的所有信息。维护功能:为一般用户提供查询及相应的修改,删除
10、功能,为超级用户提供对所有信息的修改删除功能。 帮助功能:能帮助初次使用者对本系统的应用及处理常见的问题。 退出功能:结束并关闭系统。4.4学生学籍系统的目标 节约资源,提高学籍信息的精确度本系统能减少很多不必要的资源,不用象以前那样用冗余的纸张式的管理。大节省了学校能源。并且计算机的存储与快速查询功能大大提高了学籍管理的效率,并且还提高了学籍信息管理的精确度。方便快速操作,精减人员,节约开支方便快速的操作,可减少学籍信息管理的漏洞,又减少因工作的冗余出现的错误,并且操作非常简单,可减少许多不很必要的人员,这无论从物质上还是工作人员的工资上都为学校节约了开支。为学校增加了财富。4.5功能模块分
11、解接口设计外部接口:用户一般通过终端进行操作,用户进入界面后进行相应的操作。硬件接口:赛扬133 、内存32兆以上PC机满足输入端条件。软件接口:Windows2000/NT或更高的操作系统。内部接口:内部接口(模块之间的接口)验证模块:启动系统时,便激活登陆口令界面;初始化模块:对系统进行初始化;系统功能模块:接收系统功能的相应消息,启动信息录入、信息查询、信息维护等模块。4.6各模块的具体分析:学生信息管理:主要用于学生的基本信息管理(如学号、姓名、性别、出生年月、联系地址等)。主要用于学生考试的成绩进行管理4.7数据库设计4.7.1数据流图(略)4.7.2数据库分析用户需求具体有学籍管理
12、系统提供保存、更新、查询、维护,这就需求数据库结构能充分满足各种信息的输入与输出,实现有组织地、动态地存储大量关联数据,方便用户访问系统中的数据,它与文件系统的重要区别是数据的充分共享,交叉访问,与应用程序的高度独立性。数据流图描述:本系统从总体上分为学生信息管理、学生信息浏览、成绩浏览和成绩管理等部分。每个模块有自己的作用。4.8数据库表设计学生基本信息表:xsxj.Mdb成绩信息表:xscj.Mdb4.9界面设计4.9.1主要窗体实现:学生学籍查询,成绩查询,学籍管理,成绩管理以及其他的窗口信息4.9.2学生的成绩窗口设计有主窗体直接进入成绩的查询模块。主要实现成绩的查询等功能。4.9.3
13、学生学籍窗口设计有主窗体直接进入学生状况窗口模块。主要实现学生状况查询等功能。4.9.4学生学籍管理窗口设计有主窗体直接进入学生学籍管理窗口模块。主要实现学生学籍信息的查询、修改等功能。4.9.5学生成绩管理窗口设计有主窗体直接进入学生成绩修改窗口模块。主要实现学生成绩资料查询结果。五、详细设计及源程序1、模块module1.BasOption ExplicitDeclare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewL
14、ong As Long) As LongDeclare Function GetWindowLong Lib GetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Long) As LongDeclare Function CallWindowProc Lib CallWindowProcA (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPublic C
15、onst GWL_WNDPROC = (-4)Public Const WM_ENDSESSION = &H16Public Const WM_QUERYENDSESSION = &H11Public preWinProc As LongPublic Function Wndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam) If
16、 (Msg = 132) Then Select Case Wndproc Case 10, 11, 12, 13, 14, 15, 16, 17: Wndproc = 0 Exit Function End Select End IfEnd Function2、主窗口form1.frmPrivate Sub Command4_Click()Form6.ShowEnd SubPrivate Sub Command5_Click()Form4.ShowUnload MePrivate Sub Command6_Click()Form5.ShowPrivate Sub Form_Load() Di
17、m ret As Long 记录原来的Window Procedure的位址 preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)设定form的window Procedure到wndproc ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf Wndproc)Private Sub Form_Unload2(Cancel As Integer)取消Message的截取,而使之又只送往原来的Window Procedure ret = SetWindowLong(Me.hwnd, GWL_WNDPR
18、OC, preWinProc)Private Sub Command1_Click()Form2.ShowPrivate Sub Command2_Click()Form3.ShowPrivate Sub Command3_Click()Dim yes As Stringyes = MsgBox(你要确定退出?, 32 + 1, 提示信息)If yes = 1 ThenEnd If3、学籍浏览窗口form2.frmData1.DatabaseName = App.Path & xsxj.mdbForm1.ShowData1.Recordset.MoveLastCommand4.Enabled
19、= TrueCommand3.Enabled = FalseData1.Recordset.MoveNextIf Data1.Recordset.EOF Then Data1.Recordset.MovePrevious Command3.Enabled = FalseCommand3.Enabled = TrueData1.Recordset.MovePreviousIf Data1.Recordset.BOF Then Data1.Recordset.MoveFirst Command4.Enabled = FalseData1.Recordset.MoveFirstCommand4.Enabled = False4、成绩浏览窗口form3.frmxscj.mdb5、学籍管理窗口form4.frmDim num As StringDim n As StringDim s As Integernum = InputBox(请输入要删除的学生学号(三位数), Do While Not Data1.Recordset.EOF n = Data1.Recordset.Fields(学号 If num = n Then s = MsgBox(确
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1