Group_02/D10sxYilanbuyi
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

11

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2025-07-09 16:55:19 +08:00
parent c011567d90
commit ca2a7d5d28
15 changed files with 6625 additions and 1789 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
A02基础产品管理/ClothInfo.dproj.local
View File

@ -42,9 +42,9 @@
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>2025/06/13 15:31:04.000.480,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas</Transaction> <Transaction>2025/06/13 15:31:04.000.480,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>2025/06/13 15:43:57.000.936,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A02基础产品管理\U_ClothInfoInput.pas</Transaction> <Transaction>2025/06/13 15:43:57.000.936,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A02基础产品管理\U_ClothInfoInput.pas</Transaction>
</Transactions> </Transactions>

4
A02基础产品管理/U_ClothInfo.pas
View File

@ -184,6 +184,7 @@ type
public public
dFdDy: array[0..20] of FdDy; //客户端连接数组 dFdDy: array[0..20] of FdDy; //客户端连接数组
FTechnicsID : string;
{ Public declarations } { Public declarations }
end; end;
@ -629,7 +630,8 @@ begin
begin begin
CopyInt := 0; CopyInt := 0;
FBCIID := ''; FBCIID := '';
FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString); FTechnicsID := '';
// FCTID := Trim(Self.CDS_Tree.fieldbyname('TechnicsID').AsString);
if ShowModal = 1 then if ShowModal = 1 then
begin begin

123
A02基础产品管理/U_ClothInfoInput.dfm
View File

