简介这是一套基于 WinForm 的宾馆酒店管理系统源码采用 VB 语言开发面向刚接触桌面应用开发的新手及有一定经验的程序员可用于课程设计、毕业设计参考或二次开发练手。资源包共 354 个文件约 3.59MB其中 124 个 .vb 源文件构成核心业务逻辑58 个 .resx 与 58 个 .resources 承载窗体资源17 个 .sql 脚本配合 .mdf、.ldf 数据库文件完成建库建表另有 38 个图标、若干配置文件与项目文件整体结构完整、注释齐全。系统覆盖客房管理、入住登记、结账退房等典型酒店业务模块读者可借此理清 WinForm 窗体与数据库交互的完整链路学习数据绑定、事务处理与界面布局的常见写法并对照 SQL 脚本理解表结构设计。目前已有 216 人学习下载适合作为入门到进阶的实战参考。1. 从一份 WinForm 宾馆酒店管理系统源码说起VB 老项目到底值不值得拆前阵子有个做企业内训的朋友找我说想给新人找一个「麻雀虽小五脏俱全」的桌面端练手项目要求是能跑起来、有数据库、业务闭环完整最好还能看懂每一行代码在干什么。我翻了一圈最后丢给他一份 WinForm 宾馆酒店管理系统源码VB 语言写的带数据库脚本。他第一反应是「VB这不是上古语言吗」结果跑完一遍之后改口说这套东西比他想象中扎实得多。这份资源的核心价值不在于技术栈有多新而在于它把一个中小型管理系统的完整骨架摊开给你看客房信息维护、入住登记、退房结算、账单查询、用户权限这些模块之间的数据流和界面跳转逻辑都是通的。它适合两类人——一类是刚接触 WinForm 和 ADO.NET 的新手需要一条能跑通的完整链路来建立信心另一类是有一定经验、想快速搭一个桌面端管理后台原型的开发者可以直接拿它的表结构和业务分层做二次开发。源码里带了注释数据库脚本也是现成的省掉了从零建表、对字段、调连接字符串这些琐碎但容易翻车的环节。需要提前说清楚的是这是一个典型的「代码即文档」型资源没有配套的视频教程也没有逐行讲解的 PDF。你得自己打开解决方案顺着窗体事件往下读。但恰恰是这种读法对基本功的提升最明显。2. 环境准备与工程结构把 VB WinForm 项目跑起来要过哪几道关2.1 开发环境与依赖清单这套源码是 VB.NET 的 WinForm 项目不是 VB6所以你需要的是 Visual Studio 而不是老式 VB IDE。我一般推荐用 VS2019 或 VS2022 的社区版安装时勾选「.NET 桌面开发」工作负载里面包含 WinForm 设计器和 VB.NET 编译器。数据库方面源码附的是 SQL Server 脚本所以本机需要装一个 SQL Server Express 或者 Developer 版配合 SSMS 管理工具使用。组件推荐版本说明Visual Studio2019 / 2022 社区版需勾选 .NET 桌面开发.NET Framework4.6.1 及以上项目目标框架低于此版本可能报引用错误SQL Server2016 Express 及以上用于还原数据库脚本SSMS18.x 及以上执行脚本、查看表数据这里有个容易被忽略的点VB.NET 项目对目标框架比较敏感。如果你本机只装了 .NET 6/8 的 SDK打开项目时可能会提示框架不兼容。解决办法是在项目属性里把目标框架改成你机器上已有的版本或者通过 VS 安装器补装对应的 .NET Framework 开发包。2.2 还原数据库与配置连接字符串拿到源码后第一步不是急着按 F5而是先把数据库还原好。用 SSMS 新建一个数据库名字随意比如HotelDB然后打开源码里的.sql脚本文件执行。脚本里一般包含建表语句和基础数据插入执行完你会在表列表里看到客房表、入住登记表、用户表、账单表这几张核心表。数据库就绪后回到 VS 里找app.config文件。这个文件是 WinForm 项目的配置入口连接字符串就藏在connectionStrings节点里。你需要把Data Source改成自己的实例名Initial Catalog改成刚才建的数据库名。!-- app.config 中的连接字符串配置 -- connectionStrings !-- Data Source 填本机 SQL Server 实例名默认实例用 . 或 localhost -- !-- Initial Catalog 填你还原脚本时创建的数据库名 -- add nameHotelConn connectionStringData Source.;Initial CatalogHotelDB;Integrated SecurityTrue providerNameSystem.Data.SqlClient / /connectionStringsIntegrated SecurityTrue表示用 Windows 身份验证登录数据库省去填账号密码的麻烦。如果你用的是 SQL Server 账号登录就改成User ID你的账号;Password你的密码。改完保存重新生成解决方案如果没报错说明连接层已经通了。2.3 工程目录里那些 cache 文件是什么打开源码文件夹你会看到一堆.cache结尾的文件比如DesignTimeResolveAssemblyReferencesInput.cache、宾馆酒店管理系统.vbprojAssemblyReference.cache、宾馆酒店管理系统.vbproj.GenerateResource.cache等等。新手看到这些容易慌以为是源码损坏或者缺文件。其实这些是 Visual Studio 在编译和设计器加载过程中自动生成的临时缓存不属于源码本体。我的习惯是拿到项目后先删掉bin和obj两个目录以及所有.cache文件然后重新用 VS 打开.sln或.vbproj让 IDE 自己重新生成。这样做的好处是避免旧缓存里残留的路径信息干扰新环境的编译。删完之后第一次生成可能会慢一点属于正常现象。提示如果删掉 cache 后打开设计器报「无法加载类型」之类的错误先检查项目引用里有没有黄色感叹号通常是某个 DLL 路径失效重新添加引用即可。3. 核心业务模块拆解客房、入住、结算三条主线的代码逻辑3.1 客房管理模块DataGridView 绑定与增删改查客房管理是整个系统的数据源头房间号、房型、价格、状态这些字段都从这里维护。源码里这个模块通常是一个frmRoom窗体核心控件是DataGridView配合几个 Button 做增删改查。VB WinForm 里绑定数据最直接的方式是用SqlDataAdapter填充DataTable再丢给 DataGridView 的 DataSource。 加载客房列表到 DataGridView Private Sub LoadRoomList() Dim connStr As String ConfigurationManager.ConnectionStrings(HotelConn).ConnectionString Dim dt As New DataTable() Using conn As New SqlConnection(connStr) 查询所有客房按房间号排序 Dim sql As String SELECT RoomID, RoomNo, RoomType, Price, Status FROM Room ORDER BY RoomNo Using adapter As New SqlDataAdapter(sql, conn) adapter.Fill(dt) End Using End Using 绑定到表格控件AutoGenerateColumns 设为 False 时需手动定义列 dgvRoom.DataSource dt End Sub这段代码的逻辑很直白从配置文件读连接字符串用SqlDataAdapter执行查询并填充DataTable最后把DataTable赋给DataGridView.DataSource。参数方面ORDER BY RoomNo保证房间号有序显示方便前台查找。如果你想让表格列名显示中文可以在设计器里手动编辑列把HeaderText改成「房间号」「房型」等同时把AutoGenerateColumns设为False避免自动生成一堆英文列名。增删改的操作通常是先弹出一个编辑窗体用户填完点保存再执行INSERT或UPDATE语句最后重新调用LoadRoomList()刷新表格。这里有个细节执行完SqlCommand后记得判断ExecuteNonQuery()的返回值大于 0 才说明写库成功否则要提示用户检查输入。3.2 入住登记模块事务处理与房间状态联动入住登记是业务逻辑最密集的地方。用户选一个空闲房间填入住人信息系统要做三件事往入住表插一条记录、把房间状态改成「已入住」、生成一条初始账单。这三步必须在一个事务里完成否则中途失败会出现「房间显示已住但查不到入住记录」的脏数据。 入住登记插入入住记录并更新房间状态使用事务保证一致性 Private Function CheckIn(roomId As Integer, guestName As String, idCard As String) As Boolean Dim connStr As String ConfigurationManager.ConnectionStrings(HotelConn).ConnectionString Using conn As New SqlConnection(connStr) conn.Open() 开启事务后续所有命令共用这个事务对象 Using tran As SqlTransaction conn.BeginTransaction() Try 第一步插入入住记录 Dim sqlInsert As String INSERT INTO CheckIn (RoomID, GuestName, IDCard, CheckInTime, Status) VALUES (RoomID, GuestName, IDCard, GETDATE(), 在住) Using cmd As New SqlCommand(sqlInsert, conn, tran) cmd.Parameters.AddWithValue(RoomID, roomId) cmd.Parameters.AddWithValue(GuestName, guestName) cmd.Parameters.AddWithValue(IDCard, idCard) cmd.ExecuteNonQuery() End Using 第二步更新房间状态为已入住 Dim sqlUpdate As String UPDATE Room SET Status 已入住 WHERE RoomID RoomID Using cmd As New SqlCommand(sqlUpdate, conn, tran) cmd.Parameters.AddWithValue(RoomID, roomId) cmd.ExecuteNonQuery() End Using 两步都成功提交事务 tran.Commit() Return True Catch ex As Exception 任何一步出错回滚事务保证数据一致性 tran.Rollback() MessageBox.Show(入住登记失败 ex.Message) Return False End Try End Using End Using End Function事务的写法在 VB.NET 里就是conn.BeginTransaction()拿到SqlTransaction对象然后每个SqlCommand构造时把事务传进去。Try...Catch里Commit()和Rollback()的配对是标准做法。参数化查询用AddWithValue防止 SQL 注入虽然这是内部系统但习惯要养好。房间状态字段我一般建议用字符串而不是数字因为「空闲」「已入住」「维修中」这种状态在界面上直接显示更直观代价是存储空间略大对这个小系统来说可以忽略。3.3 退房结算模块费用计算与账单生成退房结算的核心是算钱。源码里的逻辑一般是根据入住时间和退房时间算出天数乘以房间单价再加上可能的额外消费生成最终账单。这里有个业务规则要注意——不足一天按一天算还是按小时算不同酒店不一样。源码里通常是按天算用DateDiff函数取天数差。 计算住宿费用按天计费不足一天按一天算 Private Function CalcFee(checkInTime As DateTime, checkOutTime As DateTime, pricePerDay As Decimal) As Decimal 计算入住天数DateDiff 返回间隔天数 Dim days As Integer DateDiff(DateInterval.Day, checkInTime, checkOutTime) 不足一天按一天算避免出现 0 天的情况 If days 0 Then days 1 如果退房时间晚于入住时间对应时刻加收一天 If checkOutTime.TimeOfDay checkInTime.TimeOfDay Then days 1 End If Return days * pricePerDay End FunctionDateDiff的DateInterval.Day参数返回两个日期之间的天数差但它只比较日期部分不比较具体时刻。所以后面补了一个判断如果退房的具体时间点晚于入住的时间点说明超过了整天的边界加收一天。这个规则不是绝对的你可以根据实际业务改成按小时计费或者设置一个宽限期。参数pricePerDay从房间表里查出来传入保证价格变动时账单跟着变。结算完成后系统要更新入住记录状态为「已退房」把房间状态改回「空闲」同时把账单写入账单表。这一串操作同样建议放在事务里逻辑和入住登记类似这里不再重复贴代码。4. 避坑与排查VB WinForm 老项目最容易翻车的五个地方4.1 现象打开项目提示「未能找到类型或命名空间」原因项目引用的某个 DLL 路径失效或者目标框架版本不匹配。VB.NET 项目在迁移到新机器时References节点里记录的绝对路径可能指向原作者的目录结构。解决在解决方案资源管理器里展开「引用」看有没有带黄色感叹号的项。有的话右键删除重新从本机添加对应的程序集。如果是框架版本问题在项目属性里把目标框架改成你已安装的版本重新生成。4.2 现象程序能启动但一操作就报「连接数据库失败」原因app.config里的连接字符串没改或者 SQL Server 实例名写错了。还有一种情况是 SQL Server 的 TCP/IP 协议没启用导致本地连接也走不通。解决先用 SSMS 确认能手动连上数据库然后把app.config里的Data Source改成 SSMS 里显示的服务器名称。如果 SSMS 能连但程序连不上打开 SQL Server 配置管理器检查「SQL Server 网络配置」下的 TCP/IP 是否已启用。4.3 现象DataGridView 显示的数据是英文列名且顺序混乱原因AutoGenerateColumns默认为True控件根据DataTable的列自动生成列列名就是数据库字段名顺序也跟查询语句的字段顺序一致。解决在设计器里把AutoGenerateColumns设为False然后手动添加列设置每列的DataPropertyName对应数据库字段HeaderText设成中文。这样列的顺序和显示名称都完全可控。4.4 现象入住登记后房间状态没变或者变了但查不到入住记录原因没有用事务或者事务的Commit和Rollback逻辑写错了。常见的是Try块里只写了插入更新语句放在Try外面导致插入成功但更新失败时无法回滚。解决把所有写库操作都放进同一个Try块共用同一个SqlTransaction对象。Catch里先Rollback再提示错误。测试时可以故意在第二步制造一个异常比如把表名写错观察第一步的数据是否被回滚。4.5 现象编译时提示「文件正被另一进程使用」原因bin或obj目录下的缓存文件被残留的调试进程占用或者你同时开了两个 VS 实例打开同一个项目。解决关闭所有 VS 实例在任务管理器里结束VBCSCompiler.exe和MSBuild.exe进程然后手动删除bin和obj目录重新打开项目生成。如果还是不行重启机器基本能解决。5. 二次开发与验证把这份源码变成你自己的项目底子5.1 从「能跑」到「能用」三个可落地的改造方向跑通只是第一步真正让这份源码产生价值的是按你的需求改。我一般会从三个方向入手。第一个是界面层WinForm 默认的控件样式比较朴素你可以引入第三方 UI 库或者自己写一套配色方案把按钮、表格、窗体的视觉统一起来。第二个是业务层比如增加「预订」功能在入住之前多一个状态流转这需要加一张预订表并在房间状态里增加「已预订」这个值。第三个是数据层把连接字符串加密或者把直连数据库改成走一个简单的数据访问层方便以后换数据库。改造的时候有个原则先加功能再重构。不要一上来就把代码推倒重来那样容易陷入「改到一半跑不起来」的困境。正确的做法是在现有逻辑旁边加新代码跑通之后再考虑把重复的部分抽成公共方法。5.2 验证改造是否成功的检查清单改完之后怎么确认没改坏我习惯用一套固定的检查流程。先走一遍完整业务流新增房间、入住登记、退房结算、查询账单每一步都看数据库里的数据对不对。然后做边界测试入住当天退房、跨月退房、房间状态为维修中时能否入住。最后做异常测试故意断网或者停掉 SQL Server 服务看程序是弹一个友好的错误提示还是直接崩溃。检查项预期结果常见问题新增房间后列表刷新新房间出现在表格中忘记重新绑定 DataSource入住后房间状态变更状态变为「已入住」事务未提交或更新语句条件写错退房后账单金额天数×单价边界正确天数计算未处理不足一天的情况停掉数据库后操作弹出可读的错误提示未捕获异常程序直接退出5.3 一个我踩过的坑日期格式与区域设置最后说一个血泪经验。VB.NET 里日期格式化跟系统区域设置强相关我在一台英文系统的机器上测试时Format(Now, yyyy-MM-dd)输出正常但换到另一台区域设置为其他格式的机器上日期字符串变成了dd/MM/yyyy导致插入数据库时格式不匹配报错。从那以后我每次处理日期都强制用DateTime.ToString(yyyy-MM-dd HH:mm:ss, CultureInfo.InvariantCulture)来保证格式一致不再依赖系统默认设置。这个习惯帮我省掉了至少三次跨机器部署时的玄学问题。这份源码的价值不在于它用了多新的技术而在于它把一个小型管理系统的完整链路摊开给你看。从数据库建表到窗体事件从事务处理到异常捕获每一块都能对应到实际工作中的场景。如果你正好需要一个能跑通、能改、能学到东西的 WinForm 项目底子这份资源值得花一个周末拆一遍。希望帮到你。本文还有配套的精品资源点击获取 WinForm宾馆酒店管理系统源码解析：VB老项目实战与二次开发
简介这是一套基于 WinForm 的宾馆酒店管理系统源码采用 VB 语言开发面向刚接触桌面应用开发的新手及有一定经验的程序员可用于课程设计、毕业设计参考或二次开发练手。资源包共 354 个文件约 3.59MB其中 124 个 .vb 源文件构成核心业务逻辑58 个 .resx 与 58 个 .resources 承载窗体资源17 个 .sql 脚本配合 .mdf、.ldf 数据库文件完成建库建表另有 38 个图标、若干配置文件与项目文件整体结构完整、注释齐全。系统覆盖客房管理、入住登记、结账退房等典型酒店业务模块读者可借此理清 WinForm 窗体与数据库交互的完整链路学习数据绑定、事务处理与界面布局的常见写法并对照 SQL 脚本理解表结构设计。目前已有 216 人学习下载适合作为入门到进阶的实战参考。1. 从一份 WinForm 宾馆酒店管理系统源码说起VB 老项目到底值不值得拆前阵子有个做企业内训的朋友找我说想给新人找一个「麻雀虽小五脏俱全」的桌面端练手项目要求是能跑起来、有数据库、业务闭环完整最好还能看懂每一行代码在干什么。我翻了一圈最后丢给他一份 WinForm 宾馆酒店管理系统源码VB 语言写的带数据库脚本。他第一反应是「VB这不是上古语言吗」结果跑完一遍之后改口说这套东西比他想象中扎实得多。这份资源的核心价值不在于技术栈有多新而在于它把一个中小型管理系统的完整骨架摊开给你看客房信息维护、入住登记、退房结算、账单查询、用户权限这些模块之间的数据流和界面跳转逻辑都是通的。它适合两类人——一类是刚接触 WinForm 和 ADO.NET 的新手需要一条能跑通的完整链路来建立信心另一类是有一定经验、想快速搭一个桌面端管理后台原型的开发者可以直接拿它的表结构和业务分层做二次开发。源码里带了注释数据库脚本也是现成的省掉了从零建表、对字段、调连接字符串这些琐碎但容易翻车的环节。需要提前说清楚的是这是一个典型的「代码即文档」型资源没有配套的视频教程也没有逐行讲解的 PDF。你得自己打开解决方案顺着窗体事件往下读。但恰恰是这种读法对基本功的提升最明显。2. 环境准备与工程结构把 VB WinForm 项目跑起来要过哪几道关2.1 开发环境与依赖清单这套源码是 VB.NET 的 WinForm 项目不是 VB6所以你需要的是 Visual Studio 而不是老式 VB IDE。我一般推荐用 VS2019 或 VS2022 的社区版安装时勾选「.NET 桌面开发」工作负载里面包含 WinForm 设计器和 VB.NET 编译器。数据库方面源码附的是 SQL Server 脚本所以本机需要装一个 SQL Server Express 或者 Developer 版配合 SSMS 管理工具使用。组件推荐版本说明Visual Studio2019 / 2022 社区版需勾选 .NET 桌面开发.NET Framework4.6.1 及以上项目目标框架低于此版本可能报引用错误SQL Server2016 Express 及以上用于还原数据库脚本SSMS18.x 及以上执行脚本、查看表数据这里有个容易被忽略的点VB.NET 项目对目标框架比较敏感。如果你本机只装了 .NET 6/8 的 SDK打开项目时可能会提示框架不兼容。解决办法是在项目属性里把目标框架改成你机器上已有的版本或者通过 VS 安装器补装对应的 .NET Framework 开发包。2.2 还原数据库与配置连接字符串拿到源码后第一步不是急着按 F5而是先把数据库还原好。用 SSMS 新建一个数据库名字随意比如HotelDB然后打开源码里的.sql脚本文件执行。脚本里一般包含建表语句和基础数据插入执行完你会在表列表里看到客房表、入住登记表、用户表、账单表这几张核心表。数据库就绪后回到 VS 里找app.config文件。这个文件是 WinForm 项目的配置入口连接字符串就藏在connectionStrings节点里。你需要把Data Source改成自己的实例名Initial Catalog改成刚才建的数据库名。!-- app.config 中的连接字符串配置 -- connectionStrings !-- Data Source 填本机 SQL Server 实例名默认实例用 . 或 localhost -- !-- Initial Catalog 填你还原脚本时创建的数据库名 -- add nameHotelConn connectionStringData Source.;Initial CatalogHotelDB;Integrated SecurityTrue providerNameSystem.Data.SqlClient / /connectionStringsIntegrated SecurityTrue表示用 Windows 身份验证登录数据库省去填账号密码的麻烦。如果你用的是 SQL Server 账号登录就改成User ID你的账号;Password你的密码。改完保存重新生成解决方案如果没报错说明连接层已经通了。2.3 工程目录里那些 cache 文件是什么打开源码文件夹你会看到一堆.cache结尾的文件比如DesignTimeResolveAssemblyReferencesInput.cache、宾馆酒店管理系统.vbprojAssemblyReference.cache、宾馆酒店管理系统.vbproj.GenerateResource.cache等等。新手看到这些容易慌以为是源码损坏或者缺文件。其实这些是 Visual Studio 在编译和设计器加载过程中自动生成的临时缓存不属于源码本体。我的习惯是拿到项目后先删掉bin和obj两个目录以及所有.cache文件然后重新用 VS 打开.sln或.vbproj让 IDE 自己重新生成。这样做的好处是避免旧缓存里残留的路径信息干扰新环境的编译。删完之后第一次生成可能会慢一点属于正常现象。提示如果删掉 cache 后打开设计器报「无法加载类型」之类的错误先检查项目引用里有没有黄色感叹号通常是某个 DLL 路径失效重新添加引用即可。3. 核心业务模块拆解客房、入住、结算三条主线的代码逻辑3.1 客房管理模块DataGridView 绑定与增删改查客房管理是整个系统的数据源头房间号、房型、价格、状态这些字段都从这里维护。源码里这个模块通常是一个frmRoom窗体核心控件是DataGridView配合几个 Button 做增删改查。VB WinForm 里绑定数据最直接的方式是用SqlDataAdapter填充DataTable再丢给 DataGridView 的 DataSource。 加载客房列表到 DataGridView Private Sub LoadRoomList() Dim connStr As String ConfigurationManager.ConnectionStrings(HotelConn).ConnectionString Dim dt As New DataTable() Using conn As New SqlConnection(connStr) 查询所有客房按房间号排序 Dim sql As String SELECT RoomID, RoomNo, RoomType, Price, Status FROM Room ORDER BY RoomNo Using adapter As New SqlDataAdapter(sql, conn) adapter.Fill(dt) End Using End Using 绑定到表格控件AutoGenerateColumns 设为 False 时需手动定义列 dgvRoom.DataSource dt End Sub这段代码的逻辑很直白从配置文件读连接字符串用SqlDataAdapter执行查询并填充DataTable最后把DataTable赋给DataGridView.DataSource。参数方面ORDER BY RoomNo保证房间号有序显示方便前台查找。如果你想让表格列名显示中文可以在设计器里手动编辑列把HeaderText改成「房间号」「房型」等同时把AutoGenerateColumns设为False避免自动生成一堆英文列名。增删改的操作通常是先弹出一个编辑窗体用户填完点保存再执行INSERT或UPDATE语句最后重新调用LoadRoomList()刷新表格。这里有个细节执行完SqlCommand后记得判断ExecuteNonQuery()的返回值大于 0 才说明写库成功否则要提示用户检查输入。3.2 入住登记模块事务处理与房间状态联动入住登记是业务逻辑最密集的地方。用户选一个空闲房间填入住人信息系统要做三件事往入住表插一条记录、把房间状态改成「已入住」、生成一条初始账单。这三步必须在一个事务里完成否则中途失败会出现「房间显示已住但查不到入住记录」的脏数据。 入住登记插入入住记录并更新房间状态使用事务保证一致性 Private Function CheckIn(roomId As Integer, guestName As String, idCard As String) As Boolean Dim connStr As String ConfigurationManager.ConnectionStrings(HotelConn).ConnectionString Using conn As New SqlConnection(connStr) conn.Open() 开启事务后续所有命令共用这个事务对象 Using tran As SqlTransaction conn.BeginTransaction() Try 第一步插入入住记录 Dim sqlInsert As String INSERT INTO CheckIn (RoomID, GuestName, IDCard, CheckInTime, Status) VALUES (RoomID, GuestName, IDCard, GETDATE(), 在住) Using cmd As New SqlCommand(sqlInsert, conn, tran) cmd.Parameters.AddWithValue(RoomID, roomId) cmd.Parameters.AddWithValue(GuestName, guestName) cmd.Parameters.AddWithValue(IDCard, idCard) cmd.ExecuteNonQuery() End Using 第二步更新房间状态为已入住 Dim sqlUpdate As String UPDATE Room SET Status 已入住 WHERE RoomID RoomID Using cmd As New SqlCommand(sqlUpdate, conn, tran) cmd.Parameters.AddWithValue(RoomID, roomId) cmd.ExecuteNonQuery() End Using 两步都成功提交事务 tran.Commit() Return True Catch ex As Exception 任何一步出错回滚事务保证数据一致性 tran.Rollback() MessageBox.Show(入住登记失败 ex.Message) Return False End Try End Using End Using End Function事务的写法在 VB.NET 里就是conn.BeginTransaction()拿到SqlTransaction对象然后每个SqlCommand构造时把事务传进去。Try...Catch里Commit()和Rollback()的配对是标准做法。参数化查询用AddWithValue防止 SQL 注入虽然这是内部系统但习惯要养好。房间状态字段我一般建议用字符串而不是数字因为「空闲」「已入住」「维修中」这种状态在界面上直接显示更直观代价是存储空间略大对这个小系统来说可以忽略。3.3 退房结算模块费用计算与账单生成退房结算的核心是算钱。源码里的逻辑一般是根据入住时间和退房时间算出天数乘以房间单价再加上可能的额外消费生成最终账单。这里有个业务规则要注意——不足一天按一天算还是按小时算不同酒店不一样。源码里通常是按天算用DateDiff函数取天数差。 计算住宿费用按天计费不足一天按一天算 Private Function CalcFee(checkInTime As DateTime, checkOutTime As DateTime, pricePerDay As Decimal) As Decimal 计算入住天数DateDiff 返回间隔天数 Dim days As Integer DateDiff(DateInterval.Day, checkInTime, checkOutTime) 不足一天按一天算避免出现 0 天的情况 If days 0 Then days 1 如果退房时间晚于入住时间对应时刻加收一天 If checkOutTime.TimeOfDay checkInTime.TimeOfDay Then days 1 End If Return days * pricePerDay End FunctionDateDiff的DateInterval.Day参数返回两个日期之间的天数差但它只比较日期部分不比较具体时刻。所以后面补了一个判断如果退房的具体时间点晚于入住的时间点说明超过了整天的边界加收一天。这个规则不是绝对的你可以根据实际业务改成按小时计费或者设置一个宽限期。参数pricePerDay从房间表里查出来传入保证价格变动时账单跟着变。结算完成后系统要更新入住记录状态为「已退房」把房间状态改回「空闲」同时把账单写入账单表。这一串操作同样建议放在事务里逻辑和入住登记类似这里不再重复贴代码。4. 避坑与排查VB WinForm 老项目最容易翻车的五个地方4.1 现象打开项目提示「未能找到类型或命名空间」原因项目引用的某个 DLL 路径失效或者目标框架版本不匹配。VB.NET 项目在迁移到新机器时References节点里记录的绝对路径可能指向原作者的目录结构。解决在解决方案资源管理器里展开「引用」看有没有带黄色感叹号的项。有的话右键删除重新从本机添加对应的程序集。如果是框架版本问题在项目属性里把目标框架改成你已安装的版本重新生成。4.2 现象程序能启动但一操作就报「连接数据库失败」原因app.config里的连接字符串没改或者 SQL Server 实例名写错了。还有一种情况是 SQL Server 的 TCP/IP 协议没启用导致本地连接也走不通。解决先用 SSMS 确认能手动连上数据库然后把app.config里的Data Source改成 SSMS 里显示的服务器名称。如果 SSMS 能连但程序连不上打开 SQL Server 配置管理器检查「SQL Server 网络配置」下的 TCP/IP 是否已启用。4.3 现象DataGridView 显示的数据是英文列名且顺序混乱原因AutoGenerateColumns默认为True控件根据DataTable的列自动生成列列名就是数据库字段名顺序也跟查询语句的字段顺序一致。解决在设计器里把AutoGenerateColumns设为False然后手动添加列设置每列的DataPropertyName对应数据库字段HeaderText设成中文。这样列的顺序和显示名称都完全可控。4.4 现象入住登记后房间状态没变或者变了但查不到入住记录原因没有用事务或者事务的Commit和Rollback逻辑写错了。常见的是Try块里只写了插入更新语句放在Try外面导致插入成功但更新失败时无法回滚。解决把所有写库操作都放进同一个Try块共用同一个SqlTransaction对象。Catch里先Rollback再提示错误。测试时可以故意在第二步制造一个异常比如把表名写错观察第一步的数据是否被回滚。4.5 现象编译时提示「文件正被另一进程使用」原因bin或obj目录下的缓存文件被残留的调试进程占用或者你同时开了两个 VS 实例打开同一个项目。解决关闭所有 VS 实例在任务管理器里结束VBCSCompiler.exe和MSBuild.exe进程然后手动删除bin和obj目录重新打开项目生成。如果还是不行重启机器基本能解决。5. 二次开发与验证把这份源码变成你自己的项目底子5.1 从「能跑」到「能用」三个可落地的改造方向跑通只是第一步真正让这份源码产生价值的是按你的需求改。我一般会从三个方向入手。第一个是界面层WinForm 默认的控件样式比较朴素你可以引入第三方 UI 库或者自己写一套配色方案把按钮、表格、窗体的视觉统一起来。第二个是业务层比如增加「预订」功能在入住之前多一个状态流转这需要加一张预订表并在房间状态里增加「已预订」这个值。第三个是数据层把连接字符串加密或者把直连数据库改成走一个简单的数据访问层方便以后换数据库。改造的时候有个原则先加功能再重构。不要一上来就把代码推倒重来那样容易陷入「改到一半跑不起来」的困境。正确的做法是在现有逻辑旁边加新代码跑通之后再考虑把重复的部分抽成公共方法。5.2 验证改造是否成功的检查清单改完之后怎么确认没改坏我习惯用一套固定的检查流程。先走一遍完整业务流新增房间、入住登记、退房结算、查询账单每一步都看数据库里的数据对不对。然后做边界测试入住当天退房、跨月退房、房间状态为维修中时能否入住。最后做异常测试故意断网或者停掉 SQL Server 服务看程序是弹一个友好的错误提示还是直接崩溃。检查项预期结果常见问题新增房间后列表刷新新房间出现在表格中忘记重新绑定 DataSource入住后房间状态变更状态变为「已入住」事务未提交或更新语句条件写错退房后账单金额天数×单价边界正确天数计算未处理不足一天的情况停掉数据库后操作弹出可读的错误提示未捕获异常程序直接退出5.3 一个我踩过的坑日期格式与区域设置最后说一个血泪经验。VB.NET 里日期格式化跟系统区域设置强相关我在一台英文系统的机器上测试时Format(Now, yyyy-MM-dd)输出正常但换到另一台区域设置为其他格式的机器上日期字符串变成了dd/MM/yyyy导致插入数据库时格式不匹配报错。从那以后我每次处理日期都强制用DateTime.ToString(yyyy-MM-dd HH:mm:ss, CultureInfo.InvariantCulture)来保证格式一致不再依赖系统默认设置。这个习惯帮我省掉了至少三次跨机器部署时的玄学问题。这份源码的价值不在于它用了多新的技术而在于它把一个小型管理系统的完整链路摊开给你看。从数据库建表到窗体事件从事务处理到异常捕获每一块都能对应到实际工作中的场景。如果你正好需要一个能跑通、能改、能学到东西的 WinForm 项目底子这份资源值得花一个周末拆一遍。希望帮到你。本文还有配套的精品资源点击获取