s, ComServ, ComObj, VCLCom, ,, JobsAppSrv_TLB, StdVcl, Provider, DB, DBTables, DBLocal, ,, JobAppSrvForm_U;=array of Variant; =procedure (var CDSetBuf: TClientDataSet; ParamsList:);=procedure (var CDSetBuf:; ParamsList: DynArrayOfVariant) of object;=procedure (ParamsList: DynArrayOfVariant) of;=record: string [64] ;: string [9] ;: longword ;;=record: string;: string ;;=class (TRemoteDataModule, IJobs): TDatabase ;: TQuery ;: TQuery ;: TQuery; RemoteDataModuleCreate (Sender: TObject); RemoteDataModuleDestroy (Sender: TObject); Database1AfterDisconnect (Sender: TObject );
{Private declarations}: TMemoryStream;: TStringList ;: array of TXMLFldDescr ;: DynArrayOfVariant ;: DynArrayOfVariant;, FieldsStr, WhereStr, OrderByStr, GroupByStr: string ;: TProcGetDataFromMemory ;: TProcSetDataToMemory; OpenQuery (TmpQuery: TQuery; SqlCmd: string); ExecuteQuery (TmpQuery: TQuery; SqlCmd: string); ExecuteProcedure (ParamsList: DynArrayOfVariant); procedure UpdateRegistry (Register: Boolean; const ClassID, ProgID:); override; ExecQuery (const SqlCmd: WideString): WideString; safecall; SelectQuery (const SqlCmd: WideString): OleVariant; safecall; AppSrvConnect (const hostname, username, pwd: WideString):; safecall; AppSrvInit (const DBSrvName, username ,: WideString): WideString; safecall;
{Public declarations}, User, PID: string ;;: TDateTime;
{$ R * .DFM}
MemoryState: integer; {- 1 - ???????????, 0 - ???????????, 1 - ?????? ?
??????} getproc (procname: string): string; stdcall; external MemProc.dll raquo ;; HourToDateTime (P: PDouble): PChar; cdecl; external StrAdd.dll HOURTODATETIME raquo ;; DateTimeToHour (S: PChar): Double; cdecl; external StrAdd.dll DATETIMETOHOUR raquo ;; AndBit (A, B: PInteger): Integer; cdecl; external StrAdd.dll name
AANDBIT raquo ;; PosStr (S1, S2: PChar): Integer; cdecl; external StrAdd.dll name
APOSSTR raquo ;; FirstWord (S: PChar; Ch: PChar): PChar; cdecl; external
StrAdd.dll name AFIRSTWORD raquo ;; DelFirstWord (S: PChar; Ch: PChar): PChar; cdecl; external
StrAdd.dll name ADELFIRSTWORD raquo ;; RoundExt (E: PDouble; L: PInteger): Double; cdecl; external
StrAdd.dll name AROUNDEXT raquo ;; Trim (s: string): string; Copy (s, 1,1)= do Delete (s, 1,1); Copy (s, Length (s), 1)= do Delete (s, Length (s), 1);:=s ;; EnteringInSet (Value: integer; SetValues: Variant): boolean ;: integer ;: array of Variant;:=false;:=SetValues; i:= 0 to High (tmp) doValue=SetValues ??[i] then begin:=true ;;; DateTimeToStrLatMonth (DateTime: TDateTime): string;= JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV raquo ;;, sLat: string [3] ;: integer;:=FormatDateTime(laquo;dd-mmm-yyyyraquo;,DateTime);:=Copy(Result,Pos(laquo;-raquo;,Result)+1,3);:=Pos(AnsiUpperCase(sRus),RusMonth);igt;0 then begin:=Copy (LatMonth, i, 3);:=AnsiReplaceStr (Result, sRus, sLat) ;;; procedure TJobs.UpdateRegistry (Register: Boolean; const ClassID,: string); Register thenUpdateRegistry (Register, ClassID, ProgID ); (ClassID); (ClassID); else (ClassID); (ClassID); UpdateRegistry (Register, ClassID, ProgID) ;;; TJobs.OpenQuery (TmpQuery: TQuery; SqlCmd: string) ;. Active:=false ;. SQL.Text:=SqlCmd; .Active:=true ;; TJobs.ExecuteQuery (TmpQuery: TQuery; SqlCmd: string) ;. Active:=false; .SQL.Text:=SqlCmd; .ExecSQL ;; TJobs.GetParamsFromCommandText (var SqlCmd: string; out: DynArrayOfVariant) ;, j, ColParam, L: integer ;: array of string;, ParamStr: string;:=Trim (SqlCmd);:=Pos ( FROM , SqlCmd);:= Copy (SqlCmd, 8, i - 8); (SqlCmd, 1, i + 5);:=SqlCmd;:=Pos ( WHERE , SqlCmd); i=0 then begin:=Pos ( ORDER , SqlCmd);:=Pos ( GROUP , SqlCmd); (i gt; j) and (j gt; 0) or (i=0) then i:=j ;; i=0 then i:= Length (SqlCmd);:=Copy (SqlCmd, 1, i); (SqlCmd, 1, i); SqlCmd lt; gt; then SqlCmd:= + SqlCmd;:=Pos ( (, ParamStr); i=0 then i:=Length (ParamStr) +1;:=Copy (ParamStr, 1, i - 1); (ProcName); ( ParamStr, 1, i); ParamStr= then exit;:=Pos(laquo;)raquo;,ParamStr);(ParamStr,i,Length(ParamStr)-i+1);:=0;ParamStrlt;gt;laquo;raquo; do begin (ColParam); (TmpArray, ColParam);
L:=Pos (, , ParamStr);
if L=0 then L:=Length (ParamStr) +1;:=Copy (ParamStr, 1, L - 1); (s lt; gt; ) and (s [ 1]= ) do Delete (s, 1,1); (s lt; gt; ) and (s [Length (s)]= ) do Delete (s, Length ( s), 1); s [1]= then Delete (s, 1,1); s [Length (s)]= then Delete (s, Length (s), 1); (ParamStr, 1, L); [ColParam - 1]:=s ;;:=VarArrayCreate ([0, ColParam - 1], varVariant); i:=0 to ColParam - 1 do begin [i]:=TmpArray [i] ;;; TJobs.ExecuteProcedure (ParamsList: DynArrayOfVariant);=2500 ;: integer ;: double ;: TDateTime ;: string ;: integer;:DynArrayOfVariant;:=StrToInt(ParamsList[0]);:=StrToFloat(ParamsList[...
