登陆注册
36209800000031

第31章 数据库应用程序设计(5)

窗体及组件的属性设置如表12-4所示。

2)程序代码

(1)在Unit1单元文件的implementation段中加入usesUnit4;(2)根据功能要求,鼠标单击程序主界面【借出图书查询】菜单命令,打开图12-39所示的【借出图书查询】窗口,因此Unit1单元文件的TMainForm.NjccxClick(Sender:TObject)事件处理代码如下:

(3)查询功能的实现

从【查询关键字选择】组合框中选择查询的关键字,在【查询关键字设置】编辑框中输入相应的关键字参数,然后单击【查询】按钮,则数据网格中列出按选定关键字查询的结果。

【查询】按钮的事件处理代码如下:

(4)返回功能的实现

用鼠标单击【返回】按钮,关闭【借出图书查询】窗口,显示程序主窗口。【返回】按钮的事件处理代码如下:

4.出借图书

1)程序界面

【出借图书】窗体如图12-40所示。

图中,数据网格列出当前在库的图书,读者只能从中借阅自己需要的图书。因在库图书数量大,可先通过筛选缩小借阅图书查找的范围,在【在库图书筛选】成组框的编辑框中输入相应的筛选关键字,然后单击【筛选】按钮,数据网格中列出经筛选的在库图书。

找到读者需要的图书,用单击网格单元,所选图书的编号显示在【出借图书操作】成组框中的【出借图书编号】编辑框中;在【读者借书证号】编辑框中,输入借书者的借书证号;在【借书日期】日期时间组件中选择借书的日期,然后单击【出借】按钮,读者选中的图书被借走,在库图书减少。

窗体及组件的属性设置如表12-5所示。

2)程序代码

(1)在Unit1单元文件的implementation段中加入usesUnit5;(2)根据功能要求,单击程序主界面【出借图书】菜单命令,打开图12-40所示的【出借图书】窗口,因此Unit1单元文件的TMainForm.NcjtsClick(Sender:TObject)事件处理代码如下:

(3)筛选功能的实现

在【在库图书筛选】成组框的编辑框中输入相应的筛选关键字,然后单击【筛选】按钮,数据网格中列出经筛选的在库图书。【筛选】按钮的事件处理代码如下:

(4)从“数据网格中选择借阅图书”功能的实现

当从数据网格中找到所需图书时,单击相应的数据网格单元,所选图书的编号显示在【出借图书操作】成组框中的【出借图书编号】编辑框中,“单击数据网格单元”的事件处理代码为:

(5)出借功能的实现

在【读者借书证号】编辑框中,输入借书者的借书证号;在【借书日期】日期时间组件中选择借书的日期,然后单击【出借】按钮,读者选中的图书被借走,在库图书减少。单击【出借】按钮的事件处理代码为:

(6)返回功能的实现

用鼠标单击【返回】按钮,关闭【出借图书】窗口,显示程序主窗口。单击【返回】按钮的事件处理代码如下:

5.归还图书

1)程序界面

【归还图书】窗体如图12-41所示。

图12-41中,数据网格列出当前借出的图书,从中选择归还的图书。因借出图书数量大,可先通过筛选缩小借出图书查找的范围,在【借出图书筛选】成组框的编辑框中输入相应的筛选关键字,然后单击【筛选】按钮,数据网格中列出经筛选的借出图书。

找到要归还的图书,用鼠标单击网格单元,所选图书的编号和读者的借书证号分别显示在【归还图书操作】成组框中的【归还图书编号】和【读者借书证号】编辑框中,然后单击【归还】按钮,选中的图书归还,该图书变为在库。

窗体及组件的属性设置如表12-6所示。

2)程序代码

(1)在Unit1单元文件的implementation段中加入usesUnit6;(2)根据功能要求,鼠标单击程序主界面【归还图书】菜单命令,打开图12-41所示的【归还图书】窗口,因此Unit1单元文件的TMainForm.NghtsClick(Sender:TObject)事件处理代码如下:

(3)筛选功能的实现

在【借出图书筛选】成组框的编辑框中输入相应的筛选关键字,然后单击【筛选】按钮,数据网格中列出经筛选的在库图书。【筛选】按钮的事件处理代码如下:

(4)从“数据网格中选择归还图书”功能的实现

当从数据网格中找到归还图书时,单击相应的数据网格单元,所选图书的编号和读者的借书证号分别显示在【归还图书操作】成组框中的【归还图书编号】和【读者借书证号】编辑框中,“单击数据网格单元”的事件处理代码为:

(6)返回功能的实现

用鼠标单击【返回】按钮,关闭【归还图书】窗口,显示程序主窗口。单击【返回】按钮的事件处理代码如下:

6.图书登记

1)程序界面

【图书登记】功能模块窗体如图12-42所示。

在窗体的各个输入框中,直接输入或选择登记图书的有关信息,然后单击【登记】按钮,该图书登记入册。图书登记操作完毕,单击【返回】按钮返回。

该窗体的单元文件名为Unit7.pas。

窗体及组件的属性设置如表12-7所示。

2)程序代码

