【正文】 環(huán)境下，選擇“工程”→“引用”命令，在隨后出現(xiàn)的對(duì)話框中選擇“ Microsoft ActiveX Data Objects Library”，然后單擊“確定”按鈕，如圖 26 所示。 圖 28 “創(chuàng)建新數(shù)據(jù)源”對(duì)話框 選擇 Microsoft SQL Server Driver(*.mdb)，單擊“完成”按鈕，出現(xiàn)如圖 29 所示對(duì)話框。如用戶不想登錄，則可單擊“取消”按鈕退出系統(tǒng)。 圖 40 “會(huì)計(jì)科目設(shè)置”窗體 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 44 頁(yè) 共 77 頁(yè) “會(huì)計(jì)科目設(shè)置”窗體界面上設(shè)計(jì)有如下控件： （ 1）在“會(huì)計(jì)科目設(shè)置”窗體的上方有 10 個(gè)按鈕，分別為“首記錄”、“上記錄”、“下記錄”、“尾記錄”、“新增”、“修改”、“刪除”、“保存”、“取消”和“退出”。點(diǎn)擊后分別調(diào)用系統(tǒng)內(nèi)部相應(yīng)的過程執(zhí)行操作。 總 分類賬 查詢 窗體 在“系統(tǒng)主窗體”中， 單擊“ 賬簿 管理” /“總 分類賬 ”，進(jìn)入“總 分類賬 查詢”窗體。 圖 55 “ 明細(xì)賬 查詢”窗體 試算平衡表 窗體 在“系統(tǒng)的主窗體”中，單擊“ 結(jié)賬 及報(bào)表” /“試算平衡表”，進(jìn)入“試算平衡表”窗體。用戶可以在該區(qū)中輸入要查詢的“科目代碼”，再點(diǎn)擊“搜索”鍵來查詢?cè)摽颇康摹翱?分類賬 ”；選中該區(qū)下方的“無發(fā)生金額的不顯示”單選框可以過濾掉 那些 無發(fā)生金額的科目的“總 分類賬 ”數(shù)據(jù)記錄，不選則全部顯示。其中“首記錄”、“上記錄”、“下記錄”、“尾記錄”、“新增”、“修改”和“刪除”七個(gè)按鈕在該窗體中不能使用 , “保存”、“取消”和“退出”三個(gè)按鈕對(duì)會(huì)計(jì)憑證輸入數(shù)據(jù)進(jìn)行相應(yīng)操作。 圖 42 “會(huì)計(jì)科目設(shè)置”窗體搜索欄 （ 3）在“會(huì)計(jì)科目設(shè)置”窗體的左下角有一個(gè)顯示區(qū)，用于顯示窗體執(zhí)行操作后相應(yīng)結(jié)果。 圖 31 系統(tǒng)歡迎窗體 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 41 頁(yè) 共 77 頁(yè) 系統(tǒng)主窗體 在“系統(tǒng)歡迎窗體” 中單擊“ ENTER… ”標(biāo)簽后，打開“系統(tǒng)主窗體”。 表 11 科目表 字段名稱 含義說明 類型 長(zhǎng)度 取值范圍 取值含義 與其他 字段 邏輯關(guān)系 科目代碼 唯一標(biāo)識(shí) 文本 20 標(biāo)識(shí)科目 關(guān)聯(lián)科目名稱 科目名稱 文本 20 關(guān)聯(lián)科目代碼、助記碼、科目類別 助記碼 文本 20 便 于 記住科目名稱 關(guān)聯(lián)科目名稱 科目類別 文本 20 關(guān)聯(lián)科目名稱 是否存貨科目 文本 20 余額方向 文本 4 借 /貸 數(shù)量單位 文本 10 表 12 賬簿初始化表 字段名稱 含義說明 類型 長(zhǎng)度 取值范圍 取值含義 與其他 字段 邏輯關(guān)系 科目代碼 唯一標(biāo)識(shí) 文本 20 標(biāo)識(shí)科目 關(guān)聯(lián)科目名稱 科目名稱 文本 20 關(guān)聯(lián)科目代碼、助記碼、科目類別 累計(jì)借方 貨幣 8 累計(jì)貸方 貨幣 8 期初余額 貨幣 8 余額方向 文本 4 借 /貸 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 36 頁(yè) 共 77 頁(yè) 表 13 憑證表 字段名稱 含義說明 類型 長(zhǎng)度 取值范圍 取值含義 與其他 字段 邏輯關(guān)系 憑證編號(hào) 唯一標(biāo)識(shí) 文本 10 標(biāo)識(shí)憑證 關(guān)聯(lián)憑證字號(hào) 會(huì)計(jì)期間 數(shù)字 16 憑證字號(hào) 文本 2 收 /付 /轉(zhuǎn) 區(qū)分憑證類別 日期 日期 /時(shí)間 10 記錄會(huì)計(jì)日期 附單據(jù) 數(shù)字 16 單據(jù)編號(hào) 制單 文本 20 制單人姓名 借方合計(jì) 貨幣 8 貸方合計(jì) 貨幣 8 過賬狀態(tài) 文本 4 已過 /未過 辨別憑證是否過賬 關(guān)聯(lián)憑證狀態(tài) 憑證狀態(tài) 文本 10 辨別憑證 關(guān)聯(lián)過賬狀態(tài) 表 14 分錄表 字段名稱 含義說明 類型 長(zhǎng)度 取值范圍 取值含義 與其他 字段 邏輯關(guān)系 編號(hào) 唯一標(biāo)識(shí) 數(shù)字 16 標(biāo)識(shí)分錄 關(guān)聯(lián)憑證編號(hào) 憑證編號(hào) 文本 10 標(biāo)識(shí)憑證 關(guān)聯(lián)分錄編號(hào) 摘要 文本 40 描述分錄 科目代碼 文本 20 借方 貨幣 8 貸方 貨幣 8 數(shù)量 數(shù)字 16 單價(jià) 貨幣 8 結(jié)算方式 文本 10 結(jié)算號(hào) 數(shù)字 16 結(jié)算日期 日期 /時(shí)間 10 表 15 科目余額表 字段名稱 含義說明 類型 長(zhǎng)度 取值范圍 取值含義 與其他 字段 邏輯關(guān)系 科目代碼 唯一標(biāo)識(shí) 文本 20 標(biāo)識(shí)科目 關(guān)聯(lián)科目名稱 期初借方發(fā)生額 貨幣 8 期初貸方發(fā)生額 貨幣 8 本期借方發(fā)生額 貨幣 8 本期貸方發(fā)生額 貨幣 8 本年借方累計(jì) 發(fā)生額 貨幣 8 本年貸方累計(jì) 發(fā)生額 貨幣 8 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 37 頁(yè) 共 77 頁(yè) 本期借方余額 貨幣 8 本期貸方余額 貨幣 8 最后結(jié)算分錄 數(shù)字 16 會(huì)計(jì)期間 數(shù)字 16 余額方向 文本 4 借方 /貸方 內(nèi)部編號(hào) 數(shù)字 16 表 16 憑證表歷史 字段名稱 含義說明 類型 長(zhǎng)度 取值范圍 取值含義 與其他 字段 邏輯關(guān)系 憑證編號(hào) 唯一標(biāo)識(shí) 文本 10 標(biāo)識(shí)憑證 關(guān)聯(lián)憑證字號(hào) 會(huì)計(jì)期間 數(shù)字 16 憑證字號(hào) 文本 2 收 /付 /轉(zhuǎn) 區(qū)分憑證類別 日期 日期 /時(shí)間 10 記錄會(huì)計(jì)日期 附單據(jù) 數(shù)字 16 單據(jù)編號(hào) 制單 文本 20 制單人姓名 借方合計(jì) 貨幣 8 貸方合計(jì) 貨幣 8 過賬狀態(tài) 文本 4 已過 /未過 辨別憑證是否過賬 關(guān)聯(lián)憑證狀態(tài) 憑證狀態(tài) 文本 10 辨別憑證 關(guān)聯(lián)過賬狀態(tài) 表 17 分錄表歷史 字段名稱 含義說明 類型 長(zhǎng)度 取值范圍 取值含義 與其他 字段 邏輯關(guān)系 編號(hào) 唯一標(biāo)識(shí) 數(shù)字 16 標(biāo)識(shí)分錄 關(guān)聯(lián)憑證編號(hào) 憑證編號(hào) 文本 10 標(biāo)識(shí)憑證 關(guān)聯(lián)分錄編號(hào) 摘要 文本 40 描述分錄 科目代碼 文本 20 借方 貨幣 8 貸方 貨幣 8 數(shù)量 數(shù)字 16 單價(jià) 貨幣 8 結(jié)算方式 文本 10 結(jié)算號(hào) 數(shù)字 16 結(jié)算日期 日期 /時(shí)間 10 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 38 頁(yè) 共 77 頁(yè) 表 18 本期明細(xì) 賬簿 字段名稱 含義說明 類型 長(zhǎng)度 取值范圍 取值含義 與其他 字段 邏輯關(guān)系 內(nèi)部編號(hào) 唯一標(biāo)識(shí) 數(shù)字 16 標(biāo)識(shí)本期明細(xì)賬簿 分錄編號(hào) 數(shù)字 16 標(biāo)識(shí)分錄 會(huì)計(jì)期間 數(shù)字 16 憑證字號(hào) 文本 2 收 /付 /轉(zhuǎn) 區(qū) 分 憑 證類別 關(guān)聯(lián)憑證編號(hào) 憑證編號(hào) 文本 10 關(guān)聯(lián)憑證字號(hào) 摘要 文本 40 描 述 本 期明細(xì)賬簿 科目代碼 文本 20 借方 貨幣 8 貸方 貨幣 8 余額方向 文本 4 借方 /貸方 余額 貨幣 8 數(shù)量 數(shù)字 16 單價(jià) 貨幣 8 結(jié)算方式 文本 10 結(jié)算號(hào) 數(shù)字 16 結(jié)算日期 日期 /時(shí)間 10 余額標(biāo)記 是 /否 2 是 /否 表 19 本期匯總賬簿 字段名稱 含義說明 類型 長(zhǎng)度 取值范圍 取值含義 與其他 字段 邏輯關(guān)系 科目代碼 唯一標(biāo)識(shí) 文本 20 標(biāo)識(shí)科目 期初余額 貨幣 8 余額方向 文本 4 借方 /貸方 本期借方 合計(jì) 貨幣 8 關(guān)聯(lián)本年 借方合計(jì) 本期貸方 合計(jì) 貨幣 8 關(guān)聯(lián)本年 貸方合計(jì) 本年借方 累計(jì) 貨幣 8 關(guān)聯(lián)本期 借方合計(jì) 本年貸方 累計(jì) 貨幣 8 關(guān)聯(lián)本期 貸方合計(jì) 余額 貨幣 8 本年資金余額 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 39 頁(yè) 共 77 頁(yè) 表 20 資產(chǎn)負(fù)債表 字段名稱 含義說明 類型 長(zhǎng)度 取值范圍 取值含義 與其他 字段 邏輯關(guān)系 會(huì)計(jì)期間 唯一代碼 數(shù)字 16 現(xiàn)金及現(xiàn)金等價(jià)物 貨幣 8 應(yīng)收帳款 貨幣 8 壞帳準(zhǔn)備 貨幣 8 應(yīng)收帳款凈值 貨幣 8 流動(dòng)資產(chǎn)總計(jì) 貨幣 8 固定資產(chǎn)原值 貨幣 8 累計(jì) 折舊 貨幣 8 固定資產(chǎn)總計(jì) 貨幣 8 其他資產(chǎn) 貨幣 8 應(yīng)付帳款 貨幣 8 預(yù)收帳款 貨幣 8 應(yīng)付工資 貨幣 8 其他負(fù)債 貨幣 8 負(fù)債總計(jì) 貨幣 8 實(shí)收資本 貨幣 8 資本公積 貨幣 8 贏余公積 貨幣 8 表 21 系統(tǒng)參數(shù)表 字段名稱 含義說明 類型 長(zhǎng)度 取值范圍 取值含義 與其他 字段 邏輯關(guān)系 參數(shù)名稱 唯一標(biāo)識(shí) 文本 40 取值 文本 20 編號(hào) 數(shù)字 16 表 22 用戶清單表 字段名稱 含義說明 類型 長(zhǎng)度 取值范圍 取值含義 與其他 字段 邏輯關(guān)系 用戶編號(hào) 唯一標(biāo)識(shí) 自動(dòng)編號(hào) 40 用戶名 文本 40 密碼 文本 20 界面設(shè)計(jì) 用戶登錄窗體 用戶登陸是信息系統(tǒng)最常采用的安全手段 ， 由此可防止非用戶進(jìn)入系統(tǒng) 。 amp。所以先要根據(jù)需求分析建立數(shù)據(jù)表，然后通過 SQL Server 2021 編寫數(shù)據(jù)表，最后通過對(duì) ODBC 數(shù)據(jù)引擎的設(shè)置，就可以把 SQL Server 2021 數(shù)據(jù)庫(kù)連接到 VB 項(xiàng)目中。set title. 39。獲得 datagird當(dāng)前被選中的行號(hào) Dim irow = 39。 （ 3）審核憑證時(shí)的輸入控制 ①要求審核憑證的用戶和憑證制單的用戶不能為同一人。 （ 3）修改刪除會(huì)計(jì)科目時(shí)的控制條件 ①不準(zhǔn)修改科目編號(hào) ②科目若存在下級(jí)科目，將不準(zhǔn)刪除 ③科目若已經(jīng)輸入余額或發(fā)生額，不準(zhǔn)修改和刪除 ④科目已經(jīng)在憑證中使用的，不允許修改和刪除 該模塊 的 主要代碼為： 新增 科目 函數(shù)： Public Overrides Sub saveforadd() 湖南商學(xué)院畢業(yè)論文（設(shè)計(jì)） 第 25 頁(yè) 共 77 頁(yè) Dim drdata As DataRow = (科目表 ).newrow() Try drdata(科目代碼 ) = drdata(科目名稱 ) = drdata(助記碼 ) = drdata(科目類別 ) = drdata(余額方向 ) = Catch ex As Exception (數(shù)據(jù)格式不正確！ ) Exit Sub End Try Try (科目表 ).(drdata) If = True Then (dataset11) End If Catch ex As Exception (數(shù)據(jù)添加失??！ ) End Try End Sub 更新 科目 函數(shù)： Public Overrides Sub saveforupdate() Try Dim row As Integer row = = New datagirdcell((row + 1) Mod , 0) 39。