企业官网建设流程全解析

简介：《库存管理系统设计方案》是一份面向计算机专业学生、课程设计者及初级管理信息系统开发者的文档型资料，聚焦库存管理系统的需求分析、模块划分、数据库设计与应用程序实现，可用于课程设计参考、毕业设计选题梳理或MIS入门学习。资源包共1个doc文件，约604KB，内容按绪论、数据库理论基础、应用系统开发工具、系统设计分析、应用程序设计与设计总结等章节组织，完整呈现从管理信息系统概念、SQL语言基础到Visual Basic与Access 2000开发实践的方案框架。已有127人学习下载，适合需要理解库存管理系统整体设计流程、借鉴入库出库与库存查询预警等功能划分、查阅数据表与关系模型设计思路的读者。文档还涉及用户界面、业务逻辑与数据库交互等实现要点，便于读者快速把握典型信息管理系统的设计脉络与文档写法。

1. 从两个文件说起：一个库存管理系统老项目的真实长相

把压缩包解开，里面往往只有两样东西：一个.vbp工程文件，一个.mdb数据库文件。双击工程能打开，按 F5 却可能弹出一串“找不到工程或库”。这就是十年前那批库存管理系统课程设计项目的典型状态——功能是完整的，登录、入库、出库、查询、报表一应俱全，但它对运行环境的要求，比现在的任何一个项目都挑剔。

适合读这份资料的是两类人：一类是要把设计文档和源码对应起来、照着交作业或者改造上线的新手；另一类是接手了老系统、需要在不推翻界面的前提下把数据层换掉的熟手。整套东西用 VB6 做界面、Access 2000 存数据、SQL 语句打通前后端，是典型的信息管理系统（MIS）结构。下面按“能干什么 → 怎么跑 → 怎么改”的顺序，把它拆开看。

2. 技术选型与工程结构：VB6 窗体 + Access 单文件库的组合

先说清楚这套选型的边界，不然后面改造会走弯路。VB6 在 Windows 上是真正的原生编译，窗体是资源，控件是 COM 组件，事件驱动模型很直白：按钮点一下，Click事件里的代码就跑。Access 2000 是文件型数据库，一个.mdb就是全部，没有服务端进程，靠文件共享读写。这个组合单机或十人以内的小仓库完全够用，一旦并发上到几十个人、或者要跨网段访问，就会开始出各种玄学问题。

2.1 为什么是 VB6 + Access，而不是当时更重的方案

从设计文档的章节顺序能看出作者的取舍逻辑：先讲数据库理论，再讲开发工具，最后才落到模块划分和源码。这是标准的课程设计套路，但也恰好说明这套技术栈的核心思想——把业务复杂度压在数据库设计上，界面只做录入和展示。

VB6 的优势在于界面搭建成本极低。拖一个DataGrid、绑一个ADO Data控件、设一下DataSource属性，一张表的数据就显示出来了，一行代码都不用写。对于库存管理系统这种“表单密集、逻辑简单、报表多”的场景，这个开发效率是压倒性的。

Access 的优势在于零部署。没有安装数据库服务、没有建库建用户、没有配置连接权限这些步骤，把.mdb拷过去，程序里写个路径就能连。代价也很明确：

所以判断标准很直接：如果你的库存管理系统只在一个仓库的一台机器或一个局域网内跑，这套方案不用换；如果要多人远程同时操作同一批库存，先换数据层，界面可以留着。

2.2 工程目录与文件清单：每个文件管什么

原始压缩包里通常是“一堆文件平铺”的状态，读起来很痛苦。按职责整理之后，正常的结构应该长这样：

