vb吐槽班05 完了，这节目就这么毁了

K：啊。。。这个暑假也完了呐~

G：真快啊，真是烦躁啊，上了年纪以后，一年过得实在是太快了。照这样下去，变成大叔的时候，一年不就像F1赛车从身边开过那样快了么。

K：我还顶得住~

G：不不，其实我老年化的速度已经和本约翰逊跑的一样快了。会来的哦，本。你们不要以为很年轻就沾沾自喜，那样的话，本马上就会来的哦！

K：真的吗，本会来的吗？比起本我更喜欢卡尔呢，那样更有活力~

G：总之，最重要的是又过了一个充实的暑假。。。

某眼镜：喂！！！暑假还没过去啊喂！！！现在才20多号！！！话说怎么又用这个对话来拖时间！！！

G：因为这个是可以整个搬运的桥段嘛。

K：我倒是听说这次是有人请我们来主持节目的呐。

某眼镜：为什么来别的节目还是用拖时间的段子啊！！！

G：真是的，刚刚才拍完剧场版，想着好好要休息一段时间，然后明年的时候再发布会上说：“完结篇什么的是骗人的！银魂动画再开！”一定会有很高的人气的，然后就会有很多赞助，那样我们的预算就不紧张了嘛。

某眼镜：喂！！！不要在这里说那么危险的话啊！！！拜托你们好好主持节目啊喂！！！

G:是~是~这个节目是。。。嗯。。。吐槽班？阿勒？我们什么时候接过这个节目的？还有这个新八唧水平的俗气名字是几个意思？

某眼镜：名字俗气了真是对不起你了。。。什么叫我的水平啊！

K：这个节目是关于什么的呐？

G:诶。。。吐槽班。。。大概就是一边吃东西，一边看看电影这种感觉吧。

K:哦~那我要看小时代~

某眼镜：喂！！！好好看剧本啊！！！还有为什么我这里还是眼镜啊！从上一篇被删掉的草稿我就是眼镜了，给我改成和他们一样啊魂淡！！！

G：按照剧本上写的。。。首先是播出题目。。。

不做死就不会死

G：好！

X：好你个头！！！这个题目不是废掉了吗！和上边的题目都不一样啊喂！！！

G：好了好了~不要在意这些细节嘛，挺好的一个题目人扔掉会浪费的嘛，反正看这个节目的也都是把鼠标“刷~~~”的一下拉到后面，前面这种东西不会有人看的啦~

X：会有人看的哦，真的会有人看的哦，真的真的会有人看的哦。。。

G：然后是。。。复制。。。粘贴。。。

'不做死就不会死

G：哇！字体变了诶！

X：喂！！！好好看剧本！！！这里要是让你粘代码啊！！！话说你对着个题目是有多大的执念啊！！！

K：Gin酱，让我来试试，复制。。。粘贴代码。。。

'代码

X：喂！！！你们纯粹是来捣乱的吧！！！这个节目会停播的！！！会被csdn查水表的！！！

G：吵死了呐，一直都在那里说个不停，有那时间还不快过来帮忙！

        If mrc.RecordCount = 1 Then
        '如果只有一条记录时，删除之后提示，并且使按钮不可用
            mrc.Delete
            
            MsgBox "没有记录",vbOKOnly + vbExclamation,"警告"
            
            txtClassno.Text = ""
            comboGrade.Text = ""
            txtDirector.Text = ""
            txtClassroom.Text = ""
            
            cmdFirst.Enabled = False
            cmdPrevIoUs.Enabled = False
            cmdLast.Enabled = False
            cmdNext.Enabled = False
            cmdUpdate.Enabled = False
            cmdCancel.Enabled = False
            cmdDelete.Enabled = False
            cmdModify.Enabled = False
        End If

K:(⊙o⊙)哦，原来是这个呐~

G：区区新吧唧竟然也懂得这么难懂的东西，果然是Gin桑我教导有方~

X：完全没有一毛钱的关系。。。

G：哦，下面是台词：“在删除之前用Recordcount判断一下是否是最后一条，是就直接删掉，然后锁定下面的按钮。”喂喂。。。哪里有按钮了啊喂，下面的按钮。。。

X：喂！不要按啊，按下去就又会和上次一样删掉草稿的啊！

K：后面还有台词呐。“因为删除后会出现数据为空的情况，所以在载入窗体的时候，也要判断一下是或否为空。”哦~又是粘贴代码呐，这次让我来，一定不会有问题的！

X：让你来才是最大的问题。。。

Private Sub Form_Load()
'载入窗体，使修改不可用，显示第一条数据
    Dim txtsql As String
    Dim Msgtext As String
    
    
    txtClassno.Enabled = False
    comboGrade.Enabled = False
    txtDirector.Enabled = False
    txtClassroom.Enabled = False
    cmdUpdate.Enabled = False
    cmdCancel.Enabled = False
    
    txtsql = "SELECT * FROM class_info"
    Set mrc = Executesql(txtsql,Msgtext)
    
    If mrc.RecordCount = 0 Then
    '如果没有记录，提示并使按钮不可用
        MsgBox "没有记录","警告"
        
        cmdFirst.Enabled = False
        cmdPrevIoUs.Enabled = False
        cmdLast.Enabled = False
        cmdNext.Enabled = False
        cmdUpdate.Enabled = False
        cmdCancel.Enabled = False
        cmdDelete.Enabled = False
        cmdModify.Enabled = False
        Exit Sub
        
    Else
    '显示第一条记录
        mrc.MoveFirst
        Call viewData
        mybookmark = mrc.Bookmark
        mcclean = True
    End If
End Sub

G：好的，还有一段就可以去吃饭了，喂~导演~我的盒饭要鸡腿啊~

X：先把节目主持完啊喂！

K：这个。。。下面是不重复课程。。。

Private Sub cmdAdd_Click()
    Dim Check As Integer
    '检查是否重复
    If listAllcourse.ListIndex <> -1 Then
        For Check = 0 To listSelectcourse.ListCount - 1
        '检查输入的课程是否有重复，如果有提示并退出，没有则添加
            If listAllcourse.List(listAllcourse.ListIndex) = listSelectcourse.List(Check) Then
                MsgBox "课程重复","警告"
                Exit Sub
            End If
        Next Check
        
        listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex) '向课程中添加已经选中的课程
    End If
End Sub

X：啊，学的很快嘛~

G：好的，后面的台词是。。。呃。。。后面的台词呢？剧本到这就没了？

K: 我记得给我们剧本的时候，导演说的是从这里让我们自己发挥的，随随便便的写几句话然后就可以开始播放ED了。

X: 这是什么随随便便的节目。。。话说哪有ED可以播放啊。。。

G：好，既然这样。这期吐槽班就到这里了，欢迎收看，我们是万事屋。。。OK，收工收工，喂，要去哪里领工资啊。啊，对了鸡腿准备好了吧。

K: 我要两个~

X: 完了。。。会被导演追杀的。。。

以上

PS：看不懂的就算了，看代码吧。。。

PS2：致敬最爱的银魂

ps3：今天真的有鸡腿吃哦~~~

PS4。。。

X:有完没完啊喂！！！！