【正文】 數(shù)據(jù)庫的主要功能是存儲數(shù)據(jù)并提供數(shù)據(jù) ,數(shù)據(jù)的角色是語句從數(shù)據(jù)庫中檢索到的數(shù)據(jù)在一定格式 ,打印或顯示出來。數(shù)據(jù)報(bào)告是一個數(shù)據(jù)庫應(yīng)用程序中 ,一個非常重要的部分。數(shù)據(jù)報(bào)告 :數(shù)據(jù)報(bào)告設(shè)計(jì)器 VB 提供一個報(bào)告設(shè)計(jì)器 ,和 VB 的數(shù)據(jù)源 對象可以使用鼠標(biāo)拖動操作 ,您可以很容易地創(chuàng)建復(fù)雜的報(bào)告。 可以直接通過拖動生成數(shù)據(jù)綁定控件 ,創(chuàng)建數(shù)據(jù)的數(shù)據(jù)環(huán)境和數(shù)據(jù)報(bào)表形式十分便利。層次結(jié)構(gòu)數(shù)據(jù)的環(huán)境中 ,用戶可以很容易地創(chuàng)建一套分層的記錄。每個數(shù)據(jù)環(huán)境中可以包含大量的連接 (連接 ),通過建立不同的連接連接到一個不同的數(shù)據(jù)庫 ,每個連接包含許多命令 (命令 ),和每個命令也可以包含多個 submands。 此外 ,VB 提供方便實(shí)用的報(bào)告功能 ,通過使用報(bào)表設(shè)計(jì)器和數(shù)據(jù)環(huán)境 ,基本沒有寫代碼 ,您可以用鼠標(biāo)拖動快捷方式創(chuàng)建數(shù)據(jù)報(bào) 告 ,設(shè)計(jì)數(shù)據(jù)報(bào)告也可以直接預(yù)覽和打印到打印機(jī)。數(shù)據(jù)環(huán)境是 VB 的新功能 ,它使用一個圖形化的方式連接到數(shù)據(jù)庫 ,數(shù)據(jù)環(huán)境中可以創(chuàng)建多個連接不同的數(shù)據(jù)庫連接 ,每個連接可以創(chuàng)建多個命令 ,它可以創(chuàng)建多個數(shù)據(jù)源 ,這樣你只能創(chuàng)建一個數(shù)據(jù)環(huán)境的不同數(shù)據(jù)庫表、視圖、存儲過程或查詢訪問。s guide BEGINNER39。Reilly Series[M]” ,O39。 [10] 溫昱編著《軟件架構(gòu)設(shè)計(jì)》，北京，電子工業(yè)出版社， 2020 年， P53。 [8] 何玉潔編著《數(shù)據(jù)庫設(shè)計(jì)》，北京：機(jī)械工業(yè)出版社， 2020 年， P38。 [6] 張逸編著《軟件設(shè)計(jì)精要與模式 第二版 》，北京：電子工業(yè)出版社， 2020 年， P15。 [3] 選自百度百科， [4] 張學(xué)忠，王福成編著《 VB 控件應(yīng)用編程實(shí)例教程》，北京：北京希望電子出版社，2020 年， P103—129。 26 參考文獻(xiàn) [1] 高春艷 , 李俊民 , 劉彬彬編著《 Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)案例精選》，北京：人民郵電出版社， 2020 年， P11。 在此要感謝梁老師對我的幫助和指導(dǎo)，非常感謝她能夠接受我的請求成為我的指導(dǎo)老師并且?guī)椭疫x擇課題，在做程序的過程中老師非常關(guān)心我們，即使有時(shí)做得不好也不會苛責(zé)我們，并且講解問題問題非常詳細(xì)，學(xué)校有什么通知老師都會通知到位。 25 致謝 在做畢業(yè)設(shè)計(jì)的過 程中接收到了來自老師和同學(xué)的幫助，非常難過感謝老師的幫助，有些不懂得問題老師都講解地非常詳細(xì)，并且給了我很多的自信，讓我能夠有信息一點(diǎn)點(diǎn)地做下去，最后取得了成功。 很多事情在開始的時(shí)候就特別艱難，但是不能逃避，越害怕就要到你害怕的地方去，這樣才能克服心中的恐懼并且解決難題，一旦過了這個階段就能使事情變得簡單得多，做設(shè)計(jì)就會越來越順利。 在做畢業(yè)設(shè)計(jì)的過程中接收到了來自老師和同學(xué)的幫助，非常難過感謝老師的幫助，有些不懂得問題老師都講解地非常詳細(xì)，并且給了我很多的自信，讓我能夠有信息一點(diǎn)點(diǎn)地做下去，最后取得了成功。在結(jié)束之后，覺得自己真的學(xué)習(xí)了很多，收益良多。 24 畢業(yè)設(shè)計(jì)體會 從做畢 業(yè)設(shè)計(jì)開始到設(shè)計(jì)完成真的感受頗多，起初到圖書館查閱資料確定選題，對Visual Basic 這一前臺語言只學(xué)過了一點(diǎn)，而且一點(diǎn)也不熟練，所以在設(shè)計(jì)的過程中遇到很多的問題。 此外的一些基本信息一般有添加、刪除、修改等操作。 系統(tǒng)的核心功能是材料和成品的倉庫管理功能，包括材料和成品的入庫管理、出庫管理以及庫存管理，入庫管理包括材料和成品錄入、入庫分析、賬款管理，出庫管理也包括了這些功能。 其次系統(tǒng)還有部門信息管理 ，有員工的部門信息管理其中有部門管理和職務(wù)類型管理，還有員工信息管理。用戶唯一的標(biāo)識符是工號，其默認(rèn)的登陸密碼是其工號，可以對密碼進(jìn)行修改。我開始時(shí)時(shí)先到圖書館查閱資料，然后自己實(shí)地考察了解用戶需求，確定功能需求，進(jìn)行設(shè)計(jì)，確定各個模塊，再進(jìn)行系統(tǒng)的詳細(xì)設(shè)計(jì)，最后測試功能同時(shí)完成數(shù)據(jù)的測試。 界面如圖 所示。%39。 + + 39。 amp。 圖 成品庫存統(tǒng)計(jì)表 其主要代碼如下： Private Sub Form_Load() Dim rs As New Dim r As Integer, c As Integer select * from 成品庫存信息表 , con, adOpenKeyset, adLockOptimistic Set = rs Set rs = Nothing 22 = SqlString End Sub Private Sub Command1_Click() 39。 39。 amp。 39。 amp。查找函數(shù) = Format(Val() Val(), ) 39。 圖 賬款信息管理界面 其主要代碼如下圖所示： Private Sub Cmd_find_Click() = 0 39。 年進(jìn)貨分析 39。 Next i = arrvalues 39。 + 39。and 商品名稱 like 39。 End If arrvalues(i, 1) = i amp。 + 39。 + 39。 + 39。 and Convert(varchar(20),成品入庫錄單日期 ,120) like 39。+39。+39。 20 Else = select sum(數(shù)量 ) as 合計(jì) from 成品入庫目錄 where 成品名稱 like 39。 + 39。 + 39。 + 39。 and Convert(varchar(20),成品入庫錄單日期 ,120) like 39。+39。+39。 圖 成品入庫分析界面 主要代碼如下： Private Sub fx() Dim i As Integer Dim arrvalues(1 To 12, 1 To 2) Dim A Dim m As String For i = 1 To 12 m = i If m 9 Then = select sum(數(shù)量 ) as 合計(jì) from 成品入庫目錄 where 成品名稱 like 39。 Text1(2)) Text1(2).SetFocus 員工管理 界面如圖 所示： 圖 員工管理界面 18 其主要代碼如下： Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case add blnAddRS = True Load rsgl_yglr Case modify If 0 Then blnAddRS = False Load rsgl_yglr Else MsgBox 系統(tǒng)沒有要修改的數(shù)據(jù)！ , , 提示窗口 End If Case delete If 0 Then Else MsgBox 系統(tǒng)沒有要刪除的數(shù)據(jù)！ , , 提示窗口 End If Case find tb1 = 用戶表 Load Frm_fzfind 1 Form_Activate Case all = select * from 用戶表 order by 編號 成品入庫錄入 界面如圖 所示。 Text1(1) amp。那么 Next i End If Text1(2).SetFocus Case modify 39。本級編號為 01 For i = 1 To bmjc Text1(0) = Text1(0) amp。部門編號為其父節(jié)點(diǎn)部門編號 +本級編號 Else 39。format()格式 化輸出為 “00”的格式， val()將字符型數(shù)值轉(zhuǎn)變?yōu)閿?shù)值 Text1(0) = Left((部門編號 ), Val(bmjc 1) * 2) amp。記錄集大于 0 39。 bmjc amp。%39。 + Left(, (bmjc 1) * 2) + 39。order by 編碼級次 , con, adOpenKeyset, adLockOptimistic If 0 Then bmjc = (編碼級次 ) End If 39。 的選定的對象，未選定時(shí)屬性為 null，打開部門信息表部門全稱為當(dāng)前選定節(jié)點(diǎn)的關(guān)鍵詞 select * from 部門信息表 where 部門全稱 =39。 圖 部門管理界面 其主要代碼如下： Case addnew 39。, con, adOpenKeyset, adLockOptimistic Set rs = Nothing End If = select * from 成品基本信息表 order by 成品編號 Set = Adodc2 tree_change End Sub 材料結(jié)構(gòu)信息管理與此類似，此處不再贅述。 (, ) amp。 圖 成品結(jié)構(gòu)信息管理界面 其主要代碼如下： Private Sub Cmd_add_Click() Dim rs As New = 添加成品基本信息 select * from 成品基本信息表 order by 成品編號 , con, adOpenKeyset, adLockOptimistic If 0 Then (0).text = (成品編號 ) + 1 Else End If 16 End Sub Private Sub Cmd_del_Click() Dim rs As New If MsgBox(確定刪除成品基本信息？ , vbInformation + vbYesNo, 消息提示 ) = vbYes Then select * from 成品基本信息表 where 成品編號 =39。 39。 amp。設(shè)置進(jìn)貨票號 End If 39。 gys amp。結(jié)束 If 語句 Else 39。 Format(lsph, 0000) 39。進(jìn)貨票號加 1 Txt_info(0).text = Date amp。rs2 的指針移到文件尾 If (供應(yīng)商編號 ) Then 39。創(chuàng)建進(jìn)貨票號 If 0 Then 39。 圖 供應(yīng)商管理界面 其主要代碼如下： Private Sub Cmd_add_Click() Dim rs As New Dim lsph As String Dim i As Integer For i = 0 To 9 Txt_info(i).text = Next i select * from 供應(yīng)商信息表 order by 供應(yīng)商編號 , _con, adOpenKeyset, adLockOptimistic 39。DataSource=LenovoPC End Function 主窗體界面設(shè)計(jì) 下面是一個窗體的主窗體的界面如圖 所示。User ID=sa。設(shè)置連接對象的值 Provider=。 Public Function con() As 39。 標(biāo)準(zhǔn)模塊設(shè)計(jì) 標(biāo)準(zhǔn)模塊的創(chuàng)建方法是，右擊這個工程 添加窗體 Modulel,本系統(tǒng)的標(biāo)準(zhǔn)模塊聲明了一些了一些系統(tǒng)的全局變量， 自定義功能模塊，例如數(shù)據(jù)庫連接模塊，標(biāo)準(zhǔn)模塊內(nèi)聲明的變量、子函數(shù)在整個系統(tǒng)內(nèi)都有效。入庫管理模塊主要是對材料和成品入庫，入庫統(tǒng)計(jì)，入庫分析以及賬款管理；出庫管理模塊是對材料和成品出庫，出庫分析，出