(1)在Unit1单元文件的implementation段中加入usesUnit7;(2)根据功能要求,鼠标单击程序主界面【图书登记】菜单命令,打开图12-42所示的【图书登记】窗口,因此Unit1单元文件的TMainForm.NtsdjClick(Sender:TObject)事件处理代码如下:

(3)登记功能的实现

在窗体的各个输入框中,直接输入或选择登记图书的有关信息,然后单击【登记】按钮,该图书登记入册。【登记】按钮的事件处理代码如下:

(4)返回功能的实现

图书登记操作完毕,用鼠标单击【返回】按钮,关闭【图书登记】窗口,显示程序主窗口。单击【返回】按钮的事件处理代码如下:

7.读者登记

1)程序界面

【读者登记】功能模块的窗体如图12-43所示。

在窗体的各个输入框中,直接输入或选择登记读者的有关信息,然后单击【登记】按钮,该读者登记入册。读者登记操作完毕,单击【返回】按钮返回。

该窗体的单元文件名为Unit8.pas。

窗体及组件的属性设置如表12-8所示。

2)程序代码

(1)在Unit1单元文件的implementation段中加入usesUnit8;(2)根据功能要求,鼠标单击程序主界面【读者登记】菜单命令,打开图12-43所示的【读者登记】窗口,因此Unit1单元文件的TMainForm.NdzdjClick(Sender:TObject)事件处理代码如下:

(3)登记功能的实现

在窗体的各个输入框中,直接输入或选择登记读者的有关信息,然后单击【登记】按钮,该读者登记入册。【登记】按钮的事件处理代码如下:

(4)返回功能的实现

读者登记操作完毕,用鼠标单击【返回】按钮,关闭【读者登记】窗口,显示程序主窗口。单击【返回】按钮的事件处理代码如下:

8.退出系统

单击【退出系统】菜单命令,图书管理系统退出,程序主界面关闭。【退出系统】菜单命令处理代码为:

12.5QReport组件组和报表的制作

报表是进行数据统计、分析的常用工具。在数据库应用程序中,经常需要制作报表。Delphi提供了一组制作报表的组件,使程序员可以很方便地制作报表。本节介绍这组组件的使用和报表的制作。

12.5.1QReport组件组

Delphi提供的一组制作报表的组件,位于Delphi集成开发环境组件模板的QReport选项卡中。

1.QuickRep组件

QuickRep组件是制作报表的基本组件,构成整个报表的框架,放置到窗体上的QuickRep组件如图12-44所示。

1)QuickRep组件的属性

QuickRep组件的属性主要有以下几个。

(1)Bands属性

同类推荐
  • 学校计算机实用技术

    学校计算机实用技术

    本书由杭州市上城区教育学院编著,他们邀请了众多信息技术教育教学的一线专家,认真细致地筛选了学校计算机应用方面的常见问题,提出了解决问题的具体操作方案,旨在帮助一线教育工作者解决可能面临的种种问题,为广大教师提供便捷服务。
  • 爱上我的“手机女友”

    爱上我的“手机女友”

    本书共有五个部分:第一章:千娇百媚的我—手机门类大搜索第二章:了解我的心—手机“芯”理学第三章:不一样的我不一样的美—手机的万种风情第四章:命中注定我爱你—神秘手机星座解读第五章:有求必应贴心女友—手机的绝世武功通过这本书,想要购入手机的你会知道哪款手机女友更适合你,已有心仪手机的你可以让手机女友懂得更多变得更聪明。希望这本书能够帮助你在手机选购上和手机使用上更舒心、安心、贴心。
  • 中文版AutoCAD2005建筑绘图精讲精学

    中文版AutoCAD2005建筑绘图精讲精学

    本书从中文版AutoCAD2005建筑绘图的基础进行介绍,讲解了建筑绘图的环境设置、二维建筑图形的绘制、二维建筑及装饰图形的编辑、建筑绘图中的文字标注和图形查询、建筑装潢平面图中的尺寸标注、建筑绘图中图块的应用、建筑平面图的绘制、建筑立面图的绘制、建筑剖面图的绘制、建筑绘图中的三维造型、三维建筑模型绘制及建筑图纸的布局与打印输出等内容。
  • 条形码技术与应用

    条形码技术与应用

    条形码是一种可供电子仪器自动识别的标准符号,是由一组黑白相间、粗细不同的条、空符号按一定编码规则排列组成的标记,用以表示一定的信息,确认某个物体或规定它的移动,能正确快速地为产、供、销各环节在采集、处理和交换信息时提供标识。
  • 不懂PowerPoint就当不好经理

    不懂PowerPoint就当不好经理

    经理人如何用PowerPoint,来规划部门的发展,如何用PowerPoint来表达自己的经营主张?本书为各类经理人提供了从入门到提高,从原理到实战的一系列知识,相信本书将让演示文稿为经理人的管理效能加分!
