【正文】 希望老師多提寶貴意見。系統(tǒng)開發(fā)的過程是一個鞏固以前所學的計算機知識。 39。 39。 39。 39。Data Source=。 amp。是39。 sql = adUseClient sql, conn, adOpenKeyset, adLockPessimistic = False = False = False Set = rsFindBook End SubPrivate Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) book_num = (0).CellValue()End SubPrivate Sub Command2_Click() = False = False = False kc = (9).CellValue() If Trim(book_num) = Then MsgBox 請選擇要借閱的圖書！, vbOKOnly + vbExclamation Exit Sub End If If kc 1 Then MsgBox 警告：此書已被借完！, vbOKOnly + vbExclamation Exit Sub End If Unload MeEnd SubPrivate Sub Command3_Click()End SubPrivate Sub Form_Load()Dim nstr As StringDim sql As StringSet conn = New Set rsUser = New nstr = Provider=。 Trim( amp。 ) amp。 39。 End If If = vbChecked Then sql = 類別=39。 amp。 Trim( amp。 sql, conn, adOpenKeyset, adLockPessimistic If Then (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() (5) = Trim() (6) = Trim() (7) = Trim() (8) = Trim() (9) = Trim() (10) = Trim() (11) = Trim() (12) = Trim() (13) = Trim() (15) = Trim() (14) = Trim() MsgBox 添加讀者信息成功！, vbOKOnly, Else MsgBox 讀者編號重復！, vbOKOnly + vbExclamation, = Exit Sub End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim rsType As New Dim rsSet As New Dim rsSexy As New Dim sql As StringDim sql1 As StringDim sql2 As StringDim nstr As StringSet conn = New nstr = Provider=。Persist Security Info=False nstr If Trim() = Then MsgBox 請選擇性別, vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 讀者編號不能為空, vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 讀者姓名不能為空, vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 已借書數(shù)量不能為空, vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 借書證號不能為空, vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 身份證號不能為空, vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 限借數(shù)量不能為空, vbOKOnly + vbExclamation, Exit Sub End If If Trim() = Then MsgBox 借書期限不能為空, vbOKOnly + vbExclamation, Exit Sub End If sql = select * from 讀者信息 where 讀者編號 =39。 sql, conn, adOpenKeyset, adLockPessimisticIf Then (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() MsgBox 添加圖書類別成功！, vbOKOnly, Else MsgBox 讀者類別重復！, vbOKOnly + vbExclamation, = Exit SubEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load() Dim nstr As String Dim sql As String Set conn = New nstr = Provider=。Persist Security Info=False nstrsql = select * from 圖書類別sql1 = select * from 登錄 sql, conn, adOpenKeyset, adLockPessimisticDo While Not (1) Loop sql1, conn, adOpenKeyset, adLockPessimisticDo While Not (1) LoopEnd SubPrivate Sub Text5_Change() = Trim()End Sub添加讀者類別添加讀者類別功能是向庫里邊添加可向圖書館借書的人員類別添加類別代碼Priva