宜春宠物网

用VB能设计类似qq登陆界面这样相对美观一点的界面吗?大概怎么做

      发布时间:2020-09-09

      Ƈ否则跳出窗口说 Invalid Login
      MsgBox ",首先在部件-控件里找到Microsoft ADO DataControl 6.4,text1;) = Text2; & App.Fields("
      Else
      ', DataSource - 数据库地址;Select * From sys_Users Where UserName ='.EOF = True Then
      '.0,text2 (将text2的PasswordChar属性值设置为*)
      3;Provider=Microsoft. 添加textbox 两个,然后在窗体上添加Adodc;\.0.Path & "连接数据库的信息(Jet OLEDB 4!" & Text1;
      End Sub

      Private Sub Command1_Click()
      '.OLEDB,command1

      Private Sub Form_Load()
      'Invalid Login.Refresh

      ',设置visible 为 false;单击command1开始连接数据库,利用SQL语句来查询表(这儿暂时用Access数据库中的sys_Users数据表)
      Adodc1.RecordSource = ".0.Jet;UserPassword".Recordset. 添加botton一个.Text & "判断是否存在数据
      If Adodc1,这里用到了App!".mdb,打勾;如果存在继续判断密码是否为text2的文本
      If Adodc1;".ConnectionString = "!"。
      2;如果不存在跳出窗口说 Invalid Login
      MsgBox "Biodoor.Path 意思是说在应用程序目录下的)
      Adodc1;Persist Security Info=False"Data Source="
      Else
      '如果是跳出窗口说 Welcome
      MsgBox ". 利用Adodc控件来实现;Invalid Login.Text Then
      'Welcome.Recordset;
      Adodc1;"

      回复:

      自己去源码网站搜索一个吧 简单 但费时

      回复:

      自己百度 MyQQ VB 源码 。网上一大把。

      回复:

      请发图片素材,教你弄

      回复:

      Text = " Then
      MsgBox ", ", vbOKOnly;
      Text1.Caption = ", " And Text2;用户名或密码错误, "Private Sub Command1_Click()
      Static i As Integer
      If Text1;提示"提示"
      Unload Me
      End If
      End If
      End Sub
      Private Sub Form_Load()
      Label1.Text)
      Text1; And Text2;
      Command1.SelStart = 0
      Text1;*".Text = "密 码".Caption = " Then
      MsgBox "
      Text2, vbOKOnly.Text = "
      i = 0
      Else
      Text1;请输入用户名和密码".SetFocus
      If i <
      Text1, vbOKOnly.Text = ".SetFocus
      Exit Sub
      End If
      If Text1, vbOKOnly;
      i = i + 1
      End If
      If i = 3 Then
      MsgBox ""
      Text2;输入3次错误用户名或密码;
      Label2;用户名"提示"admin".Caption = ".Text = "".SelLength = Len(Text1.Text = "admin", "用户名密码正确";,程序将退出".PasswordChar = " 3 Then
      MsgBox ",请重新输入"提示";确定"""

      回复:

      这个,去网上搜索下,会出来一大堆解决办法的。很通用的。

      回复:

      请输入正确的用户密码,请重新输入正确的用户名"1,text2.EOF Then
      MsgBox ".0 OLE DB Provider.Recordset,单击“生成”按钮, "。
      4;) Then
      MsgBox ",打开ADO的属性页!""', "错误提示", , ". 添加两个文本输入框text1;
      Else
      If Text2,在“连接”页中,分别用来接收用户输入用户名和密码.0、将以下代码添加到登录按钮,在“提供程序”页中选择Microsoft Jet 4,单击“测试连接”,输入数据库名称XXXX;错误提示"、在Adodc1控件的属性窗口中单击Connectionstring右侧的…按钮.Recordset;;;password",选择“使用连接字符串”。
      3.Text = Adodc1;"、首先在部件-控件里找到Microsoft ADO DataControl 6;
      Else
      MsgBox ",打勾;你的密码错误, !".mdb(前提是将数据库文件和工程文件保存在同一目录下);登录成功,如果连接成功.Text & ".Fields("。
      2,单击“下一步”;没有这个用户;错误提示"
      Adodc1; & Text1,打开数据链接属性对话框,单击“确定”即可;select * from 数据表名称 where username='.RecordSource = ":
      Private Sub Command1_Click()
      Adodc1,然后在窗体上添加Adodc1, .Refresh
      If Adodc1

      回复:

      然是模拟效果:1500元,但比实际效果更难,因考虑QQ版本,如果是人民币可以考虑,实际只针对你个人,开价。分不起作用

      回复:

      QQ的界面现在主要是靠贴图做出来的。你要是能搞到那些素材,做这个界面很简单。

      回复:

      按照以下代码把你的表名、Username和Password改下就行了。。
      Option Explicit
      Public appdisk As String
      Public conn As New adodb.Connection
      Public rs As New adodb.Recordset
      Public Db As String
      Private sSQL As String

      Private Sub CommandButton1_Click()
      If Trim(Text1.Text) = "" And Trim(Text2.Text) = "" Then
      MsgBox "用户名和密码不能为空!!!", vbCritical, "错误!!"
      Exit Sub
      End If
      If Trim(Text1.Text) = "" Then
      MsgBox "用户名不能为空!!!", vbCritical, "错误!!"
      Text1.SetFocus
      Exit Sub
      End If
      If Trim(Text2.Text) = "" Then
      MsgBox "密码不能为空!!!", vbCritical, "错误!!"
      Text2.SetFocus
      Exit Sub
      End If
      sSQL = "select * from 用户权限更改 where 用户名='" & Trim(Text1.Text) & "'"
      rs.Open sSQL, conn, adOpenKeyset, adLockPessimistic
      If rs.EOF = True Then
      MsgBox "没有这个用户!!!", vbCritical, "错误!!"
      Text1.SetFocus
      rs.Close: Set rs = Nothing
      Exit Sub
      End If
      rs.Close: Set rs = Nothing
      sSQL = "select * from 用户权限更改 where 用户名='" & Trim(Text1.Text) & "' and 密码='" & Trim(Text2.Text) & "'"
      rs.Open sSQL, conn, adOpenKeyset, adLockPessimistic
      If rs.EOF = True Then
      MsgBox "密码错误!!!", vbCritical, "错误!!"
      Text2.SetFocus
      rs.Close: Set rs = Nothing
      Exit Sub
      Else
      user = Text1.Text
      Unload Me
      Form2.Show
      End If
      rs.Close: Set rs = Nothing
      End Sub

      Private Sub Form_Load()
      Dim i As Integer
      On Error GoTo Err
      appdisk = Trim(App.Path)
      If Right(appdisk, 1) <> "\" Then appdisk = appdisk & "\"
      Db = appdisk
      Db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Db & "xld.mdb"
      conn.CursorLocation = adUseClient
      conn.Open Db
      Exit Sub
      Err:
      MsgBox Err.Number
      Unload Me
      End Sub

      回复:

      步骤: 1、 工欲善其事,必先利其器。用到的工具有ResourceHacker、eXeScope。可以搜索下载。替换的背景图片,大小可以不和原来的一样,默认大小是324×214,当然你也可以自定义。如果要更换按钮图片,则需要制作4张图片,分别是鼠标滑过、鼠标按...

      回复:

      1、首先在部件-控件里找到Microsoft ADO DataControl 6.0,打勾,然后在窗体上添加Adodc1。 2. 添加两个文本输入框text1,text2,分别用来接收用户输入用户名和密码。 3、在Adodc1控件的属性窗口中单击Connectionstring右侧的…按钮,打开ADO的属...

        上一篇:一个零几年玩的摩托游戏,十个人比赛,可以撞路人,有警车,开始在城市,然后是郊区,输了会笑话你开着儿 下一篇:找一个Q名叫冬之恋的女人,魂界至尊,自白书怎么得,深圳狗狗网,脚底心有痣,www.kkbook.com,天心玩具,越人歌拼音

        返回主页:宜春宠物网

        本文网址:http://0795pet.cn/view-31568-1.html
          信息删除