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