?? module1.bas
字號:
Attribute VB_Name = "Module1"
Public myconn As ADODB.Connection
Public str_conn As String
Public rds_manager As ADODB.Recordset
Public rds_user As ADODB.Recordset
Public rds_book As ADODB.Recordset
Public rds_jieyue As ADODB.Recordset
Public rds_total As ADODB.Recordset
Public str_sql As String
Public manager_id As String
'Public manager_name As String
'Public manager_user As Boolean
'Public manager_book As Boolean
Sub main()
str_conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\library.mdb;Persist Security Info=False"
Set myconn = New ADODB.Connection
myconn.Open str_conn
Set rds_manager = New ADODB.Recordset
Set rds_user = New ADODB.Recordset
Set rds_book = New ADODB.Recordset
Set rds_jieyue = New ADODB.Recordset
frmstartup.Show
'frmLogin.Show vbModal
'frmuser_search.Show
'frmuser_check.Show
'frmuser_update.Show
'frmbook_check.Show
'frmbook_borrow.Show
'frmbook_search.Show
'frmmain.Show
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -