另外，在本系统的数据模块窗体图中，我大多采用的aodquery组件而没有采用bde组，这主要是基于对ado组件的了解。在delphi的学习中我对ado组件了解的更加清楚，使用也较bde更为熟练，而且，ado组件的功能也较bde更为强大，所以在这里大多采用ado组件来进行数据库联接。同时我也使用了bde组件中的table，因为在某些时候bde有着其自身特有的优越性。
§5.3 主窗体功能模块的实现
file://主窗体程序代码
public file://在程序的起始部分，定义快捷按钮点击事件
procedure popup1handler(sender:tobject);
procedure popup2handler(sender:tobject);
**********************************************************************
procedure tmainform.popup1handler(sender: tobject);
begin file://快捷按钮1(点“按出版社分类”按钮产生)的点击事件
with datamoduleform.mainquery do
begin file://打开数据模块窗体的mainquery，对bookrecord表进行操作
close; file://关闭mainquery
sql.clear; file://清除sql属性中的sql命令语句
sql.add(''select * from bookrecord where publisher=:pub''); file://添加新的sql语句
parameters.parambyname(''pub'').value:=(sender as tmenuitem).caption;
open; file://重新打开mainquery
end;
end;
**********************************************************************
<< 上一页 [31] [32] [33] [34] [35] [36] [37] [38] [39] [40] ... 下一页 >>