module1.bas

图书管理系统 欢迎大家来使用 谢谢!

Attribute VB_Name = "Module1"
Public st As ADODB.Connection
Public cnn As ADODB.Recordset
Public cnn2 As ADODB.Recordset
Public iStm As ADODB.Stream
Public cn, Strconn As String
Public Typeuser As String
Public student_ic, student_id, student_name, student_class As String
Public Borrow_no As Integer
Public ynmoney As Integer
Public window_time, window_rtime, window_no As Integer
Public window_money As Single
Public usename, usepassword As String


Public Sub DateConnection()

 Set st = New ADODB.Connection
    'str.ConnectionTimeout = 50
    'str.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=student_data;Initial Catalog=D:\vb+sql 课程设计\data\XSDAGL"

    'str.CursorLocation = adUseClient
    'dbpath = Server.mappath("网络管理.mdb")
 'Set st = Server.CreateObject("ADODB.Connection")
'Strconn = "Provider=SQLReplication.OLEDB.1 "
'Strconn = Strconn & "DBQ=D:\图书馆借书管理系统_Data.MDF"
'st.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=E45095DD0BE5430;Initial File Name=D:\图书馆借书管理系统_Data.MDF"

'st.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial File Name=D:\图书馆借书管理系统_Data.MDF"

'st.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=图书馆借书管理系统;Data Source=E45095DD0BE5430"
st.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\图书馆借书管理系统\新建 Microsoft Office Access 应用程序.mdb;Persist Security Info=False"


'st.Open Strconn
End Sub

Public Sub Main()
    Call DateConnection
    'FrmMain.Show
    frmSplash.Show

End Sub
Public Sub Open_book_message()
Set cnn = New ADODB.Recordset
cn = "select * from Book_message"
cnn.Open cn, st, adOpenKeyset, adLockOptimistic, adcmtext
End Sub
Public Sub Open_book_type()
Set cnn2 = New ADODB.Recordset
cn = "select * from Book_type"
cnn2.Open cn, st, adOpenKeyset, adLockOptimistic, adcmtext
End Sub
Public Sub Open_borrow_book()
Set cnn = New ADODB.Recordset
cn = "select * from Borrow_book"
cnn.Open cn, st, adOpenKeyset, adLockOptimistic, adcmtext
End Sub

Public Sub Open_Student_message()
Set cnn = New ADODB.Recordset
cn = "select * from Student_message"
cnn.Open cn, st, adOpenKeyset, adLockOptimistic, adcmtext
End Sub
Public Sub Open_book_money()
Set cnn = New ADODB.Recordset
cn = "select * from book_money"
cnn.Open cn, st, adOpenKeyset, adLockOptimistic, adcmtext
End Sub
Public Sub Open_set_window()
Set cnn = New ADODB.Recordset
cn = "select * from set_window"
cnn.Open cn, st, adOpenKeyset, adLockOptimistic, adcmtext
End Sub
Public Sub set_window()

Open_set_window
window_time = Val(cnn.Fields(0).Value)
window_money = cnn.Fields(1).Value
window_no = Val(cnn.Fields(2).Value)
window_rtime = Val(cnn.Fields(3).Value)

End Sub

Public Sub Open_user_message()
Set cnn = New ADODB.Recordset
cn = "select * from user_message"
cnn.Open cn, st, adOpenKeyset, adLockOptimistic, adcmtext
End Sub
Public Sub Open_class_message()
Set cnn = New ADODB.Recordset
cn = "select * from class_message"
cnn.Open cn, st, adOpenKeyset, adLockOptimistic, adcmtext
End Sub