【正文】 決策者提供更有效地利用資源的分析數(shù)據(jù)。Visual Basic的強(qiáng)大功能中數(shù)據(jù)窗口技術(shù)由于其簡(jiǎn)單、直觀、功能強(qiáng)大等特點(diǎn)成為本系統(tǒng)使用最多的技術(shù)。本系統(tǒng)結(jié)合工業(yè)企業(yè)的生產(chǎn)中的特點(diǎn)經(jīng)過(guò)實(shí)際的需求分析，采用功能強(qiáng)大的Visual Server 2000 作為開(kāi)發(fā)工具而開(kāi)發(fā)出來(lái)的企業(yè)進(jìn)銷(xiāo)存管理系統(tǒng)。而企業(yè)生產(chǎn)制造的關(guān)鍵在于如何規(guī)劃和計(jì)劃各種資源在時(shí)間、地點(diǎn)、產(chǎn)品之間的合理配備，如何按計(jì)劃監(jiān)督責(zé)任方對(duì)資源的使用情況，如何根據(jù)預(yù)測(cè)和歷史情況為決策者提供更有效地利用資源的分析數(shù)據(jù)。并設(shè)計(jì)了幾個(gè)小模塊，以實(shí)現(xiàn)數(shù)據(jù)的處理、查詢(xún)、統(tǒng)計(jì)及維護(hù)等功能。隨著計(jì)算機(jī)在企業(yè)管理中應(yīng)用的普及，利用計(jì)算機(jī)實(shí)現(xiàn)企業(yè)的各種管理工作勢(shì)在必行。利用它既可以開(kāi)發(fā)功能強(qiáng)大的、運(yùn)行在多個(gè)平臺(tái)的、能夠操作多個(gè)數(shù)據(jù)庫(kù)的應(yīng)用系統(tǒng)，還可以開(kāi)發(fā)客戶(hù)/服務(wù)器、分布式、因特網(wǎng)應(yīng)用系統(tǒng)。這些優(yōu)點(diǎn)能夠極大地提高生產(chǎn)管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。如果對(duì)界面的效果不滿(mǎn)意，還要回到程序中修改。每個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢(xún)語(yǔ)言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問(wèn)服務(wù)器上的數(shù)據(jù)庫(kù)，并提供了簡(jiǎn)單的面向?qū)ο蟮膸?kù)操作指令和多用戶(hù)數(shù)據(jù)庫(kù)訪問(wèn)的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫(kù)的SQL的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫(kù)提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶(hù)/服務(wù)器(client/server)方案。SQL Server ，它具有非常好的再造和重寫(xiě)特性。在我們的此次設(shè)計(jì)中我們應(yīng)用了ADO中的對(duì)象有：Command （運(yùn)行SQL語(yǔ)句或存儲(chǔ)過(guò)程）、Connection（用于管理連接數(shù)據(jù)庫(kù)或其他OLE DB數(shù)據(jù)提供者所需要的信息）、Error（包含特定錯(cuò)誤的有關(guān)信息）、Errors（包含一個(gè)Error對(duì)象集合）、Field（包含數(shù)據(jù)庫(kù)中特定字段的信息）、Fields（包含一個(gè)Field對(duì)象的集合）、Record（說(shuō)明Recordset對(duì)象、文件或電子郵件信息中的一個(gè)數(shù)據(jù)行）、 Recordset（用于管理詢(xún)問(wèn)操作產(chǎn)生的行組）。 本文所工作第一章緒論部分緒論主要敘述課題提出背景、目前應(yīng)用現(xiàn)狀、分析比較當(dāng)前開(kāi)發(fā)工具，數(shù)據(jù)庫(kù)技術(shù)的比較?？蛻?hù)信息，包括的數(shù)據(jù)項(xiàng)有：客戶(hù)編號(hào)，客戶(hù)名稱(chēng)，地址，郵政編碼，電話號(hào)碼，公司主頁(yè)，電子郵件地址，稅號(hào)，銀行賬戶(hù)，開(kāi)戶(hù)銀行，聯(lián)系人，備注信息等。庫(kù)存信息，包括的數(shù)據(jù)項(xiàng)有：更新日期，編號(hào)，倉(cāng)庫(kù)編號(hào)，產(chǎn)品編號(hào)，數(shù)量，單價(jià)，總金額，備注信息等。數(shù)據(jù)庫(kù)設(shè)計(jì)既是一項(xiàng)涉及多學(xué)科的綜合性技術(shù)，有時(shí)一項(xiàng)龐大的工程項(xiàng)目數(shù)據(jù)庫(kù)建設(shè)是硬件、軟件、和干件的結(jié)合；數(shù)據(jù)庫(kù)設(shè)計(jì)應(yīng)該和應(yīng)用系統(tǒng)設(shè)計(jì)相結(jié)合，即整個(gè)設(shè)計(jì)過(guò)程中要把結(jié)構(gòu)設(shè)計(jì)和行為設(shè)計(jì)緊密結(jié)合起來(lái)。我們根據(jù)數(shù)據(jù)庫(kù)的需求分析和概念結(jié)構(gòu)設(shè)計(jì)，設(shè)計(jì)了我們所需的數(shù)據(jù)庫(kù)。executes SQL and returns Recordset Dim n As Dim rst As Dim sTokens() As String On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set n = New ConnectString If InStr(INSERT,DELETE,UPDATE,EXECUTE, _ UCase$(sTokens(0))) Then (SQL) MsgString = sTokens(0) amp。函數(shù)執(zhí)行時(shí)，首先判SQL語(yǔ)句中包含的內(nèi)容：當(dāng)執(zhí)行查詢(xún)操作時(shí)，ExecuteSQL函數(shù)將返回一個(gè)與函數(shù)同名的對(duì)象集（Recordset）,所有滿(mǎn)足條件的記錄包含在對(duì)象中；當(dāng)執(zhí)行如刪除、更新、添加等操作時(shí)，不返回記錄集。initial catalog=My_FactoryEnd Function在錄入有關(guān)信息時(shí)，需要回車(chē)來(lái)進(jìn)入下一個(gè)框，這樣對(duì)軟件的使用非常方便。系統(tǒng)需要知道登錄的用戶(hù)的信息，定義全局變量UserName：Public username As String添加全局變量，用來(lái)記錄各個(gè)功能功能的讀寫(xiě)狀態(tài)，代碼如下：Public gintWZSmode As Integer 39。for din huo　　　　　訂單設(shè)置全局變量Public gintINHmode As Integer 39。在載入窗體將自動(dòng)載入所有記錄，代碼如下：Private Sub ShowTitle() Dim i As Integer With msgList .Cols = 11 .TextMatrix(0, 1) = 款號(hào) .TextMatrix(0, 2) = 名稱(chēng) .TextMatrix(0, 3) = 單位 .TextMatrix(0, 4) = 類(lèi)別 .TextMatrix(0, 5) = 入庫(kù)價(jià)格 .TextMatrix(0, 6) = 分銷(xiāo)價(jià)格 .TextMatrix(0, 7) = 零售價(jià)格 .TextMatrix(0, 8) = 生產(chǎn)廠家 .TextMatrix(0, 9) = 設(shè)置日期 .TextMatrix(0, 10) = 備注信息 39?？刂瓶丶奈恢? = = ( ) / 2 = + + / 2 = 200 = + 100 = 1500 = + + 50 = / 2 3000 End IfEnd Sub在產(chǎn)品設(shè)置窗體中單擊“添加”按鈕，出現(xiàn)如圖所示的窗體。 請(qǐng)輸入數(shù)字！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount 39。 Trim(txtItem(0)) amp。 Next intCount txtSQL = txtSQL amp。 Next intCount txtSQL = txtSQL amp。 39。 在我們的設(shè)計(jì)中考慮一般的進(jìn)貨分為兩步：第一是到供應(yīng)商簽訂訂貨單，達(dá)成進(jìn)貨的意向；第二是產(chǎn)品到貨并入庫(kù)完成產(chǎn)品入庫(kù)、庫(kù)存更新。 amp。選擇記錄的內(nèi)容將顯示在窗體中，可以進(jìn)行修改，然后保存修必后的記錄。 For intCount = 3 To 7 txtSQL = txtSQL amp。 For intCount = 0 To 2 txtSQL = txtSQL amp。 39。將首先判斷輸入內(nèi)容是否滿(mǎn)足要求，然后添加到數(shù)據(jù)庫(kù)中。設(shè)置單元大小 .ColWidth(0) = 1000 .ColWidth(1) = 1000 .ColWidth(2) = 2000 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColWidth(5) = 1000 .ColWidth(6) = 1000 .ColWidth(7) = 1000 .ColWidth(8) = 1000 .ColWidth(9) = 1000 .ColWidth(10) = 1000 .Row = 1 End WithEnd Sub函數(shù)ShowData把各條記錄加到表格中，并顯示出來(lái)，代碼如下：Private Sub ShowData() Dim j As Integer Dim i As Integer Dim msgText As String Set mrc = ExecuteSQL(txtSQL, msgText) With msgList .Rows = 1 Do While Not .Rows = .Rows + 1 For i = 1 To If Not IsNull(Trim((i 1))) Then Select Case (i 1).Type Case adDBDate .TextMatrix(.Rows 1, i) = Format((i 1) amp。for shang pin zhuan cang　產(chǎn)品轉(zhuǎn)倉(cāng)全局變量Public gintGETmode As Integer 39。for YWYLB setup業(yè)務(wù)員類(lèi)別設(shè)置全局變量Public gintYWYSmode As Integer 39。如果登錄者是授權(quán)用戶(hù)，將進(jìn)入系統(tǒng)，否則將停止程序的執(zhí)行。Persist Security Info =False。 amp。狀態(tài)控件需要在通常的屬性窗口中設(shè)置一般的屬性，還需要在其他特有的彈出式菜單中進(jìn)行設(shè)置。本系統(tǒng)采用自底向上方法，即自頂向下進(jìn)行需求分析，然后在自底向上底設(shè)計(jì)概念結(jié)構(gòu)。包括訂貨單的管理，入庫(kù)單的管理以及進(jìn)貨信息的查詢(xún)等。倉(cāng)庫(kù)信息，包括的數(shù)據(jù)項(xiàng)有：倉(cāng)庫(kù)編號(hào)，倉(cāng)庫(kù)名稱(chēng)。第二章 需求分析2．1總體需求調(diào)查 組織結(jié)構(gòu)圖廠 長(zhǎng)副廠長(zhǎng)室總 工 室廠 長(zhǎng) 室材 料 科銷(xiāo) 售 科采 購(gòu) 科 系統(tǒng)目標(biāo) 本系統(tǒng)是根據(jù)工業(yè)企業(yè)的生產(chǎn)過(guò)程，控制生產(chǎn)過(guò)程中的材料消耗，產(chǎn)品銷(xiāo)售，銷(xiāo)售成本等數(shù)據(jù)，具體管理范圍包括材料采購(gòu)，材料庫(kù)存，生產(chǎn)計(jì)劃，生產(chǎn)控制，物料需求，產(chǎn)品購(gòu)進(jìn)，產(chǎn)品銷(xiāo)售，產(chǎn)品產(chǎn)出等。Record對(duì)象代表記錄集中的一個(gè)數(shù)據(jù)行，也代表一個(gè)文件或一條電子郵件信息中的數(shù)據(jù)行；Stream對(duì)象為控制文件或電子郵件信息中的數(shù)據(jù)提供了便利的條件。SQL Server 2000對(duì)XML 和HTTP提供充分的支持；提供分割裝載和確保時(shí)間的特性；提供先進(jìn)的管理和協(xié)調(diào)機(jī)制，可以自動(dòng)管理線程任務(wù)，降低總體開(kāi)銷(xiāo)。動(dòng)態(tài)鏈接庫(kù)(DLL)Visual Basic是一種高級(jí)程序設(shè)計(jì)語(yǔ)言，不具備低級(jí)語(yǔ)言的功能，對(duì)訪問(wèn)機(jī)器硬件的操作不太容易實(shí)現(xiàn)。這些過(guò)程分別面向不同的對(duì)象，由用戶(hù)操作引發(fā)某個(gè)事件來(lái)驅(qū)動(dòng)完成某種特定的功能，或者由事件驅(qū)動(dòng)程序調(diào)用通用過(guò)程來(lái)執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。Visual Basic自動(dòng)產(chǎn)生界面設(shè)計(jì)代碼，程序設(shè)計(jì)人員只需要編寫(xiě)實(shí)現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計(jì)的效率。目前在我國(guó)市場(chǎng)上最為流行、使用最多、最為先進(jìn)的可用作企業(yè)級(jí)開(kāi)發(fā)工具的產(chǎn)品有：Microsoft公司的Visual BasicMicrosoft公司的SQL Server 2000Microsoft公司的ActiveX Data ObjectsVisual Basic是一種可視化的、面向?qū)ο蠛蜅l用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì)，可用于開(kāi)發(fā)Windows環(huán)境下的各類(lèi)應(yīng)用程序。由于時(shí)間關(guān)系和自身的水平，我們的設(shè)計(jì)并不完善，其中也難免有錯(cuò)誤之處，也請(qǐng)各位老師給予批評(píng)和指導(dǎo)。自從推出以來(lái)，它受到社會(huì)的廣泛注意。論文主要介紹了本課題的開(kāi)發(fā)背景，所要完成的功能和開(kāi)發(fā)的過(guò)程。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)?！菊窟M(jìn)入二十一世紀(jì)以來(lái)，隨著社會(huì)的不斷進(jìn)步和科學(xué)技術(shù)的飛速發(fā)展，信息技術(shù)進(jìn)入了爆炸式的年代，信息技術(shù)與人們的生活工作已息息相關(guān)、密不可分。該系統(tǒng)的數(shù)據(jù)庫(kù)使用了 SQL Server 2000。重點(diǎn)的說(shuō)明了系統(tǒng)設(shè)計(jì)的重點(diǎn)、設(shè)計(jì)思想、難點(diǎn)技術(shù)和解決方案。近二十年來(lái)，SQL不斷將先進(jìn)的數(shù)據(jù)庫(kù)技數(shù)融入其中，并極有預(yù)見(jiàn)性地領(lǐng)導(dǎo)著全球數(shù)據(jù)庫(kù)技術(shù)的發(fā)展。第一章　緒論隨著計(jì)算機(jī)技術(shù)的飛速發(fā)展，計(jì)算機(jī)在企業(yè)管理中應(yīng)用的普及，利用計(jì)算機(jī)實(shí)現(xiàn)企業(yè)的生產(chǎn)管理勢(shì)在必行。它簡(jiǎn)單易學(xué)、效率高，且功能強(qiáng)大。面向?qū)ο蟮某绦蛟O(shè)計(jì) Basic支持面向?qū)ο蟮某绦蛟O(shè)計(jì)，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言(C++)不完全相同。訪問(wèn)數(shù)據(jù)庫(kù)Visual Basic具有強(qiáng)大的數(shù)據(jù)庫(kù)管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫(kù)管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫(kù)，并提供了強(qiáng)大的數(shù)據(jù)存儲(chǔ)和檢索功能。但它可以通過(guò)動(dòng)態(tài)鏈接庫(kù)技術(shù)將C/C++或匯編語(yǔ)言編寫(xiě)的程序加入到Visual Basic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語(yǔ)言編寫(xiě)的函數(shù)。除此而外SQL Server 2000充分的利用了Windows 2000的功能。Record對(duì)象用于說(shuō)明諸如此類(lèi)的信息：文件系統(tǒng)中的子目錄和文件、電子郵件系統(tǒng)中的文件夾或信息。 核心任務(wù)本系統(tǒng)的主要功能是制定生產(chǎn)/采購(gòu)計(jì)劃，物料需求計(jì)算，材料供求分析，其核心任務(wù)是：降低材料成本，降低庫(kù)存成本，縮短生產(chǎn)/采購(gòu)周期，如何獲得更高的利潤(rùn)。進(jìn)貨訂單信息，包括的數(shù)據(jù)項(xiàng)有：訂貨日期，編號(hào)，業(yè)務(wù)員，供應(yīng)商編號(hào)，產(chǎn)品編號(hào)，數(shù)量，單價(jià)，折扣比例，總金額，備注信息等。