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

CellRow, CellColumn: Integer; var BgColor: THTMLBgColor;

var Align: THTMLAlign; var VAlign: THTMLVAlign; var CustomAttrs,

CellData: String);

var s: string;

begin

if (CellRow<>0) then if (CellRow mod 2=0) then BgColor:='silver' else BgColor:='Gray';

if (OperKind>0) and (CellColumn=0) and (CellRow>0) then

begin

CellData := '<INPUT TYPE=HIDDEN NAME=H'+IntToStr(CellRow)+' VALUE="'+CellData+'">'

+CellData;

end;

if (OperKind>0) and (CellColumn=StoreQTP.Columns.Count-1) and (CellRow>0) then

begin

CellData := '<INPUT TYPE=CHECKBOX NAME=R'+IntToStr(CellRow)+' VALUE=1>¦рърчрЄ№';

s := '<BR><INPUT TYPE=TEXT NAME=T'+IntToStr(CellRow)+' SIZE=5 MAXLENGTH=8 VALUE="';

CellData := CellData+s+'">';

end;

end;

procedure TWebModule1.StoreQTPGetTableCaption(Sender: TObject;

var Caption: String; var Alignment: THTMLCaptionAlignment);

begin

Caption :='=рщфхэю чряшёхщ: '+ IntToStr(StoreQTP.Query.RecordCount);

end;

procedure TWebModule1.WebModule1ValidateAction(Sender: TObject;

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

begin

with ValidateQuery do

begin

Params[0].AsString := Request.QueryFields.Values['UserName'];