VB+图书管理系统的设计与实现(四)

VB+图书管理系统的设计与实现(四) ，请重试!", , "登录"
         txtPassword.SetFocus
         SendKeys "{Home}+{End}"
     End If
 End Sub b

窗体名：Form1
代码：

 Private Sub A11_Click()
 Form2.Show
 End Sub
 
 Private Sub A12_Click()
 Form3.Show
 End Sub
 
 Private Sub A13_Click()
 Form4.Show
 End Sub
 
 Private Sub B11_Click()
 Form5.Show
 End Sub
 
 Private Sub B12_Click()
 Form6.Show
 End Sub
 
 Private Sub B13_Click()
 Form7.Show
 End Sub
 
 Private Sub C12_Click()
 Form4.Show
 End Sub
 
 Private Sub C13_Click()
 Form9.Show
 End Sub
 
 Private Sub C15_Click()
 Form10.Show
 End Sub
 
 Private Sub exit_Click()
 End
 End Sub
窗体名：Form2
代码：
 Private Sub Command1_Click()
 On Error GoTo command1error
 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
 Command2.Enabled = False
 Command3.Enabled = False
 Command1.Enabled = True
 Command4.Enabled = True
 Command5.Enabled = True
 DataGrid1.AllowUpdate = True
 Command2:
 If Err.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.MoveLast
 End If
 DataGrid1.Refresh
 MsgBox "删除成功!", vbOKCancel + 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
 Command5.Enabled = False
 Command4.Enabled = False
 DataGrid1.AllowUpdate = False
 DataGrid1.AllowAddNew = False
 MsgBox "操作成功!", vbOKCancel + vbExclamation, ""
 End Sub
 
 Private Sub Command5_Click()
 DataGrid1.Refresh
 DataGrid1.AllowAddNew = 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 use

首页 上一页 1 2 3 4 5 6 7 下一页 尾页 4/10/10

VB+图书管理系统的设计与实现(四)由免费论文网（www.jaoyuw.com）会员上传。