本程序功能是实现对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.顺便问一下
在面向对象化的程序设计中,对象的属性用_______来表示,对象的方法用代码来实现。
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.顺便问一下
在面向对象化的程序设计中,对象的属性用_______来表示,对象的方法用代码来实现。
解决方案 »
- 请教有关窗口的问题
- 谁有delphi做的新闻网站维护软件?主要是编辑、生成html的代码?
- 小弟要考软件设计师-求建议
- 奉上100分给大家拜个早年先!顺便问个问题:关于Delphi与Excel的无缝连接
- 在本窗体内如何调用self.Create,重新建立过窗体?
- 急急急!!!系统开发完了,打包时怎么定制BDE,我只要FOXBASE的数据库引擎!!
- 请教formatDatetime()的问题?
- 如何截获Sql脚本运行后返回的信息???
- 急救,关于图片存入数据库的问题!!!!!!
- 求求大家了,来帮帮我好吗?来者都有分.此题关系到我的工作.
- IDFtp.directorylisting属性出错;紧急求助
- 关于数据输入问题
就算答出来有什么用,假的永远真不了procedure TForm1.Button1Click(Sender: TObject);
begin
Table1.Locate(('bno',Edit1.Text,[]));
end;procedure TForm1.Table1AfterScroll(DataSet: TDataSet);
begin
query1.close;
query1.ParambyName('bno').Value:= Table1.FieldByName('bno').Value;
Query1.Open;
end;property