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.zhuti like '+quotedstr(tempstr)+' and pubdate between #%s# and #%s# order by pubdate',[t1,q3]));
        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',[t1,q3]));
        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',[t1,q3]));
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
    end
end
    else
begin
if (str5='4')or(str5='6')or(str5='9')or(str5='11')then
    begin
    t2:=str4+'-'+str5+'-30';
 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',[t1,t2]));
        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',[t1,t2]));
        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',[t1,t2]));
        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',[t1,t2]));
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
        end
     end
  end
end
  end
     end
        else
begin
if (str2='') and (str4<>'') and (str5<>'') then
     begin
     i1:=strtoint(str4);

if ((str5='02') or (str5='2')) and (i1 mod 4 = 0) then
     begin

     q1:=str4+'-'+str5+'-29';
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',[q1]));
        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',[q1]));
        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',[q1]));
        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',[q1]));
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
     end
end
    else
begin
    i1:=strtoint(str4);
if (i1 mod 4<>0) and((str5='02') or (str5='2')) then
    begin
    q2:=str4+'-'+str5+'-28';
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',[q2]));
        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',[q2]));
        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',[q2]));
        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',[q2]));
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
     end
end
     else
begin
if (str5='1')or (str5='3')or(str5='5')or(str5='7')or(str5='8')or(str5='10')or(str5='12') then
    begin
    q3:=str4+'-'+str5+'-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',[q3]));
        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',[q3]));
        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',[q3]));
        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',[q3]));
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
     end
end
     else
begin
if (str5='4')or(str5='6')or(str5='9')or(str5='11')then
    begin
    t2:=str4+'-'+str5+'-30';
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',[t2]));
        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',[t2]));
        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',[t2]));
        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',[t2]));
        adoquery1.Open;
         if adoquery1.RecordCount=0 then
        begin
        webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
        end;
        end;
        end
     end
end
 end
   end
      end
        else
        begin
if (str2<>'') and (str3<>'') and (str4='') then