图 书 仓 库 管 理 系 统 第36页

sql.clear;
sql.add(''select * from bookrecord'');     file://这里相当于一个刷新功能
open;
end;end;
end;
**********************************************************************
procedure tmainform.speedbutton3click(sender: tobject);
begin         file://库存表刷新按钮事件
with datamoduleform.mainquery do
begin
close;
sql.clear;
sql.add(''select * from bookrecord'');
open;
end; 
end;
**********************************************************************
procedure tmainform.speedbutton11click(sender: tobject);
var popupitem:tmenuitem;
begin         file://自动生成快捷按钮1的内容
with datamoduleform.bookquery do
begin         file://从数据库中选择出版社类型
close;
sql.clear;
sql.add(''select distinct publisher from bookrecord'');
open;
popupmenu1:=tpopupmenu.create(self);  file://自动生成快捷菜单

 << 上一页  [31] [32] [33] [34] [35] [36] [37] [38] [39] [40]  ... 下一页  >>