Реферат: HTML и базы данных

end;

// QueryAction - GetGroup тvтюф ЄрсышЎv яю Єют.уЁєяях

threadvar OperKind : Integer;

procedure TWebModule1.WebModule1GetGroupAction(Sender: TObject;

Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

var gn1,gn2 : Integer; OrderCol : THTMLTableColumn;

begin

with Request.QueryFields do

begin

gn1 := IndexOfName('Kind');

if (gn1<>0) then OperKind := StrToIntDef(Values['Kind'],0);

if gn1>=0 then Delete(gn1);

gn1 := StrToIntDef(Values['Gr1'],0);

gn2 := StrToIntDef(Values['Gr2'],0);

end; //with

if gn1=0 then Response.Content := CommonLook+CreateGroupList(gn1,gn2,OperKind)

else if gn2=0 then Response.Content := CommonLook+CreateGroupList(gn1,gn2,OperKind)

else

begin

//define group name

with GroupQuery do

begin

SQL.Text := 'SELECT * FROM Groups WHERE (MainGroup=:gn1) and (SubGroup=:gn2)';

Params[0].AsInteger := gn1;

Params[1].AsInteger := gn2;

Open;

with StoreQTP do

begin

Header.Clear;