基于VB.Net的图书馆管理系统的设计与实现（用户登录界面）

采用VS2010和Microsoft office access来设计实现

一、   系统分析1.  功能图

2.  数据表结构 1)  读者管理表 

 2)  罚款信息表 

 3)  还书表 

 4)  借书表 

5)  图书管理表 

 6)  账号表 

二、系统设计

1、用户登录

A.  说明

用户账号与密码与数据库相连，输入正确则显示“登陆成功！”，输入错误则显显示“您输入的账号不存在或密码有误，请重新输入！”。点击取消按钮则跳出询问框询问“你是否真的要退出系统？”。

B.  核心代码

Private Sub btndenglu_Click(ByValsender As System.Object, ByVal e As System.EventArgs) Handles btndenglu.Click

        Dim strID As String = String.Empty

        Dim strpass As String = String.Empty

        Dim ret As Boolean

        Dim manager As New Manager.Manager

        Dim BookFMain15 As New BookFMain15

        '获取用户输入的账号和密码

        strID = txtID.Text.Trim()

        strpass = txtpass.Text.Trim()

        ret = manager.isUserExist(strID,strpass)

        If ret = True Then

            Me.Hide()

            BookFMain15.Show()

            MessageBox.Show("登录成功！")

        Else

            MessageBox.Show("您输入的帐号不存在或密码有误，请重新输入","警告", MessageBoxButtons.OK,MessageBoxIcon.Warning)

            txtID.Text = ""

            txtpass.Text = ""

        End If

End Sub

PrivateSub btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles btncancel.Click

        '设置一个值

        Dim ret As DialogResult

        ret = MessageBox.Show("你是否真的要退出系统？","询问", MessageBoxButtons.YesNo,MessageBoxIcon.Question)

        If ret = Windows.Forms.DialogResult.YesThen

            Me.Close()

        Else

            txtID.Text = ""

            txtpass.Text = ""

        End If

End Sub①  控件设计

2、用户注册和忘记密码 1)  用户注册

A.  核心代码 Private Subbtnzhuce_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles btnzhuce.Click       Dim zhanghao As String       Dim mima As String        '获取用户输入的账号和密码       zhanghao = txtzhanghao.Text.Trim()       mima = txtmima.Text.Trim()        '生成一个用户的信息       Dim yonghu As New yonghu        yonghu.zhanghao = zhanghao       yonghu.mima = mima        '调用业务逻辑层里面的一个添加用户的方法       Dim ret As Boolean       Dim manager As New Manager.Manager        ret = manager.zhuceyonghu(yonghu)       If ret = True Then             MessageBox.Show("用户信息添加成功！","提示", MessageBoxButtons.OK,MessageBoxIcon.Information)        Else            MessageBox.Show("用户信息添加失败！","提示", MessageBoxButtons.OK,MessageBoxIcon.Warning)       End If ①  控件设计 

①  控件设计