VB万能模板

添加新纪录

rst.AddNew
rst.Fields(0)=trim(text1.text)     ’把文本框内容赋值给字段
rst.Fields(1)=trim(text2.text)
rst.update                         ’结果集更新
ok=true
rst.close                           ’关闭连接
msgbox"添加成功"                     ’添加成功

如何判断输入的日期格式是否正确

If Not IsDate(txtDate.Text) Then
    Msgobx"请输入yyyy-mm-dd格式的日期",0+1,"温馨提示"
    txtDate.Text = ""
    txtDate.SetFocus
End If

如何判断出生日期是否早于入学日期

Private Sub txtInDate_Change()
    If IsDate(Trim(txtInDate.Text)) And IsDate(Trim(txtBirDate.Text)) Then
        if CDate(Trim(txtInDate.Text)) < CDate(Trim(txtBirDate.Text)) Then
            MsgBox"入校日期要晚于出生日期",0+1,"温馨提示"
            txtInDate.Text = ""
            txtBirDate.Text =""
            txtInDate.SetFocus
            txtBirDate.SetFocus
            Exit Sub
        End If
    End If
End Sub

如何判断与数据库数据是否重复

'此处判断学号
 
If Not rst.EOF Then
    MsgBox"已存在此学号，请重新输入",0+1,"温馨提示"
    txtid.Text = ""
    txtid.SetFocus
End If

如何判断输入内容是否是数字


’此处以判断输入的年龄为例
 
If Not IsNumeric(txtAge.Text) then
    Msgbox"您输入的年龄不是数字，请重新输入！",0+1,"温馨提示"
    txtAge.Text=""
    txtAge.SetFocus
End If

如何让文本框只能输入数字

‘此处以判断输入的学号为例
 
Private Sub txtid_KeyPress(KeyAscii As Integer)
    If KeyAscii <> 8 And (KeyAscii < 48 Or KeyAscii > 57) Then
    KeyAscii = 0
        MsgBox"您输入的不是数字，请重新输入",0+1,"温馨提示"
        txtid.Text=""
        txtid.SetFocus
    End If
End Sub
 
 
'在Ascii码表中，Ascii值48-57为阿拉伯汉字0-9，如果用户输入的内容超过了这几个值，则提示错误信息
’在Ascii码表中，码值为8的表示退格键

如何限制文本框输入内容的字符长度


'此处以判断输入的用户名为例
 
If Len(txtUser.Text) > 5 Then
    MsgBox"字符长度过长！",0+1,"温馨提示"
    txtUser.Text=""
    txtUser.SetFocus
    Exit Sub
End Sub

如何使文本框只能输入汉字


'此处以判断输入的姓名为例
 
Private Sub txtUser_Keypress(Keyascii As Integer)
    If Keyascii >= -20319 And KeyAscii <= -3652 Or keyascii =8 then
    Else
        keyascii = 0
        MsgBox"您输入的不是汉字，请重新输入！",0+1,"温馨提示"
    End If
End Sub

说明：在Key ASCII中，-20319到-3652为汉字输入范围，码值8为backspace为退格键

'如果用户执行的是汉字键盘，且退格键，则输入有效，否则，输入无效

如何将从数据库检索到的数据显示在文本框中

说明：使用窗体加载事件，连接数据库，将数据表中的字段赋值给文本框

Private Sub Form_Load()
    Dim txtSQL, msgText As String
    
    txtSQL = "select * from student_Info"     '连接数据库，执行SQL语句
    Set rst = ExecuteSQL(txtSQL, msgText)    
    rst.MoveFirst                             ’将指针放在结果集第一个记录
    
    txtuser.Text = rst.Fields(0)              '数据表的第一个字段赋值txtuser文本框
    txtid.Text = rst.Fields(1)
    txtAge.Text = rst.Fields(2)
    txtAddr.Text = rst.Fields(3)
End Sub

如何文本框中的数据处于不能编辑状态

Private Sub Form_Load()
    txtUser.Enabled = False
    txtid.Enabled =False
    txtAge.Enabled = False
    txtaddr.Enabled = False
End Sub

如何让下拉框中为数据表制定的字段

说明：此处为加载班级表中，班级编号字段，使用Do While...Loop循环语句

txtSQL="select * from 班级表 "
Set rst = ExecuteSQL(txtSQL, msgText)
Do While Not rst.EOF
    Combo1.AddItem rst("班级编号_Type")
    rst.MoveNext
Loop
    rst.Close

如何限制密码输入次数

方法一：当用户密码输入错误超过3次，则退出窗体

Private Sub Command1_Click()
Dim i As Integer
i = i + 1
If i = 3 Then
    Me.Hide
End If

方法二：每输入错误一次就提示

Private Sub Command1_Click()
Dim i As Integer
    i = i + 1
    if i = 1 Then
        MsgBox "很抱歉，您的密码输入错误，还有2次机会哦~",0+1,"温馨提示"
        txtpassword.Text = ""
        Exit Sub
    End If
    
    If i = 2 Then
        MsgBox "很抱歉，您的密码输入错误，还有1次机会哦~",0+1,"温馨提示"
        txtpassword.Text = ""
        Exit Sub
    End If
    
    If i = 3 Then
        MsgBox "很抱歉，您的密码输入错误，还有0次机会哦~",0+1,"温馨提示"
        txtpassword.Text = ""
        Exit Sub
    End If
End Sub

重在多练习，多用于实际操作中，效果更佳！

猜你喜欢