untexpire.~pas

资料室图书借阅管理系统

unit untexpire;

interface

uses
  Classes, SysUtils, IWAppForm, IWApplication, IWTypes, DB, ADODB,
  IWCompButton, IWGrids, IWDBGrids, IWHTMLControls, Controls,
  IWVCLBaseControl, IWBaseControl, IWControl, IWCompLabel, Menus, Forms,
  untframe, IWBaseHTMLControl, IWCompEdit, IWDBStdCtrls;

type
  Tfrmexpire = class(TIWAppForm)
    IWLabel1: TIWLabel;
    IWHRule1: TIWHRule;
    DataSource1: TDataSource;
    IWDBGrid1: TIWDBGrid;
    IWLabel2: TIWLabel;
    ADOQuery1: TADOQuery;
    IWFrame11: TIWFrame1;
    IWButton3: TIWButton;
    IWButton4: TIWButton;
    IWButton5: TIWButton;
    IWButton6: TIWButton;
    IWButton1: TIWButton;
    procedure IWFrame11N12Click(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWButton3Click(Sender: TObject);
    procedure IWButton4Click(Sender: TObject);
    procedure IWButton5Click(Sender: TObject);
    procedure IWButton6Click(Sender: TObject);
    procedure IWButton1Click(Sender: TObject);
   public

  // function getnum(X:integer;Aarr:array of integer;Gquery:tadoquery; Atable:string; ) array of integer;
   private

  end;

implementation

uses ServerController, Unit1;

{$R *.dfm}

var
   mydate : TDateTime;
   datestr:string;
  // allnum:integer=0;    //the total of leaf
 //  num:integer=0;     // current leaf
  // Aarr:array of array of integer;




procedure Tfrmexpire.IWFrame11N12Click(Sender: TObject);
begin
  IWFrame11.N12Click(Sender);

end;

procedure Tfrmexpire.IWAppFormCreate(Sender: TObject);
//var
 // recnum:integer;
begin
  adoquery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+strglob+';Persist Security Info=False';


  mydate:=now-dqstr;
  datestr:=datetimetostr(mydate);
    adoquery1.Close;
  adoquery1.SQL.Clear;
  adoquery1.SQL.add(' SELECT borrowreturn.BookID  as 书号, borrowreturn.journalid as 期刊号,'+
  ' borrowreturn.username as 用户名, borrowreturn.userId as 用户号 , borrowreturn.Booktype as 书籍期刊状态 , borrowreturn.borrowDate as 借出时间 , borrowreturn.MEmo as 附注 FROM borrowreturn  '+
      ' where ( borrowDate <'+quotedstr(datestr)+ ') and ( Booktype='+quotedstr('借出')+' ) ORDER BY borrowreturn.username');
  adoquery1.Open;

end;

procedure Tfrmexpire.IWButton3Click(Sender: TObject);
begin
   adoquery1.MoveBy(-iwdbgrid1.RowLimit );
end;

procedure Tfrmexpire.IWButton4Click(Sender: TObject);
begin
     adoquery1.MoveBy(iwdbgrid1.RowLimit );
end;

procedure Tfrmexpire.IWButton5Click(Sender: TObject);
begin
     adoquery1.first;
end;

procedure Tfrmexpire.IWButton6Click(Sender: TObject);
begin
   adoquery1.Last;
end;

procedure Tfrmexpire.IWButton1Click(Sender: TObject);
var
  form1:tform1;
begin
    form1:=tform1.Create(nil);
    //form1.Active;
    form1.ShowModal;

end;

end.