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.
|