编译错误:未找到方法或数据成员“求助”
Option Explicit
Private rsSys As ADODB.Recordset
Private cmSys As ADODB.Command
Private Sub MDIForm_Load() '此行是黄色高亮显示
Dim strSQL As String
strSQL = "select offline from r_parameter"
Set rsSys = New ADODB.Recordset
rsSys.Open strSQL, DEjxc.Conjxc, adOpenDynamic, adLockOptimistic
rsSys.MoveFirst
If rsSys!offline Then
Me.mnuAct_dj.Enabled = False
Me.mnuSql.Enabled = False
Me.mnuReport.Enabled = False
Me.mnuSys_trans.Enabled = False
Me.mnuSys_start.Enabled = True
Me.mnuSys_begqty.Enabled = True
Else
Me.mnuAct_dj.Enabled = True
Me.mnuSql.Enabled = True
Me.mnuReport.Enabled = True
Me.mnuSys_trans.Enabled = True
Me.mnuSys_start.Enabled = False
Me.mnuSys_begqty.Enabled = False
End If
rsSys.Close
Set cmSys = New ADODB.Command
cmSys.ActiveConnection = DEjxc.Conjxc
cmSys.CommandType = adCmdText
End Sub