form2.frm

图书管理系统原创vb+sql

VERSION 5.00
Begin VB.Form form2 
   BorderStyle     =   0  'None
   Caption         =   "Form2"
   ClientHeight    =   5985
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   7470
   LinkTopic       =   "Form2"
   Picture         =   "Form2.frx":0000
   ScaleHeight     =   5985
   ScaleWidth      =   7470
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin VB.Timer Timer1 
      Left            =   5880
      Top             =   3600
   End
End
Attribute VB_Name = "form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
If App.PrevInstance = True Then End
    cnn.CursorLocation = adUseClient
    qy1.CursorLocation = adUseClient
    rstFriends.CursorLocation = adUseClient
tkOpenAccessDB App.Path & "\base.mdb"
If qy1.State = adStateOpen Then '借书批准
qy1.Close
End If
qy1.Open "select * from login ", cnn1, adOpenKeyset, adLockOptimistic, adCmdText
If qy1.RecordCount = 0 Then
Form9.Show
Exit Sub
Else
server = qy1.Fields(0)
loginname = qy1.Fields(1)
If qy1.Fields(2) <> nonull Then
password = qy1.Fields(2)
End If
    If App.PrevInstance = True Then End
    cnn.CursorLocation = adUseClient
    rst.CursorLocation = adUseClient
    rstFriends.CursorLocation = adUseClient
   tkOpenSQLServerDB server, "tushu", loginname, password
Timer1.Interval = 3000
End If
End Sub

Private Sub tkOpenAccessDB( _
        tkFileName As String, _
        Optional tkUserID As String, _
        Optional tkPassword As String _
    )
    
    On Error GoTo tkFinish
    
    cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & tkFileName & ";" & _
        "Mode=Share Deny None;" & _
        "Extended Properties=;" & _
        "Jet OLEDB:System database=;" & _
        "Jet OLEDB:Registry Path=;" & _
        "Jet OLEDB:Database Password=;" & _
        "Jet OLEDB:Engine Type=5;" & _
        "Jet OLEDB:Database Locking Mode=1;" & _
        "Jet OLEDB:Global Partial Bulk Ops=2;" & _
        "Jet OLEDB:Global Bulk Transactions=1;" & _
        "Jet OLEDB:New Database Password=;" & _
        "Jet OLEDB:Create System Database=False;" & _
        "Jet OLEDB:Encrypt Database=False;" & _
        "Jet OLEDB:Don't Copy Locale on Compact=False;" & _
        "Jet OLEDB:Compact Without Replica Repair=False;" & _
        "Jet OLEDB:SFP=False;" & _
        tkUserID, _
        tkPassword
    
    Exit Sub
tkFinish:
    MsgBox Err.Description
    End
    
End Sub
Private Sub tkOpenSQLServerDB( _
        tkServerName As String, _
        tkDefaultDatabase As String, _
        tkUserID As String, _
        tkPassword As String _
    )

    On Error GoTo tkFinish
    On Error GoTo tkFinish
    
    cnn.Open "Provider=SQLOLEDB.1;" & _
        "Data Source=" & tkServerName & ";" & _
        "Use Procedure for Prepare=1;" & _
        "Auto Translate=True;" & _
        "Packet Size=4096;" & _
        "Use Encryption for Data=False;" & _
        "Tag with column collation when possible=False", _
        tkUserID, _
        tkPassword
    cnn.DefaultDatabase = tkDefaultDatabase
    Exit Sub
tkFinish:
    MsgBox Err.Description
    End
    
End Sub


Private Sub Timer1_Timer()
   form2.Height = 0
   form2.Width = 0
   Timer1.Interval = 0
   form3.Show
End Sub