HTML и базы данных
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: сочинения по русскому языку, собственность реферат
| Добавил(а) на сайт: Protasij.
Предыдущая страница реферата | 10 11 12 13 14 15 16 17 18 19 20 | Следующая страница реферата
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;
procedure TWebModule1.StoreQTPFormatCell(Sender: TObject;
CellRow, CellColumn: Integer; var BgColor: THTMLBgColor;
var Align: THTMLAlign; var VAlign: THTMLVAlign; var CustomAttrs,
Рекомендуем скачать другие рефераты по теме: гражданское реферат, диплом вуза.
Категории:
Предыдущая страница реферата | 10 11 12 13 14 15 16 17 18 19 20 | Следующая страница реферата
Главная