健身中心会员标准管理系统论文毕业设计方案毕业论文.doc

摘 要
随着信息技术在管理上越来越进一步而广泛应用，管理信息系统实行在技术上已逐渐成熟。管理信息系统是一种不断发展新型学科，任何一种单位要生存要发展，要高效率地把内部活动有机地组织起来，就必要建立与自身特点相适应管理信息系统。
本文简介了在Visual Basic6.0环境下采用“自上而下地总体规划，自下而上地应用开发”方略开发一种管理信息系统过程。通过度析某一健身中心管理局限性，创立了一套行之有效计算机管理健身中心会员方案。文章简介了会员管理信息系统系统分析某些，涉及可行性分析、业务流程分析等；系统设计某些重要简介了系统功能设计和数据库设计及代码设计；系统实现某些阐明了几种重要模块算法，本系统界面和谐，操作简朴，比较实用。

【核心字】：
管理信息系统、会员管理、Visual Basic应用。
Summary

With more and more widespread and profound application of information technology in management，the implement of management information system has become mature in technology step by step. Managing information system is a new subject. Enterprise needs existence and development，so enterprise activities should be organized efficiently and organically，which means tightening up the enterprise management and strengthening effective management of any resource (staff，finance，property，etc.) internal the enterprise，and also establishing a management information system fitting in with its own characteristics.
This article introduces the detailed process of exploring a management information system under the environment of visual FoxPro，utilizing “Top-Bottom” overall plan and a strategy according to “Bottom-Top” application and exploitation. That is to establish a set of effective scheme for student management by computer，through analyzing disadvantages of student management by human resources. This article emphasizes on three sections. The system analysis section of student management information includes feasible analysis，management function analysis. The system design section mainly focuses on system function design and data base design and data number design. And the system realization section has provided several major function ，together with the main windows and programs.
This economical and pragmatic system has explicit interface，with simple operation.

[Keywords] ：
MIS、member management、visual basic application

摘 要 I
Summary II
第一章 系统概述 7
1.1 系统及需求分析 8
1.1.1 系统需求 8
1.1.2可行性分析 8
1.3系统功能简介 11
1.3.1 项目规划 11
1.3.2系统管理模块(CTRL+O) 11
1.3.3会员卡管理模块（CTRL+P）： 12
1.3.4会员档案管理模块（CTRL+T）： 12
1.3.5会员缴费管理 12
1.4系统开发目的 12
第二章 系统分析 13
2.1业务流程分析 13
会员卡管理业务流程图： 13
会员档案管理业务流程图： 13
2.2数据流程分析： 14
2.2.1数据流程图： 14
2.3数据存储分析：实体联系图 15
2.4功能分析：功能层次图 15
3.系统设计 16
3.1软件模块构造设计 16
3．1．1系统方案拟定 16
3．1．2软件构造设计 16
3．2数据库设计 17
3．2．1 本系统中所涉及到重要实体共有如下几种数据表： 17
3．2．2 各表物理构造如下： 19
第四章 系统功能 22
4．1系统登陆界面： 22
4．2系统主界面： 24
4．3顾客管理模块： 35
4．4会员档案管理模块： 39
4.5会员缴费管理 47
第五章 系统运营及评价 47
5.1 系统运营 47
5.2 系统评价 48
第六章 结束语 50
致 谢 51
参照文献 52

第一章 系统概述
当今社会为信息社会，世界已进入在计算机信息管理领域中激烈竞争时代。信息已成为继劳动力、土地、资本之后又一大资源，谁控制信息越多，谁运用信息资源效率越高，谁就会在各方面竞争中，占有一席之地，谁就会更有优势，这一点已得到举世公认。
随着时代进步，社会生产力高速发展，新技术层出不穷信息量急剧膨胀，整个人类社会已成为信息化社会人们对信息和数据运用和解决已经进入自动化、网络化和社会化阶段。如在查找情报资料、解决银行帐目、仓库管理、科研生产等方面，无不需要运用大量信息资源。因而，如何有效地进行数据信息管理和运用，已经成为人们普遍关注课题。
信息在不同领域里有着不同概念，在管理科学领域中，普通以为信息是通过加工解决后一种数据形式，是一种有顺序符号排列，它是系统传播和解决对象。处在信息时代今天，信息作用越来越为人们所注重。制定工作筹划，研究投资方略，都离不开对信息充分运用。管理信息系统（Management Information System,缩写MIS）是一种“人机系统”，它以特定模式支持一种组织内各级组织机构之间通讯，对信息资源进行综合开发，管理和运用，实现对该组织有效管理。它通过对数据加工解决，及时为管理与决策分析提供信息。其特点有：
l 数据所有存储于计算机系统中；
l 顾客使用简朴、操作以便、查询速度快；
l 有极强人-机对话功能；
l 能直接从计算机系统中提供决策所需参照信息。

