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

时间:2021-11-14 18:55:54

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

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

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


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


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

    待老夫仔细一看。第一个菜单:添加,修改,退出;第二个菜单:添加,修改,查询;第三个菜单:添加,修改,查询。。。

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

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

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

Sub main()
Dim fLogin As New frmLogin
fLogin.Show vbModal '显示登录窗口,使用户只能使用当前窗体,只有当前窗体关闭后其他窗体才可用

If Not fLogin.OK Then '如果flogin窗体中的ok不为真,结束程序
End
End If

Unload fLogin

Set fMainForm = New frmMain '显示主窗体
fMainForm.Show
End Sub

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

Public Function Testtxt(txt As String) As Boolean
'判断text是否为空
If Trim(txt) = "" Then
Testtxt = False
Else
Testtxt = True
End 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 Recordset

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String '定义一个字符串数组

On Error GoTo ExecuteSQL_Error

sTokens = Split(SQL) '将sql串按空格分成字符串数组
Set cnn = New ADODB.Connection
cnn.Open ConnectString

If 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.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

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

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

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

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

以上