机房收费系统——优化中的部分内容

修改密码

修改密码流程为旧(新)密码是否输入,旧密码是否正确,修改密码并退出当前登录,注意密码的输入不能是特殊字符之类的,然后旧密码不能与新密码一致,限制一下输入长度,就可以了,重点是搞一搞怎么让他修改完了退出当前系统,然后进入登录界面重新登录,其实也挺简单的,加一段代码:

Dim frm As Form

For Each frm In Forms

If frm.Name<> "Login" Then

Unload frm

Login.Show

End If

Next

我的登录窗体名称为“Login”,很简单,就不用解释了吧。将代码放到修改密码后的位置,就可以在修改完密码以后直接退出系统然后直接到登录窗口了。

 

限制文本框输入内容为数字

其实一开始的时候我是这样限制的

If KeyAscii < 48 Or KeyAscii > 57Then

       KeyAscii = 0

End If

但是问题出现了,此时输入了以后无论是回车还是退格或者其他,都不能运行,只能输入数字,连回删都不行,所以有了第二种优化,跟这个类似,如下

If KeyAscii = 8 Then Exit Sub

    Select Case KeyAscii

    Case 48 To 57, 8, 13

    Case Else

        KeyAscii = 0

End Select

这样就可以用了

 

限制文本框的输入长度

讲文本框的maxlenght属性修改为想要的长度就可以了,想要最大输入多少,就限制为多少

 

让Combo 显示一个默认项

首先修改 combo的 style属性为2,然后对窗体加载事件中添加如下代码

Combo1.Text = Combo1.List(0)

因为我是代码添加的combo下拉选项,所以这里面肯定是有第一项的,第一项默认为0,如果想要显示的是第二项就将0改为1就可以了,以此类推

 

输入的时候就判断卡号是否可用

对输入框添加KeyUp事件,即可即时显示卡号是否可用。

Private Sub cardno_KeyUp(KeyCode As Integer, Shift As Integer)
    If Keyascii = 8 Then Exit Sub
    Select Case Keyascii
    Case 48 To 57, 8, 13
    Case Else
        Keyascii = 0
    End Select
    
    Dim txtSQL, MsgText As String
    Dim mrc As ADODB.Recordset
    
    txtSQL = "select * from student_Info where cardno='" & Trim(cardno.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If mrc.EOF Then
        Label1.Caption = "卡号可以使用"
    Else
        Label1.Caption = "卡号不可用"
    End If
    
End Sub


文本框的换行显示

按照下面这个代码的格式写就行

Text1.Text = "abc"   &   vbCrLf   &   "123"

比如我要显示如下内容

姓名:甲乙丙

性别:男

就可以这样写

Text1.Text = "姓名:"  &  “甲乙丙”

Text1.Text = Text1.Text   &  vbCrLf   &   “性别:”   &  “男”

 暂时就先放上来这些,总结一下,其实对于控件的优化也不难,网上都有,而且机房里面有很多都是重复的,(不过可以增加自己的熟练度),我只是把这些东西收集整理了一下而已。

评论 15
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值