在delphi中判斷使用者是否有超期未還的書本 delphi / windows sdk/api
我使用了bde來連線資料庫,想判斷一下資料庫表中的使用者是否有借閱超期未還的書本,應該怎樣寫哦~~(我使用了query,table,database,dbgrid,datasource,表中已經有了所借時間,超過30天就過期)
使用query,然後查詢select * from yourtable where borrowdate+30>=getdate 把結果顯示在dbgrid中就可以了!
忘記說:
1、需要引用sysutils單元(uses sysutils;)
2、把 < 換成 <=
select * from yourtable where borrowdate+30>=getdate 中的borrowdate和getdate格式如何寫哦~~能舉個例子嗎~~
getdate如何寫哦~~我要getdate是現在系統時間哦~~格式要yyyy-mm-dd哦
with query2 do
begin
close;
sql.clear;
sql.add('select 借書證號碼,所借日期 from lend where 借書證號碼=:qame and 所借日期》現在時間+30天 ');
parambyname('qame').asstring := edit14.text;
open;
showmessage(inttostr(recordcount));
end;
現在時間+30天應該如何寫哦~~
我替一樓回答一下吧:
'select 借書證號碼,所借日期 from lend where 借書證號碼=:qame and 所借日期》dateadd("d",30,現在日期) '
我沒有試驗哦~~ 一起測試一下吧~~ 其實查一下vbscript函式大全應該會找到這樣的函式的
我已經測試了,完全可以!
sql.text := ' select * from lend where 日期 > dateadd("d",30,now) ' ;
具體是用》 還是用 < ,由樓主自己決定吧!反正 dateadd("d",30,now) 就等於今天+30天!
~~注意單位是天(d)
樓主遇到這類的sql語句不會寫的問題,一是可以從網上找sql相關資料,再是可以找vbscript函式。
delphi 判斷檔案是否在被使用中。
procedure tform1.button1click sender tobject begin if opendialog1.execute then begin if isfileinuse opendialog1.filename true then showmessage 檔案正在使用 ...
判斷QString中是否有漢字
如題,專案中可能遇到此類問題,先寫個馬馬虎虎的解決方法 第一種方法,逐一取中qstring的字元,進行判斷。qstring str int ncount str.count for int i 0 i ncount i 第二種方法,是利用強大的正規表示式進行判斷。qstring str bool b...
判斷QString中是否有漢字
如題,專案中可能遇到此類問題,先寫個馬馬虎虎的解決方法 第一種方法,逐一取中qstring的字元,進行判斷。html view plain copy qstring str int ncount str count for int i 0 i ncount i 第二種方法,是利用強大的正規表示式進行...