简介Formula One 9.0 是一套基于 Java 的 VTS 编辑工具/控件包专为需要批量创建和定制 VTS 内容的个人用户、小型团队及嵌入式开发者设计通过模板化编辑流程和 XML 数据接口用户无需编写复杂代码即可快速生成规范化内容安装版免费适合长期稳定地嵌入现有工作流。压缩包共收录 316 个文件整体仅 6.76MB其中 HTML/HTM 说明页面多达 272 个配合 GIF 图示、CSS 样式和帮助索引构成一套完整本地文档系统同时包含 Java 类与 jar 库Swing/AWT 界面组件、Xalan/Crimson XML 解析转换组件、VTS 数据文件、INI 配置文件及卸载程序覆盖安装、使用、卸载全流程。目前已有 3621 人学习/下载资源描述中提到使用者已连续使用五年称赞其稳定可靠、性价比高。资源保留了主程序、设计期类库和运行依赖解压后即可部署无需联网下载大量 HTML 文档可用于查阅控件接口、配置参数与二次开发细节对研究 Formula One 9.0 控件机制或学习 Java GUI 编程均有借鉴意义从预览可见包内同时提供样式表、图标和横幅等界面资源便于界面定制。1. formula one.zip老系统里的电子表格控件9.0 这样用才不出问题formula one.zip 这个包对还在维护 VB6 和老桌面系统的人来说是那种一看到文件名就心里有数的资源。它对应的是 Formula One 表格控件——很多工厂排产界面、进销存单据、设备参数录入窗口里那个看起来很像 Excel、能填数能算合计的网格就是它。下载它不是为了尝鲜而是为了把老系统按住、把手头的界面跑通。这篇笔记围绕 9.0 版本展开把安装、注册、调用、部署四个环节里最容易翻车的地方一次说清。适合接手旧 MES、要在新机器上复活老界面的开发者想做旧表格数据迁移评估的同学也可以直接照做。2. 控件身份与版本选择9.0 为什么装出来叫 F1Book后续产品线叫什么2.1 从网格控件到电子表格Formula One 在桌面程序里解决什么问题老式桌面程序里最常见的表格需求是“能看、能改、能算合计”。早期的 MSFlexGrid 只能展示数据想编辑单元格要自己弹输入框公式更是基本靠手算再写回。Formula One 这一类控件把 Excel 的交互方式搬进了窗口程序单元格自带编辑状态双击就能改支持 SUM、IF 这类公式还保留了行号列号、列宽拖拽、单元格背景色这些表格观感。在工业类老系统里它的定位很明确不依赖目标机器装了 Office也能给操作工一个像 Excel 的录入界面。很多单据界面只做三件事——从数据库拉数据填进表格、让用户改几个格、点保存再写回数据库。F1Book 正好把这三件事都包了。所谓“电子表格控件”本质是一个带公式引擎和数据模型的网格控件比普通网格多了公式计算、打印布局和导入导出能力。2.2 版本与命名9.0 装出来为什么叫 F1Book后来又叫 Spread 系列Formula One 控件的命名在不同时期有点乱。早几代直接跟着年份或版本号走安装完注册表里出现的是 F1Book 这个名字8.0、9.0 版本在 32 位系统里注册后工具箱里看到的通常也是 F1Book 或带 Formula One 字样的条目。后来整个产品线整合名字变成了 Spread 系列但老项目里大家还是习惯叫它 Formula One 或直接叫 F1Book。版本线索控件典型命名典型运行环境常见使用场景早期 6.0/7.0F1Book6 / F1Book7VB5、VB6进销存录入、报表编辑8.0F1Book8VB6、Delphi单据录入、数据展示9.0F1BookVB6、老 WinForm工厂 MES、设备台账、排产界面整合后的 Spread 系列Spread 控件WinForm / Web 新项目新系统里的兼容迁移方案这张表只是我摸包时的大致印象不一定精确到每一个小版本主要目的是帮你识别手里的文件到底属于哪个阶段。9.0 这个版本在 ActiveX 时代算中后期接口相对成熟对 Excel 97-2003 格式的导出支持也比前几代靠谱。你如果下载到的 formula one.zip 里只有 F1Book.ocx多半就是这一代。选型上有两句话可以直接记老系统维护优先匹配原来用的版本不要贸然升级到 Spread 系列接口名有差异新项目如果只是需要把老数据导出来也建议用一个老环境把数据先落成 xls再交给新系统处理省去在迁移过程中同时调试新旧控件的麻烦。2.3 工程环境怎么配同一份 ocx 在 VB6、VB.NET、Delphi 里接入的差别F1Book 是 ActiveX 控件理论上只要开发环境支持 COM 组件就能接。但不同语言接法不一样我实际碰过的组合有这样几种。开发环境接入方式注意事项适合场景VB6工程→部件→勾选 F1Book工程保持 32 位别做成 Any CPU老系统维护VB.NET / C#工具箱右键→选择项→COM 组件系统自动生成 Interop 程序集给旧控件包一层新壳DelphiComponent→Import ActiveX Control确认是 Win32 工程兼容老组件库VB6 里最简单勾选完直接拖。VB.NET 里要注意生成 Interop 之后控件的名称、方法和 VB6 里基本一致但事件签名偶尔会有包装差异鼠标事件和键盘事件的参数类型可能让你在编译时挨个改。Delphi 我碰得少但导入向导一般能处理关键是别在 64 位工程里硬塞 32 位 ActiveX。3. 安装注册实操解压 formula one.zip 到控件能进工具栏的完整步骤3.1 压缩包里常见内容与摆放习惯这类安装包解压后常见内容大致如下不同来源打包方式会有出入。文件类型典型文件名用途主控件F1Book.ocxActiveX 控件本体需要注册依赖库若干 .dll部分版本依赖运行库不能漏帮助文档.chm 或 .hlp接口说明、方法和属性参考示例工程Demo / Samples 目录给接入做参考我建议先把整个压缩包解压到一个固定目录比如 D:\dev\f1不要直接双击运行压缩包里的安装程序就算完事。因为很多时候你拿到的不是官方安装盘而是一个松散文件包里面有 ocx 但不一定有 setup。手动注册反而比找安装程序更直观。3.2 管理员命令行注册32 位 regsvr32 的选择注册 F1Book.ocx 的完整命令大概长这样cd /d D:\dev\f1 copy /y F1Book.ocx C:\Windows\SysWOW64\ C:\Windows\SysWOW64\regsvr32.exe C:\Windows\SysWOW64\F1Book.ocx解释一下这几条命令的逻辑。第一条先切入解压目录保证后面引用的文件路径不依赖当前目录状态。第二条把控件文件复制到 SysWOW64 目录这个目录在 64 位 Windows 下专门放 32 位程序使用的库文件VB6 是 32 位进程从 SysWOW64 加载最省事。第三条是核心调用 32 位版本的 regsvr32 注册控件。参数看起来简单但这里有个非常容易踩的坑在 64 位系统上直接输 regsvr32 默认会调用 System32 下的 64 位版本用它注册 32 位 ActiveX 控件有时候弹窗提示成功但 VB6 工具箱里就是找不到控件。原因就是注册表项写到了 64 位视图的位置32 位程序读不到。加上 C:\Windows\SysWOW64\regsvr32.exe 这个全路径才真正写进 32 位程序看得见的注册表视图。提示注册过程要保证命令行窗口是以管理员身份打开的。右键“以管理员身份运行”这一步不能省否则会出现“拒绝访问”或“模块已加载但找不到入口点”之类的提示。3.3 在 VB6 工具箱里确认控件真的进来了注册成功后打开 VB6 新建一个标准 EXE 工程在工具箱空白处点右键选择“部件”也可以从菜单栏“工程→部件”进入。切换到“控件”选项卡往下翻找到带 F1Book 字样的一项前面打勾确定。之后工具箱尾部会多出一个图标图标上一眼看上去就是网格表格的样子。控件拖到窗体上以后按 F4 看属性面板确认能看到 MaxCols、MaxRows 这类属性说明控件加载正常。如果这一步属性面板是空的或者拖上去就报错优先检查注册时用的 regsvr32 是不是 32 位版本。还有一种验证办法在命令行执行以下命令看注册表里是否有对应的 CLSIDreg query HKCR\CLSID /f F1Book /k /s这条命令会递归搜索注册表里的 F1Book 相关键能查到说明注册表里已经有记录。查不到就回头检查注册步骤。4. 表格落地到窗体F1Book 填数据、写公式、接数据库的三种写法4.1 属性面板先改哪几项F1Book 拖到窗体上以后不用急着写代码先把几个关键属性改掉后面省很多事。属性推荐值原因MaxCols按实际列数加 2数据区比实际需要宽一点避免运行时越界MaxRows按实际数据量加 20给新增行留余量但不建议设成 65536性能会拖ColHeadersTrue显示列头方便操作员认列RowHeadersFalse工业界面里行号通常没用关掉省空间EnterMoveDirection1回车后向右移动符合单据录入习惯这里特别提一下 MaxRows。有人图省事直接设成 Excel 风格的大行数结果数据量一大滚动、重算都变慢。表格控件是按最大行列数分配内部结构的设的越大初始化开销越高。装数据之前先估算一下量级再给个余量是更稳妥的做法。4.2 初始化列头并从一个 Recordset 填表单据界面的启动逻辑一般是窗体加载时先把列头写好再把数据库查出来的记录逐行填进表格。下面这段代码是典型的 VB6 写法Private Sub Form_Load() With F1Book1 .MaxCols 5 .MaxRows 100 .SSSetText 1, 1, 行号 .SSSetText 1, 2, 物料编码 .SSSetText 1, 3, 数量 .SSSetText 1, 4, 单价 .SSSetText 1, 5, 备注 End With End SubSSSetText 的参数顺序是行、列、文本行列号从 1 开始不是从 0 开始这点和常见的数组习惯完全不同。第一行用来做列头所以数据区从第 2 行开始。接着从数据库取数填表Dim rs As ADODB.Recordset Dim r As Long rs 已经打开假设取的是某个单据的明细 r 2 Do Until rs.EOF F1Book1.SSSetNumber r, 1, r - 1 F1Book1.SSSetText r, 2, rs.Fields(MaterialCode).Value F1Book1.SSSetNumber r, 3, rs.Fields(Qty).Value F1Book1.SSSetNumber r, 4, rs.Fields(Price).Value F1Book1.SSSetText r, 5, rs.Fields(Remark).Value r r 1 rs.MoveNext Loop这段代码里我按字段类型用了两个不同的方法文本用 SSSetText数值用 SSSetNumber。好处有两个一是数值类字段不经过字符串转换精度不容易丢二是后面取数时可以用对应的 SSGetNumber 直接拿回数值不用再 Val 一下。如果你的数据本身是文本型比如物料编码一律用 SSSetText 就行别用 SSSetNumber不然前导零会被吃掉这个细节很容易在不经意间造成数据错误。4.3 给单元格写公式并让表格实时重算表格控件一个核心价值就是公式能自动重算。比如明细区域最后要放一个合计行Dim totalRow As Long totalRow r r 是上一步循环结束后的下一行 F1Book1.SSSetText totalRow, 1, 合计 F1Book1.SSSetFormula totalRow, 3, SUM(C2:C totalRow - 1 ) F1Book1.SSSetFormula totalRow, 4, SUM(D2:D totalRow - 1 )SSSetFormula 把字符串当成公式解析不是显示成字符串。这里 C 和 D 是列号对应的字母行号从 2 到 totalRow-1 是明细区。公式一旦设置用户在明细区修改数量或单价合计行会即时更新。参数上有一个容易忽略的点公式里不能直接写中文字段名F1Book 只认列字母和行号所以动态拼接行号是固定套路。另外如果你不想用列字母也可以把单元格引用写成 R2C3 这种 R1C1 风格但没必要默认 A1 风格最顺眼。设置完公式后如果发现长时间没重算可以调一下属性里的 CalcOnSet 开关或者手动调用一次重算接口。4.4 改完存回数据库事务循环里按行取值用户操作完界面点保存时需要把表格里的数据逐行读出来写回数据库。常见做法是遍历整个数据区读到空行为止Dim r As Long Dim billNo As String Dim materialCode As String Dim qty As Double Dim price As Double billNo txtBillNo.Text cn.BeginTrans For r 2 To F1Book1.MaxRows materialCode F1Book1.SSGetText(r, 2) If materialCode Then Exit For qty F1Book1.SSGetNumber(r, 3) price F1Book1.SSGetNumber(r, 4) cn.Execute UPDATE 订单明细 SET Qty qty _ , Price price _ WHERE 单号 billNo AND 行号 r - 1 Next r cn.CommitTrans我一般会在循环里用“读到物料编码为空就退出”的方式确定数据边界而不是把 MaxRows 全部遍历一遍因为用户一般不会填满整个表格遍历到底纯属浪费时间。事务包住整个循环中途有任何一行写失败可以整体回滚不让用户面对半截保存的脏数据。这段示例为了直观使用了直接拼接 SQL只适合内部工具这类低风险场景。正式的生产系统务必改成参数化查询用 ADODB.Command 把 qty、price 作为参数传进去既防注入也避免数值转字符串时的小数精度问题。例子重点在表格取值这一层别把 SQL 拼接习惯带进正式代码。5. 避坑手册开发机能跑、客户机报错的高频翻车点与修复5.1 运行时错误 429ActiveX 部件不能创建对象现象开发机上程序跑得好好的拷贝到客户机器上一打开窗体就弹“运行时错误 429ActiveX 部件不能创建对象”或者“类未注册”。原因ActiveX 控件除了文件本身还依赖注册表信息。你只复制了 exe 和 ocx 文件过去没有执行注册。VB6 编译后的程序不是绿色软件框架、控件全都靠注册表在系统里“挂号”。解决在客户机上先装控件用 32 位 regsvr32 执行注册或者干脆做一个批处理安装脚本copy /y F1Book.ocx C:\Windows\SysWOW64\ C:\Windows\SysWOW64\regsvr32.exe /s C:\Windows\SysWOW64\F1Book.ocx加 /s 参数是静默注册不弹窗适合放到部署脚本里。如果客户机是 32 位系统把路径换成 System32 再跑一次。5.2 64 位系统上注册成功但 VB6 工具箱找不到控件现象注册命令执行后弹了成功提示但打开 VB6 在部件窗口里翻不到 F1Book或者拖到窗体时报错。原因注册表存在 32 位和 64 位两套视图。如果你用的是 System32 下的 64 位 regsvr32它会把控件信息写进 64 位注册表视图。而 VB6 是 32 位进程启动时只读 32 位视图自然看不到。解决注册时强制用 C:\Windows\SysWOW64\regsvr32.exe不要只输 regsvr32。可以反注册后再用正确版本注册一遍C:\Windows\SysWOW64\regsvr32.exe /u C:\Windows\SysWOW64\F1Book.ocx C:\Windows\SysWOW64\regsvr32.exe C:\Windows\SysWOW64\F1Book.ocx这个顺序相当于清理残留注册项后重新写入。5.3 单元格中文变乱码导出后字体全乱现象开发机输入中文正常客户机上显示正常但导出的文件打开后中文字符错乱或者某些机器上文本变成方块。原因老控件对字符集的处理很敏感。F1Book 早期的几个版本对 ANSI 代码页依赖较强如果系统区域设置和开发机不一致或者字体属性里字符集选了默认而不是 GB2312就会出现录入和显示不一致。导出时也沿用同一套字符集所以源头不校正导出必然跟着乱。解决在控件属性里把字体字符集设为 GB2312。有的版本在工具栏的控件属性里看不到这个选项可以写代码设置字体。另外整机区域设置建议统一为中文简体中国这能解决大部分乱码问题。导出文件之后打开检查一遍不要以为开发机上正常就万事大吉。5.4 客户机出现 Evaluation Version 水印现象界面功能正常但表格左上角或单元格区域显示“Evaluation Version”水印打印时也会打出来客户不接受。原因这个包如果来自评估版或共享版控件内部带了设计期许可标记。开发模式下可能不显示编译发布到客户机后运行时许可检查没过就会进入评估模式。解决如果是正式项目需要采购正式许可不能靠改注册表或删除水印绕过去。如果是老系统维护检查原项目维护记录里是否已经买过完整许可用原有授权重新打包。还有一条很现实的路评估版做功能验证没问题但可以把导出成 xls 当作迁移通道把老数据救出来之后新界面换已经授权的正式控件或改用其他方案。5.5 打印少列和导出 Excel 错位现象打印预览一切正常真打印出来右边少两列导出 Excel 后合并单元格错位、列宽变窄、表头行高丢失。原因F1Book 的打印接口和表格显示区域共用一套布局参数。打印时如果没设置打印区域默认只打印当前可视范围或默认区域列一多就截断。导出到 Excel 时老版本对合并单元格、跨列居中的映射不如后几代完整加上字体差异就出现错位。解决打印前明确设置打印区域比如先选中需要打印的行列范围再调用打印方法或者把 MaxCols 收敛到实际列数避免空白列占到版面上。导出走 SSExportToExcel 而不是另存为文本或剪贴板间接粘贴前者内部处理的格式映射更完整。6. 交付前验证把 F1Book 导成 Excel 文件以及四步自检清单6.1 两种导出写法与注意点F1Book 最常见的导出写法是这样F1Book1.SSExportToExcel App.Path \export.xls, 0第一个参数是导出文件的完整路径第二个参数 0 表示导出当前数据区全部内容也可以改成具体行列范围。部分版本还兼容另一种写法F1Book1.ExportToExcel export.xls不带第二个参数。两种写法拿到包以后先查一下附带的 chm 帮助文档确认不同小版本对方法名的支持有点差别。要注意导出生成的是 Excel 97-2003 格式 .xls不是 .xlsx。如果客户坚持要 xlsx后面用 Office 打开另存一次就能转别在控件里找不存在的参数。导出前先把表格重算一遍确保合计行是最新值导出后再用 Office 打开一次核对中文、列宽、合并单元格三处。6.2 每台交付机器上强制走一遍的四步自检我这几年养成的习惯是交付前在干净环境里按固定顺序自检缺一步都不敢签验收单。第一步在干净的 32 位虚拟机或未装过任何同类控件的系统里解压并注册控件。这一步能暴露所有依赖缺失问题比开发机上的状态可信得多。第二步新建一个最小 VB6 工程拖入 F1Book 控件确认能拖且属性面板有内容。第三步填入一批包含中文和数字的样例数据设置一个合计公式再执行一次导出。第四步把导出文件在安装了完整 Office 的机器上打开检查中文、合计值、列宽。这四步全过我才会认为这个资源在当前交付环境下是可靠的。从那以后我每次做老系统交接都会强制走一遍这个流程不再相信开发机上一切正常就等于现场没问题。这个资源的下限不高但上限取决于你把注册、环境和导出边界控制到什么程度希望帮到你。本文还有配套的精品资源点击获取
