评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

VB+图书管理系统的设计与实现(一)毕业论(7)

2013-06-16 01:04 ordset.EOF = True Then
 Adodc1.Recordset.MoveLast
 End If
 DataGrid1.Refresh
 MsgBox "成功删除!", vbOKOnly + vbExclamation, ""
 DataGrid1.AllowDelete = False
 Else
 Exit Sub
 End If
 command3error:
 If Err.Number <> 0 Then
 MsgBox Err.Description
 End If
 End Sub
 
 Private Sub Command4_Click()
 If Not IsNull(DataGrid1.BackColor) Then
 DataGrid1.Refresh
 End If
 Command1.Enabled = True
 Command2.Enabled = True
 Command3.Enabled = True
 Command4.Enabled = False
 Command5.Enabled = False
 MsgBox "操作成功!", vbOKOnly + vbExclamation, ""
 End Sub
 
 Private Sub Command5_Click()
 DataGrid1.Refresh
 DataGrid1.AllowAddNew = False
 DataGrid1.AllowUpdate = False
 Command2.Enabled = True
 Command1.Enabled = True
 Command3.Enabled = True
 Command4.Enabled = False
 Command5.Enabled = False
 End Sub
 
 Private Sub Form_Load()
 Command4.Enabled = False
 DataGrid1.AllowAddNew = False
 DataGrid1.AllowDelete = False
 DataGrid1.AllowUpdate = False
 If userpow = "guest" Then
 Frame2.Enabled = False
 End If
 Exit Sub
 loaderror:
 MsgBox Err.Description
 End Sub
 
窗体名：Form6
代码：
 Private Sub Command1_Click()
 On Error GoTo commanderror
 Command2.Enabled = False
 Command3.Enabled = False
 Command1.Enabled = False
 Command4.Enabled = True
 Command5.Enabled = True
 DataGrid1.AllowAddNew = True
 DataGrid1.AllowUpdate = True
 Exit Sub
 command1error:
 MsgBox Err.Description
 End Sub
 
 Private Sub Command2_Click()
 On Error GoTo Command2
 Command1.Enabled = False
 Command3.Enabled = False
 Command2.Enabled = False
 Command4.Enabled = True
 Command5.Enabled = True
 Command1.Enabled = True
 DataGrid1.AllowUpdate = True
 Command2:
 If Error.Number <> 0 Then
 MsgBox Err.Description
 End If
 End Sub
 
 Private Sub Command3_Click()
 Dim answer As String
 On Error GoTo command3error
 answer = MsgBox("确定要删除吗:", vbYesNo, "")
 If answer = vbYes Then
 Adodc1.Recordset.Delete
 Adodc1.Recordset.MoveNext
 End If
 DataGrid1.Refresh
 MsgBox "成功删除!", vbOKOnly + vbExclamation, ""
 DataGrid1.AllowDelete = False
 Else
  Exit Sub
 command3error:
  If Err.Number <> 0 Then
  MsgBox Err.Description
  End If
 End Sub
 
 Private Sub Command4_Click()
 If Not IsNull(DataGrid1.Bookmark) Then
 DataGrid1.Refresh
 End If
 Command1.Enabled = True
 Command2.Enabled = True
 Command3.Enabled = True
 Command4.Enabled = False
 Command5.Enabled = False
 DataGrid1.AllowAddNew = False
 DataGrid1.AllowUpdate = False
 MsgBox "操作成功!", vbOKOnly + vbExclamation, ""
 End Sub
 
 Private Sub Command5_Click()
 DataGrid1.Refre