Option Compare Database
Option Explicit
Private mclsQuery As GeneralQuery
Private Sub Form_Open(Cancel As Integer) EnableButton Me.btnRefresh, HasPermission("客户信息","Refresh")
ApplyTheme Me
LoadLocalLanguage Me
End Sub
Private Sub Form_Load()
LoadIcon Me.btnAdd_Image, "add.ico"
LoadIcon Me.btnEdit_Image, "edit.ico"
LoadIcon Me.btnDelete_Image, "delete.ico"
LoadIcon Me.btnImport_Image, "import.ico"
LoadIcon Me.btnExport_Image, "export.ico"
LoadIcon Me.btnRefresh_Image, "refresh.ico"
Set mclsQuery = New GeneralQuery
With mclsQuery
.QueryForm = Me.sfrQuickQuery.Form
.DataForm = Me.sfrList.Form
.AddAllFields
.FieldName = "旺旺ID"
End With
Me.Recalc
End Sub
Private Sub Form_Resize()
On Error Resume Next
Me.sfrQuickQuery.Width = Me.InsideWidth - Me.sfrQuickQuery.Left
Me.sfrList.Width = Me.InsideWidth - Me.sfrList.Left
Dim lngHeight As Long: lngHeight = Me.InsideHeight
lngHeight = lngHeight - Me.Section(acHeader).Height - Me.Section(acFooter).Height
Me.sfrList.Height = lngHeight - Me.sfrList.Top
End Sub
Private Sub btnAdd_Click()
Set gsfrList = Me.sfrList
DoCmd.OpenForm Me.Name & "_Edit", DataMode:=acFormAdd
End Sub
Public Sub btnEdit_Click()
If Not Me.sfrList.Form.CurrentRecord >= 0 Then Exit Sub
Me.sfrList.SetFocus
RunCommand acCmdSelectRecord
Set gsfrList = Me.sfrList
DoCmd.OpenForm FormName:=Me.Name & "_Edit", _
DataMode:=IIf(Me.btnEdit.Enabled, acFormEdit, acFormReadOnly), _
OpenArgs:=Me.sfrList![旺旺ID]
End Sub
Public Sub btnDelete_Click()
If Not Me.sfrList.Form.CurrentRecord >= 0 Then Exit Sub
Me.sfrList.SetFocus
RunCommand acCmdSelectRecord
Dim strMessage As String: strMessage = LoadString("Are you sure to delete?")
If Not MsgBoxEx(strMessage, vbExclamation + vbOKCancel) = vbOK Then Exit Sub
ADO.RunSQL "DELETE FROM [客户信息表] WHERE [旺旺ID]=" & SQLText(Me.sfrList![旺旺ID])
RequeryDataObject Me.sfrList
End Sub
Public Sub btnImport_Click()
On Error Resume Next
ImportFromExcel "客户信息表"
RequeryDataObject Me.sfrList
mclsQuery.DataForm = Me.sfrList.Form
End Sub
Public Sub btnExport_Click()
If Not Me.sfrList.Form.CurrentRecord >= 0 Then Exit Sub
ExportToExcel DataForm:=Me.sfrList
End Sub
Public Sub btnRefresh_Click()
RequeryDataObject Me.sfrList
End Sub
Public Function PrintReport(View As AcView)
On Error GoTo ErrorHandler
Dim strWhere As String
strWhere = mclsQuery.WhereSQL
DoCmd.OpenReport "rpt客户信息", View, , strWhere
ExitHere:
Exit Function
ErrorHandler:
Select Case Err.Number
Case errOpenActionWasCanceled, errOperationCanceledByUser
Case Else
RDPErrorHandler Me.Name & ": Sub PrintReport()"
End Select
End Function