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