【正文】 設(shè)置固定行、列 = 1: = 1 39。 XS1000001 End If = Format(Now, yyyymmdd) = 100: = 7 39。其實(shí)現(xiàn) 關(guān)鍵代碼如下： Private Sub Form_Load() = PublicStr = select * from tbS_sell_main = PublicStr = select * from tbS_sell_detailed = PublicStr = select * from tbS_currentaccount = PublicStr = select unitcode,fullname from tbS_units Set = AdoUnits = PublicStr = select employecode,fullname from tbS_employ Set = AdoEmploy = PublicStr = select * from tbS_stock Set = AdoStock 39。 qty (3).Text = 庫存總價(jià)值： amp。ADO控件的 RecordSource執(zhí)行 SQL語句 On Error Resume Next = select * from tbS_stock where tradecode=39。定義 MS1表的列序號(hào) For i = 1 To (i, 0) = i Next i Call AddData (1).Text = 當(dāng)前窗體是： + End Sub 庫存上下限設(shè)置 在本模塊中可以對(duì)庫存的上下限進(jìn)行設(shè)置。設(shè)置固定行、列 39。ADO控件的 RecordSource執(zhí)行 SQL語句 = SELECT * FROM tbS_stock = PublicStr = select * from tbS_stock Set = Adodc2 Set = Adodc2 = fullname = + 1: = 6 39。 在主窗體中選擇“庫存信息 /庫存狀況”命令，即可進(jìn)入庫存狀況模塊中。統(tǒng)計(jì)商品金額 tsum = Val((i, 6)) + tsum = Format(tsum, ) End If Next i End Sub 的 KeyPress 事件 該事件主要實(shí)現(xiàn)的功能有：將 TextBox 控件中的數(shù)據(jù)傳輸給 MSFlexGrid 控件以及將TextBox 控件移動(dòng)到表格下一單元格或者表格下一行。 基于 B/S 結(jié)構(gòu)的 企業(yè)進(jìn)銷存管理系統(tǒng) 計(jì)算機(jī)科學(xué)與技術(shù)專業(yè)畢業(yè)論文（設(shè)計(jì)） 26 If 0 Then = True If Then 39。or spell like 39。篩選商品名稱和拼音簡(jiǎn)碼 = select * from tbS_stock where fullname like 39。利用 VB 提供的 MSFlexGrid 控件，處理數(shù)據(jù)比較靈活，雖然顯示的數(shù)據(jù)是只讀的，但可以通過 TextBox 控件向 MSFlexGrid 控件中輸入 數(shù)據(jù)，然后利用 For 循環(huán)把表格中數(shù)據(jù)添加到數(shù)據(jù)表。定義 MS1表的表頭 (0, 0) = NO。定義 MS1控件的總行 數(shù)、總列數(shù)。將用于顯示進(jìn)貨信息的 MSFlexGrid 控件的行數(shù)、列數(shù)以及列標(biāo)題等都進(jìn)行初始化，關(guān)鍵代碼如下： Private Sub Form_Load() = PublicStr = select * from tbS_warehouse_main = PublicStr = select * from tbS_warehouse_detailed = PublicStr = select * from tbS_currentaccount 基于 B/S 結(jié)構(gòu)的 企業(yè)進(jìn)銷存管理系統(tǒng) 計(jì)算機(jī)科學(xué)與技術(shù)專業(yè)畢業(yè)論文（設(shè)計(jì)） 24 = PublicStr = select unitcode,fullname from tbS_units Set = AdoUnits = PublicStr = select employecode,fullname from tbS_employ Set = AdoEmploy = PublicStr = select * from tbS_stock Set = AdoStock = select * from tbS_warehouse_main order by billcode If 0 Then Text1(0).Text = Format(Now, yyyymmdd) amp。選中之后，將直接添加到商品進(jìn)貨單中，用戶只需要輸入進(jìn)貨的商品的數(shù)量信息即可，金額、入庫品種、合計(jì)數(shù)量等都將由系統(tǒng)自動(dòng)運(yùn)算得出。 運(yùn)行程序，在程序主窗體中選擇“進(jìn)貨信息” /“商品進(jìn)貨”命令，既可以進(jìn)入“商品基于 B/S 結(jié)構(gòu)的 企業(yè)進(jìn)銷存管理系統(tǒng) 計(jì)算機(jī)科學(xué)與技術(shù)專業(yè)畢業(yè)論文（設(shè)計(jì)） 23 進(jìn)貨”模塊中。定義變量用 于標(biāo)識(shí)浮動(dòng)工具條的伸縮 Private Sub Timer1_Timer() Dim i As Integer If bTimeFlag = True Then If 11934 Then For i = 1 To 100 = + 2 Next i End If Else If 10 Then For i = 1 To 100 = 2 Next i End If End If End Sub 、狀態(tài)欄的實(shí)現(xiàn) 窗體中的狀態(tài)欄利用 StatusBar 控件設(shè)計(jì)而成。在使用浮動(dòng)工具欄時(shí)，利用 Timer 控件來調(diào)整 Pic_flex 控件的寬度。選擇“工具”、“菜單編輯器”命令，打開菜單編輯器進(jìn)行菜單設(shè)計(jì)，具體設(shè)計(jì)的菜單如圖 8 所示： 圖 8 菜單編輯器 、利用 FLASH 設(shè)計(jì)工具欄 本程序窗體工具欄是利用 Flash 動(dòng)畫設(shè)計(jì)的，但是在 MDI 主窗體上不能添加ShockwaveFlash 動(dòng)畫，因此只能把該控件放置在 PictureBox 控件中。本程序主窗體分為 4 個(gè)部分；菜單欄，可以通過它調(diào)用系統(tǒng)中的所有子模塊；工具欄，可以通過它調(diào)用最 常用的子模塊；窗體中間區(qū)域是一個(gè)與主題相關(guān)的背景圖片；狀態(tài)欄，顯示當(dāng)前所打開窗體，當(dāng)前登錄用戶名等信息。使控件獲得焦點(diǎn) Exit Sub End If (2).Text = (2).Text amp。進(jìn)貨管理 = True Else = False End If If (vendition).Value Then 39。驗(yàn)證操作員及密碼 If = (password) Then 39。確定 select * from tbS_power where sysuser =39。 + + 39。 登錄窗體主要是通過對(duì)數(shù)據(jù)表 tbS_power 的查詢，結(jié)合 IF 語句判斷選定的用戶以及輸入的密碼是否符合數(shù)據(jù)庫中的用 戶名和密碼是否正確，如果正確則正常登錄，否則錯(cuò)誤超過 3 次則強(qiáng)行退出系統(tǒng)。獲得漢字的拼音簡(jiǎn)碼 On Error Resume Next If Asc(Mystr) 0 Then If Asc(Left(Mystr, 1)) Asc(啊 ) Then py = 0 Exit Function End If If Asc(Left(Mystr, 1)) = Asc(啊 ) And Asc(Left(Mystr, 1)) Asc(芭 ) Then py = A Exit Function End If ‘? .此處代碼有省略 If UCase(Mystr) = Z And UCase(Mystr) = A Then py = UCase(Left(Mystr, 1)) Else py = Mystr End If End If End Function 基于 B/S 結(jié)構(gòu)的 企業(yè)進(jìn)銷存管理系統(tǒng) 計(jì)算機(jī)科學(xué)與技術(shù)專業(yè)畢業(yè)論文（設(shè)計(jì)） 17 啟動(dòng)窗體的實(shí)現(xiàn) 啟動(dòng)窗體用作歡迎客戶使用之友好界面，可以在應(yīng)用程序啟動(dòng)時(shí)一閃而過，也可以為用戶提示一定信息，但用戶無需對(duì)其進(jìn)行任何操作。Persist Security Info=False。在本程序中為了優(yōu)化數(shù)據(jù)庫的連接，減少代碼的使用，在公共模塊中定義一個(gè)函數(shù)用 于執(zhí)行數(shù)據(jù)庫連接。 圖 4 數(shù)據(jù)庫表 第四章 系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 、 公共模塊實(shí)現(xiàn) 在開發(fā)應(yīng)用程序時(shí)，可以將數(shù)據(jù)庫的相關(guān)操作以及對(duì)一些控件的設(shè)置、遍歷等封裝在自定義模塊中，以便于在開發(fā)程序時(shí)調(diào)用，這樣可以提高代碼的重用性。數(shù)據(jù)庫設(shè)計(jì)是根據(jù)程序的需求及其實(shí)現(xiàn)功能所制定的，數(shù)據(jù)庫設(shè)計(jì)的合理與否將直接影響到程序的開發(fā)過程。 字段命名一律采用英文單詞或詞組（可利用翻譯軟件）命名，如果找不到專業(yè)的英文單詞或者詞組，可以用相同意義的英文單詞或者詞組代替。它是進(jìn)行信息交換、處理、傳輸和實(shí)現(xiàn)信息資源共享的關(guān)鍵。提供本單位信息和系統(tǒng)相關(guān)信息 ,讓客戶在使用過程中可了解本系統(tǒng)信息。該模塊能實(shí)現(xiàn)實(shí)時(shí)顯示庫存的狀況，能讓銷售人員能在銷售時(shí)準(zhǔn)確知道供貨能力 ,而且能夠協(xié)助采購(gòu)人員制定采購(gòu)計(jì)劃 ,確保公司產(chǎn)品的銷售庫存而不會(huì)積壓過多的產(chǎn)品而無故占用資金。該模塊主要對(duì)進(jìn)貨方面信息進(jìn)行管理，包含了 對(duì)退貨信息的反映 ,確保把每一筆的交易記錄都能準(zhǔn)確的反映出來 ,還包含了進(jìn)貨分析 ,能準(zhǔn)確的顯示每一筆進(jìn)貨的信息和兼顧進(jìn)貨單據(jù)和對(duì)帳，保證數(shù)據(jù)的準(zhǔn)確性。 第三章 系統(tǒng)的分析與設(shè)計(jì) 系統(tǒng)業(yè)務(wù)流程圖 企業(yè)進(jìn)銷存管理系統(tǒng)的業(yè)務(wù)流程圖如圖 2： 基于 B/S 結(jié)構(gòu)的 企業(yè)進(jìn)銷存管理系統(tǒng) 計(jì)算機(jī)科學(xué)與技術(shù)專業(yè)畢業(yè)論文（設(shè)計(jì)） 12 圖 2 業(yè)務(wù)流程圖 系統(tǒng)功能結(jié)構(gòu)圖 與功能模塊 企業(yè)進(jìn)銷存管理系統(tǒng)功能結(jié)構(gòu)如圖 3所示。 系統(tǒng)管理先進(jìn)，支持 Windows 圖形化管理工具，支持本地和遠(yuǎn)程的系統(tǒng)管理和配置。這些功能使您得以快速交付 SQL Server 應(yīng)用程序