VB課程設(shè)計實例(共15頁)

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

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

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

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

5、計下面我就從軟件的使用流程來具體介紹軟件的功能和實現(xiàn)原理：1 首先，軟件啟動時會出現(xiàn)登錄選項：附：本窗體代碼Private Sub Command1_Click()If Option1.Value = True Thenadminlogin.ShowElse: userlogin.ShowEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub 2.登錄窗口使用者必需選擇相應(yīng)的身份類別才能進入本系統(tǒng)。系統(tǒng)內(nèi)置的管理員帳戶和密碼為admin，普通用戶帳戶和密碼為user。下面是分別選擇不同身份類別時出現(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 "密碼錯誤!請重新輸入！", vbOKOnly, "登錄失敗" Text2.Text = "" End IfElseMsgBox "用戶名錯誤！請重新輸入！", 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 "密碼錯誤!請重新輸入！", vbOKOnly, "登錄失敗" Text2.Text = "" End IfElseMsgBox "用戶名錯誤！請重新輸入！", 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由于管理員帳戶與普通用戶大部分的操作均相同，故下面先用普通用戶的身份進行演示，不同之處另外加以說明。在上圖的普通用戶登錄框中輸入用戶名和密碼進入系統(tǒng)。3.普通用戶管理模塊在該模塊中，有日報表、月報表、本月話費、計費標準等選項。在日報表選項卡中用戶可以輸入

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

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

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