Access开发框架帮助文档

系统要求

首次部署

1. 打开 Access，进入“文件 → 账户 → 关于 Access”，确认 Office 位数。
2. 下载对应位数版本，避免 32/64 位混用。
3. 准备前端 .accdb / .accde、后端 Data.accdb、assets 与 Theme 目录。
4. 首次打开前端时，如出现安全警告，请点击“启用内容”。
5. 如提示找不到后端数据，请进入链接表设置重新选择 Data.accdb。

MyProject\
  MyProject.accdb
  Data.accdb
  assets\
  Theme\

日常使用

账号与头像

在登录界面输入用户名密码或按 Enter 登录。修改密码需输入当前密码、新密码并再次确认，两次输入必须一致。

头像默认存放于 assets/images/user/{UserName}.ext。未上传头像时使用 default.jpg。

打开代码生成器

在框架主界面进入开发或系统工具相关菜单，打开代码生成器。生成前建议先确认数据表结构、主键字段和命名规则，避免后续重复调整。

支持生成内容

生成流程

1. 选择主表。
2. 选择窗体类型：单表或主子表。
3. 确认主键字段。
4. 确认模块名和窗体名称。
5. 选择要生成的按钮。
6. 选择列表字段、编辑字段和必填字段。
7. 如需自动编号，填写编号字段、前缀、位数和日期格式。
8. 如需菜单，勾选创建导航菜单并填写菜单文本。
9. 点击“创建”。

布局、命名与刷新

• 主子表编辑窗体的普通字段按双列排列，长文本独占整行；保留窗口标题，不额外增加独立大标题，明细区支持随窗体尺寸伸缩。
• 生成代码使用类型前缀命名，例如 strSQL、rstRecordset、cnnConnection、blnTransactionStarted，配置常量采用 strTableName 等可读名称。VBA 关键字和库枚举保持原名。
• 列表工具栏提供“刷新”按钮，重新查询实际列表子窗体，并尽量恢复原来的选中记录；刷新保留当前筛选条件，不会自动清除查询条件。
• 单表与主子表保存后可刷新对应列表，按生成时确定的主窗体名定位，兼容自定义名称及嵌套打开方式。主子表在同一连接事务提交后刷新。

功能介绍

框架已内置作者开源项目 Access LLM Toolkit 的 AI 对话能力，可以在 Access 中向大模型提问、分析业务数据并查看 Markdown 回答，无需另行创建对话窗体。

• 多模型对话：支持 DeepSeek、通义千问、文心一言、Kimi 等提供商，具体可选模型以框架内置窗体为准。
• 上下文与系统提示词：连续对话保留上下文，通过系统提示词设定角色和回答要求。
• 流式回答与打字机效果：可用 curl 时逐步显示回答，不具备流式条件时使用同步请求与打字机显示。
• 数据库对象分析：选择当前数据库中的表或查询，将字段结构、记录数及最多前 30 行样例交给 AI 分析。
• 历史会话与 Markdown：保存、加载和删除历史会话，并支持 Access 富文本与 WebBrowser 气泡对话两种显示方式。

使用前确认所选提供商的 API 地址、模型及凭据已配置，网络可访问对应服务；调用费用与限制由提供商决定。分析数据会把选定对象的结构和样例发送到所选 AI 服务，请先脱敏并确认允许发送；AI 建议与生成的 SQL 应人工核验。

打开与使用

在菜单动作或业务按钮中打开框架已内置的 AI 窗体。frmAI 使用 Access 富文本对话，frmAIWeb 使用 WebBrowser HTML 气泡对话：

DoCmd.OpenForm "frmAI", acNormal

DoCmd.OpenForm "frmAIWeb", acNormal

选择模型、按需填写系统提示词，输入问题后点击“提问”。分析当前数据库时，选择表或查询并点击数据分析按钮；参数查询、操作查询或不可访问对象不适合直接用于样例读取。

历史会话

通过内置历史窗体浏览、加载或删除已保存会话；“新对话”用于重置当前对话上下文。业务代码可使用以下入口：

ShowChatHistory

ClearHistory

ClearHistory 清除当前内存中的对话上下文，不等同于删除 tblChatHistory 中保存的会话。需要从界面开始全新对话时，使用窗体上的“新对话”按钮。

Markdown 调用

除 AI 对话外，也可用内置 Markdown 查看器显示自己的说明、分析结果或报告：

ShowMarkdown "# 分析结果" & vbCrLf & "**请复核业务数据**", "结果预览"

将 Markdown 写入业务窗体上的文本框时，使用 SetTextBoxMarkdown；只需要转换后的 HTML 字符串时，使用 MarkdownToRichText：

SetTextBoxMarkdown Me!txtResult, "**本月销售汇总**"
Debug.Print MarkdownToRichText("# 标题")

显示能力以 Access 富文本控件或所选对话模式为准，不等同于完整网页浏览器的 Markdown 支持。原开源项目介绍见 Access LLM Toolkit。

功能介绍

框架已内置作者开源的 Access DatePicker 日期及年月选择窗体，使用纯 VBA 与 Access 窗体实现，不依赖 ActiveX、WebBrowser 或外部日历库。

日期选择器提供日历网格、上月 / 下月导航及可选的小时、分钟列表；年月选择器提供年份导航与月份网格，适用于单据日期、统计月份等输入。可以模态返回选中值，也可将年月选择器作为文本框旁的非模态下拉使用。

日期时间选择

ShowDatePicker([dtDefault], [bShowTime=True]) As Variant：默认使用当前日期时间；第二个参数设为 False 时隐藏时间选择。确认时返回 Date，取消或清除时返回 Null。

Dim pickedDate As Variant
pickedDate = ShowDatePicker()
If Not IsNull(pickedDate) Then
    Debug.Print pickedDate
End If

仅选择日期，并把确认后的结果写回业务文本框：

Private Sub cmdPickDate_Click()
    Dim pickedDate As Variant
    pickedDate = ShowDatePicker(Me!txtDate.Value, False)
    If Not IsNull(pickedDate) Then
        Me!txtDate.Value = pickedDate
    End If
End Sub

默认值为空时按当前日期初始化。使用 Variant 接收结果并先判断 IsNull，可以在用户取消时保留文本框原值。

年月选择

ShowYearMonthPicker([dtDefault]) As Variant 以模态方式选择年月，确认时返回所选月份第 1 天的 Date，取消时返回 Null，不是直接返回“yyyy-mm”字符串。

Dim pickedMonth As Variant
pickedMonth = ShowYearMonthPicker(Date)
If Not IsNull(pickedMonth) Then
    Debug.Print Format(pickedMonth, "yyyy-mm")
End If

保存到日期字段时保留 Date 值，只在控件显示格式中设置 yyyy-mm；需要文本形式的年月时再调用 Format。

文本框绑定

PickYearMonthFor 打开非模态年月下拉，确认后自动写回目标控件，不以函数返回值接收所选年月。以下示例将格式化文本写入 txtMonth：

Private Sub txtMonth_Click()
    PickYearMonthFor Me!txtMonth, "yyyy-mm"
End Sub

也可以在窗体加载时自动绑定目标文本框的双击事件：

Private Sub Form_Load()
    AttachYearMonthPicker Me, "txtMonth", "yyyy-mm"
End Sub

AttachYearMonthPicker 会设置控件的 OnDblClick 表达式；如果已有双击逻辑，请在原事件中调用选择器，避免覆盖。无需编写事件过程时，可在文本框“双击”属性中填写：

=PickYearMonthForCtl("frmOrder", "txtMonth", "yyyy-mm")

将示例中的窗体、按钮和文本框名称替换为自己的对象名；需要存储 Date 值而非格式化文本时，使用上面的模态返回值方式。

功能与环境

AccessTreeView 是 Web 树控件，用于展示部门、商品分类、目录等父子层级数据。支持展开、折叠、节点选择，以及向 VBA 返回选中节点的 Key、Value、显示文本和父节点 Key。

可使用 Access 的 Edge 浏览器控件，也提供旧版 Microsoft Web Browser 控件兼容路径。Edge 方案要求当前 Access 版本实际支持该控件；不支持时，可使用 WebBrowser 方案。

部署时保留前台数据库旁的完整 assets/treeview 目录，包括页面、脚本和样式。读取、刷新与节点维护接口均检查专业版授权。

字段映射

• SourceName：现有表或可读取的查询名称，不是 SQL 语句。
• KeyField：节点唯一键，不可为空、重复或带首尾空格。
• ParentField：父节点键；Null 或空字符串表示根节点，非空时必须指向存在的节点。0 不是特殊的根节点标记。
• TextField：显示文本；ValueField：可选业务值字段，留空时使用节点 Key。

Key 与 Parent 字段的数据类型须一致，支持文本、GUID 或精确数值类型；Key、Parent、Text 必须映射到不同字段。指定 Value 时，它也须为独立字段。加载时会检查缺失父节点和循环父子关系。

接入方式

开发阶段可在前台 .accdb 的 VBA 立即窗口生成示例窗体；默认使用 Edge，第二个参数为 True 时使用 WebBrowser。强制重建会覆盖原窗体，执行前请备份。

BuildAccessTreeViewForm

' 使用旧版 WebBrowser 控件，重建示例窗体
BuildAccessTreeViewForm True, True

打开生成的 USysFrmAccessTreeView，填写数据源和字段映射后点击刷新。正式前台应包含已生成的窗体，运行时不需要执行生成器。

自行接入 Edge 控件时，以下示例假设控件名为 edgeTreeView、数据表为 T_Categories；请替换为自己的对象名，并把对应控件事件设置为“[事件过程]”。

Private Sub Form_Load()
    AccessTreeView_Load Me!edgeTreeView, _
        "T_Categories", "CategoryID", "ParentID", "CategoryName"
End Sub

Private Sub edgeTreeView_DocumentComplete(URL As Variant)
    AccessTreeView_DocumentComplete Me!edgeTreeView
End Sub

Private Sub edgeTreeView_Click()
    Debug.Print AccessTreeView_SelectedKey(Me!edgeTreeView)
    Debug.Print AccessTreeView_SelectedValue(Me!edgeTreeView)
End Sub

首次导航后由 DocumentComplete 注入数据，不要紧接 Load 就读取节点。可用 AccessTreeView_IsReady 检查页面初始化、AccessTreeView_IsLoaded 检查数据加载。生成的示例窗体包含首次加载重试；WebBrowser 方案通过窗体定时器同步选择状态，不应照搬 Edge 的 Click 事件。

节点维护

示例窗体提供新增根节点、新增子节点、保存和删除操作，对应 AccessTreeView_AddNode、AccessTreeView_UpdateNode、AccessTreeView_DeleteNode。成功写入后会刷新树。

维护接口只接受表数据源，能否写入仍取决于表的可更新性及数据库权限；查询数据源用于浏览。新增接口不支持手工写入自动编号 Key，应由业务层新增记录后刷新。修改时不能把节点移动到自身或自己的后代下，存在子节点时须先删除或移动子节点再删除父节点。

专业版授权检查不代替业务权限控制，接入业务窗体时仍应按项目规则检查操作权限。

功能与环境

AccessDataTable 是 Web 数据表格，将现有 Access 表或查询结果展示在 Edge 浏览器控件中，支持列排序、分页、横向滚动及单行选择。列标题优先使用字段 Caption，未设置时使用字段名；布尔值显示“是 / 否”，货币显示两位小数。

当前模块要求 Access 支持 Edge 浏览器控件，不提供旧版 WebBrowser 兼容接口。默认每页 25 条，可切换为 10、25、50 或 100 条；当前未开启内置搜索框，也没有直接编辑、删除或 Excel 导出接口。筛选条件应在来源查询中处理。

接入方式

开发阶段执行 BuildAccessDataTableForm 生成 USysFrmAccessDataTable 示例窗体，填写现有数据源名称、键字段和标题后刷新。BuildAccessDataTableForm True 会强制重建，须先备份手工改动。

也可在自己的窗体放置名为 edgeDataTable 的 Edge 控件，按以下示例接入，并设置窗体加载和控件 DocumentComplete 事件为“[事件过程]”。

Private Sub Form_Load()
    AccessDataTable_Load Me!edgeDataTable, _
        "Q_ProductList", "ProductID", "商品列表"
End Sub

Private Sub edgeDataTable_DocumentComplete(URL As Variant)
    AccessDataTable_DocumentComplete Me!edgeDataTable
End Sub

SourceName 是已存在的表或查询名称，不是 SQL 字符串。键字段留空时使用第一个字段，标题留空时使用数据源名称；建议明确指定唯一且非空的业务主键。

选中值与刷新

点击行后，通过 AccessDataTable_SelectedKey 获取所配置键字段的值。页面将选中键转换为字符串；业务层需要数值时自行校验转换。将 Edge 控件 Click 事件设为“[事件过程]”后，可这样读取：

Private Sub edgeDataTable_Click()
    Debug.Print AccessDataTable_SelectedKey(Me!edgeDataTable)
End Sub

' 页面已完成加载后重新读取数据
AccessDataTable_Refresh Me!edgeDataTable, _
    "Q_ProductList", "ProductID", "商品列表"

刷新会重新生成表格并移除行高亮，业务层应清除先前保存的选中键，待用户重新选择后再处理业务。此控件负责浏览和返回键值，不会自动把所选数据写入其他窗体。

部署与数据量

将完整 assets/datatable 目录随前台发布，包括 vendor 中的 jQuery、DataTables 脚本和样式，并保留 assets/css/bootstrap.min.css。前台正式运行时使用已生成窗体，无需调用生成器。

模块以 DAO 快照读取数据源全部字段和记录，转换为 JSON 后一次传给页面；这里的分页是浏览器端分页，不是数据库分页。数据量较大时，先通过保存的查询限制字段、条件和记录数，避免长时间加载或占用过多内存。

所展示查询应无需弹出参数输入，并返回可转换为普通值的字段；附件、多值字段或 OLE 对象应在来源查询中排除或转换。

功能说明

在 Access 中集中管理收件箱、草稿、已发送邮件和已删除邮件，支持 SMTP 发送、POP3 收取、回复、回复全部、转发、关键字搜索、已读状态及附件操作。

可从配置好的菜单打开，开发者也可调用 Mail_OpenCenter()。已有“邮件中心”菜单时检查当前框架用户的查看权限；没有菜单项时，菜单配置不是调用入口的前置条件。

账户配置

1. 打开邮件中心的账户设置，新增或选择当前用户的邮件账户。
2. 填写发件地址、登录名、SMTP 主机与端口、POP3 主机与端口，并启用账户。
3. 按邮箱服务商要求启用 SMTP / POP3 服务，填写密码或专用授权码，不要将框架登录密码当作邮箱授权码。
4. 保存后选择该账户，先进行少量邮件收取和测试发送。

配置可以先保存而暂不填写授权码，但收发前需要满足邮箱服务器的认证要求。编辑已有账户时，授权码留空会保留原来保存的密文。

收发与附件

选择账户后点击收取，使用文件夹切换邮件范围，按主题或发件人关键字搜索。撰写邮件时填写收件人、主题与正文，可添加附件、保存草稿后继续编辑，或直接发送。

选中已有邮件可回复、回复全部或转发，并可标记已读、删除或恢复邮件。收发过程中可使用取消操作；是否成功以界面提示和邮件状态为准。

存储与安全

邮件数据保存在当前电脑的 %LOCALAPPDATA%\EdonSoft\Mail\{项目标识} 中，Mail.accdb 保存账户、邮件与草稿信息，附件存放在同一项目目录的子目录中。实际路径可通过 Mail_StoreRoot() 查询。

账户及邮件按框架用户隔离；授权码使用 Windows DPAPI 加密，绑定当前 Windows 用户环境。这不代表整份邮件库都已加密，服务器地址、端口及邮件正文仍需通过 Windows 文件权限妥善保护。

发布与维护

在引用开发版 Core 的前台 .accdb 中执行 BuildMailForms，生成邮件中心、列表、撰写和账户窗体，再编译前台 VBA。正式运行时打开已生成的窗体，不需要调用生成器。

BuildMailForms
? Mail_OpenCenter()

BuildMailCenter True 只重建邮件中心和列表；BuildMailForms True 重建整套邮件窗体。执行前请结束收发操作、关闭邮件窗体并备份手工修改过的对象。

邮件中心工具按钮使用嵌入式抗锯齿 PNG 图标，运行电脑无需额外安装图标字体。已有邮件中心可以在关闭后执行 UpdateMailCenterIcons 更新图标，不必重建整个窗体；执行前仍建议备份。

功能说明

通用查询适合列表窗体、主窗体中的子窗体，以及需要在基础 SQL 上动态追加查询条件的业务页面。

用户看到的效果

通用查询窗体默认标题为“通用查询”，支持最多 8 行条件。

• 留空的条件会自动忽略。
• 多个条件默认按 AND 组合。
• 布尔类型显示为“是 / 否”下拉框。
• 日期类型按日期格式输入。
• 系统会自动记住上次实际执行过的查询条件。
• 查询窗体不存在或版本过旧时，系统可自动重建 USysFrmCommonQuery。

直接用于当前窗体或子窗体

当前窗体筛选示例：

Private Sub btnQuery_Click()
    Dim strConfig As String

    strConfig = Join(Array( _
        "关键字|ANYLIKE|FUserCode,FUserName,FRealName", _
        "状态|BOOLEAN|FEnabled", _
        "开始日期|DATEFROM|FCreateTime", _
        "结束日期|DATETO|FCreateTime" _
    ), vbCrLf)

    Call CommonQuery_ShowForForm(Me, strConfig, "用户查询")
End Sub

子窗体筛选示例：

Private Sub btnQueryDetail_Click()
    Dim strConfig As String

    strConfig = Join(Array( _
        "产品名称|TEXTCONTAINS|FProductName", _
        "最小数量|NUMBERMIN|FQty", _
        "最大数量|NUMBERMAX|FQty" _
    ), vbCrLf)

    Call CommonQuery_ShowForSubform(Me, "sfrDetail", strConfig, "明细查询")
End Sub

基于基础 SQL 重建记录源

如果列表窗体本身是较长 SQL，或需要在基础 SQL 上附加排序和查询条件，建议使用 RecordSource 模式。

Private Sub btnQuery_Click()
    Dim strBaseSql As String
    Dim strConfig As String

    strBaseSql = "SELECT FID, FOrderNo, FCustomerName, FCreateTime FROM TS_SaleOrder"
    strConfig = Join(Array( _
        "单号|TEXTCONTAINS|FOrderNo", _
        "客户|TEXTCONTAINS|FCustomerName", _
        "开始日期|DATEFROM|FCreateTime", _
        "结束日期|DATETO|FCreateTime" _
    ), vbCrLf)

    Call CommonQuery_ShowForRecordSourceForm(Me, strBaseSql, strConfig, "FID DESC", "销售订单查询")
End Sub

查询配置格式

配置字符串按“每行一个条件”编写，行与行之间用换行分隔。

简写格式：

显示名称|字段名

这种写法默认按 TEXTCONTAINS 处理，也就是模糊包含查询。

完整格式：

显示名称|查询模式|字段名|默认值

示例：

关键字|ANYLIKE|FUserCode,FUserName,FRealName
状态|BOOLEAN|FEnabled
开始日期|DATEFROM|FCreateTime
结束日期|DATETO|FCreateTime

支持的查询模式

不弹窗时，直接在代码中拼条件

如果不想弹出统一查询窗体，也可以直接使用 basCommonQuery 中的条件函数和应用函数。

Private Sub btnQuickQuery_Click()
    Dim strWhere As String

    strWhere = Query_Join( _
        Query_AnyLike(Array("FUserCode", "FUserName"), Me!txtKeyword), _
        Query_NumberEquals("FDeptID", Me!cboDeptID), _
        Query_DateRange("FCreateTime", Me!txtDateFrom, Me!txtDateTo), _
        Query_BooleanEquals("FEnabled", Me!chkEnabled) _
    )

    Call Query_ApplySubformFilter(Me, "sfrList", strWhere)
End Sub

功能说明

clsSearchCombo 通过 WithEvents 监听组合框的输入、方向键、更新和失焦事件，并在用户输入关键字时重建组合框 RowSource。

用户看到的效果

• 用户在组合框中输入关键字时，下拉列表会立即缩小到匹配记录。
• 支持中文名称、编码、拼音字段或调用方拼接出的搜索表达式。
• 方向键和回车仍按 Access 组合框原有习惯操作。
• 选择完成后组合框保存实际绑定列值，不改变原业务表结构。

接入方式

在窗体模块顶部声明一个 WithEvents 变量，并在 Form_Load 中调用 CreateSearchCombo。

Private WithEvents mCustomerCombo As clsSearchCombo

Private Sub Form_Load()
    Set mCustomerCombo = CreateSearchCombo( _
        Me.cboCustomer, _
        "[公司名称]", _
        "客户代码,公司名称", _
        "客户信息表", _
        "地区='华北'", _
        "公司名称")
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Set mCustomerCombo = Nothing
End Sub

