管理信息系统》课程设计学生信息管理系统模板.doc

《管理信息系统》课程设计
设计报告
设计名称: 学生管理系统
班 级： 信 管 031
学 号: 2003075006
姓 名： 施 日 华
指导老师： 陈 朝 晖
日 期：2006年1月4日 至 2006年 1月12日
摘 要
随着计算机技术的飞速发展,计算机在学生管理中应用的普及，利用计算机实现管理势在必行.我作为一个信息管理专业的大学生，希望能有所贡献.用我三年的所学编制了一个实用的程序来帮助教师们进行更有效的学生信息管理。
本系统采用面向对象的程序设计思想进行编制,整个系统数据存在表格文件中，由数据库文件进行管理。并且运用信息系统分析与设计方法,应用Access数据库，Visual Basic发工具等开发出来的基于WINDOWS系列的学生管理系统。该系统面向学校和学生，实现对学生成绩管理、班级管理、奖惩管理、学籍管理。系统支持学生工作管理部门和各系工作人员、全校学生使用，支持按权限管理的查询和数十种统计报表的输出打印功能.减少了部门之间工作的中间环节,提高了跨部门管理的效率。
文章介绍了学生管理信息系统的系统分析部分，包括可行性分析、业务流程分析等;系统设计部分主要介绍了系统功能设计和数据库设计及代码设计；系统实现部分说明了几个主要模块的算法，本系统界面友好，操作简单，比较实用。
【关键字】：学生管理系统，学生管理，数据库，信息系统分析，Visual Basic应用。
26

