图 书 仓 库 管 理 系 统 第38页

begin     file://系统初始化,定义界面大小，以适应不同分辩率
width:=800;height:=600;
end;
**********************************************************************
procedure tmainform.timer1timer(sender: tobject);
begin         file://在状态栏显示时间
statusbar1.panels[2].text:=datetostr(date);
statusbar1.panels[4].text:=timetostr(time);
end;
§5.4  入库、出库窗体模块的实现
 
                      图5.4  系统入库管理窗体
 
                          图5.5  系统出库管理窗体
procedure tinoutform.speedbutton4click(sender: tobject);
begin           file://入库管理查找按钮事件
  with datamoduleform.bookquery do    file://入库查询处理
  begin
    close;
    sql.clear;
    sql.add(''select * from bookrecord where bookid=:bookid'');
    parameters.parambyname(''bookid'').value:=edit13.text;
    open;
    if fieldvalues[''bookid'']<>null
then
begin
      edit1.text:='''';

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