vb+access图书管理系统Word文件下载.docx

1、图书名称bookname图书作者author图书出版社publish图书简介content图书单价piece图书本数number图书剩余数remain图书类别bookkind图书所在位置position 图书借还管理模块 借书信息添加记录 还书信息添加记录借或还 mode学生学号studentid图书条码 isbn图书名称 bookname借还日期 date 数据库建模 抽象概念模型 实体（Entity） 用户信息 图书类别信息 图书信息 图书借还信息 关系（relation） 图书类别和图书之间存在一对多的关系 数据库系统建表 Mysql的数据建表工具实现表对象的创建 通过纯sql脚本进行创

2、建 框架搭建技术选型本来是用mysql+vb的（sql脚本建表好屌的样子），结果XX好久都没找到正确的连接方法，只好改为Access+ VB （c/s） Debug/release（图书管理系统.exe） Mysql建表-创建数据库Create database test;Use test;-创建用户信息表create table t_user（userid varchar（20） not null primary key,username varchar（20） not null,class varchar（30） not null,password varchar（20） not null

3、）;insert into t_user values（1,管理员admin123456）;201110020123尹雄辉信计11101班select *from t_user;+-+-+-+-+| userid |username| class | password | 1 | 管理员 | admin | 123456 | 201110020123 | 尹雄辉 | 信计11101班| 123456 |-创建图书类别表create table t_bookkind（bookid varchar（20） not null primary key,bookkind varchar（30） not

4、null,remark varchar（200）;insert into t_bookkind values（1001计算机类1002数学类select *from t_bookkind;+-+-+-+| bookid | bookkind | remark | 1001 | 计算机类 | | 1002 | 数学类 | |-创建图书信息表create table t_book（isbn varchar（30） not null primary key,bookname varchar（30） not null,author varchar（30） not null,publish varcha

5、r（40） not null,content varchar（200） not null,piece varchar（10） not null,number int（3） not null,remain int（3） not null,Position varchar（30） not null）;insert into t_book values（10001C语言程序设计alicehuas.255,T200.201）;10002ACM程序设计bob30,T201.102）;Select *from t_book;+-+-+-+-+-+-+-+-+-+-+| isbn | bookname |

6、author| publish| content| piece| number| remain| bookkind|position| 10001| C语言程序设计| alice | huas | . | 25 | 5 | 5 | 计算机类 |T200.201| 10002| ACM程序设计 | bob | huas | . | 30 | 5 | 5 | 计算机类 |T201.102|-创建借还信息表create table t_form（mode varchar（10） not null,Studentid varchar（20） not null primary key,isbn varc

7、har（20） not null,date date not null）;insert into t_form values（借,curdate（）;还select *from t_form;+-+-+-+-+| mode | isbn | studentid | bookname | date | 还 | 10002 | 201110020123 | ACM程序设计 | 2014-06-17 | 借 | 10001 | 201110020123 | C语言程序设计 | 2014-06-17 | 代码编写 登录界面Option ExplicitDim cnt As Integer 记录确定次数

8、Private Sub Command1_Click（）Dim sql As StringDim rs_login As New ADODB.RecordsetIf Trim（Text1.Text） = Then 判断输入的用户名是否为空 MsgBox 用户名不能为空, vbOKOnly + vbExclamation, Text1.Text = Text2.Text = Text1.SetFocusElse sql = select * from t_user where userid= & Text1.Text & rs_login.Open sql, con1, adOpenKeyset

9、, adLockPessimistic If rs_login.EOF = True Then没有这个用户 Else 检验密码是否正确 If Trim（rs_login.Fields（3） = Trim（Text2.Text） Then userid = Text1.Text password = rs_login.Fields（3） rs_login.Close Unload Me menu0.Show Else密码不正确 Text2.Text = “” Text2.SetFocus End IfEnd Ifcnt = cnt + 1If cnt = 3 ThenExit SubEnd Su

10、bPrivate Sub Command2_Click（）Unload MePrivate Sub Form_Load（）con1.Open provider=Microsoft.Jet.oledb.4.0;data source=t_user.mdbcon2.Open data source=t_bookkind.mdbcon3.Open data source=t_book.mdbcon4.Open data source=t_form.mdbcnt = 0 修改密码Dim rs_chang As New ADODB.RecordsetIf Trim（Text1.Text） Trim（Te

11、xt2.Text） Then密码不一致！ userid & rs_chang.Open sql, con1, adOpenKeyset, adLockPessimistic rs_chang.Fields（3） = Text1.Text rs_chang.Update rs_chang.Close密码修改成功 超级用户菜单 添加用户Dim i As LongDim rs_add As New ADODB.RecordsetIf Trim（Text1（0）.Text） = Thenuserid不能为空 Exit Sub Text1（0）.SetFocusElseIf Trim（Text1（1）.

12、Text） = username不能为空 Text1（1）.SetFocusElseIf Trim（Text1（2）.Text） = class不能为空 Text1（2）.SetFocusElseIf Trim（Text1（3）.Text） = password不能为空 Text1（3）.SetFocusselect * from t_user rs_add.Open sql, con1, adOpenKeyset, adLockPessimistic While （rs_add.EOF = False） If Trim（rs_add.Fields（0） = Trim（Text1（0）.Tex

13、t） Then已有这个用户 For i = 0 To 3 Text1（i）.Text = Next i rs_add.MoveNext Wend rs_add.AddNew rs_add.Fields（i） = Text1（i）.Text rs_add.Update rs_add.Close添加用户成功 修改用户信息Dim flag As BooleanDim rs_change As New ADODB.RecordsetIf Trim（Text1（1）.Text） = For i = 1 To 3 rs_change.Fields（i） = Text1（i）.Text rs_change.

14、Update rs_change.Close修改用户信息成功 flag = FalsePrivate Sub Command3_Click（）学号不能为空 rs_change.Open sql, con1, adOpenKeyset, adLockPessimistic Do While （rs_change.EOF = False） If Trim（rs_change.Fields（0） = Trim（Text1（0）.Text） Then flag = True Exit Do rs_change.MoveNext Loop If flag = True Then Text1（i）.Tex

15、t = rs_change.Fields（i）不存在该用户flag = False 删除用户Dim rs_delete As New ADODB.Recordset rs_delete.Open sql, con1, adOpenKeyset, adLockPessimistic Do While （rs_delete.EOF = False） If Trim（rs_delete.Fields（0） = Trim（Text1.Text） Then rs_delete.MoveNext rs_delete.Delete rs_delete.Update rs_delete.Close删除成功Dim connectionstring As Stringconnectionstring = _conn.Open connectionstring 查询用户信息Dim rs_query As New ADODB.Recordset rs_query.Open sql, con1, adOpenKeyset, adLockPessimistic Do Wh