VFP AI 插件应用：深度分析TQ开发框架(社区版)基本类库

*** <summary>
*** 统一错误处理方法
*** </summary>
Procedure Error(tnError As Number, tcMethod As String, tnLine As Number, toTopmost As Object, tcMessage As String)
    Private All Like l*

    *!* 1. 开发环境调试支持
    If This.lDebugErrorInDev And _vfp.StartMode = 0
        Set Step On
    EndIf
    
    *!* 2. 加载错误消息资源
    #Include TQ_Base.H
    
    *!* 3. 错误传播：如果不是表单，向父对象传播
    If This.BaseClass != [Form] And Type([This.Parent]) == [O]
        This.Parent.Error(m.tnError, m.tcMethod, m.tnLine, This, m.tcMessage)
        Return
    EndIf
    
    *!* 4. 组织错误信息
    Local lcErrorInfo As String
    m.lcErrorInfo = ;
        [错误 #] + Transform(m.tnError) + Chr(13) + ;
        [对象：] + This.Name + Chr(13) + ;
        [方法：] + m.tcMethod + Chr(13) + ;
        [行号：] + Transform(m.tnLine) + Chr(13) + ;
        [消息：] + m.tcMessage
    
    *!* 5. 根据环境选择处理方式
    If Type([On("ERROR")]) == [C]
        On Error
    Else
        Messagebox(m.lcErrorInfo, 16, [应用程序错误])
    EndIf
EndProc

*** <summary>
*** Refresh事件 - 应用权限控制
*** </summary>
Procedure Refresh()
    Private All Like l*
    Dodefault()
    *!* 权限控制应用
    If This.lSecurityControlled = .T. And Type([_Screen.MYAPP]) == [O]
        _Screen.MYAPP.SetSecurity(This)
    EndIf
EndProc

*** <summary>
*** BeforeOperation - 操作前置钩子
*** </summary>
Function BeforeOperation() As Logical
    *!* 默认实现：总是允许
    *!* 子类可重写此方法进行权限检查、数据验证等
    Return .T.
EndFunc

*** <summary>
*** DoOperation - 执行操作（抽象方法）
*** </summary>
Function DoOperation() As Logical
    *!* 默认实现：什么也不做
    *!* 子类必须重写此方法
    Return .T.
EndFunc

*** <summary>
*** AfterOperation - 操作后置钩子
*** </summary>
Procedure AfterOperation()
    *!* 默认实现：空操作
    *!* 子类可重写此方法进行状态更新、界面刷新等
EndProc

*** <summary>
*** Enabled属性赋值器
*** </summary>
Procedure Enabled_Assign(vNewVal)
    Private All Like l*
    *!* 1. 保存原值
    Local llOldValue As Logical
    m.llOldValue = This.Enabled
    
    *!* 2. 设置新值
    This.Enabled = m.vNewVal
    
    *!* 3. 触发相关事件
    If m.llOldValue != m.vNewVal
        This.Refresh()
    EndIf
EndProc

*** <summary>
*** Delete事件触发器
*** </summary>
Function Delete() As Logical
    Private All Like l*
    If This.lTIrgger = .T.
        *!* 执行自定义删除逻辑
        Return This.OnDeleteTrigger()
    Else
        Return Dodefault()
    EndIf
EndFunc

*** <summary>
*** Update事件触发器
*** </summary>
Function Update() As Logical
    Private All Like l*
    If This.lTIrgger = .T.
        *!* 执行自定义更新逻辑
        Return This.OnUpdateTrigger()
    Else
        Return Dodefault()
    EndIf
EndFunc

*** <summary>
*** Insert事件触发器
*** </summary>
Function Insert() As Logical
    Private All Like l*
    If This.lTIrgger = .T.
        *!* 执行自定义插入逻辑
        Return This.OnInsertTrigger()
    Else
        Return Dodefault()
    EndIf
EndFunc

*** <summary>
*** 设置游标关系
*** </summary>
Function SetCursorRelational() As Logical
    Private All Like l*
    *!* 设置父子表关系
    Local lcParent As String
    Local lcChild As String
    m.lcParent = This.ParentAlias
    m.lcChild = This.ChildAlias

    If !Empty(m.lcParent) And !Empty(m.lcChild) And ;
       Used(m.lcParent) And Used(m.lcChild)
        *!* 建立关系
        Set Relation To (This.RelationalExpr) Into (m.lcChild) In (m.lcParent)
        Return .T.
    Else
        Return .F.
    EndIf
EndFunc

*!* 所有类共享的元数据属性
cauthor = "xinjie"
ccompany = "XXXXXXXX Electronic Commerce Co., Ltd."
cdate = "2022.06.27 21:45:08"  && 各实例创建时间不同
cinheritrelation = "ParentClass->ParentClass"  && 继承关系记录
cversion = "6.0.0.0"
custombuild = "双击属性名启动生成器"
_memberdata = [XML格式的成员元数据]

操作事件 [模板方法]
    ├── BeforeOperation() [前置钩子]
    ├── DoOperation()     [核心操作]
    └── AfterOperation()  [后置钩子]

控件.Error() → 父控件.Error() → ... → 表单.Error() → 全局错误处理

原生控件 [基础功能]
    ↓ 继承+增强
自定义控件 [基础功能 + 权限控制 + 错误处理 + 气泡提示 + ...]

#DEFINE SECURITY_RW      "RW"      && 读写权限
#DEFINE SECURITY_RO      "RO"      && 只读权限  
#DEFINE SECURITY_HIDE    "HIDE"    && 隐藏控件
#DEFINE SECURITY_FORM    "FORM"    && 表单级权限
#DEFINE SECURITY_NONE    "NONE"    && 无权限控制

*** <summary>
*** 权限控制应用逻辑
*** </summary>
Procedure ApplySecurity(toControl As Object)
    Private All Like l*
    Local lcSecurity As String
    m.lcSecurity = toControl.cSecuritySetting
    Do Case
    Case m.lcSecurity == SECURITY_RW
        *!* 读写权限：控件完全可用
        toControl.Enabled = .T.
        toControl.ReadOnly = .F.
        toControl.Visible = .T.

    Case m.lcSecurity == SECURITY_RO
        *!* 只读权限：控件可见但不可编辑
        toControl.Enabled = .T.
        toControl.ReadOnly = .T.
        toControl.Visible = .T.

    Case m.lcSecurity == SECURITY_HIDE
        *!* 隐藏权限：控件不可见
        toControl.Visible = .F.

    Case m.lcSecurity == SECURITY_FORM
        *!* 表单级权限：由表单统一控制
        *!* 不在此处处理

    Case m.lcSecurity == SECURITY_NONE
        *!* 无权限控制：保持原状
        *!* 不做任何处理

    Otherwise
        *!* 默认处理：无权限控制
    EndCase
EndProc

第1层：控件级错误处理 [基础检查+开发调试]
    ↓ 传播
第2层：容器级错误处理 [聚合处理+逻辑补充]  
    ↓ 传播
第3层：表单级错误处理 [统一格式化+用户通知]
    ↓ 可选
第4层：全局错误处理 [日志记录+应急处理]

*** <summary>
*** 标准错误信息格式
*** </summary>
Function FormatErrorMessage(tnError As Number, tcMethod As String, tnLine As Number, tcMessage As String) As String
    Private All Like l*
    Local lcFormatted As String
    m.lcFormatted = ""

    *!* 使用模板构建标准格式
    Text To m.lcFormatted Textmerge Noshow
        发生时间：<< Transform(Datetime()) >>
        错误代码：<< Transform(m.tnError) >>
        对象名称：<< This.Name >>
        方法名称：<< m.tcMethod >>
        行号位置：<< Transform(m.tnLine) >>
        错误消息：<< m.tcMessage >>
        调用堆栈：<< This.GetCallStack() >>
    EndText

    Return m.lcFormatted
EndFunc

*!* 核心框架依赖
_Screen.MYAPP          && 应用程序主对象 (必须)
TQ_Base.H             && 头文件 (必须)
TQ_FrameWork.H        && 框架常量定义 (可选)

*!* 功能模块依赖
权限控制系统 → _Screen.MYAPP.SetSecurity()
错误处理系统 → TQ_Base.H中的错误常量
气泡提示系统 → 第三方控件(ctl32.dll/ThemedControls)

*** <summary>
*** 控件通过表单访问框架服务
*** </summary>
Procedure AccessFrameworkService()
    Private All Like l*
    
    *!* 1. 通过表单间接访问
    Local loForm As Object
    m.loForm = Thisform
    If Type([m.loForm.DataSource]) == [N]
        *!* 使用表单的数据源
        This.nDataSource = m.loForm.DataSource
    EndIf
    
    *!* 2. 通过表单访问应用程序对象
    If Type([_Screen.MYAPP]) == [O]
        *!* 直接访问全局对象
        This.oApp = _Screen.MYAPP
    EndIf
EndProc

*** <summary>
*** 容器控件管理子控件的示例
*** </summary>
Define Class ContainerExample As Container
    *** <summary>
    *** 初始化时设置所有子控件的权限
    *** </summary>
    Procedure Init()
        Dodefault()
        *!* 遍历所有子控件
        For m.lnI = 1 To This.ControlCount
            Local loControl As Object
            m.loControl = This.Controls(m.lnI)
            
            *!* 应用统一权限设置
            If Pemstatus(m.loControl, [lSecurityControlled], 5) And ;
               m.loControl.lSecurityControlled
                _Screen.MYAPP.SetSecurity(m.loControl)
            EndIf
        EndFor
    EndProc

    *** <summary>
    *** 统一错误处理：收集子控件错误
    *** </summary>
    Procedure Error(tnError As Number, tcMethod As String, tnLine As Number, toTopmost As Object, tcMessage As String)
        *!* 记录子控件错误
        This.LogChildError(toTopmost.Name, m.tnError, m.tcMessage)
 
        *!* 继续向上传播
        If Type([This.Parent]) == [O]
            This.Parent.Error(m.tnError, m.tcMethod, m.tnLine, This, m.tcMessage)
        EndIf
    EndProc
EndDefine

*** <summary>
*** 扩展权限控制支持更多维度
*** </summary>
Procedure EnhancedSecurityControl()
    Private All Like l*
    *!* 1. 基于角色的权限
    Local lcUserRole As String
    m.lcUserRole = _Screen.MYAPP.GetCurrentUserRole()
    
    *!* 2. 基于数据的权限
    Local llDataPermission As Logical
    m.llDataPermission = This.CheckDataPermission()
    
    *!* 3. 基于时间的权限
    Local llTimePermission As Logical
    m.llTimePermission = This.CheckTimePermission()
    
    *!* 4. 综合权限决策
    This.lSecurityControlled = (m.lcUserRole == [ADMIN]) Or ;
                               (m.llDataPermission And m.llTimePermission)
    
    *!* 5. 应用权限
    If This.lSecurityControlled
        This.Refresh()
    EndIf
EndProc

*** <summary>
*** 增强的错误处理与日志集成
*** </summary>
Procedure ErrorWithLogging(tnError As Number, tcMethod As String, tnLine As Number, toTopmost As Object, tcMessage As String)
    Private All Like l*
    *!* 1. 记录错误日志
    This.LogErrorToFile(m.tnError, m.tcMethod, m.tnLine, m.tcMessage)
    
    *!* 2. 发送错误通知（可选）
    If This.lEnableErrorNotification
        This.SendErrorNotification(m.tnError, m.tcMessage)
    EndIf
    
    *!* 3. 调用标准错误处理
    Dodefault(m.tnError, m.tcMethod, m.tnLine, m.toTopmost, m.tcMessage)
EndProc

*** <summary>
*** 创建并使用增强ListBox控件
*** </summary>
Procedure CreateEnhancedListBox()
    Private All Like l*
    *!* 1. 创建表单
    Local loForm As myform
    m.loForm = CreateObject([myform])
    With m.loForm
        .Caption = [增强控件示例]
        .Width = 600
        .Height = 400
    EndWith
    
    *!* 2. 添加增强ListBox
    m.loForm.AddObject([lstCities], [mylistbox])
    With m.loForm.lstCities
        *!* 基本属性
        .Left = 20
        .Top = 20
        .Width = 200
        .Height = 300
        .RowSourceType = 0  && 无
        .Visible = .T.
        *!* 增强属性设置
        .cSecuritySetting = [RO]           && 只读权限
        .lSecurityControlled = .T.         && 启用权限控制
        .lDebugErrorInDev = (_vfp.StartMode = 0)  && 开发环境调试
        *!* 填充数据
        .AddItem([北京])
        .AddItem([上海])
        .AddItem([广州])
        .AddItem([深圳])
        *!* 绑定事件
        .Click = [This.HandleClick()]
    EndWith
    
    *!* 3. 显示表单
    m.loForm.Show()
EndProc

*** <summary>
*** ListBox点击事件处理
*** </summary>
Procedure HandleClick()
    Private All Like l*
    *!* 1. 前置检查
    If !This.BeforeOperation()
        Messagebox([操作被取消], 48, [提示])
        Return
    EndIf
    
    *!* 2. 执行操作
    Local llSuccess As Logical
    m.llSuccess = This.DoOperation()
    
    *!* 3. 后置处理
    If m.llSuccess
        This.AfterOperation()
    EndIf
EndProc

*** <summary>
*** 重写DoOperation方法
*** </summary>
Function DoOperation() As Logical
    Private All Like l*
    *!* 获取选中项
    Local lcSelected As String
    m.lcSelected = This.List(This.ListIndex)
    If Empty(m.lcSelected)
        Return .F.
    EndIf
    
    *!* 执行具体操作
    Messagebox([您选择了：] + m.lcSelected, 64, [选择结果])
    Return .T.
EndFunc

*** <summary>
*** 动态权限控制示例
*** </summary>
Define Class DynamicSecurityForm As myform
    *** <summary>
    *** 根据用户角色动态设置控件权限
    *** </summary>
    Procedure ApplyDynamicSecurity()
        Private All Like l*
        *!* 获取当前用户角色
        Local lcUserRole As String
        m.lcUserRole = This.GetCurrentUserRole()

        *!* 根据角色设置不同权限
        Do Case
        Case m.lcUserRole == [ADMIN]
            *!* 管理员：完全权限
            This.SetControlsSecurity([RW])

        Case m.lcUserRole == [MANAGER]
            *!* 经理：大部分可读，部分可写
            This.SetControlsSecurity([RO])
            This.SetSpecificControlsSecurity([RW], [cmdSave, cmdDelete])

        Case m.lcUserRole == [USER]
            *!* 普通用户：只读
            This.SetControlsSecurity([RO])

        Otherwise
            *!* 访客：隐藏敏感控件
            This.SetControlsSecurity([HIDE])
        EndCase
    EndProc

    *** <summary>
    *** 统一设置控件权限
    *** </summary>
    Procedure SetControlsSecurity(tcSecurityLevel As String)
        Private All Like l*
        *!* 递归遍历所有控件
        This.TraversesObject(This)
        For m.lnI = 1 To This.ControlCount
            Local loControl As Object
            m.loControl = This.Controls(m.lnI)
            If Pemstatus(m.loControl, [cSecuritySetting], 5)
                m.loControl.cSecuritySetting = m.tcSecurityLevel
                m.loControl.lSecurityControlled = .T.
                m.loControl.Refresh()
            EndIf
        EndFor
    EndProc
EndDefine

*** <summary>
*** 企业级错误处理示例
*** </summary>
Define Class RobustApplication As Custom
    *-- 错误处理属性
    lErrorHandlingEnabled = .T.
    cErrorLogFile = [AppErrors.log]
    lNotifyAdmin = .F.

    *** <summary>
    *** 增强的错误处理方法
    *** </summary>
    Procedure EnhancedError(tnError As Number, tcMethod As String, tnLine As Number, toTopmost As Object, tcMessage As String)
        Private All Like l*
        *!* 1. 检查错误处理是否启用
        If !This.lErrorHandlingEnabled
            Return
        EndIf
        
        *!* 2. 记录详细错误信息
        Local lcErrorDetails As String
        m.lcErrorDetails = This.FormatErrorDetails(m.tnError, m.tcMethod, m.tnLine, m.tcMessage)
        
        *!* 3. 写入错误日志
        This.LogError(m.lcErrorDetails)
        
        *!* 4. 检查是否为严重错误
        If This.IsCriticalError(m.tnError)
            *!* 严重错误：通知管理员
            This.NotifyAdministrator(m.lcErrorDetails)
            *!* 尝试自动恢复
            If This.AttemptRecovery()
                Messagebox([系统已尝试自动恢复，请继续操作], 64, [系统恢复])
            Else
                Messagebox([发生严重错误，请联系系统管理员], 16, [系统错误])
            EndIf
        Else
            *!* 一般错误：用户友好提示
            Local lcUserMessage As String
            m.lcUserMessage = This.GetUserFriendlyMessage(m.tnError)
            Messagebox(m.lcUserMessage, 48, [操作提示])
        EndIf
        
        *!* 5. 调用框架标准错误处理
        If Type([toTopmost.BaseClass]) == [C] And ;
           toTopmost.BaseClass == [Form]
            toTopmost.Error(m.tnError, m.tcMethod, m.tnLine, This, m.tcMessage)
        EndIf
    EndProc

    *** <summary>
    *** 获取用户友好的错误消息
    *** </summary>
    Function GetUserFriendlyMessage(tnError As Number) As String
        Private All Like l*
        *!* 错误消息映射表
        Local Array laErrorMap[1]
        *!* 常见错误映射
        laErrorMap[1, 1] = 1
        laErrorMap[1, 2] = [文件不存在，请检查文件路径]
        laErrorMap[2, 1] = 3
        laErrorMap[2, 2] = [文件正在使用中，请关闭后重试]
        laErrorMap[3, 1] = 1526
        laErrorMap[3, 2] = [数据库连接失败，请检查网络连接]
        *!* 查找映射
        Local lnIndex As Number
        m.lnIndex = Ascan(laErrorMap, m.tnError, -1, -1, 1, 8)
        If m.lnIndex > 0
            Return laErrorMap[m.lnIndex, 2]
        Else
            Return [发生未知错误，错误代码：] + Transform(m.tnError)
        EndIf
    EndFunc
EndDefine

*** <summary>
*** 可配置的模板方法实现
*** </summary>
Define Class ConfigurableTemplate As Custom
    *-- 模板配置属性
    lEnablePreCheck = .T.      && 启用前置检查
    lEnablePostProcess = .T.   && 启用后置处理
    lEnableValidation = .T.    && 启用验证

    *** <summary>
    *** 可配置的模板方法
    *** </summary>
    Procedure ExecuteTemplate(tcOperation As String)
        Private All Like l*
        Local llSuccess As Logical
        m.llSuccess = .F.
        Try
            *!* 阶段1：前置检查（可配置）
            If This.lEnablePreCheck
                If !This.BeforeOperation(m.tcOperation)
                    Throw [前置检查失败]
                EndIf
            EndIf
            
            *!* 阶段2：验证检查（可配置）
            If This.lEnableValidation
                If !This.ValidateOperation(m.tcOperation)
                    Throw [验证失败]
                EndIf
            EndIf
            
            *!* 阶段3：执行操作
            m.llSuccess = This.DoOperation(m.tcOperation)
            If !m.llSuccess
                Throw [操作执行失败]
            EndIf
            
            *!* 阶段4：后置处理（可配置）
            If This.lEnablePostProcess And m.llSuccess
                This.AfterOperation(m.tcOperation)
            EndIf
        Catch To loError
            *!* 错误处理
            This.HandleTemplateError(m.tcOperation, m.loError)
            m.llSuccess = .F.
        EndTry

        Return m.llSuccess
    EndProc
EndDefine

*** <summary>
*** 控件工厂类
*** </summary>
Define Class ControlFactory As Custom
    *** <summary>
    *** 创建增强控件
    *** </summary>
    Function CreateEnhancedControl(tcControlType As String, tcControlName As String, toParent As Object) As Object
        Private All Like l*
        Local loControl As Object
        m.loControl = .Null.
        *!* 根据类型创建不同的增强控件
        Do Case
        Case Upper(m.tcControlType) == [LISTBOX]
            m.loControl = CreateObject([mylistbox])
        Case Upper(m.tcControlType) == [TEXTBOX]
            m.loControl = CreateObject([mytextbox])
        Case Upper(m.tcControlType) == [COMBOBOX]
            m.loControl = CreateObject([mycombobox])
        Case Upper(m.tcControlType) == [GRID]
            m.loControl = CreateObject([mygrid])
        Otherwise
            *!* 默认为标准控件
            m.loControl = CreateObject(m.tcControlType)
        EndCase
  
        *!* 配置公共属性
        If Vartype(m.loControl) == [O]
            m.loControl.Name = m.tcControlName
            *!* 应用默认增强配置
            This.ApplyDefaultEnhancements(m.loControl)
            *!* 添加到父对象
            If Vartype(m.toParent) == [O]
                m.toParent.AddObject(m.tcControlName, m.loControl)
            EndIf
        EndIf
        Return m.loControl
    EndFunc

    *** <summary>
    *** 应用默认增强配置
    *** </summary>
    Procedure ApplyDefaultEnhancements(toControl As Object)
        Private All Like l*
        *!* 应用统一的增强配置
        With m.toControl
            *!* 错误处理配置
            .lDebugErrorInDev = (_vfp.StartMode = 0)
            *!* 权限控制配置
            If Pemstatus(m.toControl, [cSecuritySetting], 5)
                .cSecuritySetting = [FORM]
                .lSecurityControlled = .T.
            EndIf
            *!* 元数据配置
            If Pemstatus(m.toControl, [cauthor], 5)
                .cauthor = [System]
                .cversion = [1.0.0.0]
            EndIf
        EndWith
    EndProc
EndDefine

*** <summary>
*** 基于XML配置的权限系统
*** </summary>
Define Class XMLBasedSecurity As Custom
    cSecurityConfigFile = [SecurityConfig.xml]
    oSecurityConfig = .Null.

    *** <summary>
    *** 从XML加载权限配置
    *** </summary>
    Function LoadSecurityConfig() As Logical
        Private All Like l*
        Try
            *!* 创建XML DOM对象
            Local loXML As Object
            m.loXML = CreateObject([MSXML2.DOMDocument])
            m.loXML.Async = .F.
            *!* 加载配置文件
            If !m.loXML.Load(This.cSecurityConfigFile)
                Throw [无法加载权限配置文件]
            EndIf
            *!* 解析配置
            This.oSecurityConfig = This.ParseSecurityXML(m.loXML)
            Return .T.
        Catch To loError
            This.HandleConfigError(m.loError)
            Return .F.
        EndTry
    EndFunc

    *** <summary>
    *** 根据配置应用权限
    *** </summary>
    Procedure ApplySecurityFromConfig(toControl As Object)
        Private All Like l*
        If Vartype(This.oSecurityConfig) != [O]
            Return
        EndIf
        Local lcControlName As String
        m.lcControlName = m.toControl.Name
        Local lcControlClass As String
        m.lcControlClass = m.toControl.Class
        *!* 查找匹配的权限规则
        Local loRule As Object
        m.loRule = This.FindMatchingRule(m.lcControlName, m.lcControlClass)
        If Vartype(m.loRule) == [O]
            *!* 应用规则
            m.toControl.cSecuritySetting = m.loRule.SecurityLevel
            m.toControl.lSecurityControlled = .T.
            m.toControl.Refresh()
        EndIf
    EndProc
EndDefine

*** <summary>
*** 优化的权限检查机制
*** </summary>
Define Class OptimizedSecurity As Custom
    *-- 性能优化属性
    lCacheSecurity = .T.           && 启用权限缓存
    tLastCheckTime = .Null.        && 上次检查时间
    nCheckInterval = 5000          && 检查间隔(ms)
    Array aSecurityCache[1, 3]     && 权限缓存数组

    *** <summary>
    *** 优化的权限检查方法
    *** </summary>
    Function CheckSecurityOptimized(toControl As Object) As Logical
        Private All Like l*
        *!* 1. 检查是否启用权限控制
        If !m.toControl.lSecurityControlled
            Return .T.
        EndIf
        
        *!* 2. 检查缓存（如果启用）
        If This.lCacheSecurity
            Local lcCacheKey As String
            m.lcCacheKey = m.toControl.Name + m.toControl.cSecuritySetting
            Local lnCacheIndex As Number
            m.lnCacheIndex = This.FindInCache(m.lcCacheKey)
            If m.lnCacheIndex > 0
                *!* 从缓存中获取结果
                Return This.aSecurityCache[m.lnCacheIndex, 3]
            EndIf
        EndIf
        
        *!* 3. 执行实际权限检查
        Local llHasPermission As Logical
        m.llHasPermission = This.DoActualSecurityCheck(m.toControl)
        
        *!* 4. 更新缓存（如果启用）
        If This.lCacheSecurity
            This.UpdateCache(m.lcCacheKey, m.llHasPermission)
        EndIf
        Return m.llHasPermission
    EndFunc
 
    *** <summary>
    *** 在缓存中查找
    *** </summary>
    Function FindInCache(tcCacheKey As String) As Number
        Private All Like l*
        If Alen(This.aSecurityCache, 1) == 1 And Empty(This.aSecurityCache[1, 1])
            Return 0
        EndIf
        Return Ascan(This.aSecurityCache, m.tcCacheKey, -1, -1, 1, 15)
    EndFunc

    *** <summary>
    *** 执行实际权限检查
    *** </summary>
    Function DoActualSecurityCheck(toControl As Object) As Logical
        Private All Like l*
        *!* 这里实现实际的权限检查逻辑
        *!* 可以连接数据库、调用Web服务等
        Local lcUser As String
        m.lcUser = This.GetCurrentUser()
        Local lcPermission As String
        m.lcPermission = This.GetUserPermission(m.lcUser, m.toControl.securityid)
        *!* 检查权限级别
        Do Case
        Case m.toControl.cSecuritySetting == [RW]
            Return (m.lcPermission == [RW] Or m.lcPermission == [ADMIN])
        Case m.toControl.cSecuritySetting == [RO]
            Return (m.lcPermission == [RW] Or m.lcPermission == [RO] Or m.lcPermission == [ADMIN])
        Case m.toControl.cSecuritySetting == [HIDE]
            Return .F.
        Case m.toControl.cSecuritySetting == [NONE]
            Return .T.
        Otherwise
            Return .F.
        EndCase
    EndFunc
EndDefine

*** <summary>
*** 高性能错误处理类
*** </summary>
Define Class HighPerformanceErrorHandler As Custom
    *-- 性能统计
    nErrorCount = 0
    tLastErrorTime = .Null.
    Array aErrorStats[1, 4]  && 错误统计

    *** <summary>
    *** 优化的错误处理方法
    *** </summary>
    Procedure FastErrorHandler(tnError As Number, tcMethod As String, tnLine As Number, tcMessage As String)
        Private All Like l*
        *!* 1. 快速错误分类
        Local lcErrorCategory As String
        m.lcErrorCategory = This.CategorizeError(m.tnError)
        
        *!* 2. 根据类别选择处理策略
        Do Case
        Case m.lcErrorCategory == [CRITICAL]
            *!* 关键错误：立即处理
            This.HandleCriticalError(m.tnError, m.tcMessage)
        Case m.lcErrorCategory == [WARNING]
            *!* 警告：延迟处理或忽略
            This.LogWarning(m.tnError, m.tcMethod, m.tcMessage)
        Case m.lcErrorCategory == [INFO]
            *!* 信息：仅记录
            This.LogInfo(m.tnError, m.tcMethod, m.tcMessage)
        Otherwise
            *!* 未知错误：标准处理
            This.HandleStandardError(m.tnError, m.tcMethod, m.tnLine, m.tcMessage)
        EndCase
        *!* 3. 更新统计信息
        This.UpdateErrorStats(m.tnError, m.lcErrorCategory)
    EndProc

    *** <summary>
    *** 错误分类方法
    *** </summary>
    Function CategorizeError(tnError As Number) As String
        Private All Like l*
        *!* 预定义的错误分类表
        Static Array laErrorCategories[1]
        *!* 初始化分类表（仅第一次）
        If Type([laErrorCategories[1, 1]]) == [U]
            Dimension laErrorCategories[50, 2]
            *!* 关键错误
            laErrorCategories[1, 1] = 1
            laErrorCategories[1, 2] = [CRITICAL]
            laErrorCategories[2, 1] = 3
            laErrorCategories[2, 2] = [CRITICAL]
            laErrorCategories[3, 1] = 1526
            laErrorCategories[3, 2] = [CRITICAL]
            *!* 警告错误
            laErrorCategories[10, 1] = 13
            laErrorCategories[10, 2] = [WARNING]
            *!* 信息错误
            laErrorCategories[20, 1] = 1426
            laErrorCategories[20, 2] = [INFO]
        EndIf
        
        *!* 查找分类
        Local lnIndex As Number
        m.lnIndex = Ascan(laErrorCategories, m.tnError, -1, -1, 1, 8)
        If m.lnIndex > 0
            Return laErrorCategories[m.lnIndex, 2]
        Else
            Return [UNKNOWN]
        EndIf
    EndFunc
EndDefine

   *!* 迁移前：标准控件
   Thisform.AddObject([lstStandard], [Listbox])
   
   *!* 迁移后：增强控件
   Thisform.AddObject([lstEnhanced], [mylistbox])
   With Thisform.lstEnhanced
       *!* 复制原有属性
       .Left = 10
       .Top = 10
       .Width = 200
       .Height = 150
       *!* 启用增强功能
       .lSecurityControlled = .T.
       .cSecuritySetting = [RO]
   EndWith

   *!* 迁移前：硬编码权限检查
   If UserLevel >= 3
       This.Enabled = .T.
   Else
       This.Enabled = .F.
   EndIf
  
   *!* 迁移后：使用框架权限控制
   This.cSecuritySetting = [RW]
   This.lSecurityControlled = .T.
   *!* 权限检查在Refresh事件中自动执行

   *!* 迁移前：分散的错误处理
   Try
       *!* 操作代码
   Catch
       Messagebox([发生错误], 16, [错误])
   EndTry
   
   *!* 迁移后：统一错误处理
   *!* 错误自动由Error方法处理
   *!* 可统一配置处理方式

*** <summary>
*** 向后兼容的适配器类
*** </summary>
Define Class BackwardCompatibleControl As Custom
    *** <summary>
    *** 兼容旧版本的方法调用
    *** </summary>
    Function OldMethodCall(tcMethod As String, tuParam1, tuParam2)
        Private All Like l*
        *!* 将旧方法调用映射到新方法
        Do Case
        Case m.tcMethod == [OLD_SET_PERMISSION]
            *!* 旧方法：设置权限
            Return This.NewSetSecurity(m.tuParam1, m.tuParam2)
        Case m.tcMethod == [OLD_CHECK_ACCESS]
            *!* 旧方法：检查访问
            Return This.NewCheckPermission(m.tuParam1)
        Case m.tcMethod == [OLD_LOG_ERROR]
            *!* 旧方法：记录错误
            Return This.NewLogError(m.tuParam1, m.tuParam2)
        Otherwise
            *!* 未知方法
            Throw [不支持的旧方法：] + m.tcMethod
        EndCase
    EndFunc

    *** <summary>
    *** 属性访问兼容层
    *** </summary>
    Procedure OldPropertyAccess(tcProperty As String, tuValue)
        Private All Like l*
        *!* 将旧属性映射到新属性
        Do Case
        Case m.tcProperty == [OLD_SECURITY_LEVEL]
            This.cSecuritySetting = This.ConvertOldSecurityLevel(m.tuValue)
        Case m.tcProperty == [OLD_ERROR_MODE]
            This.lDebugErrorInDev = (m.tuValue == 1)
        Otherwise
            *!* 直接设置属性
            This.&tcProperty = m.tuValue
        EndCase
    EndProc
EndDefine

   *!* 建议：减少对全局对象的硬依赖
   *!* 当前：直接依赖_Screen.MYAPP
   *!* 改进：通过依赖注入或服务定位器

   *!* 建议：添加性能控制选项
   *!* 改进：延迟加载、缓存机制、批量操作

   *!* 建议：增加可测试性设计
   *!* 改进：接口抽象、依赖注入、Mock支持

   *!* 建议：生成完整API文档
   *!* 改进：自动化文档生成、示例代码库