【正文】 RadioButtonZhuXing_Click(ByVal sender As Object, ByVal e As ) Handles = True = End Sub Private Sub RadioButtoZheXian_Click(ByVal sender As Object, ByVal e As ) Handles = True = End Sub Private Sub RadioButtonBingXing_Click(ByVal sender As Object, ByVal e As ) Handles = True = End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles () End Sub End Class 讀者注銷窗體代碼 : Imports Public Class FormDuZheZhuXiao Dim sqlm As New SqlCommand Private Sub ButtonQuXiao_Click(ByVal sender As Object, ByVal e As ) Handles () End Sub Private Sub ButtonJianCe_Click(ByVal sender As , ByVal e As ) Handles If Then = select 讀者卡號(hào) from DuZheXinXi where 讀者卡號(hào) =39。 amp。 39。 39。 amp。 Else 39。,39。 amp。 = sqlm 39。,39。 (xinxi).Rows(0)(1) amp。 該卡號(hào)已經(jīng)掛失 ,不能進(jìn)行重復(fù)掛失操作 ,是否繼續(xù) ?, , 錯(cuò)誤 ) = Then () Else () End If End If Else If Trim() 正常 Then = update duzhexinxi set 當(dāng)前狀態(tài) =39。 39。 39。 amp。 Else = select * from DuZheXinXi where amp。i列下標(biāo)的變化范圍 , j行下標(biāo)的變化范圍 Do While j = 1 PrintLeft = Cellheight = (j).Height For i = 0 To 1 CellWidth = (i).Width ((j).Cells(i).Value, , , PrintLeft, PrintTop) (, PrintLeft, PrintTop, CellWidth, Cellheight) PrintLeft = PrintLeft + (i).Width Next PrintHeight = PrintHeight + (j).Height PrintTop = PrintTop + (j).Height j = j + 1 If PrintHeight = Then Exit Do End If Loop If j = 1 Then = True Else = False j = 0 End If Else 39。 and password=39。 amp。 Dim w, h, x, y As Integer If Then w = h = y = h / 2 / 2 x = w / 2 ( * ) / 2 (, , , x, y) End If If Then w = h = y = h / 2 / 2 + x = w / 2 ( * ) / 2 (, , , x, y) End If 39。 amp。 (0).Cells(0).Value amp。 = sqlconn () = select 姓名 ,性別 ,類型 ,讀者卡號(hào) ,操作員 from duzhexinxi where 讀者卡號(hào) =39。, amp。正常 39。 39。解掛 39。(myds, DuZheXinXi) 39。 39。 amp。 () 39。 amp。,職業(yè) =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。 39。() 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。 amp。,讀者卡號(hào) =39。End If Else = update duzhexinxi set 姓名 =39。 39。 amp。 amp。 amp。 amp。 amp。 ,39。 amp。 = sqlconn () = select * from DuZheXinXi = sqlm form_data(sqlm) End If End Sub Private Sub ToolStripLabel4_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub ToolStripLabel5_Click(ByVal sender As , ByVal e As ) Handles = False () End Sub End Class 讀者掛失窗體代碼 : Imports Public Class FormDuZheGuaShi Dim sqlm As New SqlCommand Public biaozi As Boolean Private Sub ButtonJianCe_Click(ByVal sender As , ByVal e As ) Handles If Then = select 讀者卡號(hào) from DuZheXinXi where 讀者卡號(hào) =39。% amp。 Dim PrintLeft, PrintTop As Integer PrintTop = Pr