依照对健身中心会员管理中存在问题进行分析，本会员信息管理系统可以说是一种综合性健身中心会员管理系统，这它集成了系统管理、会员卡管理科、会员档案管理、会员缴费管理等各种功能，因而具备较强实用性和先进性。
1.1 系统及需求分析
1.1.1 系统需求
通过调查,规定系统需要有如下功能:
⑴ 由于操作人员计算机知识普遍较差,规定有良好人机界面;
⑵ 由于该系统使用对象多,规定有较好权限管理；
⑶ 原始数据修改简朴以便,支持多条件修改
⑷ 以便数据查询，支持多条件查询;
⑸ 在相应权限下，删除数据以便简朴，数据稳定性好；
⑹ 数据计算自动完毕，尽量减少人工干预;
1.1.2可行性分析
由于本系统管理对象单一,都是在健身中心注册新老会员，且每个数据内容具备较强关联性，涉及计算过程不是很复杂。因而，比较适合于采用数据库管理。且健身中心用于其会员管理微机都是PIII以上机器，在存储量、速度方面都能满足数据库运营规定。在技术难度方面，由于有指引教师指引和有关参照文献，特别是网上资料，特别是参照其他程序功能，因而完全可以实现。
本系统设计是在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环境下功能强大、图形界面丰富应用软件系统。
总来说，Visual Basic具备如下特点：
可视化编程：
用老式程序设计语言设计程序时，都是通过编写程序代码来设计顾客界面，在设计过程中看不到界面实际显示效果，必要编译后运营程序才干观测。如果对界面效果不满意，还要回到程序中修改。有时候，这种编程-编译-修改操作也许要重复多次，大大影响了软件开发效率。Visual Basic提供了可视化设计工具，把Windows界面设计复杂性“封装”起来，开发人员不必为界面设计而编写大量程序代码。只需要按设计规定屏幕布局，用系统提供工具，在屏幕上画出各种“部件”，即图形对象，并设立这些图形对象属性。Visual Basic自动产生界面设计代码，程序设计人员只需要编写实现程序功能那某些代码，从而可以大大提高程序设计效率。
面向对象程序设计
4.0版后来Visual Basic支持面向对象程序设计，但它与普通面向对象程序设计语言(C++)不完全相似。在普通面向对象程序设计语言中，对象由程序代码和数据构成，是抽象概念；而Visual Basic则是应用面向对象程序设计办法(OOP)，把程序和数据封装起来作为一种对象，并为每个对象赋予应有属性，使对象成为实在东西。在设计对象时，不必编写建立和描述每个对象程序代码，而是用工具画在界面上，Visual Basic自动生成对象程序代码并封装起来。每个对象以图形方式显示在界面上，都是可视。
构造化程序设计语言
Visual Basic是在BASIC语言基本上发展起来，具备高档程序设计语言语句构造，接近于自然语言和人类逻辑思维方式。Visual Basic语句简朴易懂，其编辑器支持彩色代码，可自动进行语法错误检查，同步具备功能强大且使用灵活调试器和编译器。
Visual Basic是解释型语言，在输入代码同步，解释系统将高档语言分解翻译成计算机可以辨认机器指令，并判断每个语句语法错误。在设计Visual Basic程序过程中，随时可以运营程序，而在整个程序设计好之后，可以编译生成可执行文献(.EXE)，脱离Visual Basic环境，直接在Windows环境下运营。
事件驱动编程机制
Visual Basic通过事件来执行对象操作。一种对象也许会产生各种事件，每个事件都可以通过一段程序来响应。例如，命令按钮是一种对象，当顾客单击该按钮时，将产生一种“单击“(CLICK)事件，而在产生该事件时将执行一段程序，用来实现指定操作。
在用Visual Basic设计大型应用软件时，不必建立具备明显开始和结束程序，而是编写若干个微小子程序，即过程。这些过程分别面向不同对象，由顾客操作引起某个事件来驱动完毕某种特定功能，或者由事件驱动程序调用通用过程来执行指定操作，这样可以以便编程人员，提高效率。
访问数据库
Visual Basic具备强大数据库管理功能，运用数据控件和数据库管理窗口，可以直接建立或解决Microsoft Access格式数据库，并提供了强大数据存储和检索功能。同步，Visual Basic还能直接编辑和访问其她外部数据库，如dBASE，FoxPro，Paradox等，这些数据库格式都可以用Visual Basic编辑和解决。
Visual Basic提供开放式数据连接，即ODBC功能，可通过直接访问或建立连接方式使用并操作后台大型网络数据库，如SQL Server，Oracle等。在应用程序中，可以使用构造化查询语言SQL数据原则，直接访问服务器上数据库，并提供了简朴面向对象库操作指令和多顾客数据库访问加锁机制和网络数据库SQL编程技术，为单机上运营数据库提供了SQL网络接口，以便在分布式环境中迅速而有效地实现客户/服务器(client/server)方案。
动态数据互换(DDE)
运用动态数据互换(Dynamic Data Exchange)技术，可以把一种应用程序中数据动态地链接到另一种应用程序中，使两种完全不同应用程序建立起一条动态数据链路。当原始数据变化时，可以自动更新链接数据。Visual Basic提供了动态数据互换编程技术，可以在应用程序中与其她Windows应用程序建立动态数据互换，在不同应用程序之间进行通信。
对象链接与嵌入(OLE)
对象链接与嵌入(OLE)将每个应用程序都看做是一种对象(object)，将不同对象链接(link)起来，再嵌入(embed)某个应用程序中，从而可以得到具备声音、影像、图像、动画、文字等各种信息集合式文献。OLE技术是Microsoft公司对象技术战略，它把各种应用程序合为一体，将每个应用程序看做是一种对象进行链接和嵌入，是一种应用程序一体化技术。运用OLE技术，可以以便地建立复合式文档(compound document)，这种文档由来自各种不同应用程序对象构成，文档中每个对象都与本来应用程序相联系，并可执行与本来应用程序完全相似操作。
动态链接库(DLL)
Visual Basic是一种高档程序设计语言，不具备低档语言功能，对访问机器硬件操作不太容易实现。但它可以通过动态链接库技术将C/C++或汇编语言编写程序加入到Visual Basic应用程序中，可以像调用内部函数同样调用其她语言编写函数。此外，通过动态链接库，还可以调用Windows应用程序接口(API)函数，实现SDK所具备功能。
1.3系统功能简介
本系统重要可以实现如下管理功能：系统管理、会员档案管理、会员交费管理等等。
1.3.1 项目规划
健身中心会员信息管理系统是一种典型数据库应用程序,由系统管理、会员卡管理、会员档案管理、会员交费管理、打印报表等模块构成,特规划如下:
1.3.2系统管理模块(CTRL+O)
该模块重要任务是维护系统正常运营和安全性设立,涉及添加顾客(快捷键：CTRL+A)、修改密码(快捷键：CTRL+B)、重新登录(快捷键：CTRL+F1)等等。

1.3.3会员卡管理模块（CTRL+P）：
该模块功能是实现对健身中心会员卡管理工作，涉及：会员卡浏览、会员卡添加、会员卡查询等，这三个功能模块各自独立，完毕健身中心所有会员卡管理。

1.3.4会员档案管理模块（CTRL+T）：
该模块重要功能是实现对健身中心会员个人信息管理工作，涉及档案添加、档案浏览、档案查询等功能，从而以便中心管理部门对会员基本状况迅速查询和理解。
1.3.5会员缴费管理
该模块重要功能是实现对健身中心会员会费缴纳管理工作，涉及会员会费浏览、会员会费查询等功能。从而以便健身中心管理人员对会员缴纳会费状况掌握与理解。
1.4系统开发目的
出于本系统是健身中心会员管理一种综合性系统，本系统设计目的将最后定位于完毕以上所述系统重要业务基本模型上。

第二章 系统分析
2.1业务流程分析
会员卡管理业务流程图：
管理中心
输入计算机
管理人员
所属部门
会员
卡种
卡种
输出

会员档案管理业务流程图：
管理中心
输入计算机
管理人员
所属部门
会员
档案
档案
输出

2.2数据流程分析：

2.2.1数据流程图：
由于本系统数据模块较多，下面仅以会员档案管理模块为例来进行编制。

会员管理部门
会员
会员档案管理系统
管理中心
会员
教师

教师
会员信息
会员卡
查询
记录分析

会员档案管理系统0层数据流程图

管理
中心
卡
费用uyon
1.0
会员管理

2.0
卡管理

3.0
综合管理

4.0
记录分析

D1
D2
D3
查询者
管理者

会员

会员卡

会员管理系统1层数据流程图

2.3数据存储分析：实体联系图
1、数据模型设计。一方面来做出会员档案管理系统E-R图，分析这个问题实体，从系统分析可以懂得，会员档案是由姓名、卡号等构成了这个系统几种实体。
2、再分析几种个实体之间联系。这几种实体不是一种统一体。这个E-R图可画成下图。

2.4功能分析：功能层次图

会员档案添加
会员档案修改
会员档案删除
卡信息添加
卡信息修改
卡信息删除
卡信息
浏览
会员缴费浏览
会员缴费查询
添加顾客
重新登录
更改密码
系统管理
会员缴费管理
会员卡管理
会员档案管理
会员管理系统

3.系统设计
3.1软件模块构造设计
3．1．1系统方案拟定
通过对系统调研与分析，系统重要应完毕功能有：会员档案管理、会员卡管理、会员交费管理、系统管理、报表打印等功能。
3．1．2软件构造设计
本系统在执行时，先依照不同操作人员需要来进行相应模块，然后可以输入数据或者进行其他查询或浏览等操作；总体来说，本系统属于一种事务型管理系统。

接受数据
解决中心
卡管理
档案管理
交费管理
系统管理
其她管理
打印报表

3．2数据库设计
数据库采用了Microsoft推出Access数据库，这是微软集成到Office中一种桌面数
据库，可以迅速以便和Office其她套件综合使用。由于Access具备明显简易性和有效性，大量桌面数据库系统都采用Access作为后台数据库。使用Access好处还在于，如果你系统扩展到Client/Server模式时候，可以使用Microsoft数据库服务器软件SQL Server，此时，程序只需要简朴修改一下链接（ADO数据源）就可以，这样，为程序平滑扩展提供了非常有力条件。
3．2．1 本系统中所涉及到重要实体共有如下几种数据表：
class表：{年度，卡种，所属，时限，项目，主管教练，备注}
jf表：{卡号，年度，交费，欠费，日期，操作员}
use表：{username,password,admin,readonly,qx1,qx2,qx3,qx4}
xj表：{卡号，姓名，性别，卡种，出生年月，家庭住址，邮政编码，联系电话，注册时间，备注}
jiaofei表：{年度，所属，时限，会费}
3．2．2 各表物理构造如下：

Class表：
字段名称
类型
宽度
小数位
年度
文本
16

卡种
文本
20

所属
文本
5

时限
文本
8

项目
文本
16

主管教练
文本
8

备注
备注

Jf表：
字段名称
类型
宽度
小数位
卡号
文本
5

年度
文本
50

交费
货币

自动
欠费
货币

自动
日期
日期/时间

操作员
文本
10

Use表：
字段名称
类型
宽度
小数位
username
文本
20

password
文本
20

Admin
文本
2

Readonly
文本
2

Qx1
文本
2

Qx2
文本
2

Qx3
文本
2

Qx4
文本
2

xj表：
字段名称
类型
宽度
小数位
卡号
文本
9

姓名
文本
8

性别
文本
2