StockMgr\ ├── StockMgr.vbp 工程文件，记录窗体/模块清单、引用和编译选项 ├── StockMgr.vbw 工作区文件，记录各窗口位置，可以删，会自动重建 ├── forms\ │ ├── frmLogin.frm 登录窗体，校验用户并写入全局角色变量 │ ├── frmMain.frm MDI 主窗体，挂菜单和状态栏 │ ├── frmGoods.frm 货品档案维护，增删改查 │ ├── frmInStock.frm 入库单录入，主从表一起写 │ ├── frmOutStock.frm 出库单录入，带库存量校验 │ └── frmReport.frm 查询条件 + DataGrid + 打印 ├── modules\ │ ├── modDB.bas 连接串常量、OpenConn/CloseConn、错误日志 │ └── modStock.bas 入库、出库、库存扣减的业务过程 ├── reports\ │ └── rptStock.Dsr Data Report 报表定义 └── data\ └── manage.mdb Access 2000 数据库，含表、查询、窗体元数据

几个文件类型的职责必须分清，不然改代码会找错地方：

• .frm是窗体，二进制头和文本体混排，用记事本打开能看到Begin VB.Form那一段属性定义，下面是事件代码。改界面属性最好在 IDE 里改，直接编辑文本容易把控件数组搞坏。
• .bas是标准模块，全局函数和全局变量放这儿，编译后是独立的代码段。所有窗体都能调用，是放业务过程最合适的地方。
• .cls是类模块，这套项目里一般没有，如果要做分层改造，可以把“库存扣减”抽成类。
• .vbp是工程文件，本质是个文本清单，记录哪些文件参与编译、引用了哪些 COM 组件。换机器打不开，十有八九是这里记录的引用在本机不存在。

提示：.vbw和.frx（窗体的二进制资源）不要手工编辑，.frx损坏会导致窗体直接加载失败，且无法修复，只能从备份恢复。

2.3 数据访问的三种路子：Data 控件、ADO、DAO

这套项目最容易让人迷失的地方，是同一份源码里可能同时出现三套数据访问代码。它们不是重复，而是不同时期叠加的结果，改造前必须认清楚。

Data 控件是最老的，属于 DAO 体系。拖一个Data1到窗体上，设DatabaseName指到.mdb，设RecordSource指到表名，再把Text1.DataSource = "Data1"、Text1.DataField = "GoodsName"绑上，文本框就自动显示当前记录。它的优点是零代码，缺点是所有逻辑都藏在属性里，出了问题就是黑匣子，调试时完全不知道 SQL 长什么样。

ADO Data 控件（ADODC）是后来的替代品，功能类似，但底层换成 ADO，支持ConnectionString，可以连 Access 也能连其他数据库。它比 Data 控件灵活，仍然属于“绑定制”。

纯 ADO 代码是真正可控的方式，用ADODB.Connection和ADODB.Recordset手工打开、手工遍历。行级操作、事务、参数化都能做。库存扣减这种必须精确控制的地方，一定要走这条路。

常见做法是：查询展示用绑定的DataGrid图省事，写入类操作全部改成 ADO 代码。我在改这类项目时，第一步就是把所有Data控件的RecordSource打印出来看一眼，确认它到底在查哪张表，很多时候界面上的字段和数据库里的字段根本对不上，靠的是查询里起了别名。

3. 数据库设计拆解：五步法怎么落到五张表上

设计文档里把数据库设计分成需求分析、概念设计、逻辑设计、物理设计、加载测试五步。这套流程不是摆设，库存管理系统出问题，八成出在第三步和第四步——实体关系没理清，或者字段类型选错。这一章把五步真正落到表结构上。

3.1 从业务单证到 E-R 图：先分清“单据”和“余额”

库存业务里有两类数据，混在一起设计必然翻车。

第一类是流水单据：入库单、出库单。它们是历史记录，只增不改，每条记录代表一次业务动作，字段里要有时间、经办人、数量、单价。第二类是当前余额：某个货品在某个仓库里现在还有多少。它是状态的快照，会被频繁更新。

新手最常见的错误，是只建流水表，然后每次查库存都用SUM(入库) - SUM(出库)现算。数据量小的时候没感觉，几万条之后，每次打开主界面都要等好几秒。正确做法是两张都建，流水表负责追溯，余额表负责查询，每次出入库在同一个事务里同时更新两者。

