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

《delphi课程设计样例-图书管理(部分程序)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Delphi课程设计示例――--图书借阅管理系统的设计与实现l图书借阅管理系统提供如下功能：（1）图书管理（图书信息入库、出库、修改）（2）读者管理（读者信息入库、出库、修改）（3）图书查询（按书名、作者、类别等进行条件查询）（4）借书服务（5）还书服务一、数据库设计：图书表、读者表、借阅表的结构如下图书表结构属性名含义数据类型长度允许空主码或索引约束条件书号书号char10No主码类别图书类别varChar10No索引出版社出版社名称varChar20Yes索引作者作者姓名varChar30Yes索引书名

2、书名varChar30No索引定价定价SmallmoneyYes借出否是否被借出char2No索引默认值为’否’读者表结构属性名含义数据类型长度允许空主码或索引约束条件编号读者编号Char8No主码姓名读者姓名VarChar8No索引单位读者单位VarChar20No索引性别读者性别Char2Yes‘男’或‘女’电话读者电话VarChar12Yes借阅表结构属性名含义数据类型长度允许空主码或索引约束条件书号借阅书号Char10No主属性外码（图书.书号）读者编号借阅者编号Char8No主属性外码（读者.编号

3、）借阅日期借阅日期datetime8No索引二、数据库实现（ACCESS环境）1．建立数据库：文件–新建–空数据库-指定数据库名称‘图书读者’并指定路径2．定义三个基本表（图书表、读者表、借阅表）3.向表中输入部分模拟数据。三、建立Delphi与数据库的连接：5l设置ODBC数据源和BDE数据源（1）控制面板／管理工具／数据源(ODBC)（2）ODBC数据源管理器：‘用户DSN’选项卡／‘添加’按纽（3）创建新数据源：DriverdoMicrosoftAccess(*.mdb)（4）ODBCMicrosof

4、tAccess安装：数据源名称（book-access）；选择（图书读者.mdb）；确定。（5）打开BDE管理器，确认‘book-access’也是BDE数据源。四．使用Delphi编程实现图书馆管理系统的部分功能1.图书信息维护模块的实现：实现图书记录的增加、删除和修改功能l创建窗体l添加控件并设置属性：（1）基本表控件Table1(BDE部件):databasename属性(book-access);tablename属性(图书表);active属性(true)（2）数据源控件DataSource1(D

5、ataAccess部件):dataset属性(Table1)（3）表格控件DBGrid1(DataControls部件):datasource属性(DataSource1)（4）导航控件DBNavigator1(DataControls部件):datasource属性(DataSource1)2．图书查询模块的实现：实现按书名查询图书的功能l创建窗体5l添加控件并设置属性：（1）基本表控件Table1(BDE部件):databasename属性(book-access);tablename属性(图书表);a

6、ctive属性(true)。（2）数据源控件DataSource1(DataAccess部件):dataset属性(Table1)（3）表格控件DBGrid1(DataControls部件):datasource属性(DataSource1)l查询按纽的OnClick事件代码（使用GotoKey方法查找数据）：procedureTForm1.Button1Click(Sender:TObject);beginifEdit1.text=''thenshowmessage('请输入书名！')elsewithTa

7、ble1dobeginIndexFieldNames:='书名';SetKey;FieldByName('书名').AsString:=Edit1.Text;ifGoToKeythenelseshowmessage('查询不成功！');end;end;end.3．图书借阅模块的实现(使用SQL语言实现查询数据和添加数据功能)：l创建窗体5l添加控件并设置属性：(1)SQL数据集控件Query1(BDE部件):databasename属性(book-access);SQL属性(select*from图书表);

8、active属性(true)(2)SQL数据集控件Query2(BDE部件):databasename属性(book-access);SQL属性(select*from读者表);active属性(true)(3)SQL数据集控件Query3(BDE部件):databasename属性(book-access);(5)数据源控件DataSource1(DataAccess部件):dataset属性(query1)(