Group_99/D10xhGemei
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

1

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
T02贸易汇总仓库/U_ClothPurchaseEnterList.dfm
View File

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

185
T03贸易布匹检验/U_MachRollMain.dfm
View File

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

9
T03贸易布匹检验/U_MachRollMain.pas
View File

@ -176,6 +176,15 @@ type
frxRichObject1: TfrxRichObject; frxRichObject1: TfrxRichObject;
frxBarCodeObject1: TfrxBarCodeObject; frxBarCodeObject1: TfrxBarCodeObject;
ToolButton2: TToolButton; 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 FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);