(毕业论文)图书馆管理系统.docVIP

通达学院 2012 /2013 学年 第 2 学期 软件设计 实验报告 模 块 名 称 Delphi 课程设计 专 业 通信工程 学 生 班 级 学 生 学 号 学 生 姓 名 指 导 教 师 设计题目 图书管理系统 任务要求 包含基本数据库功能，包括图书的添加，删除，查找，借阅和归还功能，设计读者信息库。包含读者信息查询，添加，修改，借阅等功能，界面美观友好，易操作。 实验设备及软件 硬件：个人计算机； 软件：Delphi 同组人员学号及姓名 董琛 参考文献 （填写内容字体为宋体小四） [1]钟军,汪晓平.delphi 网络通信协议分析与应用实现.北京:人民邮电出版社,2003 [2]池雅庆,贾小敏.delphi数据库应用项目开发实践.北京:人民邮电出版社,2006 [4]杨华民,梁水,李方超.Delphi函数参考大全.北京：人民邮电出版社，2006 [5]张世明.Delphi程序设计基础：教程、实验、习题.北京：电子工业出版社,2010 [6]乔建行，陶川. Delphi 项目案例导航.北京：科学出版社，2002 [7]杨永，宾晟，国刚.delphi 毕业设计指南与项目实践.北京：科学出版社，2007 报告内容 实现方法： 界面设计 主界面，即登陆界面 图书类别管理 教师信息管理 程序设计 unit mainfrm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ImgList, ToolWin, Menus, ActnList, ExtCtrls, Grids, DBGrids, DB, ADODB; type Tmagfrm = class(TForm) StatusBar1: TStatusBar; MainMenu1: TMainMenu; ActionList1: TActionList; SysMenu: TMenuItem; SysQuit: TMenuItem; InfoMenu: TMenuItem; InfoTeacher: TMenuItem; InfoBkType: TMenuItem; SearchMenu: TMenuItem; SearchBook: TMenuItem; BorStat: TMenuItem; Ateacher: TAction; sysQuti: TAction; ABookInfo: TAction; ABkType: TAction; ABorBook: TAction; ABkSearch: TAction; ABorStat: TAction; procedure Timer1Timer(Sender: TObject); procedure AteacherExecute(Sender: TObject); procedure ABookInfoExecute(Sender: TObject); procedure sysQutiExecute(Sender: TObject); procedure ABkTypeExecute(Sender: TObject); procedure ABorBookExecute(Sender: TObject); procedure ABkSearchExecute(Sender: TObject); procedure ABorStatExecute(Sender: TObject); private { Private declarations } public { Public declarations } end; var magfrm: Tmagfrm; implementation uses teacher,BookInfo,bktypefrm,borfrm,bksearchfrm,borstatfrm; {$R *.dfm} procedure Tmagfrm.Timer1Timer(Sender: TO