菜鸟也能飞之系统整体构架

最新推荐文章于 2024-12-23 13:29:59 发布

最新推荐文章于 2024-12-23 13:29:59 发布 · 87 阅读

文章标签：

#数据库

1用户名登录

既然是用户名登录定要用到了数据库查询，但是查询语句出错了，不仅仅是没有数据，直接的后果就是系统的报错瘫痪，还没登录进去你的系统就不能用了，这肯定不行。所以程序员要事先想到一切可能发生的情况，确保软件的正常使用，也就是说软件的容错性要好

结合SQL查询语句，如果避免了“'”和“=”，这些符号会直接造成语句的不正确，提示错误信息

Private Sub txtUserName_KeyPress(KeyAscii As Integer)  

    Dim s As String  

    Dim i As Integer  

    For i = 1 To Len(txtUserName.Text)  

        s = Mid(txtUserName.Text, i, 1)  

        If s Like "'" Or s Like "=" Then  

            txtUserName = Replace(txtUserName.Text, s, "")  

        End If  

    Next  

end sub

2密码控制

除了和用户名的基本限制相同的之外，就是还要考虑不要输入中文，一般都是大小写字母（区别大小写），数字，一些特殊符号。

不过要有位数的限制，这是一个很通有的报错点。

3小数输入

一开始，只想着限制只能输入数字，可是后来想到，如果分数是小数了，那怎么办呢，所以这个小数是一定要有的，那么怎么限制小数呢。小数点后限制一个小数。

方法

Private Sub txtCash_Change()  

    Dim S As String  

    Dim x() As String  

          If (IsNumeric(txtCash.Text)) Then  

            x = Split(txtCash.Text, ".")  

            If (UBound(x) >= 1) Then  

                    If (Len(x(UBound(x))) > 1) Then  

                            txtCash.Text = S  

                            txtCash.SelStart = Len(txtCash.Text)  

                    End If  

            End If  

    End If  

    S = txtCash.Text  

End Sub