208 lines
6.3 KiB
ObjectPascal
208 lines
6.3 KiB
ObjectPascal
|
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;
|
|||
|
|
<EFBFBD>鿴: 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.
|