Function at 0x6dbd70
Capabilities:
Reference sql statements

Disassembly:
push ebp
mov ebp, esp
push ecx
mov ecx, 0xc
push 0
push 0
dec ecx
jne 0x6dbd79
xchg dword [ebp - 4], ecx
push ebx
push esi
push edi
mov dword [ebp - 0xc], ecx
mov dword [ebp - 8], edx
mov dword [ebp - 4], eax
xor eax, eax
push ebp
push 0x6dc217
push dword fs:[eax]
mov dword fs:[eax], esp
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x4b8]
call sub.vcl260.bpl__Vcl_Comctrls_TPageControl_GetActivePageIndex_qqrv
test eax, eax
je 0x6dbdb9
cmp dword [ebp - 8], 0
je 0x6dc1ca
mov eax, dword [0x730b74]
cmp dword [eax], 1
sbb eax, eax
inc eax
cmp al, 1
jne 0x6dbe68
mov eax, dword [0x730f34]
mov eax, dword [eax]
mov eax, dword [eax + 0x120]
mov dword [ebp - 0x34], eax
mov eax, dword [ebp - 0x34]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x34]
call sub.ZComponent260.bpl__Zabstractrodataset_TZAbstractRODataset_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
mov eax, dword [ebp - 0x34]
call sub.ZComponent260.bpl__Zabstractrodataset_TZAbstractRODataset_GetSQL_qqrv
mov edx, 0x6dc238
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov edx, 0x6dc290
mov eax, dword [ebp - 0x34]
call sub.ZComponent260.bpl__Zabstractrodataset_TZAbstractRODataset_ParamByName_qqrx20System_UnicodeString
mov edx, dword [ebp + 0xc]
call sub.dbrtl260.bpl__Data_Db_TParam_SetAsInteger_qqrxi
mov eax, dword [ebp - 0x34]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov eax, dword [ebp - 0x34]
mov edx, dword [eax]
call dword [edx + 0x194]
test eax, eax
jle 0x6dbe53
mov edx, 0x6dc2a8
mov eax, dword [ebp - 0x34]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, eax
xor ecx, ecx
mov eax, dword [ebp - 0x34]
mov ebx, dword [eax]
call dword [ebx + 0x2c4]
mov dword [ebp - 0x30], eax
jmp 0x6dc03e
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x1d0]
xor edx, edx
mov ecx, dword [eax]
call dword [ecx + 8]
jmp 0x6dc1ca
lea eax, [ebp - 0x1c]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea edx, [ebp - 0x18]
mov eax, dword [ebp - 4]
call fcn.006dd614
lea eax, [ebp - 0x24]
mov ecx, 0x6dc2c0
mov edx, dword [ebp - 0x18]
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
lea edx, [ebp - 0x44]
mov eax, dword [ebp + 0xc]
call sub.rtl260.bpl__System_Sysutils_IntToStr_qqri
mov edx, dword [ebp - 0x44]
lea ecx, [ebp - 0x20]
mov eax, dword [ebp - 4]
call fcn.006dc728
lea eax, [ebp - 0x48]
mov ecx, dword [ebp - 0x20]
mov edx, dword [ebp - 0x24]
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x48]
mov dl, 1
call sub.rtl260.bpl__System_Sysutils_FileExists_qqrx20System_UnicodeStringo
test al, al
je 0x6dc1ca
mov eax, dword [0x731064]
cmp dword [eax], 1
sbb eax, eax
inc eax
test al, al
jne 0x6dbfac
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x680]
mov edx, dword [eax]
call dword [edx + 0x4c]
cmp al, 1
jne 0x6dbf05
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x684]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x680]
call sub.dbrtl260.bpl__Data_Db_TCustomConnection_Close_qqrv
mov eax, dword [0x730ee0]
cmp dword [eax], 1
sbb eax, eax
inc eax
cmp al, 1
jne 0x6dbf5e
lea eax, [ebp - 0x4c]
mov ecx, dword [ebp - 0x20]
mov edx, dword [ebp - 0x24]
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x4c]
mov eax, dword [ebp - 0x20]
call fcn.00701888
mov edx, dword [0x730994]
mov edx, dword [edx]
lea eax, [ebp - 0x54]
mov ecx, dword [ebp - 0x20]
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov edx, dword [ebp - 0x54]
lea eax, [ebp - 0x50]
call sub.rtl260.bpl__System__WStrFromUStr_qqrr17System_WideStringx20System_UnicodeString
mov edx, dword [ebp - 0x50]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x680]
call sub.adortl260.bpl__Data_Win_Adodb_TADOConnection_SetConnectionString_qqrx17System_WideString
jmp 0x6dbf92
push 0x6dc2d0
push dword [ebp - 0x24]
push dword [ebp - 0x20]
lea eax, [ebp - 0x5c]
mov edx, 3
call sub.rtl260.bpl__System__UStrCatN_qqrv
mov edx, dword [ebp - 0x5c]
lea eax, [ebp - 0x58]
call sub.rtl260.bpl__System__WStrFromUStr_qqrr17System_WideStringx20System_UnicodeString
mov edx, dword [ebp - 0x58]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x680]
call sub.adortl260.bpl__Data_Win_Adodb_TADOConnection_SetConnectionString_qqrx17System_WideString
mov eax, dword [ebp - 4]
mov edx, dword [eax + 0x680]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x684]
mov ecx, dword [eax]
call dword [ecx + 0x344]
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x684]
mov dword [ebp - 0x38], eax
mov eax, dword [ebp - 0x38]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Close_qqrv
mov eax, dword [ebp - 0x38]
call sub.adortl260.bpl__Data_Win_Adodb_TADOQuery_GetSQL_qqrv
mov edx, dword [eax]
call dword [edx + 0x48]
lea edx, [ebp - 0x64]
mov eax, dword [ebp + 0xc]
call sub.rtl260.bpl__System_Sysutils_IntToStr_qqri
mov ecx, dword [ebp - 0x64]
lea eax, [ebp - 0x60]
mov edx, 0x6dc338
call sub.rtl260.bpl__System__UStrCat3_qqrr20System_UnicodeStringx20System_UnicodeStringt2
mov eax, dword [ebp - 0x60]
push eax
mov eax, dword [ebp - 0x38]
call sub.adortl260.bpl__Data_Win_Adodb_TADOQuery_GetSQL_qqrv
pop edx
mov ecx, dword [eax]
call dword [ecx + 0x3c]
mov eax, dword [ebp - 0x38]
call sub.dbrtl260.bpl__Data_Db_TDataSet_Open_qqrv
mov edx, 0x6dc384
mov eax, dword [ebp - 0x38]
call sub.dbrtl260.bpl__Data_Db_TDataSet_FieldByName_qqrx20System_UnicodeString
mov edx, eax
xor ecx, ecx
mov eax, dword [ebp - 0x38]
mov ebx, dword [eax]
call dword [ebx + 0x2c4]
mov dword [ebp - 0x30], eax
mov eax, dword [0x731064]
cmp dword [eax], 1
sbb eax, eax
inc eax
test al, al
jne 0x6dc03e
mov eax, dword [ebp - 4]
mov eax, dword [eax + 0x680]
call sub.dbrtl260.bpl__Data_Db_TCustomConnection_Close_qqrv
mov eax, dword [ebp - 0x30]
mov edx, dword [eax]
call dword [edx]
mov dword [ebp - 0x2c], eax
cmp dword [ebp - 0x2c], 0
jne 0x6dc063
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x1d0]
xor edx, edx
mov ecx, dword [eax]
call dword [ecx + 8]
jmp 0x6dc1ca
inc dword [ebp - 0x2c]
mov eax, dword [ebp - 0x2c]
call sub.rtl260.bpl__System_AllocMem_qqri
mov dword [ebp - 0x28], eax
xor eax, eax
push ebp
push 0x6dc183
push dword fs:[eax]
mov dword fs:[eax], esp
mov edx, dword [ebp - 0x28]
mov ecx, dword [ebp - 0x2c]
mov eax, dword [ebp - 0x30]
mov ebx, dword [eax]
call dword [ebx + 0xc]
push 0
push 0
mov eax, dword [ebp - 0x30]
call sub.rtl260.bpl__System_Classes_TStream_SetPosition_qqrxj
mov dl, 1
mov eax, dword [sym.imp.vclimg260.bpl__Vcl_Imaging_Jpeg_TJPEGImage_]
call sub.vclimg260.bpl__Vcl_Imaging_Jpeg_TJPEGImage__bctr_qqrv
mov dword [ebp - 0x14], eax
xor eax, eax
push ebp
push 0x6dc163
push dword fs:[eax]
mov dword fs:[eax], esp
xor eax, eax
push ebp
push 0x6dc0d9
push dword fs:[eax]
mov dword fs:[eax], esp
mov edx, dword [ebp - 0x30]
mov eax, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 0x60]
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
jmp 0x6dc11e
mov eax, dword [ebp - 0xc]
mov eax, dword [eax + 0x1d0]
mov edx, dword [ebp - 0x14]
mov ecx, dword [eax]
call dword [ecx + 8]
mov eax, dword [ebp - 0xc]
push eax
mov eax, dword [ebp + 8]
mov ecx, dword [eax + 0x5c]
dec ecx
mov eax, dword [ebp + 8]
mov edx, dword [eax + 0x58]
dec edx
mov eax, dword [ebp - 4]
call fcn.006dcefc
mov byte [ebp - 0xd], 1
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6dc16a
mov eax, dword [ebp - 0x14]
call sub.rtl260.bpl__System_TObject_Free_qqrv
ret
xor eax, eax
pop edx
pop ecx
pop ecx
mov dword fs:[eax], edx
push 0x6dc21e
lea eax, [ebp - 0x64]
mov edx, 3
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x58]
call sub.rtl260.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x54]
call sub.rtl260.bpl__System__UStrClr_qqrpv
lea eax, [ebp - 0x50]
call sub.rtl260.bpl__System__WStrClr_qqrpv
lea eax, [ebp - 0x4c]
mov edx, 3
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
lea eax, [ebp - 0x24]
mov edx, 4
call sub.rtl260.bpl__System__UStrArrayClr_qqrpvi
ret