【正文】 證碼為空時 Case () 39。未輸入帳號時 Else Select Case Case MsgBox(密碼不能為空，請輸入！ ) 39。連接關(guān)閉 If checkcode = And Then MsgBox(您輸入的帳號不存在！ ) Randomize() = Int(Rnd() * 9000 + 1000) = = = () 39。 + + 39。 Dim myCommand1 As New (mySelectQuery1, SqlConnection1) Dim myReader1 As = () While () checkcode = (0) End While () 39。打開連接，到數(shù)據(jù)庫讀取該帳號的密碼 () Dim mySelectQuery1 As String = select 密碼 from 基本信息 where 帳號 = 39。窗口 1載入時，產(chǎn)生隨機的 4位驗證碼，并將原來各個輸入框置空，定位于帳號輸入 End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles = = = Randomize() = Int(Rnd() * 9000 + 1000) () 39。persist security info=True。data s amp。packet size=4096。SqlConnection1 39。用戶卡的狀態(tài) Public sname As String 39。用戶輸入的帳號 Public code As String 39。 ? Form6—— 充值：輸入銀行卡卡號、密碼，以及需要充值的金額。 ? 消費明細(xì)：根據(jù)選擇的日期，列出歷史消費和充值記錄。 ? Form5—— 消費記錄： 查詢與消費記錄相關(guān)的內(nèi)容。 ? Form3—— 修改密碼：提供密碼修改，需要輸入原密碼，以及新密碼兩次輸入驗證。,1,1) rollback transaction end end end end end 在查詢分析器輸入命令以驗證 對不存在的帳號禁止操作 命令： 結(jié)果： 對已經(jīng)掛失的帳號禁止操作 命令： 結(jié)果： 五、 窗口設(shè)計 此項目共有六個窗口： ? Form1—— 登陸：供輸入帳號、密碼和驗證碼，以和數(shù)據(jù)庫中的“基本信息”表中的信息進行比對，以確定能否進入其余界面。 begin update 帳號 set bal= balcash where bal=(select 存取金額 from inserted) and cash=(select [[存 /取 ]]款 ] from inserted) if bal0 begin raiserror(39。 update 帳號 set bal= bal+cash where bal=(select 存取金額 from inserted) and cash=(select [[存 /取 ]]款 ] from inserted) end if mark=39。 begin print 39。,1,1) rollback transaction end else begin if mark=39。,1,1) rollback transaction end else begin if state=1 begin raiserror(39。 ? 表三： 設(shè)計：消費信息 內(nèi)容： ? 表四： 銀行卡 帳號 設(shè)計： 內(nèi)容： 存儲過程、觸發(fā)器設(shè)計： 在表消費信息上的觸發(fā)器 create trigger balcontrol on 消費信息 for insert as declare cash int, bal int, mark char, acc char(10), state int select bal= ,state= from 帳號 a where acc=帳號 begin if not exists (select * from 帳號 where 帳號 =(select 帳號 from inserted)) begin raiserror (39。 ? 鐘毅婉：主要負(fù)責(zé)程序總的設(shè)計，參與 “ 歡迎 ” 等部分板塊的程序編寫。 ? 楊瑩吉：主要負(fù)責(zé) “ 消費明細(xì) ” 板塊中的 “ 余額查詢 ” 程、 “” 明細(xì)查詢 “ 等的編寫，參與其他板塊程序的編寫。 ? 馮圣潔：主要負(fù)責(zé)原始數(shù)據(jù)的錄入，以及在原始數(shù)據(jù)上建立存儲過程 和觸發(fā)器。 ? 卡內(nèi)余額查詢 ? 歷史消費充值記錄的自定義日期查詢 ? 年度歷史消費充值記錄的統(tǒng)計與描繪 ? 轉(zhuǎn)帳充值： 提供對一卡通的充值服務(wù)，從銀行卡轉(zhuǎn)帳。 ? 掛失和解掛： 提供掛失和解掛的服務(wù)。 我們 此次 項目 正是 針對這些問題而設(shè)計的 ，旨在 運用《 數(shù)據(jù)庫 》所學(xué) 的知識以及 平臺程序設(shè)計 基礎(chǔ) ，設(shè)計出一個 簡單、易用、功 能完善的自助在線一卡通帳戶管理系統(tǒng)。 而且都沒有掛失和解掛功能，需要到專門部門進行操作。 同濟 大學(xué) 《數(shù)據(jù)庫技術(shù)及應(yīng)用 》 項目設(shè)計 報告 項目設(shè)計 報告題目： 校園一卡通查詢 轉(zhuǎn)帳 系統(tǒng) 小組成員姓名 ： 許夢姬、馮圣潔、支慧、楊瑩吉、鐘毅婉 班級： 數(shù)據(jù)庫（ 一 ）班 姓名： 許夢姬 學(xué)號： 042392 年級： 大二 專業(yè)： 物流管理 指導(dǎo)教師： 袁科萍 日期： 2021 年 06 月 11 日 一、 項目 設(shè)計 的背景、 目的和意義 我校校園一卡通自 2021年 9月新學(xué)期開始正式啟用以來，已經(jīng)使用將近一年了。在這一年的使用過程中，我們發(fā)現(xiàn) 了校園一卡通使用上的兩個不足之處 ： 1) 校園一卡通 的自助查詢機 （觸摸屏式）和轉(zhuǎn)帳機分離，均設(shè)立在食堂內(nèi)，往往 經(jīng)常人滿為患，需要排隊 等候查詢和轉(zhuǎn)帳 ， 因此會造成對 時間 的浪費 。 2) 網(wǎng)上 的 校園卡網(wǎng)站的功能不夠完全 ，只有基本的查詢功能，不能實施轉(zhuǎn)帳，而且知曉率不高 。 二、 項目 主要功能描述 在用戶以正確的用戶名和密碼登陸后，可進入“歡迎”頁面，有四大功能可供選擇 : ? 密碼修改： 提供修改一卡通密碼的服務(wù)。 ? 消費明細(xì)： 此功能中有 3個分類功能。 三、 成員分工： ? 許夢姬：組長，主要負(fù)責(zé)總的策劃，程序總調(diào)試，部分板塊程序的編寫。參與部分板塊的程序編寫。 ? 支慧：主要負(fù)責(zé) “ 銀行卡轉(zhuǎn)帳 ” 板塊的程序編寫，參與 “ 消費統(tǒng)計圖 ” 等板塊程序的編寫。 四、 數(shù)據(jù)庫設(shè)計 原始數(shù)據(jù)設(shè)計： ? 表一： 基本信息 設(shè)計： 內(nèi)容： ? 表二： 設(shè)計：帳號 內(nèi)容： 數(shù)據(jù)說明：狀態(tài)中“ 0”表示卡處于活動狀態(tài)，“ 1“表示卡處于掛失狀態(tài)。帳號不存在 !39。已掛失 !39。存款 39。已存入 39。取款 39。不能透支 !39。 ? Form2—— 歡迎：供選擇不同的功能進入。 ? Form4—— 掛失解掛：告知當(dāng)前卡的狀態(tài)，以進行相應(yīng)的掛失或解掛操作。 ? 余額查詢：提供余額查詢服務(wù)。 ? 消費統(tǒng)計圖：根據(jù)選擇的年份，畫出消費和充值的直方圖。 六、 功能設(shè)計 的 程序 與 標(biāo)注 模塊中定 義全局變量的代碼 Module Module1 Public f1 = New Form1 Public f2 = New Form2 Public f3 = New Form3 Public f4 = New Form4 Public f5 = New Form5 Public f6 = New Form6 Public snum As String 39。用戶 輸入的密碼 Public state As Integer 39。用戶的姓名 End Module ? Form1—— 登陸： 39。 = workstation id=SNAIL6ZY0NE5GF。integrated security=SSPI。 _ ource=SNAIL6ZY0NE5GF。initial catalog=fanka Private Sub Form1_Load(ByVal sender As , ByVal e As ) Handles Randomize() = Int(Rnd() * 9000 + 1000) = = = () 39。按“取消”按鈕后，重新產(chǎn)生隨機的 4位驗證碼，并將原來各個輸入框置空，定位于帳號輸入 End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles Dim checkcode As String snum = code = 39。 + + 39。到數(shù)據(jù)庫讀取該帳號的姓名 Dim mySelectQuery2 As String = select 姓名 from 基本信息 where 帳號 = 39。 Dim myCommand2 As New (mySelectQuery2, SqlConnection1) Dim myReader2 As = () W