📄 qkdzh.pas
字号:
unit QKDZH;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TfrmQJT=class(TForm)
PageControl1: TPageControl;
TabFunction: TTabSheet;
TabStock: TTabSheet;
TabInd: TTabSheet;
TreeInd: TTreeView;
TreeStock: TTreeView;
TreeFunc: TTreeView;
procedure FormCreate(Sender : TObject);
procedure FormDestroy(Sender : TObject);
procedure TreeIndDblClick(Sender : TObject);
procedure TreeStockDblClick(Sender : TObject);
procedure TreeFuncDblClick(Sender : TObject);
procedure _PROC_0074BDA4(Sender : TObject);
procedure _PROC_0074BDD8(Sender : TObject);
procedure _PROC_0074BE30(Sender : TObject);
procedure _PROC_0074BE80(Sender : TObject);
procedure _PROC_0074BE94(Sender : TObject);
procedure _PROC_0074C129(Sender : TObject);
procedure _PROC_0074C1A4(Sender : TObject);
procedure _PROC_0074C67C(Sender : TObject);
procedure _PROC_0074C7F0(Sender : TObject);
procedure _PROC_0074C820(Sender : TObject);
procedure Proc_0074C128(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
frmQJT: TfrmQJT;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TfrmQJT.FormCreate(Sender : TObject);
begin
(*
0074BD44 53 push ebx
0074BD45 8BD8 mov ebx, eax
* Reference to THJ32Main instance
|
0074BD47 A158D37700 mov eax, dword ptr [$0077D358]
0074BD4C 8B00 mov eax, [eax]
* Reference to control THJ32Main.ImageList1 : TImageList
|
0074BD4E 8B9070060000 mov edx, [eax+$0670]
* Reference to control TfrmQJT.PageControl1 : TPageControl
|
0074BD54 8B83D0020000 mov eax, [ebx+$02D0]
* Reference to: comctrls.TCustomTabControl.SetImages(TCustomTabControl;TCustomImageList);
|
0074BD5A E89D77D2FF call 004734FC
0074BD5F BA06000000 mov edx, $00000006
* Reference to control TfrmQJT.TabFunction : TTabSheet
|
0074BD64 8B83D4020000 mov eax, [ebx+$02D4]
* Reference to: comctrls.TTabSheet.SetImageIndex(TTabSheet;TImageIndex);
|
0074BD6A E85982D2FF call 00473FC8
0074BD6F BA10000000 mov edx, $00000010
* Reference to control TfrmQJT.TabStock : TTabSheet
|
0074BD74 8B83D8020000 mov eax, [ebx+$02D8]
* Reference to: comctrls.TTabSheet.SetImageIndex(TTabSheet;TImageIndex);
|
0074BD7A E84982D2FF call 00473FC8
0074BD7F 33D2 xor edx, edx
* Reference to control TfrmQJT.TabInd : TTabSheet
|
0074BD81 8B83DC020000 mov eax, [ebx+$02DC]
* Reference to: comctrls.TTabSheet.SetImageIndex(TTabSheet;TImageIndex);
|
0074BD87 E83C82D2FF call 00473FC8
0074BD8C 8BC3 mov eax, ebx
* Reference to : TfrmQJT._PROC_0074BE80()
|
0074BD8E E8ED000000 call 0074BE80
0074BD93 8BC3 mov eax, ebx
* Reference to : TfrmQJT._PROC_0074BE94()
|
0074BD95 E8FA000000 call 0074BE94
0074BD9A 8BC3 mov eax, ebx
* Reference to : TfrmQJT._PROC_0074C1A4()
|
0074BD9C E803040000 call 0074C1A4
0074BDA1 5B pop ebx
0074BDA2 C3 ret
*)
end;
procedure TfrmQJT.FormDestroy(Sender : TObject);
begin
(*
* Reference to : TfrmQJT._PROC_0074BDA4()
|
0074BDD0 E8CFFFFFFF call 0074BDA4
0074BDD5 C3 ret
*)
end;
procedure TfrmQJT.TreeIndDblClick(Sender : TObject);
begin
(*
0074C35C 53 push ebx
0074C35D 56 push esi
0074C35E 57 push edi
0074C35F 55 push ebp
0074C360 8BF8 mov edi, eax
0074C362 8B87E0020000 mov eax, [edi+$02E0]
* Reference to: comctrls.TCustomTreeView.GetSelection(TCustomTreeView):TTreeNode;
|
0074C368 E843BDD2FF call 004780B0
0074C36D 8BF0 mov esi, eax
0074C36F 85F6 test esi, esi
0074C371 0F849D000000 jz 0074C414
0074C377 8B87E0020000 mov eax, [edi+$02E0]
* Reference to: comctrls.TCustomTreeView.GetSelection(TCustomTreeView):TTreeNode;
|
0074C37D E82EBDD2FF call 004780B0
* Reference to field TfrmQJT.Tag : Longint
|
0074C382 8B580C mov ebx, [eax+$0C]
0074C385 85DB test ebx, ebx
0074C387 0F8487000000 jz 0074C414
0074C38D 803B02 cmp byte ptr [ebx], $02
0074C390 753B jnz 0074C3CD
* Reference to THJ32Main instance
|
0074C392 A158D37700 mov eax, dword ptr [$0077D358]
0074C397 8B00 mov eax, [eax]
* Reference to : THJ32Main._PROC_006ABF08()
|
0074C399 E86AFBF5FF call 006ABF08
* Reference to THJ32Main instance
|
0074C39E A158D37700 mov eax, dword ptr [$0077D358]
0074C3A3 8B00 mov eax, [eax]
* Reference to: forms.TCustomForm.GetActiveMDIChild(TCustomForm):TForm;
|
0074C3A5 E88E75D0FF call 00453938
0074C3AA 85C0 test eax, eax
0074C3AC 741F jz 0074C3CD
* Reference to THJ32Main instance
|
0074C3AE A158D37700 mov eax, dword ptr [$0077D358]
0074C3B3 8B00 mov eax, [eax]
* Reference to: forms.TCustomForm.GetActiveMDIChild(TCustomForm):TForm;
|
0074C3B5 E87E75D0FF call 00453938
* Reference to class TAlysWin
|
0074C3BA 8B157CEE6300 mov edx, [$0063EE7C]
* Reference to: system.@AsClass;
|
0074C3C0 E89770CBFF call 0040345C
* Reference to field Longint.OFFS_0004
|
0074C3C5 8B5304 mov edx, [ebx+$04]
* Reference to : TAlysWin._PROC_006444E8()
|
0074C3C8 E81B81EFFF call 006444E8
0074C3CD 8BC6 mov eax, esi
* Reference to: comctrls.TTreeNode.GetParent(TTreeNode):TTreeNode;
|
0074C3CF E814A0D2FF call 004763E8
0074C3D4 85C0 test eax, eax
0074C3D6 743C jz 0074C414
0074C3D8 8BC6 mov eax, esi
* Reference to: comctrls.TTreeNode.GetParent(TTreeNode):TTreeNode;
|
0074C3DA E809A0D2FF call 004763E8
* Reference to field TfrmQJT.Tag : Longint
|
0074C3DF 8B680C mov ebp, [eax+$0C]
0074C3E2 85ED test ebp, ebp
0074C3E4 742E jz 0074C414
0074C3E6 803B01 cmp byte ptr [ebx], $01
0074C3E9 7529 jnz 0074C414
0074C3EB 8BC6 mov eax, esi
* Reference to: comctrls.TTreeNode.GetParent(TTreeNode):TTreeNode;
|
0074C3ED E872A0D2FF call 00476464
0074C3F2 85C0 test eax, eax
0074C3F4 751E jnz 0074C414
0074C3F6 55 push ebp
0074C3F7 8D97E0020000 lea edx, [edi+$02E0]
0074C3FD A1F0CF7700 mov eax, dword ptr [$0077CFF0]
0074C402 8B00 mov eax, [eax]
0074C404 8BCB mov ecx, ebx
* Reference to: Unit_00707E58.Proc_00708A6C
|
0074C406 E861C6FBFF call 00708A6C
0074C40B 33D2 xor edx, edx
0074C40D 8BC6 mov eax, esi
* Reference to: comctrls.TTreeNode.Expand(TTreeNode;Boolean);
|
0074C40F E8289ED2FF call 0047623C
0074C414 5D pop ebp
0074C415 5F pop edi
0074C416 5E pop esi
0074C417 5B pop ebx
0074C418 C3 ret
*)
end;
procedure TfrmQJT.TreeStockDblClick(Sender : TObject);
begin
(*
0074C41C 55 push ebp
0074C41D 8BEC mov ebp, esp
0074C41F 83C4E0 add esp, -$20
0074C422 53 push ebx
0074C423 56 push esi
0074C424 57 push edi
0074C425 33C9 xor ecx, ecx
0074C427 894DE0 mov [ebp-$20], ecx
0074C42A 894DE4 mov [ebp-$1C], ecx
0074C42D 8945FC mov [ebp-$04], eax
0074C430 33C0 xor eax, eax
0074C432 55 push ebp
0074C433 686CC67400 push $0074C66C
***** TRY
|
0074C438 64FF30 push dword ptr fs:[eax]
0074C43B 648920 mov fs:[eax], esp
0074C43E 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmQJT.TreeStock : TTreeView
|
0074C441 8B80E4020000 mov eax, [eax+$02E4]
* Reference to: comctrls.TCustomTreeView.GetSelection(TCustomTreeView):TTreeNode;
|
0074C447 E864BCD2FF call 004780B0
0074C44C 8BF0 mov esi, eax
0074C44E 85F6 test esi, esi
0074C450 0F84FB010000 jz 0074C651
* Reference to field TTreeView.Tag : Longint
|
0074C456 8B7E0C mov edi, [esi+$0C]
0074C459 85FF test edi, edi
0074C45B 0F84F0010000 jz 0074C651
0074C461 8A07 mov al, byte ptr [edi]
0074C463 2C04 sub al, $04
0074C465 740A jz 0074C471
0074C467 FEC8 dec al
0074C469 7450 jz 0074C4BB
0074C46B 2C03 sub al, $03
0074C46D 745D jz 0074C4CC
0074C46F EB6A jmp 0074C4DB
0074C471 8B45FC mov eax, [ebp-$04]
* Reference to control TfrmQJT.TreeStock : TTreeView
|
0074C474 8B80E4020000 mov eax, [eax+$02E4]
* Reference to: comctrls.TCustomTreeView.GetSelection(TCustomTreeView):TTreeNode;
|
0074C47A E831BCD2FF call 004780B0
* Reference to: comctrls.TTreeNode.GetParent(TTreeNode):TTreeNode;
|
0074C47F E8649FD2FF call 004763E8
* Reference to field TTreeView.Tag : Longint
|
0074C484 8B400C mov eax, [eax+$0C]
0074C487 33D2 xor edx, edx
0074C489 025004 add dl, byte ptr [eax+$04]
0074C48C 33C0 xor eax, eax
0074C48E 024704 add al, byte ptr [edi+$04]
0074C491 3C01 cmp al, $01
0074C493 750C jnz 0074C4A1
* Reference to class THJForm
|
0074C495 A144027500 mov eax, dword ptr [$00750244]
* Reference to : THJForm._PROC_007517C4()
|
0074C49A E825530000 call 007517C4
0074C49F EB0C jmp 0074C4AD
0074C4A1 8BC8 mov ecx, eax
* Reference to class THJForm
|
0074C4A3 A144027500 mov eax, dword ptr [$00750244]
* Reference to : THJForm._PROC_00751740()
|
0074C4A8 E893520000 call 00751740
* Reference to THJ32Main instance
|
0074C4AD A158D37700 mov eax, dword ptr [$0077D358]
0074C4B2 8B00 mov eax, [eax]
* Reference to : THJ32Main._PROC_006AD948()
|
0074C4B4 E88F14F6FF call 006AD948
0074C4B9 EB20 jmp 0074C4DB
0074C4BB 8B5704 mov edx, [edi+$04]
* Reference to THJ32Main instance
|
0074C4BE A158D37700 mov eax, dword ptr [$0077D358]
0074C4C3 8B00 mov eax, [eax]
* Reference to : THJ32Main.Proc_006ADACC()
|
0074C4C5 E80216F6FF call 006ADACC
0074C4CA EB0F jmp 0074C4DB
0074C4CC 8B5704 mov edx, [edi+$04]
* Reference to THJ32Main instance
|
0074C4CF A158D37700 mov eax, dword ptr [$0077D358]
0074C4D4 8B00 mov eax, [eax]
* Reference to : THJ32Main.Proc_006ADB48()
|
0074C4D6 E86D16F6FF call 006ADB48
0074C4DB 803F06 cmp byte ptr [edi], $06
0074C4DE 0F85EB000000 jnz 0074C5CF
0074C4E4 8BC6 mov eax, esi
* Reference to: comctrls.TTreeNode.GetParent(TTreeNode):TTreeNode;
|
0074C4E6 E8799FD2FF call 00476464
0074C4EB 85C0 test eax, eax
0074C4ED 0F85DC000000 jnz 0074C5CF
0074C4F3 8B4704 mov eax, [edi+$04]
0074C4F6 8945F4 mov [ebp-$0C], eax
* Reference to pointer to GlobalVar_0078CF1C
|
0074C4F9 A1C4CA7700 mov eax, dword ptr [$0077CAC4]
0074C4FE 8B00 mov eax, [eax]
* Reference to field GlobalVar_0078CF1C.OFFS_0004
|
0074C500 8B4004 mov eax, [eax+$04]
0074C503 8945EC mov [ebp-$14], eax
* Reference to HJ32Main
|
0074C506 8B45F4 mov eax, [ebp-$0C]
0074C509 8D04C0 lea eax, [eax+eax*8]
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -