📄 untsqk.~pas
字号:
begin
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',[t1]));
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',[t1]));
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',[t1]));
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',[t1]));
adoquery1.Open;
if adoquery1.RecordCount=0 then
begin
webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
end;
end;
end
end
else
begin
if (str3='') and (str2<>'') and (str4<>'') and (str5<>'') then
begin
i1:=strtoint(str4);
if ((str5='02') or (str5='2')) and (i1 mod 4 = 0) then
begin
t3:=str2+'-1-1';
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 between #%s# and #%s# order by pubdate',[t3,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 between #%s# and #%s# order by pubdate',[t3,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 between #%s# and #%s# order by pubdate',[t3,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 between #%s# and #%s# order by pubdate',[t3,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
t3:=str2+'-1-1';
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 between #%s# and #%s# order by pubdate',[t3,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 between #%s# and #%s# order by pubdate',[t3,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 between #%s# and #%s# order by pubdate',[t3,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 between #%s# and #%s# order by pubdate',[t3,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
t3:=str2+'-1-1';
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 between #%s# and #%s# order by pubdate',[t3,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 between #%s# and #%s# order by pubdate',[t3,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',[t3,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',[t3,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';
t3:=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 between #%s# and #%s# order by pubdate',[t3,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',[t3,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',[t3,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',[t3,t2]));
adoquery1.Open;
if adoquery1.RecordCount=0 then
begin
webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
end;
end;
end
end
end
end
end
end
else
begin
if (str3<>'') and (str2<>'') and (str4<>'') and (str5='') then
begin
t4:=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',[t1,t4]));
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,t4]));
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,t4]));
adoquery1.Open;
if adoquery1.RecordCount=0 then
begin
webapplication.ShowMessage('没有找到相关记录。请检查查询条件重新检索！');
end;
end;
3:begin
adoquery1.Close;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -