-
作者 书名 定价 入库日期 图书 进价 进货量 剩余量 图3-3 图书信息实体E-R图
3）供应商信息实体E-R图： 供应商 供应商名称 供应商地址 图3-4 供应商信息实体E-R图
4）实体与实体之间的关系E-R图： 管理员 付款 顾客 管理 有 发货 无 图书 供应商 图3-5 实体与实体之间的关系E-R图
总结
（
（
-
3.4.2建立关系数据库表
本系统数据库一共是由图书库存信息表，已销售图书信息表，供应商信息表和管理员信息表组成。
表3-1 图书库存信息表
数据元素名称 书名 作者 定价 进价 进货量 剩余量 入库日期 长度 50 10 50 9 9 10 10 10 类型 char char char money money number number datetime 单位 元 元 本 本 表3-2 已销售图书信息表
数据元素名称 书名 作者 定价 长度 50 10 50 9 类型 char char char money 单位 元 表3-3 供应商信息表
数据元素名称 供应商名 地址 长度 10 10 表3-4 管理员信息表
类型 char char 数据元素名称 管理员 密码 长度 10 10 类型 char char 总结
-
权限 10 char 4系统实现
实现图书馆管理系统的管理，首先得通过登录进入系统主界面，实现登录的界面如下图4-1所示：
图4-1 登录界面
输入正确的管理用户名和密码，程序即可进入主窗体界面如下图4-2所示：
图4-2 主窗体界面
总结
-
4.1图书销售管理界面设计
进入主窗体界面中选择图书销售，可对图书销售进行管理，即图书销售，图书退货。图书销售界面，先用书名查询图书，而后查询结果显示在下面的表格中选择该书然后点击确定，跳到该书信息页面，若有库存则可以售出，其中图书查询界面如图4-3所示：
图 4-3 图书查询界面
其主要代码如下： Dim sql As String
Dim rs_find As New ADODB.Recordset Dim conn As New ADODB.Connection
sql = \图书库存信息 where 书名= '\ext1.Text & \conn.Open \Security=SSPI;Persist Security Info=False;Initial Catalog=书店销售\
rs_find.CursorLocation = adUseClient
rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic DataGrid1.AllowAddNew = False
总结
-
DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False Set DataGrid1.DataSource = rs_find
点击查询界面面后，跳到图书售书界面，其界面如图4-4所示：
图4-4 售书界面
其主要代码如下：
Dim rs_sellbook As New ADODB.Recordset Dim sql As String
Dim conn As New ADODB.Connection conn.Open
\
Security=SSPI;Persist
Security Info=False;Initial Catalog=书店销售\
Adodc2.RecordSource = \已销售图书\ Adodc2.Recordset.AddNew
Adodc2.Recordset.Fields(0) = Trim(Text2.Text) Adodc2.Recordset.Fields(1) = Trim(Text3.Text) Adodc2.Recordset.Fields(2) = Trim(Text10.Text) Adodc2.Recordset.Fields(3) = Trim(Text5.Text)
总结
书店销售管理信息系统分析与设计 - 图文
