本程序功能是实现对books表(图书)的浏览,用户可以依次查询图书记录,也可以指定书号,查找并定位到指定的图书记录。每当显示一本书时,系统自动显示该书的借阅信息(读者号,读者名,还书日期)。该程序用的3张表如下:
books 图书信息(bno 书号,bname 书名,author 作者)
borrow 借书信息(rno 读者号,bno 书号,rdate 还书日期)
reader 读者信息(rno 读者号,rname 读者名 class 班级)
在form1上建立的主要对象及连接如下:
Database1---Tabel1(books表)--DataSource1--DBEdit1--DBEdit3
Database1---query1--datasource-dbgrid1(显示借阅信息)
edit1、button1(查找)、button2(上一条记录)、button3(下一条记录)
query1的sql语句是
select borrow.rno,rname.rdate
from borrow,reader
where bno=:bno and borrow.rno=reader.rno
程序代码:
procedure TForm1.Button1Click(Sender:TObject);
begin
  Table1.__________1('bno',edit1.text.[]);
end;procedure TForm1.Table1AfterScroll(DataSet:TDataSet);
begin
  query1.close;
  query1.ParambyName('bno').Value:=_________________2;
  query1.__________3
end;
end.顺便问一下
   在面向对象化的程序设计中,对象的属性用_______来表示,对象的方法用代码来实现。