Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

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

Рекомендуем скачать другие рефераты по теме: военные рефераты, контрольные за 1 полугодие.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата