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