【正文】 snum amp。支出 sb = New SolidBrush() End If End While () (sb1, 30 + 64 * (i 1), 500 output2, 25, output2) (output2, f, sb1, 30 + 64 * (i 1), 480 output2) Dim mySelectQuery11 As String = select sum(存取金額 ) from 消費(fèi)信息 where 帳號(hào) =39。 39。 amp。 39。 amp。取款 39。 39。 amp。 31 39。 28 Else date2 = 2021 amp。 30 ElseIf i = 2 Then date2 = 2021 amp。 1 If i = 4 Or i = 6 Or i = 9 Or i = 11 Then date2 = 2021 amp。利用循環(huán)逐月讀取 2021年 12個(gè)月的所有記 錄 Try date1 = 2021 amp。畫坐標(biāo) Dim sb1 As SolidBrush = New SolidBrush() Dim sb2 As SolidBrush = New SolidBrush() Dim p As New Pen(, 3) (p, 0, 500, 800, 500) (p, 20, 0, 20, 600) Dim f As New Font(batang, 10, ) (Jan, f, sb, 42, 510) (Feb, f, sb, 106, 510) (Mar, f, sb, 170, 510) (Apr, f, sb, 234, 510) (May, f, sb, 298, 510) (Jun, f, sb, 362, 510) (Jul, f, sb, 426, 510) (Aug, f, sb, 490, 510) (Sep, f, sb, 554, 510) (Oct, f, sb, 618, 510) (Nov, f, sb, 682, 510) (Dec, f, sb, 746, 510) (sb1, 480, 10, 20, 20) (sb2, 630, 10, 20, 20) 39。 () = New (strSql, SqlConnection1) () () (sqlSet, 消費(fèi)信息 ) = (消費(fèi)信息 ) 39。 snum amp。and 帳號(hào) =39。 amp。and 39。 amp。判斷日期選擇是否正確 Else = True Dim sqlAdap As New Dim sqlSet As New DataSet Dim strSql As String strSql = select*from 消費(fèi)信息 where 消費(fèi)日期 between39。查詢卡內(nèi)的余額，按鈕不可操作 End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles If Then MsgBox(日期選擇錯(cuò)誤！開始日期必須在結(jié)束日期之前。狀態(tài) = True = False MsgBox(解掛成功！ ) () 39。 Dim myCommand7 As New (updatestr, SqlConnection1) () = 您的校園一卡通帳戶處于 39。 snum amp。where 帳號(hào) =39。 0 amp。掛失，并更改顯示的狀態(tài)和數(shù)據(jù)庫(kù)的數(shù)據(jù) End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () Dim updatestr As String = update 帳號(hào) set 狀態(tài) =39。凍結(jié) 39。 39。 amp。 39。 amp。凍結(jié) 39。狀態(tài) = True = False End If If state = 1 Then 39。卡為活動(dòng)，則顯示“活動(dòng)”，可進(jìn)行“掛失”處理 = 您的校園一卡通帳戶處于 39。 Dim myCommand5 As New (mySelectQuery5, SqlConnection1) Dim myReader5 As = () While () state = (0) 39。 snum amp。窗口再次活動(dòng)時(shí)，按鈕可操作，置空 End Sub ? Form4—— 掛失解掛： Private Sub MenuItem1_Click(ByVal sender As , ByVal e As ) Handles () () End Sub Private Sub Form4_Load(ByVal sender As , ByVal e As ) Handles () Dim mySelectQuery5 As String = select 狀態(tài) from 帳號(hào) where 帳號(hào) =39。 Dim myCommand3 As New (updatestr, SqlConnection1) () () MsgBox(密碼修改成功！ ) 39。 snum amp。 where 帳號(hào) =39。 amp。阻止不設(shè)置新密碼的情況 () Else Try Dim updatestr As String = update 基本信息 set 密碼 =39。原始密碼輸入錯(cuò)誤，重新輸入 = = = () Else If nc2 nc1 Then MsgBox(輸入錯(cuò)誤：兩次輸入的新密碼不一致！ ) 39。按“取消”后，全部置空 End Sub Private Sub Form3_Load(ByVal sender As , ByVal e As ) Handles = = = = True = True 39。圖片的滾動(dòng)播放 End Sub Private Sub Form2_Activated(ByVal sender As Object, ByVal e As ) Handles = True 、 ‘窗口再次活動(dòng)時(shí)更新數(shù)據(jù) = True = Now = Trim(sname) amp。字幕滾動(dòng) End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () () End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles () () End Sub Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles () () End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles () () End Sub Private Sub Timer2_Tick(ByVal sender As , ByVal e As ) Handles = Now 39。 同學(xué)，歡迎進(jìn)入校園一卡通查詢系統(tǒng) 39?？刂茙ぬ?hào)輸入為數(shù)字 End If End Sub Private Sub TextBox2_TextChanged(ByVal sender As , ByVal e As ) Handles code = End Sub Private Sub Form1_Activated(ByVal sender As Object, ByVal e As ) Handles Randomize() = Int(Rnd() * 9000 + 1000) = = = () snum = 0 sname = code = 39。驗(yàn)證碼錯(cuò)誤時(shí) = = Int(Rnd() * 9000 + 1000) End Select Case Else MsgBox(密碼錯(cuò)誤！請(qǐng)重新輸入！ ) 39。驗(yàn)