cslogin.frm

这是一个图书馆管理系统源程序。非常有用

VERSION 5.00
Begin VB.Form Form9 
   BorderStyle     =   0  'None
   Caption         =   "系统参数中心"
   ClientHeight    =   1500
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   6000
   LinkTopic       =   "Form9"
   ScaleHeight     =   1500
   ScaleWidth      =   6000
   StartUpPosition =   2  '屏幕中心
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      IMEMode         =   3  'DISABLE
      Index           =   2
      Left            =   1440
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   450
      Width           =   975
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Index           =   1
      Left            =   3600
      TabIndex        =   1
      Top             =   120
      Width           =   975
   End
   Begin VB.TextBox Text1 
      Appearance      =   0  'Flat
      BorderStyle     =   0  'None
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Index           =   0
      Left            =   1440
      TabIndex        =   0
      Top             =   120
      Width           =   975
   End
   Begin VB.Image Image2 
      Height          =   600
      Left            =   4920
      MouseIcon       =   "cslogin.frx":0000
      MousePointer    =   99  'Custom
      Picture         =   "cslogin.frx":0152
      Top             =   840
      Width           =   600
   End
   Begin VB.Image Image1 
      Height          =   600
      Left            =   4920
      MouseIcon       =   "cslogin.frx":3AD4
      MousePointer    =   99  'Custom
      Picture         =   "cslogin.frx":3C26
      Top             =   60
      Width           =   600
   End
End
Attribute VB_Name = "Form9"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Me.Picture = LoadPicture(App.path & "\images\cs_login.jpg")
Text1(0).BackColor = RGB(133, 146, 178)
Text1(1).BackColor = RGB(133, 146, 178)
Text1(2).BackColor = RGB(133, 146, 178)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture(App.path & "\images\csenter_1.jpg")
Image2.Picture = LoadPicture(App.path & "\images\csenter_1.jpg")
End Sub
Private Sub Image1_Click()
On Error GoTo tkfinish
server = Text1(0).Text
loginname = Text1(1).Text
password = Text1(2).Text
Unload Me
tkOpenSQLServerDB server, "master", loginname, password
Dim sql As String
sql = "select * from sysdatabases Where Name = 'tushu'"
Set rs = cnn.Execute(sql)
If Not rs.EOF Then
cnn.Close
tkOpenSQLServerDB server, "tushu", loginname, password
ret1 = WritePrivateProfileString("LOGINSQL", "SERVER", server, App.path & "\login.ini")
ret2 = WritePrivateProfileString("LOGINSQL", "LOGIN", loginname, App.path & "\login.ini")
ret3 = WritePrivateProfileString("LOGINSQL", "PASSWORD", password, App.path & "\login.ini")
form3.Show
Exit Sub
End If
sql = "select * from sysdatabases where name='master'"
Set rs = cnn.Execute(sql)
Dim path As String
path = Left(rs.Fields(10), 2)
MsgBox "第一次登陆，正在新建数据库！", vbInformation, "新建数据库"
sql = "create database tushu"
MsgBox "执行系统备份的还原！", vbInformation, "还原数据库"
Set rs = cnn.Execute(sql)
sql = "RESTORE DATABASE tushi FROM disk='" & App.path & "\sql\tushu'  With Move 'tushu_data' TO '" & path & "\Program Files\Microsoft SQL Server\MSSQL\Data\tushu.mdf', Move 'tushu_log' TO '" & path & "\Program Files\Microsoft SQL Server\MSSQL\Data\tushu.ldf'"
Set rs = cnn.Execute(sql)
cnn.Close
tkOpenSQLServerDB server, "tushu", loginname, password
ret1 = WritePrivateProfileString("LOGINSQL", "SERVER", server, App.path & "\login.ini")
ret2 = WritePrivateProfileString("LOGINSQL", "LOGIN", loginname, App.path & "\login.ini")
ret3 = WritePrivateProfileString("LOGINSQL", "PASSWORD", password, App.path & "\login.ini")
form3.Show
tkfinish:
Me.Show
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture(App.path & "\images\csenter_2.jpg")
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
        MsgBox "此版本为试用版本,联系QQ342483870可购买源码"
    Exit Sub
tkfinish:
    MsgBox "登录失败！", vbInformation, "系统提示"
End Sub

Private Sub Image2_Click()
On Error GoTo tkfinish
Unload Me
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=master;Data Source=."
Dim sql As String
sql = "select * from sysdatabases Where Name = 'tushu'"
Set rs = cnn.Execute(sql)
If Not rs.EOF Then
cnn.Close
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=tushu;Data Source=."
    MsgBox "此版本为试用版本,联系QQ342483870可购买源码"
ret1 = WritePrivateProfileString("LOGINSQL", "SERVER", "127.0.0.1", App.path & "\login.ini")
ret2 = WritePrivateProfileString("LOGINSQL", "LOGIN", "", App.path & "\login.ini")
ret3 = WritePrivateProfileString("LOGINSQL", "PASSWORD", "", App.path & "\login.ini")
form3.Show
Exit Sub
End If
sql = "select * from sysdatabases where name='master'"
Set rs = cnn.Execute(sql)
Dim path As String
path = Left(rs.Fields(10), 2)
MsgBox "第一次登陆，正在新建数据库！", vbInformation, "新建数据库"
sql = "create database tushu"
MsgBox "执行系统备份的还原！", vbInformation, "还原数据库"
Set rs = cnn.Execute(sql)
sql = "RESTORE DATABASE tushu FROM disk='" & App.path & "\sql\tushu'  With Move 'tushu_data' TO '" & path & "\Program Files\Microsoft SQL Server\MSSQL\Data\tushu.mdf', Move 'tushu_log' TO '" & path & "\Program Files\Microsoft SQL Server\MSSQL\Data\tushu.ldf'"
Set rs = cnn.Execute(sql)
cnn.Close
cnn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=tushu;Data Source=."
ret1 = WritePrivateProfileString("LOGINSQL", "SERVER", "127.0.0.1", App.path & "\login.ini")
ret2 = WritePrivateProfileString("LOGINSQL", "LOGIN", "", App.path & "\login.ini")
ret3 = WritePrivateProfileString("LOGINSQL", "PASSWORD", "", App.path & "\login.ini")
form3.Show
tkfinish:
MsgBox "本地登陆出现错误!"
Me.Show
End Sub

Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Picture = LoadPicture(App.path & "\images\csenter_2.jpg")
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 13 Then
    Call Image1_Click
End If
End Sub