卡种
文本
10

出生年月
日期/时间

家庭住址
文本
30

邮政编码
数字（长整型）

联系电话
数字（长整型）

注册时间
日期/时间

备注
备注

jiaofei表：
字段名称
类型
宽度
小数位
年度
文本
16

项目
文本
50

时限
文本
20

学费
货币

自动

第四章 系统功能
本某些重要内容为本系统运营界面以及重要界面源代码。
4．1系统登陆界面：
本界面重要功能是为了对系统进行安全性管理，本系统顾客名和密码保存在USE表中，本系统依照不同顾客而设立了不同权限，可以用111;111为顾客名和密码来登陆本系统。

Private Sub Command1_Click()
Dim mrc As ADODB.Recordset
txtsql = "select username from use where username='" & Trim(Text1.Text) & "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then
MsgBox " 顾客名错误！"，vbExclamation + vbOKOnly，"警告"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Exit Sub
End If
username = mrc.Fields(0)
txtsql2 = "select username from use where password='" & Trim(Text2.Text) & "'"
Set mrc = ExecuteSQL(txtsql2)
If mrc.EOF = True Then
MsgBox " 密码错误！"，vbExclamation + vbOKOnly，"警告"
Text2.SetFocus
Text2.SelStart = 0
Text2.SelLength = Len(Text2.Text)
Exit Sub
End If
txtsql = "select username from use where username='" & Trim(Text1.Text) & "'and password='" & Trim(Text2.Text) & "'"
Set mrc = ExecuteSQL(txtsql)
If mrc.EOF = True Then
MsgBox "顾客名称和密码不匹配！"，vbExclamation + vbOKOnly，"警告"
Exit Sub
End If
MDIForm1.Show
frmcpass.Text1.Text = Text1.Text
Unload Me
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub

4．2系统主界面：
本模块是本系统应用界面，在本界面上集成了本系统所有功能，共有5个功能菜单和12个子菜单（功能模块），从而实现了本系统从会员卡管理、会员档案管理、会员缴费管理、系统管理等系统详细功能，同步，在系统管理模块中可以完毕对本系统安全性管理。

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long，ByVal hWndInsertAfter As Long，ByVal X As Long，ByVal Y As Long，ByVal cx As Long，ByVal cy As Long，ByVal wFlags As Long) As Long
Dim find1 As Integer
Dim liulan1 As Integer

Private Sub add_Click()
qxstr = Executeqx(2)
If qxstr = "false" Or qxstr = "readonly" Then
ss = MsgBox("对不起，你没有管理本功能权限，请与管理员联系！"，vbInformation + vbOKOnly，" 警告")
Exit Sub
End If
Form1.Show
modi = False

Form1.ZOrder (0)
End Sub

Private Sub cjadd_Click()
fenshumodi = False
qxstr = Executeqx(4)
If qxstr = "false" Or qxstr = "readonly" Then
ss = MsgBox("对不起，你没有管理本功能权限，请与管理员联系！"，vbInformation + vbOKOnly，" 警告")
Exit Sub
End If
frmcj2.Show
frmcj2.ZOrder 0
End Sub

Private Sub cjbrowse_Click()
qxstr = Executeqx(4)
If qxstr = "false" Then
ss = MsgBox("对不起，你没有管理本功能权限，请与管理员联系！"，vbInformation + vbOKOnly，" 警告")
Exit Sub
End If
frmcj1.Show
frmcj1.ZOrder 0
End Sub

Private Sub claasfind_Click()
qxstr = Executeqx(2)
If qxstr = "false" Then
ss = MsgBox("对不起，你没有管理本功能权限，请与管理员联系！"，vbInformation + vbOKOnly，" 警告")
Exit Sub
End If
Form4.Show
Form4.ZOrder (0)
i = SetWindowPos(Form4.hwnd，-1，0，0，0，0，3)
End Sub

Private Sub classapp_Click()
qxstr = Executeqx(2)
If qxstr = "false" Or qxstr = "readonly" Then
ss = MsgBox("对不起，你没有管理本功能权限，请与管理员联系！"，vbInformation + vbOKOnly，" 警告")
Exit Sub
End If
Formclass1.Show
classmodi = False
Formclass1.classload
Formclass1.ZOrder (0)
End Sub

Public Sub clabrowse()
txtsql = "select * from class"
Formclass2.ZOrder (0)
Formclass2.Caption = "浏览班级设立"
Formclass2.classshowtitle
Formclass2.classshowdata

End Sub

Private Sub classbrowse_Click()
qxstr = Executeqx(2)
If qxstr = "false" Then
ss = MsgBox("对不起，你没有管理本功能权限，请与管理员联系！"，vbInformation + vbOKOnly，" 警告")
Exit Sub
End If
Formclass2.Show
End Sub

Private Sub classfind_Click()
qxstr = Executeqx(2)
If qxstr = "false" Then
ss = MsgBox("对不起，你没有管理本功能权限，请与管理员联系！"，vbInformation + vbOKOnly，" 警告")
Exit Sub
End If
Formclass3.Show
Formclass3.ZOrder (0)
End Sub

Private Sub find_Click()

End Sub

Private Sub classkecheng_Click()
qxstr = Executeqx(4)
If qxstr = "false" Then
ss = MsgBox("对不起，你没有管理本功能权限，请与管理员联系！"，vbInformation + vbOKOnly，" 警告")
Exit Sub
End If
Frmclasskecheng1.Show
Frmclasskecheng1.ZOrder
End Sub

Private Sub denglu2_Click()
Frmdenlu.Show
Unload Me
End Sub

Private Sub jiaofeiadd_Click()
qxstr = Executeqx(3)
If qxstr = "false" Or qxstr = "readonly" Then
ss = MsgBox("对不起，你没有管理本功能权限，请与管理员联系！"，vbInformation + vbOKOnly，" 警告")
Exit Sub
End If
Frmjf1.Show
Frmjf1.ZOrder 0
End Sub

Private Sub jiaofeibrowse_Click()
qxstr = Executeqx(3)
If qxstr = "false" Then
ss = MsgBox("对不起，你没有管理本功能权限，请与管理员联系！"，vbInformation + vbOKOnly，" 警告")
Exit Sub
End If
frmjf2.Show
frmjf2.ZOrder 0
End Sub

Private Sub jiaofeifind_Click()
qxstr = Executeqx(3)
If qxstr = "false" Then
ss = MsgBox("对不起，你没有管理本功能权限，请与管理员联系！"，vbInformation + vbOKOnly，" 警告")
Exit Sub
End If
Frmjf4.Show
End Sub

Private Sub jibenkecheng_Click()
qxstr = Executeqx(4)
If qxstr = "false" Then
ss = MsgBox("对不起，你没有管理本功能权限，请与管理员联系！"，vbInformation + vbOKOnly，" 警告")
Exit Sub
End If
frmjiben.Show
frmjiben.ZOrder 0
End Sub

Private Sub leixing_Click()
qxstr = Executeqx(4)
If qxstr = "false" Then
ss = MsgBox("对不起，你没有管理本功能权限，请与管理员联系！"，vbInformation + vbOKOnly，" 警告")
Exit Sub
End If
Frmleixing.Show
Frmleixing.ZOrder 0
End Sub

Private Sub liulan_Click()
qxstr = Executeqx(2)
If qxstr = "false" Then
ss = MsgBox("对不起，你没有管理本功能权限，请与管理员联系！"，vbInformation + vbOKOnly，" 警告")
Exit Sub
End If
find = False
Form3.Show
End Sub

Private Sub MDIForm_Load()
'username = "0001"
DataEnv1.Connection1.ConnectionString = connstring
StatusBar1.Panels(2).Text = Now
StatusBar1.Panels(3).Text = "当前操作员： " & username
Dim aa As String
Select Case Executeqx(1)
Case "admin"
aa = "超级管理员"
Case "readonly"
aa = "只读管理员"
Case Else
aa = "普通管理员"
End Select
StatusBar1.Panels(4).Text = "状态： " & aa
End Sub

Private Sub useradd_Click()
qxstr = Executeqx(1)
If qxstr = "false" Or qxstr = "readonly" Then
ss = MsgBox("对不起，你没有管理本功能权限，请与管理员