注意事项

• SearchField 可以是字段名，也可以是表达式，例如 [公司名称] & PinYin([公司名称])。
• SelectClause 和 FromClause 不需要写 SELECT / FROM 关键字。
• 窗体关闭时建议释放对象变量，避免事件引用仍然保留。

Access 后端

Access .accdb 是框架默认后端，适合中小型局域网应用、单机应用和快速交付项目。前端数据库通过链接表访问 Data.accdb 中的数据表。

SQL Server 后端

SQL Server 后端适合多人并发、集中备份、统一权限管理和数据量较大的业务系统。框架可生成 SQL Server ADO 连接字符串和 ODBC 链接表连接字符串，供链接表管理器和 ADO 通用执行模块使用。

MySQL 后端

MySQL 后端适合已有 MySQL 数据库环境、跨系统共享数据或需要使用 MySQL 统一维护数据的项目。框架支持 MySQL 服务器、端口、数据库、用户名、密码和 ODBC 驱动名配置。

功能说明

链接表管理器把连接测试、远程对象读取、本地表名设置和链接创建集中在一个界面中，减少手工维护链接表时的路径错误和连接字符串错误。

用户看到的效果

• 先选择后端类型，再填写后端文件路径或服务器连接信息。
• 点击“测试连接”后，系统会提示连接是否成功。
• 点击“读取对象”后，列表显示可链接的数据表或视图。
• 表列表支持全选和全不选，便于一次处理多张表。
• 用户可修改本地链接表名称，再执行单个链接或批量链接。
• 后端类型切换时，界面会显示对应的服务器、数据库、端口、驱动等字段。

操作流程

1. 打开链接表管理器。
2. 选择后端类型：Access、SQL Server 或 MySQL。
3. 填写后端路径或服务器连接信息。
4. 点击“测试连接”，确认账号、驱动和网络正常。
5. 点击“读取对象”，加载可链接的数据表或视图。
6. 使用“全选 / 全不选”快速调整需要处理的对象范围。
7. 选择对象并确认本地表名。
8. 点击“链接选中”或“链接全部”。

开发者入口

功能说明

升迁向导会扫描 Access 后端表结构，检查字段类型、主键和索引，再把可迁移的数据表创建到目标 SQL Server 数据库中。

用户看到的效果

• 向导界面显示目标服务器、数据库、账号和连接测试按钮。
• 表列表中显示可升迁的 Access 后端数据表。
• 表列表支持全选和全不选，适合批量升迁或快速排除少量表。
• 检查阶段提示字段类型、主键、索引和不适合自动迁移的字段。
• 执行阶段显示迁移进度和结果信息。
• 完成后可重新链接到目标 SQL Server 数据库。

升迁流程

注意事项

• 正式升迁前请备份前端、后端和目标数据库。
• 附件字段、多值字段、复杂查阅字段和 OLE 对象不建议自动迁移。
• 升迁完成后，需要在测试环境验证新增、编辑、删除、查询、导出等关键流程。
• 开发者入口包括 Upsize_Open、Upsize_CheckTable、Upsize_MigrateTable 和 Upsize_BuildConnectionFromForm。

功能说明

业务模块可以通过公共 API 投递提醒，提醒中可保存标题、内容、类别、目标用户、优先级、过期时间和跳转参数。

用户看到的效果

• 主界面顶部栏显示当前用户未读提醒数量。
• 点击提醒入口后打开待办列表窗口。
• 用户可查看提醒标题、内容、类别、优先级和创建时间。
• 用户可标记单条已读、全部已读或删除提醒。
• 带跳转参数的提醒可打开对应业务窗体。

公共 API

跳转参数

Call AddReminder( _
    "销售订单待处理", _
    "订单 SO20260619001 需要确认", _
    "销售", _
    "OpenForm|编辑|F_SaleOrder_Edit|||FID=123|||", _
    "admin", _
    1)

功能说明

basDashboardConfig 是纯内存渲染引擎，不创建数据表，也不自动生成窗体。开发者自行创建窗体和 WebBrowser 控件，然后通过公共 API 添加 KPI 和图表数据。

用户看到的效果

• 主页中显示一组 KPI 卡片，支持数字、趋势文字和图标。
• 下方图表区域按 12 栅格宽度排列，可混排不同图表。
• 窗体调整大小后可调用 Dashboard_ResizeCharts 让图表自适应。
• 未开通专业版时，WebBrowser 区域显示“主页仪表盘为专业版功能”，不会弹出单独提示框。

接入方式

先在 Access 窗体上放置一个 Microsoft Web Browser ActiveX 控件，例如 wbHome，再在窗体加载时添加数据并渲染。

Private Sub Form_Load()
    Dashboard_Reset

    Dashboard_AddKPI "订单总数", 4805, "+2.5%", "fa fa-shopping-cart", "#1e9ff2", "#,##0"

    Dashboard_AddChartFromSQL "销售趋势", "line", _
        "SELECT Format(FDate,'yyyy-mm') AS 月份, Sum(FAmount) AS 销售, Count(*) AS 单数 " & _
        "FROM T_SaleOrder GROUP BY Format(FDate,'yyyy-mm') ORDER BY Format(FDate,'yyyy-mm')", _
        "销售|单数", 8, 340

    Dashboard_Render Me!wbHome
End Sub

Private Sub Form_Resize()
    Dashboard_ResizeCharts Me!wbHome
End Sub

公共 API

功能说明

单据选择弹窗适合销售订单选商品、采购入库选采购明细、费用单选项目等场景。业务窗体只需要调用 BillSelect_ShowForSubform，传入来源数据、字段映射和目标明细子窗体控件名，即可完成选择和写入。

用户看到的效果

• 弹窗标题默认显示“选择信息”，调用方也可以指定为“选择商品”“选择销售订单”等业务标题。
• 顶部可选择过滤字段、过滤方式并输入关键字；过滤方式支持“包含”“开头是”“等于”。
• 列表区域显示调用方指定的字段，未指定时默认显示来源数据前 8 个字段。
• 用户可勾选多行后点击“确定”；如果没有勾选但当前行已定位，也会写入当前行。
• 双击当前行等同于确定；点击“取消”关闭弹窗，不写入明细。

调用入口

Call BillSelect_ShowForSubform( _
    Me, _
    "sfrDetail", _
    "SELECT FID, FProductCode, FProductName, FSpec, FUnit FROM TS_Product WHERE FEnabled=True", _
    "FProductID|FID;FProductCode|FProductCode;FProductName|FProductName;FSpec|FSpec;FUnit|FUnit", _
    "FProductCode,FProductName,FSpec,FUnit", _
    "FProductCode,FProductName,FSpec", _
    "选择商品", _
    "FQty", _
    1)

字段映射

字段映射支持分号或换行分隔，也兼容 | 和 = 两种写法。左侧是目标明细字段，右侧是来源字段。

FProductID|FID
FProductCode|FProductCode
FProductName|FProductName
FQty||1

• 第 3 段可作为默认值，例如 FQty||1 表示来源中没有数量时写入 1。
• 来源字段为空但存在默认值时，会按默认值写入。
• 默认数量字段会在映射写入后再检查，如果该字段为空，会写入 dblDefaultQty。

查询与显示字段

strDisplayFields 控制列表中哪些字段可见；未指定时默认显示来源数据前 8 个字段。列宽会根据字段名自动估算，例如名称字段更宽、规格字段次之。

strSearchFields 控制没有指定过滤字段时参与关键字搜索的字段。弹窗加载后会把可显示字段放入过滤字段下拉框，用户也可以在界面中选择单个字段进行查询。

发布与维护

当前版本运行时只检查并打开宿主窗体 USysFrmBillSelect，不会在业务运行过程中自动调用窗体生成器。发布前请确认前端 .accdb 或 .accde 中已经包含该窗体。

BuildBillSelectForm True

• 开发环境或发布准备阶段，可在 VBA 立即窗口执行上面的命令创建或重建宿主窗体。
• basBillSelectFormBuilder.bas 只用于创建或重建宿主窗体，不应作为业务运行时依赖。
• 目标明细子窗体应绑定到可新增记录源；如果不可更新，可在 BillSelect_ShowForSubform 最后一个参数指定实际写入表或可更新查询。
• 专业版授权会在公开入口、窗体加载、查询、确认和最终写入时重复检查，避免绕过界面直接调用写入逻辑。