📄 unit14.pas
字号:
unit Unit14;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
Tlentdisc=class(TForm)
ToolBar1: TToolBar;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton3: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
ToolButton8: TToolButton;
ToolButton9: TToolButton;
ToolButton10: TToolButton;
ToolButton11: TToolButton;
ImageList1: TImageList;
StatusBar1: TStatusBar;
Panel1: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Bevel1: TBevel;
Label7: TLabel;
Label1: TLabel;
Label9: TLabel;
Label4: TLabel;
Label2: TLabel;
Label3: TLabel;
Label6: TLabel;
Label5: TLabel;
Label8: TLabel;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
Label10: TLabel;
Label11: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Button1: TToolButton;
Button2: TToolButton;
Button3: TToolButton;
Button4: TToolButton;
Button5: TToolButton;
TabSheet2: TTabSheet;
DBGrid1: TDBGrid;
Memo1: TMemo;
ComboBox1: TComboBox;
ComboBox2: TComboBox;
ComboBox3: TComboBox;
UpDown1: TUpDown;
Edit6: TEdit;
DateTimePicker1: TDateTimePicker;
ADOQuery1: TADOQuery;
ADOQuery2: TADOQuery;
DataSource1: TDataSource;
ADOQuery3: TADOQuery;
Label12: TLabel;
Edit7: TEdit;
lt: TLabel;
ADOQuery4: TADOQuery;
ExcelWorkbook1: TExcelWorkbook;
ExcelApplication1: TExcelApplication;
ExcelWorksheet1: TExcelWorksheet;
Label13: TLabel;
Edit8: TEdit;
ADOQuery5: TADOQuery;
procedure ComboBox2Change(Sender : TObject);
procedure FormCreate(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure Button2Click(Sender : TObject);
procedure Button4Click(Sender : TObject);
procedure Button5Click(Sender : TObject);
procedure ToolButton11Click(Sender : TObject);
procedure ToolButton1Click(Sender : TObject);
procedure ToolButton2Click(Sender : TObject);
procedure Edit1KeyPress(Sender : TObject);
procedure Edit2KeyPress(Sender : TObject);
procedure Edit1Enter(Sender : TObject);
procedure Edit1Exit(Sender : TObject);
procedure Edit2Enter(Sender : TObject);
procedure Edit2Exit(Sender : TObject);
procedure Edit7Enter(Sender : TObject);
procedure Edit7Exit(Sender : TObject);
procedure Edit3Enter(Sender : TObject);
procedure Edit3Exit(Sender : TObject);
procedure Edit4Enter(Sender : TObject);
procedure Edit4Exit(Sender : TObject);
procedure ComboBox1Enter(Sender : TObject);
procedure ComboBox1Exit(Sender : TObject);
procedure ComboBox2Enter(Sender : TObject);
procedure ComboBox2Exit(Sender : TObject);
procedure ComboBox3Enter(Sender : TObject);
procedure ComboBox3Exit(Sender : TObject);
procedure Edit5Enter(Sender : TObject);
procedure Edit5Exit(Sender : TObject);
procedure Edit6Enter(Sender : TObject);
procedure Edit6Exit(Sender : TObject);
procedure DateTimePicker1Enter(Sender : TObject);
procedure DateTimePicker1Exit(Sender : TObject);
procedure Memo1Enter(Sender : TObject);
procedure Memo1Exit(Sender : TObject);
procedure ToolButton5Click(Sender : TObject);
procedure ToolButton4Click(Sender : TObject);
procedure ToolButton3Click(Sender : TObject);
procedure SpeedButton3Click(Sender : TObject);
procedure SpeedButton2Click(Sender : TObject);
procedure SpeedButton1Click(Sender : TObject);
procedure DBGrid1CellClick(Sender : TObject);
procedure ToolButton8Click(Sender : TObject);
procedure ToolButton10Click(Sender : TObject);
procedure ToolButton7Click(Sender : TObject);
procedure Edit8KeyPress(Sender : TObject);
procedure FormActivate(Sender : TObject);
procedure Edit8Enter(Sender : TObject);
procedure Edit8Exit(Sender : TObject);
procedure _PROC_0052A941(Sender : TObject);
procedure _PROC_0052C678(Sender : TObject);
procedure _PROC_005304C8(Sender : TObject);
procedure _PROC_005304F8(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
lentdisc: Tlentdisc;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure Tlentdisc.ComboBox2Change(Sender : TObject);
begin
(*
0052B5E0 53 push ebx
0052B5E1 8BD8 mov ebx, eax
* Reference to control Tlentdisc.ComboBox2 : TComboBox
|
0052B5E3 8B83A8030000 mov eax, [ebx+$03A8]
0052B5E9 8B10 mov edx, [eax]
* Reference to method TComboBox.ItemIndex()
|
0052B5EB FF92C8000000 call dword ptr [edx+$00C8]
0052B5F1 85C0 test eax, eax
0052B5F3 752C jnz 0052B621
0052B5F5 BA90B65200 mov edx, $0052B690
* Reference to control Tlentdisc.Edit5 : TEdit
|
0052B5FA 8B8380030000 mov eax, [ebx+$0380]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0052B600 E897D9F1FF call 00448F9C
0052B605 33D2 xor edx, edx
* Reference to control Tlentdisc.Edit5 : TEdit
|
0052B607 8B8380030000 mov eax, [ebx+$0380]
* Reference to: StdCtrls.TCustomEdit.SetReadOnly(TCustomEdit;Boolean);
|
0052B60D E86EB7F0FF call 00436D80
0052B612 B201 mov dl, $01
* Reference to control Tlentdisc.UpDown1 : TUpDown
|
0052B614 8B83B0030000 mov eax, [ebx+$03B0]
0052B61A 8B08 mov ecx, [eax]
* Reference to method TUpDown.SetEnabled(Boolean)
|
0052B61C FF5164 call dword ptr [ecx+$64]
0052B61F EB2A jmp 0052B64B
* Possible String Reference to: '单碟'
|
0052B621 BA9CB65200 mov edx, $0052B69C
* Reference to control Tlentdisc.Edit5 : TEdit
|
0052B626 8B8380030000 mov eax, [ebx+$0380]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0052B62C E86BD9F1FF call 00448F9C
0052B631 B201 mov dl, $01
* Reference to control Tlentdisc.Edit5 : TEdit
|
0052B633 8B8380030000 mov eax, [ebx+$0380]
* Reference to: StdCtrls.TCustomEdit.SetReadOnly(TCustomEdit;Boolean);
|
0052B639 E842B7F0FF call 00436D80
0052B63E 33D2 xor edx, edx
* Reference to control Tlentdisc.UpDown1 : TUpDown
|
0052B640 8B83B0030000 mov eax, [ebx+$03B0]
0052B646 8B08 mov ecx, [eax]
* Reference to method TUpDown.SetEnabled(Boolean)
|
0052B648 FF5164 call dword ptr [ecx+$64]
* Reference to control Tlentdisc.ComboBox2 : TComboBox
|
0052B64B 8B83A8030000 mov eax, [ebx+$03A8]
0052B651 8B10 mov edx, [eax]
* Reference to method TComboBox.ItemIndex()
|
0052B653 FF92C8000000 call dword ptr [edx+$00C8]
0052B659 48 dec eax
0052B65A 752A jnz 0052B686
0052B65C 33D2 xor edx, edx
* Reference to control Tlentdisc.UpDown1 : TUpDown
|
0052B65E 8B83B0030000 mov eax, [ebx+$03B0]
0052B664 8B08 mov ecx, [eax]
* Reference to method TUpDown.SetEnabled(Boolean)
|
0052B666 FF5164 call dword ptr [ecx+$64]
0052B669 B201 mov dl, $01
* Reference to control Tlentdisc.Edit5 : TEdit
|
0052B66B 8B8380030000 mov eax, [ebx+$0380]
* Reference to: StdCtrls.TCustomEdit.SetReadOnly(TCustomEdit;Boolean);
|
0052B671 E80AB7F0FF call 00436D80
* Possible String Reference to: 'A、B双碟'
|
0052B676 BAACB65200 mov edx, $0052B6AC
* Reference to control Tlentdisc.Edit5 : TEdit
|
0052B67B 8B8380030000 mov eax, [ebx+$0380]
* Reference to: Controls.TControl.SetText(TControl;TCaption);
|
0052B681 E816D9F1FF call 00448F9C
0052B686 5B pop ebx
0052B687 C3 ret
*)
end;
procedure Tlentdisc.FormCreate(Sender : TObject);
begin
(*
0052B6B8 55 push ebp
0052B6B9 8BEC mov ebp, esp
0052B6BB B913000000 mov ecx, $00000013
0052B6C0 6A00 push $00
0052B6C2 6A00 push $00
0052B6C4 49 dec ecx
0052B6C5 75F9 jnz 0052B6C0
0052B6C7 53 push ebx
0052B6C8 56 push esi
0052B6C9 8BF2 mov esi, edx
0052B6CB 8BD8 mov ebx, eax
0052B6CD 33C0 xor eax, eax
0052B6CF 55 push ebp
* Possible String Reference to: '閠呿⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -