《实用数据库开发技术》课程设计模板.doc

实用数据库开发技术课程设计实用数据库开发技术课程设计图书馆借阅系统的设计与开发用户小组成员专业：计算机 班级：软件052 姓名：（学号：05423）专业：计算机 班级：软件052 姓名：（学号：05423）设计小组成员专业：计算机 班级：软件052 姓名：尹兴春（学号：05423168）专业：计算机 班级：软件052 姓名：（学号：05423）指导教师张敏大连大学信息工程学院计算机系2008年 6月 3日目 录引言11 系统的目标及任务12 系统需求分析23 总体设计33.1 数据库设计33.1.1 概念设计33.1.2 逻辑设计33.1.3 物理设计33.2 系统功能设计33.2.1 功能需求33.2.2 系统安全设计33.2.3 用户界面设计33.2.4 程序代码设计与分析33.2.5 运行结果34 系统使用说明45 结论5参考文献6附录：实用数据库开发技术课程设计提交材料清单737引言 大连大学是一所拥有一万余师生的高等学校，每天有大量的老师和同学到图书馆借阅书籍。记录图书借阅情况是非常繁琐工作。使用计算机可以高速，快捷地完成工作。同时通过完成用户分析，概念结构设计（E-R图），逻辑结构设计（E-R图向关系模型转化）到数据库的物理实际过程，进异步的了解和掌握数据库原理中所讲解的数据库开发内容。1 系统的目标及任务本需求的编写目的在于研究图书馆借阅系统软件的开发途径和应用方法。本需求的预期读者是与图书馆借阅系统软件开发有联系的决策人，开发组成人员，软件验证者。 软件开发的意图为便于图书馆的管理，方便查看有关图书及学生借阅的情况。如图书馆管理员对学生借阅书籍情况的修改、删除、查找、添加等。2 系统需求分析（1）系统的详细需求 使用范围大连大学图书馆借阅情况的系统管理，系统中包括学生的借阅信息，图书借阅信息，借阅图书的学生的基本信息和是否超期的情况。功能要求 图书管理： 修改图书信息；用户管理： 修改用户信息；借阅管理： 可进行借书，还书，续借操作； 信息查询： 记录图书和用户信息；查询证件；可查询证件的当前和历史记录；查询图书；可查询图书的当前和历史记录；图书馆借阅管理业务流程描述如下；1.用户（学生）到图书馆借阅图书。2.图书馆管理员对用户的借阅信息进行记录和修改。3.图书管理员对借阅的图书信息进行修改4.若用户借阅超期，要给出提示。5.学生毕业后，清除借阅信息。图书馆管理流程图 如 图十一 管理员图书信息录入结 束初始化信息录入借阅信息修改系统登录用户借阅书籍用户借阅其他书籍买进新的图书退出登录图十一 学生信息系统的业务流程具体描述如下：l 管理员登录：对系统进行初始化设置，包括对图书，用户和借阅信息的设置。l 用户借阅书籍：根据用户信息和所借图书信息，管理员进行信息录入。l 用户借阅其他书籍：管理员要及时修改借阅信息。l 买进新的图书：管理员要修改图书信息。l 退出系统。用户界面设计 填写登录信息才能进入系统的主界面如下图系统的主界面。 如下图输出要求 由于系统输出的都是数据库的信息，所以只需管理员自己操作输出信息。（2）使用环境网络环境：局域网硬件环境：Pentium III 450以上, 258M RAM, 14G HD软件环境：Window NT Workstation / Window NT Workstation，SQL Server,VB6.0（3）可行性分析/包括：技术可行性，经济可行性，人员可行性，影响系统开发的因素。软件技术可行性分析:开发小组的成员都有一定的开发软件的经验，所以该系统的技术可行性是可以肯定的。软件经济可行性报告 该系统的开发和后期维护的费用都在可承担的范围之内，所以是可行的。 开发人员可行性 我们组有两个开发人员，因此，可以在开发是进行交流，和讨论，我们开发的系统用的开发工具是VB6.0，而且vb6.0我们也已经学过，并且用它开发过一些相关的课题，这方面可以说没有问题，对于开发我们也做了明确的分工，一个做数据库的设计，一个做vb代码开发。因此在人员上是可行的。 影响系统开发的因素1. 时间上：我们开发的系统，从去年的年底开始的，截至日期是七月初，开发周期大约是八个月，时间上还算是充裕的2. 人员的数量上：两个人的开发小组确实有点紧张，但是，我们还是可以进行设计、沟通、和探讨。3. 开发工具上：我们有的是VB6.0和SQL Server2000 他们的搭配使用可以高效的教学开发。 4.教师的指导：在我们遇到困难时，老师还是给了关键性的指导。3 总体设计3.1 数据库设计3.1.1 概念设计图书馆借阅管理业务流程描述如下；1.用户（学生）到图书馆借阅图书。2.图书馆管理员对用户的借阅信息进行记录和修改。3.图书管理员对借阅的图书信息进行修改4.若用户借阅超期，要给出提示。5.学生毕业后，清除借阅信息。根据以上的图书馆管理流程 ，得出以下的业务流程图一用户登陆管理系统数据库图书馆借阅图书管理员借阅其他书籍买进新图书图一 学生管理信息主要业务流程图1.1 构造系统概念模型通过以上分析，我们已经基本了解了用户对处理的要求，接下来要分级用户对数据的要求：为了把用户的数据清晰、明确地表达出来，我们建立一个概念性的数学模型。主要通过E-R图来对实体间关系进行描述。其中“”代表实体属性，“”代表实体，“”代表实体之间的联系。E-R图仅描述现实世界的实体，而不涉及这些实体在系统中的实现方法，联系又分为一对一，一对多，多对多三种。1.2.1 数据库建模主要实体：用户，图书，借阅信息，历史记录，他们的尸体图分别如图二、三、四、五所示。用户姓名院系性别借书正号已借数量用户类型图二图书图书证号作者出版社书名出版时间是否可借图三借书证号借阅时间图书编号应还时间图四历史记录借书证号图书编号借阅时间人数记录编号实还时间图五再找出所有实体的基础上，进一步分析各实体之间的联系。经过分析两两实体之间的关系，然后进行整合，给出下图所示实体的联系即E-R图如下用户图书图书管理系统数据库添加用户信息添加图书信息借阅管理员登陆为了进一步描绘系统的概念模型，在得出系统的数据流图后就对图中数据定义即数据字典。数据字典是关系数据信息的解释，也就是对数据流图中包含的所有元素的定义的集合。一般来说数据字典应该由四类元素组成；数据流、数据流分量、数据存储、数据处理。下图十是系统主要数据元素的数据字典卡。名称：图书信息别名：描述：记录图书信息的表定义：图书信息=图书编号+书名+作者+出版社+出版时间+是否可借位置：图书馆管理数据库名称：用户信息别名：描述：记录用户信息的表定义：用户信息=借书证号+姓名+性别+院系+用户类型+已借数量 位置：图书馆管理数据库名称：借书证号别名：描述：唯一的标识用户信息表中一个特定用户的关键域定义：借书证号=15（文本）15位置：用户信息名称：图书编号别名：描述：唯一的标识图书信息表中一门特定图书的关键域定义：图书编号=10（文本）10位置：图书信息名称：借阅信息别名：描述：记录用户借阅图书的情况定义：借阅信息=借书证号+图书编号+借阅时间+应还时间位置：图书馆信息管理系统 名称：历史记录别名：描述：图书借阅信息的 记录定义：历史记录=图书编号+借阅时间+实还时间+记录编号位置：图书馆管理系统3.1.2 逻辑设计采用图标来描述各关系模式的定义、约束，视图的定义和触发器等根据以上各实体图和学生信息的E-R图，经过转换，可以推出如下各关系。转换原则为：首先每个实体应转化为一个关系，有属性的联系也应转化为一个关系，然后需要给出每个关系的关键字，根据以上原则直接给出所有关系：（关键字下有下划线）学生信息（学号，姓名，性别，学院，专业，班级，密码）学生借阅证信息（借阅证号，密码，学号）图书信息（图书编号，书名，作者，出版社，价格，状态，位置）管理员（登录号，密码，姓名，性别，年龄）记录（图书编号，借阅证号，借书日期，期限，赔偿）在得出以上关系后，根据关系数据库的理论要求，需要对所有关系进行关系规范化。我们的要求是至少达到第三范式的要求，按照第三范式的要求对以上各关系。在所有关系中都不存在非主属性的关键字的部分依赖，既满足第三范式。图 书管理员11接 受事 务12更新书 刊库存清 单13处 理入 库 数据库数据流图（DFD）：1.新书入库DFDD1 库存清单D1 库存清单图书借阅DFD：借 阅 者进行借 阅登 记数据库处 理借 阅过期提示DFD图书管理员进行日期处 理显示器处 理通知信 息：借阅查询DFD借阅者11操 作事 务12处 理查 询2产 生汇 总显示器D1 借阅查询清单D1 库存清单图书管理员11接 受事 务12更新图 书库存清 单13处 理归 还数据库还书处理DFD： 3.1.3 物理设计 采用SQL语句描述各关系模式、视图、触发器、存储过程等关系模式：学生实体：学生（借阅证号，密码，姓名，学院，班级，学号）图书实体：图书（书号，书名，作者，出版社，价格，状态）图书管理员实体：管理员（登录号，密码，姓名）图书访问记录实体：记录（书号，借阅证号，借书日期，期限，）关系模式优化：有下划线的为关键码学生信息（学号，姓名，性别，学院，专业，班级，密码）学生借阅证信息（借阅证号，密码，学号）图书信息（图书编号，书名，作者，出版社，价格，状态，位置）管理员（登录号，密码，姓名，性别，年龄）记录（图书编号，借阅证号，借书日期，期限，）在实际实现时，基于关键没建立索引，采用所以存取方法。编号字段名称说明数据类型长度允许空1s_no学号char10主码2s_name学生姓名char10不能为空3s_sex性别char4不能为空4s_college学院char20不能为空5s_major专业char20不能为空6s_class班级char20不能为空7s_password密码char16不能为空 学生信息表编号字段名称说明数据类型长度允许空1s_number借阅证号char10主码2s_password密码char20不能为空3s_no学号char10不能为空 借阅证信息表编号字段名称说明数据类型长度允许空1b_no图书编号char10主码2b_name书名char20不能为空3b_author作者char20不能为空4b_publisher出版社char20不能为空5b_price价格char10不能为空6b_place位置char10不能为空7b_status状态char2不能为空 图书信息表编号字段名称说明数据类型长度允许空1g_no登录号char10主码2g_password密码char20不能为空3g_name姓名char20不能为空 管理员信息表编号字段名称说明数据类型长度允许空1b_no图书编号char10主码2s_number借阅证号char10主码3date借书日期char8不能为空4time期限int4不能为空 图书访问记录表下面是用SQL语句创建基本表的过程，CREATE TABLE dbo.TEMP_DATA (借阅编号 int NOT NULL ) ON PRIMARYGOCREATE TABLE dbo.借阅信息 (借书证号 char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,图书编号 char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,借阅时间 datetime NOT NULL ,应还时间 datetime NOT NULL ) ON PRIMARYGO历史记录表CREATE TABLE dbo.历史记录 (借书证号 char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,图书编号 char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,借阅时间 datetime NOT NULL ,实还时间 datetime NOT NULL ,记录编号 char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ) ON PRIMARYGO图书信息表CREATE TABLE dbo.图书信息 (图书编号 char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,书名 char (40) COLLATE Chinese_PRC_CI_AS NOT NULL ,作者 char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,出版社 char (40) COLLATE Chinese_PRC_CI_AS NOT NULL ,出版时间 char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,是否可借 bit NOT NULL ) ON PRIMARYGO用户信息表CREATE TABLE dbo.用户信息 (借书证号 char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,姓名 char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,性别 char (2) COLLATE Chinese_PRC_CI_AS NOT NULL ,院系 char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,用户类型 int NOT NULL ,已借数量 int NOT NULL ) ON PRIMARYGO用户权限CREATE TABLE dbo.用户权限 (类别编号 char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,类别 char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,数量限制 int NOT NULL ,时间限制 int NOT NULL ) ON PRIMARYGO超期CREATE VIEW 超期ASSELECT *FROM 借阅信息WHERE (应还时间 =mayborrowbeginset out=5returnendif lendout=1beginset out=6returnendinsert into 借阅信息 values (cardnum,booknum,getdate(),getdate()+31)update 用户信息 set 已借数量=已借数量+1 where 借书证号=cardnum update 图书信息 set 是否可借=0 where 图书编号=booknum set out=1GO 删除图书CREATE PROCEDURE 删除图书(out int output,booknum varchar(10)ASdeclare bookexist bitdeclare beenborrow bitset bookexist=0set beenborrow=0select beenborrow=1 from 借阅信息 where 图书编号=booknumselect bookexist=1 from 图书信息 where 图书编号=booknumif bookexist=0beginset out=2returnendif beenborrow=1beginset out=3returnenddelete from 图书信息 where 图书编号=booknumset out=1GO删除用户CREATE PROCEDURE 删除用户(out int output,cardnum varchar(10)ASdeclare userexist bitdeclare hasborrow bitset userexist=0set hasborrow=0select hasborrow=1 from 借阅信息 where 借书证号=cardnumselect userexist=1 from 用户信息 where 借书证号=cardnumif userexist=0beginset out=2returnendif hasborrow=1beginset out=3returnenddelete from 用户信息 where 借书证号=cardnumset out=1GOCREATE PROCEDURE 添加图书(out int output,booknum char(10),bookname char(40),author char(10),public char(40),publictime char(10)ASdeclare bookexist bitset bookexist=0select bookexist=1 from 图书信息 where 图书编号=booknumif bookexist=1beginset out=2returnendinsert into 图书信息 values(booknum,bookname,author,public,publictime,1)set out=1GO添加用户CREATE PROCEDURE 添加用户(out int output,cardnum char(10),name char(10),sex char(2),yuanxi char(20),type int)ASdeclare userexist bitset userexist=0select userexist=1 from 用户信息 where 借书证号=cardnumif userexist=1beginset out=2returnendinsert into 用户信息 values(cardnum,name,sex,yuanxi,type,0,0)set out=1GO续借CREATE PROCEDURE 续借(out int output,booknum char(10)ASdeclare timeup bit,borrowexist bitdeclare cardnum char(10),daylimit intset timeup=0set borrowexist=1select timeup=1 from 超期 where 图书编号=booknumselect borrowexist=0 from 借阅信息 where 图书编号=booknumselect daylimit=时间限制 from 用户权限 where 类别编号=(select 用户类型 from 用户信息 where 借书证号=(select 借书证号 from 借阅信息 where 图书编号=booknum)if timeup=1beginset out=2returnendif borrowexist=1beginset out=3returnendupdate 借阅信息 set 应还时间=应还时间+daylimit where 图书编号=booknumset out=1GO还书CREATE PROCEDURE 还书(out varchar(100) output,booknum varchar(10)ASdeclare cardnum varchar(10)declare borrowid intdeclare borrowdate datetime,shouldreturn datetimedeclare timeout bit,borrowexist bitset timeout=0set borrowexist=0select borrowid=借阅编号 from TEMP_DATAselect cardnum=借书证号 from 借阅信息 where 图书编号=booknumselect timeout=1 from 超期 where 借书证号=cardnumselect borrowdate=借阅时间 from 借阅信息 where 图书编号=booknumselect shouldreturn=应还时间 from 借阅信息 where 图书编号=booknumselect borrowexist=1 from 借阅信息 where 图书编号=booknumif timeout=1beginset out=用户超期!请缴纳罚金+ltrim(str(DATEDIFF(day, shouldreturn,getdate()/10)+元endif borrowexist=0beginset out=没有该图书的借出记录！请重新输入！returnendupdate 用户信息 set 已借数量=已借数量-1 where 借书证号=cardnum update 图书信息 set 是否可借=1 where 图书编号=booknumupdate TEMP_DATA set 借阅编号=borrowid+1delete from 借阅信息 where 图书编号=booknuminsert into 历史记录 values(cardnum,booknum,borrowdate,getdate(),borrowid)set out=还书成功！GO以下是VB设计的代码登陆界面代码Private Sub Command1_Click()On Error GoTo errorhandleIf Trim(Text1.Text) = Then MsgBox 请输入用户名！, vbOKOnly, 注意 Text1.SetFocusElse Mycon.ConnectionString = Driver=SQL Server;Server=YXC;UID= & Trim(Text1.Text) & ;pwd= & Trim(Text2.Text) & ;Database=MyLibrary Mycon.Open Unload Me Load 主界面End IfExit Suberrorhandle:MsgBox 用户名或密码错误，请重试！, vbOKOnly, 登录失败End Sub图书管理系统主界面Private Sub ADDBOOK_Click()Load 添加图书End SubPrivate Sub ADDUSER_Click()Load 添加用户End SubPrivate Sub BOOKHISTORY_Click()Load 图书历史记录End SubPrivate Sub BOOKINFO_Click()Load 图书查询End SubPrivate Sub BOOKNOW_Click()Load 图书当前记录End SubPrivate Sub BORROWBOOK_Click()Load 借书End SubPrivate Sub CARDHISTORY_Click()Load 证件历史记录End SubPrivate Sub CARDNOW_Click()Load 证件当前记录End SubPrivate Sub Combo1_Click()Adodc1.RecordSource = Combo1.TextSet DataGrid1.DataSource = Adodc1Adodc1.RefreshEnd SubPrivate Sub DELBOOK_Click()Load 删除图书End SubPrivate Sub DELUSER_Click()Load 删除用户End SubPrivate Sub EXIT_SYSTEM_Click()EndEnd SubPrivate Sub Form_Load()Me.ShowCombo1.AddItem (图书信息)Combo1.AddItem (用户信息)Combo1.AddItem (借阅信息)Combo1.AddItem (历史记录)mlink = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=SA;Initial Catalog=MyLibrary;Data Source=YXCAdodc1.ConnectionString = mlinkAdodc1.CommandType = adCmdTableAdodc1.RecordSource = 借阅信息Set DataGrid1.DataSource = Adodc1End SubPrivate Sub RE_LOGIN_Click()Unload MeMycon.CloseLoad 登录End SubPrivate Sub REBORROW_Click()Load 续借End SubPrivate Sub RETURNBOOK_Click()Load 还书End SubPrivate Sub USERINFO_Click()Load 证件查询End Sub添加图书Private Sub Command1_Click()Dim Error_num As IntegerIf Text1.Text = Or Text2.Text = Or Text3.Text = Or Text4.Text = Or Text5.Text = Then MsgBox 数据输入不完整，请完成输入！, vbOKOnly, 输入错误！ Exit SubEnd IfMycom.ActiveConnection = MyconMycom.CommandType = adCmdStoredProcMycom.CommandText = 添加图书Mycom.Parameters(1) = 0Mycom.Parameters(2) = Text1.TextMycom.Parameters(3) = Text2.TextMycom.Parameters(4) = Text3.TextMycom.Parameters(5) = Text4.TextMycom.Parameters(6) = Text5.TextMycom.ExecuteError_num = Mycom.Parameters(1)If Error_num = 2 Then MsgBox 该图书编号已存在！请重新输入！ Text1.Text = Else MsgBox 该图书信息已成功添加到“图书信息”表中！, vbOKOnly, 添加成功！End IfSet Mycom = NothingEnd Sub删除图书Private Sub Command1_Click()Dim Error_num As IntegerIf Text1.Text = Then MsgBox 数据输入不完整，请重新输入！, vbOKOnly, 输入错误！ Exit SubEnd IfMycom.ActiveConnection = MyconMycom.CommandType = adCmdStoredProcMycom.CommandText = 删除图书Mycom.Parameters(1) = 0Mycom.Parameters(2) = Text1.TextMycom.ExecuteError_num = Mycom.Parameters(1)If Error_num = 2 Then MsgBox 该图书编号不存在！请重新输入！ Text1.Text = Else If Error_num = 3 Then MsgBox 该图书被借出！不能删除该图书信息！ Text1.Text = Else: MsgBox 该图书信息已成功从“图书信息”表中删除！, vbOKOnly, 删除成功！ End IfEnd IfSet Mycom = NothingEnd Sub借书Dim Error_num As IntegerIf Text1.Text = Or Text2.Text = Then MsgBox 数据输入不完整，请完成输入！, vbOKOnly, 输入错误！ Exit SubEnd IfMycom.ActiveConnection = MyconMycom.CommandType = adCmdStoredProcMycom.CommandText = 借书Mycom.Parameters(1) = 0Mycom.Parameters(2) = Text1.TextMycom.Parameters(3) = Text2.TextMycom.ExecuteError_num = Mycom.Parameters(1)If Error_num = 2 Then MsgBox 该借书证不存在！请重新输入！ Text1.Text = Else If Error_num = 3 Then MsgBox 该借书证借阅超期！不能再借！ Text1.Text = Else If Error_num = 4 Then MsgBox 该图书编号不存在！请重新输入！ Text2.Text = Else If Error_num = 5 Then MsgBox 该借书证借阅数量达到上限！不能再借！ Text1.Text = Else If Error_num = 6 Then MsgBox 该图书已被借出！请重新输入！ Text2.Text = Else: MsgBox 借阅成功！, vbOKOnly, 借阅成功！ End If End If End If End IfEnd IfSet Mycom = NothingEnd Sub还书Private Sub Command2_Click()Dim Error_num As StringIf Text1.Text = Then MsgBox 数据输入不完整，请重新输入！, vbOKOnly, 输入错误！ Exit SubEnd IfMycom.ActiveConnection = MyconMycom.CommandType = adCmdStoredProcMycom.CommandText = 还书Mycom.Parameters(1) = 0Mycom.Parameters(2) = Text1.TextMycom.ExecuteError_num = Mycom.Parameters(1)If Error_num = ThenMsgBox 还书成功！, vbOKOnly, 还书Else: MsgBox Error_num, vbOKOnly, 还书End IfSet Mycom = NothingEnd Sub证件当前记录Private Sub Command1_Click()If Text1.Text = Then MsgBox 数据输入不完整，请重新输入！, vbOKOnly, 输入错误！ Exit SubEnd IfSet Myrs = New ADODB.Recordsetmsql = select * from 借阅信息 where 借书证号= + Text1.Text + Myrs.Open msql, Mycon, adOpenStatic, adLockReadOnlyIf Myrs.RecordCount = 0 Then MsgBox 该借书证现在没有借阅信息！ Exit SubElse Set 主界面.DataGrid1.DataSource = Myrs 主界面.DataGrid1.Refresh 主界面.Combo1.Text = 借阅信息 Unload MeEnd IfEnd Sub证件查询Private Sub Command1_Click()If Text1.Text = Then MsgBox 数据输入不完整，请重新输入！, vbOKOnly, 输入错误！ Exit SubEnd IfSet Myrs = New ADODB.Recordsetmsql = select * from 用户信息 where 借书证号= + Text1.Text + Myrs.Open msql, Mycon, adOpenStatic, adLockReadOnlyIf Myrs.RecordCount = 0 Then MsgBox 该借书证号没有记录！ Exit SubElse Set 主界面.DataGrid1.DataSource = Myrs 主界面.DataGrid1.Refresh Unload MeEnd IfEnd Sub图书查询Private Sub Command1_Click()If Text1.Text = Then MsgBox 数据输入不完整，请重新输入！, vbOKOnly, 输入错误！ Exit SubEnd IfSet Myrs = New ADODB.Recordsetmsql = select * from 图书信息 where 图书编号= + Text1.Text + Myrs.Open msql, Mycon, adOpenStatic, adLockReadOnlyIf Myrs.RecordCount = 0 Then MsgBox 该图书编号没有记录！ Exit SubElse Set 主界面.DataGrid1.DataSource = Myrs 主界面.DataGrid1.Refresh Unload MeEnd IfEnd Sub删除用户Private Sub Command1_Click()Dim Error_num As IntegerIf Text1.Text = Then MsgBox 数据输入不完整，请重新输入！, vbOKOnly, 输入错误！ Exit SubEnd IfMycom.ActiveConnection = MyconMycom.CommandType = adCmdStoredProcMycom.CommandText = 删除用户Mycom.Parameters(1) = 0Mycom.Parameters(2) = T