This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-03-13 13:37:36 +08:00
parent a7de57e54e
commit d5749c5bc9
3 changed files with 131 additions and 88 deletions

View File

@ -20,7 +20,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_TradeTotalClothStk.cxImageList_bar
@ -38,7 +38,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
OnClick = TBRafreshClick
end
object TBFind: TToolButton
Left = 63
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
@ -46,7 +46,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
OnClick = TBFindClick
end
object ToolButton7: TToolButton
Left = 126
Left = 142
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -54,7 +54,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
OnClick = ToolButton7Click
end
object TBClose: TToolButton
Left = 213
Left = 245
Top = 0
AutoSize = True
Caption = #20851#38381
@ -73,8 +73,6 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
ParentBackground = False
ParentColor = True
TabOrder = 5
ExplicitTop = 24
ExplicitWidth = 1735
object Label4: TLabel
Left = 452
Top = 50
@ -142,7 +140,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
TabOrder = 3
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1731
ExplicitWidth = 1412
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
@ -195,7 +193,6 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
#13' '#24050#23436#25104' '
#13' '#20840#37096' '#13)
OnChange = cxTabControl1Change
ExplicitWidth = 1735
ClientRectRight = 0
ClientRectTop = 0
end
@ -207,9 +204,6 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 4
ExplicitLeft = 2
ExplicitTop = 149
ExplicitWidth = 920
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -459,7 +453,6 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
Height = 422
Align = alRight
TabOrder = 6
ExplicitLeft = 1112
object cxGrid2: TcxGrid
Left = 1
Top = 31
@ -468,7 +461,6 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 0
ExplicitLeft = -2
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -565,7 +557,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_TradeTotalClothStk.cxImageList_bar
@ -583,7 +575,7 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
OnClick = ToolButton5Click
end
object ToolButton1: TToolButton
Left = 87
Left = 103
Top = 0
AutoSize = True
Caption = #20462#25913
@ -600,9 +592,6 @@ inherited frmClothPurchaseEnterList: TfrmClothPurchaseEnterList
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salRight
Control = Panel2
ExplicitLeft = 0
ExplicitTop = 557
ExplicitHeight = 1479
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink

View File

@ -29,8 +29,8 @@ inherited frmMachRollMain: TfrmMachRollMain
OnClick = FrameKeyBoard1SpeedButton1Click
OnDblClick = dxLayoutControl_packDblClick
object Qty: TcxTextEdit
Left = 79
Top = 154
Left = 81
Top = 147
Properties.ReadOnly = True
Style.HotTrack = False
Style.TransparentBorder = False
@ -38,8 +38,8 @@ inherited frmMachRollMain: TfrmMachRollMain
Width = 111
end
object FtyPCId: TcxTextEdit
Left = 79
Top = 121
Left = 81
Top = 118
Properties.ReadOnly = False
Style.HotTrack = False
Style.TransparentBorder = False
@ -48,8 +48,8 @@ inherited frmMachRollMain: TfrmMachRollMain
Width = 111
end
object Color: TcxTextEdit
Left = 239
Top = 88
Left = 241
Top = 89
Properties.ReadOnly = True
Style.HotTrack = False
Style.TransparentBorder = False
@ -57,8 +57,8 @@ inherited frmMachRollMain: TfrmMachRollMain
Width = 161
end
object ColorNo: TcxTextEdit
Left = 79
Top = 88
Left = 81
Top = 89
Properties.ReadOnly = True
Style.HotTrack = False
Style.TransparentBorder = False
@ -66,8 +66,8 @@ inherited frmMachRollMain: TfrmMachRollMain
Width = 111
end
object CodeName: TcxTextEdit
Left = 239
Top = 55
Left = 241
Top = 60
Properties.ReadOnly = True
Style.HotTrack = False
Style.TransparentBorder = False
@ -75,8 +75,8 @@ inherited frmMachRollMain: TfrmMachRollMain
Width = 161
end
object OrderNo: TcxTextEdit
Left = 79
Top = 55
Left = 81
Top = 60
Properties.ReadOnly = True
Style.HotTrack = False
Style.TransparentBorder = False
@ -84,8 +84,8 @@ inherited frmMachRollMain: TfrmMachRollMain
Width = 111
end
object BCIOID: TcxTextEdit
Left = 239
Top = 121
Left = 241
Top = 118
Properties.ReadOnly = True
Style.HotTrack = False
Style.TransparentBorder = False
@ -94,8 +94,8 @@ inherited frmMachRollMain: TfrmMachRollMain
end
object InputLen: TcxTextEdit
Tag = 999
Left = 79
Top = 209
Left = 81
Top = 202
AutoSize = False
Properties.ReadOnly = False
Properties.OnChange = InputLenPropertiesChange
@ -108,8 +108,8 @@ inherited frmMachRollMain: TfrmMachRollMain
Width = 132
end
object BTPrint: TButton
Left = 259
Top = 253
Left = 261
Top = 246
Width = 120
Height = 59
Caption = #25552' '#20132
@ -118,8 +118,8 @@ inherited frmMachRollMain: TfrmMachRollMain
end
object Tare: TcxTextEdit
Tag = 999
Left = 158
Top = 253
Left = 160
Top = 246
AutoSize = False
Properties.OnChange = InputLenPropertiesChange
Style.HotTrack = False
@ -132,8 +132,8 @@ inherited frmMachRollMain: TfrmMachRollMain
end
object Coefficient: TcxTextEdit
Tag = 999
Left = 79
Top = 321
Left = 81
Top = 314
AutoSize = False
Properties.ReadOnly = False
Style.HotTrack = False
@ -146,8 +146,8 @@ inherited frmMachRollMain: TfrmMachRollMain
end
object InputWeight: TcxTextEdit
Tag = 999
Left = 79
Top = 253
Left = 81
Top = 246
AutoSize = False
Properties.OnChange = InputLenPropertiesChange
Style.HotTrack = False
@ -174,7 +174,7 @@ inherited frmMachRollMain: TfrmMachRollMain
end
object AOrdDefNote1: TcxRichEdit
Left = 1
Top = 379
Top = 369
Properties.ReadOnly = True
Properties.ScrollBars = ssBoth
Style.HotTrack = False
@ -202,8 +202,8 @@ inherited frmMachRollMain: TfrmMachRollMain
end
object lblRuleConversion: TcxComboBox
Tag = 2
Left = 140
Top = 321
Left = 142
Top = 314
AutoSize = False
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
@ -226,7 +226,7 @@ inherited frmMachRollMain: TfrmMachRollMain
object packnote: TcxMemo
Tag = 999
Left = 191
Top = 379
Top = 369
Properties.ReadOnly = True
Properties.ScrollBars = ssVertical
Style.HotTrack = False
@ -436,7 +436,7 @@ inherited frmMachRollMain: TfrmMachRollMain
AllowRemove = False
CaptionOptions.Text = '[B][COLOR=#FF0000][SIZE=12]'#25195#25551#26465#30721'[/SIZE][/COLOR][/B]'
Control = edtScan
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 27
ControlOptions.OriginalWidth = 148
ControlOptions.ShowBorder = False
OnCaptionClick = dxLayoutItem1CaptionClick
@ -448,7 +448,7 @@ inherited frmMachRollMain: TfrmMachRollMain
AllowRemove = False
CaptionOptions.Text = #25351#31034#21333
Control = OrderNo
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 144
ControlOptions.ShowBorder = False
Index = 0
@ -472,7 +472,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Offsets.Left = 5
CaptionOptions.Text = #26579#21378#32568#21495
Control = FtyPCId
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 144
ControlOptions.ShowBorder = False
Index = 2
@ -482,7 +482,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Offsets.Left = 5
CaptionOptions.Text = #33394#21495
Control = ColorNo
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 144
ControlOptions.ShowBorder = False
Index = 1
@ -493,7 +493,7 @@ inherited frmMachRollMain: TfrmMachRollMain
AllowRemove = False
CaptionOptions.Text = #25968#37327
Control = Qty
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 144
ControlOptions.ShowBorder = False
Index = 3
@ -531,7 +531,7 @@ inherited frmMachRollMain: TfrmMachRollMain
AllowRemove = False
CaptionOptions.Text = #21697#21517
Control = CodeName
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 144
ControlOptions.ShowBorder = False
Index = 0
@ -541,7 +541,7 @@ inherited frmMachRollMain: TfrmMachRollMain
AllowRemove = False
CaptionOptions.Text = #39068#33394
Control = Color
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 144
ControlOptions.ShowBorder = False
Index = 1
@ -550,7 +550,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Parent = dxLayoutGroup_plan_2
CaptionOptions.Text = #21345#21495
Control = BCIOID
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 144
ControlOptions.ShowBorder = False
Index = 2
@ -817,7 +817,7 @@ inherited frmMachRollMain: TfrmMachRollMain
object dxLayoutItem_Pattern: TdxLayoutItem
CaptionOptions.Text = #33457#22411
Control = C_Pattern
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 124
ControlOptions.ShowBorder = False
Index = -1
@ -833,7 +833,7 @@ inherited frmMachRollMain: TfrmMachRollMain
object dxLayoutItem_StyleNo: TdxLayoutItem
CaptionOptions.Text = #27454#21495
Control = C_StyleNo
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 168
ControlOptions.ShowBorder = False
Index = -1
@ -841,7 +841,7 @@ inherited frmMachRollMain: TfrmMachRollMain
object dxLayoutItem_customStrField1: TdxLayoutItem
CaptionOptions.Text = #33258#23450#20041#36755#20837'1'
Control = customStrField1
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 121
ControlOptions.ShowBorder = False
Index = -1
@ -849,7 +849,7 @@ inherited frmMachRollMain: TfrmMachRollMain
object dxLayoutItem_customStrField2: TdxLayoutItem
CaptionOptions.Text = #33258#23450#20041#36755#20837'2'
Control = customStrField2
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 121
ControlOptions.ShowBorder = False
Index = -1
@ -857,7 +857,7 @@ inherited frmMachRollMain: TfrmMachRollMain
object dxLayoutItem_width: TdxLayoutItem
CaptionOptions.Text = #38376#24133
Control = C_Width
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 121
ControlOptions.ShowBorder = False
Index = -1
@ -865,7 +865,7 @@ inherited frmMachRollMain: TfrmMachRollMain
object dxLayoutItem_gram: TdxLayoutItem
CaptionOptions.Text = #20811#37325
Control = C_GramWeight
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 121
ControlOptions.ShowBorder = False
Index = -1
@ -873,7 +873,7 @@ inherited frmMachRollMain: TfrmMachRollMain
object dxLayoutItem_addlen: TdxLayoutItem
CaptionOptions.Text = #21152#38271
Control = addLen
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 121
ControlOptions.ShowBorder = False
Index = -1
@ -881,7 +881,7 @@ inherited frmMachRollMain: TfrmMachRollMain
object dxLayoutItem_addwet: TdxLayoutItem
CaptionOptions.Text = #21152#37325
Control = addWet
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 121
ControlOptions.ShowBorder = False
Index = -1
@ -898,7 +898,7 @@ inherited frmMachRollMain: TfrmMachRollMain
object dxLayoutItem_presentLen: TdxLayoutItem
CaptionOptions.Text = #36192#36865#38271#24230
Control = presentLen
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 121
ControlOptions.ShowBorder = False
Index = -1
@ -906,7 +906,7 @@ inherited frmMachRollMain: TfrmMachRollMain
object dxLayoutItem_presentWeight: TdxLayoutItem
CaptionOptions.Text = #36192#36865#37325#37327
Control = presentWeight
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 121
ControlOptions.ShowBorder = False
Index = -1
@ -914,7 +914,7 @@ inherited frmMachRollMain: TfrmMachRollMain
object dxLayoutItem_unitPieces: TdxLayoutItem
CaptionOptions.Text = #25340#21305
Control = unitPieces
ControlOptions.OriginalHeight = 33
ControlOptions.OriginalHeight = 29
ControlOptions.OriginalWidth = 121
ControlOptions.ShowBorder = False
Index = -1
@ -936,7 +936,7 @@ inherited frmMachRollMain: TfrmMachRollMain
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 107
ButtonWidth = 131
Caption = 'ToolBar1'
EdgeInner = esNone
EdgeOuter = esNone
@ -953,7 +953,7 @@ inherited frmMachRollMain: TfrmMachRollMain
OnClick = ToolButton3Click
end
object Trolldel: TToolButton
Left = 63
Left = 71
Top = 0
AutoSize = True
Caption = #21024#38500
@ -961,14 +961,14 @@ inherited frmMachRollMain: TfrmMachRollMain
OnClick = TrolldelClick
end
object ToolButton4: TToolButton
Left = 126
Left = 142
Top = 0
AutoSize = True
Caption = #30133#28857#31649#29702
ImageIndex = 2
end
object ToolButton2: TToolButton
Left = 213
Left = 245
Top = 0
AutoSize = True
Caption = #25171#21360#24211#23384#26631#31614
@ -976,7 +976,7 @@ inherited frmMachRollMain: TfrmMachRollMain
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 324
Left = 380
Top = 0
AutoSize = True
Caption = #25171#21367#35774#32622
@ -984,7 +984,7 @@ inherited frmMachRollMain: TfrmMachRollMain
OnClick = ToolButton1Click
end
object ToolButton7: TToolButton
Left = 411
Left = 483
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -992,14 +992,14 @@ inherited frmMachRollMain: TfrmMachRollMain
OnClick = ToolButton7Click
end
object Tlog: TToolButton
Left = 498
Left = 586
Top = 0
AutoSize = True
Caption = #26085#24535
ImageIndex = 30
end
object ToolButton8: TToolButton
Left = 561
Left = 657
Top = 0
AutoSize = True
Caption = #20851#38381
@ -1010,10 +1010,10 @@ inherited frmMachRollMain: TfrmMachRollMain
object cxGrid3: TcxGrid
Tag = 9999
Left = 1
Top = 31
Top = 576
Width = 844
Height = 819
Align = alClient
Height = 274
Align = alBottom
TabOrder = 1
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
@ -1145,6 +1145,51 @@ inherited frmMachRollMain: TfrmMachRollMain
GridView = Tv3
end
end
object cxGrid1: TcxGrid
Tag = 9999
Left = 1
Top = 31
Width = 844
Height = 545
Align = alClient
TabOrder = 2
ExplicitHeight = 154
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCustomDrawCell = Tv3CustomDrawCell
DataController.DataSource = ds_3
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object cxgrdbclmnTV1Column1: TcxGridDBColumn
DataBinding.IsNullValueType = True
end
object cxgrdbclmnTV1Column2: TcxGridDBColumn
DataBinding.IsNullValueType = True
end
object cxgrdbclmnTV1Column3: TcxGridDBColumn
DataBinding.IsNullValueType = True
end
object cxgrdbclmnTV1Column4: TcxGridDBColumn
DataBinding.IsNullValueType = True
end
object cxgrdbclmnTV1Column5: TcxGridDBColumn
DataBinding.IsNullValueType = True
end
object cxgrdbclmnTV1Column6: TcxGridDBColumn
DataBinding.IsNullValueType = True
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV1
end
end
end
object cxGroupBox_keys: TcxGroupBox [2]
Left = 8
@ -1158,21 +1203,21 @@ inherited frmMachRollMain: TfrmMachRollMain
Height = 245
Width = 319
inline FrameKeyBoard1: TFrameKeyBoard
Left = 4
Top = 23
Width = 311
Height = 206
Left = 2
Top = 26
Width = 315
Height = 217
Align = alClient
TabOrder = 0
ExplicitLeft = 4
ExplicitTop = 23
ExplicitWidth = 311
ExplicitHeight = 206
ExplicitLeft = 2
ExplicitTop = 26
ExplicitWidth = 315
ExplicitHeight = 217
inherited dxPanel1: TdxPanel
Width = 311
Height = 206
ExplicitWidth = 311
ExplicitHeight = 206
Width = 315
Height = 217
ExplicitWidth = 315
ExplicitHeight = 217
inherited SpeedButton1: TSpeedButton
OnClick = FrameKeyBoard1SpeedButton1Click
end

View File

@ -176,6 +176,15 @@ type
frxRichObject1: TfrxRichObject;
frxBarCodeObject1: TfrxBarCodeObject;
ToolButton2: TToolButton;
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
cxgrdbclmnTV1Column1: TcxGridDBColumn;
cxgrdbclmnTV1Column2: TcxGridDBColumn;
cxgrdbclmnTV1Column3: TcxGridDBColumn;
cxgrdbclmnTV1Column4: TcxGridDBColumn;
cxgrdbclmnTV1Column5: TcxGridDBColumn;
cxgrdbclmnTV1Column6: TcxGridDBColumn;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);