unit Data;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics,
  Controls, Forms, Dialogs, Db;

type
  TDataMod=class(TForm)
    HostData: TLightData;
    HostDataDestination: TStringField;
    HostDataHost: TStringField;
    HostDataPort: TIntegerField;
    HostDataUser: TStringField;
    HostDataPassword: TStringField;
    HostSource: TDataSource;
    LoggData: TLightData;
    ScriptData: TLightData;
    LoggSource: TDataSource;
    ScriptSource: TDataSource;
    ScheduleData: TLightData;
    ScheduleSource: TDataSource;
    procedure DataModCreate(Sender: TObject);
    procedure DataModDestroy(Sender: TObject);
    procedure HostDataNewRecord(Sender: TObject);{?}
  private
    { Private declarations }
  public
    { Public declarations }
  end ;

var
  DataMod: TDataMod;


{This file is generated by DeDe v2.30 (c) 1999 by DaFixer}

implementation

{$R *.DFM}


procedure TDataMod.DataModCreate(Sender: TObject);
begin
{
0049A7C0   55                     push    ebp
0049A7C1   8BEC                   mov     ebp, esp
0049A7C3   83C4C0                 add     esp, -$40
0049A7C6   8955E8                 mov     [ebp-$18], edx
0049A7C9   8945FC                 mov     [ebp-$04], eax
0049A7CC   8B45FC                 mov     eax, [ebp-$04]
0049A7CF   8B4048                 mov     eax, [eax+$48]
0049A7D2   8B805C010000           mov     eax, [eax+$015C]
0049A7D8   E8FBE6F6FF             call    00408ED8
0049A7DD   3401                   xor     al, $01
0049A7DF   8845FB                 mov     [ebp-$05], al
0049A7E2   807DFB00               cmp     byte ptr [ebp-$05], $00
0049A7E6   747B                   jz      0049A863
0049A7E8   8B45FC                 mov     eax, [ebp-$04]
0049A7EB   8B4048                 mov     eax, [eax+$48]
0049A7EE   8B402C                 mov     eax, [eax+$2C]
0049A7F1   8945F4                 mov     [ebp-$0C], eax
0049A7F4   6A32                   push    $32
0049A7F6   6A01                   push    $01
0049A7F8   B101                   mov     cl, $01

* Possible String Reference to: "Destination"
|
0049A7FA   BA1CAA4900             mov     edx, $0049AA1C
0049A7FF   8B45F4                 mov     eax, [ebp-$0C]
0049A802   E82D20FEFF             call    0047C834
0049A807   6A23                   push    $23
0049A809   6A01                   push    $01
0049A80B   B101                   mov     cl, $01

* Possible String Reference to: "Host"
|
0049A80D   BA30AA4900             mov     edx, $0049AA30
0049A812   8B45F4                 mov     eax, [ebp-$0C]
0049A815   E81A20FEFF             call    0047C834
0049A81A   6A00                   push    $00
0049A81C   6A01                   push    $01
0049A81E   B103                   mov     cl, $03

* Possible String Reference to: "Port"
|
0049A820   BA40AA4900             mov     edx, $0049AA40
0049A825   8B45F4                 mov     eax, [ebp-$0C]
0049A828   E80720FEFF             call    0047C834
0049A82D   6A14                   push    $14
0049A82F   6A00                   push    $00
0049A831   B101                   mov     cl, $01

* Possible String Reference to: "User"
|
0049A833   BA50AA4900             mov     edx, $0049AA50
0049A838   8B45F4                 mov     eax, [ebp-$0C]
0049A83B   E8F41FFEFF             call    0047C834
0049A840   6A10                   push    $10
0049A842   6A00                   push    $00
0049A844   B101                   mov     cl, $01

* Possible String Reference to: "Password"
|
0049A846   BA60AA4900             mov     edx, $0049AA60
0049A84B   8B45F4                 mov     eax, [ebp-$0C]
0049A84E   E8E11FFEFF             call    0047C834
0049A853   33D2                   xor     edx, edx
0049A855   8B45FC                 mov     eax, [ebp-$04]
0049A858   8B4048                 mov     eax, [eax+$48]
0049A85B   8B08                   mov     ecx, [eax]
0049A85D   FF91F8010000           call    dword ptr [ecx+$01F8]
0049A863   8B45FC                 mov     eax, [ebp-$04]
0049A866   8B4074                 mov     eax, [eax+$74]
0049A869   8B805C010000           mov     eax, [eax+$015C]
0049A86F   E864E6F6FF             call    00408ED8
0049A874   84C0                   test    al, al
0049A876   757B                   jnz     0049A8F3
0049A878   8B45FC                 mov     eax, [ebp-$04]
0049A87B   8B4074                 mov     eax, [eax+$74]
0049A87E   8B402C                 mov     eax, [eax+$2C]
0049A881   8945F0                 mov     [ebp-$10], eax
0049A884   6A32                   push    $32
0049A886   6A01                   push    $01
0049A888   B101                   mov     cl, $01

* Possible String Reference to: "Destination"
|
0049A88A   BA1CAA4900             mov     edx, $0049AA1C
0049A88F   8B45F0                 mov     eax, [ebp-$10]
0049A892   E89D1FFEFF             call    0047C834
0049A897   6A00                   push    $00
0049A899   6A01                   push    $01
0049A89B   B10A                   mov     cl, $0A

* Possible String Reference to: "Time"
|
0049A89D   BA74AA4900             mov     edx, $0049AA74
0049A8A2   8B45F0                 mov     eax, [ebp-$10]
0049A8A5   E88A1FFEFF             call    0047C834
0049A8AA   6A00                   push    $00
0049A8AC   6A01                   push    $01
0049A8AE   B105                   mov     cl, $05

* Possible String Reference to: "AbortError"
|
0049A8B0   BA84AA4900             mov     edx, $0049AA84
0049A8B5   8B45F0                 mov     eax, [ebp-$10]
0049A8B8   E8771FFEFF             call    0047C834
0049A8BD   6A00                   push    $00
0049A8BF   6A01                   push    $01
0049A8C1   B105                   mov     cl, $05

* Possible String Reference to: "Active"
|
0049A8C3   BA98AA4900             mov     edx, $0049AA98
0049A8C8   8B45F0                 mov     eax, [ebp-$10]
0049A8CB   E8641FFEFF             call    0047C834
0049A8D0   6A00                   push    $00
0049A8D2   6A00                   push    $00
0049A8D4   B10B                   mov     cl, $0B

* Possible String Reference to: "LastRun"
|
0049A8D6   BAA8AA4900             mov     edx, $0049AAA8
0049A8DB   8B45F0                 mov     eax, [ebp-$10]
0049A8DE   E8511FFEFF             call    0047C834
0049A8E3   33D2                   xor     edx, edx
0049A8E5   8B45FC                 mov     eax, [ebp-$04]
0049A8E8   8B4074                 mov     eax, [eax+$74]
0049A8EB   8B08                   mov     ecx, [eax]
0049A8ED   FF91F8010000           call    dword ptr [ecx+$01F8]
0049A8F3   8B45FC                 mov     eax, [ebp-$04]
0049A8F6   8B4064                 mov     eax, [eax+$64]
0049A8F9   8B805C010000           mov     eax, [eax+$015C]
0049A8FF   E8D4E5F6FF             call    00408ED8
0049A904   84C0                   test    al, al
0049A906   0F858E000000           jnz     0049A99A
0049A90C   8B45FC                 mov     eax, [ebp-$04]
0049A90F   8B4064                 mov     eax, [eax+$64]
0049A912   8B402C                 mov     eax, [eax+$2C]
0049A915   8945EC                 mov     [ebp-$14], eax
0049A918   6A32                   push    $32
0049A91A   6A01                   push    $01
0049A91C   B101                   mov     cl, $01

* Possible String Reference to: "Destination"
|
0049A91E   BA1CAA4900             mov     edx, $0049AA1C
0049A923   8B45EC                 mov     eax, [ebp-$14]
0049A926   E8091FFEFF             call    0047C834
0049A92B   6A00                   push    $00
0049A92D   6A01                   push    $01
0049A92F   B10A                   mov     cl, $0A

* Possible String Reference to: "Time"
|
0049A931   BA74AA4900             mov     edx, $0049AA74
0049A936   8B45EC                 mov     eax, [ebp-$14]
0049A939   E8F61EFEFF             call    0047C834
0049A93E   6A14                   push    $14
0049A940   6A01                   push    $01
0049A942   B101                   mov     cl, $01

* Possible String Reference to: "Command"
|
0049A944   BAB8AA4900             mov     edx, $0049AAB8
0049A949   8B45EC                 mov     eax, [ebp-$14]
0049A94C   E8E31EFEFF             call    0047C834
0049A951   6A28                   push    $28
0049A953   6A00                   push    $00
0049A955   B101                   mov     cl, $01

* Possible String Reference to: "Param1"
|
0049A957   BAC8AA4900             mov     edx, $0049AAC8
0049A95C   8B45EC                 mov     eax, [ebp-$14]
0049A95F   E8D01EFEFF             call    0047C834
0049A964   6A28                   push    $28
0049A966   6A00                   push    $00
0049A968   B101                   mov     cl, $01

* Possible String Reference to: "Param2"
|
0049A96A   BAD8AA4900             mov     edx, $0049AAD8
0049A96F   8B45EC                 mov     eax, [ebp-$14]
0049A972   E8BD1EFEFF             call    0047C834
0049A977   6A28                   push    $28
0049A979   6A00                   push    $00
0049A97B   B101                   mov     cl, $01

* Possible String Reference to: "Param3"
|
0049A97D   BAE8AA4900             mov     edx, $0049AAE8
0049A982   8B45EC                 mov     eax, [ebp-$14]
0049A985   E8AA1EFEFF             call    0047C834
0049A98A   33D2                   xor     edx, edx
0049A98C   8B45FC                 mov     eax, [ebp-$04]
0049A98F   8B4064                 mov     eax, [eax+$64]
0049A992   8B08                   mov     ecx, [eax]
0049A994   FF91F8010000           call    dword ptr [ecx+$01F8]
0049A99A   8B45FC                 mov     eax, [ebp-$04]
0049A99D   8B4048                 mov     eax, [eax+$48]
0049A9A0   E8378EFEFF             call    004837DC
0049A9A5   807DFB00               cmp     byte ptr [ebp-$05], $00
0049A9A9   744F                   jz      0049A9FA

* Possible String Reference to: "My computer"
|
0049A9AB   B8F8AA4900             mov     eax, $0049AAF8
0049A9B0   8945C0                 mov     [ebp-$40], eax
0049A9B3   C645C40B               mov     byte ptr [ebp-$3C], $0B

* Possible String Reference to: "127.0.0.1"
|
0049A9B7   B80CAB4900             mov     eax, $0049AB0C
0049A9BC   8945C8                 mov     [ebp-$38], eax
0049A9BF   C645CC0B               mov     byte ptr [ebp-$34], $0B
0049A9C3   A10CCD4C00             mov     eax, dword ptr [$4CCD0C]
0049A9C8   0FB700                 movzx   eax, word ptr [eax]
0049A9CB   8945D0                 mov     [ebp-$30], eax
0049A9CE   C645D400               mov     byte ptr [ebp-$2C], $00

* Possible String Reference to: "Administrator"
|
0049A9D2   B820AB4900             mov     eax, $0049AB20
0049A9D7   8945D8                 mov     [ebp-$28], eax
0049A9DA   C645DC0B               mov     byte ptr [ebp-$24], $0B
0049A9DE   33C0                   xor     eax, eax
0049A9E0   8945E0                 mov     [ebp-$20], eax
0049A9E3   C645E40B               mov     byte ptr [ebp-$1C], $0B
0049A9E7   8D55C0                 lea     edx, [ebp-$40]
0049A9EA   B904000000             mov     ecx, $00000004
0049A9EF   8B45FC                 mov     eax, [ebp-$04]
0049A9F2   8B4048                 mov     eax, [eax+$48]
0049A9F5   E8C6B0FEFF             call    00485AC0
0049A9FA   8B45FC                 mov     eax, [ebp-$04]
0049A9FD   8B4074                 mov     eax, [eax+$74]
0049AA00   E8D78DFEFF             call    004837DC
0049AA05   8B45FC                 mov     eax, [ebp-$04]
0049AA08   8B4064                 mov     eax, [eax+$64]
0049AA0B   E8CC8DFEFF             call    004837DC
0049AA10   8BE5                   mov     esp, ebp
0049AA12   5D                     pop     ebp
0049AA13   C3                     ret


}
 end ; 

