毕业设计－vbsql图书管理系统

毕业设计－vbsql图书管理系统内容摘要：

tr .Rows = + 1 .Cols = For i = 0 To .Cols 1 .TextMatrix(0, i) = (i).Name Next i For j = 1 To .Rows 1 For k = 0 To .Cols 1 .TextMatrix(j, k) = (k).Value amp。 Next k Next j End With End Sub Public Function Update(sql As String) As Long Dim n As New Dim cmd As New On Error GoTo lab strn = n = adCmdText = sql 论文网 Update = Err Exit Function lab: If = 1 本文来自六 维论文网 Then End If MsgBox Update = Err End Function Public Sub PanDuan() Dim sql As String, sql1 As String, strSql1 As String Dim strSql2 As String, strSql3 As String, strSql4 As String If And And _ And And And Then If MsgBox(是否借出此书 ?, vbOKCancel + vbQuestion, 询问 ) = vbOK Then sql = select * from 图书借阅 where 借书证号 =39。 + Trim() + 39。 ShowData sql, (1).Text = 总共有 amp。 1 amp。 条记录 strSql1 = select 状态 from 图书信息 where 图书 ID=39。 + Trim() + 39。 ShowData strSql1, If Trim((.Row, 0)) = 借出 Then MsgBox 此书籍库存量为 0 不可借。 , vbOKOnly + vbInformation, 信息 Exit Sub End If = 2 = 2 strSql2 = select * from 图书罚款 where 图书 ID=39。 + Trim() + 39。 ShowData strSql2, If Trim((.Row, 6)) = 否 Then MsgBox 此书籍逾期欠款，请先交款。 , vbOKOnly + vbInformation, 信息 1。