E-R 层面，核心实体四个：货品、仓库、用户、单据；核心联系两个：货品与仓库之间的“存放”（多对多，带数量属性），用户与单据之间的“经办”（一对多）。把这个画出来，表结构基本就定型了。

3.2 五张核心表的字段定稿

下面是我整理后的表结构，字段名全部英文化。原项目里存在中文字段名的情况，Access 支持，但一旦要换数据库就是灾难，这一步必须提前做掉。

几个字段的取舍值得单独说：

Qty用Long而不是Currency，因为库存数量按件计，不涉及小数。有些项目把数量做成浮点，出库几次之后会出现0.0000001这种残值，对账时极其难受。

SafetyQty放在货品档案上而不是仓库维度，是因为这套系统的预警逻辑是“总库存低于安全线就提示”，如果要做到“每个仓库单独设安全库存”，就得把它挪到tblStock里，这是二次开发时第一个要动的地方。

UpdateTime放在余额表上，是为了排查“这条库存最后是谁什么时候改的”。原设计文档没提这个字段，但实际运维中，没有它就没法定位数据异常的时间点。

3.3 索引怎么加：不是越多越好

Access 里加索引很简单，表设计视图点一下就行，但代价和收益必须算清楚。

必须加索引的位置只有三处：

-- 库存余额表的联合主键，出库时按货品+仓库定位，必须有 CREATE UNIQUE INDEX idx_stock_pk ON tblStock (GoodsID, WarehouseID); -- 入库流水的日期索引，报表按月统计全靠它 CREATE INDEX idx_in_date ON tblInStock (InDate); -- 出库流水的日期索引，同上 CREATE INDEX idx_out_date ON tblOutStock (OutDate);

不加索引的位置也要说清楚：Qty字段不要加。库存数量是高频更新的字段，每改一次索引就要重建一次，反而拖慢写入。原项目里就有人在Qty上建了索引，结果入库单批量保存时慢得离谱，删掉索引之后速度立刻恢复正常。

注意：Access 的索引信息存在系统表里，表结构改动后旧索引可能残留成“无效索引”，在“数据库实用工具 → 压缩和修复数据库”里能清掉。项目跑一段时间变慢，先做一次压缩修复，往往比改代码有效。

3.4 SQL 在 VB 里的两种写法：拼接与参数化

设计文档里给的例子是字符串拼接：

' 原始写法：把条件直接拼进 SQL 字符串 strSQL = "SELECT * FROM tblInStock WHERE InDate >= #" & txtStart.Text & "#"

这种写法能跑，但有两个隐患。一是日期分隔符，Access 的日期字面量必须用#包起来，用单引号会报类型不匹配，这是 Access 独有的坑。二是货品名称里带单引号时，整个语句会被截断，直接抛语法错误。

改造后的写法用参数占位，由 ADO 负责转义：

' 改造写法：用 ? 占位，按顺序 Append 参数 Dim cmd As New ADODB.Command With cmd .ActiveConnection = gConn .CommandText = "SELECT * FROM tblInStock WHERE InDate >= ? AND GoodsID = ?" .CommandType = adCmdText .Parameters.Append .CreateParameter("p1", adDate, adParamInput, , CDate(txtStart.Text)) .Parameters.Append .CreateParameter("p2", adVarWChar, adParamInput, 12, txtGoodsID.Text) End With Set rs = cmd.Execute

参数化的好处不只是防注入——虽然这是主要目的——它还让 Access 的查询计划可以复用。同一个语句反复执行时，Access 会缓存执行计划，拼字符串的话每次都算新语句，缓存永远命中不了。库存查询这种高频操作，差别肉眼可见。

4. 核心模块源码拆解：一次完整的出库链路

功能清单在设计文档里写得很全，但真正决定这套系统能不能用的，是出库这一步。它同时涉及权限判断、库存校验、主从表写入、余额更新和失败回滚，五个环节任何一个漏掉，数据就会脏。这一章按链路顺序拆。

4.1 登录与权限：一张用户表撑起三种角色

登录窗体的逻辑很朴素，但有两个细节决定成败：一是密码不能明文比对后就直接放行，二是登录成功后要把角色信息存到全局变量，供后续窗体判断。

' frmLogin 的登录按钮事件 Private Sub cmdLogin_Click() Dim rs As New ADODB.Recordset Dim strSQL As String If Trim(txtUser.Text) = "" Then MsgBox "请输入用户名", vbExclamation, "登录" Exit Sub End If ' 用参数化查询避免用户名里带单引号导致语句报错 strSQL = "SELECT UserID, UserName, UserPwd, RoleID FROM tblUser " & _ "WHERE UserName = ? AND Status = 1" Set rs = ExecQuery(strSQL, Array(Trim(txtUser.Text))) If rs.EOF Then MsgBox "用户不存在或已停用", vbExclamation, "登录" rs.Close: Exit Sub End If ' 实际项目里这里应比对哈希值，明文比对只是老项目的现状 If Trim(rs!UserPwd & "") <> Trim(txtPwd.Text) Then MsgBox "密码不正确", vbExclamation, "登录" rs.Close: Exit Sub End If gUserID = rs!UserID gUserName = rs!UserName & "" gRoleID = rs!RoleID ' 1=管理员 2=仓管 3=只读查询 rs.Close Unload Me frmMain.Show End Sub

ExecQuery是modDB里的公共函数，作用是收 SQL 和参数数组、返回记录集，把连接管理收拢到一处。gRoleID是标准模块里的全局变量，frmMain的Form_Load里按它控制菜单项的Enabled属性：

' frmMain 加载时按角色裁剪菜单 Private Sub Form_Load() Select Case gRoleID Case 1 ' 管理员全部可见 Case 2 ' 仓管不能进用户管理 mnuUserMgr.Enabled = False Case 3 ' 只读用户只能查询和报表 mnuInStock.Enabled = False mnuOutStock.Enabled = False mnuGoods.Enabled = False End Select StatusBar1.Panels(1).Text = "当前用户：" & gUserName End Sub

这里有个血泪经验：菜单隐藏不等于权限控制。原项目只做了Enabled = False，用户按快捷键或者直接调窗体照样能进。真正要控的是业务过程入口——SaveOutStock函数第一行就该判断gRoleID，不满足直接返回False。

4.2 出库单录入：事务、校验与主从表写入

出库是整个系统最容易出错的地方。一次出库可能涉及多个货品（一张单子多行明細），每行都要扣库存，任何一行失败，整张单子必须全部回滚。

' modStock.bas 中的核心出库过程 Public Function SaveOutStock(ByRef arrItems As Variant, _ ByVal strReceiver As String, _ ByRef strErr As String) As Boolean Dim i As Long Dim lngQty As Long Dim strGoodsID As String Dim lngAffected As Long On Error GoTo EH SaveOutStock = False If gRoleID = 3 Then strErr = "当前角色无出库权限" Exit Function End If gConn.BeginTrans ' 开启事务，Access 也支持 For i = LBound(arrItems, 2) To UBound(arrItems, 2) strGoodsID = arrItems(0, i) ' 货品编号 lngQty = CLng(arrItems(1, i)) ' 出库数量 If lngQty <= 0 Then strErr = "第 " & (i + 1) & " 行数量必须大于 0" GoTo Rollback End If ' 带条件的更新：库存不足时受影响行数为 0，不会写成负数 gConn.Execute "UPDATE tblStock SET Qty = Qty - ?, UpdateTime = Now() " & _ "WHERE GoodsID = ? AND Qty >= ?", _ lngAffected, adExecuteNoRecords, _ Array(lngQty, strGoodsID, lngQty) If lngAffected = 0 Then strErr = "货品 " & strGoodsID & " 库存不足，出库失败" GoTo Rollback End If ' 写流水，只增不改 gConn.Execute "INSERT INTO tblOutStock (GoodsID, Qty, OutDate, OperatorID, Receiver) " & _ "VALUES (?, ?, Now(), ?, ?)", , adExecuteNoRecords, _ Array(strGoodsID, lngQty, gUserID, strReceiver) Next i gConn.CommitTrans SaveOutStock = True Exit Function Rollback: gConn.RollbackTrans Exit Function EH: On Error Resume Next gConn.RollbackTrans strErr = "出库异常：" & Err.Description End Function

