Предыдущая страница реферата | 7  8  9  10  11  12  13  14  15  16  17 | Следующая страница реферата

    begin

      gn1 := Query.Fields[0].AsInteger;

      gn2 := Query.Fields[1].AsInteger;

      if Gn2=0 then s:='' else s:=IntToStr(Gn2);

      Result := Result + Format('<A HREF="%s/GetGroup?Gr1=%d&Gr2=%d&Kind=%d">%d.%s %s</A><BR>',

      [Request.ScriptName, gn1,gn2,Kind, gn1,s,Query.Fields[2].AsString]);

      Next;

    end;

   finally

    Close;

   end;

end;

function TWebModule1.CreateGroupList(Gr1,Gr2,Kind:Integer) : string;

var fs: TFileStream; i: Integer;

begin

  Result := '<B><FONT SIZE=+1>'+sContent+'<BR></FONT></B><HR>';

  with GroupQuery do

  begin

    if Gr1=0 then

     SQL.Text := 'SELECT * FROM Groups WHERE SubGroup=0'

    else

     SQL.Text := Format('SELECT * FROM Groups WHERE (MainGroup=%d) and (SubGroup>0)',[Gr1]);

    try

     Result := Result + GroupListProducer(GroupQuery,Kind);

     if Gr1<>0 then

Рекомендуем скачать другие рефераты по теме: гражданское реферат, диплом вуза.



Предыдущая страница реферата | 7  8  9  10  11  12  13  14  15  16  17 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки