Functions.DbCommitAll 方法 |
命名空间: XSharp.RT
提示: |
---|
DBCommitAll() 使用 DOS 中断 21h 功能 68h 执行实际的磁盘写入。 网络软件是否正确实现此请求取决于具体情况。请与网络软件供应商确认是否支持此功能。 |
1FUNCTION Start() 2 LOCAL cLast := "Winston" 3 DBUseArea(TRUE, "DBFNTX", "sales", ; 4 "Sales", TRUE) 5 Sales->DBSetIndex("salefnam") 6 Sales->DBSetIndex("salelnam") 7 DBUseArea(TRUE, "DBFNTX", "colls", "Colls", ; 8 TRUE) 9 Colls->DBSetIndex("collfnam") 10 Colls->DBSetIndex("colllnam") 11 IF Sales->DBSeek(cLast) 12 IF Sales->Deleted() .AND. Sales->RLock() 13 Sales->DBRecall() 14 QOut("已恢复删除的记录。") 15 ENDIF 16 ELSE 17 QOut("未找到") 18 ENDIF 19 // 处理完成,将更新写入磁盘并 20 // 关闭文件 21 DBCommitAll() 22 DBCloseAll()