精品毕业论文--vb排课管理系统的开发与实现.doc

摘 要 每学期开学初学校教务部门都要对全校教职员工进行排课表，随着在校学生的人数增加，排课表也是一件相当麻烦的事，如果采用人工进行排课，不但工作量大，效率低，而且容易出借，如果采用计算机管理将是一件非常容易的事情，而且准确性高。*中学排课管理系统设计的主要任务就是针对教务部门的排课管理而进行设计开发的，它可以实现排课工作的自动化、规范化。根据系统功能分析的要求，*中学排课管理系统主要实现以下6个功能模块：（1）教职员工入库信息管理模块，可以添加、删除、修改和保存教职员工的信息（包括职工姓名、年龄、学历等）；（2）排课管理模块，可以实现对所有班级的任课表、课程表进行查看、修改和保存；（3）教职员工带课查询模块，通过输入员工姓名，可以查询到员工所教的班级和所教的科目；（4）本学期课程设置模块，可以添加、修改、保存本学期学校所开的课程名称；（5）打印模块，可以打印出课程表、教师代课表。本系统以中文版Visual Basic 6.0为前台开发工具，用中文版Access 2000作为后台数据库。Visual Basic 6.0，它是由美国微软公司推出的小型数据库开发语言，由于其使用方便，硬件要求不高，易学等特点，它还提供强有力的应用程序开发工具，为将来的维护提供必要的基础。系统的操作对人员的素质的要求不高，只需对他们稍加培训便能胜任。【关键字】学校 排课管理 VB6.0目 录引 言1、项目开发背景2、项目开发目标第一章 信息管理系统的认识与开发1.1管理信息系统的认识1.2管理信息系统开发的理解1.3管理信息系统开发的方法及流程概述第二章 需求分析2.1系统需求2.2功能需求2.3性能需求第三章 系统设计与分析3.1可行性分析3.2系统开发的软件、硬件环境要求3.3功能模块划分第四章 数据库设计4.1数据库分析4.2数据库逻辑结构设计第五章 系统设计实施5.1设计工程框架5.2系统主窗体设计5.2.1设计主窗体5.2.2 添加窗体代码5.2.3关于窗体的设计5.3 教职员工入库信息管理模块设计5.3.1设计教职员工入库窗体5.3.2在主窗体中添加代码5.4 排课管理模块设计5.4.1设计排课管理窗体5.4.2在窗体中添加代码5.5 教职员工带课查询模块设计5.5.1设计教职员工带课查询窗体5.5.2在窗体中添加代码5.6 课程设置模块设计5.6.1设计课程设置窗体5.6.2在窗体中添加代码5.7 打印模块设计第六章 系统测试6.1 测试项目6.2测试方法小结排课管理系统的开发与实现 引 言1、项目开发背景每学期开学初学校教务部门都要对全校教职员工进行排课表，随着在校学生的人数增加，排课表也是一件相当麻烦的事，如果采用人工进行排课，不但工作量大，效率低，而且容易出借，如果采用计算机管理将是一件非常容易的事情，而且准确性高。2、项目开发目标*中学排课管理系统设计的主要任务就是针对教务部门的排课管理而进行设计开发的，它可以实现排课工作的自动化、规范化。根据系统功能分析的要求，*中学排课管理系统需要实现的功能主要有：l 教职员工入库信息管理，可以添加、删除、修改和保存教职员工的信息（包括职工姓名、年龄、学历等）。l 排课管理，可以实现对所有班级的任课表、课程表进行查看、修改和保存。l 教职员工带课查询，通过输入员工姓名，可以查询到员工所教的班级和所教的科目。l 本学期课程设置，可以添加、修改、保存本学期学校所开的课程名称。l 打印模块，可以打印出课程表、教师代课表。第一章 信息管理系统的认识与开发1.1管理信息系统的认识管理信息系统就是我们常说的MIS（Management Information System），在强调管理，强调信息的现代社会中它变得越来越普及。MIS是一门新的学科，它跨越了若干个领域，比如管理科学、系统科学，运筹学、统计学以及计算机科学。在这些学科的基础上，形成信息收集和加工的方法，从而形成一个纵横交织的系统。20世纪，随着全球经济的蓬勃发展，众多经济学家纷纷提出了新的管理理论。20世纪50年代，西蒙提出管理依赖于信息和决策的思想。同时期的维纳发表了控制论，他认为管理是一个控制过程。1958年，盖尔写到：“管理将以较低的成本得到及时准确的信息，做到较好的控制”。这个时期，计算机开始用于会计工作。数据处理一词已经出现。1970年，Walter T.Kennevan给刚刚出现的管理信息系统一词下了一个定义：“以口头或书面的形式，在合适的时间向经理、职员以及外界人员提供过去的、现在的、预测未来的有关企业内部及其环境的信息，以帮助他们进行决策”。在这个定义里强调了用信息支持决策，但并没有强调应用模型，没有提到计算机的应用。1985年，管理信息系统的创始人，明尼苏达大学的管理学教授Gordon B.Davis给了管理信息系统一个较完整的定义，即“管理信息系统是一个利用计算机软硬件资源以及数据库的人-机系统。它能提供信息支持企业或组织的运行、管理和决策功能。”这个定义全面地说明了管理信息系统的目标、功能和组成，而且反映了管理信息系统在当时达到的水平。1.2管理信息系统开发的理解开发出管理信息系统，就是要进行数据库设计。数据库设计的目标是为用户的应用系统提供一个高效率的运行环境，这种效率包括两个方面。一是数据库的存取效率，即面临选择什么样的数据库系统，使其既能满足用户的需求又尽可能减少整个系统开发的费用。二是应用程序的开发与设计，为用户提供方便、快捷的服务。管理信息系统开发主要考虑如下问题：（1）计算机软硬件环境：应用程序的运行要求，如操作系统、开发环境、CPU频率、物理内存的大小、硬盘空间的要耱等。（2）数据库管理系统的能力：开发所使用的数据库系统是文件服务器类型（如Foxpro），还是客户/服务器类型（如SQLSERVER）。后者在开发费用及技术难度上均会有较大的增加。（3）用户的操作要求与信息要求：针对具体管理而言提出的操作要求。用户需求的不同导致（1）、（2）选择的不同。（4）完整性和安全性约束：操作过程中对数据的完整性及安全性的保障程度不同，同样会对前面两个问题产生影响。1.3管理信息系统开发的方法及流程概述目前设计数据库系统主要采用的是以逻辑数据库设计和物理数据库设计为核心的规范设计方法。通过分析、比较与综合各种常用的数据库规范设计方法，将数据库设计分为个阶段，即管理信息系统开发的流程。1、需求分析阶段，进行数据库设计首先必须准确了解与分析用户要求（即用户想要做什么），这一阶段最困难、最耗费时的一步，须认真对待；2、概念结构设计阶段，它是整个数据库设计的关键，是系统分析员根据用户的需求进行综合、归纳与抽象后形成一个独立于具体DBMS的整体概念模型；3、逻辑结构设计阶段，逻辑结构设计是将概念结构转换为所选择的DBMS所支持的数据模型，并对其进行优化的过程；4、数据库物理设计阶段，它是为逻辑数据模型选取一个最适合应用环境的物理结构，一般来说，在关系数据库系统中、数据的存取对用户是透明的，一般不再考虑物理设计这一问题；5、数据库实施阶段，设计人员运用DBMS提供的数据库语言及前端开发环境，根据逻辑设计和物理设计的结果建立数据库，编制现调试应用程序，组织数据入库，并进行试运行；6、数据库运行和维护阶段，数据库应用系统经过试运行后，即可投入正式运行。在数据库系统运行过程中必须不断地对其进行评价、调整与修改。第二章 需求分析2.1系统需求随着学校学生的人数增加，排课表也是一件相当麻烦的事，如果采用人工进行排课，不但工作量大，效率低，而且容易出借，如果采用计算机管理将是一件非常容易的事情，而且准确性高。因此，开发大丰市*中学排课管理系统具有较大的社会现实意义和实用价值。在开发排课管理系统时应考虑以下需求：（1）满足排课管理各种信息的基本要求；（2）对操作人员的技能要求比较低，操作方便；（3）能够实现方便的扩展，满足系统以后升级的需要；（4）能够保障数据的安全，准确。2.2功能需求 基于系统需求分析，该系统需要实现以下基本功能：（1）教职员工入库信息管理模块，可以添加、删除、修改和保存教职员工的信息（包括职工姓名、年龄、学历等）；（2）排课管理模块，可以实现对所有班级的任课表、课程表进行查看、修改和保存；（3）教职员工带课查询模块，通过输入员工姓名，可以查询到员工所教的班级和所教的科目；（4）本学期课程设置模块，可以添加、修改、保存本学期学校所开的课程名称；（5）打印模块，可以打印出课程表、教师代课表。2.3性能需求1、硬件环境在最低配置的情况下，系统的性能往往不尽如人意，现在的硬件性能已经相当出色，而且价格也很便宜，因此通常给服务器端配置高性能硬件。l 处理器：Inter Pentium II 266 MX或更高l 内存：64MBl 硬盘空间：2GBl 显卡：SVGA显示适配器2、软件环境l 操作系统：Windows98/ME/2000/XPl 数据库：Microsoft Access2000第三章 系统设计与分析3.1可行性分析可行性分析（Feasibility Analysis）也称为可行性研究，是在系统调查的基础上，针对新系统的开发是否具备必要性和可能性，对新系统的开发从技术、经济、社会的方面进行分析和研究，以避免投资失误，保证新系统的开发成功。可行性研究的目的就是用最小的代价在尽可能短的时间内确定问题是否能够解决。该系统的可行性分析包括以下几个方面的内容。(1) 经济上的可行性：主要是对项目的经济效益进行评价，本系统开发经费对于本单位在经济上是可以接受的，并且本系统实施后可以显著提高工作效率，有助于学校完全实现信息化管理。所以本系统在经济上是可行的。(2) 技术上的可行性：技术上的可行性分析主要分析技术条件能否顺利完成开发工作，硬、软件能否满足开发者的需要等。该管理系统采用了可视化编程工具VisualBasic6.0进行设计。它是由美国微软公司推出的小型数据库开发语言，由于其使用方便，硬件要求不高，易学等特点，它还提供强有力的应用程序开发工具，为将来的维护提供必要的基础。系统的操作对人员的素质的要求不高，只需对他们稍加培训便能胜任(3) 时机上的可行性：目前，学校管理已逐步走了信息化的道路，随着计算机技术行业的迅猛发展，计算机应用领域的不断扩展，信息化已经成为一个单位非常重要的指标，所有开发本系统也是学校管理发展的必然趋势。 (4) 管理上的可行性：主要是管理人员是否支持，现有的管理制度和方法是否科学，规章制度是否齐全，原始数据是否正确等。规章制度和管理方法为系统的建设提供了制度保障。 综上所述，此系统开发目标已明确，在技术和经济等方面都可行，并且投入少、见效快。因此系统的开发是完全可行的。3.2系统开发的软件、硬件环境要求系统开发的运行环境：模块运行于通用的技术环境（如WindowsNT、Windows98/2000、WindowsXP等）。（2）软件配置：Microsoft Windows2000；Microsoft SQLServer2000。（3）硬件配置：电脑采用PC兼容机，CPU586以上，主频733以上，内容64M以上，硬盘10G以上，普通行式打印机。3.3功能模块划分从功能描述的内容可以看出，本系统可以实现5个完整的功能。根据这些功能，设计出系统的功能模块，如图1所示。*市*中学排课管理系统 修改课程设置保存课程设置课程表打印按任课科目查询按任课班级查询课程表安排排课管理教职员工带课查询代课表打印任课表安排删除员工信息修改员工信息添加员工信息打印模块学期课程设置教职员工入库信息管理 图1 系统功能模块图第四章 数据库设计数据库是信息管理系统的后台，存储着所有的信息，在信息管理系统中占有非常重要的地位。数据库结构设计的好坏对应用系统的效率及实现产生直接影响，而且好的数据库结构也将有利于程序的实现。这里我们采用Access2000作为后台数据库。4.1数据库分析用户的需求具体体现在各种信息的提供、保存、修改、查询等方面，经调查和分析，针对排课管理系统的需求和对系统流程图的分析，设计成如下的逻辑结构。l Teacher表：教师姓名、教师年龄、教师简历l Subject表：课程名l TempCT表：任课时间（星期几）l TempTT表：任课节次（第几节课）、任课科目、任课班级名l TrClass表：班级名、课程名、教师姓名l ClassArray表：班级名、任课时间（星期几）、任课节次（第几节课）、所受科目名4.2数据库逻辑结构设计启动Access2000，创建一个新的数据库，命名为“dataUse.mdb”，保存在要存放这个系统的所在工程文件的文件夹中。数据库“dataUse.mdb”包含以下6个表：“教师信息表Teacher”、“课程信息表Subject”、“任课周次表TempCT”、“课程设置表TrClass”、“课程安排表ClassArray”、“任课时间表TempTT”。1、 教师信息表Teacher“教师信息表Teacher”用来保存教职员工相关的信息。具体结构如下表1所示。表1 教师信息表结构字段名称数据类型说明cTrName文本教师姓名iAge数字教师年龄cTrDetails文本教师简历2、 课程信息表Subject“课程信息表Subject”用来存储课程的相关信息，具体结构如下表2所示。 表2 课程信息表结构字段名称数据类型说明cSjName文本课程名3、 任课周次表TempCT“任课周次表TempCT”用来存储任课的时间，具体结构如下表3所示。表3 任课周次表结构字段名称数据类型说明iTimeN数字任课周次（星期几）w1文本星期一W2文本星期二W3文本星期三W4文本星期四W5文本星期五4、课程设置表TrClass “课程设置表TrClass”用来保存班级名、课程名、教师姓名。具体结构如下表4所示。 表4课程设置表结构字段名称数据类型说明cClassCode文本班级名cSubject文本课程名cTeacher文本教师姓名5、课程安排表ClassArray “课程设置表TrClass”用来保存班级名、任课周次、任课节次、课程名。具体结构如下表5所示。 表5课程安排表结构字段名称数据类型说明cClassCode文本班级名iTimeW数字任课周次iTimeN数字任课节次cSjName文本课程名6、任课时间表TempTT “任课时间表TempTT”用来保存任课节次、课程名、班级名。具体结构如下表6所示。 表6任课时间表结构字段名称数据类型说明iTimeN数字任课节次cClassCode1文本班级1CClassCode2文本班级2CClassCode3文本班级3CClassCode4文本班级4CClassCode5文本班级5cSubject1文本科目1CSubject2文本科目2CSubject3文本科目3CSubject4文本科目4CSubject5文本科目5第五章 系统设计实施5.1设计工程框架在系统分析、设计已经准备好的情况下，我们开始创建工程并设计工程的框架。创建工程运行后，选择“文件”-“新建工程”菜单，然后从“工程”模板中选择“标准EXE”项，单击“确定”按钮，Visual Basic就会自动生成一个窗体。这个窗体我们在后面将作为“登录”窗体，先设置该窗体Name为“frmlogin”，Caption为“登录”。保存工程，在出现的“文件另存为”对话框中输入这个工程项目的名称为ThrManager，选择要存放的目录，单击“保存”按钮，保存工程。登录窗体设计好的界面如下图3所示。图3 “系统登录”窗体系统初始化窗体代码如下所示。Private Sub Form_Load()Me.MousePointer = 11Dim X, Y As IntegerImgBg.Picture = LoadPicture(App.Path + back.jpg)ImgBg.Width = Form1.WidthImgBg.Height = Form1.HeightX = (Screen.Width - Form1.Width) / 2Y = (Screen.Height - Form1.Height) / 2Form1.Left = XForm1.Top = YTimer1.Enabled = TruePrivate Sub Timer1_Timer()Unload MefmStart.ShowBeepEnd Sub5.2系统主窗体设计5.2.1设计主窗体在这个工程中，选择“工程” -“添加窗体”菜单，设置窗体的Name属性为“fmStart”，Caption属性为“排课管理系统”；startUpPosition属性为“2-屏幕中心”。设计好的窗体如下图3所示。图4 系统主窗体5.2.2 添加窗体代码Option ExplicitDim strRun As StringDim iTp As Integer“确定”按钮的代码如下所示。Private Sub Command1_Click()Me.MousePointer = 11Timer1.Enabled = TruestrRun = LTrim$(RTrim$(Combo1.Text)Select Case strRunCase Combo1.List(0): Form1.ShowCase Combo1.List(1): Form2.ShowCase Combo1.List(2): Form3.ShowCase Combo1.List(3): Form4.ShowCase Combo1.List(4): Form5.ShowCase Combo1.List(5): Form6.Show Case Else: MsgBox 请选择一正确的操作项, vbInformation + vbOKOnly, 操作End SelectEnd Sub“作者信息”按钮的代码。Private Sub Command2_Click()frmAbout.ShowEnd Sub5.2.3关于窗体的设计单击“作者信息”按钮，即弹出“关于本程序”窗体，界面如下图5所示。图5 “关于”窗体Option Explicit 注册表关键字安全选项.Const READ_CONTROL = &H20000Const KEY_QUERY_VALUE = &H1Const KEY_SET_VALUE = &H2Const KEY_CREATE_SUB_KEY = &H4Const KEY_ENUMERATE_SUB_KEYS = &H8Const KEY_NOTIFY = &H10Const KEY_CREATE_LINK = &H20Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _ KEY_CREATE_SUB_KEY+ KEY_ENUMERATE_SUB_KEYS + _ KEY_NOTIFY+KEY_CREATE_LINK + READ_CONTROL 注册表关键字 ROOT 类型.Const HKEY_LOCAL_MACHINE = &H80000002Const ERROR_SUCCESS = 0Const REG_SZ = 1 独立的空的终结字符串Const REG_DWORD = 4 32位数字Const gREGKEYSYSINFOLOC = SOFTWAREMicrosoftShared Tools LocationConst gREGVALSYSINFOLOC = MSINFOConst gREGKEYSYSINFO = SOFTWAREMicrosoftShared ToolsMSINFOConst gREGVALSYSINFO = PATHPrivate Declare Function RegOpenKeyEx Lib advapi32 Alias RegOpenKeyExA (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As LongPrivate Declare Function RegQueryValueEx Lib advapi32 Alias RegQueryValueExA (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As LongPrivate Declare Function RegCloseKey Lib advapi32 (ByVal hKey As Long) As LongPrivate Sub cmdSysInfo_Click() Call StartSysInfoEnd SubPrivate Sub cmdOK_Click() Unload MeEnd SubPrivate Sub Form_Load() Me.Caption = 关于 & App.Title lblVersion.Caption = 版本 & App.Major & . & App.Minor & . & App.Revision lblTitle.Caption = App.TitleEnd SubPublic Sub StartSysInfo() On Error GoTo SysInfoErr Dim rc As Long Dim SysInfoPath As String 试图从注册表中获得系统信息程序的路径及名称. If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then 试图仅从注册表中获得系统信息程序的路径. ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then 已知32位文件版本的有效位置 If (Dir(SysInfoPath & MSINFO32.EXE) ) Then SysInfoPath = SysInfoPath & MSINFO32.EXE 错误 - 文件不能被找到. Else GoTo SysInfoErr End If 错误 - 注册表相应条目不能被找到. Else GoTo SysInfoErr End If Call Shell(SysInfoPath, vbNormalFocus) Exit SubSysInfoErr: MsgBox 此时系统信息不可用, vbOKOnlyEnd SubPublic Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean Dim i As Long 循环计数器 Dim rc As Long 返回代码 Dim hKey As Long 打开的注册表关键字句柄 Dim hDepth As Long Dim KeyValType As Long 注册表关键字数据类型 Dim tmpVal As String 注册表关键字值的临时存储器 Dim KeyValSize As Long 注册表关键自变量的尺寸 - 打开 HKEY_LOCAL_MACHINE. 下的 RegKey - rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) 打开注册表关键字 If (rc ERROR_SUCCESS) Then GoTo GetKeyError 处理错误. tmpVal = String$(1024, 0) 分配变量空间 KeyValSize = 1024 标记变量尺寸 - 检索注册表关键字的值. - rc = RegQueryValueEx(hKey, SubKeyRef, 0, _ KeyValType, tmpVal, KeyValSize) 获得/创建关键字值 If (rc ERROR_SUCCESS) Then GoTo GetKeyError 处理错误 If (Asc(Mid(tmpVal, KeyValSize, 1) = 0) Then Win95 外接程序空终结字符串. tmpVal = Left(tmpVal, KeyValSize - 1) Null 被找到,从字符串中分离出来 Else WinNT 没有空终结字符串. tmpVal = Left(tmpVal, KeyValSize) Null 没有被找到, 分离字符串 End If - 决定转换的关键字的值类型. - Select Case KeyValType 搜索数据类型. Case REG_SZ 字符串注册关键字数据类型 KeyVal = tmpVal 复制字符串的值 Case REG_DWORD 四字节的注册表关键字数据类型 For i = Len(tmpVal) To 1 Step -1 将每位进行转换 KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1) 生成值字符。 By Char。 Next KeyVal = Format$(&h + KeyVal) 转换四字节的字符为字符串 End Select GetKeyValue = True 返回成功 rc = RegCloseKey(hKey) 关闭注册表关键字 Exit Function 退出 GetKeyError: 错误发生后将其清除. KeyVal = 设置返回值到空字符串 GetKeyValue = False 返回失败 rc = RegCloseKey(hKey) 关闭注册表关键字End FunctionPrivate Sub Label1_Click()Dim nc As Stringnc = Shell(start.exe mailto:, vbHide)End Sub5.3 教职员工入库信息管理模块设计完成以上工作以后，我们就可以进入基本模块的设计了。教职员工入库信息管理模块主要是完成以下功能：添加、删除、修改和保存教职员工的信息（包括职工姓名、年龄、学历等）5.3.1设计教职员工入库窗体教员入库管理模块主要是完成教职员姓名、年龄、详细信息等信息的输入、修改和删除等等。“教员入库”窗体包括10个CommandButton控件，4个TextBox控件，3个Frame控件。窗体中控件属性如下表7所示。窗体设计好以后，我们将其保存为“Form1.frm”，完整的窗体如下图6所示。图6 “教职员工入库”窗体表7 教员入库窗体控件属性表控件或窗体属 性属性取值FormNameForm1Caption教员入库FrameNameFrame1Caption导航FrameNameFrame2Caption编辑FrameNameFrame3Caption浏览Command1NameCommand1CaptionCommand2NameCommand1CaptionCommand4NameCommand1CaptionCommand5NameCommand2Caption添加Command7NameCommand2Caption删除Command8NameCommand2Caption修改Command9NameCommand2Caption保存Command10NameCommand2Caption取消Command11NamequeryCommCaption查询5.3.2在主窗体中添加代码现在，主窗体已经设计好了，选择“文件”中的“保存Form1.frm”菜单，保存该主窗体。进入主窗体时还必须进行初始化操作，初始化工作主要是完成各个ADODC控件和其对应的表的连接，具体代码如下所示。Dim con As ADODB.ConnectionDim rs As ADODB.RecordsetDim qrs As ADODB.RecordsetDim slSql As StringDim i, j As IntegerDim strBak(2) As StringDim sqlStr As StringPrivate Sub Command1_Click(Index As Integer)On Error GoTo Err:Dim cn As IntegerFor cn = 0 To 2 Text1(cn).Text = Next cnIf rs.RecordCount 0 Then Select Case Index Case 0: rs.MoveFirst Case 1: rs.MovePrevious Command1(2).Enabled = True Command1(3).Enabled = True Case 2: rs.MoveNext Command1(0).Enabled = True Command1(1).Enabled = True Case 3: rs.MoveLast End Select displayInfoEnd IfGoTo ok:Err:Call dataOverok:End SubPrivate Sub dataOver()If rs.BOF Then Command1(0).Enabled = False Command1(1).Enabled = False Command1(2).Enabled = True Command1(3).Enabled = True rs.MoveFirst Else If rs.EOF Then rs.MoveLast Command1(0).Enabled = True Command1(1).Enabled = True Command1(2).Enabled = False Command1(3).Enabled = False Else MsgBox Database Error, vbExclamation + vbOKOnly, Error unknown End IfEnd IfEnd SubPrivate Sub Command2_Click(Index As Integer)On Error GoTo errDealIf Index = 0 Or Index = 2 Then CanSave (True)Else CanSave (False)End IfSelect Case IndexCase 0: rs.AddNew Call toNull Case 1: j = MsgBox(你确定要删除本记录吗？, vbYesNo + vbQuestion, 删除) If j = vbYes Then rs.Delete Call toNull End If Case 2:rs.Deleters.AddNewCase 3: If Len(LTrim$(RTrim$(Text1(0).Text) 0 Then rs.AddNew For i = 0 To 2 If Len(LTrim$(RTrim$(Text1(i).Text) 0 Then rs.Fields(i) = Text1(i).Text End If Next i rs.Update Else MsgBox 姓名不得为空, vbOKOnly + vbExclamation, Error End IfCase 4: For i = 0 To 2 Text1(i).Text = strBak(i) Next i Call Command2_Click(3) End SelectExit SuberrDeal:MsgBox database Error, vbExclamation + vbOKOnly, errorokEnd:End SubPrivate Sub CanSave(ok As Boolean)Frame1.Enabled = Not okFrame3.Enabled = ok For i = 0 To 4 If i 0 Then rs.Mo