尧图网站建设 
简介本资源是一份完整的《软件工程》课程设计报告面向高校计算机类专业本科生聚焦图书借阅管理系统的全流程开发实践帮助学生掌握从需求分析到系统发布的标准软件工程方法。文档以Visual Basic 6.0为开发语言、ACCESS为数据库、Windows 7为运行平台系统覆盖构造化分析含数据流图、数据字典、结构图、流程图与面向对象设计含用例图、类图、包图、部署图两大范式并包含程序代码实现、界面功能演示、多阶段测试方案及软件发布说明。资源为单个Word文档.doc共421KB内容详实、目录清晰完整呈现课程设计各环节交付物便于对照学习、复现与答辩准备。目前已有116人下载学习是理解传统桌面应用开发与软件工程规范落地的典型教学案例。1. 为什么用 Visual Basic 6.0 Access 做图书借阅管理系统仍是软件工程课程设计的「稳态选择」很多学生拿到「软件工程课程设计图书借阅管理系统」这个题目时第一反应是都2025年了还写 VB6用 PythonDjango 或 JavaSpring Boot 不是更“现代”但现实是——全国近70%的高校软件工程导论课、实践教学平台如头歌、以及省级本科教改项目验收材料中该题目的参考实现仍以Visual Basic 6.0 Access 2003 数据库为默认技术栈。这不是守旧而是教学闭环的必然VB6 的窗体拖拽逻辑、Access 的表关系可视化、Visio 绘制的UML流程图三者能在一个低门槛环境中完整映射软件工程全生命周期——从需求建模用 Visio 画用例图/ER图、到概要设计窗体控件与模块划分、再到编码实现VB6 事件驱动DAO访问、最后到测试验证借书/还书/超期判断等边界用例。它不追求高并发或云部署而专注训练「把用户需求翻译成可执行、可验证、可文档化的程序实体」这一核心能力。适合大二下学期、尚未接触Web框架、但已学完数据库原理和面向对象基础的学生。2. 用 VB6 在本地跑通图书借阅系统的最小命令链从新建工程到连接 Access 数据库2.1 创建标准 EXE 工程并配置 DAO 数据访问支持VB6 启动后选择「标准 EXE」模板系统自动生成Form1。关键一步是启用数据访问对象DAO——这是 VB6 操作 Access 的原生方式比 ADO 更轻量、更稳定且无需额外注册组件。在菜单栏点击Project → References…勾选Microsoft DAO 3.6 Object Library对应 Access 2000–2003 格式。若列表中无此选项说明 Office 安装未包含 DAO 支持需运行 Office 自定义安装勾选「Microsoft Data Access Components」。提示不要选 Microsoft ActiveX Data ObjectsADO虽然它支持更多数据库但在 Access 本地文件场景下DAO 的DBEngine.OpenDatabase方法对.mdb文件的锁机制更可靠避免多用户同时操作时出现「文件正由另一用户使用」错误。2.2 设计核心数据表结构并生成 Access 数据库文件图书借阅系统至少需三张表Books图书信息、Readers读者信息、Borrows借阅记录。用 Access 2003 新建空白数据库library.mdb手动创建表并设置主外键Books表BookID自动编号主键、Title文本、Author文本、ISBN文本、Stock数字Readers表ReaderID自动编号主键、Name文本、Department文本、MaxBorrow数字默认 5Borrows表BorrowID自动编号主键、BookID数字外键→Books.BookID、ReaderID数字外键→Readers.ReaderID、BorrowDate日期/时间、ReturnDate日期/时间允许空值注意Access 中外键约束需手动启用。右键Borrows表 →「关系」→ 将BookID拖至Books.BookID勾选「实施参照完整性」和「级联更新相关字段」同理处理ReaderID。否则 VB6 程序插入非法BookID时不会报错仅存入零值导致查询逻辑失效。2.3 编写 DAO 连接代码并验证数据库路径在Form1的Form_Load事件中写入以下 VB6 代码Private db As Database Private rsBooks As Recordset Private Sub Form_Load() Dim dbPath As String dbPath App.Path \library.mdb 数据库必须与 EXE 同目录 On Error GoTo DBError Set db DBEngine.OpenDatabase(dbPath) Set rsBooks db.OpenRecordset(SELECT * FROM Books, dbOpenDynaset) MsgBox 数据库连接成功共 rsBooks.RecordCount 本图书 Exit Sub DBError: MsgBox 数据库连接失败 Err.Description 错误号 Err.Number vbCrLf _ 请确认1. library.mdb 是否存在2. 路径是否含中文或空格3. Access 是否被其他程序占用 End Sub这段代码做了三件事App.Path \library.mdb构造绝对路径避免相对路径在不同工作目录下失效DBEngine.OpenDatabase直接打开 MDB 文件不依赖 DSN 配置杜绝「ODBC driver not found」类错误On Error GoTo捕获典型错误Err.Number 3011表不存在、3047数据库被独占打开、3051文件只读——这些正是课程设计中最常卡住学生的点。3. 图书借阅核心业务逻辑的 VB6 实现借书、还书、超期判断三步闭环3.1 借书功能检查库存、读者限额、生成借阅记录在窗体上放置Text1输入 BookID、Text2输入 ReaderID、Command1借书按钮。点击事件代码如下Private Sub Command1_Click() Dim bookID As Long, readerID As Long Dim sql As String 输入校验 If Not IsNumeric(Text1.Text) Or Not IsNumeric(Text2.Text) Then MsgBox 请输入有效的图书ID和读者ID数字 Exit Sub End If bookID CLng(Text1.Text): readerID CLng(Text2.Text) 检查图书库存 sql SELECT Stock FROM Books WHERE BookID bookID Set rsBooks db.OpenRecordset(sql, dbOpenSnapshot) If rsBooks.EOF Then MsgBox 图书ID bookID 不存在 Exit Sub End If If rsBooks!Stock 0 Then MsgBox 该图书已无库存 Exit Sub End If 检查读者当前借阅数是否超限 sql SELECT COUNT(*) AS cnt FROM Borrows WHERE ReaderID readerID AND ReturnDate IS NULL Set rsBooks db.OpenRecordset(sql, dbOpenSnapshot) Dim currentBorrow As Long: currentBorrow rsBooks!cnt sql SELECT MaxBorrow FROM Readers WHERE ReaderID readerID Set rsBooks db.OpenRecordset(sql, dbOpenSnapshot) If rsBooks.EOF Then MsgBox 读者ID readerID 不存在 Exit Sub End If If currentBorrow rsBooks!MaxBorrow Then MsgBox 读者已达到最大借阅数 rsBooks!MaxBorrow 本 Exit Sub End If 执行借书插入记录 库存减1 db.Execute INSERT INTO Borrows (BookID, ReaderID, BorrowDate) VALUES ( _ bookID , readerID , # Format(Now, yyyy-mm-dd) #), dbFailOnError db.Execute UPDATE Books SET Stock Stock - 1 WHERE BookID bookID, dbFailOnError MsgBox 借书成功 End Sub关键参数说明dbOpenSnapshot只读快照用于查询统计避免锁表dbFailOnError确保 SQL 执行失败时抛出错误如主键冲突而非静默忽略#2025-04-10#Access 日期字面量格式必须用#包裹Format(Now, yyyy-mm-dd)保证格式统一COUNT(*)IS NULL判断未还书数量是 Access 中模拟「LEFT JOIN COUNT」的最简写法。3.2 还书功能更新归还日期、库存加1Command2还书按钮代码Private Sub Command2_Click() Dim borrowID As Long If Not IsNumeric(Text3.Text) Then Text3 输入 BorrowID MsgBox 请输入有效的借阅记录ID Exit Sub End If borrowID CLng(Text3.Text) 检查记录是否存在且未归还 sql SELECT * FROM Borrows WHERE BorrowID borrowID AND ReturnDate IS NULL Set rsBooks db.OpenRecordset(sql, dbOpenSnapshot) If rsBooks.EOF Then MsgBox 借阅记录不存在或已归还 Exit Sub End If 更新归还日期并增加库存 db.Execute UPDATE Borrows SET ReturnDate # Format(Now, yyyy-mm-dd) # WHERE BorrowID borrowID, dbFailOnError 获取对应 BookID sql SELECT BookID FROM Borrows WHERE BorrowID borrowID Set rsBooks db.OpenRecordset(sql, dbOpenSnapshot) db.Execute UPDATE Books SET Stock Stock 1 WHERE BookID rsBooks!BookID, dbFailOnError MsgBox 还书成功 End Sub注意Access 的UPDATE语句不支持多表关联更新如UPDATE Borrows b JOIN Books bk ON b.BookIDbk.BookID SET bk.Stock bk.Stock 1必须拆分为两步查询更新这是 VB6Access 开发的固有约束也是教学中强调「事务分步控制」的实操点。3.3 超期判断用 DateDiff 计算借阅天数并标记在DataReport或独立窗体中展示超期图书核心逻辑 查询所有未归还且超期30天的记录 sql SELECT b.Title, r.Name, br.BorrowDate, _ DateDiff(d, br.BorrowDate, Now()) AS DaysOver _ FROM ((Borrows AS br _ INNER JOIN Books AS b ON br.BookID b.BookID) _ INNER JOIN Readers AS r ON br.ReaderID r.ReaderID) _ WHERE br.ReturnDate IS NULL AND DateDiff(d, br.BorrowDate, Now()) 30 Set rsBooks db.OpenRecordset(sql, dbOpenSnapshot) Do While Not rsBooks.EOF Debug.Print rsBooks!Title 被 rsBooks!Name 借阅 rsBooks!DaysOver 天 rsBooks.MoveNext LoopDateDiff(d, ...)是 Access 内置函数d表示按天计算比 VB6 的DateDiff(d, ...)更可靠后者在区域设置为中文时可能解析失败。此处也暴露了 Access 的局限性无法直接在 SQL 中调用 VB6 函数所有日期/字符串处理必须用 Access 函数完成。4. 用 Microsoft Visio 绘制软件工程标准文档从用例图到数据库ER图的落地要点4.1 用例图必须体现「角色-用例-系统边界」三层结构在 Visio 2013 中选择「Software and Database → UML Use Case Diagram」模板。系统边界框命名为「图书借阅管理系统」居中绘制参与者Actor左侧放「管理员」小人图标右侧放「读者」小人图标二者均用「Generalization」箭头指向一个抽象的「用户」父类体现权限继承用例椭圆在系统框内放置「管理图书」「管理读者」「办理借书」「办理还书」「查询借阅记录」五个用例关系标注「管理员」→「管理图书」用实线关联「管理员」→「管理读者」用实线「读者」→「办理借书」用实线「办理借书」→「查询借阅记录」用include虚线箭头借书前需先查读者状态「办理还书」→「查询借阅记录」同样用include。提示Visio 默认用例图不显示构造型 需右键虚线 →「格式 → 线条 → 箭头端部」设为「空心三角」再双击线条添加文字「 」。这是头歌实践平台评分细则中明确要求的 UML 规范项。4.2 ER图严格遵循「实体-属性-联系」三要素标注切换 Visio 模板为「Database Model Diagram」启用「Database → Entity Relationship」形状。实体矩形Books、Readers、Borrows每个实体下方用「属性」形状列出字段并用下划线标注主键如BookID联系菱形Borrows作为关联实体连接Books和Readers标注基数Books端1一本图书可被多次借阅Readers端1一个读者可借多本书Borrows端N一次借阅对应一本图书和一个读者外键标注在Borrows实体内明确写出BookID→ Books.BookID、ReaderID→ Readers.ReaderID并用虚线箭头指向对应主键。常见错误规避表错误类型正确做法课程设计扣分点用连线代替菱形表示多对多联系必须用菱形Borrows实体不可直接连Books和ReadersER图结构不完整扣 2 分属性未区分主键/外键主键加下划线外键标注「FK」并指向源实体属性语义不清扣 1.5 分联系基数写错如Books端写NBooks对Borrows是 1:N一本图书对应多条借阅记录关系理解错误扣 3 分4.3 生成符合头歌平台要求的 Word 文档嵌入方案Visio 绘制完成后不直接截图——头歌系统要求「矢量图可缩放」。正确流程Visio 菜单 →文件 → 导出 → 更改文件类型 → PDF保存为usecase.pdf在 Word 中插入 → 对象 → 由文件创建 → 浏览选择 usecase.pdf → 勾选「链接到文件」同理插入er.pdf最终 Word 文档另存为.doc非.docx因头歌旧版系统仅识别 97-2003 格式。注意若 Word 中 PDF 显示为灰色方块说明未安装 Adobe Acrobat Reader DC。此时可临时用「插入 → 图片 → 来自文件」导入 PNG但需将分辨率设为 300dpi右键图片 →「设置图片格式 → 大小 → 取消锁定纵横比 → 高度设为 8cm」否则打印时模糊。5. 排查 VB6Access 最高频的 5 类运行时错误及定位方法5.1 「Runtime Error 3061Too few parameters. Expected X」现象执行OpenRecordset(SELECT * FROM Books WHERE Title LIKE keyword )时崩溃。根因Access 将LIKE后的单引号内字符串视为参数而非字面量。VB6 拼接 SQL 时未转义单引号。解法替换所有单引号为两个单引号keyword Replace(keyword, , )更安全的做法是用参数化查询虽 VB6 DAO 不原生支持但可用QueryDefDim qdf As QueryDef Set qdf db.CreateQueryDef() qdf.SQL SELECT * FROM Books WHERE Title LIKE ? qdf.Parameters(0) * keyword * Set rsBooks qdf.OpenRecordset5.2 「Runtime Error 3021No current record」现象rsBooks.MoveNext后立即访问rsBooks!Title报错。根因记录集已到末尾EOF但未检查rsBooks.EOF。解法所有循环必须带 EOF 检查Do While Not rsBooks.EOF Debug.Print rsBooks!Title rsBooks.MoveNext Loop 错误写法Do Until rsBooks.EOF ... rsBooks.MoveNext顺序颠倒5.3 「Runtime Error 3146ODBC Call Failed」现象db.Execute UPDATE Books SET Stock -1 WHERE BookID 1成功但后续SELECT返回 Stock 仍为 0。根因Access 的 Jet 引擎缓存机制Execute修改未即时刷新到记录集。解法执行修改后对相关记录集调用rsBooks.Requery或关闭重开记录集db.Execute UPDATE Books SET Stock Stock - 1 WHERE BookID bookID rsBooks.Close 关闭原记录集 Set rsBooks db.OpenRecordset(SELECT * FROM Books, dbOpenDynaset) 重新打开5.4 「Runtime Error 70Permission denied」现象Set db DBEngine.OpenDatabase(C:\data\library.mdb)失败。根因Windows 10/11 默认阻止对系统盘根目录的写入或文件被杀毒软件锁定。解法将library.mdb移至App.Path即 VB6 工程目录右键 MDB 文件 →「属性 → 常规 → 取消勾选『只读』」临时关闭 Windows Defender 实时保护仅调试时。5.5 「Runtime Error 3078The database engine could not find the object」现象OpenRecordset(Books)失败但表名确认无拼写错误。根因Access 数据库版本不匹配如用 Access 2016 创建的.accdb文件VB6 DAO 3.6 仅支持.mdb。解法在 Access 中文件 → 另存为 → Access 2002-2003 数据库*.mdb或升级 VB6 引用为Microsoft Office 12.0 Access Database Engine Object Library需安装 Access Database Engine 2010 Redistributable。提示所有错误的快速定位法——在 VB6 IDE 中按CtrlG打开「立即窗口」输入?Err.Number, Err.Description查看实时错误码比 MsgBox 更精准。课程设计答辩时老师常问「你遇到的最大 Bug 是什么」答「3061 错误及参数化解决方案」能直接体现工程素养。本文还有配套的精品资源点击获取 VB6+Access图书管理系统开发实战指南
简介本资源是一份完整的《软件工程》课程设计报告面向高校计算机类专业本科生聚焦图书借阅管理系统的全流程开发实践帮助学生掌握从需求分析到系统发布的标准软件工程方法。文档以Visual Basic 6.0为开发语言、ACCESS为数据库、Windows 7为运行平台系统覆盖构造化分析含数据流图、数据字典、结构图、流程图与面向对象设计含用例图、类图、包图、部署图两大范式并包含程序代码实现、界面功能演示、多阶段测试方案及软件发布说明。资源为单个Word文档.doc共421KB内容详实、目录清晰完整呈现课程设计各环节交付物便于对照学习、复现与答辩准备。目前已有116人下载学习是理解传统桌面应用开发与软件工程规范落地的典型教学案例。1. 为什么用 Visual Basic 6.0 Access 做图书借阅管理系统仍是软件工程课程设计的「稳态选择」很多学生拿到「软件工程课程设计图书借阅管理系统」这个题目时第一反应是都2025年了还写 VB6用 PythonDjango 或 JavaSpring Boot 不是更“现代”但现实是——全国近70%的高校软件工程导论课、实践教学平台如头歌、以及省级本科教改项目验收材料中该题目的参考实现仍以Visual Basic 6.0 Access 2003 数据库为默认技术栈。这不是守旧而是教学闭环的必然VB6 的窗体拖拽逻辑、Access 的表关系可视化、Visio 绘制的UML流程图三者能在一个低门槛环境中完整映射软件工程全生命周期——从需求建模用 Visio 画用例图/ER图、到概要设计窗体控件与模块划分、再到编码实现VB6 事件驱动DAO访问、最后到测试验证借书/还书/超期判断等边界用例。它不追求高并发或云部署而专注训练「把用户需求翻译成可执行、可验证、可文档化的程序实体」这一核心能力。适合大二下学期、尚未接触Web框架、但已学完数据库原理和面向对象基础的学生。2. 用 VB6 在本地跑通图书借阅系统的最小命令链从新建工程到连接 Access 数据库2.1 创建标准 EXE 工程并配置 DAO 数据访问支持VB6 启动后选择「标准 EXE」模板系统自动生成Form1。关键一步是启用数据访问对象DAO——这是 VB6 操作 Access 的原生方式比 ADO 更轻量、更稳定且无需额外注册组件。在菜单栏点击Project → References…勾选Microsoft DAO 3.6 Object Library对应 Access 2000–2003 格式。若列表中无此选项说明 Office 安装未包含 DAO 支持需运行 Office 自定义安装勾选「Microsoft Data Access Components」。提示不要选 Microsoft ActiveX Data ObjectsADO虽然它支持更多数据库但在 Access 本地文件场景下DAO 的DBEngine.OpenDatabase方法对.mdb文件的锁机制更可靠避免多用户同时操作时出现「文件正由另一用户使用」错误。2.2 设计核心数据表结构并生成 Access 数据库文件图书借阅系统至少需三张表Books图书信息、Readers读者信息、Borrows借阅记录。用 Access 2003 新建空白数据库library.mdb手动创建表并设置主外键Books表BookID自动编号主键、Title文本、Author文本、ISBN文本、Stock数字Readers表ReaderID自动编号主键、Name文本、Department文本、MaxBorrow数字默认 5Borrows表BorrowID自动编号主键、BookID数字外键→Books.BookID、ReaderID数字外键→Readers.ReaderID、BorrowDate日期/时间、ReturnDate日期/时间允许空值注意Access 中外键约束需手动启用。右键Borrows表 →「关系」→ 将BookID拖至Books.BookID勾选「实施参照完整性」和「级联更新相关字段」同理处理ReaderID。否则 VB6 程序插入非法BookID时不会报错仅存入零值导致查询逻辑失效。2.3 编写 DAO 连接代码并验证数据库路径在Form1的Form_Load事件中写入以下 VB6 代码Private db As Database Private rsBooks As Recordset Private Sub Form_Load() Dim dbPath As String dbPath App.Path \library.mdb 数据库必须与 EXE 同目录 On Error GoTo DBError Set db DBEngine.OpenDatabase(dbPath) Set rsBooks db.OpenRecordset(SELECT * FROM Books, dbOpenDynaset) MsgBox 数据库连接成功共 rsBooks.RecordCount 本图书 Exit Sub DBError: MsgBox 数据库连接失败 Err.Description 错误号 Err.Number vbCrLf _ 请确认1. library.mdb 是否存在2. 路径是否含中文或空格3. Access 是否被其他程序占用 End Sub这段代码做了三件事App.Path \library.mdb构造绝对路径避免相对路径在不同工作目录下失效DBEngine.OpenDatabase直接打开 MDB 文件不依赖 DSN 配置杜绝「ODBC driver not found」类错误On Error GoTo捕获典型错误Err.Number 3011表不存在、3047数据库被独占打开、3051文件只读——这些正是课程设计中最常卡住学生的点。3. 图书借阅核心业务逻辑的 VB6 实现借书、还书、超期判断三步闭环3.1 借书功能检查库存、读者限额、生成借阅记录在窗体上放置Text1输入 BookID、Text2输入 ReaderID、Command1借书按钮。点击事件代码如下Private Sub Command1_Click() Dim bookID As Long, readerID As Long Dim sql As String 输入校验 If Not IsNumeric(Text1.Text) Or Not IsNumeric(Text2.Text) Then MsgBox 请输入有效的图书ID和读者ID数字 Exit Sub End If bookID CLng(Text1.Text): readerID CLng(Text2.Text) 检查图书库存 sql SELECT Stock FROM Books WHERE BookID bookID Set rsBooks db.OpenRecordset(sql, dbOpenSnapshot) If rsBooks.EOF Then MsgBox 图书ID bookID 不存在 Exit Sub End If If rsBooks!Stock 0 Then MsgBox 该图书已无库存 Exit Sub End If 检查读者当前借阅数是否超限 sql SELECT COUNT(*) AS cnt FROM Borrows WHERE ReaderID readerID AND ReturnDate IS NULL Set rsBooks db.OpenRecordset(sql, dbOpenSnapshot) Dim currentBorrow As Long: currentBorrow rsBooks!cnt sql SELECT MaxBorrow FROM Readers WHERE ReaderID readerID Set rsBooks db.OpenRecordset(sql, dbOpenSnapshot) If rsBooks.EOF Then MsgBox 读者ID readerID 不存在 Exit Sub End If If currentBorrow rsBooks!MaxBorrow Then MsgBox 读者已达到最大借阅数 rsBooks!MaxBorrow 本 Exit Sub End If 执行借书插入记录 库存减1 db.Execute INSERT INTO Borrows (BookID, ReaderID, BorrowDate) VALUES ( _ bookID , readerID , # Format(Now, yyyy-mm-dd) #), dbFailOnError db.Execute UPDATE Books SET Stock Stock - 1 WHERE BookID bookID, dbFailOnError MsgBox 借书成功 End Sub关键参数说明dbOpenSnapshot只读快照用于查询统计避免锁表dbFailOnError确保 SQL 执行失败时抛出错误如主键冲突而非静默忽略#2025-04-10#Access 日期字面量格式必须用#包裹Format(Now, yyyy-mm-dd)保证格式统一COUNT(*)IS NULL判断未还书数量是 Access 中模拟「LEFT JOIN COUNT」的最简写法。3.2 还书功能更新归还日期、库存加1Command2还书按钮代码Private Sub Command2_Click() Dim borrowID As Long If Not IsNumeric(Text3.Text) Then Text3 输入 BorrowID MsgBox 请输入有效的借阅记录ID Exit Sub End If borrowID CLng(Text3.Text) 检查记录是否存在且未归还 sql SELECT * FROM Borrows WHERE BorrowID borrowID AND ReturnDate IS NULL Set rsBooks db.OpenRecordset(sql, dbOpenSnapshot) If rsBooks.EOF Then MsgBox 借阅记录不存在或已归还 Exit Sub End If 更新归还日期并增加库存 db.Execute UPDATE Borrows SET ReturnDate # Format(Now, yyyy-mm-dd) # WHERE BorrowID borrowID, dbFailOnError 获取对应 BookID sql SELECT BookID FROM Borrows WHERE BorrowID borrowID Set rsBooks db.OpenRecordset(sql, dbOpenSnapshot) db.Execute UPDATE Books SET Stock Stock 1 WHERE BookID rsBooks!BookID, dbFailOnError MsgBox 还书成功 End Sub注意Access 的UPDATE语句不支持多表关联更新如UPDATE Borrows b JOIN Books bk ON b.BookIDbk.BookID SET bk.Stock bk.Stock 1必须拆分为两步查询更新这是 VB6Access 开发的固有约束也是教学中强调「事务分步控制」的实操点。3.3 超期判断用 DateDiff 计算借阅天数并标记在DataReport或独立窗体中展示超期图书核心逻辑 查询所有未归还且超期30天的记录 sql SELECT b.Title, r.Name, br.BorrowDate, _ DateDiff(d, br.BorrowDate, Now()) AS DaysOver _ FROM ((Borrows AS br _ INNER JOIN Books AS b ON br.BookID b.BookID) _ INNER JOIN Readers AS r ON br.ReaderID r.ReaderID) _ WHERE br.ReturnDate IS NULL AND DateDiff(d, br.BorrowDate, Now()) 30 Set rsBooks db.OpenRecordset(sql, dbOpenSnapshot) Do While Not rsBooks.EOF Debug.Print rsBooks!Title 被 rsBooks!Name 借阅 rsBooks!DaysOver 天 rsBooks.MoveNext LoopDateDiff(d, ...)是 Access 内置函数d表示按天计算比 VB6 的DateDiff(d, ...)更可靠后者在区域设置为中文时可能解析失败。此处也暴露了 Access 的局限性无法直接在 SQL 中调用 VB6 函数所有日期/字符串处理必须用 Access 函数完成。4. 用 Microsoft Visio 绘制软件工程标准文档从用例图到数据库ER图的落地要点4.1 用例图必须体现「角色-用例-系统边界」三层结构在 Visio 2013 中选择「Software and Database → UML Use Case Diagram」模板。系统边界框命名为「图书借阅管理系统」居中绘制参与者Actor左侧放「管理员」小人图标右侧放「读者」小人图标二者均用「Generalization」箭头指向一个抽象的「用户」父类体现权限继承用例椭圆在系统框内放置「管理图书」「管理读者」「办理借书」「办理还书」「查询借阅记录」五个用例关系标注「管理员」→「管理图书」用实线关联「管理员」→「管理读者」用实线「读者」→「办理借书」用实线「办理借书」→「查询借阅记录」用include虚线箭头借书前需先查读者状态「办理还书」→「查询借阅记录」同样用include。提示Visio 默认用例图不显示构造型 需右键虚线 →「格式 → 线条 → 箭头端部」设为「空心三角」再双击线条添加文字「 」。这是头歌实践平台评分细则中明确要求的 UML 规范项。4.2 ER图严格遵循「实体-属性-联系」三要素标注切换 Visio 模板为「Database Model Diagram」启用「Database → Entity Relationship」形状。实体矩形Books、Readers、Borrows每个实体下方用「属性」形状列出字段并用下划线标注主键如BookID联系菱形Borrows作为关联实体连接Books和Readers标注基数Books端1一本图书可被多次借阅Readers端1一个读者可借多本书Borrows端N一次借阅对应一本图书和一个读者外键标注在Borrows实体内明确写出BookID→ Books.BookID、ReaderID→ Readers.ReaderID并用虚线箭头指向对应主键。常见错误规避表错误类型正确做法课程设计扣分点用连线代替菱形表示多对多联系必须用菱形Borrows实体不可直接连Books和ReadersER图结构不完整扣 2 分属性未区分主键/外键主键加下划线外键标注「FK」并指向源实体属性语义不清扣 1.5 分联系基数写错如Books端写NBooks对Borrows是 1:N一本图书对应多条借阅记录关系理解错误扣 3 分4.3 生成符合头歌平台要求的 Word 文档嵌入方案Visio 绘制完成后不直接截图——头歌系统要求「矢量图可缩放」。正确流程Visio 菜单 →文件 → 导出 → 更改文件类型 → PDF保存为usecase.pdf在 Word 中插入 → 对象 → 由文件创建 → 浏览选择 usecase.pdf → 勾选「链接到文件」同理插入er.pdf最终 Word 文档另存为.doc非.docx因头歌旧版系统仅识别 97-2003 格式。注意若 Word 中 PDF 显示为灰色方块说明未安装 Adobe Acrobat Reader DC。此时可临时用「插入 → 图片 → 来自文件」导入 PNG但需将分辨率设为 300dpi右键图片 →「设置图片格式 → 大小 → 取消锁定纵横比 → 高度设为 8cm」否则打印时模糊。5. 排查 VB6Access 最高频的 5 类运行时错误及定位方法5.1 「Runtime Error 3061Too few parameters. Expected X」现象执行OpenRecordset(SELECT * FROM Books WHERE Title LIKE keyword )时崩溃。根因Access 将LIKE后的单引号内字符串视为参数而非字面量。VB6 拼接 SQL 时未转义单引号。解法替换所有单引号为两个单引号keyword Replace(keyword, , )更安全的做法是用参数化查询虽 VB6 DAO 不原生支持但可用QueryDefDim qdf As QueryDef Set qdf db.CreateQueryDef() qdf.SQL SELECT * FROM Books WHERE Title LIKE ? qdf.Parameters(0) * keyword * Set rsBooks qdf.OpenRecordset5.2 「Runtime Error 3021No current record」现象rsBooks.MoveNext后立即访问rsBooks!Title报错。根因记录集已到末尾EOF但未检查rsBooks.EOF。解法所有循环必须带 EOF 检查Do While Not rsBooks.EOF Debug.Print rsBooks!Title rsBooks.MoveNext Loop 错误写法Do Until rsBooks.EOF ... rsBooks.MoveNext顺序颠倒5.3 「Runtime Error 3146ODBC Call Failed」现象db.Execute UPDATE Books SET Stock -1 WHERE BookID 1成功但后续SELECT返回 Stock 仍为 0。根因Access 的 Jet 引擎缓存机制Execute修改未即时刷新到记录集。解法执行修改后对相关记录集调用rsBooks.Requery或关闭重开记录集db.Execute UPDATE Books SET Stock Stock - 1 WHERE BookID bookID rsBooks.Close 关闭原记录集 Set rsBooks db.OpenRecordset(SELECT * FROM Books, dbOpenDynaset) 重新打开5.4 「Runtime Error 70Permission denied」现象Set db DBEngine.OpenDatabase(C:\data\library.mdb)失败。根因Windows 10/11 默认阻止对系统盘根目录的写入或文件被杀毒软件锁定。解法将library.mdb移至App.Path即 VB6 工程目录右键 MDB 文件 →「属性 → 常规 → 取消勾选『只读』」临时关闭 Windows Defender 实时保护仅调试时。5.5 「Runtime Error 3078The database engine could not find the object」现象OpenRecordset(Books)失败但表名确认无拼写错误。根因Access 数据库版本不匹配如用 Access 2016 创建的.accdb文件VB6 DAO 3.6 仅支持.mdb。解法在 Access 中文件 → 另存为 → Access 2002-2003 数据库*.mdb或升级 VB6 引用为Microsoft Office 12.0 Access Database Engine Object Library需安装 Access Database Engine 2010 Redistributable。提示所有错误的快速定位法——在 VB6 IDE 中按CtrlG打开「立即窗口」输入?Err.Number, Err.Description查看实时错误码比 MsgBox 更精准。课程设计答辩时老师常问「你遇到的最大 Bug 是什么」答「3061 错误及参数化解决方案」能直接体现工程素养。本文还有配套的精品资源点击获取