【正文】 的能量，擁有的信息越多，越懂得利用信息，你就能擁有更大的競(jìng)爭(zhēng)力，就能 在自己的領(lǐng)域中獲取更多的利益。 手工成品管理系統(tǒng)的管理者和普通員工的工作歷來(lái)工作量比較大，任務(wù)非常繁瑣，特別容易出錯(cuò)。本手工成品管理系統(tǒng)就是在這設(shè)計(jì)背景背景下設(shè)計(jì)開(kāi)發(fā)的。 都是為了手工工作室成品管理與成品有關(guān)的管理更方便快捷。這 些員工基本信息在部門信息里面輸入，區(qū)分每個(gè)員工用戶的表示符是工號(hào)。庫(kù)存管理模塊主要是材料和成品庫(kù)存信息。將材料進(jìn)貨、成品銷售、材料成品庫(kù)存相結(jié)合，及時(shí)記錄工作信息和反饋工作，減少工作數(shù)據(jù)滯留時(shí)間， 降低 時(shí)間成本和效益成本 ，進(jìn)而提高 材料和成品 周轉(zhuǎn)率，才能減少因 各種操作 風(fēng)險(xiǎn)造成 的進(jìn)一步 損失，從而 提高利潤(rùn) 。系統(tǒng)包括基本信息管理，部門信息管理，入庫(kù)管理，出庫(kù)管理和系統(tǒng)管理等模塊，系統(tǒng)實(shí)現(xiàn)了信息查詢、修改、刪除、打印、統(tǒng)計(jì)等主要功能。 (2)既有成品信息的管理同時(shí)還有材料信息的管理，使系統(tǒng)更加完善。 (4)不同的操作員 可以設(shè)置其管理權(quán)限，既增加系統(tǒng)安全性又使系統(tǒng)管理更清晰快捷。手工成品管理系統(tǒng)進(jìn)行了高度的監(jiān)控對(duì)于成品有關(guān)的信息采用 分類 處理的方式 ，縮短了 工作室 信息流轉(zhuǎn)時(shí)間，使 工作室 的 各種 物資 管理層次 非常 分明，為 材料 采購(gòu)、 成品 銷售提供依據(jù) 。完善 的 手工成品管理系統(tǒng) ， 可對(duì)工作室 的 材料和成品 進(jìn)行 總體的管理 ， 對(duì)員工的部門信息和員工基本信息以及各個(gè)用戶的操作權(quán)限進(jìn)行控制和管理。 時(shí)代在飛速地發(fā)展，工作室將操作電腦化，手工成品和材料入庫(kù)、出庫(kù)、統(tǒng)計(jì)查詢等等已成為現(xiàn)在急需發(fā)展的趨勢(shì)。系統(tǒng)的主要特點(diǎn)是自己開(kāi)發(fā)的系統(tǒng)有哪些創(chuàng)新點(diǎn)和新穎的特點(diǎn)，系統(tǒng)的發(fā)展趨勢(shì)敘述 了關(guān)于此系統(tǒng)市場(chǎng)上有多少關(guān)于此的研究，有哪些有點(diǎn)缺點(diǎn)以及它的發(fā)展趨勢(shì)。 第三章 是系統(tǒng)的分析，包括其可行性有經(jīng)濟(jì)可行性，技術(shù)可行性和操作可行性，需求分析，以及系統(tǒng)的邏輯規(guī)劃數(shù)據(jù)流圖以及數(shù)據(jù)字典。 第五章 是系統(tǒng)的詳細(xì)設(shè)計(jì)包括了系統(tǒng)功能 模塊的具體實(shí)現(xiàn)，有系統(tǒng)主要?jiǎng)e的窗體以及其代碼實(shí)現(xiàn)。隨后的就是畢業(yè)設(shè)計(jì)體會(huì)和參考文獻(xiàn)以及英文翻譯資料。 隨著版本的不斷改進(jìn)和功能的日益完善， Visual Basic 已日漸成為容易上手和使用、功能強(qiáng)大的編程工具。 這個(gè)平臺(tái) 具有以下的特色 ： （ 1） 這個(gè)平臺(tái)是 可信任的 使得用戶在運(yùn)行他們最主要和最關(guān)鍵的應(yīng)用程序時(shí)保證他們的高度安全性和數(shù)據(jù)可靠性以及應(yīng)用程序和功能的可擴(kuò)展性 [3]。 （ 3） 這個(gè)平臺(tái)是 智能的 這個(gè)數(shù)據(jù)平臺(tái)是一個(gè)全面全新的平臺(tái)，智能給用戶發(fā)送觀察情況和數(shù)據(jù)信息在用戶需要的時(shí)候 [4]。很多廠商不斷開(kāi)發(fā)有關(guān)商業(yè)產(chǎn)品因?yàn)榘l(fā)現(xiàn)了此類產(chǎn)品蘊(yùn)含的巨大商機(jī)，并且將 SQL 語(yǔ)言作為關(guān)系數(shù)據(jù)庫(kù)有關(guān)產(chǎn)品事實(shí)上的依據(jù)標(biāo)準(zhǔn)。 SQL 語(yǔ)言不是一個(gè)過(guò)程化的數(shù)據(jù)庫(kù)，主要是由于每次只能處理一個(gè)操作記錄，對(duì)要操作的數(shù)據(jù)提供自動(dòng)指導(dǎo)航向的 功能。 4 ADO 控件 可視化對(duì)象 ADO 控件是 vb 提供的一個(gè)重要的連接數(shù)據(jù)庫(kù)的一個(gè)重要控件，用來(lái)完成代碼與數(shù)據(jù)庫(kù)的連接。完成對(duì)數(shù)據(jù)庫(kù)的訪問(wèn)可以不用一句代碼，可以用 DataSource 這一屬性 [7]。 ADO 控件這幾個(gè)獨(dú)立對(duì)象都是連接操作數(shù)據(jù)庫(kù)的用的比較多的方法。一些靠手操作帶來(lái)的缺點(diǎn)可以很好的彌補(bǔ)，對(duì)一些主要的功能和業(yè)務(wù)集體地管理，既減少了任務(wù)量，又能使工作室的工作效率變得快速，準(zhǔn)確度也變得很高。 技術(shù)可行性 開(kāi)發(fā)本手工成品管理系統(tǒng)所使用的 Visual Basic 和 SQL Server 2020 是微軟公司推出的兩個(gè)相對(duì)比較成熟的軟件和數(shù)據(jù)庫(kù)開(kāi)發(fā)工具。開(kāi)發(fā)軟件的人 可以輕松的使用 VB 提供的控件創(chuàng)建 一個(gè)應(yīng)用程序 [8]。 VB 是真正的面向?qū)ο缶幊?，給這些對(duì)象賦予一些屬性，這些對(duì)象就是一些有其自己屬性的試題。技術(shù)上是完全可以操作的。系統(tǒng)的操作形式在用戶組織內(nèi)是完全行的通的。用戶唯一的標(biāo)識(shí)符是工號(hào)，其默認(rèn)的登陸密碼是其工號(hào)，可以對(duì)密碼進(jìn)行修改。 其次系統(tǒng)還有部門信息管理，有員工的部門信息管理其中有部門管理和職務(wù)類型管理，還有員工信息管理。 系統(tǒng)為了要完成此手工成品的管理主要的也是成品的倉(cāng)庫(kù)管理。 系統(tǒng)的邏輯規(guī)劃 系統(tǒng)流圖 數(shù)據(jù)流圖有外部實(shí)體、內(nèi)部存儲(chǔ)和數(shù)據(jù)項(xiàng)，數(shù)據(jù)流圖不是數(shù)據(jù)流程圖，不是數(shù)據(jù)登陸系統(tǒng)的操作步驟，只是系統(tǒng)的信息與系統(tǒng)的交互。 6 用 戶系 統(tǒng)用 戶 操 作 請(qǐng) 求操 作 反 饋材 料 供 應(yīng) 商倉(cāng) 庫(kù)成 品 買 家材料入庫(kù)信息材料進(jìn)貨信息材 料 出 入 庫(kù) 信 息成 品 出 入 庫(kù) 信 息操 作 反 饋成 品 出 庫(kù) 信 息購(gòu) 買 信 息請(qǐng)求付款賬款新息反饋賬 款 信 息請(qǐng) 求 付 款 圖 頂層數(shù)據(jù)流圖 7 用 戶P 1用 戶登 錄D 2用 戶權(quán) 限管 理D 1用 戶 表D 2用 戶 權(quán) 限 表D 3材 料 基 本信 息 表P 3基 本 信息 管 理D 4成 品 基 本 信息 表D 5供 應(yīng) 商信 息 表D 6買 家 信 息表P 4材 料入 庫(kù)供 應(yīng) 商D 6材 料 入 庫(kù)信 息 表P 5貨 款 處理D 7賬 款 信 息表買 家P 6成 品出 庫(kù)D 7成 品 出 庫(kù)信 息 表P 8材 料 出 庫(kù)成 品 入 庫(kù)倉(cāng) 庫(kù)P 8庫(kù) 存 信 息表 圖 0 層數(shù)據(jù)流圖 8 第 4 章 系統(tǒng)總體設(shè)計(jì) 系統(tǒng)功能模塊設(shè)計(jì) 通過(guò)系統(tǒng)的功能模塊設(shè)計(jì)可以把系統(tǒng)的組織明確清晰地表現(xiàn)出來(lái)，這樣能夠使系統(tǒng)更加清晰，把一個(gè)個(gè)模塊獨(dú)立設(shè)計(jì)當(dāng)成一個(gè)個(gè)獨(dú)立的整體，這樣可以減少錯(cuò)誤的蔓延 [10]。 手 工 成 品 管 理 系 統(tǒng)基本信息管理部門信息管理入庫(kù)管理出庫(kù)管理庫(kù)存管理系統(tǒng)管理 圖 系統(tǒng)功能模塊圖 數(shù)據(jù)庫(kù)及其標(biāo)準(zhǔn) 在對(duì)系統(tǒng)的數(shù)據(jù)庫(kù)的實(shí) 際策劃中，第一要點(diǎn)的要提供手工成品管理系統(tǒng)實(shí)現(xiàn)的藍(lán)圖，而要實(shí)現(xiàn)這一要點(diǎn)就是要數(shù)據(jù)建模。 數(shù)據(jù)庫(kù)設(shè)計(jì)好壞的一般標(biāo)準(zhǔn)是 [12]： 數(shù)據(jù)庫(kù)設(shè)計(jì)的數(shù)據(jù)必須包括與本系統(tǒng)所需要的全部信息，必須保證數(shù)據(jù)的完備性。 在滿足前面兩個(gè) 標(biāo)準(zhǔn)的前提下，要保證數(shù)據(jù)庫(kù)的語(yǔ)句語(yǔ)義規(guī)范。關(guān)系到數(shù)據(jù)庫(kù)和代碼的操作 [13]。 表的信息如下所示。 都是為了手工工作室成品管理與成品有關(guān)的管理更方便快捷。這些員工基本信息在部門信息里面輸入，區(qū)分每個(gè)員工用戶的表示符是工號(hào)。庫(kù)存管理模塊主要是材料和成品庫(kù)存信息。其代碼如下所示。定義一個(gè)公共函數(shù)聲明一個(gè) Connection 對(duì)象，返回一個(gè)數(shù)據(jù)庫(kù) Set con = New 39。Persist Security Info=False。Initial Catalog=ERP1。 圖 主窗體界面 14 供應(yīng)商管理 界面如圖 所示。打開(kāi) 供應(yīng)商信息表 39。如果 rs2 的記錄集不為空 If Not Then 39。如果字段票號(hào)不為空 lsph = Right(Trim((供應(yīng)商編號(hào) )), 4) + 1 39。 gys amp。格式化進(jìn)貨票號(hào) End If 39。如果記錄集為空 Txt_info(0).text = Date amp。 0001 39。結(jié)束 If 語(yǔ)句 Txt_info(1).Enabled = True End Sub Private Sub Cmd_del_Click() 15 Dim rs As New If MsgBox(確認(rèn)刪除此供應(yīng)商信息？ , vbInformation + vbYesNo, 信息提示 ) = vbYes Then select * from 供應(yīng)商信息表 where 供應(yīng)商編號(hào) =39。 Txt_info(0).text amp。, con, adOpenKeyset, adLockOptimistic If 0 Then Command1_Click Dim i As Integer For i = 0 To 9 Txt_info(i).text = Next i End If End Sub 買家管理模塊和供應(yīng)商模塊類似，在此處不再贅述 成品結(jié)構(gòu)信息管理 界面如圖 所示。 amp。 39。 部門管理 界面如圖 所示。添加同級(jí) tlbState False blnTJ = True blnAdd = True 17 For i = 0 To Text1(i).text = Next i If 0 Then 39。 + + 39。打開(kāi)部門信息表，部門全稱為模糊查詢它父節(jié)點(diǎn)編號(hào)和本級(jí)編碼級(jí)次 select * from 部門信息表 where 部門全稱 like 39。+39。and 編碼級(jí)次 = amp。 , con, adOpenKeyset, adLockOptimistic If 0 Then 39。記錄集移動(dòng)到最后一個(gè) Text1(1) = Format(Val((本級(jí)編號(hào) )) + 1, 00) 39。 Text1(1) 39。記錄集小于 0 Text1(1) = 01 39。 01 39。修改 blnAdd = False tlbState False lngOL = Len(( amp。 ) amp。 圖 成品入庫(kù)錄入界面 19 其主要代碼如下： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If = 1 Then If KeyCode = vbKeyReturn Then If = False Then = True Else = False = select * from 成品 入庫(kù)信息表 End If End If End If End Sub 材料入庫(kù)錄入和此類似不再贅述 成品入庫(kù)分析 成品入庫(kù)分析管理界面如圖 所示。%39。 + + 39。%39。 + + 39。39。 + m + 39。%39。%39。 + + 39。%39。 + + 39。039。 + m + 39。%39。 月 arrvalues(i, 2) = Trim((合計(jì) )) 39。 + + 39。%39。圖表顯示數(shù)據(jù) = amp。圖表名稱 If = Then MsgBox 請(qǐng)完善檢索條件！ End If End Sub 材料入庫(kù)分析和此類似，不再贅述 材料賬款管理 其界面入圖 所示。 還款金額 =0 find 39。剩余欠款 =欠款金額 還款金額 End Sub Private Sub find() Dim rs As New select sum(欠款金額 )as 欠款 from 材料賬款信息表 where 供應(yīng)商名稱 =39。 amp。, con, adOpenKeyset, adLockOptimistic = Format((欠款 ), ) 21 = select * from 供應(yīng)商信息表 where 供應(yīng)商名稱 =39。 amp。 If 0 Then = (地址 ) = (聯(lián)系人 ) = (聯(lián)系人電話 ) End If End Sub 出庫(kù)管理模塊和入庫(kù)管理模塊類似，在此不再贅述 庫(kù)存信息管理模塊 成品庫(kù)存信息界面如圖 所示。查詢庫(kù)存信息 = select * from 成品庫(kù)存信息表 where ( amp。 like + 39。+39。) Se