-
VB.NET与ACCESS登录验证.zip
2021-01-04 08:46:21VB.NET与ACCESS做的登录验证案例 -
VB+Access开发的登录程序
2012-06-23 21:12:29VB+Access开发的登录程序,使用vb6.0和access数据库 -
vb设计access数据库登录网站软件
2010-10-10 15:02:58非常实用的软件,本人自己开发,vb设计,access数据库链接登录网站。可以更改网站的链接,但需要联系我,因为源码在我这。 -
VB+Access登录界面(源码)
2010-01-13 11:04:57VB6.0+ Access写的带验证码的登录源码 -
vb.net+access登录模块原代码
2009-03-05 15:50:44vb.net+access登录模块原代码 -
用户登录界面(vb+access)
2013-04-18 21:10:33基于vb+access的用户登录界面设计,很值得学习 -
vb登录代码
2019-05-06 14:50:54vb连接数据库登录窗口,可连接最新版access -
asp.net(vb)连接access2003登录代码
2012-07-17 17:33:27以前在网上看见一位博主写的是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
-
vb与mysql实现登录界面_如何利用VB和ACCESS做一个登录系统?
2021-01-30 12:35:50这个过程稍微有点麻烦,还是来回答一下吧问题的关键在于,如何实现VB与Access之间的链接,这里通过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控件,让用户自行选择以什么身份进行登录,进行判断之后进入相应窗体。
-
vb.net 登录access源代码【原创】
2017-11-12 17:40:00数据库中设计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.OleDbPublic 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 RegionPrivate Sub btn_cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_cancel.Click
Me.Close()
End SubPrivate 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 TryEnd SubPrivate Sub LoginFrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadEnd SubPrivate Sub Txt_pwd_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Txt_pwd.KeyDownIf e.KeyCode = Keys.Enter Then
btn_ok.Visible = True
btn_ok.Focus()
End If
End SubPrivate 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源码 access 压缩_VB.NET 结合Access数据库开发的含有<验证码>系统登录示例...
2020-12-11 12:24:02VB.NET 结合Access数据库开发的含有系统登录示例登录界面源码:Imports System.Data.OleDbPublic Class FRM_LOGIN Public userpass As String Public qqx As String Dim yzm_m As String = "**************" Private ...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
更多资源请继续关注我们!
-
VB登录界面程序代码
2011-01-24 22:40:30结合access数据库在VB中编写的登录界面的源码,doc文档。 -
Access+VB酒店客房管理系统源代码
2012-08-09 18:52:51基于VB的酒店客房管理系统源代码,数据库使用Access,你完全可以把它修改成MSSQL的。功能方面,几大模块:客户登记、退房管理、房态查看、综合查询、日结管理、提醒、计算器、挂账管理、系统设置、系统维护... -
vb mysql登录界面_vb+access数据库做一个用户登录界面(包括用户名,密码,还要有权限)...
2021-02-11 14:04:54以下是模块 :: Public con As New Connection '定义数据连接,公共变量 Public coon, coom As String Public str As Currency Sub main() ChDir ... 请登录后再发表评论! ◆◆ 修改失败,请稍后尝试 -
vb ADO控件连接ACCESS数据库做登录密码的例子
2009-07-31 08:47:00准备好ACCESS数据库,建一个Uesr_id表,表中建两个字段就可以了。在[工程]菜单下选择[部件];在弹出的窗口内勾选[Microsoft ADO Data Control 6.0]然后确定。 在工具栏中双击Adodc控件,Adodc控件添加到form内,在... -
学生考试系统 VB+access
2010-06-09 08:15:51此系统由vb+access数据库联合开发的学生考试系统,分别从管理员、教师、学生三个身份登录对系统实施操作。 -
VB入门程序源码access初级应用
2011-05-25 09:00:14vb的入门程序源码。。vb与access数据库的入门应用,有一个登录,修改信息,查看信息的功能,适合刚刚学习vb的家伙,附数据库一枚。 -
样品管理进销存系统 VB Access.rar
2019-07-10 17:09:40样品管理进销存系统 VB Access版,完整源码下载,对展会、博览会样品进行管理的一个进销存系统,方便工作人员对样品进行登记、出库、入库登记、样品查询、报表等功能,程序登录密码在Access中,自己下载后打开数据库... -
vb 通讯录程序 access数据库
2011-07-27 15:43:17通过积累的知识,编写了一个比较实用的个人数据管理小程序,包括数据库的读写操作,和图片数据库的 ...文本和图片分开储存有利于数据库的维护,修改后缀为db可以忽悠一下别人,并且ACCESS无法打开。 -
VB Access工资管理系统源码完整版.rar
2019-07-10 17:59:13一个相对比较完整的VB Access工资管理系统源码,源代码结构清淅,资源文件完整。本套工资管理系统功能都挺实用,可实现员工工资资料录入、工资查询、用户管理、系统登录、数据备份与恢复、报表相关操作、工资数据... -
VB系统登录实例源码下载
2012-02-08 17:30:01vb,access数据库登录实例源代码. -
家庭收支系统 vb access
2011-05-11 09:43:09MsgBox "登录成功", , "提示" 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:21VB6.0+ACCESS制作成的,主要功能: 1.考试管理 2.试题管理 3.随机出题 4.学生考试 5.自动判分 …… <br>默认登录密码:111 -
vb6.0家庭账务管理软件Access开源版.rar
2019-07-10 09:35:00vb6.0家庭账务管理软件Access开源版,采用VB ACCESS编写的,里面还用到了酷狗的一些类库,源代码结构清淅、文件完整,只是把Access数据库文件比较大,数据库后缀也改成了ASP格式,需要操作数据库的时候自己把扩展名... -
VBaccess学生信息管理系统
2010-11-06 20:51:23The prototype could be modified and developed till users are satisfied with it. Keywords: ActiveX Form Field VB Access DataBase 前言 学生信息管理系统是一个教育单位不可缺少的部分,它的... -
企业工资管理系统VB/Access源码.rar
2019-07-10 12:31:16VB毕业设计:工资管理系统VB/Access源码,企业工资管理系统,登录模块的详细设计主要是用户登录的一个界面,判断登录的用户是管理员还是普通用户,进入后将面对的是主界面,从而进行相关的操作。 本系统对企业... -
客户管理系统 vb+access
2009-05-25 09:38:08:将程序拷贝到机器上,去掉所有文件的只读属性。...2:本程序采用Access数据库,程序运行时可以自动识别数据库路径。 3:登录系统 初始用户名:mingrisoft 初始用户名密码:www.mingrisoft.com -
VB 物流管理随书实例 access数据库
2010-04-23 12:36:35VB 物流管理随书实例 access数据库 这是一本书中的随书实例,一个基于VB+Access的物流管理程序,完成入库、出库、货物...源码爱好者注:程序在VB6下可顺利编译,不过数据库连接可能有些问题,总提示登录用户不正确。