【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供delaybookF.pas参考,解决您在delaybookF.pas学习中工作中的难题,参考学习。
unit delaybookF;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ADODB, DB, ImgList, Grids, DBGrids, ComCtrls,
ToolWin, StdCtrls, Buttons, ExtCtrls, inheritF;
type
Tdelaybook = class(Tinherit)
ADOQuery2: TADOQuery;
ADOCommand1: TADOCommand;
BitBtn2: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure DataSource1DataChange(Sender: TObject; Field: TField);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
delaybook: Tdelaybook;
implementation
{$R *.dfm}
uses dataconnect;
procedure Tdelaybook.FormShow(Sender: TObject);
begin
inherited;
adotable1.Clone(adoquery2,ltunspecified);
end;
//查询过期的书的信息
procedure Tdelaybook.BitBtn1Click(Sender: TObject);
begin
//注销掉从父窗体中继承来的代码,因为父窗体中是从一个表中查询的
//inherited;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select a.*,b.*,c.* from 图书借阅 a,图书信息 b,读者信息 c');
adoquery1.SQL.Add('where (a.图书编号=b.图书编号)and(a.读者编号=c.编号)and(状态=''未还'')');
adoquery1.SQL.Add('and(c.编号 like ''%'+edit1.Text+'%'')');
adoquery1.SQL.Add('and(a.图书编号 like ''%'+edit2.Text+'%'')');
adoquery1.SQL.Add('and(c. like ''%'+edit3.Text+'%'')');
adoquery1.Open;
//将查询得到的数据复制到数据库中
adotable1.Clone(adoquery1,ltUnspecified);
end;
//设置表格中的长宽
procedure Tdelaybook.DataSource1DataChange(Sender: TObject; Field: TField);
begin
inherited;
dbgrid1.Columns[0].Width:=64;
dbgrid1.Columns[1].Width:=64;
dbgrid1.Columns[2].Width:=166;
dbgrid1.Columns[3].Width:=80;
dbgrid1.Columns[4].Width:=64;
dbgrid1.Columns[5].Width:=64;
dbgrid1.Columns[6].Width:=64;
dbgrid1.Columns[7].Width:=64;
dbgrid1.Columns[8].Width:=48;
dbgrid1.Columns[9].Width:=48;
end;
procedure Tdelaybook.BitBtn2Click(Sender: TObject);
begin
inherited;
close;
end;
end.
上一篇:
frmFetch.frm
下一篇:
计算机毕业论文答辩2014年