Private Sub About_Click() '关于版本
frmabout.Show vbModal
End Sub
Private Sub DeleteAll_Click()
Dim Result
If Not Data1.Recordset.EOF And Not Data1.Recordset.BOF Then
Result = MsgBox("所有记录将被删除！", vbYesNo, "警告")
SetWindowPos Me.hwnd, HWND_topmost, 0, 0, 0, 0, flag '设置窗口在前
If Result = vbYes Then
frmData.Data1.Recordset.MoveLast
frmData.Data1.Recordset.MoveFirst
Dim i As Integer
For i = 1 To frmData.Data1.Recordset.RecordCount
Data1.Recordset.Delete
frmData.Data1.Recordset.MoveNext
Next i
Data1.Refresh
ListRefresh
End If
Else
Result = MsgBox("无法删除记录！", vbOKOnly, "提示")
End If
SetWindowPos Me.hwnd, HWND_notopmost, 0, 0, 0, 0, flag
End Sub
Private Sub DocuAdd_Click() '添加记录
Uo = False
frmTJ.Command2.Enabled = False
Load frmTJ
frmTJ.Show vbModal
End Sub
Public Sub DocuDelete_Click() '删除记录
Dim Result
If Not Data1.Recordset.EOF And Not Data1.Recordset.BOF Then
If frmData.ListView1.ListItems.Count > 0 Then
If ListView1.SelectedItem.Index > 0 Then
Result = MsgBox("当前记录将被删除！", vbYesNo, "警告")
SetWindowPos Me.hwnd, HWND_topmost, 0, 0, 0, 0, flag '设置窗口在前
If Result = vbYes Then
Data1.Recordset.Delete
Data1.Refresh
ListRefresh
End If
Else
Result = MsgBox("请选择要删除的记录！", vbOKOnly, "警告")
&n
