VB527 培训班报名系统VB+SQL

在计算机飞速发展的今天，采用信息管理系统已成为管理科学化和现代化的重要标志，而普通的学籍管理系统难以适应培训机构的特殊要求，本系统可以明显的提高经济效益和社会效益。主要体现在：
极大提高了培训机构工作人员的工作效率，大大减少了以往入手工流程记账的杂乱，查阅不便，统计周期长的弊端。
通过对培训机构日常培训工作的详细调查，搜集了大量的资料，从系统结构的组织，功能的实现，技术的要求以及可行性等多方面进行考虑，认为本课题是一个适应现今培训机构管理需求的计算机信息管理系统，具有一定的实际开发价值和使用价值。
1.1课题的项目背景
随着我国加入世界贸易组织，各行业与国际市场接轨已成为大势所趋，各行业要迎接这场挑战，就必须提高整体竞争能力，提高整体竞争能力必须变革培训机构的管理模式，提高管理水平，实施信息化建设无疑是实现这一目的的必由之路和明智之举。目前，企业信息化管理的进程缓慢，一些大企业虽然已经实现信息化管理，但是在一些中小企业还不够完善。在激烈的培训业竞争中，如何能把握机会，保持自己的优势，立于不败之地呢？这就需要提供最好的服务，提供最完善的设施和最先进的技术。一个成功的培训机构，其经营者不仅要提高服务水平和服务质量，还要有好的工作效率，并控制成本。在信息时代，更重要的是还必须要有一个完善的管理信息系统，这样不但使信息准确，也便于管理。尤其是对于多教区连锁办学的培训机构，班级众多，学生众多有序的管理显得尤为重要。如果没有一套可靠的培训管理系统，单凭手工操作，不仅效率低下，而且会极大地影响到培训机构的服务质量。培训机构为了增加盈利,提高服务效率和质量,通常会采用培训管理系统,可以方便地处理学生的培训工作,管理学生、班级等数据。 内容来自think58

增加，报名人数的不断增多，传统的手工记录方式已经无法满足日常管理的需要。
培训管理工作目前还是进行着手工管理，工作起来效率很低，由于不可避免的人为因素，经常造成数据的遗漏、误报，很难准确进行报名情况的分类统计，从而难以进行各方面工作业绩的评估。计算机信息化管理有着储存信息量大、速度快等许多优点，提供给我们的处理信息及时快捷，同时也提高了工作人员的自身素质。
基于对以上问题的分析，利用计算机给我们提供信息，及时地调整学院课程设置，并且对学生们的报名过程形成一整套动态的管理就十分必要了。
报名管理信息系统的建立，需要进行详细的用户需求调查与分析，以确定系统目标，提出解决问题的详细方案，这是系统建设的重要环节。
精通学院相对于全日制大学规模小，根据市场需要进行课程班级设置，比较灵活，学生不固定，对每一名学生不但要有详细的记录信息，而且要做到能及时动态更新班次、教区、实交金额等等，还要实现拥有不同权限的用户登陆和管理功能，对系统的需求是全面的。因此对用户的需求可分为六个方面：第一方面是学院工作人员通过计算机来记录学生报名信息，包括学生个人信息和所报班级信息；第二方面是学生有调班、延班、插班需求时，可以进行学生报名信息的更新；第三方面是学生有退费需求时，根据需要进行全部退费和部分退费操作，可以进行学生报名信息的更新；第四方面是学院有设定教区、类别、班次等需求时，能手动录入所需信息，以备使用；第五方面是学院工作人员通过计算机来管理学生信息，统计各班级、各教区、学校各专业报名情况的统计和制作报表；第六方面是满足学院工作人员管理需求，根据不同情况打印听课证和开听课证明功能。 think58.com

