说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

关于事务的问题!!在线等待!1

编辑:说三道四文库 发布时间:2017-11-23 01:36
HTML文档下载 WORD文档下载 PDF文档下载
有会的话可不可以说一下?
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dbcgrids, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids,
  StdCtrls, Mask;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    ADOQuery2: TADOQuery;
    DBNavigator1: TDBNavigator;
    DBCtrlGrid1: TDBCtrlGrid;
    DataSource2: TDataSource;
    ADOQuery1SupplierID: TAutoIncField;
    ADOQuery1CompanyName: TWideStringField;
    ADOQuery1ContactName: TWideStringField;
    ADOQuery1ContactTitle: TWideStringField;
    ADOQuery1Address: TWideStringField;
    ADOQuery1City: TWideStringField;
    ADOQuery1Region: TWideStringField;
    ADOQuery1PostalCode: TWideStringField;
    ADOQuery1Country: TWideStringField;
    ADOQuery1Phone: TWideStringField;
    ADOQuery1Fax: TWideStringField;
    ADOQuery1HomePage: TMemoField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    DBNavigator2: TDBNavigator;
    DBGrid1: TDBGrid;
    ADOQuery3: TADOQuery;
    ADOQuery2CATEGORYNAME: TStringField;
    ADOQuery2ProductID: TAutoIncField;
    ADOQuery2ProductName: TWideStringField;
    ADOQuery2SupplierID: TIntegerField;
    ADOQuery2CategoryID: TIntegerField;
    ADOQuery2QuantityPerUnit: TWideStringField;
    ADOQuery2UnitPrice: TBCDField;
    ADOQuery2UnitsInStock: TSmallintField;
    ADOQuery2UnitsOnOrder: TSmallintField;
    ADOQuery2ReorderLevel: TSmallintField;
    ADOQuery2Discontinued: TBooleanField;
    procedure ADOQuery2CalcFields(DataSet: TDataSet);
    procedure ADOQuery1BeforePost(DataSet: TDataSet);
    procedure ADOQuery1AfterPost(DataSet: TDataSet);
    procedure ADOQuery1PostError(DataSet: TDataSet; E: EDatabaseError;
      var Action: TDataAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ADOQuery2CalcFields(DataSet: TDataSet);
begin
    try
      ADOQUery3.Parameters.ParamByName('categoryid').Value:=
        DataSet.FieldByName('categoryid').Value;
      ADOQuery3.Active:=True;
      DataSet.FieldByName('categoryname').Value:=
        ADOQuery3.FieldByName('categoryname').Value;
      finally
        ADOQUery3.Close;
     end;
end;

procedure TForm1.ADOQuery1BeforePost(DataSet: TDataSet);
begin
    ADOConnection1.BeginTrans;
end;

procedure TForm1.ADOQuery1AfterPost(DataSet: TDataSet);
begin
     ADOConnection1.CommitTrans;
end;

procedure TForm1.ADOQuery1PostError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
    ADOConnection1.RollbackTrans;
    Action:=daAbort;
end;

end.
ADO/mts/com+那本书里有讲!
DirectX7.0使用心得(2) -VB资料 DirectX7.0使用心得(3) -VB资料 FSO对象模型在VB中的应用 MsComm 控件的文字传输范例 -VB资料 Office或IE4风格的ToolBar -VB资料 Regsvr32.exe注册控件的具体用法-VB资料 TextBox的自动调节 -VB资料 TextBox实现打印机效果 -VB资料 TreeView的基本操作-VB资料 VB5中DBGRID控件在VB6中使用 VB与MS-Draw开发通用作图软件 VB中APP对象及其应用 VB中list控件的功能扩充 VB中用Multimedia MCI控件开发多媒体应用 Win Api在VB中的妙用 WINDOWS SCRIPT HOST对象在VB中的使用 安装向导生成程序组并建立多个程序项 -VB资料 保存复选框选项-VB资料 不用OCX来创建自己的控件(一)-VB资料 成组更新控件属性-VB资料 VB创建数据驱动窗体 得到鼠标位置 -VB资料 动态加入控件到VB控件数组中 对ListView中的列排序-VB资料 放一个Combo到Toolbar中 -VB资料 改进VB的驱动器列表框 给TreeView控件添加弹式菜单 -VB资料 计算从开机到现在用了多少秒-VB资料 将立体的ListView标题栏转换成平面式的标题栏 -VB资料 禁用窗体上所有控件 -VB资料 拷贝或移动列表框或组合框中的内容-VB资料 lz32.dll 基于MIDP1.0的CS结构有没有好的解决方案 200分求 网路精灵XP V2.0.7 简体中文版 的注册机? 关于不同包package内的静态变量访问的问题,帮忙解答 求crystal report enterprise8.5的keycode,谢谢 Windows Server 2003 Enterprise Edition 激活问题 好学生通宵学习。遇到问题! 如何得到N个月以前的年、月 大家都来说说从记事起到现在有哪些经典的歌曲曾经红遍大街小巷,我开FTP,大家帮着搜集一下 ““struct”类型重定义”” 是什么意思? 哈稀表如何遍历一边? ie突然打不开ftp网络了 谁能帮我解决这个对我来说的难题!!!(分数不够可以再加) 大家对2008奥运标志有什么看法?? 第一次在LINUX下使用GCC.... ie突然打不开ftp网络了 好久没来了 来看看 最优三角剖析的问题 why squid can not start? 关于字符串的问题,数组和指针有什么区别? 这个日历是怎么搞出来的,比较实用,怎么做一个 一个调用存储过程小问题 来看看 很简单的问题,请教一下 软件工程中哪本教材比较好? 看BCB5的书,在BCB6编译是否完全能通过? 正义的高手门请伸出你们的手黑了这个彩票网站吧!(海南私人彩票害了很多人倾家荡产,家破人亡,我家也深受其害) ie突然打不开ftp网络了 我的MATRIX观----生命的究极存在形式 关闭窗口的问题 因为昨天晚上的积极表现。 我的真情告白·!#¥%…… 遇到了“Destination host unreachable.”,谁能简单的帮我分析一下出错的可能性。 关于安装windoew 2003的初级问题.解决立刻给分. 如何在LISTVIEW里输出打印? 现在你应该睡了~ 困了,睡觉去~~~~~~~~~ 有没有可能在outlook express中加入自已的按钮? 有没有可能在outlook express中加入自已的按钮? 一个sql表达式的问题 JBUILDER9中用代码改变程序的外观, 难?易?,如何写,见贴内,谢谢! 我的电脑里的g盘分区损坏(磁盘坏道)请问有没有补救的方法? 谁有培训教材,单位培训的?? 印章问题?? 如何实现文件上传?在线急等!!! 如何查询出数据库中相同的字段值??? 可以动态改变水晶报表的文本的内容吗? ASP.net提示无法调试 我下载了Fastreport 2.47的中文版,可是不知道怎么用! 请问我在VB.NET里面控制,把SQL里面的数据输出到Excel,但是有一列是000开头的,到Excel后怎么000就不见了呢? 易经中颐挂求爱情怎么解析? 地质学 滑坡区前缘是指那个部位 什么叫“越雷池一步”? 不敢越雷池半步中的雷池是什么意思 有什么典故吗 某隧道截面是一个半径为3.6米的半圆形,4米,宽3米的卡车能通过该隧道吗?(利用卡车的宽度)可以不用根号吗?利用勾股定理... 滑坡易发生与山谷吗? 不敢越雷池半步中的雷池是什么意思? 把一个车轮推上台阶,在哪推最省力 UG8.0 用通过曲线组画曲面问题用通过曲线组命令画曲面,方向如图箭头始终不一致,无法画出要求的曲面,图中圆为样条,选前两条箭头方向一致,选第三条就出现了如图所示问题 小学阅读题分分钟解决 UG4.0怎么在曲面上画样条曲线? 土耳其买或不买,中国导弹都赢了美摄影师冰冷海水中拍摄企鹅跳水【高清印度首都发生工厂火灾6人死亡 10多尼日利亚一教堂发生踩踏事故 致17人奇数为男偶数是女?2013年是“男性周观天下:美国的“偷窥瘾”世贸组织部长会议下月初在印尼巴厘岛举世贸组织部长会议下月初在印尼巴厘岛举俄摄影师“高空厨房”揭秘飞机餐(组图德美将达成互不监听协议 明年年初实施尼日利亚一教堂发生踩踏事故 致17人今晚双色球奖池5亿6812万 预计最哪里都有黄小玫会管理身材的女人,会经营生活为香港歌手鼓掌玲珑小酒版不止喂饱你,这些年饿了么还让数百万人专家解码过去的『最好的我们』潮州美女彩民 狂扫5台养生壶暗访人员要查账 突然电脑一黑:停电了网民学历普遍不高, 说明不了什么
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