【文章內(nèi)容簡(jiǎn)介】 能是對(duì)物資進(jìn)行分類(lèi)管理，通過(guò)該 模塊，用戶可以對(duì)系統(tǒng)的數(shù)據(jù)信息進(jìn)行維護(hù)，可以添加、刪除和修改有關(guān)的數(shù)據(jù)信息，并且在添加數(shù)據(jù)信息時(shí)，為方便用戶的操作與管理，用戶只需要輸入相應(yīng)的數(shù)據(jù)名稱(chēng)，而數(shù)據(jù)的編號(hào)是系統(tǒng)根據(jù)現(xiàn)有編號(hào)直接按順序生成的，簡(jiǎn)化了操作過(guò)程，有效的減少了輸入中可能產(chǎn)生的錯(cuò)誤。 首先，材料科目類(lèi)別字典。材料科目類(lèi)別字典界面的主要功能是對(duì)材料的一級(jí)目錄（材料類(lèi)別）進(jìn)行管理和維護(hù)，它的界面如圖 所示，用戶通過(guò)該界面可以瀏覽數(shù) 圖 材料科目類(lèi)別字典界面 據(jù)庫(kù)中所有的材料類(lèi)別信息，并可以添加 、刪除和修改材料類(lèi)別的相關(guān)信息。用戶在點(diǎn)擊添加和修改按鈕后，界面上的按鈕如圖 所示，除保存和取消按鈕外，其它按鈕 圖 添加材料類(lèi)別界面 都變成不可選，這樣可以保護(hù)數(shù)據(jù)庫(kù)的安全，防止重復(fù)操作發(fā)生。另外，如上圖所示，在添加材料類(lèi)別時(shí)，類(lèi)別編號(hào)由系統(tǒng)自動(dòng)生成，用戶只需輸入材料類(lèi)別名稱(chēng)即可，這不僅可以簡(jiǎn)化用戶操作，還可以防止非法信息的產(chǎn)生。用戶在添加和修改材料信息后，如點(diǎn)擊保存按鈕可以保存操作結(jié)果，若點(diǎn)擊取消按鈕則取消此次操作。另外，用戶在進(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ù)據(jù)庫(kù)不會(huì)被無(wú)意的破壞。 其次，材料科目種類(lèi)字典。材料科目種類(lèi)字典的主要功能是對(duì)物資的二級(jí)目錄（材料種類(lèi)）進(jìn)行管理和維護(hù)，其界面和功能與材料科目類(lèi)別字典基本相同，如圖 所 圖 材料科目種類(lèi)字典界面 示，不同之處在于其增加了一個(gè)選擇材料類(lèi)別的下拉列表框，用戶可以通過(guò)該下拉列表框選擇要 操作的類(lèi)別，在此類(lèi)別下，用戶通過(guò)對(duì)各個(gè)瀏覽按鈕的操作，可以對(duì)此類(lèi)別內(nèi)的材料種類(lèi)進(jìn)行瀏覽，并可以對(duì)其進(jìn)行添加、刪除和修改操作。 再次，材料科目名稱(chēng)字典。材料科目名稱(chēng)字典的主要功能是對(duì)物資的三級(jí)目錄（材料名稱(chēng)）進(jìn)行管理和維護(hù)，其界面和功能與材料科目種類(lèi)字典基本相同，用戶在用下拉列表框選定相應(yīng)的材料類(lèi)別和種類(lèi)后，便可以通過(guò)瀏覽按鈕瀏覽此范圍內(nèi)的相應(yīng)材料信息，包括材料的名稱(chēng)、編號(hào)、規(guī)格和單位信息，并且用戶還可以通過(guò)添加、刪除和修改按鈕進(jìn)行相應(yīng)的操作，完成對(duì)具體物資信息的管理和維護(hù)。 最后，領(lǐng)料單位字典處理。領(lǐng)料單位 字典處理的主要功能是對(duì)領(lǐng)料單位的信息進(jìn)行管理和維護(hù)，其界面和功能與材料科目類(lèi)別字典大致相同，用戶可以利用首記錄、上一記錄、下一記錄和尾記錄等瀏覽按鈕對(duì)領(lǐng)料單位進(jìn)行瀏覽，并可以利用添加、刪除和修改按鈕來(lái)完成對(duì)領(lǐng)料單位名稱(chēng)的相關(guān)操作，點(diǎn)擊保存按鈕保存操作結(jié)果，點(diǎn)擊取消按鈕取消操作。在進(jìn)行刪除時(shí)，系統(tǒng)同樣會(huì)彈出確認(rèn)對(duì)話框，讓用戶確認(rèn)是否刪除，避免數(shù)據(jù)庫(kù)因操作的疏忽和失誤而被破壞。 如何實(shí)現(xiàn)與數(shù)據(jù)庫(kù)之間的鏈接 對(duì)于輔料物資系統(tǒng)的實(shí)現(xiàn)來(lái)講 ,如何建立與數(shù)據(jù)庫(kù)之間的鏈接 ,以及如何訪問(wèn)數(shù)據(jù)庫(kù) 是最為關(guān)鍵的環(huán)節(jié) ,本系統(tǒng)在處理這一問(wèn)題時(shí) ,主要是采用編程和利用 Visual Basic 提供的 數(shù)據(jù)庫(kù)控件兩種方式實(shí)現(xiàn)的。具體來(lái)講，首先，在實(shí)現(xiàn)與數(shù)據(jù)庫(kù)的鏈接這一環(huán)節(jié)上，一種方式就是使用編程語(yǔ)句來(lái)實(shí)現(xiàn)與數(shù)據(jù)庫(kù)之間的鏈接，主要關(guān)鍵語(yǔ)句如下： Public db As New Public rep As New Public ConnectString As String ConnectString = Provider=。Data Source= + + \ + 。Persist Security Info=False With db .ConnectionString = ConnectString .CursorLocation = adUseClient .Open End With = db = adUseClient = adOpenStatic = adLockBatchOptimistic 通過(guò)這一方式建立與數(shù)據(jù)庫(kù)的鏈接的好處在于：使用靈活，一旦建立了與數(shù)據(jù)庫(kù)的鏈接，隨時(shí)可以對(duì)數(shù)據(jù)進(jìn)行調(diào)用；面向全局，只要進(jìn)行一次鏈接，便可以在工程中的任一個(gè)窗體中實(shí)現(xiàn)對(duì)數(shù)據(jù)的調(diào)用。本系統(tǒng)中的大部分?jǐn)?shù)據(jù)調(diào)用都是通過(guò)此種鏈接進(jìn)行的，例如出庫(kù)單、入庫(kù)單以及報(bào)表中顯示的數(shù)據(jù)等等。另一種與數(shù)據(jù)庫(kù)之間的鏈接方式是通過(guò)數(shù)據(jù)庫(kù)控件實(shí)現(xiàn)的，主要是應(yīng)用 Adodc 控件來(lái)完成的。具體操作是將 Adodc 控件的ConnectionString 屬性設(shè)置為使用鏈接字符串： Provider=。Data Source=.\。Persist Security Info=False 來(lái)實(shí)現(xiàn)這一功能 。事實(shí)上，即便是使用Adodc 控件來(lái)建立于數(shù)據(jù)庫(kù)的鏈接，也可以用編程的方式實(shí)現(xiàn)，例如在系統(tǒng)中所用通過(guò)下拉列表框顯示數(shù)據(jù)的地方，其調(diào)用數(shù)據(jù)全部都是采用例如下面這樣的語(yǔ)句來(lái)實(shí)現(xiàn)的。 =Provider=。Data Source=.\。Persist Security Info=False = adCmdText = select * from clkm where clkmsl 0 and clkmbh not like 39。____0039。 and clkmbh like 39。 amp。 ch_clkmbh amp。 39。 其次，對(duì)數(shù)據(jù)的調(diào)用也主要是通 過(guò)編程和 Adodc 控件兩種方式實(shí)現(xiàn)的。其中，通過(guò)編程對(duì)數(shù)據(jù)庫(kù)的調(diào)用主要是通過(guò)先前定義的 rep 變量和 SQL 語(yǔ)句實(shí)現(xiàn)的。例如如下的這段出庫(kù)單的材料類(lèi)別下拉列表框中的數(shù)據(jù)調(diào)用語(yǔ)句： If adStateClosed Then End If = select clkmbh,clkmmc from clkm where clkmbh like 39。__000039。 Do While Not (clkmmc) Level1(I) = (clkmbh) I = I + 1 If Not Then End If Loop 而使用 Adodc 控件調(diào)用數(shù)據(jù)則主要是通過(guò)將 SQL 語(yǔ)句寫(xiě)入其 RecordSource 屬性框中，并采用對(duì)相應(yīng)的數(shù)據(jù)顯示控件的 DataSource 和 DataField 屬性進(jìn)行設(shè)置的方式來(lái)實(shí)現(xiàn)數(shù)據(jù)的調(diào)用與顯示。 如何利用 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ù)所在。其具體實(shí)現(xiàn)過(guò)程如下：首先，建立報(bào)表。建立一張報(bào)表主要是通過(guò)以下語(yǔ)句實(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ù)。從數(shù)據(jù)庫(kù)中調(diào)出數(shù)據(jù)主要是通過(guò)如下語(yǔ)句來(lái)實(shí)現(xiàn)的。 If adStateClosed Then = select distinct lldwbh,lldwmc,rkdclmc,rkdclmcbh,rkdclmcgg,rkdclmcdw,sum(rkdclsl),sum(rkdclzje),left(rkrq,10) from rkd where flag=39。出庫(kù) 39。 and left(rkrq,7)=39。 amp。 Left(Month, 7) amp。 39。 group by rkdclmcbh,lldwbh,lldwmc,rkdclmc,rkdclmcbh,rkdclmcgg,rkdclmcdw,left(rkrq,10) order by lldwbh,rkdclmcbh,left(rkrq,10) 再次，繪制工作表。其步驟如下（以繪制部門(mén)消耗月報(bào)表為例）：先通過(guò)語(yǔ)句 來(lái)將工作表激活，再用語(yǔ)句 (1, 1).Value = 部門(mén)消耗月報(bào)表 + Left(Month, 10)和 (1, 1). = 20 來(lái)建立表頭，再用以下這段語(yǔ)句 來(lái)實(shí)現(xià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)表。在表格 繪 制 好 之 后 ， 就 可 以 通 過(guò) 語(yǔ) 句 來(lái)預(yù)覽報(bào)表，之后通過(guò)以下語(yǔ)句來(lái)保存并退出報(bào)表。 If Dir( + \報(bào)表 \ + Left(Month, 7) + 部門(mén)消耗 .xls) Then Kill + \報(bào)表 \ + Left(Month, 7) + 部門(mén)消耗 .xls End If + \報(bào)表 \ + Left(Month, 7) + 部門(mén)消耗 .xls (關(guān)閉工作簿 ) 參考文獻(xiàn) 《 Visual Basic 程序調(diào)試參考手冊(cè)》 作者： Clay Shannon 譯者：王曉慧 趙蘭陽(yáng) 出版社： 中國(guó)清華大學(xué)出版社 《 Access 2020 數(shù)據(jù)庫(kù)開(kāi)發(fā)自學(xué)教程》 【出 版 社】人民郵電出版社 作者：李明 結(jié) 語(yǔ) 總之，針對(duì)物資管理部門(mén)采用手工管理時(shí)所出現(xiàn)的工作效率低、層次多、重復(fù)勞動(dòng)多、管理復(fù)雜、數(shù)據(jù)統(tǒng)計(jì)緩慢，而且非常容易出差錯(cuò)的問(wèn)題，輔料物資管理系統(tǒng)所具有的各種功能不僅可以有 效的提高工作效率、避免重復(fù)勞動(dòng)、簡(jiǎn)化操作，而且可以有效的防止操作中的差錯(cuò)出現(xiàn)，大大降低工作人員的工作難度，減輕工作人員的負(fù)擔(dān)，因此是一種很好的輔助管理工具。另外，其友好的系統(tǒng)工作界面、簡(jiǎn)單快捷操作方式、完善的數(shù)據(jù)查詢(xún)功能、合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)、以及簡(jiǎn)單方便的報(bào)表打印功能不僅滿足了用戶的主要需求，而且還有著手工操作所不能比擬的準(zhǔn)確、方便、快捷的特點(diǎn)。因此，對(duì)其的開(kāi)發(fā)與研究不僅具有理論意義，而且還具有一定的現(xiàn)實(shí)意義。 另外，通過(guò)這一段時(shí)間地學(xué)習(xí)與實(shí)踐，才真正地認(rèn)識(shí)到畢業(yè)設(shè)計(jì)是對(duì)本科四年學(xué)習(xí)的一個(gè)很好地鞏固。邊學(xué)習(xí)邊 設(shè)計(jì)，理論結(jié)合實(shí)踐，不僅提高了自學(xué)能力，而且鍛煉了自己實(shí)際動(dòng)手的能力。這期間，遇到過(guò)很多困難，但通過(guò)學(xué)習(xí)與請(qǐng)教老師和同學(xué)都一一加以解決，并從中得到了很多啟示。 原文已完。下文為附加文檔，如不需要，下載后可以編輯刪除，謝謝！ 信用社營(yíng)業(yè)部經(jīng)理季度個(gè)人總結(jié) 一季度，在聯(lián)社領(lǐng)導(dǎo)的正確領(lǐng)導(dǎo)下，我按照山西省農(nóng)村信用社營(yíng)業(yè)經(jīng)理的相關(guān)辦法，認(rèn)真學(xué)習(xí)政治業(yè)務(wù)知識(shí)和金融法律法規(guī)，嚴(yán)格履行崗位職責(zé)和行使管理與監(jiān)督職能，以貫徹落實(shí)上級(jí)的各項(xiàng)工作為目標(biāo)，抓落實(shí)，規(guī)范財(cái)務(wù)核算，努力實(shí)現(xiàn)全社財(cái)務(wù)狀況的根本好轉(zhuǎn)，同時(shí)并積極做 好了各項(xiàng)報(bào)表與任務(wù)完成情況的上報(bào)等工作，較好地完成了各項(xiàng)工作任務(wù)?，F(xiàn)就本季度主要工作述職如下： 一、主要工作完成指標(biāo) （一）業(yè)務(wù)指標(biāo)完成情況 截至 20XX 年月 31 日，我社各項(xiàng)存款余額 **萬(wàn)元， （二） 管理指標(biāo)完成情況 本季度我社嚴(yán)格按照上級(jí)聯(lián)社和我社制定的全年工作要點(diǎn)展開(kāi)工作，確保了各項(xiàng)業(yè)務(wù)穩(wěn)健運(yùn)行，員工素質(zhì)進(jìn)一步提高，營(yíng)造了良好的內(nèi)外部環(huán)境，為各項(xiàng)目標(biāo)的順利實(shí)現(xiàn)奠定了良好的基礎(chǔ)。 二、重點(diǎn)工作報(bào)告 （一）假幣的防范和處理。針對(duì)一季度發(fā)現(xiàn)假幣較多的情況，強(qiáng)調(diào)柜員要提高警惕，假 幣一旦進(jìn)入柜臺(tái)就不可再次流通，應(yīng)及時(shí)蓋假幣章，尤其是對(duì) M3W9 開(kāi)頭的假幣要重點(diǎn)防范 407。 （二）做好開(kāi)展 “ 自助有好禮，月月送不停 ” 自助終端業(yè)務(wù)宣傳及營(yíng)銷(xiāo)的活動(dòng)。 （三）讓員工學(xué)習(xí)并貫徹執(zhí)行 “ 山西省農(nóng)村信用社企業(yè)文化大綱 ” 。即堅(jiān)定服務(wù)三農(nóng)的方向、牢記 “ 誠(chéng)信、合規(guī)、責(zé)任、團(tuán)隊(duì) ” 的企業(yè)核心價(jià)值觀以及 “ 開(kāi)拓、進(jìn)取、務(wù)實(shí)、創(chuàng)新 ” 的企業(yè)精神。 （四）積極配合檢查人員的工作，準(zhǔn)備好相關(guān)資料。包括： 2020 年四