【文章內(nèi)容簡(jiǎn)介】 = True = True End Sub Private Sub Form3_Activated(ByVal sender As Object, ByVal e As ) Handles = = = = True = True 39。窗口再次活動(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。 amp。 snum amp。 39。 Dim myCommand5 As New (mySelectQuery5, SqlConnection1) Dim myReader5 As = () While () state = (0) 39。窗口載入時(shí)，讀取卡的狀態(tài) End While () If state = 0 Then 39。卡為活動(dòng)，則顯示“活動(dòng)”，可進(jìn)行“掛失”處理 = 您的校園一卡通帳戶處于 39?；顒?dòng) 39。狀態(tài) = True = False End If If state = 1 Then 39?？閽焓?，則顯示“凍結(jié)”，可進(jìn)行“解掛”處理 = 您 的校園一卡通帳戶處于 39。凍結(jié) 39。狀態(tài) = False = True End If () End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles () Dim updatestr As String = update 帳號(hào) set 狀態(tài) =39。 amp。 1 amp。 39。where 帳號(hào) =39。 amp。 snum amp。 39。 Dim myCommand6 As New (updatestr, SqlConnection1) () = 您的校園一卡通帳戶處于 39。凍結(jié) 39。狀態(tài) = False = True MsgBox(掛失成功！ ) () 39。掛失，并更改顯示的狀態(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。 amp。 0 amp。 39。where 帳號(hào) =39。 amp。 snum amp。 39。 Dim myCommand7 As New (updatestr, SqlConnection1) () = 您的校園一卡通帳戶處于 39?；顒?dòng) 39。狀態(tài) = True = False MsgBox(解掛成功！ ) () 39。解掛，并更改顯示的狀態(tài)和數(shù)據(jù)庫(kù)的數(shù)據(jù) End Sub ? Form5—— 消費(fèi) 記錄： Private Sub MenuItem1_Click(ByVal sender As , ByVal e As ) Handles () () End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles ( ) = .FindBy帳號(hào) (snum).余額 = False 39。查詢卡內(nèi)的余額，按鈕不可操作 End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles If Then MsgBox(日期選擇錯(cuò)誤！開始日期必須在結(jié)束日期之前。 ) 39。判斷日期選擇是否正確 Else = True Dim sqlAdap As New Dim sqlSet As New DataSet Dim strSql As String strSql = select*from 消費(fèi)信息 where 消費(fèi)日期 between39。 amp。 amp。 39。and 39。 amp。 amp。 39。and 帳號(hào) =39。 amp。 snum amp。 39。 () = New (strSql, SqlConnection1) () () (sqlSet, 消費(fèi)信息 ) = (消費(fèi)信息 ) 39。根據(jù)選擇的日期列出改用戶的消費(fèi)和充值記錄 End If End Sub Private Sub TabPage3_Layout(ByVal sender As Object, ByVal e As ) Handles = True = = False = False End Sub Private Sub TabPage2_Layout(ByVal sender As Object, ByVal e As ) Handles = True = = False = Now = Now = False = False End Sub Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles () = True = True Dim g As Graphics g = Dim sb As SolidBrush = New SolidBrush() 39。畫坐標(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。畫坐標(biāo)結(jié)束 () Dim i As Integer Dim input As Dim input2 As Integer Dim output As Dim output2 As Integer Dim date1 As DateTime Dim date2 As DateTime For i = 1 To 12 Step 1 39。利用循環(huán)逐月讀取 2021年 12個(gè)月的所有記 錄 Try date1 = 2021 amp。 i amp。 1 If i = 4 Or i = 6 Or i = 9 Or i = 11 Then date2 = 2021 amp。 i amp。 30 ElseIf i = 2 Then date2 = 2021 amp。 i amp。 28 Else date2 = 2021 amp。 i amp。 31 39。不同的月份結(jié)束日期不同 End If Dim mySelectQuery10 As String = select sum(存取金額 ) from 消費(fèi)信息 where 帳號(hào) =39。 amp。 snum amp。 39。 and [[存 /取 ]]款 ]=39。取款 39。 and 消費(fèi)日期 between 39。 amp。 date1 amp。 39。 and 39。 amp。 date2 amp。 39。 Dim myCommand10 As New (mySelectQuery10, SqlConnection1) Dim myReader10 As = () While () If (0).IsNull Then output2 = 0