简介：这份资源是面向VB初学者与课程设计者的学籍管理系统完整源代码，以毕业论文形式呈现，适合需要完成数据库编程实训、毕业设计或自学VB+ADO开发的学生参考。压缩包内共1个doc文档，约523KB，内容为九讲学院学生学籍管理系统的论文全文，涵盖需求分析、可行性分析、系统设计、数据库设计与详细设计等章节。文中围绕学生信息管理、成绩管理、出勤管理、权限管理四大模块展开，并给出主窗体、用户管理、学籍管理、班级管理、课程设置、成绩管理等窗体的创建思路，涉及E-R图、数据表字段设计、SQL建表与主外键约束等关键点。目前已有434人学习，读者可借此理解VB结合Access或SQL Server实现增删改查的完整流程，掌握界面控件布局、错误处理与数据库连接方法，对提升软件工程实践能力有直接帮助。
1. 从一份 2006 年的 VB 学籍管理系统源码说起
翻到一份标注为「vb学籍管理系统源代码.rar」的压缩包，解压后是典型的 Visual Basic 6.0 工程结构：.vbp工程文件、若干.frm窗体、一个Module.bas标准模块，外加一份 SQL Server 2000 的建表脚本。这不是什么新东西，但它恰好卡在一个很实用的位置上——想搞懂「传统 C/S 架构的管理信息系统到底怎么落地」的人，拿它当解剖样本比看十篇理论文章都管用。系统覆盖学籍、班级、课程、成绩四大模块，用 ADO 连 SQL Server，MDI 多文档界面，权限分级。适合两类人：一是要交课程设计或毕设、需要一套能跑通的完整参考；二是做维护老系统、需要快速理解 VB6 + SQL Server 这套组合拳的从业者。下面按「它是什么 → 怎么跑起来 → 坑在哪 → 怎么改」的顺序拆一遍。
2. 拆开压缩包：工程结构与数据库脚本怎么对上
2.1 VB6 工程的文件构成与加载顺序
解压后先别急着双击.vbp，VB6 的工程加载对文件完整性有要求。一个标准工程至少包含这几类文件：
| 文件类型 | 扩展名 | 作用 | 缺失后果 |
|---|---|---|---|
| 工程文件 | .vbp | 记录所有部件引用和窗体清单 | 无法打开工程 |
| 窗体文件 | .frm | 界面布局 + 控件事件代码 | 对应窗口丢失 |
| 窗体二进制 | .frx | 窗体上控件的二进制属性 | 图片、图标类控件异常 |
| 标准模块 | .bas | 全局函数、变量、数据库连接 | 编译报「未定义」 |
| 资源文件 | .res | 版本信息、字符串资源 | 一般不影响运行 |
加载顺序上，先确认.vbp里引用的每个.frm和.bas都在同一目录下。常见情况是压缩包里窗体文件和工程文件混在一起，直接打开.vbp会提示「找不到某某文件」。这时候用记事本打开.vbp，看Form=xxx.frm这些行，逐个核对文件名大小写是否一致——VB6 在 Windows 上不区分大小写，但某些解压工具会改文件名，导致引用断裂。
2.2 数据库脚本的执行与连接字符串配置
工程里最关键的是那份 SQL Server 2000 建表脚本。原文给出了六张表的CREATE TABLE语句，分别是user_Info、student_Info、class_Info、course_Info、gradecourse_Info、result_Info。执行顺序没有强制依赖，但建议按「用户表 → 班级表 → 学生表 → 课程表 → 年级课程表 → 成绩表」来，因为学生表引用了班级号，成绩表引用了学生和课程。
-- 先建班级表，学生表要引用 class_No CREATE TABLE [dbo].[class_Info] ( [class_No] [int] NOT NULL, [grade] [char] (10) COLLATE Chinese_PRC_CI_AS NULL, [director] [char] (10) COLLATE Chinese_PRC_CI_AS NULL, [classroom_No] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] GO -- 再建学生表，class_NO 关联班级 CREATE TABLE [dbo].[student_Info] ( [student_ID] [int] NOT NULL, [student_Name] [char] (10) COLLATE Chinese_PRC_CI_AS NULL, [student_Sex] [char] (2) COLLATE Chinese_PRC_CI_AS NULL, [born_Date] [datetime] NULL, [class_NO] [int] NULL, [tele_Number] [char] (10) COLLATE Chinese_PRC_CI_AS NULL, [ru_Date] [datetime] NULL, [address] [varchar] (50) COLLATE Chinese_PRC_CI_AS NULL, [comment] [varchar] (200) COLLATE Chinese_PRC_CI_AS NULL ) ON [PRIMARY] GO注意COLLATE Chinese_PRC_CI_AS这个排序规则，它决定了中文按拼音排序、比较时不区分大小写。如果目标 SQL Server 实例的默认排序规则不是这个，建表时显式指定能避免中文乱码或排序错乱。执行完脚本后，在Module.bas里找到ConnectString变量，它通常长这样：
' 标准安全连接，需要手动输入账号密码 Public Const ConnectString = "Provider=SQLOLEDB.1;" & _ "Persist Security Info=False;" & _ "User ID=sa;Password=你的密码;" & _ "Initial Catalog=StudentMIS;" & _ "Data Source=127.0.0.1"Provider=SQLOLEDB.1是 SQL Server 的 OLE DB 提供程序，Initial Catalog指定数据库名，Data Source可以是 IP 也可以是(local)。如果本机装的是 Express 版，实例名要写成.\SQLEXPRESS。这一步配错，程序启动就报「连接失败」，但不会告诉你具体哪一项错了，得逐项排查。
2.3 公用模块 ExecuteSQL 的设计意图
Module.bas里的ExecuteSQL函数是整个系统的数据访问层核心。它接收 SQL 语句和一个用于回传消息的字符串变量，返回一个ADODB.Recordset对象。逻辑上分两支：如果语句是INSERT、DELETE、UPDATE，直接Execute不返回记录集；否则Open一个记录集返回。
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset Dim CNn As ADODB.Connection Dim rst As ADODB.Recordset Dim sTokens() As String On Error GoTo ExecuteSQL_Error ' 按空格切分，取第一个词判断语句类型 sTokens = Split(SQL) Set CNn = New ADODB.Connection CNn.Open ConnectString If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then CNn.Execute SQL MsgString = sTokens(0) & " query successful" Else Set rst = New ADODB.Recordset rst.Open Trim$(SQL), CNn, adOpenKeyset, adLockOptimistic Set ExecuteSQL = rst MsgString = "查询到" & rst.RecordCount & "条记录" End If ExecuteSQL_Exit: Set rst = Nothing Set CNn = Nothing Exit Function ExecuteSQL_Error: MsgString = "查询错误:" & Err.Description Resume ExecuteSQL_Exit End Function这里有个设计上的取舍值得说：每次调用都新建连接、用完就关。在单机或小规模局域网里没问题，但如果并发用户多，频繁开关连接开销不小。改进方向是改成全局连接或连接池，但 VB6 时代 ADO 连接池配置比较麻烦，多数课程设计就维持原样。另外adOpenKeyset和adLockOptimistic这两个参数决定了记录集的游标类型和锁模式——Keyset能看到别人修改的数据但看不到新增，Optimistic只在更新时锁记录。对于学籍系统这种读多写少的场景，够用。
3. 把系统跑起来：从建库到登录的完整链路
3.1 环境准备与依赖检查
跑这套东西需要三样：Windows 环境（XP 到 Win10 都能跑，Win11 需要额外处理）、VB6 运行时（如果只运行不编译，装MSVBVM60.dll即可）、SQL Server 2000 或更高版本。SQL Server 2000 在 modern Windows 上安装很折腾，常见做法是用 SQL Server 2008 Express 或更高版本代替，建表脚本基本兼容，但要注意char和varchar的默认长度行为在高版本里没变，可以放心。
VB6 的 IDE 在 Win10 上安装需要绕过一些兼容性检查，网上有现成的安装包整合了 SP6 补丁。如果只是运行编译好的 exe，不需要装 IDE，但压缩包里给的是源码，要改就得装。装完后检查「工程 → 引用」里有没有Microsoft ActiveX Data Objects 2.x Library，没有就手动勾上，否则ADODB开头的类型全部报未定义。
3.2 建库、建表、配连接串
按 2.2 的脚本建完表后，往user_Info表里插一条管理员记录，否则登录界面进不去：
INSERT INTO [dbo].[user_Info] ([user_ID], [user_PWD], [user_Des]) VALUES ('admin', 'admin', '系统管理员') GOuser_ID和user_PWD都是char(10)，不足 10 位会自动补空格。VB 端做密码比对时如果用=直接比，'admin'和'admin '在 SQL 里是相等的（因为 char 补空格），但取出来在 VB 字符串里带尾部空格，用Trim处理一下更稳妥。
连接串改好后，按 F5 运行工程。主窗体是 MDI 类型，菜单栏有「用户管理」「学籍管理」「班级管理」「课程设置」「成绩管理」几项。登录窗口一般在Sub Main或主窗体的Load事件里弹出，输入 admin/admin 应该能进主界面。
3.3 各功能模块的数据流走向
以「学籍管理 → 学籍添加」为例，数据流是这样的：用户在窗体上填入学号、姓名、性别等，点保存按钮，触发cmdSave_Click，拼出一条INSERT INTO student_Info ...的 SQL，调ExecuteSQL，成功则弹提示并清空输入框。查询模块则是拼SELECT ... WHERE student_ID = 'xxx'，把返回的Recordset绑定到MSFlexGrid或DataGrid控件上显示。
成绩管理模块稍微复杂一点，它要同时操作result_Info和student_Info。常见做法是先按学号查学生是否存在，存在再插成绩。这里有个隐患：如果两个操作之间程序崩溃，可能出现学生存在但成绩没写进去的情况。VB6 里可以用BeginTrans/CommitTrans/RollbackTrans包一下，但原代码未必做了，改的时候留意。
班级管理和课程设置模块相对独立，主要是class_Info和course_Info两张表的增删改查。年级课程设置表gradecourse_Info是个关联表，把年级和课程名绑在一起，没有主键约束，意味着同一条记录可以重复插入。如果发现课程列表有重复项，先查这张表。
4. 避坑排查：这套老代码最容易翻车的五个地方
4.1 连接失败但错误信息含糊
现象：程序启动弹「查询错误」，描述只有「无法打开登录所请求的数据库」或类似一句话。原因：ConnectString里的Data Source、Initial Catalog、账号密码任意一项不对，或者 SQL Server 没开 TCP/IP 协议。解决：先在 SSMS 里用同样的账号密码连一次，确认能连上。然后在 SQL Server 配置管理器里检查 TCP/IP 是否启用，端口是不是 1433。如果用的是 Express 版，Data Source写成.\SQLEXPRESS而不是127.0.0.1。
4.2 中文显示成问号或乱码
现象：学生姓名、课程名在界面上显示为???或方块。原因：数据库排序规则不是Chinese_PRC_CI_AS，或者 VB 窗体字体不支持中文。解决：建库时指定COLLATE Chinese_PRC_CI_AS，已经建好的可以改列排序规则。VB 窗体上检查Font属性，确保Charset是134（GB2312），字体用「宋体」或「微软雅黑」。
4.3 编译时报「用户定义类型未定义」
现象：打开工程按 F5，提示ADODB相关类型未定义。原因：工程引用里缺少 ADO 库。解决：菜单「工程 → 引用」，勾选Microsoft ActiveX Data Objects 2.8 Library（或 2.5、2.6，版本号不影响基本功能）。如果列表里没有，说明系统没装 MDAC，装一个 MDAC 2.8 即可。
4.4 查询结果为空但数据库里明明有数据
现象：输入学号查询，提示「查询到 0 条记录」，但 SSMS 里能查到。原因：VB 端拼 SQL 时字符串拼接漏了引号，或者Trim没做导致尾部空格参与比较。解决：在ExecuteSQL调用前把拼好的 SQL 用Debug.Print输出到立即窗口，复制到 SSMS 里执行一遍，看是不是 SQL 本身的问题。常见错误是WHERE student_ID = " & txtID.Text少了单引号，数值型字段倒无所谓，字符型字段必须加。
4.5 多用户同时操作时数据被覆盖
现象：A 用户改了学生信息保存，B 用户几乎同时改同一条记录，后保存的覆盖了先保存的。原因：adLockOptimistic只在更新瞬间锁记录，且没有版本号或时间戳做冲突检测。解决：小规模场景可以接受，真要改的话在表里加一个last_update时间戳字段，更新时WHERE条件带上旧时间戳，影响行数为 0 就说明被别人改过，提示用户刷新重试。
5. 进阶改造：把 ExecuteSQL 换成参数化查询
原代码的ExecuteSQL直接拼 SQL 字符串，学号、姓名这些输入如果带单引号就会把语句截断，轻则查询失败，重则被注入。VB6 里用ADODB.Command做参数化查询并不复杂，改造成本可控。
' 参数化查询示例：按学号查学生 Public Function QueryStudent(ByVal studentID As Long) As ADODB.Recordset Dim cmd As ADODB.Command Dim rst As ADODB.Recordset Set cmd = New ADODB.Command cmd.ActiveConnection = ConnectString cmd.CommandText = "SELECT * FROM student_Info WHERE student_ID = ?" cmd.CommandType = adCmdText ' 创建参数并赋值，adInteger 对应 int 类型 cmd.Parameters.Append cmd.CreateParameter("sid", adInteger, adParamInput, , studentID) Set rst = cmd.Execute Set QueryStudent = rst Set cmd = Nothing End FunctionCreateParameter的五个参数分别是：参数名、数据类型、输入输出方向、大小（变长类型才需要）、值。adInteger对应 SQL Server 的int，如果是char类型就用adChar并指定长度。参数化之后，输入1' OR '1'='1这种字符串会被当成纯文本处理，不会改变 SQL 语义。
改造范围不用一次铺开，先把登录验证和学籍查询这两个入口换掉，其余模块逐步替换。每改一个函数，用原来的测试用例跑一遍，确认返回结果一致。我一般会在Module.bas里保留旧函数改名为ExecuteSQL_Old，新函数叫ExecuteSQL_Safe，方便回滚对比。
另一个值得做的改进是给student_Info表的student_ID加主键约束。原脚本只写了NOT NULL，没写PRIMARY KEY，意味着可以插入重复学号。加上ALTER TABLE student_Info ADD CONSTRAINT PK_student PRIMARY KEY (student_ID)之后，重复插入会直接报错，比在应用层判断更可靠。班级表的class_No、课程表的course_No同理。
从那以后我每次拿到这种老工程，都强制先跑一遍「建库 → 插测试数据 → 逐模块点一遍」的流程，确认基线能跑通再动代码。希望帮到你。
本文还有配套的精品资源，点击获取
