【正文】 amp。 = 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) = (duzhexinxi).Rows(0)(9) End If Else If MsgBox(請輸入讀者卡號 ., , 提示 ) = Then () Else () End If End If End Sub Private Sub ButtonQueDing_Click(ByVal sender As , ByVal e As ) Handles If And Trim() 注銷 Then = update duzhexinxi set 當(dāng)前狀態(tài) =39。 = sqlconn Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlm (sqlds, duzhekahao) If (duzhekahao). = 0 Then If MsgBox(沒有與之想對應(yīng)的讀者卡號 ,是否重新輸入 ., , 提示) = Then = () Else () End If Else = select * from DuZheXinXi where 讀者卡號 =39。() End Sub Private Sub 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 讀者卡號 from DuZheXinXi where 讀者卡號 =39。 39。 39。 39。 39。 39。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 Else 39。 If MsgBox(該書名已存在，請重新輸入。) = sqlconn () MsgBox(讀者 amp。,39。,39。 ,39。 amp。 amp。 amp。 amp。 xinbbie amp。 amp。 = sqlm 39。 amp。解掛 39。 解掛成功 , , 提示 ) () Else If MsgBox( amp。,39。,39。 ,39。 (xinxi).Rows(0)(2) amp。 (xinxi).Rows(0)(1) amp。 (xinxi).Rows(0)(0) amp。 amp。 amp。 該卡號已經(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。 amp。 amp。 39。 39。 39。 39。 39。掛失 39。 amp。 amp。 amp。 amp。 amp。 amp。 Else = select * from DuZheXinXi where amp。 =39。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 End If End Sub Private Sub ButtonQuXiao_Click(ByVal sender As , ByVal e As ) Handles () End Sub End Class 讀者查詢打印窗體代碼 : Public Class FormDuZheChaXunDaYin Public biaozi As Boolean Private Sub ButtonYeMianSheZhi_Click(ByVal sender As , ByVal e As ) Handles = PrintDocument1 () End Sub Private Sub ButtonYuLan_Click(ByVal sender As , ByVal e As ) Handles = PrintDocument1 () End Sub Private Sub ButtonDaYin_Click(ByVal sender As , ByVal e As ) Handles = PrintDocument1 = True = True = True If = Then () End If End Sub Private Sub ButtonYeMeiJiao_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub ButtonQuXiao_Click(ByVal sender As , ByVal e As ) Handles () End Sub Private Sub PrintDocument1_PrintPage(ByVal sender As , ByVal e As ) Handles Dim w, h, x, y As Integer Dim PrintHeight As Integer Dim PrintLeft, PrintTop As Integer Dim CellWidth, Cellheight As Integer Dim i As Integer Dim k As Integer Static j As Integer If biaozi = True Then 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 PrintTop = PrintLeft = For k = 0 To 1 ((k).HeaderText, , , PrintLeft, PrintTop) CellWidth = (k).Width Cellheight =