vb吐槽班02 不要以为学生信息管理系统很难啊魂淡！

诶，好的好的，今天依旧是我给大家带来大型情感类电脑连续节目vb吐槽班，我们依旧是吐的飞起，感觉好恶心。。。

自从上次在csdn发过博客之后，一直生活在水深火热的预习专业课的生活中，毕竟考试不能总靠别人是吧，小抄还是要做好的，当然也还是要贯彻落实“胆大心细不要脸，能瞟一眼是一眼”的伟大方针。说到这个考试呢，不得不吐槽一下：上课真是太TM耽误学习了！

也是到了暑假了啊，学校终于是没啥事了，不耽误我们学习了，我这俩月没登csdn密码都差点忘了。。。最近终于是勉强赶上了大部队的脚步，莫名其妙的做完了这个学生信息管理系统。按照国际惯例，搞定了之后要做个总结，so

不要以为学生信息管理系统很难啊魂淡！

一开始拿到源码的时候，我累个大擦啊，毛线一样多的窗体啊，米导演，我是不是走错片场了啊喂！

待老夫仔细一看。第一个菜单：添加，修改，退出；第二个菜单：添加，修改，查询；第三个菜单：添加，修改，查询。。。

诶，原来都差不多嘛╮(╯▽╰)╭

其实拿到了之后仔细看了看每一个窗体，大概都是差不多的代码，差别也就是有的地方用不同的方法达到相同的效果。

最难的地方我认为就是这个模块了，好吧，为了能仔细讲解一下这些代码，我就拆开了写了啊。（你就想多凑几篇博客数吧-_-）

Sub main()Dim fLogin As New frmLoginfLogin.Show vbModal  '显示登录窗口，使用户只能使用当前窗体，只有当前窗体关闭后其他窗体才可用If Not fLogin.OK Then '如果flogin窗体中的ok不为真，结束程序EndEnd IfUnload fLoginSet fMainForm = New frmMain '显示主窗体fMainForm.Show
End Sub

首先这个sub main（），我在注释里面也写了，目的就是为了只显示登录窗体。好吧，其实我想说直接将启动对象设置为登录窗体，也就是frmLogin也可以的，只不过还要在里面加一些代码，那啥我就不写了。。。

Public Function Testtxt(txt As String) As Boolean
'判断text是否为空If Trim(txt) = "" ThenTesttxt = FalseElseTesttxt = TrueEnd If
End Function

然后是这个东西，注释里面也写了，这个函数只是为了检验textbox是否为空，其实也可以直接用trim（txt）是否为空来判断，定义一个函数一是为了方便一些吧。

Public Function ConnectString() As String'方法一ConnectString = "FileDSN=student.dsn;UID=sa;PWD=123456;Server = 192.168.1.1;persist security info=False" '方法二'ConnectString= "Provider=SQLOLEDB;UID=sa;PWD=123456;Initial Catalog=student;Data Source=192.168.1.1"
End Function

接下来是连接数据库的函数，上期吐槽班也是讲过了两种连接方式，具体链接到局域网中的SQL Server的服务器也只是在各自的代码中加了IP地址。当然你要先在服务器端开启远程连接的服务。

