【正文】 (, PrintLeft, PrintTop, CellWidth, Cellheight) PrintLeft = PrintLeft + (k).Width Next PrintTop = PrintTop + PrintHeight = 39。 Dim CellWidth, Cellheight As Integer 39。i列下標的變化范圍 , j行下標的變化范圍 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。 vbCrLf amp。 vbCrLf amp。 = sqlconn = sqlm (sqlds, userinfo) If (userinfo). = 0 Then If (用戶名或密碼錯誤 , 錯誤提示 , , ) = Then = = () End If Else biaozhi = True () = End If End Sub Private Sub FormDengLu_FormClosing(ByVal sender As Object, ByVal e As ) Handles If biaozhi = False Then End End If End Sub Private Sub FormDengLu_Shown(ByVal sender As Object, ByVal e As ) Handles () = New Bitmap( amp。 and password=39。data source=(local) () Dim sqlm As New SqlCommand Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = select * from userinfo where username=39。登錄窗體代碼 : Imports Public Class FormDengLu Dim biaozhi As Boolean Private Sub ButtonDengLu_Click(ByVal sender As Object, ByVal e As ) Handles = user id=sa。 amp。 amp。 \picture\) = New Bitmap( amp。 vbCrLf amp。 admin,密碼 admin = New Bitmap( 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。 Dim k As Integer For k = 0 To 1 ((k).HeaderText, , , PrintLeft, PrintTop) CellWidth = (k).Width Cellheight = (, PrintLeft, PrintTop, CellWidth, Cellheight) PrintLeft = PrintLeft + (k).Width Next PrintTop = PrintTop + PrintHeight = 39。i列下標的變化范圍 , j行下標的變化范圍 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 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 = (, PrintLeft, PrintTop, CellWidth, Cellheight) PrintLeft = PrintLeft + (k).Width Next PrintTop = PrintTop + PrintHeight = 39。 amp。 amp。 %39。 (zhiye).Rows(i 1)(0) amp。 amp。 (0).Cells(0).Value amp。 amp。 amp。 where 讀者卡號 =39。 = sqlconn () = select 姓名 ,性別 ,類型 ,讀者卡號 ,操作員 from duzhexinxi where 讀者卡號 =39。 Dim sqlds As New DataSet Dim sqldapt As New SqlDataAdapter = sqlm (sqlds, xinxi) = insert into duzhezhuangtai values(39。,39。,39。, amp。 amp。 (xinxi).Rows(0)(4) amp。) = sqlconn () MsgBox(卡號 amp。正常 39。 39。 39。 39。 39。 39。 amp。 amp。解掛 39。 該卡號的當前狀態(tài)已經(jīng)為正常 ,不需要再次進行解掛操作 ,是否繼續(xù) ?, , 錯誤 ) = Then () Else () End If End If End If Else If MsgBox(當前用戶已經(jīng)為注銷狀態(tài) , 將不會對此做任何操作 ,是否繼續(xù) ?, , 警告 ) = Then () Else