电子商务Word文件下载.docx

1、登记新书信息并编号b） 借书证办理登记读者信息并编号c） 图书查询允许读者选择查询方式，并按照读者输入的信息查找到相关图书的信息并显示d） 借书查看是否能借书，如果可以则登记相关信息，打印借书条。e） 还书查看是否超期，如果超期，则计算应交罚款。三、 数据库设计1 数据库数据库名称为library.mdb。2 表数据库中包含三个表：图书表（book）、读者表（reader）、借阅表（borrow）各表结构如下：book字段名书号书名作者出版社出版时间版次价格总册数类型文本数字字段大小82010整数字节单精度型其它数字字符必填1990至当年19两位小数110主键reader借书证号学号姓名班级照

2、片OLE对象64数字字符/必填borrow流水号借书日期已归还自动编号文本/查阅日期是/否默认值：Date（）否book表与borrow表为一对多的关系，连接字段为book的书号和borrow的书号；reader表与borrow表为一对多的关系，连接字段为reader的借书证号和borrow的借书证号。四、 总体设计1 总体功能设计系统功能总体分为五个模块：管理员登录、图书上架、借阅证办理、图书查询和借书还书。2 系统功能模块图总控模块图书上架借阅证办理图书查询借书还书管理员登录总控模块以主窗体形式出现。其中，默认情况下，管理员登录、图书查询和借书还书模块可以使用，即所有用户都可以使用。只有进

3、行合法的管理员登录后，图书上架、借阅证办理才可以使用。3 子模块功能设计l 管理员登录子模块用来判断用户输入的密码是否正确，以决定是否进入管理员模式 图书上架子模块用来输入图书基本信息 借阅证办理子模块用来输入读者基本信息 图书查询子模块包括按照书名、读者、出版社进行选择查询、条件查询和模糊查询三大部分 借书还书子模块包括借书和还书两个二级子模块。其中， 借书二级子模块包括借书信息输入和打印借书条两部分 还书二级子模块包括还书信息输入和计算超时欠费两部分五、 详细设计1 系统初始化模块系统初始化模块的作用是声明系统全局变量，初始化系统变量设置等。模块initOption Compare Dat

4、abasePublic Login As Boolean 全局变量Login - 记录管理员是否登录2 系统主控模块主窗体（1） 功能说明系统主窗体是用户进入系统后首先打开的窗体，主要用于方便用户进行工作选择，因此采用按钮和菜单两种方式完成。（2） 界面设计按钮i 主窗体界面图系统主窗体界面设计如图 1。图 1ii 主窗体及控件属性系统主窗体及控件属性如表 1。表 1名称属性属性值主窗体标题图书借阅管理系统滚动条两者均无记录选择器导航按钮分割线自动调整自动居中是边框样式细边框最大最小化按钮最小化按钮命令0单击事件运行宏“管理员登录”Label0命令1运行宏“图书上架”可见性Label1命令2运

5、行宏“借阅证办理”Label2命令3运行宏“图书查询”Label3命令4运行宏“借书还书”Label4iii 主窗体及控件事件宏和代码主窗体“加载”事件Private Sub Form_Load（） Login = FalseEnd Sub主窗体“打开”事件Private Sub Form_Open（Cancel As Integer） 命令1.Visible = Login Label1.Visible = Login 命令2.Visible = Login Label2.Visible = Login 命令0.Visible = Not Login Label0.Visible = Not

6、 Login “管理员登录”宏操作参数参数值Close对象类型窗体对象名称OpenForm窗体名称 “图书上架”宏数据模式增加“借阅证办理”宏“图书查询”宏“借书还书”宏（3） 界面设计菜单i 系统主菜单系统主菜单（略）如表 2。（）表 2菜单项子菜单宏管理打开窗体OpenForm图书信息修改退出系统Quit借还书打开查询OpenQuery借书打开报表OpenReport还书窗口最小化Minimize帮助关于系统说明系统设计说明ii 宏设计（略）如表 2。表 33 管理员登录子模块“管理员登录”窗体在系统主界面中当用户选择管理员登录功能时，打开管理员登录窗体，要求用户输入管理员密码。密码正确才

7、能进入。密码输入错误，给出提示并返回主控窗体。（2） 界面设计“管理员登录”窗体界面设计如图 2：图 2控件标签标签1请输入管理员密码:文本框密码输入掩码按钮确定默认（3） 功能实现单击“确定”按钮时，进行密码验证，决定登录是否成功。在“确定”按钮的“单击”事件中，写入如下代码：Private Sub命令2_Click（） If 密码 admin Then MsgBox 密码输入错误！即将进入读者登录界面。 Else欢迎进入管理员登录界面！ Login = True End If DoCmd.Close DoCmd.OpenForm 主窗体4 图书上架子模块“图书上架”窗体在系统主界面中当用户

8、选择“图书上架”功能时，打开“图书上架”窗体，要求用户输入图书基本信息。输入完成后关闭窗体，即可完成图书信息输入，并返回主控窗体。“图书上架”窗体界面设计如下图 3：图 3其中，窗体及主要控件属性设置如下：记录源“book”表关闭“关闭”按钮Private Sub 关闭_Click（）On Error GoTo Err_关闭_ClickExit_关闭_Click: Exit SubErr_关闭_Click: MsgBox Err.Des cription Resume Exit_关闭_Click5 借阅证办理子模块“借阅证办理”窗体在系统主界面中当用户选择“借阅证办理”功能时，打开“借阅证办理

9、”窗体，要求用户输入读者基本信息。输入完成后关闭窗体，即可完成读者信息输入，并返回主控窗体。“借阅证办理”窗体界面设计如图 4：图 4“reader”表“借书证号”控件来源000000是否锁定结束办理结束“班级”组合框属性如下图：窗体加载后，自动将焦点设置在“学号”文本框上 学号.SetFocus输入学号后，自动将“借书证号”设置为与“学号”相同Private Sub 学号_Change（） 借书证号 = 学号Private Sub 学号_LostFocus（） “结束”按钮Private Sub 结束_Click（）On Error GoTo Err_结束_Click ch = MsgBox

10、（输入的读者信息将会保存。请确认数据输入是否正确。 & vbCrLf _单击“是”将保存数据，单击“否”将回到输入窗口继续输入或修改。, _ vbQuestion + vbYesNo + vbDefaultButton2, 确认保存） If ch = vbYes ThenExit_结束_Click:Err_结束_Click: Resume Exit_结束_Click6 图书查询子模块“图书查询”窗体在系统主界面中当用户选择“图书查询”功能时，打开“图书查询”窗体，允许用户选择按照书名、读者、出版社查询或使用模糊查询。“图书查询”窗体界面设计如图 5：图 5窗体属性如下表：“Combo条件”文本

11、框属性如下图：单击“按书名查询图书及现有册数”按钮（名称为“按书名查询”），打开“按书名查询图书及现有册数”窗体Private Sub 按书名查询_Click（）On Error GoTo Err_按书名查询_Click按书名查询图书及现有册数Exit_按书名查询_Click:Err_按书名查询_Click: Resume Exit_按书名查询_Click 单击“按作者查询图书及现有册数”按钮（名称为“按作者查询”），打开“按作者查询图书及现有册数”窗体Private Sub 按作者查询_Click（）On Error GoTo Err_按作者查询_Click按作者查询图书及现有册数Exit_

12、按作者查询_Click:Err_按作者查询_Click: Resume Exit_按作者查询_Click 单击“按出版社查询图书及现有册数”按钮（名称为“按出版社查询”），打开“按出版社查询图书及现有册数”窗体Private Sub 按出版社查询_Click（）On Error GoTo Err_按出版社查询_Click按出版社查询图书及现有册数Exit_按出版社查询_Click:Err_按出版社查询_Click: Resume Exit_按出版社查询_Click如果在“查询条件”组合框（名称为“Combo条件”）中选择“全部”，则不显示“查询内容”文本框，否则显示Private Sub Co

13、mbo条件_Change（） If Combo条件.ListIndex = 0 Then Text查询内容.Visible = False Label查询内容.Visible = False Text查询内容.Visible = TrueLabel查询内容.Visible = TruePrivate Sub Combo条件_Click（） Label查询内容.Visible = True单击“条件查询”按钮（名称为“Cmd查询”），根据条件分别打开不同窗体Private Sub Cmd查询_Click（） Select Case Combo条件 Case 全部查询结果书名书名查询, OpenA

14、rgs:=Text查询内容作者作者查询出版社出版社查询单击“模糊查询”按钮（名称为“模糊查询”），根据条件查询（使用SQL命令）后显示Private Sub 模糊查询_Click（）On Error GoTo Err_模糊查询_Click sqlstr = num = 1 If 书号 If num 1 Then sqlstr = sqlstr & and num = num + 1书号 like * 书号 &* If 书名 书名 like 书名 & If 作者 作者 like 作者 & If 出版社 出版社 like 出版社 & If 出版时间 出版时间 like 出版时间 & If 版次 n

15、um = num + 1版次 like 版次 & If 价格 价格 like 价格 &End If If sqlstr =sqlstr请输入查询要求！Exit_模糊查询_Click:Err_模糊查询_Click: Resume Exit_模糊查询_Click7 图书查询各子模块（子窗体）（1） “按书名查询图书及现有册数”窗体、“按作者查询图书及现有册数”窗体、“按出版社查询图书及现有册数”窗体界面设计“按书名查询图书及现有册数”窗体界面如图 6（其他类似）：图 6各窗体“记录源”属性如下表：“按书名查询图书及现有册数”“按书名查询图书及现有册数”查询“按作者查询图书及现有册数”“按作者查询图书及现有册数”查询“按出版社查询图书及现有册数”“按出版社查询图书及现有册数”查询查询实现“按书名查询图书及现有册数”查询设计如图 7：（其余类似）图 7“查询图书借出册数”查询实现（2） “书名查询”窗体、“作者查询”窗体、“出版社查询”窗体“书名查