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

if OperKind>0 then

begin

OrderCol := THTMLTableColumn.Create(StoreQTP.Columns);

OrderCol.Title.Caption := '¦рърч';

end

else

OrderCol := nil;

case OperKind of

1: Header.Add('<FORM METHOD="GET" ACTION="'+Request.ScriptName+'/AcceptOrder">');

2: Header.Add('<FORM METHOD="GET" ACTION="'+Request.ScriptName+'/EditPrice">');

end;//case

Header.Add('<BR>¦рЄхуюЁш : <I>'+FieldByName('GroupName').AsString+'</I><BR>');

Close;

//

Footer.Clear;

if OperKind=1 then Footer.Add('<BR>TЁюъ юяырЄv<INPUT TYPE="TEXT" NAME="WHENPAY" VALUE="">');

if OperKind>0 then

begin

Footer.Add('<INPUT TYPE="SUBMIT" VALUE="OK">'

+'<INPUT TYPE="RESET" VALUE="+Єьхэр"></FORM>');

end;

Footer.Add(Format('<A HREF="%s/GetGroup?Gr1=%d&Gr2=%d&Kind=%d">TхЁэєЄ№ё ъ юуыртыхэш¦</A><BR>',

[Request.ScriptName, gn1,0, OperKind]));

end;//with storeqtp

end;//with groupquery

Response.Content := StoreQTP.Content;

if Assigned(OrderCol) then OrderCol.Free;

end; //generating table

end;