unit Unit2;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,
  cxLookAndFeelPainters, cxContainer, cxEdit, dxLayoutcxEditAdapters,
  dxLayoutControlAdapters, cxStyles, cxCustomData, cxFilter, cxData,
  cxDataStorage, cxNavigator, dxDateRanges, dxScrollbarAnnotations, Data.DB,
  cxDBData, cxTextEdit, dxBarBuiltInMenu, cxGeometry, dxFramedControl,
  RM_RichEdit, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_Common,
  RM_Class, RM_GridReport, Datasnap.DBClient, MovePanel, U_KeyBoard, cxGroupBox,
  U_frameBads, dxPanel, Vcl.ComCtrls, Vcl.ToolWin, cxPC, cxGridLevel,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
  cxGridCustomView, cxGrid, Vcl.ExtCtrls, dxLayoutContainer, cxMemo, cxMaskEdit,
  cxDropDownEdit, cxImage, cxDBEdit, cxRichEdit, Vcl.StdCtrls, dxLayoutControl,
  Data.Win.ADODB, cxProgressBar;

type
  TForm2 = class(TForm)
    cxProgressBar2: TcxProgressBar;
    ADOQueryBaseCmd: TADOQuery;
    ADOQueryBaseTemp: TADOQuery;
    Button_set: TButton;
    Piece: TcxTextEdit;
    Qty: TcxTextEdit;
    FtyPCId: TcxTextEdit;
    Color: TcxTextEdit;
    ColorNo: TcxTextEdit;
    CodeName: TcxTextEdit;
    OrderNo: TcxTextEdit;
    BCIOID: TcxTextEdit;
    InputLen: TcxTextEdit;
    BTPrint: TButton;
    Button_bad: TButton;
    btnRK: TButton;
    Edit_pieceOrder: TcxTextEdit;
    Edit_fixLen: TcxTextEdit;
    Tare: TcxTextEdit;
    Coefficient: TcxTextEdit;
    InputWeight: TcxTextEdit;
    BatchNO: TcxTextEdit;
    PieceNo: TcxTextEdit;
    OutPutWeight: TcxTextEdit;
    edtPacketNo: TcxTextEdit;
    AOrdDefNote1: TcxRichEdit;
    cxDBImage1: TcxDBImage;
    grade: TcxComboBox;
    btnUnRk: TButton;
    Btn_rlBill: TButton;
    lblRuleConversion: TcxComboBox;
    packnote: TcxMemo;
    edtScan: TcxTextEdit;
    C_Pattern: TcxTextEdit;
    RuleYardstick: TcxTextEdit;
    C_StyleNo: TcxTextEdit;
    packPostBtn: TButton;
    customStrField1: TcxTextEdit;
    customStrField2: TcxTextEdit;
    C_Width: TcxTextEdit;
    C_GramWeight: TcxTextEdit;
    addLen: TcxTextEdit;
    addWet: TcxTextEdit;
    bt_printmd: TButton;
    presentLen: TcxTextEdit;
    presentWeight: TcxTextEdit;
    unitPieces: TcxTextEdit;
    custName: TcxTextEdit;
    Panel_right: TPanel;
    cxGrid3: TcxGrid;
    Tv3: TcxGridDBTableView;
    v3PieceNo: TcxGridDBColumn;
    Tv3Yardage: TcxGridDBColumn;
    Tv3Meter: TcxGridDBColumn;
    v3NetWeight: TcxGridDBColumn;
    v3GrossWeight: TcxGridDBColumn;
    Tv3Grade: TcxGridDBColumn;
    Tv3PacketNo: TcxGridDBColumn;
    Tv3BatchNO: TcxGridDBColumn;
    tv3CIID: TcxGridDBColumn;
    Tv3FtyPCId: TcxGridDBColumn;
    Tv3SubtractQty: TcxGridDBColumn;
    Tv3AddwetPresent: TcxGridDBColumn;
    Tv3AddLenPresent: TcxGridDBColumn;
    Tv3addlen: TcxGridDBColumn;
    Tv3addWet: TcxGridDBColumn;
    Tv3unitPieces: TcxGridDBColumn;
    cxGridLevel2: TcxGridLevel;
    cxPageControl1: TcxPageControl;
    cxTabSheet1: TcxTabSheet;
    cxGrid2: TcxGrid;
    Tv2: TcxGridDBTableView;
    tv2CDType: TcxGridDBColumn;
    tv2CDWZ: TcxGridDBColumn;
    v2Column2: TcxGridDBColumn;
    Tv2CDQty: TcxGridDBColumn;
    Tv2CDReason: TcxGridDBColumn;
    v2Column1: TcxGridDBColumn;
    v2Column3: TcxGridDBColumn;
    v2Column4: TcxGridDBColumn;
    Tv2SubtractQty: TcxGridDBColumn;
    cxGridLevel1: TcxGridLevel;
    ²ιΏ΄: TcxTabSheet;
    cxGrid1: TcxGrid;
    TV1: TcxGridDBTableView;
    cxGridDBColumn2: TcxGridDBColumn;
    cxGridDBColumn3: TcxGridDBColumn;
    cxGridDBColumn4: TcxGridDBColumn;
    cxGridDBColumn5: TcxGridDBColumn;
    cxGridDBColumn6: TcxGridDBColumn;
    cxGridDBColumn7: TcxGridDBColumn;
    cxGridDBColumn8: TcxGridDBColumn;
    cxGridDBColumn9: TcxGridDBColumn;
    TV1SubtractQty: TcxGridDBColumn;
    cxGridLevel3: TcxGridLevel;
    ToolBar2: TToolBar;
    ToolButton3: TToolButton;
    TprintPack: TToolButton;
    Trolldel: TToolButton;
    ToolButton4: TToolButton;
    Tedit: TToolButton;
    ToolButton7: TToolButton;
    Tlog: TToolButton;
    TgridLiSet: TToolButton;
    ToolButton8: TToolButton;
    dxPanel_mid: TdxPanel;
    frameBads1: TframeBads;
    cxGroupBox_keys: TcxGroupBox;
    FrameKeyBoard1: TFrameKeyBoard;
    MovePanel1: TMovePanel;
    cds_params: TClientDataSet;
    cds_paramsdabao: TStringField;
    cds_paramspackRolls: TIntegerField;
    cds_paramsrollNoMake: TStringField;
    cds_paramsMinWeight: TIntegerField;
    cds_paramsMaxWeight: TIntegerField;
    cds_paramslblLenUnit: TStringField;
    cds_paramsMinLen: TIntegerField;
    cds_paramsmaxLen: TIntegerField;
    cds_paramsweightRule: TIntegerField;
    cds_paramschen: TStringField;
    cds_paramsmabiao: TStringField;
    cds_paramsmbunit: TStringField;
    cds_paramsmplace: TIntegerField;
    cds_paramsyplace: TIntegerField;
    cds_paramskgplace: TIntegerField;
    cds_paramslabNumber: TIntegerField;
    cds_paramsoutPage: TStringField;
    cds_paramsEndPieceNo: TIntegerField;
    cds_paramsBeginPieceNo: TIntegerField;
    cds_paramsFixedLength: TIntegerField;
    cds_paramspacknoMake: TStringField;
    cds_paramspieceOrder: TBooleanField;
    cds_paramsLabVolume: TStringField;
    cds_paramsLabPackage: TStringField;
    cds_paramsAddwetPresent: TFloatField;
    cds_paramsAddLenPresent: TFloatField;
    cds_paramspackPrintPreview: TBooleanField;
    cds_paramspacklabNumber: TIntegerField;
    cds_paramspackPostAction: TStringField;
    CDS_2: TClientDataSet;
    DS_2: TDataSource;
    cds_1: TClientDataSet;
    cds_3: TClientDataSet;
    ds_3: TDataSource;
    ds_1: TDataSource;
    ADOQueryMain: TADOQuery;
    ADOQueryPrint: TADOQuery;
    RM1: TRMGridReport;
    RMDB_1: TRMDBDataSet;
    cxGridPopupMenu1: TcxGridPopupMenu;
    ADOQueryImage: TADOQuery;
    DS_IMAGE: TDataSource;
    RMRichObject1: TRMRichObject;
    procedure ToolButton8Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
  Form2:=nil;
end;

procedure TForm2.ToolButton8Click(Sender: TObject);
begin
  close;
end;

end.