【正文】 eger 39。產(chǎn)品類(lèi)別設(shè)置全局變量 Public gintDHmode As Integer 39。銷(xiāo)售單全局變量 Public gintZCmode As Integer 39。配料單列表全局變量 Public gintPLmode As Integer 39。用戶名全局變量 這些全局變量用來(lái)記錄是添加狀態(tài)還是修改狀態(tài)，賦值 1為添加，賦值 2 為修改。 3． 2 基本信息設(shè)置模塊的創(chuàng)建 基本信息設(shè)置模塊主要實(shí)現(xiàn)如下功能： ? 添加和修改產(chǎn)品信息 ? 添加和修改產(chǎn)品類(lèi)別信息 ? 添加和修改客戶信息 ? 添加和修改供應(yīng)商信息 ? 添加和修改業(yè)務(wù)員信息 ? 添加和修改業(yè)務(wù)員類(lèi)別信息 ? 添加和修改倉(cāng)庫(kù)信息 3． 2． 1 產(chǎn)品 設(shè)置窗體的創(chuàng)建 窗體布局如下圖所示： 這個(gè)窗體用來(lái)顯示產(chǎn)品設(shè)置信息，并且可以對(duì)各條記錄進(jìn)行操作。顯示 Grid 表頭 Private Sub ShowTitle() Dim i As Integer With msgList ‘設(shè)置列數(shù)目 .Cols = 11 .TextMatrix(0, 1) = 產(chǎn)品編號(hào) .TextMatrix(0, 2) = 產(chǎn)品名稱(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。設(shè)置單元大小 .ColWidth(0) = 1000 .ColWidth(1) = 1000 .ColWidth(2) = 2021 .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 With End 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。邊界處理 If 10 * Then Exit Sub End If If + / 2 Then Exit Sub End If 39。 ? 進(jìn)貨信息查詢。在實(shí)現(xiàn)這個(gè)模塊功能的過(guò)程中需要特別注意我個(gè)數(shù)據(jù)表的數(shù)據(jù)的關(guān)聯(lián)：如修改入庫(kù)單信息時(shí)，首先需要?jiǎng)h除入庫(kù)記錄，恢復(fù)庫(kù)存信息到原始狀態(tài)，然后添加新的入庫(kù)記錄，并更新庫(kù)存信息。 的入庫(kù)單記錄嗎？ , vbOKCancel + vbExclamation, 警告 ) = vbOK Then intCount = ‘保存需要?jiǎng)h除的記錄 txtCKDM = Trim((intCount, 5)) txtWZDM = Trim((intCount, 6)) txtSL = Trim((intCount, 7)) txtZKE = Trim((intCount, 10)) ‘刪除入庫(kù)單 txtsql = delete from inh where inh_no =39。 Set mrc = ExecuteSQL(txtsql, msgtext) ‘更新庫(kù)存表中相關(guān)信息 txtsql = select * from kucun where ckdm = 39。 txtsql = txtsql amp。 39。代碼如下： Private Sub cmdOK_Click() Dim dBeginDate As String Dim dEndDate As String Dim sQSql As String ‘查詢條件 sQSql = select ,dm_gf.dm,dm_w, from inh inner join dm_ywy on = inner join dm_gf on = inner join dm_ck on = inner join dm_wz on = where = 39。 If = vbChecked Then dBeginDate = Format(CDate(cboYear(0) amp。 cboDay(0)), yyyymmdd) dEndDate = Format(CDate(cboYear(1) amp。 cboDay(1)), yyyymmdd) sQSql = sQSql amp。 39。 dEndDate amp。 3． 4． 2 轉(zhuǎn)倉(cāng)信息查詢 轉(zhuǎn)倉(cāng)信息可以按照轉(zhuǎn)出倉(cāng)庫(kù)、轉(zhuǎn)入倉(cāng)庫(kù)和轉(zhuǎn)出轉(zhuǎn)入方式查詢。 amp。 amp。 amp。 and = 39。 sQSql = sQSql amp。 39。 設(shè)置完查詢條件，單擊“確定”按鈕開(kāi)始查詢。 39。 39。 39。 39。選擇“工程JXC_factory Properties”菜單，進(jìn)行屬性設(shè)置，如下圖所示： 最后選擇“文件 |生成 ”菜單，編譯開(kāi)始。測(cè)試階段的根本目標(biāo)是盡可能多地發(fā)現(xiàn)并排除軟件中潛在的錯(cuò)誤碼，最終把一個(gè)高質(zhì)量的軟件系統(tǒng)交給用戶使用 在編譯程序之前采用模塊的程序設(shè)計(jì)方法，把一個(gè)一個(gè)程序分解為若干個(gè)功能相對(duì)獨(dú)立的小程序的模塊，各個(gè)程序模塊分別進(jìn)行設(shè)計(jì)并分別已通過(guò)，所以在編制程序和調(diào)試的過(guò)程結(jié)束之后，各個(gè)模塊也就成了相對(duì)獨(dú)立的子程序的 形式。 3．基本信息的管理模塊，該模塊中的功能有產(chǎn)品設(shè)置、產(chǎn)品類(lèi)別設(shè)置、供應(yīng)商信息設(shè)置、客戶信息設(shè)置、業(yè)務(wù)員類(lèi)別設(shè)置、業(yè)務(wù)員信息設(shè)置，倉(cāng)庫(kù)設(shè)置等功能。訂貨單管理的信息有：貨物供應(yīng)商、訂貨的數(shù)量、訂貨經(jīng)手的業(yè)務(wù)員、折扣、所訂貨物的單價(jià)、訂貨的總金額等。生產(chǎn)信息的管理是 本系統(tǒng)的重要模塊之一，其中配料單的管理可對(duì)電腦成品進(jìn)行原件的配置，對(duì)不同電腦功能及機(jī)型進(jìn)行不同的配料單設(shè)置。銷(xiāo)售單的管理可分為訂貨基本信息、客戶信息、產(chǎn)品信息。信息的查詢可查倉(cāng)庫(kù)的轉(zhuǎn)出、轉(zhuǎn)入以及轉(zhuǎn)出和轉(zhuǎn)入。 結(jié) 論 畢業(yè)設(shè)計(jì)結(jié)束了，我的心情卻還沉浸在這次畢業(yè)設(shè)計(jì)中，這次畢業(yè)設(shè)計(jì)雖然給人感覺(jué)壓力很大，也很累，但這是我第一次自己動(dòng)手做一個(gè)有用的系統(tǒng)，整個(gè)過(guò)程下來(lái)，真正讓我體會(huì)到了學(xué)習(xí)的樂(lè)趣和運(yùn)用的艱辛。剛開(kāi)始，并不是很懂。后翻翻書(shū)，才了解。所以，可從各種書(shū)本、報(bào)刊中查找，當(dāng)然更方便的通過(guò)互聯(lián)網(wǎng)來(lái)查找這方面的資料，現(xiàn)在網(wǎng)絡(luò)資源相當(dāng)?shù)呢S富，我們要學(xué)會(huì)充分的運(yùn)用。 通過(guò)這次設(shè)計(jì)，我同樣感覺(jué)到自己知識(shí)的匱乏，還有待于以后進(jìn)一步的填充知識(shí)的空白，不斷地補(bǔ)充自己，使自己能夠適應(yīng)知識(shí)經(jīng)濟(jì)的社會(huì)。在這里我要特別感謝指導(dǎo)老師張勇老師的幫助，說(shuō)實(shí)在如果沒(méi)有他的指導(dǎo)，我真不知道該怎么辦呢，在 畢業(yè)課題其間，張老師給了我許多行之有效的建議，當(dāng)我遇到困難時(shí)，張老師給了我熱情的指導(dǎo)，和我一起面對(duì)挫折，查找相關(guān)資料，尋求解決問(wèn)題的有效途徑，同時(shí)還給了我莫大的支持和鼓勵(lì)，使我能夠正確面對(duì)困難，堅(jiān)持不懈的做下去，直至圓滿完成自己的課題， 對(duì)于張老師這樣一絲不茍的治學(xué)態(tài)度，在這里表示最誠(chéng)摯的感謝。 參 考 文 獻(xiàn) [1] 牛又奇，孫建 國(guó)等 . 新編 Visual Basic 程序設(shè)計(jì)教程 .第 1 版 .蘇州大 學(xué)出版社， 2021 [2] 范劍波，方飛 . 數(shù)據(jù)庫(kù)原理及應(yīng)用 .第 1版 .機(jī)械工業(yè) 出版社， 2021 [3] 劉韜，駱娟，何旭洪 .Visual Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)實(shí)例導(dǎo)航 .第 二 版 .人民郵電出版社， 2021 [4] 李廷文 . Visual Basic 控件高級(jí)編程 . 人民郵電 出版社， 2021 襖羋蕆袇螀芇蕿蝕聿芆艿蒃肅芅蒁螈羈芄薃薁袆芃芃螆螂芃蒞蕿肁節(jié)蒈螅羇莁薀薈袃莀艿螃蝿荿莂薆膈莈薄袁肄莇 蚆蚄羀莇莆袀袆羃蒈螞螂羂薁袈肀肁芀蟻羆肁莃袆袂肀薅蠆袈聿蚇蒂膇肈莇螇肅肇葿薀罿肆薂螆裊肅芁薈螁膅莃螄聿膄蒆薇羅膃蚈螂羈膂莈蚅袇膁蒀袀螃膀薂蚃肂腿節(jié)衿羈腿莄螞襖羋蕆袇螀芇蕿蝕聿芆艿蒃肅芅蒁螈羈芄薃薁袆芃芃螆螂芃蒞蕿肁節(jié)蒈螅羇莁薀薈袃莀艿螃蝿荿莂薆膈莈薄 袁肄莇蚆蚄羀莇莆袀袆羃蒈螞螂羂薁袈肀肁芀蟻羆肁莃袆袂肀薅蠆袈聿蚇蒂膇肈莇螇肅肇葿薀罿肆薂螆裊肅芁薈螁膅莃螄聿膄蒆薇羅膃蚈螂羈膂莈蚅袇膁蒀袀螃膀薂蚃肂腿節(jié)衿羈腿莄螞襖羋蕆袇螀芇蕿蝕聿芆艿蒃肅芅蒁螈羈芄薃薁袆芃芃螆螂芃蒞蕿肁節(jié)蒈螅羇莁薀薈袃莀艿螃蝿荿莂薆 膈莈薄袁肄莇 蚆蚄羀莇莆袀袆羃蒈螞螂羂薁袈肀肁芀蟻羆肁莃袆袂肀薅蠆袈聿蚇蒂膇肈莇螇肅肇葿薀罿肆薂螆裊肅芁薈螁膅莃螄聿膄蒆薇羅膃蚈螂羈膂莈蚅袇膁蒀袀螃膀薂蚃肂腿節(jié)衿羈腿莄螞襖羋蕆袇螀芇蕿蝕聿芆艿蒃肅芅蒁螈羈芄薃薁袆芃芃螆螂芃蒞蕿肁節(jié)蒈螅羇莁薀薈袃莀艿螃蝿荿莂薆膈莈薄 袁肄莇蚆蚄羀莇莆袀袆羃蒈螞螂羂薁袈肀肁芀蟻羆肁莃袆袂肀薅蠆袈聿蚇蒂膇肈莇螇肅肇葿薀罿肆薂螆裊肅芁薈螁膅莃螄聿膄蒆薇羅膃蚈螂羈膂莈蚅袇膁蒀袀螃膀薂蚃肂腿節(jié)衿羈腿莄螞襖羋蕆袇螀芇蕿蝕聿芆艿蒃肅芅蒁螈羈芄薃薁袆芃芃螆螂芃蒞蕿肁節(jié)蒈螅羇莁薀薈袃莀艿螃蝿荿莂薆 膈莈薄袁肄莇 蚆蚄羀莇莆袀袆羃蒈螞螂羂薁袈肀肁芀蟻羆肁莃袆袂肀薅蠆袈聿蚇蒂膇肈莇螇肅肇葿薀罿肆薂螆裊肅芁薈螁膅莃螄聿膄蒆薇羅膃蚈螂羈膂莈蚅袇膁蒀袀螃膀薂蚃肂腿節(jié)衿羈腿莄螞襖羋蕆袇螀芇蕿蝕聿芆艿蒃肅芅蒁螈羈芄薃薁袆芃芃螆螂芃蒞蕿肁節(jié)蒈螅羇莁薀薈袃莀艿螃蝿荿莂薆膈莈薄 袁肄莇蚆蚄羀莇莆袀袆羃蒈螞螂羂薁袈肀肁芀蟻羆肁莃袆袂肀薅蠆袈聿蚇蒂膇肈莇螇肅肇葿薀罿肆薂螆裊肅芁薈螁膅莃螄聿膄蒆薇 袁節(jié)膅薂羄肅蒃薁蚃芀荿薀螆肅芅蕿袈羋膁蚈羀肁蒀蚇蝕襖莆蚇螂肀莂蚆羅袂羋蚅蚄膈膄蚄螇羈蒂蚃衿膆莈螞羈罿芄螁蟻膄膀螁螃羇葿螀裊膃蒅蝿肈羆莁螈螇芁芇莄袀肄 膃莄羂艿蒂莃螞肂莈蒂螄羋芄蒁袆肀膀蒀罿袃薈葿螈聿蒄葿袁羈莀蒈羃膇芆蕆蚃羀膂蒆螅膅蒁薅袇羈莇薄罿膄芃薃蠆羆艿薃袁節(jié)膅薂羄肅蒃薁蚃芀荿薀螆肅芅蕿袈羋膁蚈羀肁蒀蚇蝕襖莆蚇螂肀莂蚆羅袂羋蚅蚄膈膄蚄螇羈蒂蚃衿膆莈螞羈罿芄螁蟻膄膀螁螃羇葿螀裊膃蒅蝿肈羆莁螈螇芁芇 莄袀肄膃莄羂艿蒂莃螞肂莈蒂螄羋芄蒁袆肀膀蒀罿袃薈葿螈聿蒄葿袁羈莀蒈羃膇芆蕆蚃羀膂蒆螅膅蒁薅袇羈莇薄罿膄芃薃蠆羆艿薃袁節(jié)膅薂羄肅蒃薁蚃芀荿薀螆肅芅蕿袈羋膁蚈羀肁蒀蚇蝕襖莆蚇螂肀莂蚆羅袂羋蚅蚄膈膄蚄螇羈蒂蚃衿膆莈螞羈罿芄螁蟻膄膀螁螃羇葿螀裊膃蒅蝿肈羆莁螈 螇芁芇莄袀肄 膃莄羂艿蒂莃螞肂莈蒂螄羋芄蒁袆肀膀蒀罿袃薈葿螈聿蒄葿袁羈莀蒈羃膇芆蕆蚃羀膂蒆螅膅蒁薅袇羈莇薄罿膄芃薃蠆羆艿薃袁節(jié)膅薂羄肅蒃薁蚃芀荿薀螆肅芅蕿袈羋膁蚈羀肁蒀蚇蝕襖莆蚇螂肀莂蚆羅袂羋蚅蚄膈膄蚄螇羈蒂蚃衿膆莈螞羈罿芄螁蟻膄膀螁螃羇葿螀裊膃蒅蝿肈羆莁螈螇芁芇 莄袀肄膃莄羂艿蒂莃螞肂莈蒂螄羋芄蒁袆肀膀蒀罿袃薈葿螈聿蒄葿袁羈莀蒈羃膇芆蕆蚃羀膂蒆螅膅蒁薅袇羈莇薄罿膄芃