ActiveX数据对象之事务控制在VB和DELPHI中的应用 -电脑资料

    摘要事务控制是数据库应用系统中的关键技术之一，本文一开始先对事务控制的概念以及微软的ActiveX数据对象(ADO)的事务控制做了简介，之后以一个具体的实例给出ActiveX数据对象的事务控制在VB和DELPHI中的使用方法，

ActiveX数据对象之事务控制在VB和DELPHI中的应用

    ^{关键词 ActiveX数据对象(ADO)；事务控制；VB；DELPHI}

    ^{1 引言}

    ^{在数据库的应用中，有时会遇到以独立单元保存或取消对源数据所做的一系列更改。例如在货币转帐时，必须从帐户中减去某个数额并将其对等数额添加到另一个帐户。无论其中的哪个更新失败，都将导致帐户收支不平衡。再如，在进行商品库存管理时，当发生购进或售出商品时，一方面要在商品的销售表中保存该商品的销售记录，另一方面，还要在商品库存中对该种商品的库存进行调整。无论其中的哪个更新失败，都将导致商品收支不平衡。在这种情况下，必须通过事务控制来保证操作的一致性。}

    ^{2 ActiveX数据对象事务控制}

    ^{2.1 ActiveX数据对象(ADO)简介}

    ^{Microsoft ActiveX Data Objects(ADO)是Microsoft开发的数据访问对象，它可使用户通过何OLE DB Provider 访问数据库服务器中的数据。ADO趋向于提供一种稳定的接口，来使用户利用多种不同的数据源包括从非关系型数据源（包括文本文件、电子邮件等）到ODBC关系型数据库。所以它是对ODBC的扩充。}

    ^{ADO的主要优点是使用简单，快速，内存消耗量低，磁盘的占有量少，在关键}

    ^{情况下网络的通信量最少，前端与数据存储之间的层次最少，是一种轻便质优的接口。}

    ^{2.2 ActiveX数据对象(ADO)事务控制}

    ^{BeginTrans、CommitTrans和RollbackTrans是ADOConnection部件供数据库应用程序在运行时调用开始事务、控制并保存或放弃所做数据修改的方法。}

    ^{l BeginTrans　开始一个事务}

    ^{当开始一个事务时，后来所有读写数据库的操作都发生在这次事务的环境中，直到本次事务通过调用CommitTrans或RollbackTrans来显示的终止为止。还以商品管理为例，当购进或售出商品时，在商品数据库记录上必须发生两个修改：}

    ^{A、购进或销售的记录必须记录在销售表中；}

    ^{B、在商品库存中对该类商品的库存进行调整。}

    ^{如果出于某种原因，其中的一个操作不能被完成，那么任何一个操作都不应该发生。因为这些操作是相关的，它们发生在同一个事务中。}

    ^{l RollbackTrans　取消事务中的修改并终止当前事务}

    ^{为了取消对数据库所做的修改，必须用RolllbackTrans方法返回一个事务。RollbackTrans方法取消当前事务中对数据库所做的修改并终止当前事务。}

    ^{l CommitTrans　　提交一个事务}

    ^{为了做永久性的修改，必须CommitTrans方法提交事务，这将保存用户对数据库所做的修改并结束当前事务。}

    ^{在VB 6.0中，ADO成为它与各种数据源的缺省接口，ADO数据访问方式是现在和未来VB乃至Microsoft的各种应用软件进行数据访问与应用的主流。}

    ^{而在DELPHI中，基于DBE(Borland Database Engine的简称，即Borland数据库引擎)的数据库访问方式是DELPHI的标准的、传统的方式；基于ADO技术的数据库访问方式，这是DELPHI 5.0新增的功能。DELPHI 5.0 提供了一整套ADO组件，封装了ADO框架的所有功能。}

    ^{下面以商品库存管理来分别阐明ADOConnection的事务控制在VB和DELPHI中的应用。}

    ^{3 商品库存管理中的数据库}

    ^{该数据库GoodsManagement用Microsoft的SQL　Server创建，包括三个用户数据表，用户表Users、库存表Goods、进销表InOutGoods，每个数据表的表结构如下：}

    ^{l 用户表Users}

    ^{字段名　　　　　　　　数据类型　　　　　　　　长度}

    ^{用户名　　　　　　　　VARCHAR 8}

    ^{用户类型 VARCHAR 10}

    ^{用户口令 VARCHAR 6}

    ^{主键为：　用户名}

    ^注：

    ^{用户类型有一般用户和系统管理员两种，其中一般用户只能进行销售商品，碉系统管理员还可以增加或删除用户，由于本文章只是阐述ADOConnection的事务控制，所以也就涉及到用户管理。}

    ^{l 库存表Goods}

    ^{字段名　　　　　　　　数据类型　　　　　　　　长度}

    ^{商品名　　　　　　　　VARCHAR 14}

    ^{商品描述 VARCHAR 16}

    ^{商品库存 SMALLINT 2}

    ^{主键为：商品名}

    ^{l 进销表InOutGoods}

    ^{字段名　　　　　　　　数据类型　　　　　　　　长度}

    ^{进销 VARCHAR 2}

    ^{商品名称 VARCHAR 14}

    ^{商品数量 SMALLINT 2}

    ^{商品价格 MONEY 8}

    ^{操作人员 VARCHAR 8}

    ^{操作时间 DATETIME 8}

    ^{主键为：（操作人员，操作时间）}

    ^{外键为：操作人员，对应于Users表的用户名}

    ^{4 ADO事务控制应用〈〈商品库存管理〉〉在VB中的实现}

    ^{4．1 数据环境设计器}

    ^{图1　数据环境设计器}

    ^{数据环境设计器中主要控件的属性如下：}

    ^{控件名　　　　　　　　控件类型　　　　　　　　重要属性设置}

    ^{CN ADOConnection对象 　　ConnectSource如下：}

    ^{Provider=SQLOLEDB.1;Password=SA;Persist Security Info=True;User ID=sa;}

    ^{Initial Catalog=GoodsManagement}

    ^{Goods ADOCommand对象　　　ConnectionName：CN}

    ^{CommandText：Goods}

    ^{InOutGoods ADOCommand对象 ConnectionName：CN}

    ^{CommandText：Goods}

    ^{StrSQL ADOCommand对象 ConnectionName：CN}

    ^{CommandText：Goods}

    ^{4．2 进库管理模块的代码}

    ^{下面就以其中的一个程序段“进库管理”来说明ADO数据对象如何实现事务管理，}

电脑资料

Dim intNum1, intNum2 As Integer?　　‘开始一个事务DE.Cn.BeginTransWith DE.rsInOutGoods‘写入购进商品的记录.AddNew.Fields(0).Value = "进".Fields(1).Value = TxtName.Text.Fields(2).Value = CInt(TxtNumber.Text).Fields(3).Value = CInt(TxtPrice.Text).Fields(4).Value = G_userName.Fields(5).Value = CStr(Now). 　 .UpdateEnd WithIf DE.rsStrSQL.State = adStateOpen ThenDE.rsStrSQL.CloseEnd If

    ^{‘求进销表中商品名为TxtNumber.Text且为进的所有记录的进货数量之和}

With DE.rsStrSQL.Open "select sum(商品数量) from InOutGoods where 进销='进'" & " and 商品名称='" & TxtName.Text & "'"intNum1 = .Fields(0).Value.CloseEnd With

    ^{‘求进销表中商品名为TxtName.Text且为销的所有记录的进货数量之和}

    ^{With DE.rsStrSQL}

    ^{.Open "select sum(商品数量) from InOutGoods where 进销='销'" & " and}

    ^{商品名称='" & TxtName.Text & "'"}

If .RecordCount = 1 And IsNull(.Fields(0).Value) ThenintNum2 = 0ElseintNum2 = .Fields(0)End If.CloseEnd With

    ^{‘调整商品库存中该商品的库存量}

    ^{DE.Cn.Execute "update Goods set 商品库存=" & (intNum1 - intNum2) & " where 商品名='" & TxtName.Text & "'"}

    ^{‘向数据库提交事务}

    ^{DE.Cn.CommitTrans}

    ^?

    ^{5 ADO事务控制应用〈〈商品库存管理〉〉在DELPHI中的实现}

    ^{5．1 系统中的数据模块}

    ^{数据模块窗体主要控件的属性如下：}

    ^{控件名　　　　　　　　控件类型　　　　　　　　重要属性设置}

    ^{ADOCn　　　　　　　ADOConnection对象　　　ConnectSource ：(同前)}

    ^{ADODatasetGoods 数据集部件ADODataset 　 ConnectionName：ADOCN}

    ^{CommandText：Goods}

    ^{ADODatasetInOutGoods 数据集部件ADODataset ConnectionName：ADOCN}

    ^{CommandText：Goods}

    ^{ADODataset1 数据集部件ADODataset ConnectionName：ADOCN}

    ^{CommandText：Goods}

    ^{DataSourceGoods 　DataSource控件　　 Dataset：ADODatasetGoods}

    ^{DataSourceInOutGoods　　DataSource控件 Dataset：ADODatasetInOutGoods}

    ^{5．2 进库管理模块的代码}

    ^{下面就以其中的一个程序段“进库管理”来说明ADO数据对象如何实现事务管理。}

varstrSQL:string;intNum1,intNum2,intRecordsAffected:integer;begin?//启动事务控制DM.ADOCn.BeginTrans;//向进销表插入一条记录with DM.ADODataSetInOutGoods do begin　 insert;　 fields[0].Value:='进';fields[1].Value:= editName.text;fields[2].AsString:=editNumber.text;fields[3].AsString:=editPrice.text;fields[4].Value:=G_UserName;fields[5].AsString :=DateTimeToStr(now);Post;end;//求进销表中商品名为editName.text且为进的所有记录的进货数量之和strSQL:='select sum(商品数量) from InOutGoods where 进销=''进''and 商品名称='''+editName.text+'''';with DM.ADODataSet1 do beginClose;CommandText:=strSQL;Open;end;intNum1:=DM.ADODataSet1.Fields[0].Value ;//求进销表中商品名为editName.text且为销的所有记录的进货数量之和strSQL:='select sum(商品数量) from InOutGoods where 进销=''销''and 商品名称='''+editName.text+'''';with DM.ADODataSet1 do beginClose;CommandText:=strSQL;Open;end;if (DM.ADODataSet1.RecordCount=1) andDM.ADODataSet1.Fields[0].Value=null) thenIntNum2:=0elseintNum2:=DM.ADODataSet1.Fields[0].value;strSQL:='update Goods set 商品库存='+intToStr(intNum1-intNum2)+' where 商品名='''+editName.Text+'''';DM.ADOCn.Execute (strSQL,intRecordsAffected,[eoExecuteNoRecords]) ;DM.ADOCn.Execute(strSQL,intRecordsAffected,[eoExecuteNoRecords]) ;DM.ADOCn.CommitTrans ;?