VB課程設(shè)計(jì)實(shí)例(共15頁(yè))

1、精選優(yōu)質(zhì)文檔-傾情為你奉上六、參考文獻(xiàn)1、龔沛曾，陸慰民，楊志強(qiáng).Visual Basic程序設(shè)計(jì)教程（6.0版）.北京：高等教育出版社，20012、龔沛曾，陸慰民，楊志強(qiáng). Visual Basic實(shí)驗(yàn)指導(dǎo)與測(cè)試（第三版）.北京：高等教育出版社，20073、羅朝盛. Visual Basic6.0程序設(shè)計(jì)教程（第二版）. 北京：人民郵電出版社，20054、 羅朝盛. Visual Basic6.0程序設(shè)計(jì)基礎(chǔ)教程. 北京：人民郵電出版社，20055、羅朝盛. Visual Basic6.0程序設(shè)計(jì)實(shí)驗(yàn)指導(dǎo). 北京：科學(xué)出版社，20066、羅朝盛. Visual Basic6.0程序設(shè)計(jì)實(shí)用教

2、程（第二版）. 北京：清華大學(xué)出版社，20087、羅朝盛，胡同森.Visual Basic學(xué)習(xí)與實(shí)踐指導(dǎo).杭州：浙江科學(xué)技術(shù)出版社，20088、王棟. Visual Basic程序設(shè)計(jì)實(shí)用教程（第二版）. 北京：清華大學(xué)出版社，2006電信計(jì)費(fèi)管理系統(tǒng)一、開(kāi)發(fā)簡(jiǎn)介（一）背景本學(xué)期系統(tǒng)學(xué)習(xí)了VB程序設(shè)計(jì)課程，按照慣例，在學(xué)期結(jié)束時(shí)進(jìn)行VB程序設(shè)計(jì)課程軟件的開(kāi)發(fā)，也就是本次課程設(shè)計(jì)。（二）課題名稱這次課程設(shè)計(jì)的課題為電信計(jì)費(fèi)管理系統(tǒng) （三）開(kāi)發(fā)工具及開(kāi)發(fā)環(huán)境 開(kāi)發(fā)工具：Microsoft Visual Basic 6.0 開(kāi)發(fā)環(huán)境：Windows 2000 Server二、開(kāi)發(fā)流程本次數(shù)據(jù)庫(kù)課程設(shè)

3、計(jì)采用一般數(shù)據(jù)庫(kù)開(kāi)發(fā)的流程：資料查找需求分析軟件設(shè)計(jì)其中軟件設(shè)計(jì)部分采用的流程：界面設(shè)計(jì)功能設(shè)計(jì)運(yùn)行調(diào)試三、需求分析 通過(guò)本電信計(jì)費(fèi)管理系統(tǒng)用戶能隨時(shí)查詢自己的通話記錄，如日話費(fèi)、本月總話費(fèi)、當(dāng)前電話計(jì)費(fèi)標(biāo)準(zhǔn)等，并能生成日?qǐng)?bào)表和月報(bào)表。本系統(tǒng)既面向普通用戶，也面向系統(tǒng)管理員，系統(tǒng)管理員擁有比普通用戶更大的權(quán)限，能查看所有用戶的通話記錄，而普通用戶只能查看自己的通話記錄。四、數(shù)據(jù)庫(kù)結(jié)構(gòu)設(shè)計(jì) 本次課程設(shè)計(jì)的數(shù)據(jù)庫(kù)由老師提供，數(shù)據(jù)庫(kù)格式為.dbf，而非常見(jiàn)的.mdb格式。具體表的結(jié)構(gòu)如下：字段名稱數(shù)據(jù)類(lèi)型字符寬度說(shuō)明Today字符6客戶打電話日期Start_time字符11通話開(kāi)始時(shí)間End_tim

4、e字符11通話結(jié)束時(shí)間Total_time字符11通話總時(shí)間Fl字符11費(fèi)率Money數(shù)字10通話費(fèi)用Master字符16主叫號(hào)碼Second字符10被叫號(hào)碼l五軟件設(shè)計(jì)（一）解決方案和軟件特色解決方案：由于本人有兩年多的網(wǎng)頁(yè)制作經(jīng)驗(yàn)，并從事過(guò)商業(yè)公司網(wǎng)站的制作，在網(wǎng)頁(yè)制作中經(jīng)常接觸到VBScript語(yǔ)言，其與VB語(yǔ)法甚為接近，故本次課程設(shè)計(jì)采用VB作為開(kāi)發(fā)工具。剛開(kāi)始本人也想用asp來(lái)實(shí)現(xiàn)這個(gè)課題，但由于asp中沒(méi)有與.dbf數(shù)據(jù)庫(kù)進(jìn)行連接的方法，只好放棄。軟件特色：本軟件具有管理員和普通用戶互相切換的功能，便于管理員及時(shí)發(fā)現(xiàn)系統(tǒng)中的問(wèn)題，以便進(jìn)行維護(hù)工作。這是本系統(tǒng)的一大特色?。ǘ┚唧w設(shè)

5、計(jì)下面我就從軟件的使用流程來(lái)具體介紹軟件的功能和實(shí)現(xiàn)原理：1 首先，軟件啟動(dòng)時(shí)會(huì)出現(xiàn)登錄選項(xiàng)：附：本窗體代碼Private Sub Command1_Click()If Option1.Value = True Thenadminlogin.ShowElse: userlogin.ShowEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub 2.登錄窗口使用者必需選擇相應(yīng)的身份類(lèi)別才能進(jìn)入本系統(tǒng)。系統(tǒng)內(nèi)置的管理員帳戶和密碼為admin，普通用戶帳戶和密碼為user。下面是分別選擇不同身份類(lèi)別時(shí)出現(xiàn)的登錄窗口：附：本窗體代碼Priva

6、te Sub Command1_Click()If Text1.Text = "admin" Then If Text2.Text = "admin" Then admin.Show Unload Me Unload main Else MsgBox "密碼錯(cuò)誤!請(qǐng)重新輸入！", vbOKOnly, "登錄失敗" Text2.Text = "" End IfElseMsgBox "用戶名錯(cuò)誤！請(qǐng)重新輸入！", vbOKOnly, "登錄失敗"Text1.T

7、ext = ""Text2.Text = ""End IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text1.SetFocusEnd SubPrivate Sub Form_Load()With Text2.PasswordChar = "*"End WithEnd Sub附：本窗體代碼Private Sub Command1_Click()If Text1.Text = "user"

8、Then If Text2.Text = "user" Then user.Show Unload Me Unload main Else MsgBox "密碼錯(cuò)誤!請(qǐng)重新輸入！", vbOKOnly, "登錄失敗" Text2.Text = "" End IfElseMsgBox "用戶名錯(cuò)誤！請(qǐng)重新輸入！", vbOKOnly, "登錄失敗"Text1.Text = ""Text2.Text = ""End IfEnd SubPri

9、vate Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text1.SetFocusEnd SubPrivate Sub Form_Load()With Text2.PasswordChar = "*"End WithEnd Sub由于管理員帳戶與普通用戶大部分的操作均相同，故下面先用普通用戶的身份進(jìn)行演示，不同之處另外加以說(shuō)明。在上圖的普通用戶登錄框中輸入用戶名和密碼進(jìn)入系統(tǒng)。3.普通用戶管理模塊在該模塊中，有日?qǐng)?bào)表、月報(bào)表、本月話費(fèi)、計(jì)費(fèi)標(biāo)準(zhǔn)等選項(xiàng)。在日?qǐng)?bào)表選項(xiàng)卡中用戶可以輸入

10、自己的電話號(hào)碼進(jìn)行查詢，還可以指定查詢的開(kāi)始日期和結(jié)束日期。這里我以電話號(hào)碼為例進(jìn)行演示。按上圖輸入數(shù)據(jù)后，點(diǎn)擊“查詢”按鈕，將顯示與該電話號(hào)碼對(duì)應(yīng)的記錄。為了方便用戶，本系統(tǒng)提供了打印報(bào)表的功能，點(diǎn)擊“打印預(yù)覽”按鈕后即可在打印之前預(yù)覽該報(bào)表，如下圖：月報(bào)表模塊與日?qǐng)?bào)表模塊大體相似，不過(guò)這里默認(rèn)查找的是一個(gè)月的記錄，故不需輸入開(kāi)始時(shí)間和結(jié)束時(shí)間，只需輸入需要查詢的電話號(hào)碼即可。在這里輸入電話號(hào)碼將得到與上面相同的結(jié)果，這是因?yàn)樯厦孑斎氲拈_(kāi)始日期為0201，結(jié)束日期為0228，也就是說(shuō)，上面查找的就是二月份的通話記錄。由于此時(shí)報(bào)表與上面的完全一樣，故沒(méi)用給出效果圖。本月話費(fèi)模塊可以查詢用戶本月

11、的電話費(fèi)用，先在“請(qǐng)輸入你要查詢的電話號(hào)碼”后面的文本框中輸入要查詢的電話號(hào)碼，這里以為例。輸入電話號(hào)碼后，點(diǎn)擊“查詢”按鈕，在“您本月的電話費(fèi)用為”后面的文本框中將顯示對(duì)應(yīng)此電話號(hào)碼的電話費(fèi)用，如下圖。計(jì)費(fèi)標(biāo)準(zhǔn)選項(xiàng)顯示當(dāng)前的計(jì)費(fèi)標(biāo)準(zhǔn)：4.“系統(tǒng)選項(xiàng)”菜單 通過(guò)“系統(tǒng)選項(xiàng)”菜單，可以方便地進(jìn)行管理員和普通用戶身份地切換，有“管理員登錄”、“普通用戶登錄”、“退出系統(tǒng)”三個(gè)子菜單。下圖顯示的是“系統(tǒng)選項(xiàng)”的子菜單。下圖為在“系統(tǒng)選項(xiàng)”菜單中選擇“管理員登錄”子菜單后的效果圖。下圖為在“系統(tǒng)選項(xiàng)”菜單中選擇“普通用戶登錄”子菜單后的效果圖。5.“關(guān)于”菜單 “關(guān)于”菜單提供本系統(tǒng)有關(guān)的信息，如幫助

12、以及軟件的相關(guān)信息等。下圖顯示的是“關(guān)于”菜單項(xiàng)的子菜單下圖為在“關(guān)于”菜單中選擇“幫助”子菜單后的效果圖。下圖為在“關(guān)于”菜單中選擇“關(guān)于本軟件”子菜單后的效果圖。6.管理員管理模塊該模塊與普通用戶模塊大體相似，也有日?qǐng)?bào)表、月報(bào)表、本月話費(fèi)、計(jì)費(fèi)標(biāo)準(zhǔn)等選項(xiàng)。在日?qǐng)?bào)表選項(xiàng)卡中不僅可以輸入特定的電話號(hào)碼進(jìn)行查詢，還可以按日期查詢。而月報(bào)表除了可以按電話號(hào)碼查找以外，還可以查找所有的通話記錄。日?qǐng)?bào)表模塊除了可以實(shí)現(xiàn)與普通用戶管理模塊相同的查詢操作以外，還可以按指定的日期查詢。比如要查詢2月14日的所有通話記錄，在下面的窗口中“請(qǐng)輸入你要查詢的日期”后面的文本框里輸入“0214”即可。下圖是點(diǎn)擊“查詢”按鈕