127 lines
3.7 KiB
ObjectPascal
127 lines
3.7 KiB
ObjectPascal
unit U_KKList;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, cxPC, cxControls, ComCtrls, StdCtrls, ExtCtrls, ToolWin,
|
|
cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
|
cxEdit, DB, cxDBData, cxCheckBox, cxCalendar, cxDropDownEdit,
|
|
cxButtonEdit, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
|
cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid;
|
|
|
|
type
|
|
TfrmKKList = class(TForm)
|
|
ToolBar1: TToolBar;
|
|
TBRafresh: TToolButton;
|
|
TBFind: TToolButton;
|
|
ToolButton2: TToolButton;
|
|
TBExport: TToolButton;
|
|
TBPrint: TToolButton;
|
|
TBRKCX: TToolButton;
|
|
TBClose: TToolButton;
|
|
Panel1: TPanel;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Label5: TLabel;
|
|
Label6: TLabel;
|
|
BegDate: TDateTimePicker;
|
|
EndDate: TDateTimePicker;
|
|
orderNo: TEdit;
|
|
MJID: TEdit;
|
|
cxPageControl1: TcxPageControl;
|
|
cxTabSheet1: TcxTabSheet;
|
|
cxTabSheet2: TcxTabSheet;
|
|
cxGrid1: TcxGrid;
|
|
Tv1: TcxGridDBTableView;
|
|
v1Column1: TcxGridDBColumn;
|
|
cxGridDBColumn1: TcxGridDBColumn;
|
|
cxGridDBColumn4: TcxGridDBColumn;
|
|
cxGridDBColumn8: TcxGridDBColumn;
|
|
cxGridDBColumn9: TcxGridDBColumn;
|
|
cxGridDBColumn10: TcxGridDBColumn;
|
|
Tv1Column1: TcxGridDBColumn;
|
|
Tv1Column2: TcxGridDBColumn;
|
|
Tv1Column3: TcxGridDBColumn;
|
|
Tv1Column4: TcxGridDBColumn;
|
|
v1Column13: TcxGridDBColumn;
|
|
v1Column11: TcxGridDBColumn;
|
|
cxGridDBColumn6: TcxGridDBColumn;
|
|
cxGridDBColumn5: TcxGridDBColumn;
|
|
cxGridDBColumn16: TcxGridDBColumn;
|
|
cxGridDBColumn17: TcxGridDBColumn;
|
|
cxGridDBColumn20: TcxGridDBColumn;
|
|
cxGridDBColumn21: TcxGridDBColumn;
|
|
cxGridDBColumn22: TcxGridDBColumn;
|
|
cxGridDBColumn23: TcxGridDBColumn;
|
|
cxGridDBColumn24: TcxGridDBColumn;
|
|
cxGridDBColumn25: TcxGridDBColumn;
|
|
cxGridDBColumn26: TcxGridDBColumn;
|
|
cxGridLevel2: TcxGridLevel;
|
|
cxGrid2: TcxGrid;
|
|
Tv2: TcxGridDBTableView;
|
|
cxGridDBColumn3: TcxGridDBColumn;
|
|
cxGridDBColumn7: TcxGridDBColumn;
|
|
cxGridDBColumn15: TcxGridDBColumn;
|
|
cxGridDBColumn18: TcxGridDBColumn;
|
|
cxGridDBColumn19: TcxGridDBColumn;
|
|
cxGridDBColumn27: TcxGridDBColumn;
|
|
cxGridLevel1: TcxGridLevel;
|
|
cxGrid3: TcxGrid;
|
|
Tv3: TcxGridDBTableView;
|
|
cxGridDBColumn11: TcxGridDBColumn;
|
|
cxGridDBColumn12: TcxGridDBColumn;
|
|
cxGridDBColumn13: TcxGridDBColumn;
|
|
cxGridDBColumn14: TcxGridDBColumn;
|
|
cxGridDBColumn28: TcxGridDBColumn;
|
|
cxGridDBColumn29: TcxGridDBColumn;
|
|
cxGridDBColumn30: TcxGridDBColumn;
|
|
cxGridDBColumn31: TcxGridDBColumn;
|
|
cxGridDBColumn32: TcxGridDBColumn;
|
|
cxGridDBColumn33: TcxGridDBColumn;
|
|
cxGridDBColumn35: TcxGridDBColumn;
|
|
cxGridDBColumn36: TcxGridDBColumn;
|
|
cxGridDBColumn37: TcxGridDBColumn;
|
|
cxGridDBColumn38: TcxGridDBColumn;
|
|
cxGridDBColumn39: TcxGridDBColumn;
|
|
cxGridDBColumn40: TcxGridDBColumn;
|
|
cxGridDBColumn41: TcxGridDBColumn;
|
|
cxGridDBColumn42: TcxGridDBColumn;
|
|
cxGridDBColumn43: TcxGridDBColumn;
|
|
cxGridLevel3: TcxGridLevel;
|
|
v2Column1: TcxGridDBColumn;
|
|
v2Column2: TcxGridDBColumn;
|
|
v2Column3: TcxGridDBColumn;
|
|
v2Column4: TcxGridDBColumn;
|
|
v2Column5: TcxGridDBColumn;
|
|
v2Column6: TcxGridDBColumn;
|
|
v2Column7: TcxGridDBColumn;
|
|
v3Column1: TcxGridDBColumn;
|
|
v3Column2: TcxGridDBColumn;
|
|
procedure FormDestroy(Sender: TObject);
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frmKKList: TfrmKKList;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TfrmKKList.FormDestroy(Sender: TObject);
|
|
begin
|
|
frmKKList:=nil;
|
|
end;
|
|
|
|
procedure TfrmKKList.FormClose(Sender: TObject; var Action: TCloseAction);
|
|
begin
|
|
Action:=caFree;
|
|
end;
|
|
|
|
end.
|