【正文】 char (13),mb_reb numeric (12,2),bz char (255)) ASinsert dm_kh(dm,mc,addr,yzbm,tel,itladd,ywman,sui_no,bank_no,bank,card_no,mb_reb,bz)values(dm,mc,addr,yzbm,tel,itladd,ywman,sui_no,bank_no,bank,card_no,mb_reb,bz)GOCREATE PROCEDURE kucun_setup(update_date datetime,kucun_no char (14),ckdm char (6),wzdm char (30),sl numeric (10),total_je numeric(12, 2) ASinsert kucun(update_date,kucun_no,ckdm,wzdm,sl,total_je)values(update_date,kucun_no,ckdm,wzdm,sl,total_je)GOCREATE PROCEDURE outh_setup(out_date datetime,ywman char (20),outh_no char (8),khdm char (8),ckdm char (6),wzdm char (30),sl numeric (10),out_danj numeric(12, 2),o_zk numeric(5, 0),o_zke numeric(12, 2),jsfk char (2),jz char (2) ,yf numeric (5,0),bz char (100)) ASinsert outh(out_date,ywman,outh_no,khdm,ckdm,wzdm,sl,out_danj,o_zk,o_zke,jsfk,jz,yf,bz)values(out_date,ywman,outh_no,khdm,ckdm,wzdm,sl,out_danj,o_zk,o_zke,jsfk,jz,yf,bz)GOCREATE PROCEDURE wz_setup( dm char(30),mc char(40),jldw char(8),lb char(30),rkj numeric(12,2),fxj numeric(12,2),lsj numeric(12,2),cj char(20),yxrq datetime,bz char(255)) ASinsert dm_wz(dm,mc,jldw,lb,rkj,fxj,lsj,cj,yxrq,bz)values(dm,mc,jldw,lb,rkj,fxj,lsj,cj,yxrq,bz)GOCREATE PROCEDURE xsdh_setup(out_date datetime, ywman char (20),xsdh_no char (8),khdm char (8),wzdm char (30),sl numeric (10),out_danj numeric (12, 2),o_zk numeric (5, 0),o_zke numeric (12, 2),bz char (100) ASinsert xsdh(out_date,ywman,xsdh_no,khdm,wzdm,sl,out_danj,o_zk,o_zke,bz)values(out_date,ywman,xsdh_no,khdm,wzdm,sl,out_danj,o_zk,o_zke,bz)GO24創(chuàng)建業(yè)務(wù)員存儲(chǔ)過(guò)程CREATE PROCEDURE ywy_setup(dm char (6),mc char (20),lb char (30),tel char (40),addr char (40),sfz char (18),lbcode char (30),bz char (255)) ASinsert dm_ywy(dm,mc,lb,tel,addr,sfz,lbcode,bz)values(dm,mc,lb,tel,addr,sfz,lbcode,bz)GO第四章 詳細(xì)設(shè)計(jì)4．1工業(yè)企業(yè)進(jìn)銷存系統(tǒng)主窗體的創(chuàng)建 在這個(gè)窗體中加入狀態(tài)控件，可以實(shí)時(shí)的反映系統(tǒng)中的各個(gè)狀態(tài)的變化。get RecordCount Set ExecuteSQL = rst MsgString = 查詢到 amp。returns a DB ConnectString ConnectString = provider=SQLOLEDB。由于系統(tǒng)啟動(dòng)后，需要對(duì)用用戶進(jìn)行判斷。for KH setup　　　客戶設(shè)置全局變量Public gintYWYLBSmode As Integer 39。for xiao shou ding dan　銷售單全局變量Public gintZCmode As Integer 39。表頭項(xiàng)居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 39。 修改 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輸入完畢后，單擊“保存”按鈕。 Trim(txtItem(0)) amp。再加入新記錄 txtSQL = execute wz_setup 39。,39。 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)如下圖所示的窗體。 的進(jìn)貨單記錄嗎？, vbOKCancel + vbExclamation, 警告) = vbOK Then intCount = txtSQL = delete from dh where dh_no =39。 　產(chǎn)品入庫(kù)需要實(shí)現(xiàn)入庫(kù)和庫(kù)存信息的更新。 1 Else MsgBox 警告, vbOKOnly + vbExclamation, 請(qǐng)首先選擇需要修改的紀(jì)錄！ End If End IfEnd Sub在產(chǎn)品設(shè)置信息列表中選擇需要?jiǎng)h除的記錄，然后單擊“刪除”按鈕，將刪除當(dāng)前記錄，代碼如下：Private Sub cmdDelete_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As Dim msgText As String If 1 Then If MsgBox(真的要?jiǎng)h除編號(hào)為 amp。 Trim(txtItem(8)) amp。 Trim(Combo1(1)) amp。 39。添加判斷是否有相同的ID記錄 If gintWZSmode = 1 Then txtSQL = select * from dm_wz where dm =39。 載入窗體時(shí)，首先根據(jù)標(biāo)志變量判斷狀態(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。固定表頭 .FixedRows = 1 39。for ruku huo　　　　入庫(kù)單全局變量Public gintXSDHmode As Integer 39。for WZ setup　　產(chǎn)品設(shè)置全局變量Public gintGFSmode As Integer 39。所有的功能模塊都需要這個(gè)函數(shù)，所以我們將它放在公用模塊中，代碼如下：Public Sub EnterToTab(Keyasc As Integer) If Keyasc = 13 Then SendKeys {TAB} End IfEnd SubKeyasc 用來(lái)保存當(dāng)前按鍵，SendKeys函數(shù)用來(lái)指定的按鍵。在ExecuteSQL函數(shù)中使用了ConnectString函數(shù)，這個(gè)函數(shù)用來(lái)連接數(shù)據(jù)庫(kù)。 _ query successful Else Set rst = New Trim$(SQL), n, _ adOpenKeyset, _ adLockOptimistic 39。數(shù)據(jù)庫(kù)由下面多個(gè)表格組成，各個(gè)表格的設(shè)計(jì)結(jié)果如下面表格所示。數(shù)據(jù)庫(kù)及其應(yīng)用系統(tǒng)開(kāi)發(fā)全過(guò)程可分為以下幾個(gè)步驟：（一）需求分析；（二）數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)設(shè)計(jì)3．2 需求分析上章我們已經(jīng)做了詳細(xì)的分析在此不在進(jìn)行說(shuō)明了。轉(zhuǎn)倉(cāng)信息，包括的數(shù)據(jù)項(xiàng)有：轉(zhuǎn)倉(cāng)日期，編號(hào)，業(yè)務(wù)員，轉(zhuǎn)出倉(cāng)庫(kù)的編號(hào)，轉(zhuǎn)入倉(cāng)庫(kù)的編號(hào)，產(chǎn)品編號(hào)，數(shù)量，總金額，備注信息等。供應(yīng)商信息，包括的數(shù)據(jù)項(xiàng)有：供應(yīng)商編號(hào)，供應(yīng)商名稱，地址，郵政編碼，電話號(hào)碼，公司主頁(yè)，電子郵件地址，稅號(hào)，開(kāi)戶銀行，聯(lián)系人，備注信息等。第二章結(jié)合軟件工程方法,對(duì)系統(tǒng)進(jìn)行需求分析、功能劃分、數(shù)據(jù)流圖設(shè)計(jì)，并結(jié)合數(shù)據(jù)庫(kù)原理和功能劃分進(jìn)行ER圖的繪制、數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì)，第三章根據(jù)需求分析的結(jié)果，用戶概念數(shù)據(jù)模型表示數(shù)據(jù)及其相互間的聯(lián)系。 在ADO對(duì)象模型中，主要有三個(gè)用于數(shù)據(jù)庫(kù)訪問(wèn)的對(duì)象：Connection對(duì)象提供了一個(gè)通向數(shù)據(jù)源的途徑，Command對(duì)象包含了執(zhí)行SQL語(yǔ)句或存儲(chǔ)過(guò)程所需要的信息，Record對(duì)象包含了詢問(wèn)的結(jié)果。SQL Server 、穩(wěn)定性、便于管理和易于開(kāi)發(fā)的優(yōu)勢(shì)。對(duì)象的鏈接與嵌入(OLE)對(duì)象的鏈接與嵌入(OLE)將每個(gè)應(yīng)用程序都看做是一個(gè)對(duì)象(object)，將不同的對(duì)象鏈接(link)起來(lái)，再嵌入(embed)某個(gè)應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動(dòng)畫、文字等各種信息的集合式的文件。結(jié)構(gòu)化程序設(shè)計(jì)語(yǔ)言Visual Basic是解釋型語(yǔ)言，在輸入代碼的同時(shí)，解釋系統(tǒng)將高級(jí)語(yǔ)言分解翻譯成計(jì)算機(jī)可以識(shí)別的機(jī)器指令，并判斷每個(gè)語(yǔ)句的語(yǔ)法錯(cuò)誤。有時(shí)候，這種編程編譯修改的操作可能要反復(fù)多次，大大影響了軟件開(kāi)發(fā)效率。經(jīng)過(guò)我們一段時(shí)間的調(diào)查研究，資料搜集分析并結(jié)合工業(yè)企業(yè)現(xiàn)在的生產(chǎn)管理狀況，我們發(fā)現(xiàn)現(xiàn)有軟件雖然具有傳遞功能，但是在數(shù)據(jù)處理、數(shù)據(jù)統(tǒng)計(jì)、數(shù)據(jù)匯總上存在一定的缺陷，于是我們決定嘗試開(kāi)發(fā)一個(gè)系統(tǒng)來(lái)彌補(bǔ)這些缺陷。本系統(tǒng)中，我們利用SQL Server數(shù)據(jù)庫(kù)創(chuàng)建應(yīng)用數(shù)據(jù)庫(kù)，建立表空間和表，利用Visual Basic前臺(tái)開(kāi)發(fā)工具，由于本系統(tǒng)是要應(yīng)用于局域網(wǎng)上，所以建立與SQL數(shù)據(jù)庫(kù)的連接是本系統(tǒng)的第一個(gè)重要環(huán)節(jié),我們發(fā)現(xiàn)直接使用ADO對(duì)象要比工具容易多，因此我們使用ADO對(duì)象模型進(jìn)行數(shù)據(jù)庫(kù)的連接。而企業(yè)生產(chǎn)制造的關(guān)鍵在于如何規(guī)劃和計(jì)劃各種資源在時(shí)間、地點(diǎn)、產(chǎn)品之間的合理配備，如何按計(jì)劃監(jiān)督責(zé)任方對(duì)資源的使用情況，如何根據(jù)預(yù)測(cè)和歷史情況為