目录
摘 要 。。。 ... .。. 。。。 .。。 。。. ..。 。。. .。. ..。 。.. ..。 。.。 ... 。。. 。.. 。.。II
1.系统概述 。.. 。.. 。.. ..。 。.. 。.。 。。。 ..。 .。。 ... 。.。 ... ..。 。。。 。。。 ... 。。。4
1。1系统及需求分析 4
1。1.1 系统需求 4
1.1。2 可行性分析 4
1.2系统设计的背景 5
1.3系统的功能简介 6
1.3。1用户管理模块（CTRL+A): 6
1。3。2班级管理模块（CTRL+C): 6
1.3。3学生档案管理模块（CTRL+D）: 7
1。3。4课程管理模块(CTRL+E)： 7
1。3。5成绩管理模块（CTRL+F)： 7
1。3.6奖惩管理模块（CTRL+G）: 7
1.3.7报表打印模块(CTRL+J）： 7
1.3。8帮助模块 7
1。4系统开发的目标 7
2。 系统分析 。.. ..。 .。。 ... .。. 。。。 。。。 。。. .。. .。. .。. 。.. 。。. 。。. ..。 .。。8
2.1业务流程分析 8
2。2数据流程分析： 8
2。3数据存储分析：实体联系图 9
2。4功能分析：功能层次图 11
3.系统设计 ..。 。.. ... 。。. 。.. .。。 。。. ... .。。 。。. ..。 。.. 。.。 。.. 。.。 .。.12
3。1软件模块结构设计 12
3．1．1系统方案确定 12
3．1．2软件结构设计 12
3。2数据库设计 14
4。系统的功能 。。。 ..。 ... .。。 。.. 。。. 。.. ... 。。. .。. 。.. 。.. ... 。.。 。。。16
4．1系统登陆界面: 16
4．2用户管理模块： 18
4．3学藉管理模块: 24
5. 运行及调试 .。. 。。。 。。。 。.. ..。 ..。 ... ... ... ... 。。。 。.. .。. .。。 。.。27
6.全文总结 。.. 。。。 。.。 。.。 。。。 ... 。.. 。。。 。。。 ..。 。。。 ... ..。 .。. ..。 。。.28
致 谢 ... 。.。 .。。 。.。 .。。 .。. .。。 。.。 ..。 ... 。。. .。。 。.. .。. .。。 .。. 。。。28
参考文献 ... 。.。 。。。 。。. ... .。。 ... ... 。.。 。。。 ..。 。.。 。。. .。。 .。. 。。。29
1。系统概述
本学生信息管理系统可以说是一个综合性的学校学生管理系统，它集成了班级管理、学生学籍管理系统、学生成绩管理系统、学生档案管理系统、学生奖惩管理，因而具有较强的实用性和先进性。
1.1系统及需求分析
1。1。1 系统需求
通过调查,要求系统需要有以下功能:
⑴ 界面友好，易于操作；
⑵ 针对不同的使用对象,要求有较好的权限管理；
⑶ 能按学期、按班级完成对学生成绩的录入、修改；
⑷ 能查询学生成绩，及学生名单；
⑸ 能对各班级信息进行录入修改；
⑹ 能按班级输出学生的成绩;
1。1。2 可行性分析
经济上可行性：
现在,计算机的价格已经十分低廉，性能却有了长足的进步。而本系统的开
发，为学校的工作效率带来了一个质的飞跃，为此主要表现有以下几个方面：
第一，本系统的运行可以代替人工进行许多繁杂的劳动；
第二，本系统的运行可以节省许多资源;
第三，本系统的运行可以大大的提高学校的工作效率；
第四,本系统可以使敏感文档更加安全，等等。
所以，本系统在经济上是可行的。
技术上可行性:
为本系统的开发我特对我校管理系进行了深入的调查研究。现我校管
理系有33个班,其中05级有7个班，04级10个班，03级有10个班，02级6个班，共有学生人数为1500多人。并且对用户的要求也都能够满足。
本系统的开发我利用Access作为本系统的数据库，它是一个支持多用户的新型数据库，适用于中小规模的数据量需求。学校的硬件建设也为新系统提供了硬件的支持。
使用Visual Basic6.0作为系统开发的开发环境，它作为一种现代的编程语言，提供完善的指令控制语句、类与对象的支持及丰富的数据类型,给开发高性能系统提供的保障为开发满足客户要求的系统，保证了代码的模块化要求，而代码模块化的提高,非常有利于以后对新系统的扩展与修改。
综上所述，本系统的设计与开发在技术上和硬件设备上的条件都是满足的，
因此，它在技术上是可行的。
运行上可行性：
本系统为一个小型的学生管理系统，所耗费的资源非常的小，学校的电
脑无论是硬件还是软件都能够满足条件，因此,本系统在运行上是可行的。
法律可行性：
本系统纯为私人设计,在开发过程中没有涉及合同、责任等与法律相抵触的方面。因此，本系统在法律上是可行的。
由于本系统管理的对象单一,都是在校学生,且每个数据内容具有较强的关联性,涉及的计算过程不是很复杂。因此,比较适合于采用数据库管理。且学校用于学生管理的微机都是PIII以上的机器，在存储量、速度方面都能满足数据库运行的要求。在技术难度方面，由于有指导老师的指导和相关参考文献，特别是网上资料，特别是参考其它程序的功能，因此完全可以实现。
1.2系统设计的背景
本系统的设计是在Windows 98中文版操作系统环境下，使用Visual Basic 6。0中文版开发成功的.数据库是MIS中的重要支持技术，在MIS开发过程中，如何选择数据库管理是一个重要的问题，目前,数据库产品较多，每种产品都具有各自的特点和适用范围，因此，在选择数据库时，应考虑数据库应用的特点及适用范围，本系统选用的数据库语言介绍如下:
Visual Basic语言
Visual Basic是一种可视化的、面对对象和条用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的多种应用程序.它简单易学、效率高，且功能强大,可以与Windows的专业开发工具SDK相媲美，而且程序开发人员不必具有C/C++编程基础。在Visual Basic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问（ODBC）等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。
电脑已经成为挂在我们嘴角的一句口头禅,它已经深入到日常工作和生活的方方面面，比如文字处理、信息管理、辅助设计、图形图像处理、教育培训以及游戏娱乐等。Windows系统的推出使电脑从高雅的学术殿堂走入了寻常百姓家，各行各业的人们无须经过特别的训练就能够使用电脑完成许许多多复杂的工作。然而，虽然现在世界上已经充满了多如牛毛的各种软件，但它们依然不能满足用户的各种特殊需要,人们还不得不开发适合自己特殊需求的软件。我们都知道，学生管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要，所以学生管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件档案，这种管理方式存在着许多缺点,如：效率低、保密性差,另外时间一长,将产生大量的文件和数据，这对于查找、更新和维护都带来了不少的困难.而使用计算机对学生信息进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高学生管理的效率，也是企业的科学化、正规化管理的重要途径。
因此开发这样一套管理软件很有必要，在下面的各章中我将就这一套学生档案管理系统的开发，谈谈其开发过程和所涉及到的问题及解决方法.
1。3系统的功能简介
本系统主要可以实现以下的管理功能:学生档案管理、课程管理、成绩管理、奖惩管理等。
学生管理系统是一个典型的数据库应用程序,由学生档案管理、课程管理、成绩管理、奖惩管理等模块组成,特规划如下:
1.3.1用户管理模块（CTRL+A):
该模块的主要任务是维护系统的正常运行和安全性设置,包括添加用户、修改密码、删除用户等等。
1.3。2班级管理模块(CTRL+C):
该模块的功能是实现对全系班级的管理工作，包括：班级信息添加、班级信息修改、班级信息删除，这三个功能模块各自独立,完成班级信息的管理。
1.3.3学生档案管理模块（CTRL+D）:
该模块的主要功能是实现对学生的个人信息的管理工作,包括档案添加、档案修改、档案查询、删除等功能，从而方便学校管理部门对学校的基本情况的快速查询和了解.
1.3。4课程管理模块（CTRL+E）:
该模块对各个班级的课程进行设置，方便了学校教务处的教学管理人员的工作。该模块包括基本课程添加和班级课程设置两个模块。
1。3。5成绩管理模块（CTRL+F):
学校的成绩管理工作是检验学生学习情况的一个主要手段，本模块包括成绩添加、成绩修改、成绩查询、删除等功能模块.
1。3。6奖惩管理模块（CTRL+G）:
奖惩管理工作是检验学生在校综合表现的一个方式,本模块包括奖项添加、学生获奖
设置等到功能模块。
1.3。7报表打印模块（CTRL+J）：
该模块是方便管理人员打印相关信息,包括打印班级信息、学生学藉信息、学生成绩、
学生获奖情况等模块。
1。3.8帮助模块
该模块为首次操作该系统的人员提供了方便,它提供了有关操作的信息以及系统的版权。
1.4系统开发的目标
出于本系统是学校学生管理的一个综合性的系统，系统开发的总体任务是实现学生管理系统化、规范化，系统设计目标将最终定位于完成以上所述的系统主要业务的基本模型上。以提高工作效率为目的。
2. 系统分析
2.1业务流程分析
班级管理业务流程图:
学生班级
班级
输出
教务处
输入计算机
班主任
图2—1