@ -336,43 +336,42 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 1074 Width = 1074
Height = 346 Height = 346
Align = alBottom Align = alBottom
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 29 TabOrder = 29
ExplicitTop = 337 ExplicitTop = 337
object TV4: TcxGridDBTableView object TV4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_GX DataController.DataSource = DS_GY
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <> DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.Indicator = True object TV4GYNO: TcxGridDBColumn
object cxGridDBColumn1: TcxGridDBColumn Caption = #24037#33402#32534#21495
Caption = #24207#21495 DataBinding.FieldName = 'DTMNO'
DataBinding.FieldName = 'serialno'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 71 Width = 80
end end
object cxGridDBColumn2: TcxGridDBColumn object TV4GYName: TcxGridDBColumn
Caption = #21407#26009#21517#31216 Caption = #24037#33402#21517#31216
DataBinding.FieldName = 'GXName' DataBinding.FieldName = 'DTMName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 80
end end
object cxGridDBColumn11: TcxGridDBColumn object TV4GYGX: TcxGridDBColumn
Caption = #22791#27880 Caption = #24037#24207
DataBinding.FieldName = 'NOTE' DataBinding.FieldName = 'DTMPSlist'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 142 Width = 455
end
object TV4DTMID: TcxGridDBColumn
Caption = #24037#33402#20027#38190
DataBinding.FieldName = 'DTMID'
DataBinding.IsNullValueType = True
Visible = False
end end
end end
object cxGridLevel4: TcxGridLevel object cxGridLevel4: TcxGridLevel
@ -426,7 +425,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Top = 7 Top = 7
Width = 84 Width = 84
Height = 20 Height = 20
Caption = #24037#24207#20449#24687 Caption = #24037#33402#20449#24687
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clRed Font.Color = clRed
Font.Height = -20 Font.Height = -20
@ -439,7 +438,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Tag = 1 Tag = 1
Left = 185 Left = 185
Top = 1 Top = 1
Width = 572 Width = 643
Height = 39 Height = 39
Align = alLeft Align = alLeft
AutoSize = True AutoSize = True
@ -466,7 +465,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Top = 0 Top = 0
Caption = #32763#24067 Caption = #32763#24067
ImageIndex = 2 ImageIndex = 2
OnClick = TbFBClick Visible = False
end end
object TbQX: TToolButton object TbQX: TToolButton
Left = 75 Left = 75
@ -474,7 +473,7 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True AutoSize = True
Caption = #28165#27927 Caption = #28165#27927
ImageIndex = 2 ImageIndex = 2
OnClick = TbQXClick Visible = False
end end
object TbDX: TToolButton object TbDX: TToolButton
Left = 146 Left = 146
@ -482,7 +481,7 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True AutoSize = True
Caption = #23450#22411 Caption = #23450#22411
ImageIndex = 2 ImageIndex = 2
OnClick = TbDXClick Visible = False
end end
object TbFS: TToolButton object TbFS: TToolButton
Left = 217 Left = 217
@ -490,7 +489,7 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True AutoSize = True
Caption = #38450#27700 Caption = #38450#27700
ImageIndex = 2 ImageIndex = 2
OnClick = TbFSClick Visible = False
end end
object TbFP: TToolButton object TbFP: TToolButton
Left = 288 Left = 288
@ -498,7 +497,7 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True AutoSize = True
Caption = #21457#27873 Caption = #21457#27873
ImageIndex = 2 ImageIndex = 2
OnClick = TbFPClick Visible = False
end end
object TbGJ: TToolButton object TbGJ: TToolButton
Left = 359 Left = 359
@ -506,7 +505,7 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True AutoSize = True
Caption = #21038#33014 Caption = #21038#33014
ImageIndex = 2 ImageIndex = 2
OnClick = TbGJClick Visible = False
end end
object TbZM: TToolButton object TbZM: TToolButton
Left = 430 Left = 430
@ -514,15 +513,22 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True AutoSize = True
Caption = #36711#27611 Caption = #36711#27611
ImageIndex = 2 ImageIndex = 2
OnClick = TbZMClick Visible = False
end
object TbAdd: TToolButton
Left = 501
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = TbAddClick
end end
object TbDelete: TToolButton object TbDelete: TToolButton
Left = 501 Left = 572
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
ImageIndex = 6 ImageIndex = 6
OnClick = TbDeleteClick
end end
end end
end end
@ -800,7 +806,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25 Height = 25
Caption = #19968#38190#26367#25442 Caption = #19968#38190#26367#25442
TabOrder = 28 TabOrder = 28
OnClick = TbCPReplaceClick
end end
object cxButton2: TcxButton object cxButton2: TcxButton
Left = 168 Left = 168
@ -809,7 +814,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25 Height = 25
Caption = #19968#38190#28165#31354 Caption = #19968#38190#28165#31354
TabOrder = 29 TabOrder = 29
OnClick = cxButton2Click
end end
end end
end end
@ -1245,7 +1249,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25 Height = 25
Caption = #19968#38190#26367#25442 Caption = #19968#38190#26367#25442
TabOrder = 48 TabOrder = 48
OnClick = TbDXReplaceClick
end end
object TbDXClear: TcxButton object TbDXClear: TcxButton
Left = 182 Left = 182
@ -1254,7 +1257,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25 Height = 25
Caption = #19968#38190#28165#31354 Caption = #19968#38190#28165#31354
TabOrder = 49 TabOrder = 49
OnClick = TbDXClearClick
end end
end end
end end
@ -1684,7 +1686,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25 Height = 25
Caption = #19968#38190#26367#25442 Caption = #19968#38190#26367#25442
TabOrder = 48 TabOrder = 48
OnClick = TbDX2ReplaceClick
end end
object TbDX2Clear: TcxButton object TbDX2Clear: TcxButton
Left = 182 Left = 182
@ -1693,7 +1694,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25 Height = 25
Caption = #19968#38190#28165#31354 Caption = #19968#38190#28165#31354
TabOrder = 49 TabOrder = 49
OnClick = TbDX2ClearClick
end end
end end
end end
@ -2123,7 +2123,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25 Height = 25
Caption = #19968#38190#26367#25442 Caption = #19968#38190#26367#25442
TabOrder = 48 TabOrder = 48
OnClick = TbDX3ReplaceClick
end end
object TbDX3Clear: TcxButton object TbDX3Clear: TcxButton
Left = 182 Left = 182
@ -2132,7 +2131,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25 Height = 25
Caption = #19968#38190#28165#31354 Caption = #19968#38190#28165#31354
TabOrder = 49 TabOrder = 49
OnClick = TbDX3ClearClick
end end
end end
end end
@ -2695,7 +2693,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Tag = 2 Tag = 2
Left = 116 Left = 116
Top = 187 Top = 187
Properties.OnChange = fs_meterPropertiesChange
Style.LookAndFeel.SkinName = 'WXI' Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
@ -2742,7 +2739,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Tag = 2 Tag = 2
Left = 430 Left = 430
Top = 186 Top = 186
Properties.OnChange = fs_meterPropertiesChange
Style.LookAndFeel.SkinName = 'WXI' Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI'
@ -2757,7 +2753,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25 Height = 25
Caption = #19968#38190#26367#25442 Caption = #19968#38190#26367#25442
TabOrder = 63 TabOrder = 63
OnClick = TbFSReplaceClick
end end
object cxButton1: TcxButton object cxButton1: TcxButton
Left = 176 Left = 176
@ -2766,7 +2761,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25 Height = 25
Caption = #19968#38190#28165#31354 Caption = #19968#38190#28165#31354
TabOrder = 64 TabOrder = 64
OnClick = cxButton1Click
end end
end end
object ToolBar4: TToolBar object ToolBar4: TToolBar
@ -2789,7 +2783,6 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True AutoSize = True
Caption = #22686#34892 Caption = #22686#34892
ImageIndex = 2 ImageIndex = 2
OnClick = TbAdd1Click
end end
object TbDel1: TToolButton object TbDel1: TToolButton
Left = 71 Left = 71
@ -2797,7 +2790,6 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True AutoSize = True
Caption = #21024#34892 Caption = #21024#34892
ImageIndex = 6 ImageIndex = 6
OnClick = TbDel1Click
end end
end end
end end
@ -3456,7 +3448,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25 Height = 25
Caption = #19968#38190#26367#25442 Caption = #19968#38190#26367#25442
TabOrder = 66 TabOrder = 66
OnClick = TbFPReplaceClick
end end
object cxButton4: TcxButton object cxButton4: TcxButton
Left = 173 Left = 173
@ -3465,7 +3456,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25 Height = 25
Caption = #19968#38190#28165#31354 Caption = #19968#38190#28165#31354
TabOrder = 67 TabOrder = 67
OnClick = cxButton4Click
end end
end end
object ToolBar3: TToolBar object ToolBar3: TToolBar
@ -3488,7 +3478,6 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True AutoSize = True
Caption = #22686#34892 Caption = #22686#34892
ImageIndex = 2 ImageIndex = 2
OnClick = TbAdd2Click
end end
object TbDel21: TToolButton object TbDel21: TToolButton
Left = 71 Left = 71
@ -3496,7 +3485,6 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True AutoSize = True
Caption = #21024#34892 Caption = #21024#34892
ImageIndex = 6 ImageIndex = 6
OnClick = TbDel2Click
end end
end end
end end
@ -3516,6 +3504,8 @@ object frmClothInfoInput: TfrmClothInfoInput
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 0 TabOrder = 0
ExplicitLeft = 200
ExplicitTop = 520
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -3558,7 +3548,6 @@ object frmClothInfoInput: TfrmClothInfoInput
DataBinding.FieldName = 'gj_unit' DataBinding.FieldName = 'gj_unit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv3gj_unitPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
@ -3567,7 +3556,6 @@ object frmClothInfoInput: TfrmClothInfoInput
DataBinding.FieldName = 'gj_rate' DataBinding.FieldName = 'gj_rate'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = Tv3gj_unitPropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
@ -4092,7 +4080,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25 Height = 25
Caption = #19968#38190#26367#25442 Caption = #19968#38190#26367#25442
TabOrder = 57 TabOrder = 57
OnClick = TbGJReplaceClick
end end
object TbGJClear: TcxButton object TbGJClear: TcxButton
Left = 171 Left = 171
@ -4101,7 +4088,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25 Height = 25
Caption = #19968#38190#28165#31354 Caption = #19968#38190#28165#31354
TabOrder = 58 TabOrder = 58
OnClick = TbGJClearClick
end end
end end
object ToolBar5: TToolBar object ToolBar5: TToolBar
@ -4124,7 +4110,6 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True AutoSize = True
Caption = #22686#34892 Caption = #22686#34892
ImageIndex = 2 ImageIndex = 2
OnClick = TbAdd3Click
end end
object TbDel3: TToolButton object TbDel3: TToolButton
Left = 79 Left = 79
@ -4132,7 +4117,6 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True AutoSize = True
Caption = #21024#34892 Caption = #21024#34892
ImageIndex = 6 ImageIndex = 6
OnClick = TbDel3Click
end end
end end
end end
@ -4631,7 +4615,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25 Height = 25
Caption = #19968#38190#26367#25442 Caption = #19968#38190#26367#25442
TabOrder = 57 TabOrder = 57
OnClick = TbGJ2ReplaceClick
end end
object TbGJ2Clear: TcxButton object TbGJ2Clear: TcxButton
Left = 171 Left = 171
@ -4640,7 +4623,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25 Height = 25
Caption = #19968#38190#28165#31354 Caption = #19968#38190#28165#31354
TabOrder = 58 TabOrder = 58
OnClick = TbGJ2ClearClick
end end
end end
object ToolBar6: TToolBar object ToolBar6: TToolBar
@ -4663,7 +4645,6 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True AutoSize = True
Caption = #22686#34892 Caption = #22686#34892
ImageIndex = 2 ImageIndex = 2
OnClick = ToolButton1Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 79 Left = 79
@ -4671,7 +4652,6 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True AutoSize = True
Caption = #21024#34892 Caption = #21024#34892
ImageIndex = 6 ImageIndex = 6
OnClick = ToolButton2Click
end end
end end
object cxGrid5: TcxGrid object cxGrid5: TcxGrid
@ -4713,7 +4693,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Default = True Default = True
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.OnButtonClick = cxGridDBColumn4PropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
@ -4729,7 +4708,6 @@ object frmClothInfoInput: TfrmClothInfoInput
DataBinding.FieldName = 'gj_unit' DataBinding.FieldName = 'gj_unit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = cxGridDBColumn6PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
@ -4738,7 +4716,6 @@ object frmClothInfoInput: TfrmClothInfoInput
DataBinding.FieldName = 'gj_rate' DataBinding.FieldName = 'gj_rate'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = cxGridDBColumn6PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
@ -5267,7 +5244,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25 Height = 25
Caption = #19968#38190#26367#25442 Caption = #19968#38190#26367#25442
TabOrder = 57 TabOrder = 57
OnClick = TbGJ3ReplaceClick
end end
object TbGJ3Clear: TcxButton object TbGJ3Clear: TcxButton
Left = 171 Left = 171
@ -5276,7 +5252,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 25 Height = 25
Caption = #19968#38190#28165#31354 Caption = #19968#38190#28165#31354
TabOrder = 58 TabOrder = 58
OnClick = TbGJ3ClearClick
end end
end end
object ToolBar7: TToolBar object ToolBar7: TToolBar
@ -5299,7 +5274,6 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True AutoSize = True
Caption = #22686#34892 Caption = #22686#34892
ImageIndex = 2 ImageIndex = 2
OnClick = ToolButton3Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 79 Left = 79
@ -5307,7 +5281,6 @@ object frmClothInfoInput: TfrmClothInfoInput
AutoSize = True AutoSize = True
Caption = #21024#34892 Caption = #21024#34892
ImageIndex = 6 ImageIndex = 6
OnClick = ToolButton4Click
end end
end end
object cxGrid6: TcxGrid object cxGrid6: TcxGrid
@ -5349,7 +5322,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Default = True Default = True
Kind = bkEllipsis Kind = bkEllipsis
end> end>
Properties.OnButtonClick = cxGridDBColumn14PropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
@ -5365,7 +5337,6 @@ object frmClothInfoInput: TfrmClothInfoInput
DataBinding.FieldName = 'gj_unit' DataBinding.FieldName = 'gj_unit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = cxGridDBColumn19PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
@ -5374,7 +5345,6 @@ object frmClothInfoInput: TfrmClothInfoInput
DataBinding.FieldName = 'gj_rate' DataBinding.FieldName = 'gj_rate'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = cxGridDBColumn19PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
@ -5644,17 +5614,16 @@ object frmClothInfoInput: TfrmClothInfoInput
Left = 776 Left = 776
Top = 596 Top = 596
end end
object DS_GX: TDataSource object DS_GY: TDataSource
DataSet = cds_gx DataSet = CDS_GY
Left = 667 Left = 555
Top = 524 Top = 420
end end
object cds_gx: TClientDataSet object CDS_GY: TClientDataSet
Aggregates = <> Aggregates = <>
IndexFieldNames = 'SerialNo'
Params = <> Params = <>
Left = 667 Left = 619
Top = 580 Top = 444
end end
object DS_3_2: TDataSource object DS_3_2: TDataSource
DataSet = CDS_3_2 DataSet = CDS_3_2

