Functions.TxnLevel 方法 |
命名空间: XSharp.VFP
1Close Databases 2Open Database (HOME(2) + 'Data\testdata') 3Use Customer // 打开客户表 4Clear 5 6BEGIN TRANSACTION 7 tLevel = ALLTRIM(STR(TXNLEVEL())) 8 =MessageBox("当前事务: " + tLevel, 0, "事务级别") 9 10 BEGIN TRANSACTION 11 tLevel = ALLTRIM(STR(TXNLEVEL())) 12 =MessageBox("当前事务: " + tLevel, 0, "事务级别") 13 END TRANSACTION 14END TRANSACTION