文件名称:家庭收支系统 vb access
文件大小:29KB
文件格式:RAR
更新时间:2014-05-31 03:29:49
vb
。。。 Private Sub cmdOK_Click() Dim DB As Database Dim RS As Recordset Dim username As String Dim Password As String Set DB = OpenDatabase(App.Path & "\user.mdb") Set RS = DB.OpenRecordset("user") If textuser.Text <> "" Then username = textuser.Text Password = textpassword.Text Do While Not RS.EOF If username = RS!username Then If Password = RS!Password Then MsgBox "登录成功", , "提示" Form1.Hide Form2.Show Exit Sub Else MsgBox "密码错误,请重新输入!!!", vbOKOnly, "提示" textpassword.Text = "" textpassword.SetFocus Exit Sub End If Else RS.MoveNext End If
【文件预览】:
downcode.com
----用VB6开发家庭收支信息管理系统()
--------OutLay.vbp(1KB)
--------MSSCCPRJ.SCC(191B)
--------OutLayXm.frm(6KB)
--------OutLay.frx(1KB)
--------OutLaySz.frm(8KB)
--------OutLayLg.frm(5KB)
--------OutLayRq.frm(37KB)
--------OutLay.vbw(327B)
--------downcode.com.txt(1KB)
--------中国源码下载站.url(189B)
--------家庭收支管理.Lay(144KB)
--------OutLay.frm(4KB)
--------from-download.gif(9KB)
--------OutLayCx.frm(8KB)
--------OutLay.bas(2KB)
----downcode.com.txt(1KB)
----中国源码下载站.url(189B)