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

if Pos('.',s2)0 then s2 := Copy(s2,1,Pos('.',s2)-1); iniName := s1+s2+'.ini'; ini := TINIFile.Create(iniName);

HTMLPath := ini.ReadString('Paths','HTMLPath','/test');
TemplatesPath := ini.ReadString('Paths','TemplatesPath',s1);
DBAliasName := ini.ReadString('Paths','DBAliasName','webtest');

if Assigned(WebSession) and WebSession.IsAlias(DBAliasName) then begin

GroupQuery.DatabaseName := DBAliasName;

StoreQuery.DatabaseName := DBAliasName;

ValidateQuery.DatabaseName := DBAliasName; end;

bgpath := ini.ReadString('Design','Background','imgsand.jpg'); txtcol := ini.ReadString('Design','text','black'); lcol := ini.ReadString('Design','link','blue'); acol := ini.ReadString('Design','alink','aqua'); vcol := ini.ReadString('Design','vlink','aqua'); ini.Free;

CommonLook := Format('',

[HTMLPath,bgpath,txtcol,lcol,acol,vcol]);
CommonEnd := ''; end;

procedure TWebModule1.WebModule1Destroy(Sender: TObject); begin
; end;

function TWebModule1.GroupListProducer(Query: TQuery; kind: Integer): string; var s: string;gn1,gn2: Integer; begin with Query do try

Open;

Result := '';

First; while not Eof do begin gn1 := Query.Fields[0].AsInteger; gn2 := Query.Fields[1].AsInteger; if Gn2=0 then s:='' else s:=IntToStr(Gn2);

Result := Result + Format('%d.%s %s',

[Request.ScriptName, gn1,gn2,Kind, gn1,s,Query.Fields[2].AsString]);

Next; end; finally

Close; end; end;

function TWebModule1.CreateGroupList(Gr1,Gr2,Kind:Integer) : string; var fs: TFileStream; i: Integer; begin
Result := ''+sContent+''; with GroupQuery do begin if Gr1=0 then

SQL.Text := 'SELECT * FROM Groups WHERE SubGroup=0' else

SQL.Text := Format('SELECT * FROM Groups WHERE (MainGroup=%d) and
(SubGroup>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

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





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