mdl_public.bas

VB制作的简单的基于access的停车管理数据库

Attribute VB_Name = "mdl_public"
Public dbcnn As New ADODB.Connection
Public usernow As usertype
Type usertype
id As String
type As Integer
End Type
Public Sub addrec(ByVal rectype As Integer)
Dim adduserrec As New Recordset
Dim dbstringa As String
dbstring = "select * from userrecord"
adduserrec.Open dbstring, dbcnn, adOpenForwardOnly, adLockOptimistic
adduserrec.AddNew
adduserrec.Fields("userid") = usernow.id
adduserrec.Fields("usertime") = Now
adduserrec.Fields("useroperate") = rectype
adduserrec.Update
adduserrec.Close
End Sub

Public Sub main()
If App.PrevInstance Then
MsgBox "系统已启动!", , "提示！"
End
End If
dbcnn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\停车数据库3.mdb"
dbcnn.Open
On Error GoTo errprocess
frmlogin.Show
Exit Sub
errprocess:
MsgBox Err.Description

End Sub