诶，好的好的，今天依旧是我给大家带来大型情感类电脑连续节目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

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

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,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语句则返回一个结果集。其实我注释写得还是够清楚的嘛╮(╯▽╰)╭

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

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

以上