基于VB.NET图书管理系统(8)

来源：xiaoniu168.com 作者：本站原创添加时间：2012-04-14 点击数：26106

6.2 登陆窗体的设计
这个窗体主要用来对管理员进行登录操作，管理员输入“编号”和“密码”后对管理员输入的进行验证。如果用户编号和密码正确单击“确定”进入系统主窗体。
添加一个窗体，这个窗体共由1个form控件、4个label控件、3个textbox控件和2个button控件组成。窗体运行效果如图所示。
主要代码设计：
       // '判断用户输入密码的合法性
        If Me.UserPwd.Trim() = Me.txbPwd.Text.Trim() _
        And UserPwd <> "" Then
            '合法用户
            ' bResult = True
            'UserName = Me.txbName.Text.Trim()
            'Me.Close()
            Dim frmlogin As New frmMain
            frmlogin.Show()
            Me.Hide()
        Else
            '密码错误
            bResult = False
            MessageBox.Show("请确认你的用户名或密码是否正确")
        End If
       End Sub
       …… …… …… ……
在该窗体加载时候进行数据库的连接输入编号，如果编号正确，自动加载姓名，然后输入用户密码。如果密码正确进入系统主窗体控件。如果密码不正确，提示密码错误。
6.3 主窗体的设计
本窗体主要是由读者管理、图书管理、流通管理和退出系统等几个菜单控件组成。选择主菜单中的各菜单项即可进入相应的功能模块。
6.4 创建数据访问模块
因为各个窗体均需要对数据库进行访问，可以把数据库的一些操作通过一个类实现，这样就可以使对数据库的访问更加简单。添加一个名为“DataBase.vb”的类文件。主要代码设计：
Public Class DataBase
    '实现接口IDisposable
    Implements IDisposable
    '数据库连接对象
    Private SqlConn As SqlConnection
Public Shared sConn As String = "Persist Security Info=False;Integrated Security=SSPI;database=libbook;server=本机数据库服务器名称;Connect Timeout=30"
    …… …… …… ……
    Public Sub Open()
        If SqlConn Is Nothing = True Then
            '建立数据库连接对象
            SqlConn = New SqlConnection(Me.sConn)
            '打开数据库连接
            SqlConn.Open()
        End If
    End Sub
    Public Sub Close()
        '如果数据库连接对象不为空则关闭数据库连接
        If SqlConn Is Nothing = False Then
            SqlConn.Close()
        End If
    End Sub