49 lines
1.1 KiB
ObjectPascal
49 lines
1.1 KiB
ObjectPascal
|
unit U;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
|
|
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
||
|
|
cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, DBClient, ADODB,
|
||
|
|
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
||
|
|
cxClasses, cxControls, cxGridCustomView, cxGrid, StdCtrls, ExtCtrls,
|
||
|
|
ComCtrls, ToolWin;
|
||
|
|
|
||
|
|
type
|
||
|
|
TForm1 = class(TForm)
|
||
|
|
ToolBar1: TToolBar;
|
||
|
|
ToolButton2: TToolButton;
|
||
|
|
TBClose: TToolButton;
|
||
|
|
Panel1: TPanel;
|
||
|
|
Label1: TLabel;
|
||
|
|
APID: TEdit;
|
||
|
|
cxGrid2: TcxGrid;
|
||
|
|
Tv2: TcxGridDBTableView;
|
||
|
|
tv2CDType: TcxGridDBColumn;
|
||
|
|
tv2CDWZ: TcxGridDBColumn;
|
||
|
|
v2Column2: TcxGridDBColumn;
|
||
|
|
Tv2CDQty: TcxGridDBColumn;
|
||
|
|
Tv2CDReason: TcxGridDBColumn;
|
||
|
|
v2Column1: TcxGridDBColumn;
|
||
|
|
cxGridLevel1: TcxGridLevel;
|
||
|
|
ADOTmp: TADOQuery;
|
||
|
|
ADOQueryMain: TADOQuery;
|
||
|
|
ADOCmd: TADOQuery;
|
||
|
|
DataSource1: TDataSource;
|
||
|
|
Order_MJ: TClientDataSet;
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
Form1: TForm1;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
end.
|