📄 datamain.pas
字号:
unit DataMain;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics,
Controls, Forms, Dialogs, StdCtrls
type
TFrmMain=class(TForm)
Notebook: TNotebook;
CoolBar1: TCoolBar;
BtnDataEdit: TSpeedButton;
BtnDataCon: TSpeedButton;
BtnDataExtract: TSpeedButton;
BtnDataImp: TSpeedButton;
BtnDataDel: TSpeedButton;
Panel8: TPanel;
Panel10: TPanel;
LaDiscriptE: TLabel;
ProgressBarE: TProgressBar;
BtnExtact: TButton;
ZipMaster: TZipMaster;
Panel11: TPanel;
Panel12: TPanel;
Button1: TButton;
ProgressBarR: TProgressBar;
LaDiscriptR: TLabel;
Panel13: TPanel;
Panel14: TPanel;
LaDiscriptD: TLabel;
ProgressBarD: TProgressBar;
BtnDeleteD: TButton;
GroupBox3: TGroupBox;
CbxMin: TCheckBox;
CbxDay: TCheckBox;
Label10: TLabel;
Label13: TLabel;
DtpStartD: TDateTimePicker;
DtpEndD: TDateTimePicker;
Panel7: TPanel;
Panel18: TPanel;
Panel17: TPanel;
Label4: TLabel;
BtnStart: TBitBtn;
LaDisciptC: TLabel;
ProgressBarC: TProgressBar;
Panel9: TPanel;
TimProgress: TTimer;
RxGradientCaption1: TRxGradientCaption;
PgcData: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
Panel3: TPanel;
Panel6: TPanel;
BtnAdd: TBitBtn;
BtnEdit: TBitBtn;
BtnDelete: TBitBtn;
EdtDateTime: TEdit;
EdtOpen: TEdit;
EdtHigh: TEdit;
EdtLow: TEdit;
EdtVolume: TEdit;
EdtClose: TEdit;
EdtMoney: TEdit;
SgdData: TStringGrid;
Panel5: TPanel;
NtbInputWay: TNotebook;
Label14: TLabel;
DtpLocate: TDateTimePicker;
Label2: TLabel;
EdtTime: TEdit;
Panel15: TPanel;
Label11: TLabel;
LabStkName: TLabel;
EdtSkCodeB: TEdit;
Label15: TLabel;
EdtstkCodeF: TEdit;
BtnAddF: TBitBtn;
BtnEditF: TBitBtn;
BtnDeleteF: TBitBtn;
SgdFinance: TStringGrid;
Panel1: TPanel;
PalEdtArrayF: TPanel;
EdtCwny: TEdit;
EdtSsrq: TEdit;
EdtZgb: TEdit;
EdtLtag: TEdit;
EdtMqlt: TEdit;
EdtGyg: TEdit;
EdtFry: TEdit;
EdtZpg: TEdit;
EdtMgsy: TEdit;
EdtMgjzc: TEdit;
EdtZgg: TEdit;
EdtBhg: TEdit;
EdtMggjj: TEdit;
EdtJzcsyl: TEdit;
EdtMgwfp: TEdit;
EdtZcze: TEdit;
EdtGdqybl: TEdit;
EdtHbzj: TEdit;
EdtZysr: TEdit;
EdtZylr: TEdit;
EdtZylrl: TEdit;
EdtTzsy: TEdit;
EdtJlr: TEdit;
EdtXjll: TEdit;
EdtYszk: TEdit;
EdtCh: TEdit;
Label20: TLabel;
EdtStkCodeR: TEdit;
BtnAddR: TBitBtn;
BtnEditR: TBitBtn;
BtnDeleteR: TBitBtn;
SgdRight: TStringGrid;
Panel2: TPanel;
PalEdtArrayR: TPanel;
EdtCqrq: TEdit;
EdtSgs: TEdit;
EdtPgs: TEdit;
EdtPgj: TEdit;
EdtPxs: TEdit;
EdtQltg: TEdit;
EdtHLtg: TEdit;
EdtHZgb: TEdit;
EdtQZgb: TEdit;
Label21: TLabel;
BtnAddB: TBitBtn;
BtnEditB: TBitBtn;
BtnDeleteB: TBitBtn;
SgdBlock: TStringGrid;
Panel4: TPanel;
Panel16: TPanel;
EdtStkCode: TEdit;
LabStkNameR: TLabel;
LabStkNameF: TLabel;
CbxBlockName: TComboBox;
Image1: TImage;
GroupBox7: TGroupBox;
Label3: TLabel;
Label5: TLabel;
Label1: TLabel;
DtpEnd: TDateTimePicker;
DtpStart: TDateTimePicker;
Image2: TImage;
Image3: TImage;
Label6: TLabel;
Label7: TLabel;
DtpStartM: TDateTimePicker;
DtpEndM: TDateTimePicker;
RdgLineKind: TRadioGroup;
EdtGds: TEdit;
Image4: TImage;
GroupBox1: TGroupBox;
Label8: TLabel;
Label9: TLabel;
OFFS_052C: N.A.;
OFFS_0528: N.A.;
OFFS_0540: N.A.;
OFFS_052D: N.A.;
OFFS_052E: N.A.;
OFFS_052F: N.A.;
procedure FormCreate(Sender : TObject);
procedure FormClose(Sender : TObject);
procedure BtnEditClick(Sender : TObject);
procedure SgdDataClick(Sender : TObject);
procedure EdtDateTimeKeyPress(Sender : TObject);
procedure EdtOpenKeyPress(Sender : TObject);
procedure EdtHighKeyPress(Sender : TObject);
procedure EdtLowKeyPress(Sender : TObject);
procedure EdtCloseKeyPress(Sender : TObject);
procedure EdtMoneyKeyPress(Sender : TObject);
procedure EdtVolumeKeyPress(Sender : TObject);
procedure BtnDeleteClick(Sender : TObject);
procedure BtnAddClick(Sender : TObject);
procedure EdtSkCodeBKeyPress(Sender : TObject);
procedure RdgLineKindClick(Sender : TObject);
procedure BtnStartClick(Sender : TObject);
procedure BtnDataEditClick(Sender : TObject);
procedure BtnDataConClick(Sender : TObject);
procedure BtnDataExtractClick(Sender : TObject);
procedure BtnDataImpClick(Sender : TObject);
procedure BtnDataDelClick(Sender : TObject);
procedure RbnSingleClick(Sender : TObject);
procedure BtnExtactClick(Sender : TObject);
procedure DirectoryListBoxEChange(Sender : TObject);
procedure Button1Click(Sender : TObject);
procedure BtnDeleteDClick(Sender : TObject);
procedure DtpLocateChange(Sender : TObject);
procedure EdtTimeKeyPress(Sender : TObject);
procedure NotebookPageChanged(Sender : TObject);
procedure SgdDataKeyPress(Sender : TObject);
procedure TimProgressTimer(Sender : TObject);
procedure EdtstkCodeFKeyPress(Sender : TObject);
procedure SgdFinanceTopLeftChanged(Sender : TObject);
procedure EdtChKeyPress(Sender : TObject);
procedure EdtZpgKeyPress(Sender : TObject);
procedure SgdFinanceClick(Sender : TObject);
procedure BtnEditFClick(Sender : TObject);
procedure BtnAddFClick(Sender : TObject);
procedure BtnDeleteFClick(Sender : TObject);
procedure EdtStkCodeRKeyPress(Sender : TObject);
procedure BtnAddRClick(Sender : TObject);
procedure BtnEditRClick(Sender : TObject);
procedure BtnDeleteRClick(Sender : TObject);
procedure SgdRightClick(Sender : TObject);
procedure SgdRightTopLeftChanged(Sender : TObject);
procedure EdtstkCodeBKeyPress(Sender : TObject);
procedure SgdBlockClick(Sender : TObject);
procedure BtnEditBClick(Sender : TObject);
procedure BtnDeleteBClick(Sender : TObject);
procedure BtnAddBClick(Sender : TObject);
procedure EdtCqrqKeyPress(Sender : TObject);
procedure EdtStkCodeKeyPress(Sender : TObject);
procedure CbxBlockNameChange(Sender : TObject);
procedure CbxBlockNameKeyPress(Sender : TObject);
procedure EdtQltgKeyPress(Sender : TObject);
procedure EdtSsrqKeyPress(Sender : TObject);
procedure EdtCwnyKeyPress(Sender : TObject);
procedure EdtZgbKeyPress(Sender : TObject);
procedure EdtLtagKeyPress(Sender : TObject);
procedure EdtMqltKeyPress(Sender : TObject);
procedure EdtGygKeyPress(Sender : TObject);
procedure EdtFryKeyPress(Sender : TObject);
procedure EdtBhgKeyPress(Sender : TObject);
procedure EdtZggKeyPress(Sender : TObject);
procedure EdtMggjjKeyPress(Sender : TObject);
procedure EdtZczeKeyPress(Sender : TObject);
procedure EdtGdqyblKeyPress(Sender : TObject);
procedure EdtHbzjKeyPress(Sender : TObject);
procedure EdtYszkKeyPress(Sender : TObject);
procedure EdtMgsyKeyPress(Sender : TObject);
procedure EdtMgjzcKeyPress(Sender : TObject);
procedure EdtJzcsylKeyPress(Sender : TObject);
procedure EdtMgwfpKeyPress(Sender : TObject);
procedure EdtZylrlKeyPress(Sender : TObject);
procedure EdtPgsKeyPress(Sender : TObject);
procedure EdtPgjKeyPress(Sender : TObject);
procedure EdtPxsKeyPress(Sender : TObject);
procedure EdtSgsKeyPress(Sender : TObject);
procedure _PROC_005E9285(Sender : TObject);
procedure _PROC_005E93C5(Sender : TObject);
procedure _PROC_005E96A9(Sender : TObject);
procedure _PROC_005E9810(Sender : TObject);
procedure _PROC_005E98E8(Sender : TObject);
procedure _PROC_005E9950(Sender : TObject);
procedure _PROC_005EA839(Sender : TObject);
procedure _PROC_005EA9C8(Sender : TObject);
procedure Proc_005EACA0(Sender : TObject);
procedure Proc_005EADC4(Sender : TObject);
procedure Proc_005EAB40(Sender : TObject);
procedure Proc_005E98CC(Sender : TObject);
procedure Proc_005EA838(Sender : TObject);
procedure Proc_005EA9DC(Sender : TObject);
procedure Proc_005EAFC4(Sender : TObject);
procedure Proc_005EB5F0(Sender : TObject);
procedure Proc_005EBA0C(Sender : TObject);
procedure Proc_005EC438(Sender : TObject);
procedure Proc_005ECE74(Sender : TObject);
procedure Proc_005ED280(Sender : TObject);
procedure Proc_005ED6CC(Sender : TObject);
procedure Proc_005ED720(Sender : TObject);
procedure Proc_005ED9EC(Sender : TObject);
procedure Proc_005E96A8(Sender : TObject);
procedure Proc_005EE184(Sender : TObject);
procedure Proc_005EE920(Sender : TObject);
procedure Proc_005EEA38(Sender : TObject);
procedure Proc_005EEE74(Sender : TObject);
procedure Proc_005EEC38(Sender : TObject);
procedure Proc_005EEAC4(Sender : TObject);
procedure Proc_005EF038(Sender : TObject);
procedure Proc_005EF8C0(Sender : TObject);
procedure Proc_005EF768(Sender : TObject);
procedure Proc_005EF654(Sender : TObject);
procedure Proc_005EED48(Sender : TObject);
procedure Proc_005E93C4(Sender : TObject);
procedure Proc_005E98E4(Sender : TObject);
procedure Proc_005EFBE8(Sender : TObject);
procedure Proc_005EB970(Sender : TObject);
procedure Proc_005EB4A0(Sender : TObject);
procedure Proc_005E9284(Sender : TObject);
procedure Proc_005E90B4(Sender : TObject);
procedure Proc_005ECD64(Sender : TObject);
procedure Proc_005EE300(Sender : TObject);
procedure Proc_005EDE80(Sender : TObject);
procedure Proc_005EF278(Sender : TObject);
procedure Proc_005EF0BC(Sender : TObject);
procedure Proc_005EF6D0(Sender : TObject);
procedure Proc_005EF218(Sender : TObject);
private
{ Private declarations }
public
{ Public declarations }
end ;
var
FrmMain: TFrmMain;
{This file is generated by DeDe Ver 3.50.02 Copyright (c) 1999-2002 DaFixer}
implementation
{$R *.DFM}
procedure TFrmMain.FormCreate(Sender : TObject);
begin
(*
005E9FD4 55 push ebp
005E9FD5 8BEC mov ebp, esp
005E9FD7 6A00 push $00
005E9FD9 6A00 push $00
005E9FDB 6A00 push $00
005E9FDD 53 push ebx
005E9FDE 56 push esi
005E9FDF 8BD8 mov ebx, eax
005E9FE1 33C0 xor eax, eax
005E9FE3 55 push ebp
005E9FE4 6808A25E00 push $005EA208
***** TRY
|
005E9FE9 64FF30 push dword ptr fs:[eax]
005E9FEC 648920 mov fs:[eax], esp
* Reference to field TFrmMain.HelpContext : THelpContext
|
005E9FEF C7835001000032000000 mov dword ptr [ebx+$0150], $00000032
* Reference to: Unit_00409434.Proc_0040C208
|
005E9FF9 E80A22E2FF call 0040C208
005E9FFE 83C4F8 add esp, -$08
005EA001 DD1C24 fstp qword ptr [esp]
005EA004 9B wait
* Reference to control TFrmMain.DtpLocate : TDateTimePicker
|
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -