我這裡有段語法 之前的人是用table元件寫的 若我想要改成Query元件 請教一下 1. SavePlace :=DM.DSFday.DataSet.GetBookmark; 若是使用Query 要如何寫呢 2. DM.DSFday.DataSet.GotoBookmark(SavePlace); 若是使用Query 要如何寫呢 3. DM.DSFday.DataSet.Next; 若是Query 是不是 DM.Query.Next呢 4. DM.DSFday.DataSet.First; 若是Query 是不是 DM.Query.First呢 除了這些 我有哪些要注意的地方呢 謝謝 procedure TFormfday.BitBtnFDel1Click(Sender: TObject); var SavePlace: TBookmark; Year, Month, Day, w: Word; Date1,Date2,Date:TDateTime; isdel,needbm:Boolean; begin DecodeDate(Now, Year, Month, Day); Date1:=StrToDate(format('%0.4d/%0.2d/01',[Year,Month])); Date2:=StrToDate(format('%0.4d/%0.2d/01',[Year 1,Month]))-1; //is need bookmark or not needbm:=true; Date:=DM.DSFday.DataSet.FieldByName('FDAY').AsDatetime; w:=DayOfWeek(Date); if (Date>=Date1) and (Date<=Date2) and (((CheckBox1.checked=true) and (w=7)) or ((CheckBox2.checked=true) and (w=1))) then needbm:=false; DM.DSFday.DataSet.DisableControls; if (needbm=true) then SavePlace :=DM.DSFday.DataSet.GetBookmark; try DM.DSFday.DataSet.First; while DM.DSFday.DataSet.Eof <> true do begin isdel:=false; Date:=DM.DSFday.DataSet.FieldByName('FDAY').AsDatetime; if (Date>=Date1) and (Date<=Date2) then begin w:=DayOfWeek(Date); if ((CheckBox1.checked=true) and (w=7)) or ((CheckBox2.checked=true) and (w=1)) then begin DM.DSFday.DataSet.Delete; isdel:=true; end; end; if isdel=false then DM.DSFday.DataSet.Next; end; finally if (needbm=true) then begin DM.DSFday.DataSet.GotoBookmark(SavePlace); DM.DSFday.DataSet.FreeBookmark(SavePlace); end; DM.DSFday.DataSet.EnableControls; end; end;

你之所以會無從下手...那是因為你對基本語法不熟所引起的... 讓本人替你開一帖藥方...保證藥到病除... 藥方：DELPHI資料庫程式設計數本(我想一本是不夠的) 藥引：每天至少一章...看完之後...拿一個小CASE做練習... 為數一個月...我想你的功力應該可以更上一層樓...

------
聰明的人，喜歡猜心；雖然每次都猜對了，卻失去了自己的心
傻氣的人，喜歡給心；雖然每次都被笑了，卻得到了別人的心

哇! 藥方太強了,除非已看得很熟了或不很用心看,不然一天一章還要找case自己練習,不出三個月就是高手一個了,不過,市面上的書是前面幾章很簡單,後面幾章可是很難消化的,還是先找一本書把它看完(懂不懂沒關係),後再找個實際個案做,在做中學,不會再去找答案.(當然啦,找答案是指自己找資料測試,真的找不到再問別人,一有問題就問別人得到的答案(或指進步來說)較慢了一點.

恩恩 那就自己先改改看 若有問題 再問好了 謝謝 ^_^