delphi2007中设置事VAR aTD:TTransactionDESC出现错误，以下是李维《delphi7高效数据库程序设计》中的出错程式。

發文回覆瀏覽次數：3208

推到 Plurk!

推到 Facebook!

delphi2007中设置事VAR aTD:TTransactionDESC出现错误，以下是李维《delphi7高效数据库程序设计》中的出错程式。

尚未結案

guilin518918
一般會員

發表：1
回覆：0
積分：0
註冊：2008-04-13

發送簡訊給我

#1 引用回覆回覆

發表時間：2008-04-13 12:39:46

IP:221.7.xxx.xxx 訂閱

这是李维《delphi7高效数据库程序设计》中的出错程式。
procedure TForm1.BitBtn1Click(Sender: TObject);
var
aTD: TTransactionDesc;--------报错：[DCC Error] Unit1.pas(63): E2003 Undeclared identifier: 'TTransactionDesc'
begin
if (not DataModule2.scnnDemo.InTransaction) then
begin
aTD.TransactionID:=1;
aTD.IsolationLevel:=xilREADCOMMITTED;
DataModule2.scnnDemo.StartTransaction(aTD);
TRY
if (DataModule2.scdsbooks.ChangeCount)>0 then
DataModule2.scdsbooks.applyupdates(0);
if (DataModule2.scdspublishers.ChangeCount)>0 then
DataModule2.scdspublishers.applyupdates(0);
DataModule2.scnnDemo.commit(aTD);
except
on e: exception do;
begin
showmessage(e.message);
DataModule2.scnnDemo.rollback(aTD);
end;
END;
end;
showchangecount;
end;

------------------------------------
已按书中要求，在USES子句中加入DBXPress单元。
这是个BUG么？
我是初学者，有请各位高手指点一下，这问题为难我两天了。头痛而无助。
哪位大侠帮小弟一把呵。
TTransactionDesc;--------报错：[DCC Error] Unit1.pas(63): E2003 Undeclared identifier: 'TTransactionDesc'

編輯記錄

guilin518918 重新編輯於 2008-04-13 20:35:41，註解無‧

vensonh
一般會員

發表：0
回覆：1
積分：0
註冊：2003-10-12

發送簡訊給我

#2 引用回覆回覆

發表時間：2009-07-21 12:09:09

IP:210.64.xxx.xxx 訂閱

應該要在 USER 子句中, 增加引用 SqlExpr 這個單元,

您不妨試試 !!

===================引用 guilin518918 文章===================
这是李维《delphi7高效数据库程序设计》中的出错程式。
procedure TForm1.BitBtn1Click(Sender: TObject);
var
aTD: TTransactionDesc;--------报错：[DCC Error] Unit1.pas(63): E2003 Undeclared identifier: 'TTransactionDesc'
begin
if (not DataModule2.scnnDemo.InTransaction) then
begin
aTD.TransactionID:=1;
aTD.IsolationLevel:=xilREADCOMMITTED;
DataModule2.scnnDemo.StartTransaction(aTD);
TRY
if (DataModule2.scdsbooks.ChangeCount)>0 then
DataModule2.scdsbooks.applyupdates(0);
if (DataModule2.scdspublishers.ChangeCount)>0 then
DataModule2.scdspublishers.applyupdates(0);
DataModule2.scnnDemo.commit(aTD);
except
on e: exception do;
begin
showmessage(e.message);
DataModule2.scnnDemo.rollback(aTD);
end;
END;
end;
showchangecount;
end;

------------------------------------
已按书中要求，在USES子句中加入DBXPress单元。
这是个BUG么？
我是初学者，有请各位高手指点一下，这问题为难我两天了。头痛而无助。
哪位大侠帮小弟一把呵。
TTransactionDesc;--------报错：[DCC Error] Unit1.pas(63): E2003 Undeclared identifier: 'TTransactionDesc'

系統時間：2025-01-30 12:52:18

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！