热门推荐
  • 重生后被偏执大佬骗了心

    重生后被偏执大佬骗了心

    (新文:被大佬缠上后每天被娇宠)桑若上辈子到死都是个母胎solo。重生后,她却开始频繁和同校某位大佬偶遇,还和他做了朋友…雨天,他替她撑伞送她回家。生病去医院,他陪了她一整晚。错过车,他背着她走了几公里…所有人都说他又坏又凶,可她只感受到了他对她的好和纵容。某天,桑若问:“靳洵,你是不是喜欢我很久了?”“嗯,很久。”久到对她的爱意已经与身体骨血融合,抽不掉,忘不了,变得偏执病态。后来——她说:“你就是个骗子!!”桑若终于知道他的真实面目,他是真的坏,也是真的能装。“桑桑,骗你是真的。可我也,真的爱你啊…”靳洵的执念是桑若的笑容,桑若的一分喜欢。他将所有的爱都给她,爱到失去自我,不惜伪装她喜欢的模样。(男主真偏执乖戾反派大佬,伪正人君子;女主可盐可甜;恋爱向甜文,双重生,欢迎收藏~)
  • 校草直播间:大佬别霸屏

    校草直播间:大佬别霸屏

    这是一个双重人格一方面“内部斗争”,一方面合作打怪闯关的故事。重生+女扮男装大佬人傻钱多,玩命打赏。温柔主播平淡收下。某帝都日报。往日某不知名大佬一次打赏上百万。这到底是人性的扭曲还是道德的沦丧!*“靠,小爷需要靠别人的打赏生活吗?”“这是给我的,不是给你的。”“……抱着你男人赶紧滚。”*“混蛋说好一起承担的,你走了就要靠我自己了。”“喂,小七七,我辛苦那么多年,休息一下怎么了。”“那,你记得回来……”*故事线多余感情线,佛系更文。懒人一个,思路好就多更,思路混乱就啥也没有。
  • 丝路驿花:阿拉伯波斯作家与中国文化

    丝路驿花:阿拉伯波斯作家与中国文化

    古道西风,驼铃频响,漫漫的陆路丝绸之路将中国和阿拉伯世界连接起来。多少次危险之旅,中国人步履维艰送去了中国文化的精华,内心充满走进神秘阿拉伯的激动与幸福。多少个沙漠之夜,阿拉伯人仰望星空,讲述着比一千零一夜还多的故事,其中不乏对中国文化的憧憬与梦想。宝船浩荡,海风长空,茫茫的海上陶瓷之路又在中国和阿拉伯之间增加了新的交流渠道。中阿两地的船队满载着中阿人民的希望,克服了比郑和下西洋、比辛伯达七次航海救灾要多的困难,驶向对方之港。在这种文化交流的大潮里,中国和中国人民的形象就像丝路花雨,润物细无声的浸滋着阿拉伯文学的沃土。
  • 天行

    天行

    号称“北辰骑神”的天才玩家以自创的“牧马冲锋流”战术击败了国服第一弓手北冥雪,被誉为天纵战榜第一骑士的他,却受到小人排挤,最终离开了效力已久的银狐俱乐部。是沉沦,还是再次崛起?恰逢其时,月恒集团第四款游戏“天行”正式上线,虚拟世界再起风云!
  • 重生御灵皇女

    重生御灵皇女

    就如凤凰终会浴火重生,振翅高飞,她总会回到故土,一路见证,步步离歌。完全架空,不必细究。
  • 狂法

    狂法

    崛起于大陆征战,强大于位面掠夺,扬名于主位面杀戮,无敌于虚空毁灭。狂!是他的唯一法则!主神说祭献祭品就让他成为众位面最强者,可为什么祭献了还要选择奖励啊,每一个都那么强力?!让选择性障碍如何自处!
  • 六道守护者

    六道守护者

    众生眼中的魔,历经万载的轮回,终在某一刻苏醒。奈何沧海桑田,世人早已忘却当初的承诺。他却突破重重束缚,轮回异界,兑现初时的诺言。
  • 西荒记

    西荒记

    七煞为搅乱世界之贼破军为纵横天下之将贪狼为奸险诡诈之士此三星一旦聚合天下必将易主无可逆转!夜雨手持长枪,以“天下,乃天下人之天下,非一人天下”为从军信念,崛起于神秘的西荒村,带领村民冲破樊笼。为了自己的坚持,为了寻找西荒的往日荣光,一次又一次的征战沙场,建立属于自己的王国。
  • 天行

    天行

    号称“北辰骑神”的天才玩家以自创的“牧马冲锋流”战术击败了国服第一弓手北冥雪,被誉为天纵战榜第一骑士的他,却受到小人排挤,最终离开了效力已久的银狐俱乐部。是沉沦,还是再次崛起?恰逢其时,月恒集团第四款游戏“天行”正式上线,虚拟世界再起风云!
  • 天行

    天行

    号称“北辰骑神”的天才玩家以自创的“牧马冲锋流”战术击败了国服第一弓手北冥雪,被誉为天纵战榜第一骑士的他,却受到小人排挤,最终离开了效力已久的银狐俱乐部。是沉沦,还是再次崛起?恰逢其时,月恒集团第四款游戏“天行”正式上线,虚拟世界再起风云!