Public Function ExecuteSQL(ByVal SQL As String, Msgstring As String) As ADODB.Recordset'执行SQL语句，返回一个结果集'executes SQL and returns RecordsetDim cnn As ADODB.ConnectionDim rst As ADODB.RecordsetDim sTokens() As String     '定义一个字符串数组On Error GoTo ExecuteSQL_ErrorsTokens = Split(SQL)         '将sql串按空格分成字符串数组Set cnn = New ADODB.Connectioncnn.Open ConnectStringIf InStr("INSSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then      '如果第一个单词的大写是INSSERT,DELETE,UPDATE。即非select语句cnn.Execute SQL                                             '执行SQL语句Msgstring = sTokens(0) & "query successful"Else                                                            'SELECT语句Set rst = New ADODB.Recordsetrst.Open Trim$(SQL), cnn, adOpenKeyset, adLockOptimisticSet ExecuteSQL = rstMsgstring = "查询到" & rst.RecordCount & "条记录"End IfExecuteSQL_Exit:Set rst = NothingSet cnn = NothingExit FunctionExecuteSQL_Error:Msgstring = "查询错误:" & Err.DescriptionResume ExecuteSQL_ExitEnd Function

最难的部分也就是这个函数了，容我喝口热翔，回来继续。。。

一时间不知道从哪说起了，直接简述一下这个函数的功能吧。首先就是按照注释上写的，将接受的文本格式的SQL语句按照空格分组，然后对第一个数组的数据进行判断，如果是非SELECT语句则直接执行，如果是SELECT语句则返回一个结果集。其实我注释写得还是够清楚的嘛╮(╯▽╰)╭

哇，一个模块我都能写这么多！我就不说我把代码全粘过来了。。。

剩下的窗体啥的，我就下期继续了~

以上

vb吐槽班02 不要以为学生信息管理系统很难啊魂淡！相关推荐

【VB】学生信息管理系统1——系统设计怎样开始？
历时两周完成用VB完成的学生信息管理系统.从刚开始只会敲好玩的小程序到现在完整的做出一个像样的系统.自己的编程思维进行了很大的跨越. 这次的学生信息管理系统让我从整体的角度看到了一个系统设计的过程. ...
【VB】学生信息管理系统问题总结
在学生信息管理系统的调试中,我遇到的问题如下. 一.SQL注入. 进入管理系统时,相信大家都会遇到SQL注入问题. 在用户名前面加上一个 ' ,就会提示错误,这个错误就是SQL注入.我是这样解决的. ...
【VB】学生信息管理系统5——数据库代码
这次学生信息管理系统在代码的理解过程中遇到了一些问题.总结如下: 1. sql server的安装过程各个步骤的意思.在安装SQL Server的时候按照网上的步骤,我觉得这个需要学完整个数据库再返回 ...
【VB】学生信息管理系统4——数据库的发展
由于连接数据的时候出现了很多不懂得问题,为什么要连接,它是怎么连接的,查着查着,就越看越多.又不舍得就这么放过这些问题,所以就耐心看看究竟是怎么回事! 1.自从出现数据库,人们渴望用数据和应用程序做交 ...
【VB】学生信息管理系统2——窗体设计
这次学生系统是照着书敲的,先敲完然后开始调试!中途遇到了很多问题,查了很多,这里不容易系统的总结!所以就针对各个问题,各个击破! 问题一:VB 6.0中,状态栏控件(sbstatusbar):右击选项 ...
vb与数据库（二）之迟到的学生信息管理系统总结
学生信息管理系统是在7月27号结的项目,结项目时自己就计划写一篇总结于是当时就开了个头,然后将其存入草稿箱,计划是将其完善再发表,结果一拖就拖到现在(拖拉不是病,拖起来要了命!!!). ...
学生信息管理系统（VB 干货篇三）
引言最近一直在学生信息管理系统徘徊不前,不敢进入机房.分析其主要原因是之前的知识学的有点Low,不敢前进,怕进到机房也是停着,所以一直徘徊在这里.因此最近总结了很多VB中的基础知识.比如:常用的函数 ...
查询同时选修了01课程和02课程的学生信息及相关课程成绩
要查询同时选修了"01"课程和"02"课程的学生信息及相关课程成绩,需要进行以下步骤: 查询选修了"01"课程的学生信息,得到这些学生的学号 ...
【VB】学生信息管理系统3——连接数据库的前提
在窗体设计和编写程序代码后,需要进行数据库的连接. 大概要做的:下载安装数据库--配置数据源ODBC--测试连接数据库--进行数据库中内容的添加. 关键是这些我都不会,这才是重点! 在学习数据库的过程 ...

vb吐槽班02 不要以为学生信息管理系统很难啊魂淡！

vb吐槽班02 不要以为学生信息管理系统很难啊魂淡！相关推荐

最新文章

热门文章