untsqk.~pas

资料室图书借阅管理系统

        adoquery1.SQL.Clear;
        adoquery1.SQL.Add(format('select ID as 期刊号, JournalBasicID as 期刊名, zqs as 总期数 , qs as 期数,Price as 价格,buydate as 购入日期 , pubdate as 出版日期, ISBN , zhuti as 主题词 , fenleihao as 分类号, Memo as 附注  FROM JournalDetail WHERE JournalDetail.fenleihao = '+quotedstr(tempstr)+' and pubdate between #%s# and #%s# order by pubdate',[t1,t4]));
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
     end
end
     else
        begin
if (str2<>'')and(str4='')and(str3='')and(str5='')then
        begin
        t5:=str2+'-1-1';
case iwcombobox2.ItemIndex   of
     0:begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add(format('select ID as 期刊号, JournalBasicID as 期刊名, zqs as 总期数 , qs as 期数,Price as 价格,buydate as 购入日期 , pubdate as 出版日期, ISBN , zhuti as 主题词 , fenleihao as 分类号, Memo as 附注  FROM JournalDetail WHERE JournalDetail.JournalBasicID = '+quotedstr(tempstr)+' and pubdate >= #%s# order by pubdate',[t5]));
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
     1:begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add(format('select ID as 期刊号, JournalBasicID as 期刊名, zqs as 总期数 , qs as 期数,Price as 价格,buydate as 购入日期 , pubdate as 出版日期, ISBN , zhuti as 主题词 , fenleihao as 分类号, Memo as 附注  FROM JournalDetail WHERE JournalDetail.zhuti like '+quotedstr(tempstr)+' and pubdate >= #%s# order by pubdate',[t5]));
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
     2:begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add(format('select ID as 期刊号, JournalBasicID as 期刊名, zqs as 总期数 , qs as 期数,Price as 价格,buydate as 购入日期 , pubdate as 出版日期, ISBN , zhuti as 主题词 , fenleihao as 分类号, Memo as 附注  FROM JournalDetail WHERE JournalDetail.isbn = '+quotedstr(tempstr)+' and pubdate >= #%s# order by pubdate',[t5]));
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
     3:begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add(format('select ID as 期刊号, JournalBasicID as 期刊名, zqs as 总期数 , qs as 期数,Price as 价格,buydate as 购入日期 , pubdate as 出版日期, ISBN , zhuti as 主题词 , fenleihao as 分类号, Memo as 附注  FROM JournalDetail WHERE JournalDetail.fenleihao = '+quotedstr(tempstr)+' and pubdate >= #%s# order by pubdate',[t5]));
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
     end
end
     else
        begin
if (str2='')and(str4<>'')and(str3='')and(str5='')then
        begin
    t6:=str4+'-12-31';
case iwcombobox2.ItemIndex   of
     0:begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add(format('select ID as 期刊号, JournalBasicID as 期刊名, zqs as 总期数 , qs as 期数,Price as 价格,buydate as 购入日期 , pubdate as 出版日期, ISBN , zhuti as 主题词 , fenleihao as 分类号, Memo as 附注  FROM JournalDetail WHERE JournalDetail.JournalBasicID = '+quotedstr(tempstr)+' and pubdate <= #%s# order by pubdate',[t6]));
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
     1:begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add(format('SELECT * FROM JournalDetail WHERE JournalDetail.zhuti like '+quotedstr(tempstr)+' and pubdate <= #%s# order by pubdate',[t6]));
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
     2:begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add(format('select ID as 期刊号, JournalBasicID as 期刊名, zqs as 总期数 , qs as 期数,Price as 价格,buydate as 购入日期 , pubdate as 出版日期, ISBN , zhuti as 主题词 , fenleihao as 分类号, Memo as 附注  FROM JournalDetail WHERE JournalDetail.isbn = '+quotedstr(tempstr)+' and pubdate <= #%s# order by pubdate',[t6]));
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
     3:begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add(format('select ID as 期刊号, JournalBasicID as 期刊名, zqs as 总期数 , qs as 期数,Price as 价格,buydate as 购入日期 , pubdate as 出版日期, ISBN , zhuti as 主题词 , fenleihao as 分类号, Memo as 附注  FROM JournalDetail WHERE JournalDetail.fenleihao = '+quotedstr(tempstr)+' and pubdate <= #%s# order by pubdate',[t6]));
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
     end
end
    else
        begin
