【正文】 言分解翻譯成計算機可以識別的機器指令，并判斷每個語句的語法錯誤。訪問數(shù)據(jù)庫Visual Basic具有強大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫，并提供了強大的數(shù)據(jù)存儲和檢索功能。對象的鏈接與嵌入(OLE)對象的鏈接與嵌入(OLE)將每個應用程序都看做是一個對象(object)，將不同的對象鏈接(link)起來，再嵌入(embed)某個應用程序中，從而可以得到具有聲音、影像、圖像、動畫、文字等各種信息的集合式的文件。但它可以通過動態(tài)鏈接庫技術(shù)將C/C++或匯編語言編寫的程序加入到Visual Basic應用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。SQL Server 、穩(wěn)定性、便于管理和易于開發(fā)的優(yōu)勢。除此而外SQL Server 2000充分的利用了Windows 2000的功能。 在ADO對象模型中，主要有三個用于數(shù)據(jù)庫訪問的對象：Connection對象提供了一個通向數(shù)據(jù)源的途徑，Command對象包含了執(zhí)行SQL語句或存儲過程所需要的信息，Record對象包含了詢問的結(jié)果。Record對象用于說明諸如此類的信息：文件系統(tǒng)中的子目錄和文件、電子郵件系統(tǒng)中的文件夾或信息。第二章結(jié)合軟件工程方法,對系統(tǒng)進行需求分析、功能劃分、數(shù)據(jù)流圖設計，并結(jié)合數(shù)據(jù)庫原理和功能劃分進行ER圖的繪制、數(shù)據(jù)庫結(jié)構(gòu)設計，第三章根據(jù)需求分析的結(jié)果，用戶概念數(shù)據(jù)模型表示數(shù)據(jù)及其相互間的聯(lián)系。 核心任務本系統(tǒng)的主要功能是制定生產(chǎn)/采購計劃，物料需求計算，材料供求分析，其核心任務是：降低材料成本，降低庫存成本，縮短生產(chǎn)/采購周期，如何獲得更高的利潤。供應商信息，包括的數(shù)據(jù)項有：供應商編號，供應商名稱，地址，郵政編碼，電話號碼，公司主頁，電子郵件地址，稅號，開戶銀行，聯(lián)系人，備注信息等。進貨訂單信息，包括的數(shù)據(jù)項有：訂貨日期，編號，業(yè)務員，供應商編號，產(chǎn)品編號，數(shù)量，單價，折扣比例，總金額，備注信息等。轉(zhuǎn)倉信息，包括的數(shù)據(jù)項有：轉(zhuǎn)倉日期，編號，業(yè)務員，轉(zhuǎn)出倉庫的編號，轉(zhuǎn)入倉庫的編號，產(chǎn)品編號，數(shù)量，總金額，備注信息等。包括銷售單的管理以及銷售信息的查詢等。數(shù)據(jù)庫及其應用系統(tǒng)開發(fā)全過程可分為以下幾個步驟：（一）需求分析；（二）數(shù)據(jù)庫的邏輯結(jié)構(gòu)設計3．2 需求分析上章我們已經(jīng)做了詳細的分析在此不在進行說明了。邏輯結(jié)構(gòu)設計的任務就是把設計好的基本ER圖轉(zhuǎn)換為與選用DBMS產(chǎn)品所支持的數(shù)據(jù)模型相符合的邏輯結(jié)構(gòu)。數(shù)據(jù)庫由下面多個表格組成，各個表格的設計結(jié)果如下面表格所示。同時在這個模塊中設置公用模塊來存放整個工程項目公用的函數(shù)、過程和全局變量。 _ query successful Else Set rst = New Trim$(SQL), n, _ adOpenKeyset, _ adLockOptimistic 39。 _ 條記錄 End IfExecuteSQL_Exit: Set rst = Nothing Set n = Nothing Exit Function ExecuteSQL_Error: MsgString = 查詢錯誤: amp。在ExecuteSQL函數(shù)中使用了ConnectString函數(shù)，這個函數(shù)用來連接數(shù)據(jù)庫。data source=d2jf21。所有的功能模塊都需要這個函數(shù)，所以我們將它放在公用模塊中，代碼如下：Public Sub EnterToTab(Keyasc As Integer) If Keyasc = 13 Then SendKeys {TAB} End IfEnd SubKeyasc 用來保存當前按鍵，SendKeys函數(shù)用來指定的按鍵。這個判斷需要在系統(tǒng)運行的最初的進行，因此將代碼放在公用模塊中。for WZ setup　　產(chǎn)品設置全局變量Public gintGFSmode As Integer 39。for YWY setup　　業(yè)務員設置全局變量Public gintCKSmode As Integer 39。for ruku huo　　　　入庫單全局變量Public gintXSDHmode As Integer 39。for ying shou　　　應付全局變量Public gintOFFERmode As Integer 39。固定表頭 .FixedRows = 1 39。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i 1) amp。 載入窗體時，首先根據(jù)標志變量判斷狀態(tài)，然后決定是添加還是修改，代碼如下：Private Sub Form_Load() Dim intCount As Integer Dim msgText As String Dim i As Integer Dim mrcc As If gintWZSmode = 1 Then = amp。代碼如下：Private Sub cmdSave_Click() Dim intCount As Integer Dim sMeg As String Dim msgText As String For intCount = 0 To 7 If Trim(txtItem(intCount) amp。添加判斷是否有相同的ID記錄 If gintWZSmode = 1 Then txtSQL = select * from dm_wz where dm =39。 Set mrc = ExecuteSQL(txtSQL, msgText) If = False Then MsgBox 已經(jīng)存在此產(chǎn)品編號的記錄！, vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If End If 39。 39。 Trim(txtItem(intCount)) amp。 Trim(Combo1(1)) amp。 Trim(txtItem(intCount)) amp。 Trim(txtItem(8)) amp。代碼如下：Private Sub cmdModify_Click() Dim intCount As Integer If 1 Then gintDHmode = 2 intCount = If intCount 0 Then = select * from dh where dh_no =39。 1 Else MsgBox 警告, vbOKOnly + vbExclamation, 請首先選擇需要修改的紀錄！ End If End IfEnd Sub在產(chǎn)品設置信息列表中選擇需要刪除的記錄，然后單擊“刪除”按鈕，將刪除當前記錄，代碼如下：Private Sub cmdDelete_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim msgText As String If 1 Then If MsgBox(真的要刪除編號為 amp。 Trim((intCount, 1)) amp。 　產(chǎn)品入庫需要實現(xiàn)入庫和庫存信息的更新。 Set mrc = ExecuteSQL(txtSQL, msgText) Unload frmdh = select dh_no,in_date,ywman,gfdm,wzdm,sl,in_danj,i_zk,i_zke,bz from dh End If End IfEnd Sub4．3進貨信息管理模塊的創(chuàng)建 在這個模塊中我們要實現(xiàn)的功能是：訂貨單的管理、入庫單的管理、進貨信息的查詢。 的進貨單記錄嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then intCount = txtSQL = delete from dh where dh_no =39。 Trim((intCount, 1)) amp。 Set mrc = ExecuteSQL(txtSQL, msgText) If gintWZSmode = 1 Then MsgBox 添加記錄成功！, vbOKOnly + vbExclamation, 添加記錄 For intCount = 0 To 8 txtItem(intCount) = Next intCount txtItem(7) = Format(Now, yyyymmdd) mblChange = False Unload frmWZSetup = select * from dm_wz ElseIf gintWZSmode = 2 Then Unload Me Unload frmWZSetup = select * from dm_wz End If End Sub在產(chǎn)品信息列表中選擇需要修改的記錄為，然后單擊“修改”按鈕，將出現(xiàn)如下圖所示的窗體。,39。,39。,39。再加入新記錄 txtSQL = execute wz_setup 39。 amp。 Trim(txtItem(0)) amp。 不能為空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount For intCount = 3 To 5 If Not IsNumeric(Trim(txtItem(intCount))) Then sMeg = 產(chǎn)品價格 sMeg = sMeg amp。 修改 End If Combo1(1).Clear txtItem(7) = Format(Now, yyyymmdd) txtItem(7).Enabled = False txtSQL = select lb from dm_wzlb Set mrcc = ExecuteSQL(txtSQL, msgText) If Not Then Do While Not Combo1(1).AddItem (0) Loop End If mblChange = FalseEnd Sub輸入完畢后，單擊“保存”按鈕。邊界處理 If 10 * Then Exit Sub End If If + / 2 Then Exit Sub End If 39。表頭項居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 39。這個窗體用來顯示產(chǎn)品設置信息，并且可以對各條記錄進行操作。for xiao shou ding dan　銷售單全局變量Public gintZCmode As Integer 39。for WZLB setup　產(chǎn)品類別設置全局變量Public gintDHmode As Integer 39。for