unit GjRecordPrint;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls, cxGraphics, cxControls,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
dxSkinsDefaultPainters, dxSkinsdxStatusBarPainter, cxStyles,
dxSkinscxPCPainter, cxCustomData, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxTextEdit, cxTimeEdit, cxCalendar,
dxSkinsdxBarPainter, RM_AsBarView, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, ADODB, dxBar, cxClasses, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGridCustomView, cxGrid, dxCntner, dxEditor, dxExEdtr, dxEdLib,
ExtCtrls, dxStatusBar;
type
TfrmGjRecordPrint=class(TForm)
tvPrintKH: TcxGridDBColumn;
tvPrintDH: TcxGridDBColumn;
tvPrintFT: TcxGridDBColumn;
tvPrintET: TcxGridDBColumn;
tvPrintYL: TcxGridDBColumn;
tvPrintLL: TcxGridDBColumn;
tvPrintZJL: TcxGridDBColumn;
tvPrintDZ: TcxGridDBColumn;
tvPrintGZ: TcxGridDBColumn;
tvPrintED: TcxGridDBColumn;
adoDH: TADODataSet;
adoKcan: TADODataSet;
dsDH: TDataSource;
dsKcan: TDataSource;
adoDChan: TADODataSet;
dsDchan: TDataSource;
adoSerium: TADODataSet;
dsSerium: TDataSource;
dxBarLargeButton6: TdxBarLargeButton;
Label1: TLabel;
cxGrid2: TcxGrid;
tvys: TcxGridDBTableView;
lvys: TcxGridLevel;
tvysKH: TcxGridDBColumn;
tvysDH: TcxGridDBColumn;
tvysFT: TcxGridDBColumn;
tvysET: TcxGridDBColumn;
tvysYL: TcxGridDBColumn;
tvysLL: TcxGridDBColumn;
tvysLU: TcxGridDBColumn;
tvysGZ: TcxGridDBColumn;
tvysED: TcxGridDBColumn;
Label2: TLabel;
sDH: TComboBox;
sGJNumber: TComboBox;
sCS: TComboBox;
sKH: TdxButtonEdit;
tvPrintMD: TcxGridDBColumn;
tvPrintZHL: TcxGridDBColumn;
tvPrintSHB: TcxGridDBColumn;
dbPrint: TRMDBDataSet;
dbKcan: TRMDBDataSet;
dbDChan: TRMDBDataSet;
tvPrintWD: TcxGridDBColumn;
tvPrintGIN: TcxGridDBColumn;
procedure dxBarLargeButton3Click(Sender : TObject);
procedure dxBarLargeButton4Click(Sender : TObject);
procedure RMReport1GetValue(Sender : TObject);
procedure sKHChange(Sender : TObject);
procedure sDHChange(Sender : TObject);
procedure sGjNumberChange(Sender : TObject);
procedure dxBarLargeButton2Click(Sender : TObject);
procedure sKHButtonClick(Sender : TObject);
procedure _PROC_0097A8E8(Sender : TObject);
procedure _PROC_0097A90C(Sender : TObject);
procedure _PROC_0097AA23(Sender : TObject);
procedure _PROC_0097AAD9(Sender : TObject);
procedure _PROC_0097AE95(Sender : TObject);
procedure _PROC_0097B081(Sender : TObject);
procedure _PROC_0097B115(Sender : TObject);
procedure _PROC_0097B6BE(Sender : TObject);
procedure _PROC_0097B810(Sender : TObject);
procedure _PROC_0097BB9D(Sender : TObject);
procedure _PROC_0097BE01(Sender : TObject);
procedure _PROC_0097C1D0(Sender : TObject);
procedure _PROC_0097C4B4(Sender : TObject);
procedure _PROC_0097C4C3(Sender : TObject);
procedure _PROC_0097C51C(Sender : TObject);
procedure _PROC_0097C600(Sender : TObject);
procedure _PROC_0097C630(Sender : TObject);
procedure _PROC_0097C638(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmGjRecordPrint: TfrmGjRecordPrint;
{This file is generated by DelphiDecompiler version 1.1 Copyright (c) 1997-2009 BitMaker}
implementation
{$R *.DFM}
procedure TfrmGjRecordPrint.dxBarLargeButton3Click(Sender : TObject);
begin
(*
0097B890 53 push ebx
0097B891 8BD8 mov ebx, eax
* Reference to field TfrmGjRecordPrint.OFFS_032C
|
0097B893 8B832C030000 mov eax, [ebx+$032C]
|
0097B899 E8A21CBEFF call 0055D540
0097B89E 84C0 test al, al
0097B8A0 7414 jz 0097B8B6
0097B8A2 33D2 xor edx, edx
0097B8A4 8BC3 mov eax, ebx
* Reference to : TfrmGjRecordPrint._PROC_0097C51C()
|
0097B8A6 E8710C0000 call 0097C51C
* Reference to field TfrmGjRecordPrint.OFFS_033C
|
0097B8AB 8B833C030000 mov eax, [ebx+$033C]
|
0097B8B1 E89E64CAFF call 00621D54
0097B8B6 5B pop ebx
0097B8B7 C3 ret
*)
end;
procedure TfrmGjRecordPrint.dxBarLargeButton4Click(Sender : TObject);
begin
(*
0097B8B8 53 push ebx
0097B8B9 8BD8 mov ebx, eax
0097B8BB 33D2 xor edx, edx
0097B8BD 8BC3 mov eax, ebx
* Reference to : TfrmGjRecordPrint._PROC_0097C51C()
|
0097B8BF E8580C0000 call 0097C51C
* Reference to field TfrmGjRecordPrint.OFFS_033C
|
0097B8C4 8B833C030000 mov eax, [ebx+$033C]
0097B8CA 8B10 mov edx, [eax]
0097B8CC FF525C call dword ptr [edx+$5C]
0097B8CF 5B pop ebx
0097B8D0 C3 ret
*)
end;
procedure TfrmGjRecordPrint.RMReport1GetValue(Sender : TObject);
begin
(*
0097B8D4 55 push ebp
0097B8D5 8BEC mov ebp, esp
0097B8D7 6A00 push $00
0097B8D9 6A00 push $00
0097B8DB 6A00 push $00
0097B8DD 53 push ebx
0097B8DE 56 push esi
0097B8DF 57 push edi
0097B8E0 8BF1 mov esi, ecx
0097B8E2 8BDA mov ebx, edx
0097B8E4 8BF8 mov edi, eax
0097B8E6 33C0 xor eax, eax
0097B8E8 55 push ebp
* Possible String Reference to: '閇嚚腚_^[嬪]?
|
0097B8E9 6874BA9700 push $0097BA74
0097B8EE 64FF30 push dword ptr fs:[eax]
0097B8F1 648920 mov fs:[eax], esp
* Possible String Reference to: 'Person'
|
0097B8F4 BA8CBA9700 mov edx, $0097BA8C
0097B8F9 8BC3 mov eax, ebx
|
0097B8FB E80CE5A8FF call 00409E0C
0097B900 85C0 test eax, eax
0097B902 751F jnz 0097B923
0097B904 8B0DC0D79B00 mov ecx, [$009BD7C0]
0097B90A 8B09 mov ecx, [ecx]
0097B90C 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: '记录员：'
|
0097B90F BA9CBA9700 mov edx, $0097BA9C
|
0097B914 E85793A8FF call 00404C70
0097B919 8B55FC mov edx, [ebp-$04]
0097B91C 8BC6 mov eax, esi
|
0097B91E E891CCA9FF call 004185B4
* Possible String Reference to: 'version'
|
0097B923 BAB0BA9700 mov edx, $0097BAB0
0097B928 8BC3 mov eax, ebx
|
0097B92A E8DDE4A8FF call 00409E0C
0097B92F 85C0 test eax, eax
0097B931 7521 jnz 0097B954
0097B933 8D4DF8 lea ecx, [ebp-$08]
* Reference to TfrmData instance
|
0097B936 A190E09B00 mov eax, dword ptr [$009BE090]
0097B93B 8B00 mov eax, [eax]
* Reference to control TfrmData.conADOConnet : TADOConnection
|
0097B93D 8B4058 mov eax, [eax+$58]
* Possible String Reference to: 'TB'
|
0097B940 BAC0BA9700 mov edx, $0097BAC0
|
0097B945 E8D6C4FEFF call 00967E20
0097B94A 8B55F8 mov edx, [ebp-$08]
0097B94D 8BC6 mov eax, esi
|
0097B94F E860CCA9FF call 004185B4
* Possible String Reference to: 'Serium'
|
0097B954 BACCBA9700 mov edx, $0097BACC
0097B959 8BC3 mov eax, ebx
|
0097B95B E8ACE4A8FF call 00409E0C
0097B960 85C0 test eax, eax
0097B962 750D jnz 0097B971
0097B964 8BC6 mov eax, esi
0097B966 8B9744040000 mov edx, [edi+$0444]
|
0097B96C E843CCA9FF call 004185B4
* Possible String Reference to: 'CoName'
|
0097B971 BADCBA9700 mov edx, $0097BADC
0097B976 8BC3 mov eax, ebx
|
0097B978 E88FE4A8FF call 00409E0C
0097B97D 85C0 test eax, eax
0097B97F 7521 jnz 0097B9A2
0097B981 8D4DF4 lea ecx, [ebp-$0C]
* Reference to TfrmData instance
|
0097B984 A190E09B00 mov eax, dword ptr [$009BE090]
0097B989 8B00 mov eax, [eax]
* Reference to control TfrmData.conADOConnet : TADOConnection
|
0097B98B 8B4058 mov eax, [eax+$58]
* Possible String Reference to: 'TG'
|
0097B98E BAECBA9700 mov edx, $0097BAEC
|
0097B993 E888C4FEFF call 00967E20
0097B998 8B55F4 mov edx, [ebp-$0C]
0097B99B 8BC6 mov eax, esi
|
0097B99D E812CCA9FF call 004185B4
* Possible String Reference to: 'GroutName'
|
0097B9A2 BAF8BA9700 mov edx, $0097BAF8
0097B9A7 8BC3 mov eax, ebx
|
0097B9A9 E85EE4A8FF call 00409E0C
0097B9AE 85C0 test eax, eax
0097B9B0 750F jnz 0097B9C1
0097B9B2 8BC6 mov eax, esi
* Reference to pointer to GlobalVar_009C53F0
|
0097B9B4 8B15B8D89B00 mov edx, [$009BD8B8]
0097B9BA 8B12 mov edx, [edx]
|
0097B9BC E8F3CBA9FF call 004185B4
* Possible String Reference to: 'FWM'
|
0097B9C1 BA0CBB9700 mov edx, $0097BB0C
0097B9C6 8BC3 mov eax, ebx
|
0097B9C8 E83FE4A8FF call 00409E0C
0097B9CD 85C0 test eax, eax
0097B9CF 750F jnz 0097B9E0
0097B9D1 8BC6 mov eax, esi
* Reference to pointer to GlobalVar_009C5A4C
|
0097B9D3 8B1514E39B00 mov edx, [$009BE314]
0097B9D9 8B12 mov edx, [edx]
|
0097B9DB E8D4CBA9FF call 004185B4
* Possible String Reference to: 'Type'
|
0097B9E0 BA18BB9700 mov edx, $0097BB18
0097B9E5 8BC3 mov eax, ebx
|
0097B9E7 E820E4A8FF call 00409E0C
0097B9EC 85C0 test eax, eax
0097B9EE 7569 jnz 0097BA59
0097B9F0 8B8788030000 mov eax, [edi+$0388]
* Possible String Reference to: 'TS'
|
0097B9F6 BA28BB9700 mov edx, $0097BB28
|
0097B9FB E8FC2ABEFF call 0055E4FC
0097BA00 8B10 mov edx, [eax]
0097BA02 FF5258 call dword ptr [edx+$58]
0097BA05 83E802 sub eax, +$02
0097BA08 740B jz 0097BA15
0097BA0A 48 dec eax
0097BA0B 7416 jz 0097BA23
0097BA0D 48 dec eax
0097BA0E 7421 jz 0097BA31
0097BA10 48 dec eax
0097BA11 742C jz 0097BA3F
0097BA13 EB38 jmp 0097BA4D
0097BA15 8BC6 mov eax, esi
* Possible String Reference to: '单点法压水'
|
0097BA17 BA34BB9700 mov edx, $0097BB34
|
0097BA1C E893CBA9FF call 004185B4
0097BA21 EB36 jmp 0097BA59
0097BA23 8BC6 mov eax, esi
* Possible String Reference to: '五点法压水'
|
0097BA25 BA48BB9700 mov edx, $0097BB48
|
0097BA2A E885CBA9FF call 004185B4
0097BA2F EB28 jmp 0097BA59
0097BA31 8BC6 mov eax, esi
* Possible String Reference to: '钻孔冲洗'
|
0097BA33 BA5CBB9700 mov edx, $0097BB5C
|
0097BA38 E877CBA9FF call 004185B4
0097BA3D EB1A jmp 0097BA59
0097BA3F 8BC6 mov eax, esi
* Possible String Reference to: '简易压水'
|
0097BA41 BA70BB9700 mov edx, $0097BB70
|
0097BA46 E869CBA9FF call 004185B4
0097BA4B EB0C jmp 0097BA59
0097BA4D 8BC6 mov eax, esi
* Possible String Reference to: '钻孔冲洗及压水'
|
0097BA4F BA84BB9700 mov edx, $0097BB84
|
0097BA54 E85BCBA9FF call 004185B4
0097BA59 33C0 xor eax, eax
0097BA5B 5A pop edx
0097BA5C 59 pop ecx
0097BA5D 59 pop ecx
0097BA5E 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '_^[嬪]?
|
0097BA61 687BBA9700 push $0097BA7B
0097BA66 8D45F4 lea eax, [ebp-$0C]
0097BA69 BA03000000 mov edx, $00000003
|
0097BA6E E8058FA8FF call 00404978
0097BA73 C3 ret
0097BA74 E95B87A8FF jmp 004041D4
0097BA79 EBEB jmp 0097BA66
****** END
|
0097BA7B 5F pop edi
0097BA7C 5E pop esi
0097BA7D 5B pop ebx
0097BA7E 8BE5 mov esp, ebp
0097BA80 5D pop ebp
0097BA81 C3 ret
*)
end;
procedure TfrmGjRecordPrint.sKHChange(Sender : TObject);
begin
(*
|
0097BB94 E803000000 call 0097BB9C
0097BB99 C3 ret
*)
end;
procedure TfrmGjRecordPrint.sDHChange(Sender : TObject);
begin
(*
0097C180 53 push ebx
0097C181 8BD8 mov ebx, eax
0097C183 8BC3 mov eax, ebx
|
0097C185 E876FCFFFF call 0097BE00
* Reference to field TfrmGjRecordPrint.OFFS_0414
|
0097C18A 83BB1404000000 cmp dword ptr [ebx+$0414], +$00
0097C191 7507 jnz 0097C19A
0097C193 8BC3 mov eax, ebx
* Reference to : TfrmGjRecordPrint._PROC_0097C1D0()
|
0097C195 E836000000 call 0097C1D0
0097C19A 5B pop ebx
0097C19B C3 ret
*)
end;
procedure TfrmGjRecordPrint.sGjNumberChange(Sender : TObject);
begin
(*
0097C19C 53 push ebx
0097C19D 8BD8 mov ebx, eax
* Reference to control TfrmGjRecordPrint.sGJNumber : TComboBox
|
0097C19F 8B83D8030000 mov eax, [ebx+$03D8]
0097C1A5 8B10 mov edx, [eax]
* Possible reference to virtual method TComboBox.OFFS_00CC
|
0097C1A7 FF92CC000000 call dword ptr [edx+$00CC]
0097C1AD 8BD0 mov edx, eax
* Reference to control TfrmGjRecordPrint.sCS : TComboBox
|
0097C1AF 8B83DC030000 mov eax, [ebx+$03DC]
0097C1B5 8B08 mov ecx, [eax]
* Possible reference to virtual method TComboBox.OFFS_00D0
|
0097C1B7 FF91D0000000 call dword ptr [ecx+$00D0]
* Reference to field TfrmGjRecordPrint.OFFS_0414
|
0097C1BD 83BB1404000000 cmp dword ptr [ebx+$0414], +$00
0097C1C4 7507 jnz 0097C1CD
0097C1C6 8BC3 mov eax, ebx
* Reference to : TfrmGjRecordPrint._PROC_0097C1D0()
|
0097C1C8 E803000000 call 0097C1D0
0097C1CD 5B pop ebx
0097C1CE C3 ret
*)
end;
procedure TfrmGjRecordPrint.dxBarLargeButton2Click(Sender : TObject);
begin
(*
0097C4F4 53 push ebx
0097C4F5 8BD8 mov ebx, eax
* Reference to field TfrmGjRecordPrint.OFFS_032C
|
0097C4F7 8B832C030000 mov eax, [ebx+$032C]
|
0097C4FD E83E10BEFF call 0055D540
0097C502 84C0 test al, al
0097C504 7414 jz 0097C51A
0097C506 33D2 xor edx, edx
0097C508 8BC3 mov eax, ebx
* Reference to : TfrmGjRecordPrint._PROC_0097C51C()
|
0097C50A E80D000000 call 0097C51C
* Reference to field TfrmGjRecordPrint.OFFS_033C
|
0097C50F 8B833C030000 mov eax, [ebx+$033C]
|
0097C515 E88E68CAFF call 00622DA8
0097C51A 5B pop ebx
0097C51B C3 ret
*)
end;
procedure TfrmGjRecordPrint.sKHButtonClick(Sender : TObject);
begin
(*
0097C5B0 55 push ebp
0097C5B1 8BEC mov ebp, esp
0097C5B3 6A00 push $00
0097C5B5 53 push ebx
0097C5B6 8BD8 mov ebx, eax
0097C5B8 33C0 xor eax, eax
0097C5BA 55 push ebp
* Possible String Reference to: '檩{?腽[Y]脥@'
|
0097C5BB 68F2C59700 push $0097C5F2
0097C5C0 64FF30 push dword ptr fs:[eax]
0097C5C3 648920 mov fs:[eax], esp
0097C5C6 8D45FC lea eax, [ebp-$04]
|
0097C5C9 E80AE5FCFF call 0094AAD8
0097C5CE 8B55FC mov edx, [ebp-$04]
* Reference to control TfrmGjRecordPrint.sKH : TdxButtonEdit
|
0097C5D1 8B83E0030000 mov eax, [ebx+$03E0]
* Reference to : TdxInplaceMaskEdit._PROC_005441D4()
|
0097C5D7 E8F87BBCFF call 005441D4
0097C5DC 33C0 xor eax, eax
0097C5DE 5A pop edx
0097C5DF 59 pop ecx
0097C5E0 59 pop ecx
0097C5E1 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[Y]脥@'
|
0097C5E4 68F9C59700 push $0097C5F9
0097C5E9 8D45FC lea eax, [ebp-$04]
|
0097C5EC E86383A8FF call 00404954
0097C5F1 C3 ret
0097C5F2 E9DD7BA8FF jmp 004041D4
0097C5F7 EBF0 jmp 0097C5E9
****** END
|
0097C5F9 5B pop ebx
0097C5FA 59 pop ecx
0097C5FB 5D pop ebp
0097C5FC C3 ret
*)
end;
procedure TfrmGjRecordPrint._PROC_0097A8E8(Sender : TObject);
begin
(*
0097A8E8 53 push ebx
0097A8E9 8BD8 mov ebx, eax
* Reference to field TfrmGjRecordPrint.OFFS_0404
|
0097A8EB C6830404000000 mov byte ptr [ebx+$0404], $00
0097A8F2 8BC3 mov eax, ebx
* Reference to : TfrmGjRecordPrint._PROC_0097A90C()
|
0097A8F4 E813000000 call 0097A90C
0097A8F9 8BC3 mov eax, ebx
|
0097A8FB E8D8010000 call 0097AAD8
0097A900 8BC3 mov eax, ebx
0097A902 8B10 mov edx, [eax]
* Possible reference to virtual method TfrmGjRecordPrint.OFFS_00EC
|
0097A904 FF92EC000000 call dword ptr [edx+$00EC]
0097A90A 5B pop ebx
0097A90B C3 ret
*)
end;
procedure TfrmGjRecordPrint._PROC_0097A90C(Sender : TObject);
begin
(*
0097A90C 53 push ebx
0097A90D 8BD8 mov ebx, eax
* Reference to field TfrmGjRecordPrint.OFFS_0414
|
0097A90F 83BB1404000000 cmp dword ptr [ebx+$0414], +$00
0097A916 0F8507010000 jnz 0097AA23
0097A91C B201 mov dl, $01
* Reference to control TfrmGjRecordPrint.Label2 : TLabel
|
0097A91E 8B83D0030000 mov eax, [ebx+$03D0]
* Reference to: Controls.TControl.SetVisible()
|
0097A924 E8EB10B1FF call 0048BA14
0097A929 B201 mov dl, $01
* Reference to control TfrmGjRecordPrint.sKH : TdxButtonEdit
|
0097A92B 8B83E0030000 mov eax, [ebx+$03E0]
* Reference to: Controls.TControl.SetVisible()
|
0097A931 E8DE10B1FF call 0048BA14
0097A936 33D2 xor edx, edx
* Reference to control TfrmGjRecordPrint.sKH : TdxButtonEdit
|
0097A938 8B83E0030000 mov eax, [ebx+$03E0]
* Reference to : TdxInplaceMaskEdit._PROC_005441D4()
|
0097A93E E89198BCFF call 005441D4
0097A943 B201 mov dl, $01
* Reference to control TfrmGjRecordPrint.sDH : TComboBox
|
0097A945 8B83D4030000 mov eax, [ebx+$03D4]
* Reference to: Controls.TControl.SetVisible()
|
0097A94B E8C410B1FF call 0048BA14
0097A950 33D2 xor edx, edx
* Reference to control TfrmGjRecordPrint.sDH : TComboBox
|
0097A952 8B83D4030000 mov eax, [ebx+$03D4]
* Reference to: Controls.TControl.SetText(System.AnsiString)
|
0097A958 E8C711B1FF call 0048BB24
0097A95D B201 mov dl, $01
* Reference to control TfrmGjRecordPrint.Label1 : TLabel
|
0097A95F 8B839C030000 mov eax, [ebx+$039C]
* Reference to: Controls.TControl.SetVisible()
|
0097A965 E8AA10B1FF call 0048BA14
* Reference to field TfrmGjRecordPrint.OFFS_041C
|
0097A96A 8B831C040000 mov eax, [ebx+$041C]
* Possible String Reference to: 'gj'
|
0097A970 BAACAA9700 mov edx, $0097AAAC
|
0097A975 E8F6A3A8FF call 00404D70
0097A97A 7512 jnz 0097A98E
* Possible String Reference to: '灌浆次数'
|
0097A97C BAB8AA9700 mov edx, $0097AAB8
* Reference to control TfrmGjRecordPrint.Label1 : TLabel
|
0097A981 8B839C030000 mov eax, [ebx+$039C]
* Reference to: Controls.TControl.SetText(System.AnsiString)
|
0097A987 E89811B1FF call 0048BB24
0097A98C EB10 jmp 0097A99E
* Possible String Reference to: '压水次数'
|
0097A98E BACCAA9700 mov edx, $0097AACC
* Reference to control TfrmGjRecordPrint.Label1 : TLabel
|
0097A993 8B839C030000 mov eax, [ebx+$039C]
* Reference to: Controls.TControl.SetText(System.AnsiString)
|
0097A999 E88611B1FF call 0048BB24
0097A99E B201 mov dl, $01
* Reference to control TfrmGjRecordPrint.sCS : TComboBox
|
0097A9A0 8B83DC030000 mov eax, [ebx+$03DC]
* Reference to: Controls.TControl.SetVisible()
|
0097A9A6 E86910B1FF call 0048BA14
0097A9AB 33D2 xor edx, edx
* Reference to control TfrmGjRecordPrint.sCS : TComboBox
|
0097A9AD 8B83DC030000 mov eax, [ebx+$03DC]
* Reference to: Controls.TControl.SetText(System.AnsiString)
|
0097A9B3 E86C11B1FF call 0048BB24
0097A9B8 B201 mov dl, $01
* Reference to control TfrmGjRecordPrint.sGJNumber : TComboBox
|
0097A9BA 8B83D8030000 mov eax, [ebx+$03D8]
* Reference to: Controls.TControl.SetVisible()
|
0097A9C0 E84F10B1FF call 0048BA14
0097A9C5 33D2 xor edx, edx
* Reference to control TfrmGjRecordPrint.sGJNumber : TComboBox
|
0097A9C7 8B83D8030000 mov eax, [ebx+$03D8]
* Reference to: Controls.TControl.SetText(System.AnsiString)
|
0097A9CD E85211B1FF call 0048BB24
* Reference to control TfrmGjRecordPrint.sGJNumber : TComboBox
|
0097A9D2 8B83D8030000 mov eax, [ebx+$03D8]
0097A9D8 8B10 mov edx, [eax]
* Possible reference to virtual method TComboBox.OFFS_00CC
|
0097A9DA FF92CC000000 call dword ptr [edx+$00CC]
0097A9E0 8BD0 mov edx, eax
* Reference to control TfrmGjRecordPrint.sCS : TComboBox
|
0097A9E2 8B83DC030000 mov eax, [ebx+$03DC]
0097A9E8 8B08 mov ecx, [eax]
* Possible reference to virtual method TComboBox.OFFS_00D0
|
0097A9EA FF91D0000000 call dword ptr [ecx+$00D0]
0097A9F0 B203 mov dl, $03
* Reference to field TfrmGjRecordPrint.OFFS_032C
|
0097A9F2 8B832C030000 mov eax, [ebx+$032C]
|
0097A9F8 E8A357D0FF call 006801A0
* Reference to field TfrmGjRecordPrint.OFFS_0320
|
0097A9FD 8B8320030000 mov eax, [ebx+$0320]
* Reference to: Comctrls.TComboExItems.Add()
|
0097AA03 E86453F0FF call 0087FD6C
0097AA08 B201 mov dl, $01
* Reference to : TcxCustomGridTableView._PROC_00857F50()
|
0097AA0A E841D5EDFF call 00857F50
* Reference to control TfrmGjRecordPrint.tvys : TcxGridDBTableView
|
0097AA0F 8B83A4030000 mov eax, [ebx+$03A4]
* Reference to: Comctrls.TComboExItems.Add()
|
0097AA15 E85253F0FF call 0087FD6C
0097AA1A B201 mov dl, $01
* Reference to : TcxCustomGridTableView._PROC_00857F50()
|
0097AA1C E82FD5EDFF call 00857F50
0097AA21 5B pop ebx
0097AA22 C3 ret
*)
end;
procedure TfrmGjRecordPrint._PROC_0097AA23(Sender : TObject);
begin
(*
0097AA23 33D2 xor edx, edx
0097AA25 8B83D0030000 mov eax, [ebx+$03D0]
* Reference to: Controls.TControl.SetVisible()
|
0097AA2B E8E40FB1FF call 0048BA14
0097AA30 33D2 xor edx, edx
0097AA32 8B839C030000 mov eax, [ebx+$039C]
* Reference to: Controls.TControl.SetVisible()
|
0097AA38 E8D70FB1FF call 0048BA14
0097AA3D 33D2 xor edx, edx
0097AA3F 8B83DC030000 mov eax, [ebx+$03DC]
* Reference to: Controls.TControl.SetVisible()
|
0097AA45 E8CA0FB1FF call 0048BA14
0097AA4A 33D2 xor edx, edx
0097AA4C 8B83D8030000 mov eax, [ebx+$03D8]
* Reference to: Controls.TControl.SetVisible()
|
0097AA52 E8BD0FB1FF call 0048BA14
0097AA57 33D2 xor edx, edx
0097AA59 8B83E0030000 mov eax, [ebx+$03E0]
* Reference to: Controls.TControl.SetVisible()
|
0097AA5F E8B00FB1FF call 0048BA14
0097AA64 33D2 xor edx, edx
0097AA66 8B83D4030000 mov eax, [ebx+$03D4]
* Reference to: Controls.TControl.SetVisible()
|
0097AA6C E8A30FB1FF call 0048BA14
0097AA71 B201 mov dl, $01
0097AA73 8B832C030000 mov eax, [ebx+$032C]
|
0097AA79 E82257D0FF call 006801A0
0097AA7E 8B8320030000 mov eax, [ebx+$0320]
* Reference to: Comctrls.TComboExItems.Add()
|
0097AA84 E8E352F0FF call 0087FD6C
0097AA89 33D2 xor edx, edx
* Reference to : TcxCustomGridTableView._PROC_00857F50()
|
0097AA8B E8C0D4EDFF call 00857F50
0097AA90 8B83A4030000 mov eax, [ebx+$03A4]
* Reference to: Comctrls.TComboExItems.Add()
|
0097AA96 E8D152F0FF call 0087FD6C
0097AA9B 33D2 xor edx, edx
* Reference to : TcxCustomGridTableView._PROC_00857F50()
|
0097AA9D E8AED4EDFF call 00857F50
0097AAA2 5B pop ebx
0097AAA3 C3 ret
*)
end;
procedure TfrmGjRecordPrint._PROC_0097AAD9(Sender : TObject);
begin
(*
0097AAD9 8BEC mov ebp, esp
0097AADB 6A00 push $00
0097AADD 6A00 push $00
0097AADF 6A00 push $00
0097AAE1 53 push ebx
0097AAE2 56 push esi
0097AAE3 8BD8 mov ebx, eax
0097AAE5 33C0 xor eax, eax
0097AAE7 55 push ebp
0097AAE8 68B0AC9700 push $0097ACB0
0097AAED 64FF30 push dword ptr fs:[eax]
0097AAF0 648920 mov fs:[eax], esp
* Reference to field TfrmGjRecordPrint.OFFS_0414
|
0097AAF3 8BB314040000 mov esi, [ebx+$0414]
0097AAF9 85F6 test esi, esi
0097AAFB 0F84F0000000 jz 0097ABF1
* Possible String Reference to: 'select type from '
|
0097AB01 68C8AC9700 push $0097ACC8
0097AB06 FFB318040000 push dword ptr [ebx+$0418]
* Possible String Reference to: ' Where Channel = '
|
0097AB0C 68E4AC9700 push $0097ACE4
0097AB11 8D55FC lea edx, [ebp-$04]
0097AB14 8BC6 mov eax, esi
|
0097AB16 E885FBA8FF call 0040A6A0
0097AB1B FF75FC push dword ptr [ebp-$04]
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097AB1E 8D8308040000 lea eax, [ebx+$0408]
0097AB24 BA04000000 mov edx, $00000004
|
0097AB29 E8B6A1A8FF call 00404CE4
* Reference to TfrmData instance
|
0097AB2E A190E09B00 mov eax, dword ptr [$009BE090]
0097AB33 8B00 mov eax, [eax]
* Reference to control TfrmData.conADOConnet : TADOConnection
|
0097AB35 8B4058 mov eax, [eax+$58]
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097AB38 8B8B08040000 mov ecx, [ebx+$0408]
* Reference to field TfrmGjRecordPrint.OFFS_032C
|
0097AB3E 8B932C030000 mov edx, [ebx+$032C]
* Reference to : TfrmSetBeforeGrout._PROC_00968024()
|
0097AB44 E8DBD4FEFF call 00968024
* Possible String Reference to: 'Type'
|
0097AB49 BA00AD9700 mov edx, $0097AD00
* Reference to field TfrmGjRecordPrint.OFFS_032C
|
0097AB4E 8B832C030000 mov eax, [ebx+$032C]
|
0097AB54 E8A339BEFF call 0055E4FC
0097AB59 8B10 mov edx, [eax]
0097AB5B FF5258 call dword ptr [edx+$58]
0097AB5E 83E802 sub eax, +$02
0097AB61 7348 jnb 0097ABAB
* Possible String Reference to: 'select ID,Fparent,KH, DH, FT, ET, Y
| L, MYL, LL , SHB , MD , WD, ZJL , Z
| HL , DZ , LYB, GIN , GZ, ED from '
|
0097AB63 6810AD9700 push $0097AD10
0097AB68 FFB318040000 push dword ptr [ebx+$0418]
* Possible String Reference to: ' Where Type in (0,1) and Channel = '
|
0097AB6E 6880AD9700 push $0097AD80
0097AB73 8D55F8 lea edx, [ebp-$08]
* Reference to field TfrmGjRecordPrint.OFFS_0414
|
0097AB76 8B8314040000 mov eax, [ebx+$0414]
|
0097AB7C E81FFBA8FF call 0040A6A0
0097AB81 FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: ' Order by ED,ET,ID'
|
0097AB84 68ACAD9700 push $0097ADAC
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097AB89 8D8308040000 lea eax, [ebx+$0408]
0097AB8F BA05000000 mov edx, $00000005
|
0097AB94 E84BA1A8FF call 00404CE4
* Reference to field TfrmGjRecordPrint.OFFS_041C
|
0097AB99 8D831C040000 lea eax, [ebx+$041C]
* Possible String Reference to: 'gj'
|
0097AB9F BAC8AD9700 mov edx, $0097ADC8
|
0097ABA4 E8FF9DA8FF call 004049A8
0097ABA9 EB46 jmp 0097ABF1
* Possible String Reference to: 'select ID,Fparent,KH, DH, FT, ET, Y
| L, MYL, LL , LYB, Lu , GZ, ED, Typ
| e from '
|
0097ABAB 68D4AD9700 push $0097ADD4
0097ABB0 FFB318040000 push dword ptr [ebx+$0418]
* Possible String Reference to: ' Where Type in (2,3,4,5) and Channe
| l = '
|
0097ABB6 682CAE9700 push $0097AE2C
0097ABBB 8D55F4 lea edx, [ebp-$0C]
* Reference to field TfrmGjRecordPrint.OFFS_0414
|
0097ABBE 8B8314040000 mov eax, [ebx+$0414]
|
0097ABC4 E8D7FAA8FF call 0040A6A0
0097ABC9 FF75F4 push dword ptr [ebp-$0C]
* Possible String Reference to: ' Order by ED,ET,ID'
|
0097ABCC 68ACAD9700 push $0097ADAC
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097ABD1 8D8308040000 lea eax, [ebx+$0408]
0097ABD7 BA05000000 mov edx, $00000005
|
0097ABDC E803A1A8FF call 00404CE4
* Reference to field TfrmGjRecordPrint.OFFS_041C
|
0097ABE1 8D831C040000 lea eax, [ebx+$041C]
* Possible String Reference to: 'ys'
|
0097ABE7 BA5CAE9700 mov edx, $0097AE5C
|
0097ABEC E8B79DA8FF call 004049A8
* Reference to field TfrmGjRecordPrint.OFFS_041C
|
0097ABF1 8B831C040000 mov eax, [ebx+$041C]
* Possible String Reference to: 'gj'
|
0097ABF7 BAC8AD9700 mov edx, $0097ADC8
|
0097ABFC E86FA1A8FF call 00404D70
0097AC01 7542 jnz 0097AC45
* Possible String Reference to: '灌浆记录表'
|
0097AC03 BA68AE9700 mov edx, $0097AE68
0097AC08 8BC3 mov eax, ebx
* Reference to: Controls.TControl.SetText(System.AnsiString)
|
0097AC0A E8150FB1FF call 0048BB24
0097AC0F B201 mov dl, $01
* Reference to field TfrmGjRecordPrint.OFFS_0328
|
0097AC11 8B8328030000 mov eax, [ebx+$0328]
0097AC17 8B08 mov ecx, [eax]
0097AC19 FF5164 call dword ptr [ecx+$64]
0097AC1C B201 mov dl, $01
* Reference to field TfrmGjRecordPrint.OFFS_0328
|
0097AC1E 8B8328030000 mov eax, [ebx+$0328]
* Reference to: Controls.TControl.SetVisible()
|
0097AC24 E8EB0DB1FF call 0048BA14
0097AC29 33D2 xor edx, edx
* Reference to control TfrmGjRecordPrint.cxGrid2 : TcxGrid [0]
|
0097AC2B 8B83A0030000 mov eax, [ebx+$03A0]
0097AC31 8B08 mov ecx, [eax]
* Possible reference to virtual method TcxGrid [0].OFFS_64
|
0097AC33 FF5164 call dword ptr [ecx+$64]
0097AC36 33D2 xor edx, edx
* Reference to control TfrmGjRecordPrint.cxGrid2 : TcxGrid [0]
|
0097AC38 8B83A0030000 mov eax, [ebx+$03A0]
* Reference to: Controls.TControl.SetVisible()
|
0097AC3E E8D10DB1FF call 0048BA14
0097AC43 EB40 jmp 0097AC85
* Possible String Reference to: '钻孔冲洗及压水记录表'
|
0097AC45 BA7CAE9700 mov edx, $0097AE7C
0097AC4A 8BC3 mov eax, ebx
* Reference to: Controls.TControl.SetText(System.AnsiString)
|
0097AC4C E8D30EB1FF call 0048BB24
0097AC51 B201 mov dl, $01
* Reference to control TfrmGjRecordPrint.cxGrid2 : TcxGrid [0]
|
0097AC53 8B83A0030000 mov eax, [ebx+$03A0]
0097AC59 8B08 mov ecx, [eax]
* Possible reference to virtual method TcxGrid [0].OFFS_64
|
0097AC5B FF5164 call dword ptr [ecx+$64]
0097AC5E B201 mov dl, $01
* Reference to control TfrmGjRecordPrint.cxGrid2 : TcxGrid [0]
|
0097AC60 8B83A0030000 mov eax, [ebx+$03A0]
* Reference to: Controls.TControl.SetVisible()
|
0097AC66 E8A90DB1FF call 0048BA14
0097AC6B 33D2 xor edx, edx
* Reference to field TfrmGjRecordPrint.OFFS_0328
|
0097AC6D 8B8328030000 mov eax, [ebx+$0328]
0097AC73 8B08 mov ecx, [eax]
0097AC75 FF5164 call dword ptr [ecx+$64]
0097AC78 33D2 xor edx, edx
* Reference to field TfrmGjRecordPrint.OFFS_0328
|
0097AC7A 8B8328030000 mov eax, [ebx+$0328]
* Reference to: Controls.TControl.SetVisible()
|
0097AC80 E88F0DB1FF call 0048BA14
* Reference to field TfrmGjRecordPrint.OFFS_0414
|
0097AC85 83BB1404000000 cmp dword ptr [ebx+$0414], +$00
0097AC8C 7407 jz 0097AC95
0097AC8E 8BC3 mov eax, ebx
|
0097AC90 E8FF170000 call 0097C494
0097AC95 33C0 xor eax, eax
0097AC97 5A pop edx
0097AC98 59 pop ecx
0097AC99 59 pop ecx
0097AC9A 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '^[嬪]?
|
0097AC9D 68B7AC9700 push $0097ACB7
0097ACA2 8D45F4 lea eax, [ebp-$0C]
0097ACA5 BA03000000 mov edx, $00000003
|
0097ACAA E8C99CA8FF call 00404978
0097ACAF C3 ret
0097ACB0 E91F95A8FF jmp 004041D4
0097ACB5 EBEB jmp 0097ACA2
****** END
|
0097ACB7 5E pop esi
0097ACB8 5B pop ebx
0097ACB9 8BE5 mov esp, ebp
0097ACBB 5D pop ebp
0097ACBC C3 ret
*)
end;
procedure TfrmGjRecordPrint._PROC_0097AE95(Sender : TObject);
begin
(*
0097AE95 8BEC mov ebp, esp
0097AE97 33C9 xor ecx, ecx
0097AE99 51 push ecx
0097AE9A 51 push ecx
0097AE9B 51 push ecx
0097AE9C 51 push ecx
0097AE9D 53 push ebx
0097AE9E 8BD8 mov ebx, eax
0097AEA0 33C0 xor eax, eax
0097AEA2 55 push ebp
0097AEA3 6814B09700 push $0097B014
0097AEA8 64FF30 push dword ptr fs:[eax]
0097AEAB 648920 mov fs:[eax], esp
* Possible String Reference to: 'Fparent'
|
0097AEAE BA28B09700 mov edx, $0097B028
* Reference to field TfrmGjRecordPrint.OFFS_032C
|
0097AEB3 8B832C030000 mov eax, [ebx+$032C]
|
0097AEB9 E83E36BEFF call 0055E4FC
0097AEBE 8D55FC lea edx, [ebp-$04]
0097AEC1 8B08 mov ecx, [eax]
0097AEC3 FF5160 call dword ptr [ecx+$60]
0097AEC6 8B55FC mov edx, [ebp-$04]
* Reference to field TfrmGjRecordPrint.OFFS_043C
|
0097AEC9 8D833C040000 lea eax, [ebx+$043C]
|
0097AECF E8D49AA8FF call 004049A8
* Reference to field TfrmGjRecordPrint.OFFS_043C
|
0097AED4 83BB3C04000000 cmp dword ptr [ebx+$043C], +$00
0097AEDB 0F8418010000 jz 0097AFF9
* Reference to field TfrmGjRecordPrint.OFFS_032C
|
0097AEE1 8B832C030000 mov eax, [ebx+$032C]
|
0097AEE7 E8104BBEFF call 0055F9FC
* Possible String Reference to: 'KH'
|
0097AEEC BA38B09700 mov edx, $0097B038
* Reference to field TfrmGjRecordPrint.OFFS_032C
|
0097AEF1 8B832C030000 mov eax, [ebx+$032C]
|
0097AEF7 E80036BEFF call 0055E4FC
0097AEFC 8D55F8 lea edx, [ebp-$08]
0097AEFF 8B08 mov ecx, [eax]
0097AF01 FF5160 call dword ptr [ecx+$60]
0097AF04 8B55F8 mov edx, [ebp-$08]
* Reference to field TfrmGjRecordPrint.OFFS_0420
|
0097AF07 8D8320040000 lea eax, [ebx+$0420]
|
0097AF0D E8969AA8FF call 004049A8
* Possible String Reference to: 'Lu'
|
0097AF12 BA44B09700 mov edx, $0097B044
* Reference to field TfrmGjRecordPrint.OFFS_032C
|
0097AF17 8B832C030000 mov eax, [ebx+$032C]
|
0097AF1D E8DA35BEFF call 0055E4FC
0097AF22 8B10 mov edx, [eax]
0097AF24 FF5254 call dword ptr [edx+$54]
0097AF27 83C4F4 add esp, -$0C
0097AF2A DB3C24 fstp tbyte ptr [esp]
0097AF2D 9B wait
0097AF2E 8D55F4 lea edx, [ebp-$0C]
* Possible String Reference to: '0.00'
|
0097AF31 B850B09700 mov eax, $0097B050
|
0097AF36 E8D524A9FF call 0040D410
0097AF3B 8B55F4 mov edx, [ebp-$0C]
* Reference to field TfrmGjRecordPrint.OFFS_0438
|
0097AF3E 8D8338040000 lea eax, [ebx+$0438]
|
0097AF44 E85F9AA8FF call 004049A8
* Possible String Reference to: 'Select DH,FS,ES,DC,DW,SY,GY,YY,LU,T
| S from DChan Where DuanID = ''
|
0097AF49 6860B09700 push $0097B060
0097AF4E FFB33C040000 push dword ptr [ebx+$043C]
0097AF54 68ACB09700 push $0097B0AC
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097AF59 8D8308040000 lea eax, [ebx+$0408]
0097AF5F BA03000000 mov edx, $00000003
|
0097AF64 E87B9DA8FF call 00404CE4
* Reference to TfrmData instance
|
0097AF69 A190E09B00 mov eax, dword ptr [$009BE090]
0097AF6E 8B00 mov eax, [eax]
* Reference to control TfrmData.conADOConnet : TADOConnection
|
0097AF70 8B4058 mov eax, [eax+$58]
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097AF73 8B8B08040000 mov ecx, [ebx+$0408]
* Reference to control TfrmGjRecordPrint.adoDChan : TADODataSet
|
0097AF79 8B9388030000 mov edx, [ebx+$0388]
* Reference to : TfrmSetBeforeGrout._PROC_00968024()
|
0097AF7F E8A0D0FEFF call 00968024
* Reference to control TfrmGjRecordPrint.adoDChan : TADODataSet
|
0097AF84 8B8388030000 mov eax, [ebx+$0388]
|
0097AF8A E82548BEFF call 0055F7B4
0097AF8F 84C0 test al, al
0097AF91 740A jz 0097AF9D
* Possible String Reference to: 'Dchan表中没有存储该段压水记录!'
|
0097AF93 B8B8B09700 mov eax, $0097B0B8
|
0097AF98 E897E5FEFF call 00969534
* Possible String Reference to: 'Select DY,PH,ZH,KG,KX,KT from KChan
| where KH = ''
|
0097AF9D 68E0B09700 push $0097B0E0
0097AFA2 FFB320040000 push dword ptr [ebx+$0420]
0097AFA8 68ACB09700 push $0097B0AC
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097AFAD 8D8308040000 lea eax, [ebx+$0408]
0097AFB3 BA03000000 mov edx, $00000003
|
0097AFB8 E8279DA8FF call 00404CE4
* Reference to TfrmData instance
|
0097AFBD A190E09B00 mov eax, dword ptr [$009BE090]
0097AFC2 8B00 mov eax, [eax]
* Reference to control TfrmData.conADOConnet : TADOConnection
|
0097AFC4 8B4058 mov eax, [eax+$58]
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097AFC7 8B8B08040000 mov ecx, [ebx+$0408]
* Reference to control TfrmGjRecordPrint.adoKcan : TADODataSet
|
0097AFCD 8B937C030000 mov edx, [ebx+$037C]
* Reference to : TfrmSetBeforeGrout._PROC_00968024()
|
0097AFD3 E84CD0FEFF call 00968024
0097AFD8 8D4DF0 lea ecx, [ebp-$10]
* Reference to field TfrmGjRecordPrint.OFFS_0438
|
0097AFDB 8B9338040000 mov edx, [ebx+$0438]
* Reference to field TfrmGjRecordPrint.OFFS_0420
|
0097AFE1 8B8320040000 mov eax, [ebx+$0420]
* Reference to : TfrmSetBeforeGrout._PROC_00967444()
|
0097AFE7 E858C4FEFF call 00967444
0097AFEC 8B55F0 mov edx, [ebp-$10]
* Reference to pointer to GlobalVar_009C5A4C
|
0097AFEF A114E39B00 mov eax, dword ptr [$009BE314]
|
0097AFF4 E8AF99A8FF call 004049A8
0097AFF9 33C0 xor eax, eax
0097AFFB 5A pop edx
0097AFFC 59 pop ecx
0097AFFD 59 pop ecx
0097AFFE 648910 mov fs:[eax], edx
****** FINALLY
|
0097B001 681BB09700 push $0097B01B
0097B006 8D45F0 lea eax, [ebp-$10]
0097B009 BA04000000 mov edx, $00000004
|
0097B00E E86599A8FF call 00404978
0097B013 C3 ret
0097B014 E9BB91A8FF jmp 004041D4
0097B019 EBEB jmp 0097B006
****** END
|
0097B01B 5B pop ebx
0097B01C 8BE5 mov esp, ebp
0097B01E 5D pop ebp
0097B01F C3 ret
*)
end;
procedure TfrmGjRecordPrint._PROC_0097B081(Sender : TObject);
begin
(*
0097B081 2C54 sub al, $54
0097B083 53 push ebx
0097B084 206672 and [esi+$72], ah
0097B087 6F outsd
0097B088 6D insd
0097B089 20444368 and [ebx+eax*2+$68], al
0097B08D 61 popa
0097B08E 6E outsb
0097B08F 205768 and [edi+$68], dl
0097B092 657265 jb 0097B0FA
0097B095 20447561 and [ebp+esi*2+$61], al
0097B099 6E outsb
0097B09A 49 dec ecx
0097B09B 44 inc esp
0097B09C 203D20270000 and [$00002720], bh
0097B0A2 0000 add [eax], al
*)
end;
procedure TfrmGjRecordPrint._PROC_0097B115(Sender : TObject);
begin
(*
0097B115 8BEC mov ebp, esp
0097B117 B906000000 mov ecx, $00000006
0097B11C 6A00 push $00
0097B11E 6A00 push $00
0097B120 49 dec ecx
0097B121 75F9 jnz 0097B11C
0097B123 53 push ebx
0097B124 8BD8 mov ebx, eax
0097B126 33C0 xor eax, eax
0097B128 55 push ebp
* Possible String Reference to: '閆崹腚[嬪]?
|
0097B129 6875B49700 push $0097B475
0097B12E 64FF30 push dword ptr fs:[eax]
0097B131 648920 mov fs:[eax], esp
* Possible String Reference to: 'Fparent'
|
0097B134 BA8CB49700 mov edx, $0097B48C
* Reference to field TfrmGjRecordPrint.OFFS_032C
|
0097B139 8B832C030000 mov eax, [ebx+$032C]
|
0097B13F E8B833BEFF call 0055E4FC
0097B144 8D55FC lea edx, [ebp-$04]
0097B147 8B08 mov ecx, [eax]
0097B149 FF5160 call dword ptr [ecx+$60]
0097B14C 8B55FC mov edx, [ebp-$04]
* Reference to field TfrmGjRecordPrint.OFFS_043C
|
0097B14F 8D833C040000 lea eax, [ebx+$043C]
|
0097B155 E84E98A8FF call 004049A8
* Reference to field TfrmGjRecordPrint.OFFS_043C
|
0097B15A 83BB3C04000000 cmp dword ptr [ebx+$043C], +$00
0097B161 0F84F3020000 jz 0097B45A
* Reference to field TfrmGjRecordPrint.OFFS_032C
|
0097B167 8B832C030000 mov eax, [ebx+$032C]
|
0097B16D E88A48BEFF call 0055F9FC
* Possible String Reference to: 'KH'
|
0097B172 BA9CB49700 mov edx, $0097B49C
* Reference to field TfrmGjRecordPrint.OFFS_032C
|
0097B177 8B832C030000 mov eax, [ebx+$032C]
|
0097B17D E87A33BEFF call 0055E4FC
0097B182 8D55F8 lea edx, [ebp-$08]
0097B185 8B08 mov ecx, [eax]
0097B187 FF5160 call dword ptr [ecx+$60]
0097B18A 8B55F8 mov edx, [ebp-$08]
* Reference to field TfrmGjRecordPrint.OFFS_0420
|
0097B18D 8D8320040000 lea eax, [ebx+$0420]
|
0097B193 E81098A8FF call 004049A8
* Possible String Reference to: 'ZHL'
|
0097B198 BAA8B49700 mov edx, $0097B4A8
* Reference to field TfrmGjRecordPrint.OFFS_032C
|
0097B19D 8B832C030000 mov eax, [ebx+$032C]
|
0097B1A3 E85433BEFF call 0055E4FC
0097B1A8 8B10 mov edx, [eax]
0097B1AA FF5254 call dword ptr [edx+$54]
0097B1AD DD9B28040000 fstp qword ptr [ebx+$0428]
0097B1B3 9B wait
* Possible String Reference to: 'DZ'
|
0097B1B4 BAB4B49700 mov edx, $0097B4B4
* Reference to field TfrmGjRecordPrint.OFFS_032C
|
0097B1B9 8B832C030000 mov eax, [ebx+$032C]
|
0097B1BF E83833BEFF call 0055E4FC
0097B1C4 8B10 mov edx, [eax]
0097B1C6 FF5254 call dword ptr [edx+$54]
0097B1C9 DD9B30040000 fstp qword ptr [ebx+$0430]
0097B1CF 9B wait
* Possible String Reference to: 'Select DH,FS,ES,DC,JPR,DW,QJL,QT fr
| om DChan Where DuanID = ''
|
0097B1D0 68C0B49700 push $0097B4C0
0097B1D5 FFB33C040000 push dword ptr [ebx+$043C]
0097B1DB 6808B59700 push $0097B508
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097B1E0 8D8308040000 lea eax, [ebx+$0408]
0097B1E6 BA03000000 mov edx, $00000003
|
0097B1EB E8F49AA8FF call 00404CE4
* Reference to TfrmData instance
|
0097B1F0 A190E09B00 mov eax, dword ptr [$009BE090]
0097B1F5 8B00 mov eax, [eax]
* Reference to control TfrmData.conADOConnet : TADOConnection
|
0097B1F7 8B4058 mov eax, [eax+$58]
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097B1FA 8B8B08040000 mov ecx, [ebx+$0408]
* Reference to control TfrmGjRecordPrint.adoDChan : TADODataSet
|
0097B200 8B9388030000 mov edx, [ebx+$0388]
* Reference to : TfrmSetBeforeGrout._PROC_00968024()
|
0097B206 E819CEFEFF call 00968024
* Reference to control TfrmGjRecordPrint.adoDChan : TADODataSet
|
0097B20B 8B8388030000 mov eax, [ebx+$0388]
|
0097B211 E89E45BEFF call 0055F7B4
0097B216 84C0 test al, al
0097B218 740A jz 0097B224
* Possible String Reference to: 'DChan表中没有该段记录数据!'
|
0097B21A B814B59700 mov eax, $0097B514
|
0097B21F E810E3FEFF call 00969534
* Possible String Reference to: 'JPR'
|
0097B224 BA38B59700 mov edx, $0097B538
* Reference to control TfrmGjRecordPrint.adoDChan : TADODataSet
|
0097B229 8B8388030000 mov eax, [ebx+$0388]
|
0097B22F E8C832BEFF call 0055E4FC
0097B234 8D55F4 lea edx, [ebp-$0C]
0097B237 8B08 mov ecx, [eax]
* Possible reference to virtual method TADODataSet.OFFS_60
|
0097B239 FF5160 call dword ptr [ecx+$60]
0097B23C 8B4DF4 mov ecx, [ebp-$0C]
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097B23F 8D8308040000 lea eax, [ebx+$0408]
* Possible String Reference to: 'Select Name1 from Serium_View where
| Value1 ='
|
0097B245 BA44B59700 mov edx, $0097B544
|
0097B24A E8219AA8FF call 00404C70
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097B24F 8B9308040000 mov edx, [ebx+$0408]
* Reference to control TfrmGjRecordPrint.adoSerium : TADODataSet
|
0097B255 8B8390030000 mov eax, [ebx+$0390]
* Reference to : TfrmSetBeforeGrout._PROC_00967FC8()
|
0097B25B E868CDFEFF call 00967FC8
* Possible String Reference to: 'Name1'
|
0097B260 BA7CB59700 mov edx, $0097B57C
* Reference to control TfrmGjRecordPrint.adoSerium : TADODataSet
|
0097B265 8B8390030000 mov eax, [ebx+$0390]
|
0097B26B E88C32BEFF call 0055E4FC
0097B270 8D55F0 lea edx, [ebp-$10]
0097B273 8B08 mov ecx, [eax]
* Possible reference to virtual method TADODataSet.OFFS_60
|
0097B275 FF5160 call dword ptr [ecx+$60]
0097B278 8B55F0 mov edx, [ebp-$10]
* Reference to pointer to GlobalVar_009C53F0
|
0097B27B A1B8D89B00 mov eax, dword ptr [$009BD8B8]
|
0097B280 E82397A8FF call 004049A8
* Possible String Reference to: 'Select Name1,Value2 from BaseInfo w
| here TreeParent in (Select ID from
| Serium_View where Value1 ='
|
0097B285 688CB59700 push $0097B58C
* Possible String Reference to: 'JPR'
|
0097B28A BA38B59700 mov edx, $0097B538
* Reference to control TfrmGjRecordPrint.adoDChan : TADODataSet
|
0097B28F 8B8388030000 mov eax, [ebx+$0388]
|
0097B295 E86232BEFF call 0055E4FC
0097B29A 8B10 mov edx, [eax]
* Possible reference to virtual method TADODataSet.OFFS_54
|
0097B29C FF5254 call dword ptr [edx+$54]
0097B29F 83C4F4 add esp, -$0C
0097B2A2 DB3C24 fstp tbyte ptr [esp]
0097B2A5 9B wait
0097B2A6 8D45EC lea eax, [ebp-$14]
|
0097B2A9 E89220A9FF call 0040D340
0097B2AE FF75EC push dword ptr [ebp-$14]
0097B2B1 68F8B59700 push $0097B5F8
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097B2B6 8D8308040000 lea eax, [ebx+$0408]
0097B2BC BA03000000 mov edx, $00000003
|
0097B2C1 E81E9AA8FF call 00404CE4
* Reference to TfrmData instance
|
0097B2C6 A190E09B00 mov eax, dword ptr [$009BE090]
0097B2CB 8B00 mov eax, [eax]
* Reference to control TfrmData.conADOConnet : TADOConnection
|
0097B2CD 8B4058 mov eax, [eax+$58]
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097B2D0 8B8B08040000 mov ecx, [ebx+$0408]
* Reference to control TfrmGjRecordPrint.adoSerium : TADODataSet
|
0097B2D6 8B9390030000 mov edx, [ebx+$0390]
* Reference to : TfrmSetBeforeGrout._PROC_00968024()
|
0097B2DC E843CDFEFF call 00968024
* Reference to control TfrmGjRecordPrint.adoSerium : TADODataSet
|
0097B2E1 8B8390030000 mov eax, [ebx+$0390]
|
0097B2E7 E8C844BEFF call 0055F7B4
0097B2EC 84C0 test al, al
0097B2EE 740D jz 0097B2FD
* Reference to field TfrmGjRecordPrint.OFFS_0440
|
0097B2F0 8D8340040000 lea eax, [ebx+$0440]
|
0097B2F6 E85996A8FF call 00404954
0097B2FB EB2A jmp 0097B327
0097B2FD FFB32C040000 push dword ptr [ebx+$042C]
0097B303 FFB328040000 push dword ptr [ebx+$0428]
0097B309 8D4DE8 lea ecx, [ebp-$18]
* Reference to control TfrmGjRecordPrint.adoSerium : TADODataSet
|
0097B30C 8B9390030000 mov edx, [ebx+$0390]
0097B312 8BC3 mov eax, ebx
|
0097B314 E8C7030000 call 0097B6E0
0097B319 8B55E8 mov edx, [ebp-$18]
* Reference to field TfrmGjRecordPrint.OFFS_0440
|
0097B31C 8D8340040000 lea eax, [ebx+$0440]
|
0097B322 E88196A8FF call 004049A8
* Possible String Reference to: 'Select DY,PH,ZH,KG,KX,KT from KChan
| where KH = ''
|
0097B327 6804B69700 push $0097B604
0097B32C FFB320040000 push dword ptr [ebx+$0420]
0097B332 6808B59700 push $0097B508
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097B337 8D8308040000 lea eax, [ebx+$0408]
0097B33D BA03000000 mov edx, $00000003
|
0097B342 E89D99A8FF call 00404CE4
* Reference to TfrmData instance
|
0097B347 A190E09B00 mov eax, dword ptr [$009BE090]
0097B34C 8B00 mov eax, [eax]
* Reference to control TfrmData.conADOConnet : TADOConnection
|
0097B34E 8B4058 mov eax, [eax+$58]
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097B351 8B8B08040000 mov ecx, [ebx+$0408]
* Reference to control TfrmGjRecordPrint.adoKcan : TADODataSet
|
0097B357 8B937C030000 mov edx, [ebx+$037C]
* Reference to : TfrmSetBeforeGrout._PROC_00968024()
|
0097B35D E8C2CCFEFF call 00968024
0097B362 A1DCD39B00 mov eax, dword ptr [$009BD3DC]
0097B367 833800 cmp dword ptr [eax], +$00
0097B36A 755C jnz 0097B3C8
* Possible String Reference to: '本次灌浆共注入干料: '
|
0097B36C 6840B69700 push $0097B640
0097B371 DD8328040000 fld qword ptr [ebx+$0428]
0097B377 83C4F4 add esp, -$0C
0097B37A DB3C24 fstp tbyte ptr [esp]
0097B37D 9B wait
0097B37E 8D45E4 lea eax, [ebp-$1C]
|
0097B381 E8BA1FA9FF call 0040D340
0097B386 FF75E4 push dword ptr [ebp-$1C]
* Possible String Reference to: ' kg '
|
0097B389 6860B69700 push $0097B660
0097B38E FFB340040000 push dword ptr [ebx+$0440]
* Possible String Reference to: ' 单位注入量: '
|
0097B394 6870B69700 push $0097B670
0097B399 DD8330040000 fld qword ptr [ebx+$0430]
0097B39F 83C4F4 add esp, -$0C
0097B3A2 DB3C24 fstp tbyte ptr [esp]
0097B3A5 9B wait
0097B3A6 8D45E0 lea eax, [ebp-$20]
|
0097B3A9 E8921FA9FF call 0040D340
0097B3AE FF75E0 push dword ptr [ebp-$20]
* Possible String Reference to: ' kg/m'
|
0097B3B1 6888B69700 push $0097B688
* Reference to field TfrmGjRecordPrint.OFFS_0444
|
0097B3B6 8D8344040000 lea eax, [ebx+$0444]
0097B3BC BA07000000 mov edx, $00000007
|
0097B3C1 E81E99A8FF call 00404CE4
0097B3C6 EB5A jmp 0097B422
* Possible String Reference to: 'Total injection cement: '
|
0097B3C8 6898B69700 push $0097B698
0097B3CD DD8328040000 fld qword ptr [ebx+$0428]
0097B3D3 83C4F4 add esp, -$0C
0097B3D6 DB3C24 fstp tbyte ptr [esp]
0097B3D9 9B wait
0097B3DA 8D45DC lea eax, [ebp-$24]
|
0097B3DD E85E1FA9FF call 0040D340
0097B3E2 FF75DC push dword ptr [ebp-$24]
* Possible String Reference to: ' kg '
|
0097B3E5 6860B69700 push $0097B660
0097B3EA FFB340040000 push dword ptr [ebx+$0440]
* Possible String Reference to: ' Unit Injection: '
|
0097B3F0 68BCB69700 push $0097B6BC
0097B3F5 DD8330040000 fld qword ptr [ebx+$0430]
0097B3FB 83C4F4 add esp, -$0C
0097B3FE DB3C24 fstp tbyte ptr [esp]
0097B401 9B wait
0097B402 8D45D8 lea eax, [ebp-$28]
|
0097B405 E8361FA9FF call 0040D340
0097B40A FF75D8 push dword ptr [ebp-$28]
* Possible String Reference to: ' kg/m'
|
0097B40D 6888B69700 push $0097B688
* Reference to field TfrmGjRecordPrint.OFFS_0444
|
0097B412 8D8344040000 lea eax, [ebx+$0444]
0097B418 BA07000000 mov edx, $00000007
|
0097B41D E8C298A8FF call 00404CE4
0097B422 DD8328040000 fld qword ptr [ebx+$0428]
0097B428 83C4F4 add esp, -$0C
0097B42B DB3C24 fstp tbyte ptr [esp]
0097B42E 9B wait
0097B42F 8D55D0 lea edx, [ebp-$30]
* Possible String Reference to: '0.00'
|
0097B432 B8D8B69700 mov eax, $0097B6D8
|
0097B437 E8D41FA9FF call 0040D410
0097B43C 8B55D0 mov edx, [ebp-$30]
0097B43F 8D4DD4 lea ecx, [ebp-$2C]
* Reference to field TfrmGjRecordPrint.OFFS_0420
|
0097B442 8B8320040000 mov eax, [ebx+$0420]
* Reference to : TfrmSetBeforeGrout._PROC_00967444()
|
0097B448 E8F7BFFEFF call 00967444
0097B44D 8B55D4 mov edx, [ebp-$2C]
* Reference to pointer to GlobalVar_009C5A4C
|
0097B450 A114E39B00 mov eax, dword ptr [$009BE314]
|
0097B455 E84E95A8FF call 004049A8
0097B45A 33C0 xor eax, eax
0097B45C 5A pop edx
0097B45D 59 pop ecx
0097B45E 59 pop ecx
0097B45F 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[嬪]?
|
0097B462 687CB49700 push $0097B47C
0097B467 8D45D0 lea eax, [ebp-$30]
0097B46A BA0C000000 mov edx, $0000000C
|
0097B46F E80495A8FF call 00404978
0097B474 C3 ret
0097B475 E95A8DA8FF jmp 004041D4
0097B47A EBEB jmp 0097B467
****** END
|
0097B47C 5B pop ebx
0097B47D 8BE5 mov esp, ebp
0097B47F 5D pop ebp
0097B480 C3 ret
*)
end;
procedure TfrmGjRecordPrint._PROC_0097B6BE(Sender : TObject);
begin
(*
0097B6BE 6E outsb
0097B6BF 697420496E6A6563 imul esi, [eax+$49], $63656A6E
0097B6C7 7469 jz 0097B732
0097B6C9 6F outsd
0097B6CA 6E outsb
0097B6CB 3A20 cmp ah, byte ptr [eax]
0097B6CD 0000 add [eax], al
0097B6CF 00FF add bh, bh
0097B6D1 FFFF DB $FF, $FF //
0097B6D3 FF0400 inc dword ptr [eax+eax]
0097B6D6 0000 add [eax], al
0097B6D8 302E xor [esi], ch
0097B6DA 3030 xor [eax], dh
0097B6DC 0000 add [eax], al
0097B6DE 0000 add [eax], al
0097B6E0 55 push ebp
0097B6E1 8BEC mov ebp, esp
0097B6E3 6A00 push $00
0097B6E5 6A00 push $00
0097B6E7 6A00 push $00
0097B6E9 6A00 push $00
0097B6EB 6A00 push $00
0097B6ED 53 push ebx
0097B6EE 56 push esi
0097B6EF 8BF1 mov esi, ecx
0097B6F1 8BDA mov ebx, edx
0097B6F3 33C0 xor eax, eax
0097B6F5 55 push ebp
0097B6F6 6810B89700 push $0097B810
0097B6FB 64FF30 push dword ptr fs:[eax]
0097B6FE 648920 mov fs:[eax], esp
0097B701 8BC6 mov eax, esi
|
0097B703 E84C92A8FF call 00404954
0097B708 A1DCD39B00 mov eax, dword ptr [$009BD3DC]
0097B70D 833800 cmp dword ptr [eax], +$00
0097B710 750F jnz 0097B721
0097B712 8D45FC lea eax, [ebp-$04]
* Possible String Reference to: '(其中:'
|
0097B715 BA28B89700 mov edx, $0097B828
|
0097B71A E8CD92A8FF call 004049EC
0097B71F EB0D jmp 0097B72E
0097B721 8D45FC lea eax, [ebp-$04]
0097B724 BA38B89700 mov edx, $0097B838
|
0097B729 E8BE92A8FF call 004049EC
0097B72E 8BC3 mov eax, ebx
|
0097B730 E80B1EBEFF call 0055D540
0097B735 84C0 test al, al
0097B737 0F84B0000000 jz 0097B7ED
0097B73D 8BC3 mov eax, ebx
|
0097B73F E87040BEFF call 0055F7B4
0097B744 84C0 test al, al
0097B746 0F8485000000 jz 0097B7D1
0097B74C 8BC6 mov eax, esi
|
0097B74E E80192A8FF call 00404954
0097B753 E995000000 jmp 0097B7ED
* Possible String Reference to: 'Name1'
|
0097B758 BA44B89700 mov edx, $0097B844
0097B75D 8BC3 mov eax, ebx
|
0097B75F E8982DBEFF call 0055E4FC
0097B764 8D55F8 lea edx, [ebp-$08]
0097B767 8B08 mov ecx, [eax]
0097B769 FF5160 call dword ptr [ecx+$60]
* Possible String Reference to: 'Value2'
|
0097B76C BA54B89700 mov edx, $0097B854
0097B771 8BC3 mov eax, ebx
|
0097B773 E8842DBEFF call 0055E4FC
0097B778 8B10 mov edx, [eax]
0097B77A FF5254 call dword ptr [edx+$54]
0097B77D DD5DF0 fstp qword ptr [ebp-$10]
0097B780 9B wait
0097B781 FF75FC push dword ptr [ebp-$04]
0097B784 FF75F8 push dword ptr [ebp-$08]
0097B787 6864B89700 push $0097B864
0097B78C DB2D68B89700 fld tbyte ptr [$0097B868]
0097B792 DC4DF0 fmul qword ptr [ebp-$10]
0097B795 DC4D08 fmul qword ptr [ebp+$08]
0097B798 83C4F8 add esp, -$08
0097B79B DD1C24 fstp qword ptr [esp]
0097B79E 9B wait
0097B79F B0FE mov al, $FE
|
0097B7A1 E856EFABFF call 0043A6FC
0097B7A6 83C4F4 add esp, -$0C
0097B7A9 DB3C24 fstp tbyte ptr [esp]
0097B7AC 9B wait
0097B7AD 8D45EC lea eax, [ebp-$14]
|
0097B7B0 E88B1BA9FF call 0040D340
0097B7B5 FF75EC push dword ptr [ebp-$14]
* Possible String Reference to: ' kg '
|
0097B7B8 687CB89700 push $0097B87C
0097B7BD 8D45FC lea eax, [ebp-$04]
0097B7C0 BA05000000 mov edx, $00000005
|
0097B7C5 E81A95A8FF call 00404CE4
0097B7CA 8BC3 mov eax, ebx
|
0097B7CC E86B44BEFF call 0055FC3C
0097B7D1 80BBA100000000 cmp byte ptr [ebx+$00A1], $00
0097B7D8 0F847AFFFFFF jz 0097B758
0097B7DE 8BC6 mov eax, esi
0097B7E0 B98CB89700 mov ecx, $0097B88C
0097B7E5 8B55FC mov edx, [ebp-$04]
|
0097B7E8 E88394A8FF call 00404C70
0097B7ED 33C0 xor eax, eax
0097B7EF 5A pop edx
0097B7F0 59 pop ecx
0097B7F1 59 pop ecx
0097B7F2 648910 mov fs:[eax], edx
****** FINALLY
|
0097B7F5 6817B89700 push $0097B817
0097B7FA 8D45EC lea eax, [ebp-$14]
|
0097B7FD E85291A8FF call 00404954
0097B802 8D45F8 lea eax, [ebp-$08]
0097B805 BA02000000 mov edx, $00000002
|
0097B80A E86991A8FF call 00404978
0097B80F C3 ret
*)
end;
procedure TfrmGjRecordPrint._PROC_0097B810(Sender : TObject);
begin
(*
0097B810 E9BF89A8FF jmp 004041D4
0097B815 EBE3 jmp 0097B7FA
0097B817 5E pop esi
0097B818 5B pop ebx
0097B819 8BE5 mov esp, ebp
0097B81B 5D pop ebp
0097B81C C20800 ret $0008
*)
end;
procedure TfrmGjRecordPrint._PROC_0097BB9D(Sender : TObject);
begin
(*
0097BB9D 8BEC mov ebp, esp
0097BB9F 33C9 xor ecx, ecx
0097BBA1 51 push ecx
0097BBA2 51 push ecx
0097BBA3 51 push ecx
0097BBA4 51 push ecx
0097BBA5 51 push ecx
0097BBA6 53 push ebx
0097BBA7 8BD8 mov ebx, eax
0097BBA9 33C0 xor eax, eax
0097BBAB 55 push ebp
0097BBAC 683CBD9700 push $0097BD3C
0097BBB1 64FF30 push dword ptr fs:[eax]
0097BBB4 648920 mov fs:[eax], esp
0097BBB7 8D55FC lea edx, [ebp-$04]
* Reference to control TfrmGjRecordPrint.sKH : TdxButtonEdit
|
0097BBBA 8B83E0030000 mov eax, [ebx+$03E0]
* Reference to: Mask.TCustomMaskEdit.GetText()
|
0097BBC0 E8DF7EBCFF call 00543AA4
0097BBC5 837DFC00 cmp dword ptr [ebp-$04], +$00
0097BBC9 0F8445010000 jz 0097BD14
* Reference to field TfrmGjRecordPrint.OFFS_041C
|
0097BBCF 8B831C040000 mov eax, [ebx+$041C]
* Possible String Reference to: 'gj'
|
0097BBD5 BA50BD9700 mov edx, $0097BD50
|
0097BBDA E89191A8FF call 00404D70
0097BBDF 7538 jnz 0097BC19
* Possible String Reference to: 'Select DH from Dchan Where TS in (0
| ,1) and KH = ''
|
0097BBE1 685CBD9700 push $0097BD5C
0097BBE6 8D55F4 lea edx, [ebp-$0C]
* Reference to control TfrmGjRecordPrint.sKH : TdxButtonEdit
|
0097BBE9 8B83E0030000 mov eax, [ebx+$03E0]
* Reference to: Mask.TCustomMaskEdit.GetText()
|
0097BBEF E8B07EBCFF call 00543AA4
0097BBF4 8B45F4 mov eax, [ebp-$0C]
0097BBF7 8D55F8 lea edx, [ebp-$08]
|
0097BBFA E89DE4A8FF call 0040A09C
0097BBFF FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '' Group by DH'
|
0097BC02 6898BD9700 push $0097BD98
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097BC07 8D8308040000 lea eax, [ebx+$0408]
0097BC0D BA03000000 mov edx, $00000003
|
0097BC12 E8CD90A8FF call 00404CE4
0097BC17 EB36 jmp 0097BC4F
* Possible String Reference to: 'Select DH from Dchan Where TS in (2
| ,3,4,5) and KH = ''
|
0097BC19 68B0BD9700 push $0097BDB0
0097BC1E 8D55EC lea edx, [ebp-$14]
* Reference to control TfrmGjRecordPrint.sKH : TdxButtonEdit
|
0097BC21 8B83E0030000 mov eax, [ebx+$03E0]
* Reference to: Mask.TCustomMaskEdit.GetText()
|
0097BC27 E8787EBCFF call 00543AA4
0097BC2C 8B45EC mov eax, [ebp-$14]
0097BC2F 8D55F0 lea edx, [ebp-$10]
|
0097BC32 E865E4A8FF call 0040A09C
0097BC37 FF75F0 push dword ptr [ebp-$10]
* Possible String Reference to: '' Group by DH'
|
0097BC3A 6898BD9700 push $0097BD98
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097BC3F 8D8308040000 lea eax, [ebx+$0408]
0097BC45 BA03000000 mov edx, $00000003
|
0097BC4A E89590A8FF call 00404CE4
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097BC4F 8B9308040000 mov edx, [ebx+$0408]
* Reference to control TfrmGjRecordPrint.adoDH : TADODataSet
|
0097BC55 8B8378030000 mov eax, [ebx+$0378]
* Reference to : TfrmSetBeforeGrout._PROC_00967FC8()
|
0097BC5B E868C3FEFF call 00967FC8
* Reference to control TfrmGjRecordPrint.adoDH : TADODataSet
|
0097BC60 8B8378030000 mov eax, [ebx+$0378]
|
0097BC66 E8493BBEFF call 0055F7B4
0097BC6B 84C0 test al, al
0097BC6D 7574 jnz 0097BCE3
0097BC6F B201 mov dl, $01
* Reference to control TfrmGjRecordPrint.sDH : TComboBox
|
0097BC71 8B83D4030000 mov eax, [ebx+$03D4]
0097BC77 8B08 mov ecx, [eax]
* Possible reference to virtual method TComboBox.OFFS_64
|
0097BC79 FF5164 call dword ptr [ecx+$64]
* Reference to field TfrmGjRecordPrint.OFFS_040C
|
0097BC7C 8D830C040000 lea eax, [ebx+$040C]
|
0097BC82 E8CD8CA8FF call 00404954
* Reference to field TfrmGjRecordPrint.OFFS_0410
|
0097BC87 8D8310040000 lea eax, [ebx+$0410]
* Possible String Reference to: 'DH'
|
0097BC8D BAF0BD9700 mov edx, $0097BDF0
|
0097BC92 E8118DA8FF call 004049A8
* Reference to field TfrmGjRecordPrint.OFFS_040C
|
0097BC97 8D830C040000 lea eax, [ebx+$040C]
0097BC9D 50 push eax
0097BC9E 68FCBD9700 push $0097BDFC
* Reference to field TfrmGjRecordPrint.OFFS_0410
|
0097BCA3 8D8B10040000 lea ecx, [ebx+$0410]
* Reference to field TfrmGjRecordPrint.OFFS_040C
|
0097BCA9 8D930C040000 lea edx, [ebx+$040C]
* Reference to control TfrmGjRecordPrint.adoDH : TADODataSet
|
0097BCAF 8B8378030000 mov eax, [ebx+$0378]
|
0097BCB5 E866DFFEFF call 00969C20
* Reference to control TfrmGjRecordPrint.sDH : TComboBox
|
0097BCBA 8B83D4030000 mov eax, [ebx+$03D4]
* Reference to field TComboBox.OFFS_023C
|
0097BCC0 8B803C020000 mov eax, [eax+$023C]
* Reference to field TfrmGjRecordPrint.OFFS_0410
|
0097BCC6 8B9310040000 mov edx, [ebx+$0410]
0097BCCC 8B08 mov ecx, [eax]
0097BCCE FF512C call dword ptr [ecx+$2C]
0097BCD1 33D2 xor edx, edx
* Reference to control TfrmGjRecordPrint.sDH : TComboBox
|
0097BCD3 8B83D4030000 mov eax, [ebx+$03D4]
0097BCD9 8B08 mov ecx, [eax]
* Possible reference to virtual method TComboBox.OFFS_00D0
|
0097BCDB FF91D0000000 call dword ptr [ecx+$00D0]
0097BCE1 EB3E jmp 0097BD21
* Reference to control TfrmGjRecordPrint.sDH : TComboBox
|
0097BCE3 8B83D4030000 mov eax, [ebx+$03D4]
* Reference to field TComboBox.OFFS_023C
|
0097BCE9 8B803C020000 mov eax, [eax+$023C]
0097BCEF 8B10 mov edx, [eax]
0097BCF1 FF5244 call dword ptr [edx+$44]
0097BCF4 83CAFF or edx, -$01
* Reference to control TfrmGjRecordPrint.sDH : TComboBox
|
0097BCF7 8B83D4030000 mov eax, [ebx+$03D4]
0097BCFD 8B08 mov ecx, [eax]
* Possible reference to virtual method TComboBox.OFFS_00D0
|
0097BCFF FF91D0000000 call dword ptr [ecx+$00D0]
0097BD05 33D2 xor edx, edx
* Reference to control TfrmGjRecordPrint.sDH : TComboBox
|
0097BD07 8B83D4030000 mov eax, [ebx+$03D4]
0097BD0D 8B08 mov ecx, [eax]
* Possible reference to virtual method TComboBox.OFFS_64
|
0097BD0F FF5164 call dword ptr [ecx+$64]
0097BD12 EB0D jmp 0097BD21
0097BD14 33D2 xor edx, edx
* Reference to control TfrmGjRecordPrint.sDH : TComboBox
|
0097BD16 8B83D4030000 mov eax, [ebx+$03D4]
0097BD1C 8B08 mov ecx, [eax]
* Possible reference to virtual method TComboBox.OFFS_64
|
0097BD1E FF5164 call dword ptr [ecx+$64]
0097BD21 33C0 xor eax, eax
0097BD23 5A pop edx
0097BD24 59 pop ecx
0097BD25 59 pop ecx
0097BD26 648910 mov fs:[eax], edx
****** FINALLY
|
0097BD29 6843BD9700 push $0097BD43
0097BD2E 8D45EC lea eax, [ebp-$14]
0097BD31 BA05000000 mov edx, $00000005
|
0097BD36 E83D8CA8FF call 00404978
0097BD3B C3 ret
0097BD3C E99384A8FF jmp 004041D4
0097BD41 EBEB jmp 0097BD2E
****** END
|
0097BD43 5B pop ebx
0097BD44 8BE5 mov esp, ebp
0097BD46 5D pop ebp
0097BD47 C3 ret
*)
end;
procedure TfrmGjRecordPrint._PROC_0097BE01(Sender : TObject);
begin
(*
0097BE01 8BEC mov ebp, esp
0097BE03 B905000000 mov ecx, $00000005
0097BE08 6A00 push $00
0097BE0A 6A00 push $00
0097BE0C 49 dec ecx
0097BE0D 75F9 jnz 0097BE08
0097BE0F 53 push ebx
0097BE10 56 push esi
0097BE11 57 push edi
0097BE12 8BD8 mov ebx, eax
0097BE14 33C0 xor eax, eax
0097BE16 55 push ebp
0097BE17 68A6C09700 push $0097C0A6
0097BE1C 64FF30 push dword ptr fs:[eax]
0097BE1F 648920 mov fs:[eax], esp
0097BE22 8D55FC lea edx, [ebp-$04]
* Reference to control TfrmGjRecordPrint.sDH : TComboBox
|
0097BE25 8B83D4030000 mov eax, [ebx+$03D4]
* Reference to: Controls.TControl.GetText()
|
0097BE2B E8C4FCB0FF call 0048BAF4
0097BE30 837DFC00 cmp dword ptr [ebp-$04], +$00
0097BE34 0F8417020000 jz 0097C051
* Reference to field TfrmGjRecordPrint.OFFS_041C
|
0097BE3A 8B831C040000 mov eax, [ebx+$041C]
* Possible String Reference to: 'gj'
|
0097BE40 BABCC09700 mov edx, $0097C0BC
|
0097BE45 E8268FA8FF call 00404D70
0097BE4A 7559 jnz 0097BEA5
* Possible String Reference to: 'Select DuanID from Dchan Where TS i
| n (0,1) and KH = ''
|
0097BE4C 68C8C09700 push $0097C0C8
0097BE51 8D55F4 lea edx, [ebp-$0C]
* Reference to control TfrmGjRecordPrint.sKH : TdxButtonEdit
|
0097BE54 8B83E0030000 mov eax, [ebx+$03E0]
* Reference to: Mask.TCustomMaskEdit.GetText()
|
0097BE5A E8457CBCFF call 00543AA4
0097BE5F 8B45F4 mov eax, [ebp-$0C]
0097BE62 8D55F8 lea edx, [ebp-$08]
|
0097BE65 E832E2A8FF call 0040A09C
0097BE6A FF75F8 push dword ptr [ebp-$08]
* Possible String Reference to: '' and DH =''
|
0097BE6D 6808C19700 push $0097C108
0097BE72 8D55EC lea edx, [ebp-$14]
* Reference to control TfrmGjRecordPrint.sDH : TComboBox
|
0097BE75 8B83D4030000 mov eax, [ebx+$03D4]
* Reference to: Controls.TControl.GetText()
|
0097BE7B E874FCB0FF call 0048BAF4
0097BE80 8B45EC mov eax, [ebp-$14]
0097BE83 8D55F0 lea edx, [ebp-$10]
|
0097BE86 E811E2A8FF call 0040A09C
0097BE8B FF75F0 push dword ptr [ebp-$10]
0097BE8E 681CC19700 push $0097C11C
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097BE93 8D8308040000 lea eax, [ebx+$0408]
0097BE99 BA05000000 mov edx, $00000005
|
0097BE9E E8418EA8FF call 00404CE4
0097BEA3 EB57 jmp 0097BEFC
* Possible String Reference to: 'Select DuanID from Dchan Where TS i
| n (2,3,4,5) and KH = ''
|
0097BEA5 6828C19700 push $0097C128
0097BEAA 8D55E4 lea edx, [ebp-$1C]
* Reference to control TfrmGjRecordPrint.sKH : TdxButtonEdit
|
0097BEAD 8B83E0030000 mov eax, [ebx+$03E0]
* Reference to: Mask.TCustomMaskEdit.GetText()
|
0097BEB3 E8EC7BBCFF call 00543AA4
0097BEB8 8B45E4 mov eax, [ebp-$1C]
0097BEBB 8D55E8 lea edx, [ebp-$18]
|
0097BEBE E8D9E1A8FF call 0040A09C
0097BEC3 FF75E8 push dword ptr [ebp-$18]
* Possible String Reference to: '' and DH =''
|
0097BEC6 6808C19700 push $0097C108
0097BECB 8D55DC lea edx, [ebp-$24]
* Reference to control TfrmGjRecordPrint.sDH : TComboBox
|
0097BECE 8B83D4030000 mov eax, [ebx+$03D4]
* Reference to: Controls.TControl.GetText()
|
0097BED4 E81BFCB0FF call 0048BAF4
0097BED9 8B45DC mov eax, [ebp-$24]
0097BEDC 8D55E0 lea edx, [ebp-$20]
|
0097BEDF E8B8E1A8FF call 0040A09C
0097BEE4 FF75E0 push dword ptr [ebp-$20]
0097BEE7 681CC19700 push $0097C11C
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097BEEC 8D8308040000 lea eax, [ebx+$0408]
0097BEF2 BA05000000 mov edx, $00000005
|
0097BEF7 E8E88DA8FF call 00404CE4
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097BEFC 8B9308040000 mov edx, [ebx+$0408]
* Reference to control TfrmGjRecordPrint.adoDH : TADODataSet
|
0097BF02 8B8378030000 mov eax, [ebx+$0378]
* Reference to : TfrmSetBeforeGrout._PROC_00967FC8()
|
0097BF08 E8BBC0FEFF call 00967FC8
* Reference to control TfrmGjRecordPrint.adoDH : TADODataSet
|
0097BF0D 8B8378030000 mov eax, [ebx+$0378]
0097BF13 8B10 mov edx, [eax]
* Possible reference to virtual method TADODataSet.OFFS_014C
|
0097BF15 FF924C010000 call dword ptr [edx+$014C]
0097BF1B 85C0 test eax, eax
0097BF1D 0F8EF8000000 jle 0097C01B
0097BF23 B201 mov dl, $01
* Reference to control TfrmGjRecordPrint.sCS : TComboBox
|
0097BF25 8B83DC030000 mov eax, [ebx+$03DC]
0097BF2B 8B08 mov ecx, [eax]
* Possible reference to virtual method TComboBox.OFFS_64
|
0097BF2D FF5164 call dword ptr [ecx+$64]
0097BF30 B201 mov dl, $01
* Reference to control TfrmGjRecordPrint.sGJNumber : TComboBox
|
0097BF32 8B83D8030000 mov eax, [ebx+$03D8]
0097BF38 8B08 mov ecx, [eax]
* Possible reference to virtual method TComboBox.OFFS_64
|
0097BF3A FF5164 call dword ptr [ecx+$64]
* Reference to field TfrmGjRecordPrint.OFFS_040C
|
0097BF3D 8D830C040000 lea eax, [ebx+$040C]
|
0097BF43 E80C8AA8FF call 00404954
* Reference to field TfrmGjRecordPrint.OFFS_0410
|
0097BF48 8D8310040000 lea eax, [ebx+$0410]
* Possible String Reference to: 'DuanID'
|
0097BF4E BA6CC19700 mov edx, $0097C16C
|
0097BF53 E8508AA8FF call 004049A8
* Reference to field TfrmGjRecordPrint.OFFS_040C
|
0097BF58 8D830C040000 lea eax, [ebx+$040C]
0097BF5E 50 push eax
0097BF5F 687CC19700 push $0097C17C
* Reference to field TfrmGjRecordPrint.OFFS_0410
|
0097BF64 8D8B10040000 lea ecx, [ebx+$0410]
* Reference to field TfrmGjRecordPrint.OFFS_040C
|
0097BF6A 8D930C040000 lea edx, [ebx+$040C]
* Reference to control TfrmGjRecordPrint.adoDH : TADODataSet
|
0097BF70 8B8378030000 mov eax, [ebx+$0378]
|
0097BF76 E8A5DCFEFF call 00969C20
* Reference to control TfrmGjRecordPrint.sCS : TComboBox
|
0097BF7B 8B83DC030000 mov eax, [ebx+$03DC]
* Reference to field TComboBox.OFFS_023C
|
0097BF81 8B803C020000 mov eax, [eax+$023C]
* Reference to field TfrmGjRecordPrint.OFFS_0410
|
0097BF87 8B9310040000 mov edx, [ebx+$0410]
0097BF8D 8B08 mov ecx, [eax]
0097BF8F FF512C call dword ptr [ecx+$2C]
0097BF92 33D2 xor edx, edx
* Reference to control TfrmGjRecordPrint.sCS : TComboBox
|
0097BF94 8B83DC030000 mov eax, [ebx+$03DC]
0097BF9A 8B08 mov ecx, [eax]
* Possible reference to virtual method TComboBox.OFFS_00D0
|
0097BF9C FF91D0000000 call dword ptr [ecx+$00D0]
* Reference to field TfrmGjRecordPrint.OFFS_0410
|
0097BFA2 8D8310040000 lea eax, [ebx+$0410]
|
0097BFA8 E8A789A8FF call 00404954
* Reference to control TfrmGjRecordPrint.adoDH : TADODataSet
|
0097BFAD 8B8378030000 mov eax, [ebx+$0378]
0097BFB3 8B10 mov edx, [eax]
* Possible reference to virtual method TADODataSet.OFFS_014C
|
0097BFB5 FF924C010000 call dword ptr [edx+$014C]
0097BFBB 8BF0 mov esi, eax
0097BFBD 85F6 test esi, esi
0097BFBF 7E31 jle 0097BFF2
0097BFC1 BF01000000 mov edi, $00000001
0097BFC6 FFB310040000 push dword ptr [ebx+$0410]
0097BFCC 8D55D8 lea edx, [ebp-$28]
0097BFCF 8BC7 mov eax, edi
|
0097BFD1 E8CAE6A8FF call 0040A6A0
0097BFD6 FF75D8 push dword ptr [ebp-$28]
0097BFD9 687CC19700 push $0097C17C
* Reference to field TfrmGjRecordPrint.OFFS_0410
|
0097BFDE 8D8310040000 lea eax, [ebx+$0410]
0097BFE4 BA03000000 mov edx, $00000003
|
0097BFE9 E8F68CA8FF call 00404CE4
0097BFEE 47 inc edi
0097BFEF 4E dec esi
0097BFF0 75D4 jnz 0097BFC6
* Reference to control TfrmGjRecordPrint.sGJNumber : TComboBox
|
0097BFF2 8B83D8030000 mov eax, [ebx+$03D8]
* Reference to field TComboBox.OFFS_023C
|
0097BFF8 8B803C020000 mov eax, [eax+$023C]
* Reference to field TfrmGjRecordPrint.OFFS_0410
|
0097BFFE 8B9310040000 mov edx, [ebx+$0410]
0097C004 8B08 mov ecx, [eax]
0097C006 FF512C call dword ptr [ecx+$2C]
0097C009 33D2 xor edx, edx
* Reference to control TfrmGjRecordPrint.sGJNumber : TComboBox
|
0097C00B 8B83D8030000 mov eax, [ebx+$03D8]
0097C011 8B08 mov ecx, [eax]
* Possible reference to virtual method TComboBox.OFFS_00D0
|
0097C013 FF91D0000000 call dword ptr [ecx+$00D0]
0097C019 EB43 jmp 0097C05E
0097C01B 33D2 xor edx, edx
* Reference to control TfrmGjRecordPrint.sCS : TComboBox
|
0097C01D 8B83DC030000 mov eax, [ebx+$03DC]
* Reference to: Controls.TControl.SetText(System.AnsiString)
|
0097C023 E8FCFAB0FF call 0048BB24
0097C028 33D2 xor edx, edx
* Reference to control TfrmGjRecordPrint.sGJNumber : TComboBox
|
0097C02A 8B83D8030000 mov eax, [ebx+$03D8]
* Reference to: Controls.TControl.SetText(System.AnsiString)
|
0097C030 E8EFFAB0FF call 0048BB24
0097C035 33D2 xor edx, edx
* Reference to control TfrmGjRecordPrint.sCS : TComboBox
|
0097C037 8B83DC030000 mov eax, [ebx+$03DC]
0097C03D 8B08 mov ecx, [eax]
* Possible reference to virtual method TComboBox.OFFS_64
|
0097C03F FF5164 call dword ptr [ecx+$64]
0097C042 33D2 xor edx, edx
* Reference to control TfrmGjRecordPrint.sGJNumber : TComboBox
|
0097C044 8B83D8030000 mov eax, [ebx+$03D8]
0097C04A 8B08 mov ecx, [eax]
* Possible reference to virtual method TComboBox.OFFS_64
|
0097C04C FF5164 call dword ptr [ecx+$64]
0097C04F EB0D jmp 0097C05E
0097C051 33D2 xor edx, edx
* Reference to control TfrmGjRecordPrint.sDH : TComboBox
|
0097C053 8B83D4030000 mov eax, [ebx+$03D4]
0097C059 8B08 mov ecx, [eax]
* Possible reference to virtual method TComboBox.OFFS_64
|
0097C05B FF5164 call dword ptr [ecx+$64]
0097C05E 33C0 xor eax, eax
0097C060 5A pop edx
0097C061 59 pop ecx
0097C062 59 pop ecx
0097C063 648910 mov fs:[eax], edx
****** FINALLY
|
0097C066 68ADC09700 push $0097C0AD
0097C06B 8D45D8 lea eax, [ebp-$28]
|
0097C06E E8E188A8FF call 00404954
0097C073 8D45DC lea eax, [ebp-$24]
|
0097C076 E8D988A8FF call 00404954
0097C07B 8D45E0 lea eax, [ebp-$20]
0097C07E BA03000000 mov edx, $00000003
|
0097C083 E8F088A8FF call 00404978
0097C088 8D45EC lea eax, [ebp-$14]
|
0097C08B E8C488A8FF call 00404954
0097C090 8D45F0 lea eax, [ebp-$10]
0097C093 BA03000000 mov edx, $00000003
|
0097C098 E8DB88A8FF call 00404978
0097C09D 8D45FC lea eax, [ebp-$04]
|
0097C0A0 E8AF88A8FF call 00404954
0097C0A5 C3 ret
0097C0A6 E92981A8FF jmp 004041D4
0097C0AB EBBE jmp 0097C06B
****** END
|
0097C0AD 5F pop edi
0097C0AE 5E pop esi
0097C0AF 5B pop ebx
0097C0B0 8BE5 mov esp, ebp
0097C0B2 5D pop ebp
0097C0B3 C3 ret
*)
end;
procedure TfrmGjRecordPrint._PROC_0097C1D0(Sender : TObject);
begin
(*
0097C1D0 55 push ebp
0097C1D1 8BEC mov ebp, esp
0097C1D3 33C9 xor ecx, ecx
0097C1D5 51 push ecx
0097C1D6 51 push ecx
0097C1D7 51 push ecx
0097C1D8 51 push ecx
0097C1D9 51 push ecx
0097C1DA 53 push ebx
0097C1DB 8BD8 mov ebx, eax
0097C1DD 33C0 xor eax, eax
0097C1DF 55 push ebp
* Possible String Reference to: '檠~?脬[嬪]?
|
0097C1E0 68FEC29700 push $0097C2FE
0097C1E5 64FF30 push dword ptr fs:[eax]
0097C1E8 648920 mov fs:[eax], esp
0097C1EB 8D55FC lea edx, [ebp-$04]
* Reference to control TfrmGjRecordPrint.sKH : TdxButtonEdit
|
0097C1EE 8B83E0030000 mov eax, [ebx+$03E0]
* Reference to: Mask.TCustomMaskEdit.GetText()
|
0097C1F4 E8AB78BCFF call 00543AA4
0097C1F9 837DFC00 cmp dword ptr [ebp-$04], +$00
0097C1FD 750F jnz 0097C20E
* Possible String Reference to: 'Please select hole NO.!'
|
0097C1FF B814C39700 mov eax, $0097C314
|
0097C204 E82BD3FEFF call 00969534
0097C209 E9CD000000 jmp 0097C2DB
0097C20E 8D55F8 lea edx, [ebp-$08]
* Reference to control TfrmGjRecordPrint.sDH : TComboBox
|
0097C211 8B83D4030000 mov eax, [ebx+$03D4]
* Reference to: Controls.TControl.GetText()
|
0097C217 E8D8F8B0FF call 0048BAF4
0097C21C 837DF800 cmp dword ptr [ebp-$08], +$00
0097C220 750F jnz 0097C231
* Possible String Reference to: 'Please select stage NO.!'
|
0097C222 B834C39700 mov eax, $0097C334
|
0097C227 E808D3FEFF call 00969534
0097C22C E9AA000000 jmp 0097C2DB
0097C231 8D55F4 lea edx, [ebp-$0C]
* Reference to control TfrmGjRecordPrint.sGJNumber : TComboBox
|
0097C234 8B83D8030000 mov eax, [ebx+$03D8]
* Reference to: Controls.TControl.GetText()
|
0097C23A E8B5F8B0FF call 0048BAF4
0097C23F 837DF400 cmp dword ptr [ebp-$0C], +$00
0097C243 750F jnz 0097C254
* Possible String Reference to: 'Please select Grouting NO.!'
|
0097C245 B858C39700 mov eax, $0097C358
|
0097C24A E8E5D2FEFF call 00969534
0097C24F E987000000 jmp 0097C2DB
* Reference to field TfrmGjRecordPrint.OFFS_041C
|
0097C254 8B831C040000 mov eax, [ebx+$041C]
* Possible String Reference to: 'gj'
|
0097C25A BA7CC39700 mov edx, $0097C37C
|
0097C25F E80C8BA8FF call 00404D70
0097C264 7538 jnz 0097C29E
* Possible String Reference to: 'select ID,Fparent,KH, DH, FT, ET, Y
| L, MYL, LL , SHB , MD , WD, ZJL , Z
| HL , DZ , LYB, GIN , GZ, ED from '
|
0097C266 6888C39700 push $0097C388
0097C26B FFB318040000 push dword ptr [ebx+$0418]
* Possible String Reference to: ' Where Fparent= ''
|
0097C271 68F8C39700 push $0097C3F8
0097C276 8D55F0 lea edx, [ebp-$10]
* Reference to control TfrmGjRecordPrint.sCS : TComboBox
|
0097C279 8B83DC030000 mov eax, [ebx+$03DC]
* Reference to: Controls.TControl.GetText()
|
0097C27F E870F8B0FF call 0048BAF4
0097C284 FF75F0 push dword ptr [ebp-$10]
* Possible String Reference to: '' order by ED,ET,ID'
|
0097C287 6814C49700 push $0097C414
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097C28C 8D8308040000 lea eax, [ebx+$0408]
0097C292 BA05000000 mov edx, $00000005
|
0097C297 E8488AA8FF call 00404CE4
0097C29C EB36 jmp 0097C2D4
* Possible String Reference to: 'select ID,Fparent,KH, DH, FT, ET, Y
| L, MYL, LL , LYB, Lu , GZ, ED from '
|
0097C29E 6830C49700 push $0097C430
0097C2A3 FFB318040000 push dword ptr [ebx+$0418]
* Possible String Reference to: ' Where Fparent= ''
|
0097C2A9 6880C49700 push $0097C480
0097C2AE 8D55EC lea edx, [ebp-$14]
* Reference to control TfrmGjRecordPrint.sCS : TComboBox
|
0097C2B1 8B83DC030000 mov eax, [ebx+$03DC]
* Reference to: Controls.TControl.GetText()
|
0097C2B7 E838F8B0FF call 0048BAF4
0097C2BC FF75EC push dword ptr [ebp-$14]
* Possible String Reference to: '' order by ED,ET,ID'
|
0097C2BF 6814C49700 push $0097C414
* Reference to field TfrmGjRecordPrint.OFFS_0408
|
0097C2C4 8D8308040000 lea eax, [ebx+$0408]
0097C2CA BA05000000 mov edx, $00000005
|
0097C2CF E8108AA8FF call 00404CE4
0097C2D4 8BC3 mov eax, ebx
|
0097C2D6 E8B9010000 call 0097C494
0097C2DB 33C0 xor eax, eax
0097C2DD 5A pop edx
0097C2DE 59 pop ecx
0097C2DF 59 pop ecx
0097C2E0 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: '[嬪]?
|
0097C2E3 6805C39700 push $0097C305
0097C2E8 8D45EC lea eax, [ebp-$14]
0097C2EB BA04000000 mov edx, $00000004
|
0097C2F0 E88386A8FF call 00404978
0097C2F5 8D45FC lea eax, [ebp-$04]
|
0097C2F8 E85786A8FF call 00404954
0097C2FD C3 ret
0097C2FE E9D17EA8FF jmp 004041D4
0097C303 EBE3 jmp 0097C2E8
****** END
|
0097C305 5B pop ebx
0097C306 8BE5 mov esp, ebp
0097C308 5D pop ebp
0097C309 C3 ret
*)
end;
procedure TfrmGjRecordPrint._PROC_0097C4B4(Sender : TObject);
begin
(*
0097C4B4 2C03 sub al, $03
0097C4B6 0000 add [eax], al
*)
end;
procedure TfrmGjRecordPrint._PROC_0097C4C3(Sender : TObject);
begin
(*
0097C4C3 1C04 sbb al, $04
0097C4C5 0000 add [eax], al
*)
end;
procedure TfrmGjRecordPrint._PROC_0097C51C(Sender : TObject);
begin
(*
0097C51C 55 push ebp
0097C51D 8BEC mov ebp, esp
0097C51F 53 push ebx
0097C520 8BD8 mov ebx, eax
0097C522 33C0 xor eax, eax
0097C524 55 push ebp
0097C525 6872C59700 push $0097C572
0097C52A 64FF30 push dword ptr fs:[eax]
0097C52D 648920 mov fs:[eax], esp
* Reference to field TfrmGjRecordPrint.OFFS_041C
|
0097C530 8B831C040000 mov eax, [ebx+$041C]
* Possible String Reference to: 'gj'
|
0097C536 BA84C59700 mov edx, $0097C584
|
0097C53B E83088A8FF call 00404D70
0097C540 7512 jnz 0097C554
* Possible String Reference to: 'GjRecord'
|
0097C542 BA90C59700 mov edx, $0097C590
* Reference to field TfrmGjRecordPrint.OFFS_033C
|
0097C547 8B833C030000 mov eax, [ebx+$033C]
* Reference to : TfrmPrintForm._PROC_0094A67C()
|
0097C54D E82AE1FCFF call 0094A67C
0097C552 EB10 jmp 0097C564
* Possible String Reference to: 'ysRecord'
|
0097C554 BAA4C59700 mov edx, $0097C5A4
* Reference to field TfrmGjRecordPrint.OFFS_033C
|
0097C559 8B833C030000 mov eax, [ebx+$033C]
* Reference to : TfrmPrintForm._PROC_0094A67C()
|
0097C55F E818E1FCFF call 0094A67C
0097C564 33C0 xor eax, eax
0097C566 5A pop edx
0097C567 59 pop ecx
0097C568 59 pop ecx
0097C569 648910 mov fs:[eax], edx
****** FINALLY
|
0097C56C 6879C59700 push $0097C579
0097C571 C3 ret
0097C572 E95D7CA8FF jmp 004041D4
0097C577 EBF8 jmp 0097C571
****** END
|
0097C579 5B pop ebx
0097C57A 5D pop ebp
0097C57B C3 ret
*)
end;
procedure TfrmGjRecordPrint._PROC_0097C600(Sender : TObject);
begin
(*
0097C600 55 push ebp
0097C601 8BEC mov ebp, esp
0097C603 33C0 xor eax, eax
0097C605 55 push ebp
* Possible String Reference to: '楠{?滕]脣纼-竄?
|
0097C606 6825C69700 push $0097C625
0097C60B 64FF30 push dword ptr fs:[eax]
0097C60E 648920 mov fs:[eax], esp
0097C611 FF05B85A9C00 inc dword ptr [$009C5AB8]
0097C617 33C0 xor eax, eax
0097C619 5A pop edx
0097C61A 59 pop ecx
0097C61B 59 pop ecx
0097C61C 648910 mov fs:[eax], edx
****** FINALLY
|
* Possible String Reference to: ']脣纼-竄?
|
0097C61F 682CC69700 push $0097C62C
0097C624 C3 ret
0097C625 E9AA7BA8FF jmp 004041D4
0097C62A EBF8 jmp 0097C624
****** END
|
0097C62C 5D pop ebp
0097C62D C3 ret
*)
end;
procedure TfrmGjRecordPrint._PROC_0097C630(Sender : TObject);
begin
(*
0097C630 832DB85A9C0001 sub dword ptr [$009C5AB8], +$01
0097C637 C3 ret
*)
end;
procedure TfrmGjRecordPrint._PROC_0097C638(Sender : TObject);
begin
(*
0097C638 84C6 test dh, al
0097C63A 97 xchg eax, edi
0097C63B 0000 add [eax], al
*)
end;
end.
