管理信息系统专业课程设计学生信息标准管理系统模板.doc

《管理信息系统》课程设计
设计报告

设计名称： 学生管理系统
班 级： 信 管 031
学 号： 075006
姓 名： 施 日 华
指引教师： 陈 朝 晖
日 期：1月4日 至 1月12日

摘 要
随着计算机技术飞速发展，计算机在学生管理中应用普及，运用计算机实现管理势在必行。我作为一种信息管理专业大学生，但愿能有所贡献。用我三年所学编制了一种实用程序来协助教师们进行更有效学生信息管理。
本系统采用面向对象程序设计思想进行编制，整个系统数据存在表格文献中，由数据库文献进行管理。并且运用信息系统分析与设计办法，应用Access数据库，Visual Basic发工具等开发出来基于WINDOWS系列学生管理系统。该系统面向学校和学生，实现对学生成绩管理、班级管理、奖惩管理、学籍管理。系统支持学生工作管理部门和各系工作人员、全校学生使用，支持按权限管理查询和数十种记录报表输出打印功能。减少了部门之间工作中间环节，提高了跨部门管理效率。
文章简介了学生管理信息系统系统分析某些，涉及可行性分析、业务流程分析等；系统设计某些重要简介了系统功能设计和数据库设计及代码设计；系统实现某些阐明了几种重要模块算法，本系统界面和谐，操作简朴，比较实用。

【核心字】：学生管理系统，学生管理，数据库，信息系统分析，Visual Basic应用。

目录
摘 要 ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...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 us