VB 图书管理系统设计

VB 简易图书管理系统设计方案

VB 图书管理系统 源代码下载 (包括源码、数据库查询、设计方案汇报)

我的网站

一、基本上简述

1. 根据VB,mysql数据库

2. 有着可操作面板

3. 完成基本上图书管理系统作用

二、数据库查询的设计构思

1. 书籍信息

图书信息：{书号，小说名字，创作者，分类号，出版社出版，价钱，引言，入场日期，是不是在架}

2. 读者客户信息

读者用户信息：{读者号（客户ID），登陆密码，名字，性別，企业，种类，身份证号码，处罚额度，申请办理日期，家庭住址，电話，电子邮箱}

3. 管理人员信息

管理员信息：{账户，登陆密码，名字，性別是不是删掉}

4. 借阅信息

借阅信息：{借阅序号，读者号（客户ID），书号，借阅時间，还书时间，是不是已偿还}

系统软件E-R图

'一部分编码--登录页Private Sub Com ** nd1_Click()Dim conn As ADODB.ConnectionDim rs As ADODB.RecordsetDim stru$, strp$, strsql$Static count As Bytestru = Text1.textstrp = Text2.textusername = Text1.textIf stru = "" ThenMsgBox "登录名不可以为空，输入您登录名！", , "登录不正确"Text1.SetFocusExit SubElseIf strp = "" ThenMsgBox "登陆密码不可以为空，请输入密码！", , "登录不正确"Text2.SetFocusExit SubEnd IfSet conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.Open "provider=SQLOLEDB.1;datasource=(local);persist security info=false;integrated security=sspi;database=bms"rs.Open "select * from ruser where ruser='" & stru & " 'and rpsw='" & strp & "'; ", connIf rs.EOF Thencount = count 1MsgBox "登录名不会有或是密码错误！", , "登录失败"Text1.text = ""Text2.text = ""Text1.SetFocusElselogins = Trueusername = rs("ruser").Valuepass = rs("rpsw").ValueF_index.ShowMe.HideEnd Ifrs.Closeconn.CloseSet rs = NothingSet conn = NothingIf count >= 3 ThenMsgBox "超出登陆频次，没有权利登陆本系统软件！", , "登录失败"EndEnd IfEnd SubPrivate Sub Com ** nd2_Click()Dim conn As ADODB.ConnectionDim rs As ADODB.RecordsetDim stru$, strp$, strsql$Static count As Bytestru = Text1.textstrp = Text2.textIf stru = "" ThenMsgBox "登录名不可以为空，输入您登录名！", , "登录不正确"Text1.SetFocusExit SubElseIf strp = "" ThenMsgBox "登陆密码不可以为空，请输入密码！", , "登录不正确"Text2.SetFocusExit SubEnd IfSet conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.Open "provider=SQLOLEDB.1;datasource=(local);persist security info=false;integrated security=sspi;database=bms"rs.Open "select * from auser where auser='" & stru & " 'and apsw='" & strp & "'; ", connIf rs.EOF Thencount = count 1MsgBox "登录名不会有或是密码错误！", , "登录失败"Text1.text = ""Text2.text = ""Text1.SetFocusElselogins = Trueusername = rs("auser").Valuepass = rs("apsw").ValueF_a_index.ShowMe.HideEnd Ifrs.Closeconn.CloseSet rs = NothingSet conn = NothingIf count >= 3 ThenMsgBox "超出登陆频次，没有权利登陆本系统软件！", , "登录失败"EndEnd IfEnd SubPrivate Sub Com ** nd3_Click()Text1.text = ""Text2.text = ""Text1.SetFocusEnd Sub

一部分运作截屏