VB怎么设计出一个登陆系统

答案:3 悬赏:80 手机版

解决时间 2021-08-20 09:25

提问者网友：我是我
2021-08-19 12:41

在VB怎么设计出一个登陆系统。可以用的，要详细的过程，最好有实际操作的录像，还用代码也要发过来我的邮箱地址：qingxie.45du@qq.com

最佳答案

五星知识达人网友：傲气稳了全场
2021-08-19 13:04

你好！

请问你是否要一个登陆的窗口呢

如果是的话，我这里刚好有一个自己编的

绝对能用！

全部回答

1楼网友：詩光轨車
2021-08-19 14:56

登录程序，带检测用户信息和过期时间信息的

Dim rs As New ADODB.Recordset Dim txtsql As String Private Sub Command1_Click() rs.Open "SELECt *From [user] WHERe yonghuming = '" & Txtuser.Text & "'", mrc, adOpenStatic mingzi = rs.Fields(0) If rs.EOF Then MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告" Txtuser.SetFocus Exit Sub rs.Close: Set rs = Nothing Else If Trim(rs.Fields(1)) = Trim(Txtpwd.Text) Then Me.Hide Dim a As String Dim b As String ' a = GetSetting "gongzi","sysj" If DateDiff("d", GetSetting("gongzi", "sysj", "kssj"), GetSetting("gongzi", "sysj", "jssj")) > 30 Then MsgBox "已经过期，请注册", vbYesNo Exit Sub Else MsgBox "您以经使用" & DateDiff("n", GetSetting("gongzi", "sysj", "kssj"), GetSetting("gongzi", "sysj", "jssj")) & "分钟", vbOKOnly main1.Show End If rs.Close: Set rs = Nothing Else MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告" Txtpwd.SetFocus Txtpwd.Text = "" Exit Sub End If End If Exit Sub rs.Close Set rs = Nothing End Sub

2楼网友：归鹤鸣
2021-08-19 13:21

如果没有验证码，就很好处理！

看你是想要什么方式的了是WEB方式

还是EXE方式

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息