0) ', [Gr1 ]);
try
Result: = Result + GroupListProducer (GroupQuery, Kind);
if Gr10 then
Result: = Result + Format ( 'TхЕеєЄ № е ъ
юуиртихеш |
',
[Request.ScriptName, 0,0, Kind ]);
except
on E: EDBEngineError do
begin
Result: = Result + '+ ° шс'р BDE' + '
';
for i: = 0 to E. ErrorCount -1 do
Result: = Result + E. Errors [i]. Message + '
';
end;
end;
end;
Result: = Result + '| юшеъ'
+ 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 (gn10) 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 ( '
| рЄхуюЕш:' + FieldByName ( 'GroupName'). AsString + '
');
Close;
//
Footer.Clear;
if OperKind = 1 then Footer.Add ( '
TЕю' юяирЄv');
if OperKind> 0 then
begin
Footer.Add (''
+'');
end;
Footer.Add (Format ( 'TхЕеєЄ № е ъ
юуиртихеш |
',
[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 (CellRow0) 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;
if (OperKind> 0) and (CellColumn = StoreQTP.Columns.Count-1) and (CellRow> 0) then
begin
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;
Response.Content: = CommonLook + '
Tv єеях ° ею чрЕхушеЄЕшЕютреv ';
if UserStatus> 0 then
Response.Content: = Response.Content + '
TvсхЕшЄх ЄютрЕеє | уЕєяяє ш ттхфшЄх
чр'рч
'+ CreateGroupList (0,0,1)
else
begin
Response.Content: = Response.Content + '
T ърўхеЄтх рфьшешеЄЕрЄюЕр'
+ '
TЄЕрэшЎр
рфьшешеЄЕрЄюЕр ';
end;
end
else
Response.Content: = CommonLook + 'Tр ° ш фрееvх юЄеєЄеЄтє | Є т срчх. + сЕрЄшЄхе № ъ ерь яю рфЕхеє [email protected] ';
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 +'%"';
Response.Content: = CommonLook + '
| хчєи № ЄрЄv яюше'р' + s + ':
'
+ 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' + '
';
for i: = 0 to E. ErrorCount -1 do
Response.Content: = Response.Content + E. Errors [i]. Message + '
';
Response.Content: = Response.Content + CommonEnd;
end;
end;
end;
end.
Бібліографічний
список.
1. Комп'ютер Прес N2 1997р.
2. П. Дарахвелидзе, Є. Марков «Програмування в Delphi 4»
3. Комп'ютер Прес N4 1997р.
4. Комп'ютер Прес N5 1998р.
5. Computer Week Москва N4 (210) 1999р.
6. Computer Week Москва N17 (223) 1996р.
7. Computer Week Москва N18 (224) 1998р.
8. Компьютерра N15 (142) 1996.
