.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
WindowsForm登陆窗体的制作(Vb.net+Access)

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

      CSDN论坛中VB版里经常见到一些朋友问到关于登陆的问题,这篇文章专门为初学的朋友提供一些帮助,当然希望有更好办法的高手给予指点。

       首先 文件→新建→项目 选择windows应用程序

 并在窗体上添加2个label控件、2个textbox控件、2 个buton控件如下图(1-1):

界面设计好后在button的click事件中写入代码如下:

(在程序顶部引用Imports System.Data.OleDb)

    Private Sub BOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BOk.Click
        '定义
        Dim olecn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb")
        Dim olecm As New OleDbCommand("select * from Login", olecn)
        Dim olead As New OleDbDataAdapter
        Dim olerd As OleDbDataReader
        Dim pd As Boolean = False '定义boolean为后面错误处理使用
        Dim i As Integer
        olecm = New OleDbCommand("select * from Login", olecn)
        '与数据库建立连接
        olecn.Open()
        olerd = olecm.ExecuteReader
        '循环判断与数据库中数据是否相同
        Do While olerd.Read()
            For i = 0 To olerd.FieldCount - 1
                If Trim(TUser.Text) = (olerd.Item("帐号")) And Trim(TPassword.Text) = (olerd.Item("密码")) Then
                    MsgBox("成功登陆")
                    pd = True
                    Exit Sub
                End If
            Next
        Loop
        TUser.Text = ""
        TPassword.Text = ""
        TUser.Focus()
        olerd.Close()
        olecn.Close()
    End Sub
 

         整个过程就做完了简单吧。

         QQ:174453914




相关文章

相关软件