?? checkborrow.~pas
字號(hào):
unit checkborrow;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, jpeg, ExtCtrls, DB, DBTables, Buttons;
type
Tche = class(TForm)
Panel1: TPanel;
Image1: TImage;
GroupBox1: TGroupBox;
ListView1: TListView;
q1: TQuery;
BitBtn1: TBitBtn;
q2: TQuery;
GroupBox2: TGroupBox;
d1: TDateTimePicker;
Label1: TLabel;
Label2: TLabel;
d2: TDateTimePicker;
BitBtn2: TBitBtn;
procedure FormShow(Sender: TObject);
procedure ListView1DblClick(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
function isextime(bno:string):boolean;
public
{ Public declarations }
end;
var
che: Tche;
implementation
uses gl,additionalinfo;
{$R *.dfm}
procedure Tche.FormShow(Sender: TObject);
begin
listview1.Items.Clear;
end;
function Tche.isextime(bno:string):boolean;
begin
q2.Close;
q2.sql.Clear;
q2.SQL.Add('select * from borrow_info where 圖書(shū)編號(hào)=:no');
q2.ParamByName('no').AsString:=bno;
q2.Open;
if q2.FieldByName('借出時(shí)間').AsDateTime+p_days<date then result:=true
else result:=false;
q2.Close;
end;
procedure Tche.ListView1DblClick(Sender: TObject);
begin
if(listview1.selected<>nil) then
begin
additionalinfofrm.addinfo(listview1.selected.caption,listview1.selected.subitems[6]);
additionalinfofrm.show;
end;
end;
procedure Tche.BitBtn1Click(Sender: TObject);
begin
close;
end;
procedure Tche.BitBtn2Click(Sender: TObject);
begin
q1.SQL.Clear;
q1.SQL.add('select a.圖書(shū)編號(hào),a.書(shū)名,a.類別,a.作者,a.出版社,a.入庫(kù)時(shí)間,b.借出時(shí)間,b.圖書(shū)卡號(hào) from book_info a ,borrow_info b where a.圖書(shū)編號(hào)=b.圖書(shū)編號(hào) and b.借出時(shí)間>=:btime and b.借出時(shí)間<=:dtime order by b.圖書(shū)卡號(hào)' );
q1.ParamByName('btime').AsDatetime:=d1.Date;
q1.ParamByName('dtime').AsDatetime:=d2.Date;
q1.Open;
listview1.Items.Clear;
q1.First;
while not q1.Eof do
begin
with listview1.Items.add do
begin
caption:=q1.fieldbyname('圖書(shū)編號(hào)').AsString;
subitems.add(q1.fieldbyname('書(shū)名').AsString);
subitems.add(q1.fieldbyname('類別').AsString);
subitems.add(q1.fieldbyname('作者').AsString);
subitems.add(q1.fieldbyname('出版社').AsString);
subitems.add(q1.fieldbyname('入庫(kù)時(shí)間').AsString);
subitems.add(q1.fieldbyname('借出時(shí)間').AsString);
subitems.add(q1.fieldbyname('圖書(shū)卡號(hào)').AsString);
if isextime(caption) then
subitems.add('是') else subitems.add('否');
end;
q1.Next;
end;
q1.close;
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -