vb敲机房的小问题

一.登录窗体

 

 

?         （1）特殊字符和设置可输入的长度

?                     将登陆窗体的 username的属性中的 MaxLength 改成6 或8或别的来限制你的字符串的长度

?                     （2）写username的登陆 的change 事件 使得当change 事件放生时底下的密码清空

 

 

（3）当然你可以在username 上的ToolTipText 在上面写上你想输入的提醒提示 例如“在此输入卡号“是专门用来提醒的（比如Text1.ToolTipText = " Test"  那么鼠标右下显示Test 
用处很大。。。有些字符太长了不方便输入的时候就用这个。。一些按钮光图片没有文字的时候也可以用这个功能来提示

 

2如果限制自己的用户名只能是汉字则有如下代码

Private Sub txtUserName_KeyPress(KeyAscii As Integer)

          If KeyAscii >= -20319 And KeyAscii <= -3652 Or KeyAscii = 8 Then

          Else

          KeyAscii = 0

          End If

 End Sub

3.限制登录次数

miCount = miCount + 1

    If miCount = 3 Then

    MsgBox "您已经达到用户登录次数上限！", vbOKOnly + vbExclamation, "警告"

         Me.Hide

    End If

    Exit Sub

4.如何实现单击enter时触发command 按钮 代码如下 登录窗体可以用偶

5.记住密码 自动登录

二. 注册窗体中的问题

  1.判断卡号是否已注册 防止二次注册

2.(咱们暂时规定一张卡只能对应一个学生 不考虑 一个学生版多个卡 和一个卡可以被多人使用 因为这样涉及到后期查询结账 暂时不考虑 )

3.注册确定后

?         （1）特殊字符和设置可输入的长度

?                     将登陆窗体的 cardno的属性中的 MaxLength 改成6 或8或别的来限制你的字符串的长度

?                     （2）写cardno的登陆 的change 事件 使得当change 事件放生时 底下的信息清空

  

（3）当然你可以在任何一个 上的ToolTipText 在上面写上你想输入的提醒提示 例如“在此输入卡号“是专门用来提醒的（比如Text1.ToolTipText = " Test"  那么鼠标右下显示Test 
用处很大。。。有些字符太长了不方便输入的时候就用这个。。一些按钮光图片没有文字的时候也可以用这个功能来提示

（4）在单击存盘后 显示注册成功后要清空所有信息内容 点击退出也要清空主要是保护用户的信息的需要

充值窗口

基本用到的和前面注册相同的东西稍微变通就好

退卡

相同的套路需要注意的是卡内余额即返还金额