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