几个关键点：

UPDATE ... WHERE Qty >= ?这条语句是整个逻辑的核心。它把“判断库存够不够”和“扣减库存”合并成一个原子操作，由数据库保证一致性。如果先SELECT查一次库存、在 VB 里判断完再UPDATE，两个用户同时出库时就会超卖，这是并发场景下最经典的翻车点。

lngAffected是Execute的返回值，表示受影响行数。条件不满足时是 0，据此判断失败，比再查一次数据库高效得多。

BeginTrans / CommitTrans / RollbackTrans是 ADO 的事务三件套，Access 支持，但要注意它只对同一个Connection对象生效。如果代码里东开一个连接西开一个连接，事务就形同虚设。

4.3 库存预警查询：把业务规则写进 SQL

安全库存预警是设计文档里提到的功能，实现方式直接决定了它是“能用”还是“摆着看”。

最差的写法是把所有货品查出来，在 VB 里循环判断If Qty < SafetyQty Then。数据量一大，界面就卡住。正确做法是把判断下推到 SQL：

-- 预警查询：一次查出所有低于安全库存的货品 SELECT g.GoodsID, g.GoodsName, g.SafetyQty, Nz(SUM(s.Qty), 0) AS TotalQty, g.SafetyQty - Nz(SUM(s.Qty), 0) AS ShortQty FROM tblGoods g LEFT JOIN tblStock s ON g.GoodsID = s.GoodsID GROUP BY g.GoodsID, g.GoodsName, g.SafetyQty HAVING Nz(SUM(s.Qty), 0) < g.SafetyQty ORDER BY ShortQty DESC;

Nz(字段, 默认值)是 Access 特有的空值处理函数，等价于其他数据库的COALESCE。这里必须用，因为一个货品可能从未入过库，LEFT JOIN之后Qty是NULL，NULL参与比较结果还是NULL，会漏掉这类货品。

HAVING而不是WHERE，是因为过滤条件建立在聚合结果SUM(s.Qty)之上，WHERE阶段聚合还没算出来。

提示：这条 SQL 在 Access 里跑得动，但换成其他数据库时要改两处——Nz换成COALESCE，日期函数也要换。二次开发换库时，把所有用到 Access 专有函数的地方列个清单，比逐个试错快得多。

4.4 报表输出：DataGrid 绑定与打印的取舍

查询结果的展示，原项目用的是DataGrid绑定ADO Data控件。这种做法开发快，但有个限制：DataGrid只能显示记录集里的列，列标题、列宽、对齐方式都要在代码里逐列设置，稍微复杂一点的报表（比如带合计行、带分组小计）就做不了。

' 查询结果绑定到 DataGrid，并手工设置列样式 Private Sub BindGrid(ByVal strSQL As String, ByVal arrParam As Variant) Set rsReport = ExecQuery(strSQL, arrParam) Set DataGrid1.DataSource = rsReport With DataGrid1 .Columns(0).Caption = "货品编号" .Columns(0).Width = 1200 .Columns(1).Caption = "货品名称" .Columns(1).Width = 2400 .Columns(2).Caption = "数量" .Columns(2).Alignment = dbgRight ' 数字右对齐 .Columns(2).NumberFormat = "0" End With End Sub

真正要打印的报表走Data Report，它有自己的数据源绑定和分组机制，代价是要单独维护一套.Dsr文件。我的建议是：屏幕查询用DataGrid就够了，正式单据一定要用Data Report或导出到模板，因为仓库要签字存档，格式不能将就。

5. 避坑与排查：老项目跑不起来的五个现场

这类项目的麻烦不在写代码，在于环境。下面五条是我在不同机器上复现过的真实故障，每条按现象、原因、解决写，照着重演基本能定位。

5.1 双击 .vbp 能打开，按 F5 报“找不到工程或库”

现象：工程加载正常，一运行就弹窗提示某个引用丢失，或者编译时报“用户定义类型未定义”。

原因：.vbp里记录的是 COM 组件的 GUID，换一台机器后，本机注册的版本对不上。最常见的是 DAO 3.6、ADO 2.x、MSDATGRD.OCX（DataGrid）、MSADODC.OCX（ADO Data 控件）这四样。系统重装或 Office 版本变化后，这些组件可能根本没注册。

解决：打开“工程 → 引用”，看哪个前面标了“缺失”，取消勾选后重新勾选本机存在的版本；控件缺失则在“工程 → 部件”里重新勾选，勾不上就用命令行注册：regsvr32 MSDATGRD.OCX。注册要在管理员权限的终端里执行，路径指向系统目录下实际存在的文件。

5.2 数据库文件明明在，程序却说“找不到可安装的 ISAM”

现象：连接 Access 时报错，提示无法打开数据库，或者提示 ISAM 驱动缺失。

原因有两种。一是连接串写错了，Provider=Microsoft.Jet.OLEDB.4.0是 Access 2000/2003 用的，连.accdb必须换Microsoft.ACE.OLEDB.12.0，两者不能混用。二是路径写成了绝对路径D:\StockMgr\data\manage.mdb，程序拷到别的机器上，盘符变了就找不到。

解决：连接串全部改成运行时拼接，用App.Path取程序所在目录：

' modDB.bas 里统一的连接串构造 Public Function GetConnStr() As String Dim strPath As String strPath = App.Path ' App.Path 在驱动器根目录时不带反斜杠，必须补上 If Right$(strPath, 1) <> "\" Then strPath = strPath & "\" GetConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ strPath & "data\manage.mdb;Persist Security Info=False" End Function

App.Path那个补反斜杠的判断很多人漏掉，程序放在D:\根目录时路径就变成D:\data\manage.mdb，直接指向了另一个位置，排查半天以为是权限问题。

5.3 多人同时用，偶尔报“文件已被占用”或写入失败

现象：一个人用完全正常，两个人同时录入，偶尔有一方保存失败，重试又能成功。

原因：Access 是文件级锁，多人打开时会在同目录生成一个.ldb锁定文件，记录谁打开了哪些页。写入冲突时，后到的一方会等待或者直接失败。如果打开方式用的是独占模式，第二个人根本连不上。

解决：连接串里不要带Mode=Share Deny Read这类独占参数；打开记录集时用adLockOptimistic而不是adLockBatchOptimistic，减少锁持有时间；更彻底的做法是把高频写入的操作（如出库）放到存储过程式的公共函数里，缩短事务窗口。如果并发超过十人，别硬扛，直接换数据层。

5.4 出库后库存变成负数

现象：某些货品的库存余额出现负数，但流水表里看不出异常。

原因：出库逻辑没有做数量校验，或者校验和扣减是两步非原子操作。也可能是入库时数量录成了负数而没拦住。

解决：扣减语句必须带条件WHERE Qty >= ?，并检查受影响行数；入库时在保存前校验Qty > 0；再补一条数据库层的检查约束把负数兜住。已经产生的负库存，用流水表重新算一遍余额覆盖回去：

-- 用流水重算余额，修正历史脏数据 UPDATE tblStock AS s SET Qty = Nz((SELECT SUM(Qty) FROM tblInStock WHERE GoodsID = s.GoodsID), 0) - Nz((SELECT SUM(Qty) FROM tblOutStock WHERE GoodsID = s.GoodsID), 0);

5.5 编译出来的 exe 换台机器就闪退

现象：开发机上一切正常，打包拷到仓库的电脑上，双击 exe 一闪就没了。