录从原始数据库中删除。
(2) 部分退费
同上找出学生信息后，输入退费金额，并填写退费原因，将学员信息复制到“退费”库中。
6.  修改学生报名信息
同上找出学生信息后，在原有基础上改正错误之处，提示过程与报名过程一致。除了“姓名”和“课程”外，其他项的改正只需直接更新数据库中的内容即可。涉及“姓名”项，修改数据库中内容并重新打印听课证。涉及“课程”，修改数据库中内容并打印听课证，还需要根据新班次重新排学号。
7.  报表
(1) 教区班级报表
统计某个班级的报名情况。
(2) 学校校区报表
统计某个学校各个校区的报名情况。
(3) 日报表
统计某天的报名情况。
(4) 月报表
统计某月的报名情况。
(5) 年报表
统计某年的报名情况。
8.  设定
设定系统的信息如教区、类别、班级、学校、校区、优惠原因等。
9.  听课证
打印出听课证，并自动将数据库中的“听课证”复选框打上√；若以前已经打印，则在听课证第二行打印“挂失”字样。

think58 [资料来源：http://www.THINK58.com]

[资料来源：www.THINK58.com]

ASP.NET语言是微软公司近年推出的一种核心编程语言，能快捷、方便的开发图形设计、图像处理、多媒体技术、数据库技术及网络技术的Windows应用程序。ASP.NET 是有着易用和灵活性大的特点，是专门针对在.Net构架上开发的应用程序。Visual ASP.NET .Net是创建Windows应用程序最简便、最快捷的开发工具之一。正是基于此特点，选用Visual ASP.NET .Net开发环境为系统的开发节约了宝贵的时间。
SQL2000 是美国微软公司推出的面向办公自动化、功能强大的关系型数据库管理系统。它具有良好的易用性和简洁性，面对大部分数据管理任务无需编写程序，仅通过直观的可视化操作即可完成。因为同属于一个Office系列，SQL2000与Excel的数据能充分共享。把SQL2000表中数据导出到Excel工作簿中，用公式加以分析，生成多种图表。
本系统的开发模型采用传统的瀑布模型，即按照传统的生命周期方法学原理开发的，各阶段的工作自顶向下从抽象到具体顺序进行。所以阶段间具有顺序性和依赖性的特点，具体体现在：第一，必须等前一阶段的工作完成之后，才能开始后一阶段的工作；第二，前一阶段的输出文档就是后一阶段的输入文档，因此，只由前一阶段的输出文档正确，后一阶段的工作才能获得正确的结果。瀑布模型还有推迟实现和质量保证的特点。

[资料来源：http://www.THINK58.com]

这三点是隐含在软件生命周期各阶段后面的观点和指导思想，是比具体任务更重要更根本的东西。只有掌握了这些自导思想，才能在软件开发中更自觉更主动，才能更好地运用生命周期方法学完成软件开发与维护的艰巨工作。
本系统的设计方法采用面向对象设计方法与面向过程设计方法，面向对象的开发方法的特点是以对象为基础，对象是分析问题和解决问题的核心，具有抽象性、继承性、可重用性的特点；面向过程设计方法是一种面向数据流的设计方法，它基本思想是将系统设计成有相对独立、功能单一的模块组成的结构。本系统将两种方法结合使用，取长补短，发挥两发面的优势。按照结构化方法将整个系统分为多个模块，在每个模块设计

think58好，好think58 [资料来源：www.THINK58.com]

数据字典是对所有与系统相关的数据元素的一个有组织的列表,以及精确的、严格的定义，是对于系统输入、输出、存储成分和中间计算的明确定义。  
1．数据项描述主要部分：
(1) 学生表=编号+学号+报名时间+姓名+性别+年龄+学校+备注+专业+班级+联系1
+联系2+交费金额+优惠原因+所属校区+来源教区+录入人员
(2) 班级表=编号+名称+开课时间+价格+类别编号+教区编号
(3) 院校表=编号+名称
(4) 专业表=编号+名称+院校编号
(5) 用户表=编号+姓名+用户名+密码+级别
(6) 教区班级报表=教区+班级+人数+交费金额
(7) 学校专业报表=学校+专业+人数+交费金额
(8) 日报表=日期(年月日)+人数+交费金额
(9) 月报表=日期(年月)+人数+交费金额
(10) 年报表=日期(年)+人数+交费金额
2.数据处理主要部分描述：
(1) 数据处理模块的编号：P1
名称：登陆
输入数据：用户名、密码
输出数据：显示不同的操作功能项 ，即进入主窗口
处理过程：输入用户信息进行判断
显示该类用户权限的操作功能项
(2) 数据处理模块的编号：P2
名称：主窗口
输入数据：由鼠标单击不同操作按钮来传值

think58 [来源：http://think58.com]

输出数据：显示不同的操作窗口
处理过程：单击选择的按钮传递参数
          接收参数调用不同模块
(3) 数据处理模块的编号：P3
名称：报名、插班共用模块
输入数据：姓名、性别、年龄、学校、备注、专业、班级、联系1、联系2、交费金额、优惠原因、所属校区、来源教区
输出数据：添加成功提示或错误提示
处理过程：由不同的驱动信息分别调用此模块
输入学生报名信息
显示用户输入的数据，让用户进行确认
验证所需数据是否全部输入，错误给出提示
检查数据库中是否有重复的记录
将学生报名信息添加到学生数据库
询问是否打印听课证
(4) 数据处理模块的编号：P4
名称：调班、延班、修改、退费、听课证、重听共用模块
输入数据：学生姓名、报名日期、班级名称
输出数据：更改成功提示或打印听课证
处理过程：由不同的驱动信息分别调用此模块  
          把更新的信息写入数据库
          返回给用户提示或打印出听课证等
    End Sub
        think58好，好think58 [来源：http://www.think58.com]
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.UserInfoRowDeletingEvent) Is Nothing) Then
                RaiseEvent UserInfoRowDeleting(Me, New UserInfoRowChangeEvent(CType(e.Row,UserInfoRow), e.Action))
            End If
        End Sub
       
        Public Sub RemoveUserInfoRow(ByVal row As UserInfoRow)
            Me.Rows.Remove(row)
        End Sub
    End Class
   
    <System.Diagnostics.DebuggerStepThrough()>  _

内容来自think58

    Public Class UserInfoRow
        Inherits DataRow
       
        Private tableUserInfo As UserInfoDataTable
       
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tableUserInfo = CType(Me.Table,UserInfoDataTable)
        End Sub
       
        Public Property UserID As Integer
            Get
                Return CType(Me(Me.tableUserInfo.UserIDColumn),Integer)
            End Get

本文来自think58

[资料来源：THINK58.com]

            Set
                Me(Me.tableUserInfo.UserIDColumn) = value
            End Set
        End Property
       
        Public Property UserName As String
            Get
                Return CType(Me(Me.tableUserInfo.UserNameColumn),String)
            End Get
            Set
                Me(Me.tableUserInfo.UserNameColumn) = value
            End Set

think58.com

[资料来源：http://www.THINK58.com]

        End Property
       
        Public Property UserPassword As String
            Get
                Return CType(Me(Me.tableUserInfo.UserPasswordColumn),String)
            End Get
            Set
                Me(Me.tableUserInfo.UserPasswordColumn) = value
            End Set
        End Property
    End Class
   
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class UserInfoRowChangeEvent 本文来自think58 [资料来源：http://www.THINK58.com]
        Inherits EventArgs
       
        Private eventRow As UserInfoRow
       
        Private eventAction As DataRowAction
       
        Public Sub New(ByVal row As UserInfoRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
       
        Public ReadOnly Property Row As UserInfoRow
            Get
                Return Me.eventRow

think58

            End Get
        End Property
       
        Public ReadOnly Property Action As DataRowAction
            Get
                Return Me.eventAction
            End Get
        End Property
    End Class
End Class

think58