【机房收费系统】关闭提醒与清空数据，显示条数

                       在不断的探索中进步！

            一、关闭窗体时的提醒

 

                     为了用户更友好，我也想实现在关闭系统时，会弹出一个提示的界面，以免用户误关，丢失数据。

                     于是，我发现，我不会写点击右上角关闭按钮的代码，查了之后发现，原来道理都一样。

                     

<span style="font-size:24px;"><span style="font-size:24px;">    Private Sub MDIForm_Unload(Cancel As Integer)
    
    If MsgBox("确定要退出吗?", vbInformation + vbYesNo, "机房收费系统") = vbYes Then
        Cancel = False
        End
    Else
        Cancel = True
    End If
    
    End Sub</span></span>

               又学会了一招，本来，我写的是form_unload，但是没成功，我想起来老师说的话，计算机的优点是可以随便改，也不怕出错，于是，我便大胆的改了起来，把form 改成了MDIform,这便可以了。

        二、删除一个数据库表的所有数据

              

 <span style="font-size:24px;">Do While Not mrc.EOF
 
    mrc.Delete
    mrc.Update
    mrc.MoveNext   '这里的movenext 一定要有，是防止OLEDB多步操作错误的方法
 Loop</span>

    

          这里，用了一个循环语句，就是把这个数据库mrc的数据全部删除，如果想删除某一个具体的数据，可以在select * from basicdata_info where cardno=' " &　trim(text1.text) &　 " ' 

             

           三、显示数据库表中共有几条数据

  

    txtSQL = "select count(*) as s from online_info"
    Set mrc = ExecuteSQL(txtSQL, msgText)
    
    lblPeople.Caption = mrc.Fields("s").Value
    mrc.Close

              这段代码，就是在显示“当前上机人数”的count的原理。