简介一套基于 VB6.0 与 SQL Server 2000 开发的产品销售管理系统完整源代码适合刚接触 VB 数据库编程、想理解窗体事件与 SQL 访问衔接的初学者参考。系统已包含登录界面、产品信息录入、产品管理、查询与打印、金额汇总和简单报表等模块数据库脚本集中在 SQL 目录读者可据此观察窗体布局、ADO 数据访问、控件调用和基础业务逻辑的组织方式也能顺带梳理建表、查询语句与窗体间传值的实现思路。压缩包共 51 个文件约 1.37MB以 frm/frx 窗体及资源、bas/cls 代码模块、ocx 控件、sql 脚本和 vbp 工程为主另含数据库与图标资源结构相对完整便于在 VB6 中导入后按模块拆解学习并了解典型模块划分与工程组织。已有 441 人学习可作为课程设计、小型销售管理原型及 VB 与 SQL Server 入门练习的参考范例。1. 从一张销售单倒推需求VB6 桌面端为什么还配 SQL Server 数据库实例门店收银台、仓库入库口、财务对账桌三台机器必须看到同一份库存和同一笔应收。这个需求放到今天很多人第一反应是上 Web 框架但真正在门店里跑了七八年、换过三任维护人员还在用的往往是一套 VB6 SQL Server 的桌面程序。这套 VB6 SQLSERVER 销售管理系统完整源代码配一个可直接附加的数据库实例走的就是这条最朴素的路客户端只负责界面和校验一致性全部交给数据库约束和事务兜底一份 VB 源码加一份建库脚本装完当天就能开单。它适合两类人——要交一套完整数据库实例课设或毕设的人以及接手了老系统、需要一份能照着改的参照实现的人。往下按需求、模型、数据访问、界面、避坑、验收的顺序展开每一段都对应源码里的具体文件。2. 数据模型设计五张主表、三类辅助表与单据号的取舍销售系统的复杂度不在界面而在「一笔生意要在几张表里同时成立」。开一张销售单至少要动销售主表、销售明细、库存表、库存流水表如果客户是月结还要挂一笔应收账款。表结构一旦定歪后面所有模块都在补丁上写补丁这是我在看这类源码时最先翻的地方。2.1 单据驱动的业务闭环五张主表和三类辅助表把整套系统拆开看其实只有两类东西基础资料和业务单据。基础资料变动少、被引用多业务单据只增不改、必须留痕。围绕这个划分源码里的表可以归成下面这几组。分组表名职责变动特征基础资料Goods / Customer / Supplier / Warehouse / Employee商品、客户、供应商、仓库、经手人低频修改被单据外键引用业务单据SaleBill / SaleDetail、PurchaseBill / PurchaseDetail销售开单、采购入库只增不改作废走状态位库存Stock、StockFlow当前结存、每笔出入库流水高频更新必须与单据同事务资金PayReceive收款、付款、核销应收应付与单据号关联一笔一记录系统SysUser / SysRole / SysMenu登录、角色、菜单权限登录时读一次缓存在内存辅助BillNoSeq单据号流水高并发写入必须加锁业务闭环是这样的采购单审核 → 库存增加、流水记一笔正数 → 销售单保存 → 校验库存 → 扣减结存、流水记一笔负数 → 收款登记 → 应收减少。这里有个容易被忽略的设计点库存不允许直接改任何一次变动都必须有一条 StockFlow 与之对应且两者的数量之和必须相等。这条规则看起来笨但它是后面所有对账、盘亏排查的唯一依据。我见过太多课程设计把库存做成「销售时直接更新 Goods 表的一个字段」结果订单一多账实永远对不上连错在哪一步都查不出来。另一个设计点是作废。业务单据不做物理删除加一个 BillStatus 字段1 表示已保存、2 表示已审核、9 表示已作废。作废时生成一张反向流水而不是把原流水删掉。这样任何一天的库存都能从流水表重算出来等于给自己留了一颗后悔药。2.2 表结构落地主键、外键、单据号与金额字段的取舍关键表结构直接决定了后面代码好不好写。下面是这套源码里最核心的三张表我按实际建库顺序摘出来。-- 商品资料价格和状态都以这张表为准不允许在明细里另存一份价格主数据 CREATE TABLE Goods ( GoodsID INT IDENTITY(1,1) NOT NULL, GoodsCode VARCHAR(20) NOT NULL, -- 商品编码业务上唯一 GoodsName VARCHAR(80) NOT NULL, Spec VARCHAR(60) NULL, -- 规格允许为空 Unit VARCHAR(10) NULL, -- 单位 PurchasePrice DECIMAL(18,2) NOT NULL DEFAULT 0,-- 参考进价 SalePrice DECIMAL(18,2) NOT NULL DEFAULT 0,-- 默认售价 IsStop BIT NOT NULL DEFAULT 0,-- 1 表示停用停用后不出现在开单下拉框 CONSTRAINT PK_Goods PRIMARY KEY (GoodsID), CONSTRAINT UQ_Goods_Code UNIQUE (GoodsCode) ); -- 销售主表一张单一行金额汇总只认这张表明细金额仅作展示 CREATE TABLE SaleBill ( BillNo VARCHAR(20) NOT NULL, -- 单据号业务主键 BillDate DATETIME NOT NULL, CustomerID INT NOT NULL, WarehouseID INT NOT NULL, TotalAmount DECIMAL(18,2) NOT NULL DEFAULT 0, -- 明细合计折前 Discount DECIMAL(18,2) NOT NULL DEFAULT 0, -- 整单优惠 RealAmount DECIMAL(18,2) NOT NULL DEFAULT 0, -- 应收 合计 - 优惠 PayAmount DECIMAL(18,2) NOT NULL DEFAULT 0, -- 本次实收 BillStatus TINYINT NOT NULL DEFAULT 1, -- 1 保存 2 审核 9 作废 CreateUser VARCHAR(20) NULL, CreateTime DATETIME NOT NULL DEFAULT GETDATE(), CONSTRAINT PK_SaleBill PRIMARY KEY (BillNo), CONSTRAINT FK_SaleBill_Customer FOREIGN KEY (CustomerID) REFERENCES Customer(CustomerID) ); -- 库存结存仓库 商品 联合主键一个仓库一个商品只有一行 CREATE TABLE Stock ( WarehouseID INT NOT NULL, GoodsID INT NOT NULL, Qty DECIMAL(18,3) NOT NULL DEFAULT 0, -- 允许三位小数散装商品需要 CONSTRAINT PK_Stock PRIMARY KEY (WarehouseID, GoodsID) );几个取舍值得单独说。第一单据号用 VARCHAR 做主键而不是自增 ID因为单据号本身带业务含义前缀 日期 流水打印、查询、口头核对都靠它用自增 ID 反而要多做一次关联。第二金额统一用 DECIMAL(18,2)绝不用 FLOAT 或 REAL浮点在累加几十行明细之后必然出现一分钱误差这是血泪经验。第三数量用 DECIMAL(18,3)看起来浪费但只要业务里出现过半公斤、半米这类商品整数列就得整体改表。第四SaleDetail 的主键用自增 DetailIDBillNo 做外键不要用「单据号 行号」做联合主键行号在删行重排时极容易冲突。明细表还需要一个细节每条明细都存一份当时的单价和金额不做实时从 Goods 取价。历史单据的价格必须冻结否则商品调价之后去年的报表会跟着变财务直接找你。2.3 初始化脚本与基础视图建完表之后源码里通常还会带一份初始化脚本把管理员账号、默认仓库、几类常用商品和菜单权限灌进去。这一步不做程序第一次运行会因为读不到用户表而直接闪退。-- 默认仓库与管理员保证首次登录可用 INSERT INTO Warehouse(WarehouseName, IsDefault) VALUES(主仓库, 1); INSERT INTO SysUser(UserCode, UserName, Pwd, RoleID, IsStop) VALUES(admin, 系统管理员, 202CB962AC59075B964B07152D234B70, 1, 0); -- 密码存的是 MD5 大写串登录时同样算法比对不存明文 -- 库存查询视图把三张表拼成一行界面直接绑定避免每次手写 JOIN CREATE VIEW v_Stock AS SELECT w.WarehouseName, g.GoodsCode, g.GoodsName, g.Spec, g.Unit, ISNULL(s.Qty, 0) AS Qty, g.SalePrice FROM Goods g CROSS JOIN Warehouse w LEFT JOIN Stock s ON s.GoodsID g.GoodsID AND s.WarehouseID w.WarehouseID WHERE g.IsStop 0;视图这里用 CROSS JOIN 是有意为之新建商品时库存表里还没有对应行如果只用 INNER JOIN界面上这个商品会凭空消失仓管会以为商品被删了。用 CROSS JOIN 加 ISNULL 补零新商品永远显示库存 0逻辑上更符合人的直觉。初始化脚本还要负责一件事把 BillNoSeq 表的当天记录补齐。如果程序启动时发现当天没有流水行就插一行 Seq 0后面取号时直接 UPDATE 即可省掉一次分支判断。3. 数据访问层实现ADO 连接封装、事务边界与单据号并发VB6 连 SQL Server 只有一条路ADO。但同样是 ADO写法差一点稳定性和可维护性差一大截。这一层如果没封好后面每个窗体都会各写一套连接串、各管一套错误处理最后没人敢动。3.1 连接串与全局 Connection 的封装最省事也最危险的做法是在每个窗体里写New ADODB.Connection然后 Open 一次。功能上跑得通但连接开多了之后程序会莫名其妙卡住而且连接串散落在几十个文件里换个服务器地址要改一整天。合理的做法是全局一个连接启动时打开退出时关闭。 模块modDB.bas 全局数据库入口统一连接、统一错误提示、统一关闭 Option Explicit Public gConn As ADODB.Connection Public gUserID As Long Public gUserName As String Public gRoleID As Long Public Function DBOpen() As Boolean Dim sConnStr As String On Error GoTo ErrHandler 服务器、库名、账号全部从 ini 读取不写死在代码里 sConnStr ProviderSQLOLEDB;Data Source GetIni(Server) _ ;Initial Catalog GetIni(Database) _ ;User ID GetIni(User) _ ;Password GetIni(Pwd) _ ;Connect Timeout8 Set gConn New ADODB.Connection gConn.CursorLocation adUseClient 客户端游标记录集可断开界面绑定更稳 gConn.Open sConnStr DBOpen True Exit Function ErrHandler: MsgBox 数据库连接失败请检查网络与配置 vbCrLf Err.Description, vbCritical, 提示 DBOpen False End Function Public Sub DBClose() On Error Resume Next If Not gConn Is Nothing Then If gConn.State adStateOpen Then gConn.Close Set gConn Nothing End If End Sub这段代码里有两个参数值得解释。CursorLocation adUseClient让记录集把数据一次性拉到本地好处是记录集可以断开连接继续用界面绑定的 DataGrid 滚动时不会反复回服务器取数代价是大结果集吃内存所以报表查询必须带分页或条件不能SELECT *全表拉。Connect Timeout8是给网络不稳的门店留的余地默认 15 秒太长收银员会以为程序死了。配一个 GetIni 函数读配置把 Server、Database、User、Pwd 放在 exe 同目录的 ini 文件里。现场换服务器只改 ini不用重新编译这个习惯能省掉无数次远程支持。3.2 单据提交的事务边界与库存扣减一张销售单涉及四张表的写入中途任何一步失败都必须整体回滚否则会出现「单子存了、库存没扣」这种最难排查的状态。事务的边界划在「保存单据」这个动作上从写主表开始到写流水结束全部包在 BeginTrans 和 CommitTrans 之间。 模块modSale.bas 保存销售单主表、明细、扣库存、写流水同一事务内完成 Public Function SaveSaleBill(ByVal sBillNo As String, _ ByVal lCustomerID As Long, _ ByVal lWarehouseID As Long, _ ByVal dRealAmount As Currency, _ ByRef arrDetail As Variant, _ ByRef sMsg As String) As Boolean Dim i As Long, lAffected As Long Dim cmd As ADODB.Command On Error GoTo ErrHandler gConn.BeginTrans 1) 主表草稿可反复保存用「存在则更新」避免重复插入 gConn.Execute UPDATE SaleBill SET RealAmount dRealAmount _ WHERE BillNo sBillNo If gConn.Execute(SELECT ROWCOUNT).Fields(0).Value 0 Then gConn.Execute INSERT INTO SaleBill(BillNo, BillDate, CustomerID, WarehouseID, _ RealAmount, BillStatus, CreateUser) _ VALUES( sBillNo , GETDATE(), lCustomerID , _ lWarehouseID , dRealAmount , 1, gUserName ) End If 2) 明细先删后插比逐行比对简单且不会漏行 gConn.Execute DELETE FROM SaleDetail WHERE BillNo sBillNo For i 0 To UBound(arrDetail, 2) Set cmd New ADODB.Command Set cmd.ActiveConnection gConn cmd.CommandText INSERT INTO SaleDetail(BillNo, GoodsID, Qty, Price, Amount) _ VALUES(?, ?, ?, ?, ?) cmd.Parameters.Append cmd.CreateParameter(b, adVarChar, adParamInput, 20, sBillNo) cmd.Parameters.Append cmd.CreateParameter(g, adInteger, adParamInput, , arrDetail(0, i)) cmd.Parameters.Append cmd.CreateParameter(q, adDouble, adParamInput, , arrDetail(1, i)) cmd.Parameters.Append cmd.CreateParameter(p, adDouble, adParamInput, , arrDetail(2, i)) cmd.Parameters.Append cmd.CreateParameter(a, adDouble, adParamInput, , arrDetail(3, i)) cmd.Execute 3) 扣库存带 Qty 数量 的条件影响行数为 0 表示库存不足 Set cmd New ADODB.Command Set cmd.ActiveConnection gConn cmd.CommandText UPDATE Stock SET Qty Qty - ? _ WHERE WarehouseID ? AND GoodsID ? AND Qty ? cmd.Parameters.Append cmd.CreateParameter(q, adDouble, adParamInput, , arrDetail(1, i)) cmd.Parameters.Append cmd.CreateParameter(w, adInteger, adParamInput, , lWarehouseID) cmd.Parameters.Append cmd.CreateParameter(g, adInteger, adParamInput, , arrDetail(0, i)) cmd.Parameters.Append cmd.CreateParameter(c, adDouble, adParamInput, , arrDetail(1, i)) cmd.Execute lAffected If lAffected 0 Then sMsg 第 (i 1) 行商品库存不足整单未保存 gConn.RollbackTrans Exit Function End If 4) 流水数量记负数与库存扣减方向一致 gConn.Execute INSERT INTO StockFlow(BillNo, GoodsID, WarehouseID, Qty, FlowType) _ VALUES( sBillNo , arrDetail(0, i) , lWarehouseID , _ (-arrDetail(1, i)) , SALE) Next i gConn.CommitTrans SaveSaleBill True Exit Function ErrHandler: gConn.RollbackTrans sMsg 保存失败 Err.Description SaveSaleBill False End Function关键点有三个。数组 arrDetail 是按列存的二维数组第 0 行商品 ID、第 1 行数量、第 2 行单价、第 3 行金额这样一次传参就能把整张明细带进来不用在窗体之间共享控件。库存更新用Qty ?做条件把「够不够扣」的判断交给数据库影响行数为 0 就回滚整单这是唯一可靠的写法——先在 VB 里查一次库存、再更新中间只要有另一个客户端插入超卖就发生了。所有 SQL 走 ADODB.Command 参数化不做字符串拼接商品名里带个单引号就可能让整张单保存失败。还有一点容易漏RollbackTrans 之前不能有 MsgBox。事务开着的时候弹窗用户不点确定事务就一直挂着锁不释放其他客户端全排队。正确顺序是先回滚再提示。3.3 单据号生成把并发交给数据库加锁单据号最朴素的生成方式是SELECT MAX(BillNo)然后加一。单机跑没问题两个人同时开单就会撞号主键冲突报错收银台当场卡住。这类问题在验收演示时根本复现不出来上线第一天就翻车属于典型的玄学问题——其实是并发没处理。稳妥的做法是建一张流水表用一条带锁的 UPDATE 语句取号把并发控制交给数据库。-- 单据号流水表按「前缀 日期」一行Seq 每天归零 CREATE TABLE BillNoSeq ( Prefix CHAR(2) NOT NULL, BillDate CHAR(8) NOT NULL, -- yyyymmdd Seq INT NOT NULL DEFAULT 0, CONSTRAINT PK_BillNoSeq PRIMARY KEY (Prefix, BillDate) ); -- 取号存储过程UPDLOCK 保证同一时刻只有一个会话能改这一行 CREATE PROCEDURE sp_GetBillNo Prefix CHAR(2), NewNo VARCHAR(20) OUTPUT AS BEGIN SET NOCOUNT ON DECLARE Seq INT DECLARE Today CHAR(8) SET Today CONVERT(CHAR(8), GETDATE(), 112) BEGIN TRAN UPDATE BillNoSeq WITH (UPDLOCK, ROWLOCK) SET Seq Seq Seq 1 WHERE Prefix Prefix AND BillDate Today IF ROWCOUNT 0 BEGIN SET Seq 1 INSERT INTO BillNoSeq(Prefix, BillDate, Seq) VALUES(Prefix, Today, 1) END COMMIT TRAN -- 结果形如 XS202406150007 SET NewNo Prefix Today RIGHT(0000 CAST(Seq AS VARCHAR(4)), 4) END参数 Prefix 用来区分单据类型销售单用 XS、采购单用 CG、退货用 TH不同前缀各自一条流水互不干扰。BillDate 用 yyyymmdd 字符串而不是日期类型是为了让「当天归零」这件事变成一次主键查找跨天自动从 0 开始不需要定时任务去清零。UPDLOCK 加 ROWLOCK 的组合含义是读这一行的时候直接申请更新锁别的事务想改同一行必须等。这样两个并发请求会串行取到 1 和 2不会撞号。如果取号过程放在 VB 里先查后改锁就加不上等于白做。4. 界面与模块落地MDI 主框架加六个业务模块的具体实现VB6 做管理系统的界面套路很固定一个 MDI 主窗体左边树形或列表菜单右边开子窗体每个业务模块一个子窗体负责查询、编辑、保存三件事。套路固定不代表没有讲究代码组织得好不好主要体现在菜单权限、数据录入交互和报表输出这三块。4.1 MDI 主窗体与权限菜单动态生成主窗体 frmMain 设成 MDIForm加载时先连库、再登录、最后按角色生成菜单。菜单不要在设计器里写死否则加一个功能就要重新编译发版。做法是把菜单项存在 SysMenu 表里字段包括菜单编号、标题、所属模块、权限码、排序号登录后按角色过滤再逐条 Add 出来。 frmMain登录成功后按角色动态生成一级菜单 Private Sub BuildMenu(ByVal lRoleID As Long) Dim rs As ADODB.Recordset Dim mnu As Menu Set rs gConn.Execute(SELECT MenuID, Caption, Tag FROM SysMenu _ WHERE RoleID lRoleID AND ParentID0 ORDER BY SortNo) Do While Not rs.EOF Set mnu Me.Controls.Add(VB.Menu, mnu_ rs!MenuID, Me) mnu.Caption rs!Caption mnu.Tag rs!Tag Tag 存窗体名点击时统一用 ShowForm 打开 mnu.Visible True rs.MoveNext Loop rs.Close End Sub用 Controls.Add 动态加菜单Item 名称统一按mnu_菜单ID命名点击事件里读 Tag 上的窗体名交给一个公共的 ShowForm 过程去加载。ShowForm 内部先判断这个子窗体是否已存在存在就激活、不存在才 Load避免重复点击开出十几个同样的窗口。权限判断也放在 ShowForm 里菜单能隐藏但快捷键和代码调用绕不过去所以真正的拦截必须在打开窗体的入口做一次角色校验。4.2 开单界面表格控件选型与录入节奏开单是使用频率最高的界面卡不卡、顺不顺手直接决定这套系统在门店能不能活下来。表格控件有两种选择DataGrid 可以直接绑定 ADO 记录集省代码MSFlexGrid 要手工填格子但可以逐格控制颜色、对齐、只读。开单界面通常选 MSFlexGrid因为要标红缺货行、要限制某些列不可编辑DataGrid 做这些很别扭。录入节奏上有三个必须实现的细节。一是回车行为在数量列按回车跳到单价列在最后一列按回车自动新增一行并把焦点放回商品列全程不碰鼠标。二是商品列支持编码模糊匹配输入三位编码弹出候选选中后自动带出名称、单位、默认售价。三是任何一列改动后立即重算行金额和整单合计不等保存才刷新。 明细网格任一单元格编辑完成后重算合计 Private Sub grdDetail_AfterEdit(ByVal lRow As Long, ByVal lCol As Long) Dim dQty As Double, dPrice As Double, dAmt As Double Dim i As Long, dSum As Double If lCol 1 Then dQty Val(grdDetail.TextMatrix(lRow, 1)) 数量列 If lCol 2 Then dPrice Val(grdDetail.TextMatrix(lRow, 2)) 单价列 dAmt Round(dQty * dPrice, 2) grdDetail.TextMatrix(lRow, 3) Format(dAmt, 0.00) 行金额 整单合计跳过表头行逐行累加 For i 1 To grdDetail.Rows - 1 dSum dSum Val(grdDetail.TextMatrix(i, 3)) Next i lblTotal.Caption Format(dSum, 0.00) lblReal.Caption Format(dSum - Val(txtDiscount.Text), 0.00) End Sub这段代码里Round(..., 2)不能省VB6 的 Double 相乘会出现 12.300000000000001 这种结果直接显示到界面上很难看。金额显示统一走 Format 格式化但参与计算的仍然是数值不要拿格式化后的字符串去做加减。保存按钮的处理顺序也值得强调先做前端校验客户必选、至少一行明细、数量大于零、实收不超过应收校验通过再调 SaveSaleBill最后根据返回值决定是否清空界面并打印。校验和保存必须分开混在一起的话用户填错一个字段就要重开整张单。4.3 报表输出DataReport 与 Excel 导出两条路报表模块通常有两个出口打印和导出。打印走 VB6 自带的 DataReport配一个 DataEnvironment 或直接给 DataSource 赋记录集导出走 Excel用后期绑定 CreateObject不依赖用户机器上装了哪个版本的 Office。 导出当前查询结果为 Excel后期绑定避免版本依赖 Public Sub ExportToExcel(ByVal rs As ADODB.Recordset, ByVal sTitle As String) Dim xlApp As Object, xlBook As Object, xlSheet As Object Dim i As Long, j As Long On Error GoTo ErrHandler Set xlApp CreateObject(Excel.Application) Set xlBook xlApp.Workbooks.Add Set xlSheet xlBook.Worksheets(1) xlSheet.Cells(1, 1) sTitle xlSheet.Range(xlSheet.Cells(1, 1), xlSheet.Cells(1, rs.Fields.Count)).Merge For j 0 To rs.Fields.Count - 1 表头 xlSheet.Cells(2, j 1) rs.Fields(j).Name Next j i 3 Do While Not rs.EOF 数据区 For j 0 To rs.Fields.Count - 1 xlSheet.Cells(i, j 1) rs.Fields(j).Value Next j i i 1 rs.MoveNext Loop xlApp.Visible True Exit Sub ErrHandler: MsgBox 导出失败请确认本机已安装 Excel Err.Description, vbExclamation End Sub用 CreateObject 而不是引用 Excel 类型库好处是编译后的 exe 不绑定具体版本坏处是没有智能提示。导出前记得把记录集游标移回开头rs.MoveFirst否则导出来的第一行永远是空表头。列宽、数字格式这些细节交给自己按字段类型设一下金额列设成#,##0.00日期列设成yyyy-mm-dd别指望 Excel 自动识别。打印报表的坑集中在纸张和分页上DataReport 的 PaperSize、边距要在设计器里调好不能靠运行时改明细超过一页时表头不重复需要在报表里设 RepeatHeader。这些在调试时看不出问题一到打印店就露馅。4.4 打包与部署让程序在别人机器上跑起来源码在自己机器上跑通只是第一步换台干净机器往往就打不开了。VB6 生成的 exe 依赖一批运行库和控件常见的有 MSVBVM60.DLL、MSADO15.DLL、MSFLXGRD.OCX、COMDLG32.OCX 等缺一个就报「部件找不到」或「未指定的错误」。正确做法是用 VB6 自带的打包向导生成安装包它会自动扫描引用并把依赖打进去。手工拷贝 exe 加 DLL 的方式在开发机上能跑是因为开发机早就装过这些组件换台机器必然失败。数据库这边要额外准备两样东西一份建库脚本一个空库的备份文件。现场先还原备份再执行增量脚本比纯脚本建库更稳因为脚本里的字符集、排序规则容易和目标服务器不一致。部署完成后立刻做三件事的验证登录能进、开一张单能存、库存报表数量和开单数量一致。这三步过了基本功能就没问题。5. 避坑与排查这套组合里最容易翻车的五个点5.1 界面卡死几十秒记录集没关连接被占满现象是点任何按钮都没反应过一会儿又自己好了隔一阵再犯。原因通常是某个查询用了全局连接打开记录集用完只Set rs Nothing却没有rs.Close客户端游标下连接资源没有及时归还累积到一定数量后新请求全部排队。解决办法是把「关闭记录集」做成硬规矩每个用到 Recordset 的过程出口处必须 Close 再置 Nothing能写成统一的过程就统一。更彻底一点在 DBClose 里遍历gConn的所有活动对象退出程序前强制清空。5.2 换台机器就报「未指定的错误」现象是同一份 exe开发机上好好的装到客户机上连库就失败错误描述只有一句「未指定的错误」没有行号也没有 SQL 信息跟黑匣子一样。原因一般有两个一是 MDAC/ADO 版本不一致连接串里的 Provider 认不出来二是 SQL Server 端没开 TCP/IP 或者端口不对。排查顺序固定为先用 udl 文件建一个连接测试右键新建文本文档改后缀为 .udl双击配置能连通说明是程序问题连不通说明是环境问题。确认环境没问题后再回去看连接串别一上来就改代码。5.3 库存对不上作废和手工改库是两大元凶现象是库存报表和实物差几个数而且差得不多很难发现。原因通常是单据作废时只改了 BillStatus没有回写库存和流水或者是维护人员图省事直接在数据库里 UPDATE 了 Stock从此流水和结存永久失衡。解决办法是两条作废必须走存储过程同一个事务里改状态、回补库存、写反向流水数据库层面禁止业务账号直接改 Stock 表只给 SELECT 权限写入一律通过程序。上线前跑一次「流水汇总 vs 结存」的对账 SQL把这个差异做成每日巡检项。5.4 金额差一分钱类型混用和四舍五入现象是整单合计和明细加起来差 0.01客户对账时被指出来。原因有三个常见来源数据库里用了 FLOAT 或 MONEY 存金额VB 里用 Double 做累加以及 Round 函数在 VB6 里用的是银行家舍入四舍六入五成双和财务习惯的四舍五入不一致。解决办法是金额字段统一 DECIMAL(18,2)VB 侧用 Currency 类型承接显示和存储都以数据库值为准前端算出来的合计只作预览保存时由服务端重新汇总一次。5.5 打印和导出在客户机上失效现象是预览正常点打印没反应或者格式全乱导出 Excel 报「ActiveX 部件不能创建对象」。原因是打印依赖默认打印机设置客户机没装打印机驱动时 DataReport 直接失败导出用了早期绑定客户机装的 Office 版本和编译时引用的类型库对不上。解决办法是打印前判断 Printers.Count为 0 时提示先装驱动导出统一改后期绑定 CreateObject并对外层加错误捕获失败时给出可读的提示而不是一串错误码。6. 验收与答辩用一份可复核的演示脚本证明系统真的能跑这类系统最怕的场面是演示时一路顺畅老师或评审问一句「库存怎么保证不会扣成负数」答不上来。想让验收稳提前把演示路径和验证手段固化下来比临场发挥靠谱得多。我一般会准备一份十分钟左右的演示脚本按业务闭环走一遍每一步都能在数据库里查到对应记录步骤操作现场验证点对应源码位置1用管理员登录切到普通角色再登录菜单项数量随角色变化frmMain.BuildMenu2新建商品「测试件」初始库存 0库存视图里出现该商品数量 0v_Stock3采购入库 100 件并审核Stock 变 100StockFlow 多一条 100采购模块4开销售单卖 30 件Stock 变 70流水多一条 -30SaveSaleBill5同一商品再开单卖 200 件提示库存不足整单回滚Stock 仍为 70条件更新影响行数6作废第 4 步的销售单Stock 回到 100流水补一条 30作废存储过程7导出销售明细到 Excel金额列两位小数合计与系统一致ExportToExcel第 5 步是整个演示里最有说服力的一步它证明库存校验不是靠界面提示而是靠数据库条件更新加事务回滚。演示时故意把数量填大让评审看到「整单未保存」的提示再刷新库存确认数字没变比讲十句设计思路都管用。答辩环节常被追问的三个问题提前准备好答案并发开单会不会撞号答BillNoSeq 表加 UPDLOCK 取号并现场开两个客户端同时保存金额精度怎么保证答DECIMAL 存储、Currency 计算、服务端重算数据被误删怎么恢复答业务表禁止物理删除作废走状态位配合每日备份。最后附一段对账 SQL答辩时可以直接跑给评审看证明库存和流水始终自洽-- 对账每个仓库每个商品的流水汇总必须等于当前结存 SELECT s.WarehouseID, s.GoodsID, s.Qty AS 结存, ISNULL(f.QtySum, 0) AS 流水汇总, s.Qty - ISNULL(f.QtySum, 0) AS 差异 FROM Stock s LEFT JOIN ( SELECT WarehouseID, GoodsID, SUM(Qty) AS QtySum FROM StockFlow GROUP BY WarehouseID, GoodsID ) f ON f.WarehouseID s.WarehouseID AND f.GoodsID s.GoodsID WHERE s.Qty ISNULL(f.QtySum, 0);这条 SQL 返回空结果集就说明账实自洽有行返回差异列就是问题金额。我每次改完库存相关的代码都会先跑一遍它确认没有引入新的不平衡再去点界面。早几年我做课程设计验收前一天还在手忙脚乱地补功能演示时被问到库存为负数怎么办只能含糊过去。从那以后我每次交方案前都强制走一遍「先造数据、再故意触发异常、最后跑对账」这套流程把能被问到的地方提前变成能演示的地方。这套 VB6 SQL Server 销售管理系统的完整源码和数据库实例按上面这条路径跑一遍基本就能摸清每个模块该长什么样剩下的就是照着改成自己的业务。希望帮到你。本文还有配套的精品资源点击获取