delphi课程设计样例-图书管理(部分程序).docVIP

delphi课程设计样例-图书管理(部分程序) PAGE PAGE 1 ———————————————————————————————— 作者： ———————————————————————————————— 日期： 个人收集整理，勿做商业用途 个人收集整理，勿做商业用途 PAGE PAGE 4 个人收集整理，勿做商业用途 Delphi课程设计示例 ――--图书借阅管理系统的设计与实现 图书借阅管理系统提供如下功能： （1）图书管理（图书信息入库、出库、修改） （2）读者管理（读者信息入库、出库、修改） （3）图书查询（按书名、作者、类别等进行条件查询） （4）借书服务 （5）还书服务 一、数据库设计：图书表、读者表、借阅表的结构如下 图书表结构 属性名 含义 数据类型 长度 允许空 主码或索引 约束条件 书号 书号 char 10 No 主码 类别 图书类别 varChar 10 No 索引 出版社 出版社名称 varChar 20 Yes 索引 作者 作者姓名 varChar 30 Yes 索引 书名 书名 varChar 30 No 索引 定价 定价 Smallmoney Yes 借出否 是否被借出 char 2 No 索引 默认值为’否’ 读者表结构 属性名 含义 数据类型 长度 允许空 主码或索引 约束条件 编号 读者编号 Char 8 No 主码 姓名 读者姓名 VarChar 8 No 索引 单位 读者单位 VarChar 20 No 索引 性别 读者性别 Char 2 Yes ‘男’或‘女’ 电话 读者电话 VarChar 12 Yes 借阅表结构 属性名 含义 数据类型 长度 允许空 主码或索引 约束条件 书号 借阅书号 Char 10 No 主属性 外码（图书 .书号） 读者编号 借阅者编号 Char 8 No 主属性 外码（读者 .编号） 借阅日期 借阅日期 datetime 8 No 索引 二、数据库实现（ACCESS 环境） 1．建立数据库：文件 – 新建 – 空数据库 - 指定数据库名称‘图书读者’并指定路径 2．定义三个基本表（图书表、读者表、借阅表） 3.向表中输入部分模拟数据。 三、建立Delphi与数据库的连接： 设置ODBC数据源和BDE数据源 （1）控制面板／管理工具／数据源(ODBC) （2）ODBC数据源管理器：‘用户DSN’选项卡／‘添加’按纽 （3）创建新数据源：Driver do Microsoft Access(*.mdb) （4）ODBC Microsoft Access安装： 数据源名称（book-access）；选择（图书读者.mdb）；确定。 （5）打开BDE管理器，确认‘book-access’也是BDE数据源。 四．使用Delphi编程实现图书馆管理系统的部分功能 1.图书信息维护模块的实现：实现图书记录的增加、删除和修改功能 创建窗体 添加控件并设置属性： （1）基本表控件Table1(BDE部件): databasename属性(book-access); tablename属性(图书表); active属性(true) （2）数据源控件DataSource1(DataAccess部件): dataset属性(Table1) （3）表格控件DBGrid1(DataControls部件): datasource属性(DataSource1) （4）导航控件DBNavigator1(DataControls部件): datasource属性(DataSource1) 2．图书查询模块的实现：实现按书名查询图书的功能 创建窗体 添加控件并设置属性： （1）基本表控件Table1(BDE部件): databasename属性(book-access); tablename属性(图书表); active属性(true)。 （2）数据源控件DataSource1(DataAccess部件): dataset属性(Table1) （3）表格控件DBGrid1(DataControls部件): datasource属性(DataSource1) 查询按纽的OnClick事件代码（使用GotoKey方法查找数据）： procedure