untsbook.pas

资料室图书借阅管理系统

unit untsbook;

interface

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

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

  end;

implementation
 uses untlog,untguest,servercontroller, tempuntmain,U_guestMain;
{$R *.dfm}

procedure Tfrmsbook.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 Tfrmsbook.IWButton1Click(Sender: TObject);
var
  tempstr: string;  
begin
   tempstr:=trim(iwedit1.Text);

   //add line;;

        
 case iwcombobox1.ItemIndex  of
    0: begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('SELECT book.BookID as 书号, book.Name as 书名, book.Author as 作者, book.[co-Author] as 副主编, borrowreturn.Booktype as 书籍期刊状态, book.PublishID as 出版社名, book.Price as 价格, book.sery as 所属丛书, book.Type as 类型, book.PubDate as 出版日期,  '+
            '  book.LogDate as 购入日期, book.ISBN, book.zhuti as 主题词, book.fenleihao as 分类号, book.Memo as 附注 FROM book INNER JOIN borrowreturn ON book.BookID = borrowreturn.BookID '+
            ' where book.BookID like '+ quotedstr('%'+tempstr+'%'));
        adoquery1.Open;

    iwbutton3.Visible:=true;
    iwbutton4.Visible:=true;
    iwbutton5.Visible:=true;
    iwbutton6.Visible:=true;
      end;

    1:  begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('SELECT book.BookID as 书号, book.Name as 书名, book.Author as 作者, book.[co-Author] as 副主编, borrowreturn.Booktype as 书籍期刊状态, book.PublishID as 出版社名, book.Price as 价格, book.sery as 所属丛书, book.Type as 类型, book.PubDate as 出版日期,  '+
            '  book.LogDate as 购入日期, book.ISBN, book.zhuti as 主题词, book.fenleihao as 分类号, book.Memo as 附注 FROM book INNER JOIN borrowreturn ON book.BookID = borrowreturn.BookID '+
            ' where book.Name like '+ quotedstr('%'+tempstr+'%'));
        adoquery1.Open;

    iwbutton3.Visible:=true;
    iwbutton4.Visible:=true;
    iwbutton5.Visible:=true;
    iwbutton6.Visible:=true;
        end;
    2:  begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('SELECT book.BookID as 书号, book.Name as 书名, book.Author as 作者, book.[co-Author] as 副主编, borrowreturn.Booktype as 书籍期刊状态, book.PublishID as 出版社名, book.Price as 价格, book.sery as 所属丛书, book.Type as 类型, book.PubDate as 出版日期,  '+
            '  book.LogDate as 购入日期, book.ISBN, book.zhuti as 主题词, book.fenleihao as 分类号, book.Memo as 附注 FROM book INNER JOIN borrowreturn ON book.BookID = borrowreturn.BookID '+
            ' where book.Author like '+ quotedstr('%'+tempstr+'%'));
        adoquery1.Open;

    iwbutton3.Visible:=true;
    iwbutton4.Visible:=true;
    iwbutton5.Visible:=true;
    iwbutton6.Visible:=true;
        end;
    3:  begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('SELECT book.BookID as 书号, book.Name as 书名, book.Author as 作者, book.[co-Author] as 副主编, borrowreturn.Booktype as 书籍期刊状态, book.PublishID as 出版社名, book.Price as 价格, book.sery as 所属丛书, book.Type as 类型, book.PubDate as 出版日期,  '+
            '  book.LogDate as 购入日期, book.ISBN, book.zhuti as 主题词, book.fenleihao as 分类号, book.Memo as 附注 FROM book INNER JOIN borrowreturn ON book.BookID = borrowreturn.BookID '+
            ' where book.PublishID like '+ quotedstr('%'+tempstr+'%'));
        adoquery1.Open;

    iwbutton3.Visible:=true;
    iwbutton4.Visible:=true;
    iwbutton5.Visible:=true;
    iwbutton6.Visible:=true;
        end;
    4:  begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('SELECT book.BookID as 书号, book.Name as 书名, book.Author as 作者, book.[co-Author] as 副主编, borrowreturn.Booktype as 书籍期刊状态, book.PublishID as 出版社名, book.Price as 价格, book.sery as 所属丛书, book.Type as 类型, book.PubDate as 出版日期,  '+
            '  book.LogDate as 购入日期, book.ISBN, book.zhuti as 主题词, book.fenleihao as 分类号, book.Memo as 附注 FROM book INNER JOIN borrowreturn ON book.BookID = borrowreturn.BookID '+
            ' where book.sery like '+ quotedstr('%'+tempstr+'%'));
        adoquery1.Open;

    iwbutton3.Visible:=true;
    iwbutton4.Visible:=true;
    iwbutton5.Visible:=true;
    iwbutton6.Visible:=true;
        end;
    5:  begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('SELECT book.BookID as 书号, book.Name as 书名, book.Author as 作者, book.[co-Author] as 副主编, borrowreturn.Booktype as 书籍期刊状态, book.PublishID as 出版社名, book.Price as 价格, book.sery as 所属丛书, book.Type as 类型, book.PubDate as 出版日期,  '+
            '  book.LogDate as 购入日期, book.ISBN, book.zhuti as 主题词, book.fenleihao as 分类号, book.Memo as 附注 FROM book INNER JOIN borrowreturn ON book.BookID = borrowreturn.BookID '+
            ' where book.Type like '+ quotedstr('%'+tempstr+'%'));
        adoquery1.Open;

         iwbutton3.Visible:=true;
    iwbutton4.Visible:=true;
    iwbutton5.Visible:=true;
    iwbutton6.Visible:=true;
        end;
    6:  begin
         adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('SELECT book.BookID as 书号, book.Name as 书名, book.Author as 作者, book.[co-Author] as 副主编, borrowreturn.Booktype as 书籍期刊状态, book.PublishID as 出版社名, book.Price as 价格, book.sery as 所属丛书, book.Type as 类型, book.PubDate as 出版日期,  '+
            '  book.LogDate as 购入日期, book.ISBN, book.zhuti as 主题词, book.fenleihao as 分类号, book.Memo as 附注 FROM book INNER JOIN borrowreturn ON book.BookID = borrowreturn.BookID '+
            ' where book.ISBN like '+ quotedstr('%'+tempstr+'%'));
        adoquery1.Open;
        end;
    7: begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('SELECT book.BookID as 书号, book.Name as 书名, book.Author as 作者, book.[co-Author] as 副主编, borrowreturn.Booktype as 书籍期刊状态, book.PublishID as 出版社名, book.Price as 价格, book.sery as 所属丛书, book.Type as 类型, book.PubDate as 出版日期,  '+
            '  book.LogDate as 购入日期, book.ISBN, book.zhuti as 主题词, book.fenleihao as 分类号, book.Memo as 附注 FROM book INNER JOIN borrowreturn ON book.BookID = borrowreturn.BookID '+
            ' where book.zhuti like '+ quotedstr('%'+tempstr+'%'));
        adoquery1.Open;

    iwbutton3.Visible:=true;
    iwbutton4.Visible:=true;
    iwbutton5.Visible:=true;
    iwbutton6.Visible:=true;
        end;
    8: begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('SELECT book.BookID as 书号, book.Name as 书名, book.Author as 作者, book.[co-Author] as 副主编, borrowreturn.Booktype as 书籍期刊状态, book.PublishID as 出版社名, book.Price as 价格, book.sery as 所属丛书, book.Type as 类型, book.PubDate as 出版日期,  '+
            '  book.LogDate as 购入日期, book.ISBN, book.zhuti as 主题词, book.fenleihao as 分类号, book.Memo as 附注 FROM book INNER JOIN borrowreturn ON book.BookID = borrowreturn.BookID '+
            ' where book.fenleihao like '+ quotedstr('%'+tempstr+'%'));
        adoquery1.Open;

    iwbutton3.Visible:=true;
    iwbutton4.Visible:=true;
    iwbutton5.Visible:=true;
    iwbutton6.Visible:=true;
        end;

 end;

end;

procedure Tfrmsbook.IWAppFormCreate(Sender: TObject);
begin

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


iwedit1.Text:='';
iwedit1.SetFocus;
 iwcombobox1.ItemIndex:=-1;
if  style=2 then
begin
iwframe11.Visible:=false;
 iwbutton2.Visible:=true;

end
else
 iwframe11.Visible:=true;

end;

procedure Tfrmsbook.IWButton2Click(Sender: TObject);
begin
 move(TIWForm_guest);
end;

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

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

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

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

end.