档案管理业务流程图：
输出
档案
学生档案
教务处
输入计算机
班主任
图2—2

课程管理业务流程图:
输出
教务处
输入计算机
教师
学生
课程

课程
图2—3

成绩管理业务流程图：
输出
教务处
输入计算机
教师
学生
成绩

教师
图2—4

2.2数据流程分析:
数据流程图：
由于本系统的数据模块较多，下面仅以学生成绩管理模块为例来进行编制.
学生成绩管理系统0层数据流程图:
查询
统计分析
学生
成绩
管理
系统

学生情况
学籍管理部门
学生成绩
教师
教务处
学生
教师
图2—5

学生成绩管理系统1层数据流程图:
成绩
1.0
学生管理

2.0
课程管理

3.0
成绩管理

4.0
统计分析

学生
D1
课程
D2
D3
管理
部门
教务
教师
查询
管理
图2—6

2.3数据存储分析:实体联系图
1、数据模型设计。首先来做出学生成绩管理系统的E-R图，分析这个问题的实体,从系统分析可以知道，学生的成绩是由任课教师按照课程给出的，学生、课程、教师组成了这个系统的三个实体.
2、再分析三个实体之间的联系。首先，这三个实体不是一个统一体，学生成绩与教师没有内在联系，教师必须通过课程实体才能与学生建立联系,因而先不考虑。课程与学生这两个实体是多对多联系；一位学生要学习多门课程，一门课程有多位学生共同学习。而学习成绩是这两个实体“学生”和“成绩”共有的属性，应填在二者的联系“学习”边.因为成绩既不是学生独有的,也不是课程独有的而是学生和课程二者共有的。这个E-R图可画成下图.
学生管理系统中学生与课程的E-R图：
m
n
学生
课程
成绩
学习
图2—7

学生与班级的E—R图：
m
n
学生
班级
学生人员
组成
图2—8

教师与课程的E-R图：
n
教师
课程
教学
l
图2—9

实体之间关系E—R图：
n
l
班级
组成

组成人员
n
l
m
n
课程
成绩
选修
教学
教师
学生
图2—10

教师与课程的E-R图组合到一起，得到最后的E-R图,有了E—R图，就可以设计数据库。下图为数据模型图。
实体模型
数据模型
l
m
n
学习
学生
课程
教师
学习
学习
m
课程
教师
学生
数据库
图2—11

2.4功能分析:功能层次图
学生管理

登录
打印报表
课程管理
班级
程设

基本课程添加
成绩管理
学生
费浏览

学生缴费添加
基本学费设置
学生
费查询
信息查询
学藉管理
档案查询
档案添加
档案浏览
档案删除
奖惩管理
奖惩设置
奖项添加
用户管理
添加用户
退

出
班级管理
添加班级
班级浏览
班级修改

助

图2—12

图2—1

3.系统设计
3.1软件模块结构设计
3．1．1系统方案确定
通过对系统的调研与分析,系统主要应完成的功能有：班级管理、学生成绩管理、学生交费管理、课程管理、成绩管理、系统管理等功能。
3．1．2软件结构设计
系统总体设计:
cc班级课程（各班相关课程）；cf班级信息(各班的资料）；cuf课程信息(各门课程资料）；pf奖惩信息(奖惩信息)；ps奖惩情况(获奖人员情况)；sf成绩(学生成绩）；stf学生信息(学生的资料)；uf用户信息（用户名和密码）1。
uf
uf
ps
ps
sf
sf
cuf
cuf
stf
stf
uf
uf
uf
uf
cf
cf
Sf
ps
Sf
ps
学生信息管理
判断用户身份
分配处 理
用户
管理
班级管理
学藉管理
课程管理
成绩管理
奖惩管理
打印报表
输入数据
识别身份
帮助
输入数据

更新用户
输入数据
更新信息
输入数据
输入数据
输入数据
输入数据
输入数据
更新信息
更新课程
更新成绩
更新信息
打

印
帮助信息
图3—1

sf sf
cf stf stf cuf cuf sf sf ps ps ps ps
代码设计：
学号: xx xx xxx 班级编号： xx xx

年级 专业 编号 年级 编号
输出设计：
a。确定输出内容：
输出的内容主要是系统给出对用户进行的分析结果,其中包括用户的基本信息，选课情况，成绩单，成绩趋势表等。
b.确定输出设备及介质：
我们拟定采用打印机为主要输出设备，打印出来的内容可以供以后用户随时随地查阅分析。　
c.确定输出格式：　
采用类似报表的形式输出，分表头，表体和表尾。报表的输出,可以根据用户的需求采用不同形式.对于单个用户一次性使用的表格，因为没有保留价值，可以在显示终端上输出。对于个用户需要多次使用的表格，可打印输出。需要长期保留的输出的报表，可采用磁盘文件形式输出,以便保存。
输入设计：
输入设计的目的是保证向系统输入正确的数据.在此前提下,应做到输入方法简单，迅速，经济，方便。所以,因该遵循最小量原则，也就是保证满足处理要求的前提下，使输入量最小，这样出错几率小；简单性原则，输入的准备，输入的过程应尽量容易,以减少错误发生。早检验原则，对数据的检验尽量接近原数据发生点,使错误能及时得到改正；少转换原则，输入数据尽量用其处理所需形式记录，以避免数据转换介质时发生错误。
3。2数据库设计
在关系数据库中的关系必须满足一定的要求。满足不同程度要求的为不同范式。目前主要有六种范式：第一范式、第二范式、第三范式、BC范式、第四范式和第五范式。在这六种范式中,一般只用前三种,对于常用系统就足够了。而且这五种范式是“向上兼容”的，即满足第五范式的数据结构自动满足一、二、三、四范式,满足第四范式的数据结构自动满足第一、二、三范式，……，依此类推。简单的介绍前三种范式。
第一范式（first normal form,简称1st NF）就是指在同一表中没有重复项出现，如果有则应将重复项去掉。这个去掉重复项的过程就称之为规范化处理。在本文所讨论的开发方法里,1st NF实际上是没有什么意义的.因为我们按规范化建立的指标体系和表的过程都自动保证了所有表都满足1st NF。
第二范式(second normal form，简称 2nd NF）是指每个表必须有一个(而且仅一个)数据元素为主关键字（primary key）,其它数据元素与主关键字一一对应。.即表中其它数据元素都依赖于主关键字，或称该数据元素唯一地被主关键字所标识。
第三范式（third normal form，简称 3rd NF）就是指表中的所有数据元素不但要能够唯一地被主关键字所标识,而且它们之间还必须相互独立,不存在其它的函数关系。也就是说对于一个满足了 2nd NF的数据结构来说，表中有可能存在某些数据元素依赖于其它非关键字数据元素的现象,必须加以消除。
此外,在这过程中要注意好表的主键、外键、用户自定义约束的条件,在模式分解过程中要尽量的保持函数依赖和无损联接。遵循上述说明，就可以设计出一个良好的关系数据库模式.
考虑到我们暂时制作的是一个简单的桌面数据库系统，不需要网络的支持，因此我们采用的是access的数据库，他功能强大，简单易用。我们整个程序只需一个数据库（db.dbf）,库中有8张物理表.
Student表
字段名
类型
宽度
限制
student_NO
文本
20
不能为空
student_Name
文本
10
不能为空
student_Sex
文本
2
不能为空
student_Bir
短日期

不能为空
student_Cla
文本
20
不能为空
student_Tel
文本
13
不能为空
student_Esd
短日期

不能为空
student_Add
文本
60
不能为空
student_Rem
备注

不能为空
class_Cour表
字段名
类型
宽度
限制
class_NO
文本
20
不能为空
course_Name
文本
20
不能为空
Class表
字段名
类型
宽度
限制
class_NO
文本
20
不能为空
class_Name
文本
10
不能为空
class_Teacher
文本
10
不能为空
class_Remarks
文本

不能为空
Course表
字段名
类型
宽度
限制
course_Name
文本
20
不能为空
course_Rem
备注
60
不能为空
Prize表
字段名
类型
宽度
限制
prize_Name
文本
20
不能为空
prize_Rem
备注
60
不能为空
Score表
字段名
类型
宽度
限制
score_NO
文本
14
不能为空
score_Per
文本
20
不能为空
score_Cla
文本
20
不能为空
score_Stu
文本
20
不能为空
score_Cou
文本
20
不能为空
score_Sco
文本
20
不能为空
prize_Stud表
字段名
类型
宽度
限制
prize_NO
文本
14
不能为空
prize_Stu
文本
20
不能为空
prize_Dat
短日期
10
不能为空
prize_Nam
文本
20
不能为空
User表
字段名
类型
宽度
限制
user_ID
文本
20
不能为空
user_PWD
文本
20
不能为空
user_DATE
短日期

不能为空
4。系统的功能
本部分主要内容为本系统的运行界面以及主要界面的源代码。
4．1系统登陆界面:
本界面的主要功能是为了对系统进行安全性管理，本系统的用户名和密码保存在USER表中，本系统根据不同的用户而设置了不同的权限，可以用111；111为用户名和密码来登陆本系统。
Option Explicit
Private Declare Function GetUserName Lib "advapi32。dll” Alias ”GetUserNameA” （ByVal lpbuffer As String, nSize As Long) As Long
Public OK As Boolean
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
Dim miCount As Integer
Private Sub Form_Load()
Dim i As Integer
i = 0
txtSQL = "select * from user_Form"
Set mrc = ExecuteSQL(txtSQL, MsgText)
With txtUserName
Do While Not mrc。EOF
i = i + 1
.AddItem Trim（mrc！user_ID）
mrc.MoveNext
Loop
。ListIndex = i - 1
End With
mrc。Close
OK = False
miCount = 0
End Sub
Private Sub cmdCancel_Click（)
OK = False
Me。Hide
End Sub
Private Sub cmdOK_Click（)
txtSQL = ”select * from user_Form where user_ID = '” & txtUserName。Text ＆ "'"
Set mrc = ExecuteSQL(txtSQL， MsgText）
If mrc。EOF = True Then
MsgBox "没有这个用户，请重新输入用户名！”, vbOKOnly + vbExclamation, ”警告”
txtUserName。SetFocus
Else
If Trim(mrc。Fields（1)) = Trim(txtPassword.Text） Then
OK = True
mrc。Close
Me。Hide
UserName = Trim(txtUserName.Text)
Else
MsgBox ”输入密码不正确,请重新输入！”, vbOKOnly + vbExclamation， "警告"
txtPassword.SetFocus
txtPassword。Text = ""
End If
End If
miCount = miCount + 1
If miCount = 3 Then
Me.Hide
End If
Exit Sub
End Sub
Private Sub txtPassword_KeyDown（KeyCode As Integer, Shift As Integer)
EnterToTab KeyCode
End Sub
Private Sub txtPassword_KeyPress（KeyAscii As Integer)
If KeyAscii = 13 Then
Call cmdOK_Click
End If
End Sub
Private Sub txtUserName_Click（）
txtPassword.Text = ””
End Sub
Private Sub txtUserName_KeyDown(KeyCode As Integer， Shift As Integer)
EnterToTab KeyCode
End Sub
4．2用户管理模块：
本模块是本系统的安全性设置模块，根据学校不同部门以及不同使用人员对本系统的要求和需要,从而实行了分级管理，对用户的权限和类别进行了分类管理。
Private Sub Command1_Click(）
Dim txtSQL As String
If Text1(0） = "” Then
MsgBox ”用户名称不能为空！", vbOKOnly， ”提示"
Text1(0）。SetFocus
Exit Sub
End If
If Text1（1) = "” Then
MsgBox "用户密码不能为空！", vbOKOnly， "提示"
Text1(1）。SetFocus
Exit Sub
Else
If Text1（1） 〈> Text1（2) Then
MsgBox ”两次密码输入不同!", vbOKOnly， ”提示"
Text1（1） = ”"
Text1（2） = ””
Text1(1)。SetFocus
Exit Sub
End If
End If
txtSQL = ”select ＊ from user_Form where user_ID=’" ＆ Trim（Text1（0)） & ”'"
Set mrc = ExecuteSQL（txtSQL， MsgText）
If mrc.EOF = False Then
MsgBox ”此用户名已经存在!”， vbOKOnly， ”警告”
Text1（0）.SetFocus
Exit Sub
End If
mrc。Close
txtSQL = ”select * from user_Form”
Set mrc = ExecuteSQL(txtSQL, MsgText)
mrc。AddNew
mrc。Fields(0) = Trim（Text1(0)）
mrc.Fields（1) = Trim(Text1(1)）
mrc.Fields(2) = Now
mrc.Update
mrc.Close
For i = 0 To 2
Text1(i) = "”
Next
MsgBox "用户信息添加成功！”， vbOKOnly， ”提示”
Listapp
End Sub
Private Sub Command2_Click()
Text1（0) = ”"
Text1(1) = "”
Text1（2) = ””
End Sub
Private Sub Command3_Click()
Dim txtSQL As String
If Text1(3) = ”" Then
MsgBox "请你选择用户名称！”, vbOKOnly, "提示”
List1.SetFocus
Exit Sub
End If
If Text1（4) = ”” Then
MsgBox ”修改密码要旧密码！”, vbOKOnly, ”警告”
Text1（4）。SetFocus
Exit Sub
End If
If Text1(5) = "” Then
MsgBox "新的密码不能为空!", vbOKOnly， ”提示”
Text1（5）.SetFocus
Exit Sub
Else
If Text1(5) <> Text1（6） Then
MsgBox "两次密码输入不同!”, vbOKOnly, "提示”
Text1（5） = ”"
Text1(6) = ””
Text1（5）.SetFocus
Exit Sub
End If
End If
txtSQL = ”select ＊ from user_Form where user_ID=’” & Trim(Text1(3)) & "’and user_PWD=’” & Trim（Text1（4）) ＆ "'”
Set mrc = ExecuteSQL(txtSQL， MsgText)
If mrc。EOF = False Then
txtSQL = ”delete from user_Form where user_ID=’” ＆ Trim(Text1(3)) & "'"
Else
MsgBox "用户密码输入错误!"， vbOKOnly， "警告"
Text1（4）.SetFocus
Exit Sub
End If
Set mrc = ExecuteSQL(txtSQL， MsgText)
txtSQL = ”select ＊ from user_Form"
Set mrc = ExecuteSQL（txtSQL， MsgText)
mrc.AddNew
mrc.Fields（0) = Trim（Text1（3))
mrc.Fields(1） = Trim（Text1(5))
mrc。Fields（2) = Now
mrc。Update
mrc。Close
For i = 3 To 6
Text1（i) = ”"
Next
MsgBox "用户信息修改成功!”, vbOKOnly, "提示”
End Sub
Private Sub Command4_Click()
Text1（3) = ”"
Text1(4) = ”"
Text1（5） = ”"
Text1(6) = ”"
End Sub
Private Sub Command5_Click(）
Dim txtSQL As String
If Text1(7） = ”” Then
MsgBox ”请你选择用户名称！”， vbOKOnly, "提示"
List1。SetFocus
Exit Sub
Else
If Text1（7) = UserName Then
MsgBox "不可以删除正在使用的用户！”, vbOKOnly, ”警告"
Text1（7） = ””
Text1（8) = ”"
List1。SetFocus
Exit Sub
End If
End If
If Text1（8） = ”” Then
MsgBox ”删除用户需要密码！", vbOKOnly， ”警告”
Text1（8）.SetFocus
Exit Sub
End If
txtSQL = "select ＊ from user_Form where user_ID='" ＆ Trim(Text1（7）） & ”’and user_PWD='” ＆ Trim(Text1(8)） & ”'”
Set mrc = ExecuteSQL(txtSQL， MsgText）
If mrc.EOF = False Then
txtSQL = "delete from user_Form whe