untnewbook.~pas

资料室图书借阅管理系统

unit untnewbook;

interface

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

type
  Tfrmnewbook = class(TIWAppForm)
    IWLabel1: TIWLabel;
    IWHRule1: TIWHRule;
    IWLabel2: TIWLabel;
    IWDBGrid1: TIWDBGrid;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    IWFrame11: TIWFrame1;
    IWButton1: TIWButton;
    IWButton3: TIWButton;
    IWButton4: TIWButton;
    IWButton5: TIWButton;
    IWButton6: TIWButton;
    IWButton2: TIWButton;
   // procedure IWButton1Click(Sender: TObject);
    procedure IWAppFormCreate(Sender: TObject);
    procedure IWButton1Click(Sender: TObject);
    procedure IWButton5Click(Sender: TObject);
    procedure IWButton3Click(Sender: TObject);
    procedure IWButton4Click(Sender: TObject);
    procedure IWButton6Click(Sender: TObject);
    procedure IWButton2Click(Sender: TObject);
   // procedure IWButton2Click(Sender: TObject);
    private
    procedure Move(AFormClass: TIWAppFormClass);
  public
  end;

implementation

uses ServerController,untguest,untlog,U_guestMain;

{$R *.dfm}


procedure Tfrmnewbook.Move(AFormClass: TIWAppFormClass);
begin
  // Release the current form
  TIWAppForm(WebApplication.ActiveForm).Release;
  // tiwappform(webapplication.ActiveForm).Release;
  // Create the next form
  AFormClass.Create(WebApplication).Show;
end;

procedure Tfrmnewbook.IWAppFormCreate(Sender: TObject);
var
   mydate : TDateTime;
   datestr:string;
begin

 mydate:=now-logstr;
  datestr:=datetimetostr(mydate);

  adoquery1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+strglob+';Persist Security Info=False';

   adoquery1.Close;
   adoquery1.SQL.Clear;
   adoquery1.SQL.add('SELECT book.BookID as 书号, book.Name as 书名 , book.Author as 作者, book.[co-Author] as 副主编,'+
      ' book.PublishID as 出版社, book.Price as 价格, book.sery as 所属丛书, book.Type as 类型, book.PubDate as 出版日期, book.LogDate as 购入日期, book.ISBN, book.Memo as 附注  FROM  book  where LogDate >= '+ quotedstr(datestr) );
   adoquery1.Open;
   adoquery1.First;
if  style=2 then
begin
   iwframe11.Visible:=false;
   iwbutton1.Visible:=true;
end
else
   iwframe11.Visible:=true;

end;

procedure Tfrmnewbook.IWButton1Click(Sender: TObject);
begin
  move(tiwfrmguest);
end;


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

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

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

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

procedure Tfrmnewbook.IWButton2Click(Sender: TObject);
begin
  TIWAppForm(WebApplication.ActiveForm).Release;

 TIWForm_guest.Create(WebApplication).Show;
end;

end.