登陆注册
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属性

同类推荐
  • 高校校园网管理与网上引导工作研究

    高校校园网管理与网上引导工作研究

    在当今的信息化潮流之下,我们不可否认互联网的出现,绝不仅仅是传送手段的变化,更重要的是它代表着一种新的社会形态——网络社会的来临。互联网已经以一种前所未有的方式渗透到现代社会的各个层面和领域,成为现代社会前进和发展的动力和工具,它推动了社会经济、文化政治实现所谓的“数字化转变”。
  • 云计算和现代远程教育

    云计算和现代远程教育

    本书介绍了云计算知识、云计算的特性、云计算技术、云计算中的访问云、云计算中的云存储、云计算在远程教育中的应用等内容。
  • 科学伴你行-神奇的通信技术

    科学伴你行-神奇的通信技术

    在日常生活中,有时人们要借助于小旗子来进行通信联络,比如,开运动会时,发令员常常要用小旗子与计时员联系;当你乘坐火车进入车站时,都会看到车站工作人员拿着红色和绿色的小旗子在站台上进行指挥;在战争中,打出白色旗子表示投降,插上红色旗子表明胜利;航行在茫茫大海上的船只,双方船员会凭不同旗帜组成的标志,来了解对方的意思。以上种种用小旗子来“说话”的通信方式就叫做旗语。
  • 中文版AutoCAD2011基础与应用案例教程

    中文版AutoCAD2011基础与应用案例教程

    本书采用项目教学方式,通过大量案例全面介绍了AutoCAD2011软件的功能和应用技巧。全书共分8个项目,内容涵盖AutoCAD2011基本操作,绘制与编辑图形,标注尺寸,添加文字注释与应用表格,创建与应用块,绘制与编辑三维图形,图形输出等。
  • 中国3D打印的未来

    中国3D打印的未来

    自2012年以来,有关3D打印的报道屡见报端,这一新型制造技术引起了全世界的广泛关注。《中国3D打印的未来》作者、中国3D打印技术产业联盟秘书长罗军认为,中国从20世纪90年代初开始涉足3D打印技术,并取得了巨大进展,但与国外同行相比仍存在一定差距。特别是中国3D打印企业普遍存在“小而散”、各自为政的现象,如何发挥整合优势、抱团发展是目前亟需解决的问题。如果能够加强同行合作,抱团发展,形成合力,相信3D打印会成为唯一一项中国有可能赶超世界先进水平的技术。
热门推荐
  • 探索之巅

    探索之巅

    凡人是否可以修炼?母体脐带凝聚出孩子最初的原核。进入修炼的世界,方知修行境界。原核境:结核期,凝核期,碎核期。炼化境:化海期,成云期,虚无期。聚魂境:由虚化实。出窍境:魂魄大成,离体神游。修行之路:是虚心学习,是嘻笑怒骂,是朋友的聚散离合,是探索未知的秘境,是搜刮有限的资源,是忍受弱小,是体味强大。在这苍茫寰宇中,少年是如何走出自己那条路的?
  • 桃花醉青眉

    桃花醉青眉

    宫心计+权谋+婚恋+武侠,一切都要从一场恋爱说起。她无意窥视宫廷内院,却在命运的裹挟中一次次袭卷而入……
  • 我在漫威当剑仙

    我在漫威当剑仙

    (粉丝群:814668459)古一:没想到他的成长这么快!都能和我打成平手了!!!钢铁侠:要打造一个反剑仙铠甲了!
  • 开局成为诸葛大力同桌

    开局成为诸葛大力同桌

    啥?诸葛大力是我同桌?作为学校头号垫底王,有个学霸同桌的陈益表示压力很大!陈益:“诸葛同学,你学习归学习,但千万别影响我睡觉,谢谢!”这是一个学渣逆袭成学霸的故事。读者群:1094894854
  • 开局吞下不死药

    开局吞下不死药

    大宗师流月因为吞下了,地宫中始皇帝手上的一颗不死药,而来到大秦,成为长公子扶苏。激活因果系统,获得大礼包。【恭喜你,获得扶苏全部的记忆。】【恭喜你,获得2100年内力。】【恭喜你,获得“魂兮游龙”。】【恭喜你,获得“聚气成刃”。】【恭喜你,获得“百步飞剑”。】【恭喜你,获得“横贯八方”。】【恭喜你,获得“鬼谷吐纳术。”】赵高、胡亥和李斯三人矫诏,妄想让扶苏自裁。扶苏:蒙恬,烧了矫诏,带上30万大军跟我会咸阳,皇位是我的,谁敢染指?蒙恬:誓死追随陛下!……(本故事及人物纯属虚构,如有雷同,
  • 网球王子之改变一切

    网球王子之改变一切

    网王吗,这里就是我的新开始啊,我得好好重来一次不二周助期待你我的见面
  • 太古神诀

    太古神诀

    少年梁天,身患“天克”之症,命在旦夕,被恶鬼追杀,无意间得到一部上古神诀,从此踏入修仙之路,斩妖魔,斗鬼怪,一路披荆斩棘,高歌猛进,成就一代仙王。
  • 重生之万界天尊

    重生之万界天尊

    一代仙尊,渡劫时被人暗算,导致渡劫失败,重生少年时。重生归来,不仅要登临仙道绝巅,俯瞰万界,成为万仙之尊,更要弥补过去种种遗憾,守护至亲之人!
  • 这是你给我的坚强

    这是你给我的坚强

    血色曼陀罗——曼珠沙华/彼岸黑色曼陀罗——地狱之花曼陀罗——象征着不可预知的死亡。。。“涵,你一定要替我好好活下去!”“不,不要,筱筱,你不要离开我!”“啊——叶陶,我定要你碎尸万段!”一场复仇计划就这样开始了······
  • 拆开一个夏天

    拆开一个夏天

    下辈子我们还要住隔壁,我们青梅竹马,两小无猜……“不管你是回忆里的还是已经去世的,我都要对你说,对不起!我后悔了,从离婚的那一秒就后悔了!我爱你,我喜欢你,我好想你啊!”“我说过我喜欢温柔的人,而你……很温柔。”“如果我向你提出共度余生的邀请,你会愿意放下她来牵我的手吗?”“明明有对我那么好的人,为什么我还爱你!我要怎么做才能像你那样说走就走不再回头啊!”“你一直相信着你以为的,但你有问过我吗,如果你问过我的话,我一定会大声的告诉你我从来都没有恨过你啊!”“如果警察来晚一些,你就不是我的了……”本作为微腐小甜大虐的类型,有单纯青涩的爱恋,有年少幼稚的嫉妒,有向前追逐的理想,有无可替代的友谊,有无法言说的愧疚,有难以启齿的告白,有再也回不去的回忆……抒写一段全新的、如诗如画如曲如梦的青春。