【正文】
lsDataBase類(lèi)屬性列表屬性名稱類(lèi)型讀寫(xiě)性必填備注Conn可讀不可寫(xiě)否數(shù)據(jù)庫(kù)連接對(duì)象(2)clsDataBase類(lèi)方法列表函數(shù)或者過(guò)程名稱返回類(lèi)型參數(shù)說(shuō)明備注BeginTrans無(wú)無(wú)參數(shù)開(kāi)始一個(gè)事務(wù)InitConnection無(wú)strConnectionString為數(shù)據(jù)庫(kù)連接字符串初始化數(shù)據(jù)庫(kù)連接對(duì)象CommitTrans無(wú)無(wú)參數(shù)提交一個(gè)事務(wù)RollBackTrans無(wú)無(wú)參數(shù)回滾一個(gè)事務(wù)調(diào)用示列Private sub cmdSave_Click()Dim objCn As Object Dim strConn As String Dim i As Integer Dim strErrorNum As StringDim strErrorDesc As StringSet objCn = CreateObject(“”)‘//初始化數(shù)據(jù)庫(kù)連接對(duì)象 (strConn) ‘//strConn傳入的數(shù)據(jù)庫(kù)連接字符串 ‘//開(kāi)始一個(gè)事務(wù)‘//循環(huán)保存憑證,每次循環(huán)保存一張憑證。 strErrorNum amp。 ‘//新增一個(gè)貸方憑證科目明細(xì) ( 1).VchExp = 銷(xiāo)售出庫(kù) ( 1).AcctID = ( 1).