在Delphi中判斷使用者是否有超期未還的書本

2022-04-15 04:44:26 字數 1351 閱讀 5567

在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 第二種方法,是利用強大的正規表示式進行...