3311
A02基础产品管理/U_ClothInfoInput.pas
View File

File diff suppressed because it is too large Load Diff

4591
A02基础产品管理/U_CraftSel.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

177
A02基础产品管理/U_CraftSel.pas Normal file
View File

@ -0,0 +1,177 @@
unit U_CraftSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseHelp, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput,
dxScrollbarAnnotations, cxDropDownEdit, cxCheckBox, cxCheckComboBox,
cxCheckGroup;
type
TfrmCraftSel = class(TfrmBaseHelp)
TV1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
ToolBar1: TToolBar;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
TBSaveFormat: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
ADOConnection1: TADOConnection;
Panel1: TPanel;
Label1: TLabel;
DTMNo: TEdit;
GPM_1: TcxGridPopupMenu;
ImageList1: TImageList;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
SkyBlue: TcxStyle;
Default: TcxStyle;
QHuangSe: TcxStyle;
Red: TcxStyle;
FontBlue: TcxStyle;
TextSHuangSe: TcxStyle;
FonePurple: TcxStyle;
FoneClMaroon: TcxStyle;
FoneRed: TcxStyle;
RowColor: TcxStyle;
handBlack: TcxStyle;
cxBlue: TcxStyle;
SHuangSeCu: TcxStyle;
TV1SSel: TcxGridDBColumn;
Label2: TLabel;
DTMName: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure TBSaveFormatClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure DTMNoChange(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
FCoType, FAuthority, FBCIID: string;
{ Public declarations }
end;
var
frmCraftSel: TfrmCraftSel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmCraftSel.FormCreate(Sender: TObject);
begin
inherited;
try
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
ADOQueryBaseCmd.Connection := ADOConnection1;
ADOQueryBaseTemp.Connection := ADOConnection1;
except
application.MessageBox('网络连接失败！', '提示信息');
end;
end;
procedure TfrmCraftSel.DTMNoChange(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
end;
procedure TfrmCraftSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := cahide;
end;
procedure TfrmCraftSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select A.* from Dye_Technics_Main A');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmCraftSel.FormShow(Sender: TObject);
begin
inherited;
InitGrid();
ReadCxGrid(self.Caption + 'TV1', TV1, '工艺信息选择');
end;
procedure TfrmCraftSel.TBCloseClick(Sender: TObject);
begin
inherited;
Close;
end;
procedure TfrmCraftSel.TBSaveFormatClick(Sender: TObject);
begin
WriteCxGrid(self.Caption + 'TV1', TV1, '工艺信息选择');
end;
procedure TfrmCraftSel.ToolButton1Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
if CDS_1.Locate('SSel', True, []) = False then
begin
Application.MessageBox('没有选择数据!', '提示', 0);
Exit;
end;
ModalResult := 1;
end;
procedure TfrmCraftSel.FormDestroy(Sender: TObject);
begin
inherited;
frmCraftSel := nil;
end;
end.

58
F02染色计划单/DyePlan.dproj.local
View File

@ -1,61 +1,61 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.327,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.934,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.625,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.934,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.327,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.017,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothStkSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.017,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothStkSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.625,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.188,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.188,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.037,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_Cust_Cloth_PSC.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.037,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_Cust_Cloth_PSC.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.362,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.362,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.359,D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.495,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeProcessList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.986,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\DyePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\InformationBase.dproj</Transaction>
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.577,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.577,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.495,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeProcessList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.722,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothOutSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.722,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothOutSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.046,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeProcessSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.046,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeProcessSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.014,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.014,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.782,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.986,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\DyePlan.dproj</Transaction> <Transaction>1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.571,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.571,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.782,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.286,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.286,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.359,D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.905,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.905,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.dfm=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.213,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.819,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeInspSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.819,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeInspSet.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.058,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeTechnicsSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.058,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeTechnicsSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.213,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>2025/07/02 16:47:08.000.621,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_DyeProcessDefin.pas</Transaction> <Transaction>2025/07/02 16:47:08.000.621,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_DyeProcessDefin.pas</Transaction>
<Transaction>2025/07/03 16:45:14.000.291,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas</Transaction> <Transaction>2025/07/03 16:45:14.000.291,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas</Transaction>
</Transactions> </Transactions>

19
F02染色计划单/U_DyeProcessDefin.dfm
View File

@ -70,7 +70,6 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
TabOrder = 0 TabOrder = 0
Properties.ActivePage = cxTabSheet2 Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
ExplicitTop = 72
ClientRectBottom = 671 ClientRectBottom = 671
ClientRectLeft = 2 ClientRectLeft = 2
ClientRectRight = 1145 ClientRectRight = 1145
@ -883,7 +882,6 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Height = 453 Height = 453
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitTop = -6
object cxLabel100: TcxLabel object cxLabel100: TcxLabel
Left = 260 Left = 260
Top = 310 Top = 310
@ -2271,7 +2269,6 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ExplicitTop = -6
object cxLabel116: TcxLabel object cxLabel116: TcxLabel
Left = 258 Left = 258
Top = 274 Top = 274
@ -2965,7 +2962,6 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Height = 37 Height = 37
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 32
object Label5: TLabel object Label5: TLabel
Left = 193 Left = 193
Top = 9 Top = 9
@ -2980,6 +2976,13 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Height = 12 Height = 12
Caption = #26426#21488#21517 Caption = #26426#21488#21517
end end
object Label1: TLabel
Left = 469
Top = 9
Width = 24
Height = 12
Caption = #22791#27880
end
object PSName: TcxTextEdit object PSName: TcxTextEdit
Tag = 2 Tag = 2
Left = 87 Left = 87
@ -3012,6 +3015,14 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Height = 20 Height = 20
TabOrder = 3 TabOrder = 3
end end
object note: TEdit
Tag = 2
Left = 498
Top = 8
Width = 90
Height = 20
TabOrder = 4
end
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_DyePlan.ADOLink Connection = DataLink_DyePlan.ADOLink

40
F02染色计划单/U_DyeProcessDefin.pas
View File

@ -400,6 +400,8 @@ type
WorkHour: TEdit; WorkHour: TEdit;
Label2: TLabel; Label2: TLabel;
MachineName: TEdit; MachineName: TEdit;
Label1: TLabel;
note: TEdit;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure TbSaveClick(Sender: TObject); procedure TbSaveClick(Sender: TObject);
@ -551,7 +553,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select A.* from Bs_Cloth_GY_sub A '); sql.Add('select A.* from Bs_Cloth_GY_sub A ');
sql.Add(' where gytype=''·ÀË®'' and A.BCIID=''' + Trim(FPSID) + ''''); sql.Add(' where gytype=''·ÀË®'' and A.PSID=''' + Trim(FPSID) + '''');
Open; Open;
end; end;
SCreateCDS(ADOQueryTemp, CDS_1); SCreateCDS(ADOQueryTemp, CDS_1);
@ -562,7 +564,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select A.* from Bs_Cloth_GY_sub A '); sql.Add('select A.* from Bs_Cloth_GY_sub A ');
sql.Add(' where gytype=''·¢ÅÝ'' and A.BCIID=''' + Trim(FPSID) + ''''); sql.Add(' where gytype=''·¢ÅÝ'' and A.PSID=''' + Trim(FPSID) + '''');
Open; Open;
end; end;
SCreateCDS(ADOQueryTemp, CDS_2); SCreateCDS(ADOQueryTemp, CDS_2);
@ -573,7 +575,7 @@ begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('select A.* from Bs_Cloth_GY_sub A '); sql.Add('select A.* from Bs_Cloth_GY_sub A ');
sql.Add(' where gytype=''¹Î½º'' and A.BCIID=''' + Trim(FPSID) + ''''); sql.Add(' where gytype=''¹Î½º'' and A.PSID=''' + Trim(FPSID) + '''');
Open; Open;
end; end;
SCreateCDS(ADOQueryTemp, CDS_3); SCreateCDS(ADOQueryTemp, CDS_3);
@ -587,7 +589,7 @@ end;
procedure TfrmDyeProcessDefin.FormShow(Sender: TObject); procedure TfrmDyeProcessDefin.FormShow(Sender: TObject);
var var
MaxBCIID, MaxProcessID, MaxBCPID: string; MaxPSID, MaxProcessID, MaxBCPID: string;
Maxid1, maxid2, maxid3, maxgx: string; Maxid1, maxid2, maxid3, maxgx: string;
begin begin
InitGrid(); InitGrid();
@ -611,7 +613,7 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
SQL.Add('select * from Bs_Cloth_GY_Main where BCIID=''' + Trim(FPSID) + ''''); SQL.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(FPSID) + '''');
Open; Open;
end; end;
@ -656,7 +658,7 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
SQL.Add('select * from Bs_Cloth_GY_Main where BCIID=''' + Trim(FPSID) + ''''); SQL.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(FPSID) + '''');
Open; Open;
end; end;
@ -793,7 +795,6 @@ begin
ADOQueryCmd.Connection.BeginTrans; ADOQueryCmd.Connection.BeginTrans;
///////////////////////////±£´æÖ÷±íDye_process//////////////////////////// ///////////////////////////±£´æÖ÷±íDye_process////////////////////////////
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Filtered := False; Filtered := False;
@ -854,7 +855,7 @@ begin
begin begin
Close; Close;
SQL.Clear; SQL.Clear;
sql.Add('select * from Bs_Cloth_GY_Main where BCIID=''' + Trim(maxId) + ''''); sql.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(maxId) + '''');
Open; Open;
end; end;
with ADOQueryCmd do with ADOQueryCmd do
@ -867,7 +868,7 @@ begin
begin begin
Edit; Edit;
end; end;
FieldByName('BCIID').Value := Trim(maxId); FieldByName('PSID').Value := Trim(maxId);
RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel2, 2); RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel2, 2);
RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel3, 2); RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel3, 2);
RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel4, 2); RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel4, 2);
@ -922,15 +923,14 @@ begin
end; end;
FieldByName('GYType').Value := '·ÀË®'; FieldByName('GYType').Value := '·ÀË®';
FieldByName('BCIID').Value := Trim(maxId); FieldByName('PSID').Value := Trim(maxId);
FieldByName('BCPID').Value := Trim(maxid1); FieldByName('BCPID').Value := Trim(maxid1);
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Bs_Cloth_GY_Sub', 0); RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Bs_Cloth_GY_Sub', 0);
Post; Post;
end; end;
CDS_1.Edit; CDS_1.Edit;
CDS_1.FieldByName('BCIID').Value := Trim(maxId); CDS_1.FieldByName('PSID').Value := Trim(maxId);
CDS_1.FieldByName('BCPID').Value := Trim(maxid1); CDS_1.FieldByName('BCPID').Value := Trim(maxid1);
Next; Next;
end; end;
end; end;
@ -976,14 +976,14 @@ begin
end; end;
FieldByName('GYType').Value := '·¢ÅÝ'; FieldByName('GYType').Value := '·¢ÅÝ';
FieldByName('BCIID').Value := Trim(maxId); FieldByName('PSID').Value := Trim(maxId);
FieldByName('BCPID').Value := Trim(maxid2); FieldByName('PSID').Value := Trim(maxid2);
RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_2, 'Bs_Cloth_GY_Sub', 0); RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_2, 'Bs_Cloth_GY_Sub', 0);
Post; Post;
end; end;
CDS_2.Edit; CDS_2.Edit;
CDS_2.FieldByName('BCIID').Value := Trim(maxId); CDS_2.FieldByName('PSID').Value := Trim(maxId);
CDS_2.FieldByName('BCPID').Value := Trim(maxid2); CDS_2.FieldByName('PSID').Value := Trim(maxid2);
Next; Next;
end; end;
@ -1030,14 +1030,14 @@ begin
end; end;
FieldByName('GYType').Value := '¹Î½º'; FieldByName('GYType').Value := '¹Î½º';
FieldByName('BCIID').Value := Trim(maxId); FieldByName('PSID').Value := Trim(maxId);
FieldByName('BCPID').Value := Trim(maxid3); FieldByName('PSID').Value := Trim(maxid3);
RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_3, 'Bs_Cloth_GY_Sub', 0); RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_3, 'Bs_Cloth_GY_Sub', 0);
Post; Post;
end; end;
CDS_3.Edit; CDS_3.Edit;
CDS_3.FieldByName('BCIID').Value := Trim(maxId); CDS_3.FieldByName('PSID').Value := Trim(maxId);
CDS_3.FieldByName('BCPID').Value := Trim(maxid3); CDS_3.FieldByName('PSID').Value := Trim(maxid3);
Next; Next;
end; end;

58
F02染色计划单/U_DyeProcessList.dfm
View File

@ -3,7 +3,6 @@ inherited frmDyeProcessList: TfrmDyeProcessList
ClientHeight = 569 ClientHeight = 569
ClientWidth = 1126 ClientWidth = 1126
WindowState = wsMaximized WindowState = wsMaximized
ExplicitLeft = -275
ExplicitWidth = 1142 ExplicitWidth = 1142
ExplicitHeight = 608 ExplicitHeight = 608
PixelsPerInch = 96 PixelsPerInch = 96
@ -13,7 +12,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1126 Width = 1126
Height = 38 Height = 76
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
ButtonWidth = 91 ButtonWidth = 91
@ -41,16 +40,24 @@ inherited frmDyeProcessList: TfrmDyeProcessList
ImageIndex = 0 ImageIndex = 0
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TbAdd_QX: TToolButton object TbAdd_FB: TToolButton
Left = 142 Left = 142
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #32763#24067
ImageIndex = 9
OnClick = TbAdd_FBClick
end
object TbAdd_QX: TToolButton
Left = 213
Top = 0
AutoSize = True
Caption = #26032#22686#28165#27927 Caption = #26032#22686#28165#27927
ImageIndex = 9 ImageIndex = 9
OnClick = TbAdd_QXClick OnClick = TbAdd_QXClick
end end
object TbAdd_DX: TToolButton object TbAdd_DX: TToolButton
Left = 237 Left = 308
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686#23450#22411 Caption = #26032#22686#23450#22411
@ -58,7 +65,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
OnClick = TbAdd_DXClick OnClick = TbAdd_DXClick
end end
object TbAdd_FS: TToolButton object TbAdd_FS: TToolButton
Left = 332 Left = 403
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686#38450#27700 Caption = #26032#22686#38450#27700
@ -66,64 +73,65 @@ inherited frmDyeProcessList: TfrmDyeProcessList
OnClick = TbAdd_FSClick OnClick = TbAdd_FSClick
end end
object TbAdd_FP: TToolButton object TbAdd_FP: TToolButton
Left = 427 Left = 498
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686#21457#27873 Caption = #26032#22686#21457#27873
ImageIndex = 9 ImageIndex = 9
Wrap = True
OnClick = TbAdd_FPClick OnClick = TbAdd_FPClick
end end
object TbAdd_GJ: TToolButton object TbAdd_GJ: TToolButton
Left = 522 Left = 0
Top = 0 Top = 38
AutoSize = True AutoSize = True
Caption = #26032#22686#21038#33014 Caption = #26032#22686#21038#33014
ImageIndex = 9 ImageIndex = 9
OnClick = TbAdd_GJClick OnClick = TbAdd_GJClick
end end
object TbAdd_ZM: TToolButton object TbAdd_ZM: TToolButton
Left = 617 Left = 95
Top = 0 Top = 38
AutoSize = True AutoSize = True
Caption = #26032#22686#36711#27611 Caption = #26032#22686#36711#27611
ImageIndex = 9 ImageIndex = 9
OnClick = TbAdd_ZMClick OnClick = TbAdd_ZMClick
end end
object TbEdit: TToolButton object TbEdit: TToolButton
Left = 712 Left = 190
Top = 0 Top = 38
AutoSize = True AutoSize = True
Caption = #20462#25913 Caption = #20462#25913
ImageIndex = 3 ImageIndex = 3
OnClick = TbEditClick OnClick = TbEditClick
end end
object TbLook: TToolButton object TbLook: TToolButton
Left = 783 Left = 261
Top = 0 Top = 38
AutoSize = True AutoSize = True
Caption = #26597#30475 Caption = #26597#30475
ImageIndex = 8 ImageIndex = 8
OnClick = TbLookClick OnClick = TbLookClick
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 854 Left = 332
Top = 0 Top = 38
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
ImageIndex = 5 ImageIndex = 5
OnClick = TBDelClick OnClick = TBDelClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 925 Left = 403
Top = 0 Top = 38
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 20 ImageIndex = 20
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 996 Left = 474
Top = 0 Top = 38
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 7 ImageIndex = 7
@ -132,7 +140,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
end end
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 38 Top = 76
Width = 1126 Width = 1126
Height = 38 Height = 38
Align = alTop Align = alTop
@ -140,7 +148,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
ExplicitTop = 32 ExplicitTop = 38
object Label5: TLabel object Label5: TLabel
Left = 191 Left = 191
Top = 12 Top = 12
@ -192,12 +200,12 @@ inherited frmDyeProcessList: TfrmDyeProcessList
end end
object cxGrid2: TcxGrid [2] object cxGrid2: TcxGrid [2]
Left = 0 Left = 0
Top = 76 Top = 114
Width = 1126 Width = 1126
Height = 493 Height = 455
Align = alClient Align = alClient
TabOrder = 2 TabOrder = 2
ExplicitTop = 72 ExplicitTop = 110
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False

21
F02染色计划单/U_DyeProcessList.pas
View File

@ -54,6 +54,7 @@ type
TV2MachineName: TcxGridDBColumn; TV2MachineName: TcxGridDBColumn;
TV2WorkHour: TcxGridDBColumn; TV2WorkHour: TcxGridDBColumn;
TbLook: TToolButton; TbLook: TToolButton;
TbAdd_FB: TToolButton;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -72,6 +73,7 @@ type
procedure TbAdd_GJClick(Sender: TObject); procedure TbAdd_GJClick(Sender: TObject);
procedure TbAdd_ZMClick(Sender: TObject); procedure TbAdd_ZMClick(Sender: TObject);
procedure TbLookClick(Sender: TObject); procedure TbLookClick(Sender: TObject);
procedure TbAdd_FBClick(Sender: TObject);
private private
{ Private declarations } { Private declarations }
procedure InitGrid(); procedure InitGrid();
@ -186,6 +188,25 @@ begin
end; end;
end; end;
procedure TfrmDyeProcessList.TbAdd_FBClick(Sender: TObject);
begin
try
frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application);
with frmDyeProcessDefin do
begin
BtnInt := 0;
FPSType := '·­²¼';
FPSID := '';
if ShowModal = 1 then
begin
TBRafresh.Click;
end;
end;
finally
frmDyeProcessDefin.Free;
end;
end;
procedure TfrmDyeProcessList.ZdyNameChange(Sender: TObject); procedure TfrmDyeProcessList.ZdyNameChange(Sender: TObject);
begin begin
ToolButton2.Click; ToolButton2.Click;

10
F02染色计划单/U_DyeTechnicsList.dfm
View File

@ -108,6 +108,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clSkyBlue
TabOrder = 1 TabOrder = 1
ExplicitTop = 44
object Label1: TLabel object Label1: TLabel
Left = 186 Left = 186
Top = 13 Top = 13
@ -148,6 +149,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
Height = 494 Height = 494
Align = alLeft Align = alLeft
TabOrder = 2 TabOrder = 2
ExplicitLeft = -6
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -242,12 +244,14 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
ClientRectTop = 19 ClientRectTop = 19
end end
object cxGrid1: TcxGrid [4] object cxGrid1: TcxGrid [4]
Left = 768 Left = 760
Top = 99 Top = 99
Width = 687 Width = 695
Height = 494 Height = 494
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
ExplicitLeft = 768
ExplicitWidth = 687
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -300,7 +304,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
object cxSplitter1: TcxSplitter [5] object cxSplitter1: TcxSplitter [5]
Left = 760 Left = 760
Top = 99 Top = 99
Width = 8 Width = 0
Height = 494 Height = 494
AlignSplitter = salRight AlignSplitter = salRight
Control = cxGrid2 Control = cxGrid2

BIN
T02贸易汇总仓库/TradeTotalClothStk.identcache
View File

Binary file not shown.

BIN
T02贸易汇总仓库/TradeTotalClothStk.res
View File

Binary file not shown.

BIN
T02贸易汇总仓库/testDll.res
View File

Binary file not shown.