HTML и базы данных

Реферат - Компьютеры, программирование

Другие рефераты по предмету Компьютеры, программирование

Скачать Бесплатно!
Для того чтобы скачать эту работу.
1. Пожалуйста введите слова с картинки:

2. И нажмите на эту кнопку.
закрыть



Result := Result + E.Errors[i].Message + ;

end;

end;

end;

+CommonEnd;

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;

Header.Add(CommonLook);

if OperKind>0 then

begin

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

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

end

else

OrderCol := nil;

case OperKind of

);"> 1: Header.Add();

);"> 2: Header.Add();

end;//case

"> Header.Add();

Close;

//

Footer.Clear;

Tv);

if OperKind>0 then

begin

"> Footer.Add(

+);

end;

TхЁэєЄ№ё"> Footer.Add(Format(,

[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,

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 :=

+CellData;

end;

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

begin

CellData := рърчрЄ№;

s := <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];

Params[1].AsString := Request.QueryFields.Values[Password];

try

Open;

if RecordCount>0 then

begin

UserStatus := FieldByName(UserCategory).AsInteger;

;

if UserStatus>0 then

Tv+CreateGroupList(0,0,1)

else

begin

T"> Response.Content := Response.Content + T ърўхёЄтх рфьшэшёЄЁрЄюЁр

;

end;

end

else

Response.Content := CommonLook+Tрш фрээvх юЄёєЄёЄтєЄ т срчх. +сЁрЄшЄхё№ ъ эрь яю рфЁхёє xxx@yyy.zzz;

finally

Close;

end;

 

end;

 

end;

 

 

procedure TWebModule1.WebModule1AcceptOrderAction(Sender: TObject;

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

begin

Response.Content := CommonLook+sOrderAccepted+CommonEnd;

// -ры№х тёЄрт№Єх ётющ ъюф фы тъыўхэш чрърчр т срчє

end;

 

procedure TWebModule1.WebModule1SearchAction(Sender: TObject;

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

var s: string;

begin

s:= Request.QueryFields.Values[Phrase];

GroupQuery.SQL.Text := SELECT * FROM Groups WHERE GroupName LIKE "%+s+%";

v

+GroupListProducer(GroupQuery,0)+CommonEnd;

end;

 

procedure TWebModule1.WebModule1AddMSgAction(Sender: TObject;

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

var MCookies : TStringList;i: integer;

begin

Response.Content := CommonLook;

with AddMsgQuery do

try

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

Params[1].AsString:=Request.Host;

Params[2].AsDateTime:=Request.Date;

Params[3].AsMemo:=Request.QueryFields.Values[Message];

Prepare;

ExecSQL;

 

MCookies := TStringList.Create;

MCookies.Add(User=+Request.PathTranslated);

MCookies.Add(Test=+Request.RemoteHost);

MCookies.Add(Time=+Request.UserAgent);

Response.SetCookieField(MCookies, , Request.PathInfo , Date+1, False);

MCookies.Free;

 

Response.Content := Response.Content + Tрх ёююсхэшх яЁшэЄю + CommonEnd;

except

on E:EDBEngineError do

begin

;"> Response.Content := Response.Content + +шсър BDE&#

s