机房收费注册窗

每次开始敲代码后都有一种越敲越想敲的感觉，机房收费系统开始后也一样， 一开始就敲了几个窗体，从里面不光学到了很多新的知识，还回顾了很多以前的东西，以下是注册窗体里面我又一次学习到的东西。

1、连接数据库

可以通过这几行代码 查询、更新、修改、删除数据库里的数据。

Dim txtsql As String
'这种情况说明这个窗体要和数据库进行连接，查询，更新等
txtsql = "select * from student_Info where cardno='" & Trim(txtCardno.Text) & "'"
Set mrc = ExecuteSQL(txtsql, msgtext)

2、注册用户名

新注册的用户名要和数据库里的数据进行比较，如果有相同的数据，则注册不成功。

'判断是否有重复的卡号和学号
    While mrc.EOF = False
        If Trim(mrc.Fields(0)) = Trim(txtCardID.Text) Then
            MsgBox "此卡号已存在，请重新输入！", vbOKOnly + vbExclamation, "警告"
            txtCardID.Text = ""
            txtCardID.SetFocus
            mrc.Close
            Exit Sub
        Else
            If Trim(mrc.Fields(1)) = Trim(txtSTID.Text) Then
                MsgBox "此学号已存在，请重新输入！", vbOKOnly + vbExclamation, "警告"
                txtSTID.Text = ""
                txtSTID.SetFocus
                mrc.Close
                Exit Sub
            Else
                mrc.MoveNext
            End If
        End If
    Wend

3、判断是否为数字

当需要输入数字的时候，会需要进行判断输入数据是否为数字，如果不为数字，则弹窗提醒，文本框清空，重新获得焦点。

'判断输入数据是否为数字
If Not IsNumeric(Trim(Text1.Text)) Then
    MsgBox "卡号必须是数字，请输入数字", vbOKOnly + vbExclamation, "警告"
    Text1.Text = ""
    Text1.SetFocus
End If

'记录输入次数，超过三次自动关闭窗体
Dim micount  As Integer

    micount = micount + 1
    If micount = 3 Then
        'me.hide
        Unload Me
    End If

对于vb和数据库的学习我的认识不是很深，需要投入更多的精力和时间去了解他们，继续加油！