procedure TDataMod.DataModDestroy(Sender: TObject);
begin
{
0049AB30   55                     push    ebp
0049AB31   8BEC                   mov     ebp, esp
0049AB33   83C4F8                 add     esp, -$08
0049AB36   8955F8                 mov     [ebp-$08], edx
0049AB39   8945FC                 mov     [ebp-$04], eax
0049AB3C   8B45FC                 mov     eax, [ebp-$04]
0049AB3F   8B4048                 mov     eax, [eax+$48]
0049AB42   E8A18CFEFF             call    004837E8
0049AB47   8B45FC                 mov     eax, [ebp-$04]
0049AB4A   8B4074                 mov     eax, [eax+$74]
0049AB4D   E8968CFEFF             call    004837E8
0049AB52   8B45FC                 mov     eax, [ebp-$04]
0049AB55   8B4064                 mov     eax, [eax+$64]
0049AB58   E88B8CFEFF             call    004837E8
0049AB5D   59                     pop     ecx
0049AB5E   59                     pop     ecx
0049AB5F   5D                     pop     ebp
0049AB60   C3                     ret


}
 end ; 

procedure TDataMod.HostDataNewRecord(Sender: TObject);{?}
begin
{
0049AB64   55                     push    ebp
0049AB65   8BEC                   mov     ebp, esp
0049AB67   83C4F8                 add     esp, -$08
0049AB6A   8955F8                 mov     [ebp-$08], edx
0049AB6D   8945FC                 mov     [ebp-$04], eax
0049AB70   8B150CCD4C00           mov     edx, [$4CCD0C]
0049AB76   0FB712                 movzx   edx, word ptr [edx]
0049AB79   8B45FC                 mov     eax, [ebp-$04]
0049AB7C   8B4058                 mov     eax, [eax+$58]
0049AB7F   8B08                   mov     ecx, [eax]
0049AB81   FF9194000000           call    dword ptr [ecx+$0094]

* Possible String Reference to: "Administrator"
|
0049AB87   BAA8AB4900             mov     edx, $0049ABA8
0049AB8C   8B45FC                 mov     eax, [ebp-$04]
0049AB8F   8B4070                 mov     eax, [eax+$70]
0049AB92   8B08                   mov     ecx, [eax]
0049AB94   FF9198000000           call    dword ptr [ecx+$0098]
0049AB9A   59                     pop     ecx
0049AB9B   59                     pop     ecx
0049AB9C   5D                     pop     ebp
0049AB9D   C3                     ret


}
 end ; 

end.
