计算机图书管理系统毕业论文

毕业设计 论文 毕业设计 论文 学校 抚顺师范高等专科学校学校 抚顺师范高等专科学校 专业 计算机网络技术专业 计算机网络技术 姓名 姓名 完成时间 完成时间 学生姓名 学生姓名 专业年级 专业年级 08 计网计网 设计 论文 题目 设计 论文 题目 计算机图书管理系统计算机图书管理系统 设计设计 论文论文 要求要求 计算机图书管理系统要求能够完成书籍录入计算机图书管理系统要求能够完成书籍录入 借阅借阅 查询 统计 用户管理 并提供部分系统维护功能查询 统计 用户管理 并提供部分系统维护功能 使管理员能够方便进行数据使管理员能够方便进行数据 添加和修改 数据删除等功能 添加和修改 数据删除等功能 指导教师 指导教师 系主任 系主任 摘要摘要 中文摘要 中文摘要 图书管理系统是典型的信息管理系统 MIS 其开发主要包括后 台数据库的建立和维护以及前端应用程序的开发两个方面 经过分析 使用 Microsoft 公司的 Visual Basic6 0 为开发工具 利用其提供的各种面向对象的 可视化开发平台作为开发工具 采用面向对象技术 图形化的应用开发环境 尤 其是它有一个功能极其强大的集成环境提供级开发人员 使得开发人员可通过菜 单 界面 图形浏览工具 对话框以及嵌入的各种生成器来轻松地完成各种复杂 的操作 开发过程中不断修正和改进 直到形成用户满意的可行系统 本案例开 发的是 计算机图书管理系统 关键字 Keywords 信息管理系统 MIS 数据库 Visual Basic6 0 面向对象 Object 计算机图书管理系统 英文摘要 英文摘要 Books management system management system is the typical information management system MIS its development mainly includes the setting and maintenance of database and the programming of the frontend application Through analysis the Visual Basic6 0 using Microsoft company for development tools USES its offer all kinds of object oriented visualization development platform as a development tool using object oriented technology graphical application development environment especially it has a function extremely powerful integrated environment provides level developers enables developers can through menus interface graphics browsing tools dialog and embedded various generator to easily finish all kinds of complicated operation Development in the process of revising and improving customer satisfaction until the feasible system formed This case developed is computer books management system management system Keyword that information management system MIS database Visual Basic6 0 object oriented Object computer books management system management system 目录目录 摘要 2 第一章 Visual Basic 企业版简介 4 1 11 1 VisualVisual BasicBasic 发展历史发展历史 5 5 1 21 2VisualVisual BasicBasic 语言特性语言特性 5 5 1 31 3VisualVisual BasicBasic 术语术语 6 6 1 41 4 VBVB 的局限性的局限性 6 6 1 51 5 VisualVisual BasicBasic 6 06 0 企业版安装企业版安装 6 6 第二章 数据库设计 mdb 9 2 12 1 数据的概念数据的概念 9 9 2 22 2计算机管图书管理系统数据库计算机管图书管理系统数据库 1010 2 32 3 利用利用 DATADATA 控件访问数据库控件访问数据库 1010 2 42 4 MDBMDB 数据流程图以及数据表数据流程图以及数据表 1515 第三章计算机图书管理系统数据 16 3 13 1 数据库与数据库与 VBVB 的连接的连接 1616 3 23 2关闭数据对象和链接对象关闭数据对象和链接对象 1818 3 33 3显示数据库中的内容显示数据库中的内容 1919 3 43 4计算机图书管理系统数据流程图计算机图书管理系统数据流程图 1919 4 14 1 开发计算机图书管理系统的目的开发计算机图书管理系统的目的 1919 4 24 2开发计算机图书管理系统的思路开发计算机图书管理系统的思路 2020 5 15 1 界面设计规范以及流程图界面设计规范以及流程图 详细见页面详细见页面 14 14 2020 5 25 2系统窗体汇总系统窗体汇总 2020 5 35 3 主窗体界面设计主窗体界面设计 2121 第六章软件 ICO 图标 54 6 16 1ICOICO 设计构思设计构思 5454 6 26 2ICOICO 软件介绍软件介绍 5454 6 36 3ICOICO 制作制作 5454 第七章软件测试分析报告 55 7 17 1 软件信息软件信息 5656 7 27 2常见系统出错问题以及解决常见系统出错问题以及解决 5656 第八章 结束语 57 第九章 参考文献 57 第十章 致谢 57 第一章第一章 VisualVisual BasicBasic 企业版简介企业版简介 Visual Basic VB 是一种由微软公司开发的包含协助开发环境的事件驱动编 程语言 从任何标准来说 VB 都是世界上使用人数最多的语言 不仅是盛赞 VB 的开 发者还是抱怨 VB 的开发者的数量 它源自于 BASIC 编程语言 VB 拥有图形用户界面 GUI 和快速应用程序开发 RAD 系统 可以轻易的使用 DAO RDO ADO 连接数据 库 或者轻松的创建 ActiveX 控件 程序员可以轻松的使用 VB 提供的组件快速建立一 个应用程序 1 11 1 VisualVisual BasicBasic 发展历史发展历史 1991 年 微软公司推出了 Visual Basic 1 0 版 这在当时引起了很大的轰动 这 个连接编程语言和用户界面的进步被称为 Tripod 有些时候叫做 Ruby 最初的设计 是由阿兰 库珀 Alan Cooper 完成的 许多专家把 VB 的出现当做是软件开发史上 的一个具有划时代意义的事件 其实 以我们现在的目光来看 VB1 0 的功能实在是太 弱了 不过最近 VB6 0 VB NET 的功能相当大 但在当时 它是第一个 可视 的编程软件 这使得程序员欣喜之极 都尝试在 VB 的平台上进行软件创作 微软也不 失时机地在四年内接连推出 VB2 0 VB3 0 4 0 三个版本 并且从 VB3 开始 微软将 ACCESS 的数据库驱动集成到了 VB 中 这使得 VB 的数据库编程能力大大提高 从 VB4 开始 VB 也引入了面向对象的程序设计思想 VB 功能强大 学习简单 而且 VB 还引 入了 控件 的概念 使得大量已经编好的 VB 程序可以被我们直接拿来使用 VB1 0 的 DOS 版本 VB1 0 于 1991 年发布 这个连接编程语言和用户界面的进步被称为 Tripod 有些时候叫做 Ruby 最初的设计是由阿兰 库珀 Alan Cooper 完成的 2002 年 Visual Basic NET 2002 v7 0 问世 2003 年 Visual Basic NET 2003 v7 1 问世 2005年 11月 7日 Visual Basic 2005 v8 0 问世 同时间推出 Visual Basic 2005 的免费简化版本 Visual Basic 2005 Express Edition 给 Visual Basic 初学者及 学生使用 VB 2005 的 显著 优点是 可以直接编写出 XP 风格的按钮 以及其他的 控件 但是其编写的小程序占用近 10MB 的内存 2007 年 12 月 微软推出了 Visual Studio 2008 Beta 2 v9 在代码输入上可比 VB2005 快很多 在非特殊的情况 下 VB2008 会自动开启 自动完成关键字 而且支持最新的 NET Framework 3 5 Beta 2 通过几年的发展 它已成为一种专业化的开发语言和环境 用户可用 Visual Basic 快 速创建 Windows 程序 现在还可以编写企业水平的客户端 服务器程序及强大的数据库 应用程序 VB 会吸引更多的赞誉和批评 也会继续为广大的用户和程序员使用 它非常适合用来 开发拥有友好界面的程序 比如针对终端的数据 但是不适合开发其它程序 比如 联合计算程序 现在还有某一些 VB 软件的精简版 比如 VB6 的精简版 1 21 2VisualVisual BasicBasic 语言特性语言特性 一个典型的 VB 进程 VB 的中心思想就是要便于程序员使用 无论是新手或者专家 VB 使用了可以简单建立应用程序的 GUI 系统 但是又可以开发相当复杂的程序 VB 的 程序是一种基于窗体的可视化组件安排的联合 并且增加代码来指定组建的属性和方 法 因为默认的属性和方法已经有一部分定义在了组件内 所以程序员不用写多少代 码就可以完成一个简单的程序 过去的版本里面 VB 程序的性能问题一直被放在了桌面 上 但是随着计算机速度的飞速增加 关于性能的争论已经越来越少 窗体控件的增加和改变可以用拖放技术实现 一个排列满控件的工具箱用来显示可用 控件 比如文本框或者按钮 每个控件都有自己的属性和事件 默认的属性值会在控 件创建的时候提供 但是程序员也可以进行更改 很多的属性值可以在运行时候随着 用户的动作和修改进行改动 这样就形成了一个动态的程序 举个例子来说 窗体的 大小改变事件中加入了可以改变控件位置的代码 在运行时候每当用户更改窗口大小 控件也会随之改变位置 在文本框中的文字改变事件中加入相应的代码 程序就能够 在文字输入的时候自动翻译或者阻止某些字符的输入 VB 的程序可以包含一个或多个窗体 或者是一个主窗体和多个子窗体 类似于操作系 统的样子 有很少功能的对话框窗口 比如没有最大化和最小化按钮的窗体 可以用 来提供弹出功能 VB 的组件既可以拥有用户界面 也可以没有 这样一来服务器端程序就可以处理增加 的模块 VB 使用参数计算的方法来进行垃圾收集 这个方法中包含有大量的对象 提供基本的 面向对象支持 因为越来越多组建的出现 程序员可以选用自己需要的扩展库 和有 些语言不一样 VB 对大小写不敏感 但是能自动转换关键词到标准的大小写状态 以 及强制使得符号表入口的实体的变量名称遵循书写规则 默认情况下字符串的比较是 对大小写敏感的 但是可以关闭这个功能 VB 使得大量的外界控件有了自己的生存空间 大量的第三方控件针对 VB 提供 VB 也提供了建立 使用和重用这些控件的方法 但是由于语言问题 从一个应用程序创 建另外一个并不简单 1 31 3VisualVisual BasicBasic 术语术语 在讨论 Visual Basic 时 经常可以听到以下这些术语 因此对这些术语的基本 理解十分有帮助 控件 简单的说 控件就是构成或者说建造 Visual Basic 应用程序的图形化工具 包括窗体 按钮 复选框 列表框 数据控件 表格控件和图片控件等等 事件 由用户或操作系统引发的动作 事件的示例有击键 单击鼠标 Click 双击 鼠标 DblClick 一段时间的限制 或从端口接收数据 方法 嵌入在对象定义中的程序代码 它定义对象怎样处理信息并响应某事件 例如 数据库对象有打开纪录集并从一个记录移动到另一个记录的方法程序的基本元素 它 含有定义其特征的属性 定义其任务和识别它可以响应的事件的方法 控件和窗体是 Visual Basic 中所有对象的示例 对象 一个控件 窗体等都可被看作一个对象 过程 为完成某些特定的任务而编写的代码段 过程通常用于响应特定的事件 也可 以当作应用程序的用户自定义函数来使用 属性 属性是组成用户界面的各对象的性质的具体描述 例如上述 对象 中所 提到的尺寸 位置 颜色 宽度 高度等等都称为控件的 属性 属性决定对象的外观 有时也决定对象的行为 对象的属性绝大部分是 VB 中已经事先定义好的 但也有的属 性是需要在应用 过程中才去定义的 属性即可为对象提供数据 也能从对象取回信息 1 41 4 VBVB 的局限性的局限性 VB5 和 VB6 都是面向对象的编程语言 但是不包含继承特性 VB 中提供了特殊的 类的功能 但是还是不能满足程序员的需求 VB net 包含了所有面向对象的特性 多 线程支持 VB Net 2002 以及之后的版本 都支持多线程技术 异常处理 VB net 中使用了 Try Catch Finally 来处理异常 而 VB 中只有 On Error Goto line 语句 对指针的支持非常有限 VB 只能支持 8 到 32 位的整形 很多语言都有无限制的支持 VB 不允许在任何数组内存在不变的变量 VB 不支持以上特性 程序员需要自己建构方法来实现相似的功能 1 51 5 VisualVisual BasicBasic 6 06 0 企业版安装企业版安装 根据电脑运行速度 决定安装速度 1 安装时 将 Visual Basic 6 0 系统放如 CD ROM 驱动器 2 在 我的电脑 中找到 Setup exe 文件 双击此文件 运行安装向导 3 按照提示 单击 下一步 按钮进行安装 4 选择安装文件夹 5 在安装的过程中 需要 接受协议 和输入产品号和用户 ID 6 选择公用安装文件夹路径 7 点击 继续 8 确认软件信息 点击 确定 9 点击 典型安装 或 自定义安装 就可以开始安装了 第二章第二章 数据库设计数据库设计 mdbmdb 2 12 1 数据的概念数据的概念 办公软件 Office 套件中 最为广大用户熟悉的是 Word 和 Excel 因为它们功能强大且 方便易用 更因为它们不仅可用于办公 还可用于个人写作和家庭记帐理财等 同为 Office 套件中一部分的 Access 虽然有着同样强大的功能 但使用的人却相对少些 不像 Word 和 Excel 那样广泛 事实上 真正用过 Access 的用户 对其强大功能和灵活应用均称赞有加 Access 数据库管理系统是 Microsoft Office 套件的重要组成部分 适用于小型商务活动 用以存贮和管理商务活动所需要的数据 Access 不仅是一个数据库 而且它具有强大的数 据管理功能 它可以方便地利用各种数据源 生成窗体 表单 查询 报表和应用程序等 有结构的数据集合 它与一般的数据文件不同 其中的数据是无结构的 是一串文字或数字 流 数据库中的数据可以是文字 图象 声音等 Access 一种关系式数据库 关系式数据库由一系列表组成 表又由一系列行和列组成 每一行是一个记录 每一列是一个字段 每个字段有一个字段名 字段名在一个表中不能重 复 图 1 是一个 产品 表的例子 产品 表由 10 个记录组成 一个记录占一行 每一 个记录由产品 ID 产品名称 库存量 订货量 单价和折扣率 6 个字段组成 产品 ID 是字段名 其下面的 1 2 等是字段的值 表与表之间可以建立关系 或称关联 连接 以便查询相关联的信息 Access 数据库以文件形式保存 文件的扩展名是 MDB Access 数据库由六种对象组成 它们是表 查询 窗体 报表 宏和模块 1 表 Table 表是数据库的基本对象 是创建其他 5 种对象的基础 表由记录组成 记录由字段组成 表用来存贮数据库的数据 故又称数据表 2 数据查询 Query 查询可以按索引快速查找到需要的记录 按要求筛选记录并能连接若干个表的字段组成 新表 3 数据窗体 Form 窗体提供了一种方便的浏览 输入及更改数据的窗口 还可以创建子窗体显示相关联的 表的内容 窗体也称表单 4 数据报表 Report 报表的功能是将数据库中的数据分类汇总 然后打印出来 以便分析 5 数据宏 Macro 宏相当于 DOS 中的批处理 用来自动执行一系列操作 Access 列出了一些常用的操作 供用户选择 使用起来十分方便 6 数据模块 Module 模块的功能与宏类似 但它定义的操作比宏更精细和复杂 用户可以根据自己的需要编 写程序 模块使用 Visual Basic 编程 2 22 2计算机管图书管理系统数据库计算机管图书管理系统数据库 计算机管理系统图书管理系统数据库模式定义了数据库的结构 表 关系 域和业务 规则 数据库模式是一种设计 数据库和应用正是建立在此基础上的 域是一列可能拥有 的值的集合 必须为每一个表的每一列确定域 除了数据的物理必填字段外 还需要确定是 否有些域对表来说是唯一的 计算机管理系统图书管理系统数据库模式的最后一个要素是业务规则 它是对需要反映 在数据库和数据库应用程序中的业务活动的允许空字符串 业务规则是模式的一个重要部 分 因为他们指定了无论什么数据变化到达 DBMS 引擎 允许的数据值必须满足的允许空字 符串 不管无效的数据变化请求是来自窗体的用户 查询 修改请求还是应用程序 DBMS 都应 该拒绝 遗憾的是 不同的 DBMS 产品用不同的方法实施业务规则 在某些情况下 DBMS 产 品不具备实施必要业务规则的能力 必须以代码形式把它们编入应用程序 2 32 3 利用利用 DATADATA 控件访问数据库控件访问数据库 该软件是利用 ACCESS 数据库 操作方便 简单 在 ACCESS 数据库中不需要创建数据 连接 因为它是 VB 中默认的数据库形式 这里的数据库采用 Access 用 ADO 作为连接数据 对象 以归纳为以下几步 1 建立 Access 数据库 启动 Access 建立一个空的数据库 ComputerBookmanage 如图 8 所示 使用程序设计器建立系统需要的表 图书表 读者表 还书表 借书表 用户表 2 连接数据 在 Visual Basic 环境下 选择 工程 引用 命令 在随后出现的对话框中选 择 Microsoft ActiveX Data Objects 2 0 Library 然后单击 确定 按钮 如图 3 0 引用 ADO 连接数据库 在程序设计的公共模块中 先定义 ADO 连接对象 语句如下 Public conn As New ADODB Connection 标记连接对象然后在子程序中 用如下的语句即 可打开数据库 Dim connectionstring As String connectionstring provider Microsoft Jet oledb 4 0 Data Source App Path data ComputerBookmanage mdb Persist Security Info False 数据库引擎 路径 Set con New ADODB Connection 新建一个数据库连接 con CursorLocation adUseClient 用于客户端 ADOR Recordset 对象 游标库属 性必须为 adUseClient con ConnectionString constr 连接信息 con Open End Sub Function open connection table name As String Dim sqlstr As String Dim str As String Set con New ADODB Connection Set rst New ADODB Recordset con CursorLocation adUseClient sqlstr Provider Microsoft Jet OLEDB 4 0 Data Source App Path data ComputerBookmanage mdb Persist Security Info False con Open sqlstr str select from Data Source App Path data ComputerBookmanage mdb Persist Security Info False con Open sqlstr 查询办法选择 If Option1 Value True Then str select from 修改后 数据将保存在 user table 表中代码 Public inx As Integer 用户列表的索引号 Private Sub Command1 Click 增加账号 Dim user As userdata Dim ans As String 用户选择 Dim sql ss As String ss CStr Trim Text1 Text If Trim Text1 Text Then frmMsg Show frmMsg notice Visible True frmMsg Text1 Text 用户名不能为空 Text1 SetFocus Exit Sub End If 检测用户名是否已经存在 sql select from user table where 登录名 ss rst Close rst Open sql con adOpenDynamic adLockOptimistic If rst RecordCount 0 Then Msgbox 用户账号 ss 已存在 vbInformation 提示 Exit Sub End If 检测用户权限数是否在规定值之间 1 数据浏览者 2 借书管理员 3 还书管理员 4 系统管理员 If Not Trim Text3 Text 0 Then frmMsg Show frmMsg notice Visible True frmMsg Text1 Text 用户权限级别必须是 1 4 之间的整数 Exit Sub End If 添加新记录 user user id CStr LTrim Text1 Text user pwd CStr LTrim Text2 Text user right LTrim Text3 Text ans Msgbox 增加用户吗 vbOKCancel vbInformation 提示 If ans vbOK Then rst AddNew rst 登录名 user user id rst 密码 user pwd rst 权限 user right rst Update Text1 Text Text2 Text Text3 Text List1 AddItem rst 登录名 Command3 Enabled True Exit Sub Else Exit Sub End If End Sub Private Sub Command2 Click 修改账号 Dim ss As String Dim sql As String ss CStr Trim Text1 Text If Trim Text1 Text Then frmMsg Show frmMsg notice Visible True frmMsg Text1 Text 你没有选择要编辑的信息 Text1 SetFocus Exit Sub End If 修改用户信息 If inx 1 Then sql UPDATE user table SET 登录名 Trim Text1 Text where 登录名 Trim List1 List inx con BeginTrans 启动事务 con Execute sql 执行查询 con CommitTrans 保存所有更改并退出事务 sql UPDATE user table SET 密码 Trim Text2 Text where 登录名 Trim List1 List inx con BeginTrans con Execute sql con CommitTrans sql UPDATE user table SET 权限 Trim Text3 Text where 登录名 Trim List1 List inx con BeginTrans con Execute sql con CommitTrans List1 AddItem Trim Text1 Text List1 RemoveItem inx Text1 Text Text2 Text Text3 Text End If End Sub Private Sub Command3 Click 删除账号 Dim ans As String If inx 1 Then 没有选择要删除的项 frmMsg Show frmMsg notice Visible True frmMsg Text1 Text 请挑选要删除的项 Exit Sub End If If Not rst EOF Then 如果不是最后一个用户记录 ans Msgbox 确实要删除此用户吗 vbOKCancel vbInformation 提示 If ans vbOK Then List1 RemoveItem inx 索引显示删除 rst Delete 删除表内记录 Text1 Text Text2 Text Text3 Text inx 1 Else Exit Sub End If Else Command2 Enabled False Command3 Enabled False End If End Sub Private Sub Command4 Click Unload Me End Sub Private Sub Form Load Dim i As Integer inx 1 初始值定为 1 Call open connection user table 打开 user table 表 For i 0 To rst RecordCount 1 显示用户列表 List1 AddItem rst 登录名 rst MoveNext Next i End Sub Private Sub Image1 Click End Sub Private Sub List1 Click Dim sql As String 选择要修改的用户记录 根据索引显示用户信息 inx List1 ListIndex sql select from user table where 登录名 Trim List1 List inx rst Close rst Open sql con adOpenDynamic adLockOptimistic Text1 Text rst 登录名 Text2 Text rst 密码 Text3 Text rst 权限 End Sub Private Sub xptopbuttons1 Click Unload Me End Sub Private Sub xptopbuttons2 Click Me WindowState 1 End Sub 10 友情提示 窗体中 Text1 显示所有错误信息 窗体图 说明 Text1 属性 borderstyle 为 0 None backclor 属性跟窗体颜色一样 H00C0FFFF 所 以上面图片不见 Text1 12 关于软件 显示软件学校 编制人 指导老师等信息 窗体图 说明 运行 系统信息 将会打开电脑的详细信息 如图 1111 其他功能设计 其他功能设计 无标题窗体移动无标题窗体移动 1 新件一个控件定义为 xp canvas 2 添加一个图片项 3 然后在控件代码视图添加代码 代码如下 Private Declare Function SendMessage Lib user32 Alias SendMessageA ByVal hWnd As Long ByVal wMsg As Long ByVal wParam As Long lParam As Any As Long Private Declare Function ReleaseCapture Lib user32 As Long Private Declare Function SetWindowPos Lib user32 ByVal hWnd As Long ByVal hWndInsertAfter As Long ByVal X As Long Y ByVal cx As Long ByVal cy As Long ByVal wFlags As Long As Long Private Declare Function GetCursorPos Lib user32 lpPoint As PointAPI As Long Private Type PointAPI X As Long Y As Long End Type Dim oldcp As PointAPI Dim newcp As PointAPI Dim m Icon As Picture Dim FixedSingle As Boolean Event Click Event DblClick Event Resize Event KeyDown KeyCode As Integer Shift As Integer Event KeyPress KeyAscii As Integer Event KeyUp KeyCode As Integer Shift As Integer Event MouseDown Button As Integer Shift As Integer X As Single Y As Single Event MouseMove Button As Integer Shift As Integer X As Single Y As Single Event MouseUp Button As Integer Shift As Integer X As Single Y As Single Private Sub lblcaption DblClick If Fixed Single False Then If UserControl Parent WindowState 0 Then UserControl Parent WindowState 2 Else UserControl Parent WindowState 0 End Sub Private Sub pictop DblClick If Fixed Single False Then If UserControl Parent WindowState 0 Then UserControl Parent WindowState 2 Else UserControl Parent WindowState 0 End Sub Private Sub pictop MouseDown Button As Integer Shift As Integer X As Single Y As Single If UserControl Parent WindowState 0 Then ReleaseCapture SendMessage UserControl Parent hWnd HA1 2 0 End If DoEvents End Sub Private Sub imgresize MouseDown Index As Integer Button As Integer Shift As Integer X As Single Y As Single If Fixed Single False Then GetCursorPos oldcp End Sub Private Sub UserControl KeyDown KeyCode As Integer Shift As Integer RaiseEvent KeyDown KeyCode Shift End Sub Private Sub UserControl KeyPress KeyAscii As Integer RaiseEvent KeyPress KeyAscii End Sub Private Sub UserControl KeyUp KeyCode As Integer Shift As Integer RaiseEvent KeyUp KeyCode Shift End Sub Private Sub UserControl MouseDown Button As Integer Shift As Integer X As Single Y As Single RaiseEvent MouseDown Button Shift X Y End Sub Private Sub UserControl MouseMove Button As Integer Shift As Integer X As Single Y As Single RaiseEvent MouseMove Button Shift X Y End Sub Private Sub UserControl MouseUp Button As Integer Shift As Integer X As Single Y As Single RaiseEvent MouseUp Button Shift X Y End Sub 4 应用到所需的窗体中 最大化 最小化按钮最大化 最小化按钮 5 我的建议是加载控件 上一条 下一条按钮 显示功能代码 Private Sub Command Click 上一记录 If rst BOF Then frmMsg Show frmMsg info Visible True frmMsg Text1 Text 已经到达记录顶端 Exit Sub Else rst MovePrevious End If End Sub Private Sub Command Click 下一记录 If rst EOF Then frmMsg Show frmMsg info Visible True frmMsg Text1 Text 已经到达记录底端 Exit Sub Else rst MoveNext End If End Sub 来者信息来者信息 1 也添加一个 Label 2 在 form 也增加一行代码 代码 Label Caption frmLogin Text1 Text 显示时间显示时间 1 先在被动窗体添加一个 Timer Labe 控件 2 在 Timer 添加代码 Label Caption Now 3 在窗体代码 form 项 增加一行代码 Timer1 Interval 1000 第六章第六章软件软件 ICOICO 图标图标 6 16 1ICOICO 设计构思设计构思 Ico 即软件图标文件设计构思 设计所体现要符合图书管理系统 图标清晰可见 更 能表达意思 6 26 2ICOICO 软件介绍软件介绍 至于 ICO 编制软件网上很多 本软件采用的是 ICO 图标提取编辑大师 V1 0 0 6 软件大小 软件大小 446 KB 软件语言 软件语言 简体中文 软件类别 软件类别 国产软件 免费软件 图标工具 应用平台 应用平台 Win9x WinNT Win2000 WinXP Win7 6 36 3ICOICO 制作制作 1 运行 ICO 图标提取编辑大师 V1 0 0 6 2 ICO 图标编辑 3 编辑完后 保存 ico 止此 ICO 制作完成 4 应用到软件 选择窗体 icon 项 加载图标 第七章第七章软件测试分