Zeoslib Portal

Code: Select all

SELECT * from table WHERE something;

Code: Select all

function TE_Courses.getCourseListFromDateToDateSort(from, to: TDateTime; idDispatcher, idDriver: Integer): TCourseList;
var
  query  : string;
  z :  TZQuery;

begin
   query := 'SELECT idCourse, idDriver,idDispatcher,...
    'FROM courses cs , streets s WHERE cs.idStreet=s.idStreet'+
    ' AND cDate>='''+
    IntToStr(YearOf(odDaty))+'-'+
      IntToStr(MonthOfTheYear(odDaty))+'-'+
        IntToStr(DayOfTheMonth(odDaty)) + ''' AND cDdate <='''+
              IntToStr(YearOf(doDaty))+'-'+
                IntToStr(MonthOfTheYear(doDaty))+'-'+
                  IntToStr(DayOfTheMonth(doDaty)) + '''';

   if (idDriver>0) then query := query + ' AND idDriver= '+
        IntToStr(idDriver);

   if (idDispatcher>0) then query := query + ' AND idWorker= '+
        IntToStr(idDispatcher) + '  ORDER BY cDate DESC, cHour DESC';

    E_BazaDanych.executeQuery(query );

   z := E_BazaDanych.BDZapytanie;


   Result := self.getListOfCourse(z);

end;

Code: Select all

getListOfCourse

Code: Select all

function TE_Courses.getListOfCourse(z: TZQuery): TCourseList;
var
  fields declaration
  lz : TCourseList;
begin
   max:= z.RecordCount;
   if (max = 0) then
        Result := nil    { nil, jesli lista pusta }
   else
    begin   { jesli nie, to stworzenie obiektu... }
        lz := TListaZlecen.Create();
        for i:=1 to max do
          begin      { ... i dodanie elementow }

              lz.addCourse(
			......
			......

                );
              z.Next;
          end;
        Result := lz;
    end;
end;