【正文】 學(xué)習(xí)《關(guān)于近期部分省份發(fā)生存款失蹤案件風(fēng)險(xiǎn)警示》的通知，加強(qiáng)柜員崗位管理，完善事前制約機(jī)制；規(guī)范業(yè)務(wù)操作流程，強(qiáng)化事中授權(quán)控制；加大財(cái)務(wù)核對(duì)力度，提高事后監(jiān)督實(shí)效。 銷戶的所有傳票。 （四）積極配合檢查人員的工作，準(zhǔn)備好相關(guān)資料。 （三）讓員工學(xué)習(xí)并貫徹執(zhí)行 “ 山西省農(nóng)村信用社企業(yè)文化大綱 ” 。針對(duì)一季度發(fā)現(xiàn)假幣較多的情況，強(qiáng)調(diào)柜員要提高警惕，假 幣一旦進(jìn)入柜臺(tái)就不可再次流通，應(yīng)及時(shí)蓋假幣章，尤其是對(duì) M3W9 開頭的假幣要重點(diǎn)防范 407?，F(xiàn)就本季度主要工作述職如下： 一、主要工作完成指標(biāo) （一）業(yè)務(wù)指標(biāo)完成情況 截至 20XX 年月 31 日，我社各項(xiàng)存款余額 **萬元， （二） 管理指標(biāo)完成情況 本季度我社嚴(yán)格按照上級(jí)聯(lián)社和我社制定的全年工作要點(diǎn)展開工作，確保了各項(xiàng)業(yè)務(wù)穩(wěn)健運(yùn)行，員工素質(zhì)進(jìn)一步提高，營造了良好的內(nèi)外部環(huán)境，為各項(xiàng)目標(biāo)的順利實(shí)現(xiàn)奠定了良好的基礎(chǔ)。 原文已完。邊學(xué)習(xí)邊 設(shè)計(jì)，理論結(jié)合實(shí)踐，不僅提高了自學(xué)能力，而且鍛煉了自己實(shí)際動(dòng)手的能力。因此，對(duì)其的開發(fā)與研究不僅具有理論意義，而且還具有一定的現(xiàn)實(shí)意義。 If Dir( + \報(bào)表 \ + Left(Month, 7) + 部門消耗 .xls) Then Kill + \報(bào)表 \ + Left(Month, 7) + 部門消耗 .xls End If + \報(bào)表 \ + Left(Month, 7) + 部門消耗 .xls (關(guān)閉工作簿 ) 參考文獻(xiàn) 《 Visual Basic 程序調(diào)試參考手冊(cè)》 作者： Clay Shannon 譯者：王曉慧 趙蘭陽 出版社： 中國清華大學(xué)出版社 《 Access 2020 數(shù)據(jù)庫開發(fā)自學(xué)教程》 【出 版 社】人民郵電出版社 作者：李明 結(jié) 語 總之，針對(duì)物資管理部門采用手工管理時(shí)所出現(xiàn)的工作效率低、層次多、重復(fù)勞動(dòng)多、管理復(fù)雜、數(shù)據(jù)統(tǒng)計(jì)緩慢，而且非常容易出差錯(cuò)的問題，輔料物資管理系統(tǒng)所具有的各種功能不僅可以有 效的提高工作效率、避免重復(fù)勞動(dòng)、簡(jiǎn)化操作，而且可以有效的防止操作中的差錯(cuò)出現(xiàn)，大大降低工作人員的工作難度，減輕工作人員的負(fù)擔(dān)，因此是一種很好的輔助管理工具。 Total_REC = (Row, I + 1).Borders(xlTop).Weight = xlThin (Row, I + 1).Borders(xlBottom).Weight = xlThin (Row, I + 1).Borders(xlRight).Weight = xlThin (Row, I + 1).Borders(xlLeft).Weight = xlThin If Strlen(Trim((Row, FieldsCount + 1).Value)) = CellsMaxLen (FieldsCount + 1) Then (Row, FieldsCount + 1).ColumnWidth = Strlen(Trim((Row, FieldsCount + 1).Value)) CellsMaxLen(FieldsCount + 1) = Strlen(Trim((Row, FieldsCount + 1).Value)) Else (Row, FieldsCount + 1).ColumnWidth = CellsMaxLen(FieldsCount + 1) End If 最后，預(yù)覽和保存報(bào)表。 group by rkdclmcbh,lldwbh,lldwmc,rkdclmc,rkdclmcbh,rkdclmcgg,rkdclmcdw,left(rkrq,10) order by lldwbh,rkdclmcbh,left(rkrq,10) 再次，繪制工作表。 Left(Month, 7) amp。 and left(rkrq,7)=39。 If adStateClosed Then = select distinct lldwbh,lldwmc,rkdclmc,rkdclmcbh,rkdclmcgg,rkdclmcdw,sum(rkdclsl),sum(rkdclzje),left(rkrq,10) from rkd where flag=39。建立一張報(bào)表主要是通過以下語句實(shí)現(xiàn)的： Public VBExcel As Public xlbook As （定義 Excel 工作簿對(duì)象） Public xlsheet As （定義 Excel 工作表對(duì)象） Dim CellsMaxLen(1 To 9) As Integer（字段共有 9 項(xiàng)） Dim Row As Integer Set VBExcel = CreateObject() Set xlbook = Nothing Set xlsheet = Nothing Set xlbook = Set xlsheet = (sheet1) 其 次，調(diào)出數(shù)據(jù)。 如何利用 Visual Basic 實(shí)現(xiàn)報(bào)表的創(chuàng)建 以 Visual Basic 為工具將 Microsoft Access 2020 中的數(shù)據(jù)調(diào)用出并顯示在Microsoft Excel 2020 中，是本系統(tǒng)的另一關(guān)鍵技術(shù)所在。__000039。其中，通過編程對(duì)數(shù)據(jù)庫的調(diào)用主要是通過先前定義的 rep 變量和 SQL 語句實(shí)現(xiàn)的。 39。 amp。____0039。Data Source=.\。事實(shí)上，即便是使用Adodc 控件來建立于數(shù)據(jù)庫的鏈接，也可以用編程的方式實(shí)現(xiàn)，例如在系統(tǒng)中所用通過下拉列表框顯示數(shù)據(jù)的地方，其調(diào)用數(shù)據(jù)全部都是采用例如下面這樣的語句來實(shí)現(xiàn)的。Data Source=.\。另一種與數(shù)據(jù)庫之間的鏈接方式是通過數(shù)據(jù)庫控件實(shí)現(xiàn)的，主要是應(yīng)用 Adodc 控件來完成的。Persist Security Info=False With db .ConnectionString = ConnectString .CursorLocation = adUseClient .Open End With = db = adUseClient = adOpenStatic = adLockBatchOptimistic 通過這一方式建立與數(shù)據(jù)庫的鏈接的好處在于：使用靈活，一旦建立了與數(shù)據(jù)庫的鏈接，隨時(shí)可以對(duì)數(shù)據(jù)進(jìn)行調(diào)用；面向全局，只要進(jìn)行一次鏈接，便可以在工程中的任一個(gè)窗體中實(shí)現(xiàn)對(duì)數(shù)據(jù)的調(diào)用。具體來講，首先，在實(shí)現(xiàn)與數(shù)據(jù)庫的鏈接這一環(huán)節(jié)上，一種方式就是使用編程語句來實(shí)現(xiàn)與數(shù)據(jù)庫之間的鏈接，主要關(guān)鍵語句如下： Public db As New Public rep As New Public ConnectString As String ConnectString = Provider=。在進(jìn)行刪除時(shí)，系統(tǒng)同樣會(huì)彈出確認(rèn)對(duì)話框，讓用戶確認(rèn)是否刪除，避免數(shù)據(jù)庫因操作的疏忽和失誤而被破壞。 最后，領(lǐng)料單位字典處理。 再次，材料科目名稱字典。 其次，材料科目種類字典。另外，用戶在進(jìn)行刪除操作時(shí)，系統(tǒng)會(huì)彈出如圖 所示的確認(rèn)對(duì)話框，讓 用戶確認(rèn)是否對(duì)數(shù)據(jù)進(jìn)行刪 圖 確認(rèn)刪除對(duì)話框 除操作，如果用戶確定要?jiǎng)h除當(dāng)前數(shù)據(jù)，則可以點(diǎn)擊確認(rèn)按鈕，刪除操作完成。另外，如上圖所示，在添加材料類別時(shí)，類別編號(hào)由系統(tǒng)自動(dòng)生成，用戶只需輸入材料類別名稱即可，這不僅可以簡(jiǎn)化用戶操作，還可以防止非法信息的產(chǎn)生。材料科目類別字典界面的主要功能是對(duì)材料的一級(jí)目錄（材料類別）進(jìn)行管理和維護(hù)，它的界面如圖 所示，用戶通過該界面可以瀏覽數(shù) 圖 材料科目類別字典界面 據(jù)庫中所有的材料類別信息，并可以添加 、刪除和修改材料類別的相關(guān)信息。 字典處理 字典處理模塊的主要功能是對(duì)物資進(jìn)行分類管理，通過該 模塊，用戶可以對(duì)系統(tǒng)的數(shù)據(jù)信息進(jìn)行維護(hù)，可以添加、刪除和修改有關(guān)的數(shù)據(jù)信息，并且在添加數(shù)據(jù)信息時(shí)，為方便用戶的操作與管理，用戶只需要輸入相應(yīng)的數(shù)據(jù)名稱，而數(shù)據(jù)的編號(hào)是系統(tǒng)根據(jù)現(xiàn)有編號(hào)直接按順序生成的，簡(jiǎn)化了操作過程，有效的減少了輸入中可能產(chǎn)生的錯(cuò)誤。 最后，打印庫存量匯總月報(bào)表。用戶只要點(diǎn)選打印庫存量明細(xì)月 報(bào)表的菜單，系統(tǒng)便會(huì)自動(dòng)生成庫存量的明細(xì)月報(bào)表，用戶在預(yù)覽后，可以選擇打印，也可以不打印而關(guān)閉報(bào)表，系統(tǒng)會(huì)自動(dòng)用 Excel的形式保存月報(bào)表，用戶可以在關(guān)閉系統(tǒng)后進(jìn)入報(bào)表文件夾自己手動(dòng)打印報(bào)表。 再次，打印庫存量明細(xì)月報(bào)表。 圖 錄入信息出錯(cuò)消息框 其次，打印部門消耗月報(bào)表。 圖 無記錄警告消息框 用戶在點(diǎn)擊確認(rèn)按鈕后，回到打印部門消耗月報(bào)表界面，用戶可以重新輸入年份與月份信息。用戶在預(yù)覽完報(bào)表后，便可以選擇其所想要進(jìn)行的操作，如想打 印報(bào)表，只需單擊打印按鈕即可，系統(tǒng)會(huì)自動(dòng)完成打?。蝗鐣簳r(shí)不想打印，用戶可在察看后關(guān)閉報(bào)表，系統(tǒng)會(huì)自動(dòng)將剛才所顯示的報(bào)表保存在報(bào)表文件夾中，用戶可以在日后手動(dòng)打印該報(bào)表。首先，打印材料消耗月報(bào)表。該模塊取代了手工記賬的復(fù)雜和繁瑣程序，簡(jiǎn)化的操作，降低了工作量，方便了相關(guān)賬目的查找，提高了倉庫管理員的工作效率。最后，庫存物品明細(xì)賬。其次，庫存物品種類明細(xì)賬。其具體功能有：首先，庫存物品類別明細(xì)賬?？偟膩碚f，用戶可以通過入庫信息查詢功能了解到各種輔料物資的供應(yīng)情況，掌握每一次入庫的詳細(xì)信息，方便用戶和管理者的管理。 最后，入庫信息查詢。 圖 出庫單界面 圖 出庫數(shù)量錯(cuò)誤消息框 再次，出庫信息查詢。第三，根據(jù)物資管理的需要，在進(jìn)行出庫操作時(shí)還需要選擇領(lǐng)用單位的名稱，用以統(tǒng)計(jì)各部門的物資消耗情況，因此這也是入庫單錄入時(shí)所沒有的。第二，由于在出庫單中多顯示了一條材料庫存信息，而在出庫時(shí)，對(duì)于庫存量為零的材料，在出庫單中是不會(huì)顯示的，所以對(duì)它是不能進(jìn)行出庫操作的；而如果用戶在出庫時(shí)所錄入的出庫數(shù)量大于庫存量的話，系統(tǒng)便會(huì)彈出如圖 所示的消息框提示用戶，因此對(duì)于這樣的操作，系統(tǒng)也是不會(huì)允許的。用戶可以通過出庫單窗體完成輔料物資的出庫事務(wù)錄入工作。對(duì)于入庫日期，系統(tǒng)會(huì)自動(dòng)加入入庫時(shí)的系統(tǒng)時(shí)間，減少了錄入的工作量和潛在的錯(cuò)誤。而當(dāng)用戶輸入的信息錯(cuò)誤或者數(shù)據(jù)庫中并沒有此物資時(shí)，系統(tǒng)會(huì)提示用戶指定的材料或者編號(hào)不存在，注意選擇正確的材料類別和種類，如圖 圖 查詢出錯(cuò)消息框 所示。此外 ,該模塊還提供了模糊查詢功能，在用戶選好一級(jí)和二級(jí)目錄后，如果三級(jí)目錄過于龐大或者難于找到所需材料名稱，可以利用系統(tǒng)提供的查詢功能，在查詢材料名稱框架中按名稱或材料編號(hào)對(duì)所需信息進(jìn)行查詢 ,在查詢時(shí) ,用戶只要點(diǎn)擊“按名稱查詢”和“按編號(hào)查詢”的單選按鈕 ,選擇好查詢方式 ,在文本框中輸入入庫材料的相關(guān)信息 ,便可以查詢到 所需材料信息。 該模塊能完成輔料物資的入庫管理，用戶可以通過入庫單窗體完成輔料物資的入庫操作。 （ a）系統(tǒng)主界面（ b）系統(tǒng)總菜單（ c）流水賬菜單 （ d）明細(xì)賬菜單（ e）打印報(bào)表菜單（ f）字典處理菜單 圖 系統(tǒng)主界面介紹圖 流水賬處理 本系統(tǒng)的第一個(gè)模塊是流水賬處理模塊，該模塊的主要功能是錄入入庫和出庫信息，并對(duì)其進(jìn)行保存和查詢，其主要有入庫單 處理、出庫單處理、入庫信息查詢和出庫信息查詢四個(gè)功能。 圖 請(qǐng)求輸入密碼界面 圖 密碼正確消息框 圖 密碼錯(cuò)誤消息框 系統(tǒng)主界面簡(jiǎn)介 用戶在進(jìn)入系統(tǒng)后，系統(tǒng)會(huì)顯示出如圖 （ a）所示的主界面，在界面的菜單欄內(nèi)，共有五個(gè)菜單，如圖 （ b）所示，分別為流水賬處理菜單、明細(xì)賬處理菜單、打印 報(bào)表菜單、字典處理菜單和退出菜單。如果用戶在啟動(dòng)系統(tǒng)后，想要放棄 進(jìn)入系統(tǒng)，便可以點(diǎn)擊圖 中所示的“退出”按鈕，系統(tǒng)會(huì)自動(dòng)關(guān)閉。由于本系統(tǒng)只對(duì)倉庫管理員和相關(guān)領(lǐng)導(dǎo)及管理人員開放，因此，為了保證 數(shù)據(jù)的安全性，本系統(tǒng)專門設(shè)計(jì)了用戶密碼，只有擁有密碼者方可進(jìn)入系統(tǒng)。 主程序 Access 2020 Excel 2020 圖 輔料物資管理信息系統(tǒng)程序模塊框圖 ER 信息模型的設(shè)計(jì)： ER 方法是 entityrelationship approach 的簡(jiǎn)稱 ，是由 于 1976 年提出的，通稱實(shí)體 聯(lián)系方法，通過 ER 圖可以建立信息世界的實(shí)體、屬性和關(guān)系的模型，因此，筆者在對(duì)系統(tǒng)的相關(guān)情況進(jìn)行分析后，得出本系統(tǒng)的 ER 模型，圖 即表示了該輔料輔料物資管理信息系統(tǒng) 流水賬處理模塊 明細(xì)賬處理模塊 報(bào)表處理模塊 字典處理模塊 材料科目字典處理 出庫信息查詢 入庫單處理 出庫單處理 入庫信息查詢 明細(xì)帳查詢 庫存物品類別明細(xì)帳 庫存物品種類明細(xì)帳