?? mdl_public.bas
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -