Function at 0x4395dc
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
mov ecx, 6
push 0
push 0
dec ecx
jne 0x4395e4
push ebx
push esi
push edi
mov ebx, eax
xor eax, eax
push ebp
push 0x439b05
push dword fs:[eax]
mov dword fs:[eax], esp
lea eax, [ebp - 0xc]
call sub.BizControl.bpl__Commonclientlib_GetExePath_qqrv
lea eax, [ebp - 0xc]
mov edx, 0x439b1c
call sub.rtl70.bpl__System__LStrCat_qqrv
mov edx, dword [ebp - 0xc]
lea eax, [ebp - 8]
call sub.rtl70.bpl__System__WStrFromLStr_qqrr17System_WideStringx17System_AnsiString
mov ecx, dword [ebp - 8]
mov edx, 0x66
mov eax, dword [ebx + 0x2fc]
call sub.vcl70.bpl__Olectrls_TOleControl_SetWideStringProp_qqrix17System_WideString
mov eax, dword [ebx + 0x348]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
push 0x439b40
mov eax, dword [sym.imp.JMBase.bpl__U_jmdm_F_JMDM]
mov eax, dword [eax]
push dword [eax + 0x2e8]
push 0x439bf8
push 0x439c20
call sub.rtl70.bpl__Sysutils_Now_qqrv
add esp, 0xfffffff8
fstp qword [esp]
wait
lea edx, [ebp - 0x14]
mov eax, 0x439c40
call sub.rtl70.bpl__Sysutils_FormatDateTime_qqrx17System_AnsiString16System_TDateTime
push dword [ebp - 0x14]
push 0x439c54
lea eax, [ebp - 0x10]
mov edx, 6
call sub.rtl70.bpl__System__LStrCatN_qqrv
mov edx, dword [ebp - 0x10]
mov eax, dword [ebx + 0x348]
mov ecx, dword [eax]
call dword [ecx + 0x2b0]
mov eax, dword [ebx + 0x348]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov edx, 0x439c70
mov eax, dword [ebx + 0x348]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 4]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebx + 0x33c]
mov eax, dword [eax + 0x208]
mov eax, dword [eax + 0x10]
mov dl, 2
call sub.vcl70.bpl__Graphics_TPen_SetStyle_qqr18Graphics_TPenStyle
or ecx, 0xffffffff
xor edx, edx
mov eax, dword [ebx + 0x33c]
call sub.vcl70.bpl__Grids_TCustomGrid_SetRowHeights_qqrii
mov ecx, 0x14
xor edx, edx
mov eax, dword [ebx + 0x33c]
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
xor ecx, ecx
mov edx, 1
mov eax, dword [ebx + 0x33c]
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
mov eax, dword [ebx + 0x33c]
mov ecx, dword [eax + 0x48]
sub ecx, 0x14
mov edx, 2
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
mov esi, 1
mov edx, dword [ebp - 4]
mov eax, 0x439c80
call sub.rtl70.bpl__System__LStrPos_qqrv
mov edi, eax
test edi, edi
jg 0x43973d
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__System__LStrLen_qqrx17System_AnsiString
mov edi, eax
inc edi
lea eax, [ebp - 0x18]
push eax
mov ecx, edi
dec ecx
mov edx, 1
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__System__LStrCopy_qqrv
mov eax, dword [ebp - 0x18]
push eax
mov ecx, esi
mov edx, 2
mov eax, dword [ebx + 0x33c]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
lea eax, [ebp - 4]
push eax
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__System__LStrLen_qqrx17System_AnsiString
mov ecx, eax
lea edx, [edi + 2]
mov eax, dword [ebp - 4]
call sub.rtl70.bpl__System__LStrCopy_qqrv
mov eax, dword [ebx + 0x348]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
inc esi
cmp esi, 4
jne 0x43971f
mov eax, dword [ebx + 0x348]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov edx, 0x439c8c
mov eax, dword [ebx + 0x348]
mov ecx, dword [eax]
call dword [ecx + 0x2b0]
mov eax, dword [ebx + 0x348]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebx + 0x328]
mov eax, dword [eax + 0x208]
mov eax, dword [eax + 0x10]
mov dl, 2
call sub.vcl70.bpl__Graphics_TPen_SetStyle_qqr18Graphics_TPenStyle
or ecx, 0xffffffff
xor edx, edx
mov eax, dword [ebx + 0x328]
call sub.vcl70.bpl__Grids_TCustomGrid_SetRowHeights_qqrii
mov ecx, 0x14
xor edx, edx
mov eax, dword [ebx + 0x328]
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
xor ecx, ecx
mov edx, 1
mov eax, dword [ebx + 0x328]
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
mov ecx, 0x17c
mov edx, 2
mov eax, dword [ebx + 0x328]
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
mov eax, dword [ebx + 0x328]
mov ecx, dword [eax + 0x48]
sub ecx, 0x190
mov edx, 3
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
mov esi, 1
mov edx, 0x439d7c
mov eax, dword [ebx + 0x348]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x1c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0x1c]
push eax
mov ecx, esi
mov edx, 1
mov eax, dword [ebx + 0x328]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
mov edx, 0x439c70
mov eax, dword [ebx + 0x348]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x20]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0x20]
push eax
mov ecx, esi
mov edx, 2
mov eax, dword [ebx + 0x328]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
mov edx, 0x439d8c
mov eax, dword [ebx + 0x348]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x50]
add esp, 0xfffffff8
fstp qword [esp]
wait
lea eax, [ebp - 0x24]
call sub.rtl70.bpl__Sysutils_DateToStr_qqrx16System_TDateTime
mov eax, dword [ebp - 0x24]
push eax
mov ecx, esi
mov edx, 3
mov eax, dword [ebx + 0x328]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
mov eax, dword [ebx + 0x348]
cmp byte [eax + 0xa1], 0
je 0x439918
push 0
mov ecx, esi
mov edx, 1
mov eax, dword [ebx + 0x328]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
push 0
mov ecx, esi
mov edx, 2
mov eax, dword [ebx + 0x328]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
push 0
mov ecx, esi
mov edx, 3
mov eax, dword [ebx + 0x328]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
mov eax, dword [ebx + 0x348]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
inc esi
cmp esi, 6
jne 0x439837
mov eax, dword [ebx + 0x348]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
mov edx, 0x439da0
mov eax, dword [ebx + 0x348]
mov ecx, dword [eax]
call dword [ecx + 0x2b0]
mov eax, dword [ebx + 0x348]
call sub.dbrtl70.bpl__Db_TDataSet_Open_qqrv
mov eax, dword [ebx + 0x32c]
mov eax, dword [eax + 0x208]
mov eax, dword [eax + 0x10]
mov dl, 2
call sub.vcl70.bpl__Graphics_TPen_SetStyle_qqr18Graphics_TPenStyle
or ecx, 0xffffffff
xor edx, edx
mov eax, dword [ebx + 0x32c]
call sub.vcl70.bpl__Grids_TCustomGrid_SetRowHeights_qqrii
mov ecx, 0x14
xor edx, edx
mov eax, dword [ebx + 0x32c]
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
xor ecx, ecx
mov edx, 1
mov eax, dword [ebx + 0x32c]
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
mov ecx, 0x17c
mov edx, 2
mov eax, dword [ebx + 0x32c]
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
mov eax, dword [ebx + 0x328]
mov ecx, dword [eax + 0x48]
sub ecx, 0x190
mov edx, 3
mov eax, dword [ebx + 0x32c]
call sub.vcl70.bpl__Grids_TCustomGrid_SetColWidths_qqrii
mov esi, 1
mov edx, 0x439d7c
mov eax, dword [ebx + 0x348]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x28]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0x28]
push eax
mov ecx, esi
mov edx, 1
mov eax, dword [ebx + 0x32c]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
mov edx, 0x439c70
mov eax, dword [ebx + 0x348]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
lea edx, [ebp - 0x2c]
mov ecx, dword [eax]
call dword [ecx + 0x60]
mov eax, dword [ebp - 0x2c]
push eax
mov ecx, esi
mov edx, 2
mov eax, dword [ebx + 0x32c]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
mov edx, 0x439d8c
mov eax, dword [ebx + 0x348]
call sub.dbrtl70.bpl__Db_TDataSet_FieldByName_qqrx17System_AnsiString
mov edx, dword [eax]
call dword [edx + 0x50]
add esp, 0xfffffff8
fstp qword [esp]
wait
lea eax, [ebp - 0x30]
call sub.rtl70.bpl__Sysutils_DateToStr_qqrx16System_TDateTime
mov eax, dword [ebp - 0x30]
push eax
mov ecx, esi
mov edx, 3
mov eax, dword [ebx + 0x32c]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
mov eax, dword [ebx + 0x348]
cmp byte [eax + 0xa1], 0
je 0x439aba
push 0
mov ecx, esi
mov edx, 1
mov eax, dword [ebx + 0x32c]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
push 0
mov ecx, esi
mov edx, 2
mov eax, dword [ebx + 0x32c]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
push 0
mov ecx, esi
mov edx, 3
mov eax, dword [ebx + 0x32c]
call sub.vcl70.bpl__Grids_TStringGrid_SetCells_qqriix17System_AnsiString
mov eax, dword [ebx + 0x348]
call sub.dbrtl70.bpl__Db_TDataSet_Next_qqrv
inc esi
cmp esi, 6
jne 0x4399d9
mov eax, dword [ebx + 0x348]
call sub.dbrtl70.bpl__Db_TDataSet_Close_qqrv
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x439b0c
lea eax, [ebp - 0x30]
mov edx, 0xa
call sub.rtl70.bpl__System__LStrArrayClr_qqrpvi
lea eax, [ebp - 8]
call sub.rtl70.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 4]
call sub.rtl70.bpl__System__LStrClr_qqrpv
ret