【文章內(nèi)容簡介】 Imports Public Class FormDuZheGuanLi Private Sub ToolStripLabel6_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub ToolStripLabel1_Click(ByVal sender As , ByVal e As ) Handles = True = 讀者信息添加對話框 () Dim sqlm As New SqlCommand = sqlconn = select * from DuZheXinXi form_data(sqlm) End Sub Private Sub FormDuZheGuanLi_Shown(ByVal sender As Object, ByVal e As ) Handles Dim sqlm As New SqlCommand = select * from DuZheXinXi = sqlconn Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlm form_data(sqlm) = select 職業(yè) from DuZheXinXi group by 職業(yè) = sqlconn = sqlm (sqlds, zhiye) () Dim i As Integer For i = 1 To (zhiye). ((zhiye).Rows(i 1)(0), (zhiye).Rows(i 1)(0)) = select 姓名 from DuZheXinXi where 職業(yè)=39。 amp。 (zhiye).Rows(i 1)(0) amp。 39。 = sqlm (sqlds, xingming) Dim j As Integer For j = 1 To (xingming). ((zhiye).Rows(i 1)(0)).((xingming).Rows(j 1)(0), (xingming).Rows(j 1)(0)) Next (xingming).Clear() Next End Sub Private Sub form_data(ByVal sqlcmd As SqlCommand) Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlcmd (sqlds, DuZheXinXi) = (DuZheXinXi) End Sub Private Sub TreeView1_AfterSelect(ByVal sender As Object, ByVal e As ) Handles Dim sqlm As New SqlCommand = select * from DuZheXinXi where 姓名=39。 amp。 amp。 39。 = sqlconn Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlm (sqlds, DuZheXinXi) If (DuZheXinXi). 0 Then form_data(sqlm) End If End Sub Private Sub ToolStripLabel2_Click(ByVal sender As , ByVal e As ) Handles = False If = 0 Then MsgBox(你沒有選中想要修改的行,用戶鼠標點擊圖表中向右的黑色小箭頭即可選中該行., , 提示) Else = 讀者信息修改對話框 () Dim sqlm As New SqlCommand = sqlconn = select * from DuZheXinXi form_data(sqlm) End If End Sub Private Sub ToolStripLabel3_Click(ByVal sender As , ByVal e As ) Handles Dim sqlm As New SqlCommand Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter If = 0 Then MsgBox(你沒有選中想要刪除的行,用戶鼠標點擊圖表中向右的黑色小箭頭即可選中該行., , 提示) Else = delete from DuZheXinXi where 編號=39。 amp。 (0).Cells(0).Value amp。 39。 = 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 SubEnd 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 讀者卡號 from DuZheXinXi where 讀者卡號=39。 amp。 amp。 39。 = sqlconn Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlm (sqlds, duzhekahao) If (duzhekahao). = 0 Then If MsgBox(沒有與之想對應的讀者卡號,是否重新輸入., , 提示) = Then = () Else () End If Else = select * from DuZheXinXi where 讀者卡號=39。 amp。 amp。 39。 = sqlconn = sqlm (sqlds, duzhexinxi) = (duzhexinxi).Rows(0)(1) = (duzhexinxi).Rows(0)(2) = (duzhexinxi).Rows(0)(3) = (duzhexinxi).Rows(0)(4) = (duzhexinxi).Rows(0)(13) = (duzhexinxi).Rows(0)(15) End If Else If MsgBox(請輸入讀者卡號., , 提示) = Then () Else () End If End If End Sub Private Sub ButtonQuXiao_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub ButtonQueDing_Click(ByVal sender As , ByVal e As ) Handles If Then If Trim() 注銷 Then If biaozi = True Then If Trim() 掛失 Then = update duzhexinxi set 當前狀態(tài)=39。掛失39。 where 讀者卡號=39。 amp。 amp。 39。 = sqlconn () = select 姓名,性別,類型,讀者卡號,操作員 from duzhexinxi where 讀者卡號=39。 amp。 amp。 39。 Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlm (sqlds, xinxi) = insert into duzhezhuangtai values(39。 amp。 (xinxi).Rows(0)(0) amp。 39。,39。 amp。 (xinxi).Rows(0)(1) amp。 39。,39。 amp。 (xinxi).Rows(0)(2) amp。 39。, amp。 (xinxi).Rows(0)(3) amp。 ,39。 amp。 amp。 39。,39。 amp。 (xinxi).Rows(0)(4) amp。 39。,39。掛失39。) = sqlconn () MsgBox(卡號 amp。 amp。 掛失成功, , 提示) () Else If MsgBox( amp。 該卡號已經(jīng)掛失,不能進行重復掛失操作,是否繼續(xù)?, , 錯誤) = Then () Else () End If End If Else If Trim() 正常 Then = update duzh