delphi - 여러 레코드를 한 번에 저장

Question

정확히 어떻게 공식화해야 할 지 모르겠다. 제발 저를 참아주십시오 ... PlannerCalendar1에서 선택한 날짜의 메모를 데이터베이스에 저장하고 있습니다. PlannerCalendar1에서 여러 날짜를 선택할 수 있으므로 PlannerCalendar1에서 선택한 모든 날짜에 메모의 값을 게시하려면 어떻게해야합니까? '저장'을 클릭하면 메모의 내용이 선택한 모든 날짜에 저장됩니다. 데이터베이스는 SQLite입니다. 테이블에는 또한 autoinc (기본) ID 필드가 있습니다. PlannerCalendar는 TMS 구성 요소 세트에서옵니다.

procedure TForm1.cxButton1Click(Sender: TObject); 
var i:integer; 
begin 
with UniQuery1 do 
begin 
UniQuery1.SQL.Text:='INSERT INTO LOG (DATE,PERSON,DONE,TIME) VALUES (:a1,:a2,:a3,:a4)'; 
UniQuery1.PARAMS.ParamByName('A1').VALUE := PlannerCalendar1.Date; 
UniQuery1.PARAMS.ParamByName('A2').VALUE := cxmemo1.Lines.text ; 
UniQuery1.PARAMS.ParamByName('A3').VALUE := (0); 
UniQuery1.PARAMS.ParamByName('A4').Value := AdvOfficeStatusBar1.Panels[0].Text; 
UniQuery1.ExecSQL; 
cxmemo1.Clear; 
UniTable1.Refresh; 

는 말에이를 시도하지만 늘 작동 :

with plannercalendar1.Dates do 
begin 
for i := 0 to -1 do 
begin 
UniQuery1.PARAMS.ParamByName('A1').VALUE :=plannercalendar1.dates.Add + i ; 
UniQuery1.ExecSQL; 
end; 

Answer 1

나는 PlannerCalendar이 무엇인지 모른다, 그러나 아마도 선택한 날짜의 목록을 얻을 수있는 몇 가지 방법이 있습니다. 이 같은 것을하고 싶지 :

물론

UniQuery1.SQL.Text:='INSERT INTO LOG (DATE,PERSON,DONE,TIME) VALUES (:a1,:a2,:a3,:a4)'; 
UniQuery1.PARAMS.ParamByName('A2').VALUE := cxmemo1.Lines.text ; 
UniQuery1.PARAMS.ParamByName('A3').VALUE := (0); 
UniQuery1.PARAMS.ParamByName('A4').Value := AdvOfficeStatusBar1.Panels[0].Text; 

for i := 0 to PlannerCalendar1.NumberOfDatesSelected-1 do begin 
    UniQuery1.PARAMS.ParamByName('A1').VALUE := PlannerCalendar1.SelectedDate[i]; 
    UniQuery1.ExecSQL; 
end; 

, NumberOfDatesSelected 및 SelectedDate 야생 추측이다. 그들이 실제로 부른 것을 찾아야합니다.

Answer 2

당신은 플래너의 SelectionToAbsTime 방법을 사용할 필요가

: -

Var 
    lStart, lEnd : TDateTime; 
Begin 
    Planner1.SelectionToAbsTime(lStart, lEnd); 
    For I := Trunc(lStart) To Trunc(lEnd) Do 
    SaveMemosForDate(I); 
End;