我這裡有段語法 之前的人是用table元件寫的 若我想要改成Query元件 請教一下 我有哪些要注意的地方呢 謝謝 procedure TFormfday.BitBtnFAdd1Click(Sender: TObject); var Year, Month, Day, w: Word; Date1,Date2,Date:TDateTime; QueryT: TQuery; 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; QueryT := TQuery.Create(Self); QueryT.DatabaseName := DM.TBFday.DatabaseName; QueryT.SQL.Clear; QueryT.SQL.Add('select FDAY from ' IRecDB[irFday].DBName ' where FDAY>=''' DateToSqlString(Date1) ''' AND FDAY<=''' DateToSqlString(Date2) ''' order by FDAY'); QueryT.Prepare; QueryT.Open; DM.DSFday.DataSet.DisableControls; try w:=DayOfWeek(Date1); if (CheckBox1.checked=true) then begin if w<>7 then Date:=Date1 (7-w) //init first match day else Date:=Date1; while Date<=Date2 do begin if QueryT.Locate('FDAY', Date,[loPartialkey])=false then begin DM.DSFday.DataSet.Append; DM.DSFday.DataSet.FieldByName('FDAY').AsDateTime:=Date; DM.DSFday.DataSet.post; end; Date:=Date 7; end; end; if (CheckBox2.checked=true) then begin if w<>1 then Date:=Date1 (8-w) //init first match day else Date:=Date1; while Date<=Date2 do begin if QueryT.Locate('FDAY', Date,[loPartialkey])=false then begin DM.DSFday.DataSet.Append; DM.DSFday.DataSet.FieldByName('FDAY').AsDateTime:=Date; DM.DSFday.DataSet.post; end; Date:=Date 7; end; end; finally // free query: QueryT.Close; QueryT.Free; DM.DSFday.DataSet.EnableControls; end; MonthCalendar1.Date:=DM.DSFday.DataSet.FieldByName('FDAY').AsDatetime; end;