線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:626
推到 Plurk!
推到 Facebook!

如何下 SQL 於 TQuery

尚未結案
kate0921
一般會員


發表:14
回覆:19
積分:6
註冊:2004-07-07

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-08-11 16:37:12 IP:203.66.xxx.xxx 未訂閱
我在 TDBGrid 有一個欄位名為 Date 想要在執行時會自動塞入日期資料格式為: Work-04/08/11-01 Work 為固定格式,而 -01 則為當日有幾項就自動跳為 -02 , -03 請問各位前輩要如何下桯式? 還是我的想法是做不到的呢?
pedro
尊榮會員


發表:152
回覆:1187
積分:892
註冊:2002-06-12

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-08-11 17:41:12 IP:211.21.xxx.xxx 未訂閱
kate0921您好 在DBGrid.DataSet的AfterInsert事件用另一個TQuery下 qrySelect.Sql.Text=' select top 1 SubString(DateField,15,2) as TopValue from table1 where cast(SubString(DateField,6,2) SubString(DateField,9,2) SubString(DateField,12,2) as char(6))=cast(Right(convert(VarChar(8),GetDate(),112),6) as char(6)) order by SubString(DateField,15,2) desc'; qrySelect.Open; NextValue:=qrySelect.FieldByName('TopValue').AsString; 應該就可以取得今日最高項目的代號 DataSet.FieldByName('DateField').AsString:=FormatDateTime('Work-yy/MM/dd' NextValue,Now) 發表人 - pedro 於 2004/08/11 19:34:49
系統時間:2024-06-02 4:59:57
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!