原因：VB6 程序依赖MSVBVM60.DLL运行时，目标机器没装；或者程序里用了Data Report，它依赖MSRDC20.DLL等一串运行库；再或者是窗体上用了第三方控件但没一起拷过去。

解决：用 VB6 自带的“打包和展开向导”生成安装包，它会把依赖的 DLL 和 OCX 一起收集并注册，比手工拷文件可靠得多。手工部署的话，至少要确认MSVBVM60.DLL、MSJET40.DLL、MSADODC.OCX、MSDATGRD.OCX这几样在目标机上存在并已注册。

6. 二次开发：把单机 Access 版改成能维护的系统

接到这类项目，最忌讳上来就重写。界面上那些窗体虽然老，但业务逻辑是跑通过的，重写等于把踩过的坑再踩一遍。我的改造顺序是：先把数据访问从窗体代码里抽干净，再考虑换库，最后才是界面翻新。

6.1 第一步：把连接和 SQL 从窗体里拔出来

打开任何一个.frm，如果能看到Set conn = New ADODB.Connection，说明数据访问是散落的。先在modDB.bas里建三个公共函数：ExecQuery（查，返回记录集）、ExecNonQuery（增删改，返回受影响行数）、ExecScalar（取单值）。所有窗体改成调这三个函数，不再自己开连接。

' 统一查询入口：SQL + 参数数组，返回只进只读游标 Public Function ExecQuery(ByVal strSQL As String, _ Optional ByVal arrParam As Variant) As ADODB.Recordset Dim cmd As New ADODB.Command Dim i As Long Set cmd.ActiveConnection = GetConn() cmd.CommandType = adCmdText cmd.CommandText = strSQL If Not IsMissing(arrParam) Then For i = LBound(arrParam) To UBound(arrParam) cmd.Parameters.Append cmd.CreateParameter("p" & i, adVariant, adParamInput, , arrParam(i)) Next i End If Set ExecQuery = cmd.Execute End Function

做完这一步，全项目搜ADODB.Connection应该只在modDB里出现。这时候再换数据库，只需要改GetConnStr和几处 Access 专有函数（Nz、#日期#、IIf），工作量从“改几十个窗体”降到“改一个模块”。

6.2 第二步：换库时的兼容性对照

如果确定要迁到服务端数据库，下面这张表能省掉大半调试时间：

IIf这一项要特别小心，Access 里它是立即求值的，即使条件为假，两个分支都会算一遍。迁到CASE WHEN之后变成短路求值，如果有依赖副作用的表达式，行为会变。

6.3 第三步：加日志，别再靠猜

老项目最大的问题是出故障后无从下手。我一般会在modDB里加一个极简的 SQL 日志：每次ExecQuery/ExecNonQuery执行前，把时间、SQL、参数写到程序目录下的sql.log，按天切分。

' 极简日志：追问题时按时间点翻，比断点调试快 Public Sub WriteLog(ByVal strSQL As String, ByVal arrParam As Variant) Dim f As Integer f = FreeFile Open App.Path & "\sql.log" For Append As #f Print #f, Format$(Now, "yyyy-mm-dd hh:nn:ss") & " | " & strSQL Close #f End Sub

日志里带上参数值很关键。只看 SQL 模板，永远不知道当时查的是哪个货品、哪个仓库，问题复现不了。生产环境跑一段时间，把sql.log按时间段翻一翻，比读一百遍源码有用。

改造收尾时补一个自检脚本，每次发版前跑一遍：随机挑五个货品，用流水表重算余额，跟tblStock里的实际值比对，不一致就报警。这个检查我从来不用界面按钮触发，而是挂在程序启动时的Sub Main里，跑一次几百毫秒，能提前把数据漂移挡在用户看见之前。

从那以后我每次接手这类库存管理系统老项目，第一件事都是先把连接串和 SQL 从窗体里拔干净，跑一遍日志，再决定要不要动数据库。直接改代码往往越改越乱，先把数据层收口，后面的改造才会顺。希望帮到你。

本文还有配套的精品资源，点击获取