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

uses
Windows, Messages, SysUtils, Classes, HTTPApp, DBWeb, Db, DBTables;

type
TWebModule1 = class(TWebModule)

GroupQuery: TQuery;

WebSession: TSession;

StoreQTP: TQueryTableProducer;

GroupQueryMainGroup: TIntegerField;

GroupQuerySubGroup: TIntegerField;

GroupQueryGroupName: TStringField;

StoreQuery: TQuery;

ValidateQuery: TQuery;

AddMsgQuery: TQuery; procedure WebModule1GetGroupAction(Sender: TObject;

Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); procedure WebModule1Create(Sender: TObject); procedure StoreQTPFormatCell(Sender: TObject; CellRow,

CellColumn: Integer; var BgColor: THTMLBgColor; var Align: THTMLAlign; var VAlign: THTMLVAlign; var CustomAttrs,

CellData: String); procedure WebModule1Destroy(Sender: TObject); procedure WebModule1ValidateAction(Sender: TObject;

Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); procedure StoreQTPGetTableCaption(Sender: TObject; var Caption: String; var Alignment: THTMLCaptionAlignment); procedure WebModule1AcceptOrderAction(Sender: TObject;

Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); procedure WebModule1SearchAction(Sender: TObject; Request: TWebRequest;

Response: TWebResponse; var Handled: Boolean); procedure WebModule1AddMSgAction(Sender: TObject; Request: TWebRequest;

Response: TWebResponse; var Handled: Boolean); private

ScriptName: String;

{ Private declarations } public

{ Public declarations } function GroupListProducer(Query: TQuery; Kind: Integer): string; function CreateGroupList(Gr1,Gr2,Kind:Integer) : string; end;

var
WebModule1: TWebModule1; resourcestring sOrderAccepted = 'Tр° чрърч єёях°эю яЁшэ Є'; sContent = '+уыртыхэшх';

implementation uses inifiles;
{$R *.DFM} var HTMLPath, TemplatesPath, DBAliasName, iniName,CommonLook,CommonEnd : string;

UserStatus : Integer; csect : TRTLCriticalSection;

procedure TWebModule1.WebModule1Create(Sender: TObject); var ini : TINIFile;
FN: array[0..MAX_PATH- 1] of char; s1,s2: string; fs : TFileStream; bgpath, txtcol, lcol,vcol,acol: string; begin
GetWindowsDirectory(FN, SizeOf(FN)); s1:= StrPas(fn);
GetModuleFileName(hInstance, FN, SizeOf(FN)); s2 := ExtractFileName(StrPas(fn)); if not (Char(s1[Length(s1)]) in ['/','']) then AppendStr(s1,'/');

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



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

Поделитесь этой записью или добавьте в закладки