67 lines
1.6 KiB
ObjectPascal
67 lines
1.6 KiB
ObjectPascal
unit U_FinishedLSKCList;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
|
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
|
|
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
|
|
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
|
|
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
|
|
cxDropDownEdit, MovePanel, Menus, cxCheckBox, Clipbrd, cxPC, Math;
|
|
|
|
type
|
|
TfrmFinishedLSKCList = class(TForm)
|
|
ToolBar1: TToolBar;
|
|
TBRafresh: TToolButton;
|
|
TBExport: TToolButton;
|
|
TBClose: TToolButton;
|
|
ADOQueryCmd: TADOQuery;
|
|
ADOQueryMain: TADOQuery;
|
|
ADOQueryTemp: TADOQuery;
|
|
DataSource1: TDataSource;
|
|
cxGridPopupMenu1: TcxGridPopupMenu;
|
|
CDS_Main: TClientDataSet;
|
|
MovePanel2: TMovePanel;
|
|
PopupMenu1: TPopupMenu;
|
|
N1: TMenuItem;
|
|
N2: TMenuItem;
|
|
Panel1: TPanel;
|
|
tbOK: TToolButton;
|
|
Label4: TLabel;
|
|
Label6: TLabel;
|
|
Label9: TLabel;
|
|
Label5: TLabel;
|
|
Label8: TLabel;
|
|
Label7: TLabel;
|
|
Label10: TLabel;
|
|
Y_CodeName: TEdit;
|
|
JYID: TEdit;
|
|
BNo: TEdit;
|
|
orderno: TEdit;
|
|
XNO: TEdit;
|
|
Y_Code: TEdit;
|
|
Y_Spec: TEdit;
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
U_DataLink, U_Fun, U_SysLogHelp;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TfrmFinishedLSKCList.FormClose(Sender: TObject; var Action: TCloseAction);
|
|
begin
|
|
Action := caFree;
|
|
end;
|
|
|
|
end.
|
|
|