计算机专业毕业设计—351个VB管理系统源码打包(计算机专业整理)

这是一份包含351个使用VB和ACCESS开发的管理系统的源码集合,覆盖了学籍、成绩、图书馆、宿舍、人事、工资等多个领域的应用,适合计算机专业毕业设计参考。
摘要由CSDN通过智能技术生成

VB+ACCESSVCD租借管理系统(系统+论文+需要分析).rar
VB+ACCESS大型机房学生上机管理系统(源代码+系统).rar
vb+access大气污染模型(系统+翻译+论文+开题).rar
VB+ACCESS学校教师考核管理系统(论文).rar
VB+ACCESS学校田径运动会管理系统设计(源代码+系统+答辩).rar
VB+ACCESS学生信息管理系统(源代码+可执行程序+开题报告+论文+答辩PPT).rar
VB+ACCESS学生信息管理系统(论文).rar
VB+ACCESS学生公寓管理系统(源代码+系统).rar
vb+access学生公寓管理系统(论文+系统).rar
VB+ACCESS学生学籍管理信息系统(论文).rar
vb+access学生学籍管理系统(系统+论文).rar
vb+access学生学籍管理系统(系统+论文+摘要与目录+实习报告).rar
VB+ACcess学生成绩管理系统(开题报告+答辩PPT+论文+系统).rar
VB+ACcess学生成绩管理系统(论文+系统+答辩PP).rar
VB+ACCESS学生档案管理系统(论文).rar
vb+ACCESS学生档案管理系统(论文+源代码).rar
VB+access学生管理系统(论文+系统).rar
vb+access学籍管理系统(系统+论文).rar
vb+access学籍管理系统.rar
VB+ACCESS宾馆客房管理系统(系统+论文+封面).rar
VB+ACCESS小区物业管理系统(源代码+系统).rar
vb+access小区物业管理系统(系统+论文).rar
vb+access就业服务和失业保险管理(系统+论文+答辩PPT).rar
vb+access工资管理系统(程序+论文+封面+开题报告).rar
vb+access工资管理系统(系统+答辩PPT+论文+开题报告+外文翻译).rar
vb+access工资管理系统(论文+程序+开题报告+外文翻译+答辩PPT).rar
VB+access干部档案管理系统(源代码+系统).rar
vb+access库存管理系统(论文+开题报告+源代码+目录).rar
VB+access成绩分析统计系统(论文+源代码).rar
VB+ACCESS户籍管理系统(论文+系统).rar
vb+access抽奖系统(系统+论文+开题报告+外文翻译+封面+中英摘要+任务书+中期检查表).rar
VB+ACCESS教学管理系统(论文+系统).rar
vb+ACCESS教师管理系统设计(论文+源代码).rar
VB+access教师考核管理系统(系统+论文+答辩PPT+摘要).rar
VB+access文档管理系统(系统+开题报告+论文+答辩).rar
VB+ACCESS智能公交考勤系统管理软件设计(论文).rar
VB+access智能排课系统(源代码+可执行程序+4万字论文+答辩PPT).rar
VB+ACCESS服装专卖店管理系统设计(源代码+系统+开题报告+答辩PPT).rar
VB+ACCESS汽车租凭管理系统(论文+系统).rar
VB+ACCESS汽车销售系统设计与实现(源代码+系统+答辩PPT).rar
VB+access班主任管理系统(系统+论文+任务书+摘要+封面).rar
VB+ACCESS班级管理系统(源代码+可执行程序+论文+开题报告+外文翻译+答辩ppt).rar
VB+ACCESS电脑租赁系统设计(源代码+系统).rar
VB+ACCESS电脑销售系统(源代码+系统).rar
vb+access电脑销售系统(论文+系统).rar
VB+access电表管理系统(系统+论文+参考文献).rar
VB+ACCESS电话语音应答系统设计(源代码+系统).rar
VB+access综合人事管理系统的设计与实现(论文+系统+开题报告+答辩PPT+摘要及目录).rar
VB+ACCESS网吧计费系统(源代码+系统).rar
VB+ACCESS网络计时管理系统设计(源代码+系统).rar
vb+access职工工资管理信息系统(系统+开题+论文+任务书).rar
VB+ACCESS自动组卷系统(源代码+系统).rar
VB+ACCESS药品供销存贮系统(源代码+系统+开题报告+外文翻译+英文文献+答辩PPT).rar
VB+access药品供销存贮系统(系统+封面+开题报告+论文+任务书+答辩PPT+外文文献+中文翻译).rar
VB+ACCESS计算机等级考试管理系统(源代码+系统+答辩PPT).rar
VB+ACCESS超市管理系统设计(源代码+系统).rar
vb+ACCESS身份证管理系统设计(论文+源代码).rar
VB+Access酒店客房管理系统(源代码+论文+开题报告+任务书).rar
VB+Access酒店客房管理系统(论文+系统+开题报告+摘要+任务书).rar
VB+ACCESS酒店服务管理系统(论文+系统).rar
vb+access酒店管理信息系统(论文+系统).rar
VB+ACCESS采购管理系统开发(论文+系统&#

vb学生管理系统源代码 部分代码 Public UserName As String Public txtSQL As String 'use to store record SQLsentence Public dream As ADODB.Recordset 'use to store record object Public Msgtext As String '用来存放返回信息 Public OK As Boolean ' 'Public db As String Public Sub highlight() With Screen.ActiveForm If (TypeOf .ActiveControl Is TextBox) Then .ActiveControl.SelStart = 0 .ActiveControl.SelLength = Len(.ActiveControl) End If End With End Sub Sub Main() 'Dim Login As New Login 'Login.Show vbModal 'f Not Login.OK Then 'Login Failed so exit app ' End 'End If 'Unload studentmdi ' Set login = New login login.Show End Sub Public Function connectstring() As String connectstring = "Provider=Microsoft.jet.OLEDB.3.51;Data source=f:\schoolgroup\school.mdb" End Function 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.ExecuteSQL 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 Public Function Testtxt(txt As String) As Boolean If Trim(txt) = "" Then Testtxt = False Else Testtxt = True End If End Function
评论 3
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

tigerups

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值