【正文】 39。 amp。注銷 39。 39。 amp。 39。 amp。() End Sub Private Sub RadioButtonleixing_Click(ByVal sender As Object, ByVal e As ) Handles = True = select 類型 ,count(*) as 數(shù)量 from duzhexinxi group by 類型 = sqlconn = sqlm (sqlds, leixing) Dim i As Integer = 1 = (leixing). For i = 1 To (leixing). With AxMSChart1 .Row = 1 .Column = i .RowLabel = .ColumnLabel = (leixing).Rows(i 1)(0) .Data = (leixing).Rows(i 1)(1) End With Next 39。() = True = select 當(dāng)前狀態(tài) ,count(*) as 數(shù)量 from duzhexinxi group by 當(dāng)前狀態(tài) = sqlconn = sqlm (sqlds, zhuangtai) Dim i As Integer = 1 = (zhuangtai). For i = 1 To (zhuangtai). With AxMSChart1 .Row = 1 .Column = i .RowLabel = .ColumnLabel = (zhuangtai).Rows(i 1)(0) .Data = (zhuangtai).Rows(i 1)(1) End With Next = True = = select * from duzhexinxi = sqlconn = sqlm (sqlds, duzhe) = (duzhe) End Sub Private Sub RadioButtonzhuangtai_Click(ByVal sender As Object, ByVal e As ) Handles = True = select 當(dāng)前狀態(tài) ,count(*) as 數(shù)量 from duzhexinxi group by 當(dāng)前狀態(tài) = sqlconn = sqlm (sqlds, zhuangtai) Dim i As Integer = 1 = (zhuangtai). For i = 1 To (zhuangtai). With AxMSChart1 .Row = 1 .Column = i .RowLabel = .ColumnLabel = (zhuangtai).Rows(i 1)(0) .Data = (zhuangtai).Rows(i 1)(1) End With Next 39。 = True 39。 = sqlconn () MsgBox(讀者信息修改成功 ., , 提示 ) () End If Else MsgBox(讀者資料錄入不完整 ,是否重新輸入 ., , 提示 ) End If End Sub End Class 讀者統(tǒng)計分析窗體代碼 : Imports Public Class FormDuZheTongJiFenXi Dim sqlm As New SqlCommand Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter Private Sub FormduzheTongJiFenXi_Shown(ByVal sender As Object, ByVal e As ) Handles = True 39。 (0).Cells(0).Value amp。 where 編號 =39。 amp。,是否掛失 =39。 amp。,職業(yè) =39。 amp。 ,備注 =39。,押金 = amp。 amp。,聯(lián)系電話 =39。 amp。,讀者卡號 =39。 amp。,年齡 =39。 amp。,類型 =39。 xinbbie amp。,性別 =39。 amp。End If Else = update duzhexinxi set 姓名 =39。 () 39。 () 39。 , , 錯誤提示 ) = Then 39。Else 39。 amp。 39。 amp。 39。 amp。 39。 amp。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。(myds, DuZheXinXi) 39。 = sqlconn Dim xinbbie As String If = True Then xinbbie = 男 Else xinbbie = 女 End If If biaozi = True Then Dim myds As New DataSet Dim sqldapt As New SqlDataAdapter 39。 39。 amp。 = sqlconn Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlm (sqlds, jiegua) End If form_data(sqlm) End Sub Private Sub form_data(ByVal sqlcmd As SqlCommand) Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlcmd (sqlds, jieguashi) = (jieguashi) End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles = True () End Sub End Class 讀者添加窗體代碼 : Imports Public Class FormDuZheTianJia Public biaozi As Boolean Private Sub FormDuZheTianJia_Shown(ByVal sender As Object, ByVal e As ) Handles If biaozi = True Then = = = = = = = = = () = True Else () = (0).Cells(1).Value = (0).Cells(4).Value = (0).Cells(3).Value = (0).Cells(5).Value = (0).Cells(9).Value = (0).Cells(13).Value = (0).Cells(6).Value = (0).Cells(14).Value = (0).Cells(11).Value End If End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub ButtonQueDing_Click(ByVal sender As , ByVal e As ) Handles Dim sqlm As New SqlCommand If And And And And And Then 39。 = sqlconn Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlm (sqlds, guashi) Else = select * from duzhezhuangtai where 操作方式 =39。 該卡號的當(dāng)前狀態(tài)已經(jīng)為正常 ,不需要再次進(jìn)行解掛操作 ,是否繼續(xù) ?, , 錯誤 ) = Then () Else () End If End If End If Else If MsgBox(當(dāng)前用戶已經(jīng)為注銷狀態(tài) , 將不會對此做任何操作 ,是否繼續(xù) ?, , 警告 ) = Then () Else () End If End If Else If MsgBox(沒有可掛失的讀者信息 , 請確認(rèn)后操作 ,是否繼續(xù) ?, , 提示 ) = Then ()