module1.vb

图书管理系统

Imports System.Data.SqlClient
Module Module1
    Public constr As String = "Initial Catalog=homework;Data Source=CZH\CHENZIHONG;Integrated Security=SSPI;"
    Public mycon As New SqlConnection(constr)
    Public mycom As SqlCommand
    Public myda As SqlDataAdapter
    Public ad As String
    Sub main()
        '实例化一个登陆界面的窗口，以对话模式的形式显示出来
        Dim ps As New login
        ps.StartPosition = FormStartPosition.CenterScreen
        ps.ShowDialog()
        '验证密码成功后，进入系统管理员主界面
        Application.Run(New mainpro)
    End Sub
End Module