if ((str2='')and(str4='')and(str3='')and(str5='')) or ((str2='')and(str4='')and(str3<>'')and(str5<>''))then
        begin
 case iwcombobox2.ItemIndex   of
     0:begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('select ID as 期刊号, JournalBasicID as 期刊名, zqs as 总期数 , qs as 期数,Price as 价格,buydate as 购入日期 , pubdate as 出版日期, ISBN , zhuti as 主题词 , fenleihao as 分类号, Memo as 附注  FROM JournalDetail WHERE JournalDetail.JournalBasicID = '+quotedstr(tempstr)+'order by pubdate');
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
     1:begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('select ID as 期刊号, JournalBasicID as 期刊名, zqs as 总期数 , qs as 期数,Price as 价格,buydate as 购入日期 , pubdate as 出版日期, ISBN , zhuti as 主题词 , fenleihao as 分类号, Memo as 附注  FROM JournalDetail WHERE JournalDetail.zhuti like '+quotedstr('%'+tempstr+'%')+'order by pubdate');
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
     2:begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('select ID as 期刊号, JournalBasicID as 期刊名, zqs as 总期数 , qs as 期数,Price as 价格,buydate as 购入日期 , pubdate as 出版日期, ISBN , zhuti as 主题词 , fenleihao as 分类号, Memo as 附注  FROM JournalDetail WHERE JournalDetail.isbn = '+quotedstr(tempstr)+'order by pubdate');
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
     3:begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add('select ID as 期刊号, JournalBasicID as 期刊名, zqs as 总期数 , qs as 期数,Price as 价格,buydate as 购入日期 , pubdate as 出版日期, ISBN , zhuti as 主题词 , fenleihao as 分类号, Memo as 附注  FROM JournalDetail WHERE JournalDetail.fenleihao = '+quotedstr(tempstr)+'order by pubdate');
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
     end
 end
    else
        begin
 if (str2<>'')and(str3='')and(str4<>'')and(str5='')then
      begin
  t0:=str2+'-1-1';
  q4:=str4+'-12-31';
  case iwcombobox2.ItemIndex   of
     0:begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add(format('select ID as 期刊号, JournalBasicID as 期刊名, zqs as 总期数 , qs as 期数,Price as 价格,buydate as 购入日期 , pubdate as 出版日期, ISBN , zhuti as 主题词 , fenleihao as 分类号, Memo as 附注  FROM JournalDetail WHERE JournalDetail.JournalBasicID = '+quotedstr(tempstr)+' and pubdate between #%s# and #%s# order by pubdate',[t0,q4]));
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
     1:begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add(format('select ID as 期刊号, JournalBasicID as 期刊名, zqs as 总期数 , qs as 期数,Price as 价格,buydate as 购入日期 , pubdate as 出版日期, ISBN , zhuti as 主题词 , fenleihao as 分类号, Memo as 附注  FROM JournalDetail WHERE JournalDetail.zhuti like '+quotedstr(tempstr)+' and pubdate between #%s# and #%s# order by pubdate',[t0,q4]));
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
     2:begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add(format('select ID as 期刊号, JournalBasicID as 期刊名, zqs as 总期数 , qs as 期数,Price as 价格,buydate as 购入日期 , pubdate as 出版日期, ISBN , zhuti as 主题词 , fenleihao as 分类号, Memo as 附注  FROM JournalDetail WHERE JournalDetail.isbn = '+quotedstr(tempstr)+' and pubdate between #%s# and #%s# order by pubdate',[t0,q4]));
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
     3:begin
        adoquery1.Close;
        adoquery1.SQL.Clear;
        adoquery1.SQL.Add(format('select ID as 期刊号, JournalBasicID as 期刊名, zqs as 总期数 , qs as 期数,Price as 价格,buydate as 购入日期 , pubdate as 出版日期, ISBN , zhuti as 主题词 , fenleihao as 分类号, Memo as 附注  FROM JournalDetail WHERE JournalDetail.fenleihao = '+quotedstr(tempstr)+' and pubdate between #%s# and #%s# order by pubdate',[t0,q4]));
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
           end;
        end;
     end;
  end;
end;
  end;
     end;
       end;
         end;
           end;
             end;
               end;
             
procedure Tfrmsqk.IWComboBox2Change(Sender: TObject);
begin
  iwedit1.SetFocus;
end;
procedure Tfrmsqk.IWAppFormCreate(Sender: TObject);
begin

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


iwedit1.Text:='';
 iwedit2.Text:='';
 iwedit3.Text:='';
 iwedit4.Text:='';
 iwedit5.Text:='';
 iwedit1.SetFocus;
if  style=2 then
begin
iwframe11.Visible:=false;
 iwbutton3.Visible:=true;
end
else
 iwframe11.Visible:=true;


end;
procedure Tfrmsqk.IWButton2Click(Sender: TObject);
begin
 iwedit1.Text:='';
 iwedit2.Text:='';
 iwedit3.Text:='';
 iwedit4.Text:='';
 iwedit5.Text:='';
 adoquery1.Close;
 adoquery1.SQL.Clear;
  adoquery1.SQL.Add('select ID as 期刊号, JournalBasicID as 期刊名, zqs as 总期数 , qs as 期数,Price as 价格,buydate as 购入日期 , pubdate as 出版日期, ISBN , zhuti as 主题词 , fenleihao as 分类号, Memo as 附注 from JournalDetail  where ID ='+quotedstr('-1'));
 adoquery1.open;

 //adoquery1.Active:=false;
 //iwdbgrid1.DataSource:=nil;
 end;
procedure Tfrmsqk.IWButton3Click(Sender: TObject);
begin
//move(IWForm_guest);

  TIWAppForm(WebApplication.ActiveForm).Release;



end;

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

procedure Tfrmsqk.IWButton5Click(Sender: TObject);
begin
    adoquery1.MoveBy(iwdbgrid1.RowLimit );
end;

procedure Tfrmsqk.IWButton6Click(Sender: TObject);
begin
   adoquery1.First;
end;

procedure Tfrmsqk.IWButton7Click(Sender: TObject);
begin
   adoquery1.Last;
end;

end.