【正文】
示出來,便于用戶進(jìn)行預(yù)覽和打印。 創(chuàng)建宏 宏主要用于執(zhí)行某一操作,除了可以打開表、查詢、窗體和報(bào)表對(duì)象之外,通過宏,可以同時(shí)打開多個(gè)對(duì)象,宏還可以打開信息對(duì)話框,也可以設(shè)置宏組和條件宏。本設(shè)計(jì)總共設(shè)計(jì)了5個(gè)宏對(duì)象。5 前臺(tái)界面設(shè)計(jì) ,通過前臺(tái)界面,使用戶能夠直接與數(shù)據(jù)庫建立連接,操作后臺(tái)數(shù)據(jù)庫中的數(shù)據(jù),限于時(shí)間,本系統(tǒng)僅創(chuàng)建了用戶登錄窗體和用戶信息編輯窗體。下面分別進(jìn)行介紹。 用戶登錄窗體 登錄窗體設(shè)計(jì) 本系統(tǒng)設(shè)計(jì)的登錄窗體專門用于系統(tǒng)管理員使用,管理員通過用戶姓名和密碼登錄,登錄成功后,登錄成功后將進(jìn)入用戶管理窗體,通過該窗體就可以查詢和編輯用戶信息。登錄窗體設(shè)計(jì)見如圖51所示,窗體對(duì)象的屬性見表51。圖51 用戶登錄窗體表51 用戶登錄窗體的主要代碼 Private Sub cmdOK_Click()Dim sql As StringDim rs_login As New Dim conn As New Dim txtusername As String provider=。 data source= amp。 amp。 \ If Trim() = Then MsgBox 用戶名不能為空,請(qǐng)重新輸入! Else sql = select * from 用戶和密碼 where 姓名=39。 amp。 Trim() amp。 39。 sql, conn, adOpenKeyset, adLockOptimistic If = True Then MsgBox 沒有這個(gè)用戶,請(qǐng)重輸入!, vbOKOnly + vbExclamation, = Else txtusername = If Trim((2)) = Trim() Then Unload Me 39。MsgBox 登錄成功 Else MsgBox 密碼不正確,請(qǐng)重輸入!, vbOKOnly + vbExclamation, = End If End If End If t = t + 1 If t = 3 Then Unload Me End IfEnd Sub 添加代碼的流程結(jié)構(gòu)圖圖52用戶信息瀏覽編輯窗體 用戶信息瀏覽編輯窗體 用戶信息瀏覽與編輯窗體使用Adodc控件與數(shù)據(jù)庫建立連接,使用DataGrid控件瀏覽和編輯用戶信息,使用命令按鈕添加、修改和刪除用戶信息.,窗體設(shè)計(jì)操作界面見圖52所示,窗體中對(duì)象的屬性見表52。表52nameCaption其他屬性Command1添加Command2修改Command3刪除Command4結(jié)束Private Sub Command1_Click() End SubPrivate Sub Command2_Click() MsgBox 修改成功!End SubPrivate Sub Command3_Click() Dim i As Integer i = MsgBox(是要?jiǎng)h除該記錄嗎?, vbYesNo) If i = vbYes Then End If End SubPrivate Sub Command4_Click() EndEnd Sub總結(jié)通過本此課程設(shè)計(jì),讓我們更進(jìn)一步地掌握了《數(shù)據(jù)庫應(yīng)用》課程的相關(guān)知識(shí),熟悉了創(chuàng)建數(shù)據(jù)庫管理系統(tǒng)的全過程。熟練地掌握了運(yùn)用SQL語言和視圖創(chuàng)建基本表、選擇查詢、參數(shù)查詢、生成表查詢、追加查詢的方法,同時(shí)也熟練地掌握了創(chuàng)建用戶窗體、報(bào)表和宏對(duì)象的方法。本系統(tǒng)創(chuàng)建的后臺(tái)數(shù)據(jù)庫能夠獨(dú)立運(yùn)行,并滿足用戶對(duì)數(shù)據(jù)庫管理的各種需求。為了拓展我們的視野,并使用這些知識(shí)創(chuàng)建了用戶登錄窗體和基本圖書管理窗體,通過這些窗體實(shí)現(xiàn)用戶對(duì)數(shù)據(jù)庫的管理。經(jīng)過程序調(diào)試,前臺(tái)系統(tǒng)運(yùn)行良好。在數(shù)據(jù)庫的設(shè)計(jì)過程中,我們遇到了種種困難,比如ER圖的確定,每一個(gè)問題的解決都加深了我們對(duì)數(shù)據(jù)庫的了解。不過,由于專業(yè)知識(shí)的限制,我們所制作的書店倉庫管理系統(tǒng)仍然存在一些問題,如…,今后需要進(jìn)一步學(xué)習(xí),完善系統(tǒng)的功能。致謝感謝老師平時(shí)對(duì)我們的教導(dǎo),此次課程設(shè)計(jì),老師幫助了我們很多,在此感謝老師對(duì)我們的悉心教導(dǎo)。老師對(duì)工作的負(fù)責(zé)深深地影響了我們?nèi)M成員,使我們?cè)诓恢挥X中全心投入了課程設(shè)計(jì),盡自己最大的努力把系統(tǒng)做得更好。參考文獻(xiàn) [1] [M].北京:清華大學(xué)出版社,.[2] [M].北京:清華大學(xué)出版社,.[3] [M].北京:中國鐵道出版社,.[4] 劉韜,駱娟. Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例導(dǎo)航(第2 版)[M].北京:人民郵電出版社,.[5] Basic +Access數(shù)據(jù)庫開發(fā)與實(shí)例[M].北京:清華大學(xué)出版社,2006.[6] 王珊,(第四版)[M].北京:高等教育出版社,.