精华内容
下载资源
问答
  • VB.NET与ACCESS做的登录验证案例
  • VB+Access开发的登录程序,使用vb6.0和access数据库
  • 非常实用的软件,本人自己开发,vb设计,access数据库链接登录网站。可以更改网站的链接,但需要联系我,因为源码在我这。
  • VB+Access登录界面(源码)

    热门讨论 2010-01-13 11:04:57
    VB6.0+ Access写的带验证码的登录源码
  • vb.net+access登录模块原代码
  • 基于vb+access的用户登录界面设计,很值得学习
  • vb登录代码

    2019-05-06 14:50:54
    vb连接数据库登录窗口,可连接最新版access
  • 以前在网上看见一位博主写的是asp.net(vb)连接sql server由于当时作业要求的是连接access。在网上还真不好找。毕竟用access连接数据库大多是应用于教学中,实际应用中用的很少,所以就改了一下那位博主的代码。贴出...

    以前在网上看见一位博主写的是asp.net(vb)连接sql server由于当时作业要求的是连接access。在网上还真不好找。毕竟用access连接数据库大多是应用于教学中,实际应用中用的很少,所以就改了一下那位博主的代码。贴出代码和大家一起分享一下。

     

    asp.net(vb)连接access2003

    准备一个login.aspx

    两个Textbox控件:id:UserNameTextbox,UserPswdTextbox

    准备一个Button控件:id:Button1

    2个hyperlink:1,2

          1,显示用户姓名

          2,用户所执行的权限操作

    一个linkbutton为清除Session变量退出用户登陆

    一个数据库,一张用户表

    <!--用户数据库验证开始-->

    Imports System.Data

    Imports System.Data.SqlClient

    Imports System.Data.OleDb

    Partial Class web_Default

        InheritsSystem.Web.UI.Page

     

        ProtectedSub Button1_Click(ByValsender As Object,ByVal e AsSystem.EventArgs) Handles Button1.Click

            Dimname As String= UserNameTextbox.Text

            DimPswd As String= UserPswdTextbox.Text

            Dimconn As NewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" & Server.MapPath("..\me.mdb"))

            conn.Open()

            DimcheckUser As String= "select * from [user] where username='"& name & "' and password='"& Pswd & "'"

            Dimcmd As NewOleDbCommand(checkUser, conn)

            Dimdr As OleDbDataReader

            dr = cmd.ExecuteReader()

            Ifdr.Read Then

                Ifdr.GetValue(1).ToString() = name Then

                    If dr.GetValue(2).ToString() = Pswd Then

                        Session("user") = "isok"

                        Session("username") = name

                        Session("userid") = dr.GetValue(0).ToString

                       Response.Redirect("Default.aspx")

                    End If

                EndIf

            EndIf

    End Sub

    <!--用户验证结束-->

    <!--登陆结果显示,关于操作权限的结果-->

     

     

        ProtectedSub Page_Load(ByValsender As Object,ByVal e AsSystem.EventArgs) Handles Me.Load

            LinkButton2.Visible = False

            Label5.Visible = False

            HyperLink2.Visible = False

            LinkButton1.Visible = False

            IfSession("user") = "isok" Then

                LinkButton2.Visible = True

                Label5.Visible = True

                LinkButton1.Visible = True

                Label1.Text = "欢迎您," + Session("username")

                IfSession("username") = "sunqinlong2008" Then

                    Label5.Visible = False

                    HyperLink2.Visible =True

                    LinkButton2.Visible= True

                    HyperLink2.Text = "欢迎您," + Session("username")+ "点此进入网站管理中心"

                EndIf

            EndIf

     

    End Sub

     

    <!--退出登陆状态,需要清楚session变量-->

     

     

        ProtectedSub LinkButton1_Click(ByValsender As Object,ByVal e AsSystem.EventArgs) Handles LinkButton1.Click

     

            Dimconn As NewOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" & Server.MapPath("..\me.mdb"))

            conn.Close()

            Session("user") = "isnook"

            Session("username") = ""

     

        EndSub

    <!--普通及用户所执行的操作,点此参数传递到普通用户资料修改页-->

     

        ProtectedSub LinkButton2_Click(ByValsender As Object,ByVal e AsSystem.EventArgs) Handles LinkButton2.Click

            Response.Redirect(".\Talk.aspx?id=" + Session("username"))

        EndSub

    End Class

     

    展开全文
  • 这个过程稍微有点麻烦,还是来回答一下吧问题的关键在于,如何实现VBAccess之间的链接,这里通过SQL语句来实现当然了,SQL语句也有很多包括检索(select)、排序检索(order by)、过滤(where)、插入(insert)等等........

    这个过程稍微有点麻烦,还是来回答一下吧

    问题的关键在于,如何实现VB与Access之间的链接,这里通过SQL语句来实现

    当然了,SQL语句也有很多包括检索(select)、排序检索(order by)、过滤(where)、插入(insert)等等......

    这个先不管,先来看看数据库

    数据库一看感觉很像excel,我们先新建一个表

    有三列,字段名分别是“ID”、“账户”、“密码”,在这里呢字段名可以是字母也可以是汉字(我是为了方便才用的汉字,不要学我)

    然后可以在下边添加信息(我这里已经添加了一条了),也可以在表名那右键进入“设计视图”去更改字段的更多信息。这些不是重点,不进行详述。

    这样一个简易的数据库就搭建好了,但要注意几点:①保存的时候要另存为保存成“.mdb”文件!原因好像是VB只兼容老版本的数据库格式。②数据库文件和vb的工程要保存在同一个文件夹里

    数据库搭建好后,回到VB,首先新建一个工程,接着,按顺序完成以下步骤:

    ①在“工程”-“引用”勾选“Mircrosoft ActiveX Data Object 2.5 Library”选项。

    ②在下图位置右键新建一个模块,双击模块进入代码输入窗口

    ③在代码窗输入以下代码(有地方需改动)

    Public gsConStr As String

    Public gcnCon As ADODB.Connection

    Public dataPath As String

    Public curDire As String

    Public curFile As String

    Public Const MainPassword As String = "000000"

    Public sql As String

    Public rstemp As ADODB.Recordset

    Sub main()

    Set gcnCon = New ADODB.Connection

    dataPath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") & "我的2020.mdb" '修改相应的数据库名称

    gsConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dataPath & ";Persist Security Info=False"

    gcnCon.ConnectionString = gsConStr

    gcnCon.CursorLocation = adUseClient

    gcnCon.Open

    FrmDenglu.Show '修改相应的登陆窗体名称

    End Sub

    ④在“工程”-“属性”修改启动对象为“Sub Main”

    ⑤在登陆窗体上放上相应的控件(两文本框一按钮)

    ⑥进入代码编辑窗,输入以下代码(有地方需改动)

    Option Explicit

    Dim islogin As Boolean

    Private Sub Command1_Click()

    Dim x%

    sql = "select * from admin where 账户='" & Text1.Text & "' and 密码='" & Text2.Text & "'" 'SQL语句

    Set rstemp = gcnCon.Execute(sql) '执行SQL语句

    If Not rstemp.EOF Then '查找是否存在该账户及密码,如果存在

    islogin = True

    Unload Me

    FrmMain.Show '修改成相应主窗体,即登陆后想要见到的下一个窗体

    Else '如找不到所输入账户和密码

    x = MsgBox("用户名或密码错误!", 5, "提示")

    If x = 4 Then

    Text2.SetFocus

    Else

    End

    End If

    End If

    rstemp.Close

    End Sub

    ⑦保存,运行启动,查看代码是否有问题

    上面讲解的是一般系统登陆的方法,像题主所说的区分管理员和一般用户的方法有很多种,下面给两个解决方案:

    ①在数据库用户表中新建一个字段,用来存储登陆账户的身份信息,在登陆时拾取人员的身份信息,进行判断之后进入相应窗体。

    ②在数据库中,管理员和一般用户各一个表,在登陆界面多加两个组合的Option控件,让用户自行选择以什么身份进行登录,进行判断之后进入相应窗体。

    展开全文
  • 数据库中设计access表,adminuser,表中创建username、passwrod两个文本字段。access文件名称为my.mdb.其源代码如下: Imports System.Data Imports System.Data.OleDb Public Class LoginFrm ...
     
    在窗体中加入两个txt框,两个按钮。界面设计如上图所示。
    数据库中设计access表,adminuser,表中创建username、passwrod两个文本字段。access文件名称为my.mdb.其源代码如下:
    Imports System.Data
    Imports System.Data.OleDb
    Public Class LoginFrm
        Inherits System.Windows.Forms.Form
        Public ADOcmd As OleDbDataAdapter
        Public ds As DataSet = New DataSet
        Public mytable As Data.DataTable
        Public myrow As Data.DataRow
        Public rownumber As Integer
        Public searchsql As String
        Public cmd As OleDbCommandBuilder
        Public Function ExecuteSQL(ByVal SQL As String, ByVal table As String)
            ADOcmd = New OleDbDataAdapter(SQL, "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath() & "\my.mdb")
            ADOcmd.Fill(ds, table)
            mytable = ds.Tables.Item(0)
            rownumber = 0
            myrow = mytable.Rows.Item(rownumber)
        End Function
    #Region " Windows 窗体设计器生成的代码 "
        Public Sub New()
            MyBase.New()
            '该调用是 Windows 窗体设计器所必需的。
            InitializeComponent()
            '在 InitializeComponent() 调用之后添加任何初始化
        End Sub
        '窗体重写 dispose 以清理组件列表。
        Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
            If disposing Then
                If Not (components Is Nothing) Then
                    components.Dispose()
                End If
            End If
            MyBase.Dispose(disposing)
        End Sub
        'Windows 窗体设计器所必需的
        Private components As System.ComponentModel.IContainer
        '注意: 以下过程是 Windows 窗体设计器所必需的
        '可以使用 Windows 窗体设计器修改此过程。
        '不要使用代码编辑器修改它。
        Friend WithEvents Label1 As System.Windows.Forms.Label
        Friend WithEvents Label2 As System.Windows.Forms.Label
        Friend WithEvents btn_ok As System.Windows.Forms.Button
        Friend WithEvents btn_cancel As System.Windows.Forms.Button
        Friend WithEvents Txt_Username As System.Windows.Forms.TextBox
        Friend WithEvents Txt_pwd As System.Windows.Forms.TextBox
        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
            Me.Label1 = New System.Windows.Forms.Label
            Me.Label2 = New System.Windows.Forms.Label
            Me.Txt_Username = New System.Windows.Forms.TextBox
            Me.Txt_pwd = New System.Windows.Forms.TextBox
            Me.btn_ok = New System.Windows.Forms.Button
            Me.btn_cancel = New System.Windows.Forms.Button
            Me.SuspendLayout()
            '
            'Label1
            '
            Me.Label1.AutoSize = True
            Me.Label1.Location = New System.Drawing.Point(48, 32)
            Me.Label1.Name = "Label1"
            Me.Label1.Size = New System.Drawing.Size(54, 17)
            Me.Label1.TabIndex = 0
            Me.Label1.Text = "用户名:"
            '
            'Label2
            '
            Me.Label2.AutoSize = True
            Me.Label2.Location = New System.Drawing.Point(48, 64)
            Me.Label2.Name = "Label2"
            Me.Label2.Size = New System.Drawing.Size(54, 17)
            Me.Label2.TabIndex = 1
            Me.Label2.Text = "密  码:"
            '
            'Txt_Username
            '
            Me.Txt_Username.Location = New System.Drawing.Point(112, 32)
            Me.Txt_Username.Name = "Txt_Username"
            Me.Txt_Username.Size = New System.Drawing.Size(96, 21)
            Me.Txt_Username.TabIndex = 2
            Me.Txt_Username.Text = ""
            '
            'Txt_pwd
            '
            Me.Txt_pwd.Location = New System.Drawing.Point(112, 64)
            Me.Txt_pwd.Name = "Txt_pwd"
            Me.Txt_pwd.PasswordChar = Microsoft.VisualBasic.ChrW(42)
            Me.Txt_pwd.Size = New System.Drawing.Size(96, 21)
            Me.Txt_pwd.TabIndex = 3
            Me.Txt_pwd.Text = ""
            '
            'btn_ok
            '
            Me.btn_ok.Location = New System.Drawing.Point(64, 104)
            Me.btn_ok.Name = "btn_ok"
            Me.btn_ok.Size = New System.Drawing.Size(48, 24)
            Me.btn_ok.TabIndex = 4
            Me.btn_ok.Text = "登录"
            '
            'btn_cancel
            '
            Me.btn_cancel.Location = New System.Drawing.Point(160, 104)
            Me.btn_cancel.Name = "btn_cancel"
            Me.btn_cancel.Size = New System.Drawing.Size(48, 24)
            Me.btn_cancel.TabIndex = 5
            Me.btn_cancel.Text = "关闭"
            '
            'LoginFrm
            '
            Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
            Me.ClientSize = New System.Drawing.Size(296, 158)
            Me.Controls.Add(Me.btn_cancel)
            Me.Controls.Add(Me.btn_ok)
            Me.Controls.Add(Me.Txt_pwd)
            Me.Controls.Add(Me.Txt_Username)
            Me.Controls.Add(Me.Label2)
            Me.Controls.Add(Me.Label1)
            Me.MaximizeBox = False
            Me.MinimizeBox = False
            Me.Name = "LoginFrm"
            Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
            Me.Text = "登录"
            Me.ResumeLayout(False)
        End Sub
    #End Region
        Private Sub btn_cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_cancel.Click
            Me.Close()
        End Sub
        Private Sub btn_ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_ok.Click
            '定义 
            Dim tablename As String
            tablename = "adminuser"
            Dim SearchSQL As String
            SearchSQL = "select username,password from adminuser where username='" & Txt_Username.Text & "'"
            Try
                ExecuteSQL(SearchSQL, tablename)
                If myrow.Item(1) = Txt_pwd.Text Then
                    MsgBox("成功登陆")
                    Dim FormMain As New FormMain
                    FormMain.Show()
                    Me.Hide()
                Else
                    MsgBox("密码不正确!", vbOKOnly + vbExclamation, "警告")
                    Exit Sub
                End If
            Catch
                MsgBox("無此用戶!", vbOKOnly + vbExclamation, "警告")
            End Try
        End Sub
        Private Sub LoginFrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        End Sub
        Private Sub Txt_pwd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Txt_pwd.KeyDown
            If e.KeyCode = Keys.Enter Then
                btn_ok.Visible = True
                btn_ok.Focus()
            End If
        End Sub
        Private Sub Txt_Username_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Txt_Username.KeyDown
            If e.KeyCode = Keys.Enter Then
                Txt_pwd.Focus()
            End If
        End Sub
    End Class

     本文转自 simeon2005 51CTO博客,原文链接:http://blog.51cto.com/simeon/94357

    展开全文
  • VB.NET 结合Access数据库开发的含有系统登录示例登录界面源码:Imports System.Data.OleDbPublic Class FRM_LOGIN Public userpass As String Public qqx As String Dim yzm_m As String = "**************" Private ...

    710a79e81e5c06e4191d1bc79c46f082.png


    a0e7820bf73532a4f4f63206cb73e948.png

    c644ea9078e42d363273f2ea45dfc32f.png


    VB.NET 结合Access数据库开发的含有系统登录示例


    登录界面源码:

    Imports System.Data.OleDbPublic Class FRM_LOGIN    Public userpass As String    Public qqx As String    Dim yzm_m As String = "**************"    Private Sub FRM_LOGIN_Load(sender As Object, e As EventArgs) Handles MyBase.Load        ''**********************************        BT_OK.BackColor = Color.Transparent        BT_QX.BackColor = Color.Transparent        PICC1.BackColor = Color.Transparent        PICC2.BackColor = Color.Transparent        PICC3.BackColor = Color.Transparent        PICC4.BackColor = Color.Transparent        ''**********************************    End Sub#Region "返回验证码"    Sub GET_YZM()        Try            Randomize()            Dim YZM_TMP As String = ""            Do While Len(YZM_TMP) < 4                Dim YZM As String = Chr((57 - 48) * Rnd() + 48)                YZM_TMP &= YZM            Loop            ''*****************            For j As Integer = 1 To Len(YZM_TMP)                Dim STR As String = Mid(YZM_TMP, j, 1)                Dim I As Integer = Int(STR)                Dim pic As PictureBox = Controls("PICC" & j)                pic.Image = ImgList.Images.Item(I)            Next            ''******************            yzm_m = YZM_TMP            ''*******************            CN_DB(userpass, qqx)        Catch ex As Exception            MsgBox("无法创建验证码:" & ex.Message, vbCritical, "VB小源码")        End Try    End Sub#End Region#Region "验证码事件"    Dim TF_CODE As Boolean = True    Private Sub TXT_YZM_Click(sender As Object, e As EventArgs) Handles TXT_YZM.Click        If TF_CODE = True And TXT_USER.Text <> "" And TXT_PASS.Text <> "" Then            GET_YZM()            TF_CODE = False        End If    End Sub    Private Sub PICC1_Click(sender As Object, e As EventArgs) Handles PICC1.Click        If TXT_USER.Text <> "" And TXT_PASS.Text <> "" Then            GET_YZM()            TF_CODE = False        End If    End Sub    Private Sub PICC2_Click(sender As Object, e As EventArgs) Handles PICC2.Click        If TXT_USER.Text <> "" And TXT_PASS.Text <> "" Then            GET_YZM()            TF_CODE = False        End If    End Sub    Private Sub PICC3_Click(sender As Object, e As EventArgs) Handles PICC3.Click        If TXT_USER.Text <> "" And TXT_PASS.Text <> "" Then            GET_YZM()            TF_CODE = False        End If    End Sub    Private Sub PICC4_Click(sender As Object, e As EventArgs) Handles PICC4.Click        If TXT_USER.Text <> "" And TXT_PASS.Text <> "" Then            GET_YZM()            TF_CODE = False        End If    End Sub#End Region    Private Sub BT_OK_Click(sender As Object, e As EventArgs) Handles BT_OK.Click        If yzm_m = TXT_YZM.Text Then            If userpass = TXT_PASS.Text Then                FRM_MAIN.Show()                Visible = False            Else                MsgBox("密码错误!", vbCritical, "警告")            End If        Else                If TXT_YZM.Text = "" Then                MsgBox("请输入验证码!", vbCritical, "警告")            Else                MsgBox("验证码错误!", vbCritical, "警告")            End If        End If    End Sub#Region "窗体事件"    Dim mo_ok As Boolean = False    Dim sele_ok As Point    Dim mo_wz As Point    Private Sub FRM_LOGIN_MouseDown(sender As Object, e As MouseEventArgs) Handles Me.MouseDown        mo_ok = True        sele_ok = New Point(e.X, e.Y)    End Sub    Private Sub FRM_LOGIN_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove        mo_wz = New Point(e.X, e.Y)        If mo_ok = True Then            Location = PointToScreen(mo_wz) - sele_ok        End If    End Sub    Private Sub FRM_LOGIN_MouseUp(sender As Object, e As MouseEventArgs) Handles Me.MouseUp        mo_ok = False    End Sub    Private Sub BT_CL_Click(sender As Object, e As EventArgs) Handles BT_CL.Click        If MsgBox("您确定要退出吗?", vbYesNo, "退出") = vbYes Then            Close()        End If    End Sub    Private Sub BT_QX_Click(sender As Object, e As EventArgs) Handles BT_QX.Click        If MsgBox("您确定要退出吗?", vbYesNo, "退出") = vbYes Then            Close()        End If    End Sub#End Region#Region "获取用户信息"    Function CN_DB(ByRef user As String, ByRef ad_qx As String) As Boolean        Try            Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\userdata.mdb;Persist Security Info=False"            Dim CN As OleDbConnection = New OleDbConnection(cnStr)            Dim sql As String = "select `密码`,`管理员` from tb_user where 用户名='" & TXT_USER.Text & "';"            Dim DA As OleDbDataAdapter = New OleDbDataAdapter(sql, CN)            Dim DS As DataSet = New DataSet            DA.Fill(DS, "tb_user")            user = DS.Tables(0).Rows(0)(0).ToString            ad_qx = DS.Tables(0).Rows(0)(1).ToString            Return True        Catch ex As Exception            Return False        End Try    End Function#End RegionEnd Class

    主页面源码:

    Imports System.Data.OleDbPublic Class FRM_MAIN    Private Sub FRM_MAIN_Load(sender As Object, e As EventArgs) Handles MyBase.Load        Dim qx As String = FRM_LOGIN.qqx        Dim name As String        If qx = 1 Then            name = "管理员"        Else            name = "会员"        End If        Label1.Text = "当前用户:" & FRM_LOGIN.TXT_USER.Text & "-->" & name        Label1.BackColor = Color.Transparent        ''**********************************        Dim cnStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\userdata.mdb;Persist Security Info=False"        Dim CN As OleDbConnection = New OleDbConnection(cnStr)        Dim sql As String = "select * from tb_user"        Dim DA As OleDbDataAdapter = New OleDbDataAdapter(sql, CN)        Dim DS As DataSet = New DataSet        DA.Fill(DS, "tb_user")        DataGridView1.DataSource = DS.Tables(0)    End Sub    Private Sub FRM_MAIN_Closed(sender As Object, e As EventArgs) Handles Me.Closed        If MsgBox("您确定要退出吗?", vbYesNo, "退出") = vbYes Then            FRM_LOGIN.Close()        End If    End Sub    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick    End SubEnd Class
    源码下载:https://www.lanzous.com/i43y93i

    更多资源请继续关注我们!

    9ae96c61766dddd4051ebb69ffa47f5c.png

    展开全文
  • VB登录界面程序代码

    2011-01-24 22:40:30
    结合access数据库在VB中编写的登录界面的源码,doc文档。
  • Access+VB酒店客房管理系统源代码

    热门讨论 2012-08-09 18:52:51
     基于VB的酒店客房管理系统源代码,数据库使用Access,你完全可以把它修改成MSSQL的。功能方面,几大模块:客户登记、退房管理、房态查看、综合查询、日结管理、提醒、计算器、挂账管理、系统设置、系统维护...
  • 以下是模块 :: Public con As New Connection '定义数据连接,公共变量 Public coon, coom As String Public str As Currency Sub main() ChDir ... 请登录后再发表评论! ◆◆ 修改失败,请稍后尝试
  • 准备好ACCESS数据库,建一个Uesr_id表,表中建两个字段就可以了。在[工程]菜单下选择[部件];在弹出的窗口内勾选[Microsoft ADO Data Control 6.0]然后确定。 在工具栏中双击Adodc控件,Adodc控件添加到form内,在...
  • 学生考试系统 VB+access

    2010-06-09 08:15:51
    此系统由vb+access数据库联合开发的学生考试系统,分别从管理员、教师、学生三个身份登录对系统实施操作。
  • vb的入门程序源码。。vbaccess数据库的入门应用,有一个登录,修改信息,查看信息的功能,适合刚刚学习vb的家伙,附数据库一枚。
  • 样品管理进销存系统 VB Access版,完整源码下载,对展会、博览会样品进行管理的一个进销存系统,方便工作人员对样品进行登记、出库、入库登记、样品查询、报表等功能,程序登录密码在Access中,自己下载后打开数据库...
  • 通过积累的知识,编写了一个比较实用的个人数据管理小程序,包括数据库的读写操作,和图片数据库的 ...文本和图片分开储存有利于数据库的维护,修改后缀为db可以忽悠一下别人,并且ACCESS无法打开。
  • 一个相对比较完整的VB Access工资管理系统源码,源代码结构清淅,资源文件完整。本套工资管理系统功能都挺实用,可实现员工工资资料录入、工资查询、用户管理、系统登录、数据备份与恢复、报表相关操作、工资数据...
  • vb,access数据库登录实例源代码.
  • 家庭收支系统 vb access

    2011-05-11 09:43:09
    MsgBox "登录成功", , "提示" Form1.Hide Form2.Show Exit Sub Else MsgBox "密码错误,请重新输入!!!", vbOKOnly, "提示" textpassword.Text = "" textpassword.SetFocus Exit Sub End If Else RS....
  • VB+ACCESS考试管理系统

    2008-05-10 08:26:21
    VB6.0+ACCESS制作成的,主要功能: 1.考试管理 2.试题管理 3.随机出题 4.学生考试 5.自动判分 …… <br>默认登录密码:111
  • vb6.0家庭账务管理软件Access开源版,采用VB ACCESS编写的,里面还用到了酷狗的一些类库,源代码结构清淅、文件完整,只是把Access数据库文件比较大,数据库后缀也改成了ASP格式,需要操作数据库的时候自己把扩展名...
  • The prototype could be modified and developed till users are satisfied with it. Keywords: ActiveX Form Field VB Access DataBase 前言 学生信息管理系统是一个教育单位不可缺少的部分,它的...
  • VB毕业设计:工资管理系统VB/Access源码,企业工资管理系统,登录模块的详细设计主要是用户登录的一个界面,判断登录的用户是管理员还是普通用户,进入后将面对的是主界面,从而进行相关的操作。  本系统对企业...
  • 客户管理系统 vb+access

    2009-05-25 09:38:08
    :将程序拷贝到机器上,去掉所有文件的只读属性。...2:本程序采用Access数据库,程序运行时可以自动识别数据库路径。 3:登录系统 初始用户名:mingrisoft 初始用户名密码:www.mingrisoft.com
  • VB 物流管理随书实例 access数据库 这是一本书中的随书实例,一个基于VB+Access的物流管理程序,完成入库、出库、货物...源码爱好者注:程序在VB6下可顺利编译,不过数据库连接可能有些问题,总提示登录用户不正确。

空空如也

空空如也

1 2 3 4 5 ... 9
收藏数 179
精华内容 71
关键字:

accessvb登录