【導(dǎo)讀】我校校園一卡通自2021年9月新學(xué)期開始正式啟用以來，已經(jīng)使用將近一年了。為患，需要排隊等候查詢和轉(zhuǎn)帳，因此會造成對時間的浪費。需要到專門部門進(jìn)行操作。平臺程序設(shè)計基礎(chǔ)，設(shè)計出一個簡單、易用、功能完善的自助在線一卡通帳戶管理系統(tǒng)。消費明細(xì)：此功能中有3個分類功能。年度歷史消費充值記錄的統(tǒng)計與描繪。數(shù)據(jù)說明：狀態(tài)中“0”表示卡處于活動狀態(tài)，“1“表示卡處于掛失狀態(tài)。的信息進(jìn)行比對，以確定能否進(jìn)入其余界面。Form4——掛失解掛：告知當(dāng)前卡的狀態(tài)，以進(jìn)行相應(yīng)的掛失或解掛操作。

　　

【正文】 End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles () Dim BankCode As String Dim SelectCode As String Dim money As Integer = Dim Balance As String Dim SelectBalance As String SelectCode = select 密碼 from 銀行卡帳號 where 帳號 = 39。 + + 39。 Dim myCommand8 As New (SelectCode, SqlConnection1) Dim myReader8 As = () While BankCode = (0) 39。讀取銀行卡的密碼 End While () If money 300 Then MsgBox(注意！請勿一次充入過多現(xiàn)金。 ) = = = 39。防止大額充值，增加安全性 Else If BankCode = And Then MsgBox(您輸入的銀行帳號不存在！ ) = = () Else If BankCode Then MsgBox(銀行卡密碼錯誤！請重新輸入 ) = () Else SelectBalance = select 余額 from 銀行卡帳號 where 帳號 = 39。 + + 39。 Dim BalanceCommand As New (SelectBalance, SqlConnection1) Dim BalanceReader As = () While Balance = (0) 39。讀取銀行卡上的余額 End While () If Balance money Then MsgBox(余額不足！ ) 39。銀行卡余額不足時 = = = () Else Dim Time As Date Time = Now Dim InsertConsume As String InsertConsume = insert into 消費信息 ( 帳號 , [[存 /取 ]]款 ] , 存取金額 , 消費日期 ) values ( 39。 amp。 snum amp。 39。 , 39。存款 39。 , amp。 money amp。 , 39。 + Time + 39。) Dim ConsumeCommand As New (InsertConsume, SqlConnection1) () 39。在消費信息中增加一條該用戶充值信息 Dim BalanceFanka As String Dim SelectBalanceFanka As String SelectBalanceFanka = select 余額 from 帳號 where 帳號 = 39。 amp。 snum amp。 39。 Dim BalanceFankaCommand As New (SelectBalanceFanka, SqlConnection1) Dim BalanceFankaReader As = () While BalanceFanka = (0) End While () 39。讀取該用戶卡內(nèi)充值前的余額 Dim UpdateFanka As String UpdateFanka = update 帳號 set 余額 = amp。 BalanceFanka amp。 + + + where 帳號 = 39。 amp。 snum amp。 39。 Dim FankaCommand As New (UpdateFanka, SqlConnection1) () 39。更改帳號內(nèi)該用戶的余額 Dim UpdateBank As String UpdateBank = update 銀行卡帳號 set 余額 = amp。 Balance amp。 + + where 帳號 = 39。 + + 39。 Dim BankCommand As New (UpdateBank, SqlConnection1) () 39。修改銀行卡內(nèi)現(xiàn)在的余額 MsgBox(轉(zhuǎn)賬成功！轉(zhuǎn)賬金額為 amp。 money amp。 元 ) 39。提示轉(zhuǎn)帳成功 = = = = False = False 39。按鈕不可操作，防止重復(fù)充值 End If End If End If End If () End Sub Private Sub Form6_Activated(ByVal sender As Object, ByVal e As ) Handles = True = True 39。窗口再次活動后，按鈕可操作 End Sub 七、 測試數(shù)據(jù) ? Form1—— 登陸： 帳號輸入為非法字符 未輸入帳號就登陸 輸入的帳 號不是數(shù)據(jù)庫中的帳號 未輸入密碼 密碼輸入錯誤，應(yīng)該為“ 293240”，這里輸入了“ 000000” 未輸入驗證碼 驗證碼不匹配 ? Form2—— 歡迎： 不同用戶進(jìn)入，會顯示其姓名 ? Form3—— 修改密碼： 修改密碼時，輸入的原始密碼錯誤 ，應(yīng)為“ 042392”，實際輸入的是“ 000000” 不設(shè)置密碼 兩次輸入的新密碼不一致 ，一次為“ 000000”，一次為“ 111111” 密碼修改成功 成功后不允許立刻再操作 ，操作按鈕變?yōu)椴豢刹僮? ? Form4—— 掛失 解掛： 初始的界面狀態(tài) 解掛以后的狀態(tài) ? Form5—— 消費記錄：查詢與消費記錄相關(guān)的內(nèi)容。 余額查詢 消 費明細(xì) 消費統(tǒng)計圖 ? Form6—— 充值：輸入銀行卡卡號、密碼，以及需要充值的金額。 銀行卡內(nèi)余額不足 阻止一次充值太多，增強安全性 銀行卡卡號錯誤 銀行卡密碼錯誤 充值成功 充值成功后，禁止頻繁操作 八、 自我評述 收獲與心得 經(jīng)過這次的項目設(shè)計，使我對《數(shù)據(jù)庫》這門課的知識不但有了更深入的了解，更有了突破性的實踐應(yīng)用，也掌握了 。 在項目的設(shè)計制作過程中，我們遇到了很多的困難。在摸索 ，為了了解更多的知識，我從圖書館借了 3本書，分別是《 VB 程序設(shè)計與數(shù)據(jù)庫應(yīng)用》、《 程序設(shè)計》和《 多媒體整合應(yīng)用》，還找出了大一時使用的 VB 教程，也上網(wǎng)查了很多資料。在自學(xué)的過程中，自己的知識和學(xué)習(xí)方法都有了長足進(jìn)步。 我們遇到的最大的設(shè)計瓶頸就是在畫統(tǒng)計圖方面。一開始，在那句選擇的命令中無法直接運用選擇的日期，因為每個月的長短是不同的， 變量連接會出現(xiàn)錯誤。后來，在變量的類型轉(zhuǎn)換上也花費了很 大的力氣，同一個變量在不同的地方需要不同的類型。最后，就是 一次一次不斷做細(xì)微的 數(shù)值 調(diào)整， 以讓圖像達(dá)到最佳的狀態(tài)。在經(jīng)過近 10 天，數(shù)百次的調(diào)整嘗試后，我們終于成功了。 在最后答辯的時候，由于不小心打了一對單引號，導(dǎo)致程序始終錯誤，面臨在兩個重要功能畫圖和轉(zhuǎn)帳中，做出取舍。但最后，在經(jīng)過 2個小時的排查后，終于找到錯誤，成功運行。 當(dāng)看著自己設(shè)計的程序順利運行時，那種感覺是無法用語言體會的，這種收獲是無法僅從課本得到的。 程序還可以改進(jìn)的地方 ? 改善程序的可讀性，即注意添加一些必要的注釋語句，方便成員之間交流，和他人查看。 ? 增強代碼的健壯性 ，改善對異常的處理 。 ? 減少代碼的冗余。 ? 改進(jìn)功能，使其更完善。 在經(jīng)過答辯后，老師的提問也給了我們 在程序改經(jīng)方面 很大的 專業(yè) 提示 ? 在登陸和轉(zhuǎn)帳的密碼輸入方面，應(yīng)該設(shè)置一個計數(shù)器，以防止他人無限制地猜測密碼，有不安全的隱患。 ? 在原始數(shù)據(jù)上，我們應(yīng)該將每個人的消費信息獨立成一張表，或者建立索引，因此現(xiàn)實生活中的數(shù)據(jù)要遠(yuǎn)大于實驗的，這樣可以使查找更有效率 ? 因為有數(shù)據(jù)涉及多張表格的修改，那么應(yīng)該考慮機器如果在修改完一張表，還未進(jìn)行其他表格修改的時候出現(xiàn)死機等破壞性情況時原始數(shù)據(jù)的處理方法。