| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1148 人关注过本帖
标题:求助有关登录界面
只看楼主 加入收藏
luckwurr
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2006-10-13
收藏
 问题点数:0 回复次数:6 
求助有关登录界面
能不能帮我用VB写一个这个程序啊,
我弄了好久了,还是写不出来哦
请编写一个程序模仿一个登录的过程。要求如下:
(1)开始时显示一个“登录”对话框让用户输入账号和口令。
(2)单击“确定”按钮时验证口令的正确性,如果正确则关闭“登录”对话框并打开程序的主窗口,否则应该做出提示。
(3)最多只允许用户输入3次口令。
(4)允许用户取消登录。
(5)成功登录后在主窗口的标题栏中添加显示用户的账号和登录的日期和时间。

急用..........
搜索更多相关主题的帖子: 界面 对话框 口令 账号 
2006-10-13 14:14
qlyk
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2006-9-11
收藏
得分:0 

这是我半年前写的,与你想要的程序功能差不多,没加注释不好意思,你在自己改一改吧,希望对你有启发
Dim m_m
Private tc As Integer
Private tc1 As Integer
Private a As Integer
Dim t1, t2 As Integer
Option Explicit

Private Sub Combo1_Click()
If Combo1.ListIndex <> -1 Then
Text1.Enabled = True
Text1.SetFocus
Text1.BackColor = &H80000005
Command1.Enabled = True
Timer3.Enabled = False
Else
Label2.Caption = "请选择一个用户"
End If
m_m = Combo1.Text
End Sub

Private Sub Command1_Click()
If a < 2 Then
If (Combo1.ListIndex = 0 And Text1.Text = "3698") Or (Combo1.ListIndex = 1 And Text1.Text = "1228") Then

Unload srkl
Load Form1
Form1.Show

Form1.Label20.Caption = m_m
Else
Label2.Visible = True
Label2.Caption = "口令错误,重新输入!!"
Text1.Text = ""
Text1.SetFocus

End If
Else
Command1.Enabled = False
tc = 1
tc1 = 11
Text1.Locked = True
Timer2.Enabled = True
Text1.Alignment = 2
Text1.ForeColor = RGB(255, 0, 0)
Text1.Text = ""

End If
a = a + 1
Label4.Caption = 3 - a
If a = 3 Then
Label2.Visible = True
Label2.Caption = "你是非法用户,不能使用此程序!!"
Text1.PasswordChar = ""
Text1.SetFocus
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Activate()
Load srkl

Combo1.SetFocus
Timer3.Enabled = True
t1 = Second(Time)
t2 = t1 + 5
End Sub

Private Sub Timer1_Timer()
Label6.Caption = "时钟 " & Time '& ":" & Right(Timer, 2)
End Sub

Private Sub Timer2_Timer()
Text1.Text = tc1 - tc & "秒后自动退出"
tc = tc + 1
If tc1 - tc = -1 Then End
End Sub

Private Sub Timer3_Timer()
Dim t3 As Integer
t3 = t2 - t1
If t3 = 5 Then
Label8.Visible = False
Label9.Visible = False
Label10.Visible = False
Label11.Visible = False
Label12.Visible = True
End If
If t3 = 4 Then
Label8.Visible = False
Label9.Visible = False
Label10.Visible = False
Label11.Visible = True
Label12.Visible = False
End If
If t3 = 3 Then
Label8.Visible = False
Label9.Visible = False
Label10.Visible = True
Label11.Visible = False
Label12.Visible = False
End If
If t3 = 2 Then
Label8.Visible = False
Label9.Visible = True
Label10.Visible = False
Label11.Visible = False
Label12.Visible = False
End If
If t3 = 1 Then
Label8.Visible = True
Label9.Visible = False
Label10.Visible = False
Label11.Visible = False
Label12.Visible = False
t2 = t1 + 5
End If
t2 = t2 - 1
End Sub


锦上添花不如雪中送炭!! (完全自学,有不当之处敬请指正)
2006-10-13 15:03
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
..好像差很多吧...

我的msn: myfend@
2006-10-13 16:10
qlyk
Rank: 1
等 级:新手上路
帖 子:25
专家分:0
注 册:2006-9-11
收藏
得分:0 
我是自学的,这段是刚接触VB时写的,现在自己看着都头痛,有很多没用的代码可以用函数实现,没办法,当时写的时候只是为了实现一些功能,而且对VB一点也不懂,是一边翻书一边写的,呵呵

锦上添花不如雪中送炭!! (完全自学,有不当之处敬请指正)
2006-10-13 16:17
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 

我大概的写了一下...你自己去完善吧...数据库中的密码最好是先加密.....可以自己写一个算法来对密码加密..这样比较安全..
基本思路如下...

Option Explicit

Private Lobool As Boolean
Private Conn As ADODB.Connection
Private Rst As ADODB.Recordset
Private LoginingNumber As Integer

Private Sub Command1_Click()

If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then
MsgBox "请输入内容"
Exit Sub
End If
Call SettextBox(True)
If Lobool = False Then
Exit Sub
End If

Dim sql As String
sql = "Select User_Name,User_Password From User_Login Where User_Name ='" & Text1.Text & "' And User_Password = '" & Text2.Text & "'"
Set Rst = Conn.Execute(sql)
If (Rst.RecordCount > 0) Then
Rst.Close

MsgBox "登录成功"
Form2.Show
Else
Rst.Close
MsgBox "登录失败"
LoginingNumber = LoginingNumber + 1
End If

If (LoginingNumber > 3) Then
MsgBox "你没有使用权了,请与管理员联系"
End
End If
End Sub

Private Sub SettextBox(ByVal txtbool As Boolean)
If txtbool Then
If (Text2.Text <> Text3.Text) Then
MsgBox "两次密码不相同.请重新输入密码."
Lobool = False
Else
Lobool = True
End If
Else
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Call SettextBox(False)
Dim ConStr As String
ConStr = "Provider=Microsoft.Jet.OleDb.4.0;Data Source =" & App.Path & "\Login.mdb"
Set Conn = CreateObject("ADODB.Connection")
With Conn
.ConnectionString = ConStr
.CursorLocation = adUseClient
.Open
End With
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set Conn = Nothing
Set Rst = Nothing
End Sub

XfL6uQDg.rar (9.14 KB) 求助有关登录界面



我的msn: myfend@
2006-10-13 16:52
zmetero11
Rank: 1
等 级:新手上路
帖 子:123
专家分:0
注 册:2006-2-5
收藏
得分:0 
我说这个问题用不着拿在网上来问吧

黑色的羽翼笼罩与夜月中,守护...不变<-\^/
2006-10-13 22:56
purana
Rank: 16Rank: 16Rank: 16Rank: 16
来 自:广东-广州
等 级:版主
威 望:66
帖 子:6039
专家分:0
注 册:2005-6-17
收藏
得分:0 
人家..不懂就来问呗....

我的msn: myfend@
2006-10-14 09:40
快速回复:求助有关登录界面
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017063 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved