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-08-12 13:42:42 +08:00
parent c4f56cee73
commit d0820db5ea
25 changed files with 873 additions and 718 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,7 +9,7 @@
<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.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.146,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.480,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
@ -18,15 +18,15 @@
<Transaction>1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.503,=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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.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.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm</Transaction>
@ -39,14 +39,14 @@
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.146,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj</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.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>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/>

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

@ -70,6 +70,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Font.Style = []
ParentFont = False
TabOrder = 0
TabStop = False
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
ClientRectBottom = 708
@ -98,10 +99,9 @@ object frmClothInfoInput: TfrmClothInfoInput
Font.Style = []
ParentFont = False
TabOrder = 0
ExplicitLeft = 1
object C_GramWeight: TcxTextEdit
Tag = 2
Left = 435
Left = 553
Top = 138
ParentFont = False
Style.Font.Charset = GB2312_CHARSET
@ -114,12 +114,12 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 0
Width = 140
TabOrder = 9
Width = 240
end
object F_Width: TcxTextEdit
Tag = 2
Left = 435
Left = 553
Top = 97
ParentFont = False
Style.Font.Charset = GB2312_CHARSET
@ -132,8 +132,8 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 1
Width = 140
TabOrder = 8
Width = 240
end
object cxLabel37: TcxLabel
Left = 16
@ -172,7 +172,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Style.IsFontAssigned = True
end
object cxLabel41: TcxLabel
Left = 321
Left = 422
Top = 137
Caption = #25104#21697#20811#37325'(g/'#13217')'
ParentFont = False
@ -184,7 +184,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Style.IsFontAssigned = True
end
object cxLabel43: TcxLabel
Left = 321
Left = 422
Top = 97
Caption = #22383#24067#38376#24133'(cm)'
ParentFont = False
@ -196,7 +196,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Style.IsFontAssigned = True
end
object cxLabel45: TcxLabel
Left = 321
Left = 422
Top = 57
Caption = #25104#21697#38376#24133'(cm)'
ParentFont = False
@ -208,7 +208,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Style.IsFontAssigned = True
end
object cxLabel46: TcxLabel
Left = 321
Left = 422
Top = 178
Caption = #22383#24067#20811#37325'(g/'#13217')'
ParentFont = False
@ -232,7 +232,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Style.IsFontAssigned = True
end
object cxLabel48: TcxLabel
Left = 594
Left = 817
Top = 17
Caption = #21518#25972#29702#26631#20934
ParentFont = False
@ -258,8 +258,8 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 11
Width = 140
TabOrder = 1
Width = 240
end
object LatitudeSlope: TcxTextEdit
Tag = 2
@ -276,12 +276,12 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 12
Width = 140
TabOrder = 2
Width = 240
end
object FinishingStandards: TcxTextEdit
Tag = 2
Left = 691
Left = 914
Top = 15
ParentFont = False
Style.Font.Charset = GB2312_CHARSET
@ -294,12 +294,12 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 13
Width = 140
TabOrder = 11
Width = 240
end
object C_COLOR: TcxTextEdit
Tag = 2
Left = 435
Left = 553
Top = 15
ParentFont = False
Style.Font.Charset = GB2312_CHARSET
@ -312,12 +312,12 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 14
Width = 140
TabOrder = 6
Width = 240
end
object C_Width: TcxTextEdit
Tag = 2
Left = 435
Left = 553
Top = 56
ParentFont = False
Style.Font.Charset = GB2312_CHARSET
@ -330,12 +330,12 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 15
Width = 140
TabOrder = 7
Width = 240
end
object F_GramWeight: TcxTextEdit
Tag = 2
Left = 435
Left = 553
Top = 179
ParentFont = False
Style.Font.Charset = GB2312_CHARSET
@ -348,8 +348,8 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 16
Width = 140
TabOrder = 10
Width = 240
end
object C_FinishLatitudeDensity: TcxTextEdit
Tag = 2
@ -366,8 +366,8 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 17
Width = 140
TabOrder = 3
Width = 240
end
object cxLabel114: TcxLabel
Left = 16
@ -396,8 +396,8 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 19
Width = 140
TabOrder = 4
Width = 240
end
object cxLabel150: TcxLabel
Left = 16
@ -427,9 +427,9 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 21
TabOrder = 5
Text = #33258#21160#29983#25104
Width = 140
Width = 240
end
object cxGrid4: TcxGrid
Left = 1
@ -437,7 +437,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 1074
Height = 346
Align = alBottom
TabOrder = 22
TabOrder = 24
object TV4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -484,7 +484,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 1074
Height = 41
Align = alBottom
TabOrder = 23
TabOrder = 25
object Panel9: TPanel
Left = 1
Top = 42
@ -649,11 +649,11 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 24
Width = 140
TabOrder = 0
Width = 240
end
object cxLabel273: TcxLabel
Left = 321
Left = 422
Top = 16
Caption = #39068#33394
ParentFont = False
@ -665,7 +665,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Style.IsFontAssigned = True
end
object cxLabel42: TcxLabel
Left = 594
Left = 817
Top = 58
Caption = #28165#27927#21518#38376#24133
ParentFont = False
@ -678,7 +678,7 @@ object frmClothInfoInput: TfrmClothInfoInput
end
object C_washWidth: TcxTextEdit
Tag = 2
Left = 691
Left = 914
Top = 58
ParentFont = False
Style.Font.Charset = GB2312_CHARSET
@ -691,8 +691,8 @@ object frmClothInfoInput: TfrmClothInfoInput
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 27
Width = 140
TabOrder = 12
Width = 240
end
end
end

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

@ -849,6 +849,7 @@ begin
Close;
SQL.Clear;
SQL.Add('select * from BS_Cloth_Dye_Technics where BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_GY);

80
F01染色坯布仓库/DyeGreyClothStk.dproj.local
View File

@ -1,46 +1,46 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
<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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.865,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.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.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.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.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm</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.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.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>1899-12-30 00:00:00.000.791,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.278,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.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.844,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.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.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.865,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.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>1899/12/30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm</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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj</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.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>1899/12/30 00:00:00.000.791,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.278,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.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.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm</Transaction>
<Transaction>1899/12/30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/>

BIN
F01染色坯布仓库/DyeGreyClothStk.identcache
View File

Binary file not shown.

3
F01染色坯布仓库/U_DyeGreyClothInList.dfm
View File

@ -30,6 +30,7 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
ParentFont = False
ShowCaptions = True
TabOrder = 0
ExplicitTop = 1
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -115,6 +116,7 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitTop = 32
object Label1: TLabel
Left = 28
Top = 12
@ -326,6 +328,7 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitTop = 97
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

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

@ -920,6 +920,7 @@
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
<ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
</Deployment>
<ModelSupport>False</ModelSupport>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>

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

@ -1,64 +1,64 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.291,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.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.422,=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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.017,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothStkSel.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.048,=D:\Dp10Repo\public10\design\U_BaseList.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.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.621,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_DyeProcessDefin.pas</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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.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.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.dfm</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.014,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.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.782,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.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.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.dfm</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.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.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.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.046,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeProcessSel.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.905,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.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.058,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeTechnicsSel.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.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>2025-07-31 09:26:29.000.383,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_CraftSel.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.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.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.327,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.291,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.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.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.621,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_DyeProcessDefin.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.359,D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.dfm</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.577,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.722,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothOutSel.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.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.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.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.dfm</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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.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.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm</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.359,D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.383,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_CraftSel.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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>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.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.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.213,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10sxYilanbuyi"/>

BIN
F02染色计划单/DyePlan.identcache
View File

Binary file not shown.

1
F02染色计划单/U_CraftSel.dfm
View File

@ -21,7 +21,6 @@ inherited frmCraftSel: TfrmCraftSel
Height = 476
Align = alClient
TabOrder = 0
ExplicitTop = 88
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

6
F02染色计划单/U_CraftSel.pas
View File

@ -67,7 +67,7 @@ type
procedure InitGrid();
{ Private declarations }
public
FCoType, FAuthority, FBCIID,fcode: string;
FCoType, FAuthority, FBCIID, fcode, FC_Name: string;
{ Public declarations }
end;
@ -123,7 +123,9 @@ begin
begin
Close;
sql.Clear;
sql.Add('select A.* from Bs_Cloth_Dye_Technics A where C_Code = ' + QuotedStr(Trim(fCode)));
// sql.Add('select A.* from Bs_Cloth_Dye_Technics A where C_Code = ' + QuotedStr(Trim(fCode)));
SQL.Add('select * from BS_Cloth_Dye_Technics A where (SELECT C_Name FROM Bs_Cloth_Info E WHERE E.BCIID=A.BCIID)=''' + Trim(FC_Name) + '''');
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);

2
F02染色计划单/U_DyePlanCardInput.pas
View File

@ -392,6 +392,7 @@ begin
begin
fmainID := Order_Main.fieldbyname('mainID').asstring;
fC_Code := Order_Main.fieldbyname('C_Code').asstring;
fC_name := Order_Main.fieldbyname('C_name').asstring;
InitOrder();
InitGreyClothStk();
InitCard();
@ -450,6 +451,7 @@ begin
with frmCraftSel do
begin
fcode := Self.FC_Code;
fC_name := Self.fC_name;
if ShowModal = 1 then
begin
with frmCraftSel.CDS_1 do

1
F02染色计划单/U_DyePlanCardList.dfm
View File

@ -386,6 +386,7 @@ inherited frmDyePlanCardList: TfrmDyePlanCardList
Align = alClient
PopupMenu = PM_1
TabOrder = 2
ExplicitLeft = -8
ExplicitTop = 125
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>

55
F02染色计划单/U_DyePlanForCardSel.dfm
View File

@ -93,8 +93,9 @@ object frmProductOrderListSel: TfrmProductOrderListSel
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
ExplicitTop = 44
object Label3: TLabel
Left = 355
Left = 292
Top = 14
Width = 52
Height = 12
@ -126,14 +127,27 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Height = 12
Caption = '-'
end
object OrderNoM: TEdit
object Label4: TLabel
Left = 524
Top = 14
Width = 52
Height = 12
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object OrderNo: TEdit
Tag = 2
Left = 412
Left = 349
Top = 10
Width = 149
Height = 20
TabOrder = 0
OnKeyPress = OrderNoMKeyPress
OnKeyPress = OrderNoKeyPress
end
object BegDate: TDateTimePicker
Left = 76
@ -155,6 +169,15 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Time = 0.464761099538009100
TabOrder = 2
end
object C_Name: TEdit
Tag = 2
Left = 581
Top = 10
Width = 149
Height = 20
TabOrder = 3
OnKeyPress = OrderNoKeyPress
end
end
object cxGrid1: TcxGrid
Left = 0
@ -174,7 +197,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = AnticipateQTY
Column = Tv1AnticipateQTY
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -195,7 +218,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
HeaderAlignmentHorz = taCenter
Width = 44
end
object OrderNo: TcxGridDBColumn
object Tv1OrderNo: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
@ -204,7 +227,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Styles.Header = DataLink_DyePlan.Default
Width = 72
end
object C_CodeName: TcxGridDBColumn
object Tv1C_CodeName: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
@ -213,7 +236,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Styles.Header = DataLink_DyePlan.Default
Width = 82
end
object CustNoName: TcxGridDBColumn
object Tv1CustNoName: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
@ -221,7 +244,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Options.Editing = False
Width = 66
end
object C_Width: TcxGridDBColumn
object Tv1C_Width: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
@ -230,7 +253,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Styles.Header = DataLink_DyePlan.Default
Width = 70
end
object C_GramWeight: TcxGridDBColumn
object Tv1C_GramWeight: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
@ -238,7 +261,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Options.Focusing = False
Width = 72
end
object C_COLOR: TcxGridDBColumn
object Tv1C_COLOR: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_COLOR'
DataBinding.IsNullValueType = True
@ -247,7 +270,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Styles.Header = DataLink_DyePlan.Default
Width = 82
end
object C_COLORNO: TcxGridDBColumn
object Tv1C_COLORNO: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_COLORNO'
DataBinding.IsNullValueType = True
@ -264,14 +287,14 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Options.Editing = False
Width = 52
end
object C_Pattern: TcxGridDBColumn
object Tv1C_Pattern: TcxGridDBColumn
Caption = #33457#22411#21495
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object AnticipateQTY: TcxGridDBColumn
object Tv1AnticipateQTY: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'AntcpQty'
DataBinding.IsNullValueType = True
@ -280,7 +303,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
Styles.Header = DataLink_DyePlan.Default
Width = 86
end
object OrderUnit: TcxGridDBColumn
object Tv1OrderUnit: TcxGridDBColumn
Caption = #25968#37327#21333#20301
DataBinding.FieldName = 'AntcpUnit'
DataBinding.IsNullValueType = True
@ -309,7 +332,7 @@ object frmProductOrderListSel: TfrmProductOrderListSel
HeaderAlignmentHorz = taCenter
Width = 66
end
object DeliveryDate: TcxGridDBColumn
object Tv1DeliveryDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True

106
F02染色计划单/U_DyePlanForCardSel.pas
View File

@ -27,24 +27,24 @@ type
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
OrderNoM: TEdit;
OrderNo: TcxGridDBColumn;
DeliveryDate: TcxGridDBColumn;
C_COLOR: TcxGridDBColumn;
OrderNo: TEdit;
Tv1OrderNo: TcxGridDBColumn;
Tv1DeliveryDate: TcxGridDBColumn;
Tv1C_COLOR: TcxGridDBColumn;
Order_Main: TClientDataSet;
C_CodeName: TcxGridDBColumn;
C_Width: TcxGridDBColumn;
AnticipateQTY: TcxGridDBColumn;
C_GramWeight: TcxGridDBColumn;
Tv1C_CodeName: TcxGridDBColumn;
Tv1C_Width: TcxGridDBColumn;
Tv1AnticipateQTY: TcxGridDBColumn;
Tv1C_GramWeight: TcxGridDBColumn;
ToolButton3: TToolButton;
v1Column4: TcxGridDBColumn;
C_COLORNO: TcxGridDBColumn;
Tv1C_COLORNO: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
OrderUnit: TcxGridDBColumn;
Tv1OrderUnit: TcxGridDBColumn;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
C_Pattern: TcxGridDBColumn;
Tv1C_Pattern: TcxGridDBColumn;
TBRafresh: TToolButton;
TBFind: TToolButton;
BegDate: TDateTimePicker;
@ -52,19 +52,21 @@ type
Label1: TLabel;
Label2: TLabel;
cxTabControl1: TcxTabControl;
CustNoName: TcxGridDBColumn;
Tv1CustNoName: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
ToolButton1: TToolButton;
Label4: TLabel;
C_Name: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure OrderNoMKeyPress(Sender: TObject; var Key: Char);
// procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
procedure Tv1DblClick(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
@ -72,6 +74,7 @@ type
procedure TBFindClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
private
DQdate: TDateTime;
procedure InitGrid();
@ -121,11 +124,19 @@ begin
sql.Add('select B.*,A.* ');
sql.add('from Dye_Plan_sub A');
sql.Add('inner join Dye_Plan_Main B on B.mainID=A.mainID ');
sql.Add('where B.FillTime>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
sql.Add('and B.FillTime<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
sql.Add('where B.OrdDate>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' ');
sql.Add('and B.OrdDate<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' ');
// sql.Add('and B.Workshop=' + quotedstr(fWorkshop));
// sql.Add('and isnull(B.status,''0'')=''9''');
if OrderNo.Text <> '' then
begin
SQL.Add('AND B.OrderNo like ''' + '%' + Trim(OrderNo.Text) + '%' + '''');
end;
if C_Name.Text <> '' then
begin
SQL.Add('AND B.C_Name like ''' + '%' + Trim(C_Name.Text) + '%' + '''');
end;
if cxTabControl1.TabIndex = 0 then
sql.Add('and not exists(select PCID from Dye_Plan_Card X where X.subID=A.subID)');
@ -145,13 +156,14 @@ end;
procedure TfrmProductOrderListSel.InitForm();
begin
ReadCxGrid('指示单列表选择', Tv1, '生产指示单管理');
BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 15;
BegDate.DateTime := SGetServerDate(ADOQueryTemp);
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
InitGrid();
end;
procedure TfrmProductOrderListSel.FormShow(Sender: TObject);
begin
InitForm();
if FFInt = 1 then
begin
@ -173,34 +185,34 @@ begin
ModalResult := 1;
end;
procedure TfrmProductOrderListSel.OrderNoMKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
if Length(Trim(OrderNoM.Text)) < 3 then
Exit;
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
Filtered := False;
sql.Clear;
sql.Add('select B.*,A.*,A.OrderNo orderNoM ');
sql.add('from Dye_Plan_sub A');
sql.Add('inner join Dye_Plan_Main B on B.mainID=A.mainID ');
// sql.Add('left join Dye_PlanCon_Main C on C.conNO=B.conNO ');
SQL.Add('where B.OrderNo like ''' + '%' + Trim(OrderNoM.Text) + '%' + '''');
Open;
end;
SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
end;
//procedure TfrmProductOrderListSel.OrderNoKeyPress(Sender: TObject; var Key: Char);
//begin
// if Key = #13 then
// begin
// if Length(Trim(OrderNo.Text)) < 3 then
// Exit;
// try
// ADOQueryMain.DisableControls;
// with ADOQueryMain do
// begin
//
// Close;
// Filtered := False;
// sql.Clear;
// sql.Add('select B.*,A.*,A.OrderNo orderNoM ');
// sql.add('from Dye_Plan_sub A');
// sql.Add('inner join Dye_Plan_Main B on B.mainID=A.mainID ');
// // sql.Add('left join Dye_PlanCon_Main C on C.conNO=B.conNO ');
// SQL.Add('where B.OrderNo like ''' + '%' + Trim(OrderNo.Text) + '%' + '''');
// Open;
// end;
// SCreateCDS(ADOQueryMain, Order_Main);
// SInitCDSData(ADOQueryMain, Order_Main);
// finally
// ADOQueryMain.EnableControls;
// end;
// end;
//end;
procedure TfrmProductOrderListSel.Tv1DblClick(Sender: TObject);
begin
@ -217,6 +229,12 @@ begin
SelOKNo(Order_Main, false);
end;
procedure TfrmProductOrderListSel.OrderNoKeyPress(Sender: TObject;
var Key: Char);
begin
InitGrid();
end;
procedure TfrmProductOrderListSel.TBRafreshClick(Sender: TObject);
begin
initgrid();

2
F02染色计划单/U_DyePlanInPut.dfm
View File

@ -79,7 +79,6 @@ object frmDyePlanInPut: TfrmDyePlanInPut
ParentColor = False
ParentCtl3D = False
TabOrder = 1
ExplicitTop = 32
object Label1: TLabel
Left = 31
Top = 69
@ -575,7 +574,6 @@ object frmDyePlanInPut: TfrmDyePlanInPut
Font.Style = []
ParentFont = False
TabOrder = 4
ExplicitTop = 365
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

4
F02染色计划单/U_DyePlanInPut.pas
View File

@ -314,9 +314,9 @@ begin
Close;
SQL.Clear;
sql.Add('UPDATE Dye_Plan_Main SET GC_STKID= ');
SQL.Add(' STUFF(( SELECT '','' +CAST(STKID AS VARCHAR) FROM Dye_Plan_Sub c where c.MAINID = a.MAINID FOR XML PATH('''')), 1, 1, '''')');
SQL.Add(' STUFF(( SELECT '','' +CAST(STKID AS VARCHAR) FROM Dye_Plan_Sub c where c.MAINID = Dye_Plan_Main.MAINID FOR XML PATH('''')), 1, 1, '''')');
sql.Add(' where MainId=''' + Trim(FMainId) + '''');
ShowMessage(sql.Text);
EXECSQL;
end;
/////////////// ±£´æ×Ó±í ///////////////

3
F02染色计划单/U_DyePlanList.dfm
View File

@ -366,6 +366,7 @@ inherited frmDyePlanList: TfrmDyePlanList
Align = alClient
PopupMenu = PM_1
TabOrder = 2
ExplicitTop = 127
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -579,8 +580,6 @@ inherited frmDyePlanList: TfrmDyePlanList
Height = 8
HotZoneClassName = 'TcxMediaPlayer9Style'
AlignSplitter = salBottom
ExplicitLeft = -280
ExplicitTop = 501
end
object cxTabControl1: TcxTabControl [4]
Left = 0

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

@ -2,7 +2,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 459
Top = 231
Caption = #20135#21697#20449#24687#24405#20837
ClientHeight = 815
ClientHeight = 827
ClientWidth = 1147
Color = clWhite
Font.Charset = GB2312_CHARSET
@ -59,12 +59,12 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 73
Width = 1147
Height = 742
Height = 754
Align = alClient
TabOrder = 0
Properties.ActivePage = GJ
Properties.ActivePage = FP
Properties.CustomButtons.Buttons = <>
ClientRectBottom = 740
ClientRectBottom = 752
ClientRectLeft = 2
ClientRectRight = 1145
ClientRectTop = 22
@ -75,7 +75,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
Height = 718
Height = 730
Align = alClient
TabOrder = 0
object cxLabel335: TcxLabel
@ -194,7 +194,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
Height = 718
Height = 730
Align = alClient
TabOrder = 0
object ccqx_note: TcxTextEdit
@ -390,7 +390,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
Height = 718
Height = 730
Align = alClient
TabOrder = 0
object cxLabel114: TcxLabel
@ -489,7 +489,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
Height = 718
Height = 730
Align = alClient
TabOrder = 0
object cxLabel340: TcxLabel
@ -770,7 +770,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
Height = 718
Height = 730
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -1490,11 +1490,9 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
Height = 718
Height = 730
Align = alClient
TabOrder = 0
ExplicitLeft = 3
ExplicitTop = 44
object TbFSReplace1: TcxButton
Left = 104
Top = 298
@ -1532,8 +1530,8 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
OnClick = TBFScLEAR2Click
end
object cxLabel191: TcxLabel
Left = 303
Top = 25
Left = 423
Top = 23
Caption = #28888#31570#21387#21147'(MPA)'
end
object cxLabel192: TcxLabel
@ -1561,14 +1559,9 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Top = 271
Caption = '9#'
end
object cxLabel197: TcxLabel
Left = 37
Top = 25
Caption = #36710#23614#38376#24133'(cm)'
end
object cxLabel198: TcxLabel
Left = 37
Top = 77
Top = 76
Caption = #36710#36895'(M/Min)'
end
object cxLabel199: TcxLabel
@ -1578,7 +1571,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
end
object cxLabel200: TcxLabel
Left = 11
Top = 484
Top = 493
Caption = #22791#27880
end
object cxLabel201: TcxLabel
@ -1587,7 +1580,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Caption = #19978#36229#21890#29575'(%)'
end
object cxLabel202: TcxLabel
Left = 303
Left = 423
Top = 103
Caption = #26426#23614#21367#24067#26041#27861
end
@ -1637,13 +1630,13 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Caption = '10#'
end
object cxLabel212: TcxLabel
Left = 303
Top = 51
Left = 423
Top = 50
Caption = #21387#36710#21387#21147'(MPA)'
end
object cxLabel213: TcxLabel
Left = 303
Top = 77
Left = 423
Top = 76
Caption = #28888#31570#28201#24230'('#8451')'
end
object cxLabel214: TcxLabel
@ -1703,27 +1696,27 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
end
object cxLabel225: TcxLabel
Left = 281
Top = 441
Top = 450
Caption = '2#'
end
object cxLabel226: TcxLabel
Left = 7
Top = 417
Top = 424
Caption = #25490#39118'r/min:'
end
object cxLabel227: TcxLabel
Left = 38
Top = 438
Top = 447
Caption = '1#'
end
object cxLabel228: TcxLabel
Left = 491
Top = 443
Top = 452
Caption = '3#'
end
object cxLabel229: TcxLabel
Left = 693
Top = 441
Top = 450
Caption = '4#'
end
object cxLabel230: TcxLabel
@ -1736,26 +1729,16 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Top = 271
Caption = '11#'
end
object cxLabel232: TcxLabel
Left = 37
Top = 51
Caption = #25104#21697#38376#24133'(cm)'
end
object cxLabel333: TcxLabel
Left = 575
Top = 77
Caption = #20811#37325
end
object fs_CarPress: TcxTextEdit
Tag = 2
Left = 390
Top = 49
Left = 510
Top = 50
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 47
Width = 150
TabOrder = 44
Width = 200
end
object fs_DownSuperRate: TcxTextEdit
Tag = 2
@ -1765,18 +1748,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 48
Width = 150
end
object fs_gram: TcxTextEdit
Tag = 2
Left = 630
Top = 76
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 49
TabOrder = 45
Width = 150
end
object fs_hotWind1: TcxTextEdit
@ -1788,7 +1760,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 50
TabOrder = 46
Width = 150
end
object fs_hotWind10: TcxTextEdit
@ -1800,7 +1772,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 51
TabOrder = 47
Width = 150
end
object fs_hotWind11: TcxTextEdit
@ -1812,7 +1784,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 52
TabOrder = 48
Width = 150
end
object fs_hotWind2: TcxTextEdit
@ -1824,7 +1796,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 53
TabOrder = 49
Width = 150
end
object fs_hotWind3: TcxTextEdit
@ -1836,7 +1808,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 54
TabOrder = 50
Width = 150
end
object fs_hotWind4: TcxTextEdit
@ -1848,7 +1820,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 55
TabOrder = 51
Width = 150
end
object fs_hotWind5: TcxTextEdit
@ -1860,7 +1832,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 56
TabOrder = 52
Width = 150
end
object fs_hotWind6: TcxTextEdit
@ -1872,7 +1844,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 57
TabOrder = 53
Width = 150
end
object fs_hotWind7: TcxTextEdit
@ -1884,7 +1856,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 58
TabOrder = 54
Width = 150
end
object fs_hotWind8: TcxTextEdit
@ -1896,7 +1868,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 59
TabOrder = 55
Width = 150
end
object fs_hotWind9: TcxTextEdit
@ -1908,27 +1880,26 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 60
TabOrder = 56
Width = 150
end
object fs_Precautions: TcxTextEdit
Tag = 2
Left = 62
Top = 470
Hint = #38450#27700#28201#25511
Top = 479
AutoSize = False
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 61
TabOrder = 57
Height = 50
Width = 650
end
object fs_RollMethod: TcxComboBox
Tag = 2
Left = 390
Top = 100
Left = 510
Top = 103
Properties.Items.Strings = (
''
#21367#26729
@ -1938,13 +1909,61 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 62
Width = 150
TabOrder = 58
Width = 200
end
object fs_RosePower: TcxTextEdit
Tag = 2
Left = 119
Top = 100
Top = 103
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 59
Width = 200
end
object fs_rowWind1: TcxTextEdit
Tag = 2
Left = 104
Top = 447
Hint = #38450#27700#25490#39118
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 60
Width = 150
end
object fs_rowWind2: TcxTextEdit
Tag = 2
Left = 303
Top = 447
Hint = #38450#27700#25490#39118
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 61
Width = 150
end
object fs_rowWind3: TcxTextEdit
Tag = 2
Left = 512
Top = 447
Hint = #38450#27700#25490#39118
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 62
Width = 150
end
object fs_rowWind4: TcxTextEdit
Tag = 2
Left = 711
Top = 447
Hint = #38450#27700#25490#39118
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
@ -1952,64 +1971,16 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
TabOrder = 63
Width = 150
end
object fs_rowWind1: TcxTextEdit
object fs_speed: TcxTextEdit
Tag = 2
Left = 104
Top = 438
Hint = #23450#22411#28888#31665#28201#24230
Left = 119
Top = 76
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 64
Width = 150
end
object fs_rowWind2: TcxTextEdit
Tag = 2
Left = 303
Top = 438
Hint = #23450#22411#28888#31665#28201#24230
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 65
Width = 150
end
object fs_rowWind3: TcxTextEdit
Tag = 2
Left = 512
Top = 438
Hint = #23450#22411#28888#31665#28201#24230
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 66
Width = 150
end
object fs_rowWind4: TcxTextEdit
Tag = 2
Left = 711
Top = 438
Hint = #23450#22411#28888#31665#28201#24230
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 67
Width = 150
end
object fs_speed: TcxTextEdit
Tag = 2
Left = 119
Top = 75
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 68
Width = 150
Width = 200
end
object fs_temperature1: TcxTextEdit
Tag = 2
@ -2020,7 +1991,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 69
TabOrder = 65
Width = 150
end
object fs_temperature10: TcxTextEdit
@ -2032,7 +2003,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 70
TabOrder = 66
Width = 150
end
object fs_temperature11: TcxTextEdit
@ -2044,7 +2015,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 71
TabOrder = 67
Width = 150
end
object fs_temperature2: TcxTextEdit
@ -2056,7 +2027,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 72
TabOrder = 68
Width = 150
end
object fs_temperature3: TcxTextEdit
@ -2068,7 +2039,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 73
TabOrder = 69
Width = 150
end
object fs_temperature4: TcxTextEdit
@ -2080,7 +2051,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 74
TabOrder = 70
Width = 150
end
object fs_temperature5: TcxTextEdit
@ -2092,7 +2063,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 75
TabOrder = 71
Width = 150
end
object fs_temperature6: TcxTextEdit
@ -2104,7 +2075,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 76
TabOrder = 72
Width = 150
end
object fs_temperature7: TcxTextEdit
@ -2116,7 +2087,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 77
TabOrder = 73
Width = 150
end
object fs_temperature8: TcxTextEdit
@ -2128,7 +2099,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 78
TabOrder = 74
Width = 150
end
object fs_temperature9: TcxTextEdit
@ -2140,30 +2111,30 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 79
TabOrder = 75
Width = 150
end
object fs_TubePress: TcxTextEdit
Tag = 2
Left = 390
Top = 24
Left = 510
Top = 23
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 80
Width = 150
TabOrder = 76
Width = 200
end
object fs_tubeTemper: TcxTextEdit
Tag = 2
Left = 390
Top = 75
Left = 510
Top = 76
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 81
Width = 150
TabOrder = 77
Width = 200
end
object fs_upperNeedle: TcxTextEdit
Tag = 2
@ -2173,7 +2144,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 82
TabOrder = 78
Width = 150
end
object fs_UpSuperRate: TcxTextEdit
@ -2184,29 +2155,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 83
Width = 150
end
object fs_WidthAmplitude: TcxTextEdit
Tag = 2
Left = 119
Top = 24
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 84
Width = 150
end
object fs_WidthFinish: TcxTextEdit
Tag = 2
Left = 119
Top = 50
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 85
TabOrder = 79
Width = 150
end
object cxLabel26: TcxLabel
@ -2215,14 +2164,14 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Caption = #21069#36229#21890':'
end
object cxLabel352: TcxLabel
Left = 575
Top = 25
Left = 37
Top = 23
Caption = #31867#22411
end
object FS_Style: TcxComboBox
Tag = 2
Left = 630
Top = 25
Left = 119
Top = 23
Properties.Items.Strings = (
''
#28165#27700
@ -2232,34 +2181,18 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 88
Width = 150
end
object cxLabel353: TcxLabel
Left = 575
Top = 51
Caption = #20986#21475#38376#24133
end
object fs_WidthOutLet: TcxTextEdit
Tag = 2
Left = 630
Top = 51
Style.LookAndFeel.SkinName = 'WXI'
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 90
Width = 150
TabOrder = 82
Width = 200
end
object cxLabel354: TcxLabel
Left = 575
Top = 102
Left = 37
Top = 50
Caption = #33073#30495#31354
end
object fs_isVacuun: TcxComboBox
Tag = 2
Left = 630
Top = 99
Left = 119
Top = 50
Properties.Items.Strings = (
''
#26159
@ -2268,8 +2201,26 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
StyleDisabled.LookAndFeel.SkinName = 'WXI'
StyleFocused.LookAndFeel.SkinName = 'WXI'
StyleHot.LookAndFeel.SkinName = 'WXI'
TabOrder = 92
Width = 150
TabOrder = 84
Width = 200
end
object TbFSReplace3: TcxButton
Left = 104
Top = 414
Width = 75
Height = 25
Caption = #19968#38190#26367#25442
TabOrder = 85
OnClick = TbFSReplace3Click
end
object TbFSClear3: TcxButton
Left = 196
Top = 414
Width = 75
Height = 25
Caption = #19968#38190#28165#31354
TabOrder = 86
OnClick = TbFSClear3Click
end
end
end
@ -2280,7 +2231,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
Height = 718
Height = 730
Align = alClient
TabOrder = 0
object TbGJReplace2: TcxButton
@ -3117,7 +3068,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
Height = 718
Height = 730
Align = alClient
TabOrder = 0
object TbFPReplace2: TcxButton
@ -3958,11 +3909,12 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
ParentFont = False
object cxGrid2: TcxGrid
Left = 0
Top = 560
Top = 572
Width = 1143
Height = 158
Align = alBottom
TabOrder = 0
ExplicitTop = 560
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -4034,7 +3986,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
Height = 525
Height = 537
Align = alClient
TabOrder = 1
object cxLabel100: TcxLabel
@ -4431,7 +4383,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
end
object ToolBar4: TToolBar
Left = 0
Top = 525
Top = 537
Width = 1143
Height = 35
Align = alBottom
@ -4443,6 +4395,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
ShowCaptions = True
TabOrder = 2
Transparent = True
ExplicitTop = 525
object TbAdd1: TToolButton
Left = 0
Top = 0
@ -4474,7 +4427,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
Height = 718
Height = 730
Hint = 'tt'
Align = alClient
TabOrder = 0
@ -4654,11 +4607,12 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
ParentFont = False
object cxGrid1: TcxGrid
Left = 0
Top = 600
Top = 612
Width = 1143
Height = 118
Align = alBottom
TabOrder = 0
ExplicitTop = 600
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -4747,7 +4701,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
Height = 562
Height = 574
Align = alClient
TabOrder = 1
object cxLabel107: TcxLabel
@ -5161,7 +5115,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
end
object ToolBar3: TToolBar
Left = 0
Top = 562
Top = 574
Width = 1143
Height = 38
Align = alBottom
@ -5173,6 +5127,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
ShowCaptions = True
TabOrder = 2
Transparent = True
ExplicitTop = 562
object TbAdd2: TToolButton
Left = 0
Top = 0
@ -5196,7 +5151,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
ImageIndex = 5
object cxGrid3: TcxGrid
Left = 0
Top = 560
Top = 572
Width = 1143
Height = 158
Align = alBottom
@ -5207,6 +5162,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Font.Style = []
ParentFont = False
TabOrder = 0
ExplicitTop = 560
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -5295,7 +5251,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
Height = 522
Height = 534
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
@ -5646,7 +5602,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
end
object ToolBar5: TToolBar
Left = 0
Top = 522
Top = 534
Width = 1143
Height = 38
Align = alBottom
@ -5658,6 +5614,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
ShowCaptions = True
TabOrder = 2
Transparent = True
ExplicitTop = 522
object TbAdd3: TToolButton
Left = 0
Top = 0
@ -5689,7 +5646,7 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
Left = 0
Top = 0
Width = 1143
Height = 718
Height = 730
Align = alClient
TabOrder = 0
object cxLabel115: TcxLabel
@ -5985,12 +5942,12 @@ object frmDyeProcessDefin: TfrmDyeProcessDefin
object CDS_HZ: TClientDataSet
Aggregates = <>
Params = <>
Left = 258
Top = 444
Left = 306
Top = 396
end
object DS_HZ: TDataSource
DataSet = CDS_HZ
Left = 330
Top = 444
Left = 386
Top = 388
end
end

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

@ -607,7 +607,6 @@ type
cxLabel194: TcxLabel;
cxLabel195: TcxLabel;
cxLabel196: TcxLabel;
cxLabel197: TcxLabel;
cxLabel198: TcxLabel;
cxLabel199: TcxLabel;
cxLabel200: TcxLabel;
@ -642,11 +641,8 @@ type
cxLabel229: TcxLabel;
cxLabel230: TcxLabel;
cxLabel231: TcxLabel;
cxLabel232: TcxLabel;
cxLabel333: TcxLabel;
fs_CarPress: TcxTextEdit;
fs_DownSuperRate: TcxTextEdit;
fs_gram: TcxTextEdit;
fs_hotWind1: TcxTextEdit;
fs_hotWind10: TcxTextEdit;
fs_hotWind11: TcxTextEdit;
@ -681,8 +677,6 @@ type
fs_tubeTemper: TcxTextEdit;
fs_upperNeedle: TcxTextEdit;
fs_UpSuperRate: TcxTextEdit;
fs_WidthAmplitude: TcxTextEdit;
fs_WidthFinish: TcxTextEdit;
Panel_jgqx: TPanel;
cxLabel340: TcxLabel;
cxLabel341: TcxLabel;
@ -772,10 +766,10 @@ type
cxLabel26: TcxLabel;
cxLabel352: TcxLabel;
FS_Style: TcxComboBox;
cxLabel353: TcxLabel;
fs_WidthOutLet: TcxTextEdit;
cxLabel354: TcxLabel;
fs_isVacuun: TcxComboBox;
TbFSReplace3: TcxButton;
TbFSClear3: TcxButton;
procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TbSaveClick(Sender: TObject);
@ -804,8 +798,8 @@ type
procedure TbFSReplace2Click(Sender: TObject);
procedure TbFPReplaceClick(Sender: TObject);
procedure TbGJReplaceClick(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure TbFSReplace3Click(Sender: TObject);
procedure TbFSClear3Click(Sender: TObject);
procedure TbDXClear2Click(Sender: TObject);
procedure cxButton4Click(Sender: TObject);
procedure TbGJClearClick(Sender: TObject);
@ -828,7 +822,7 @@ type
canshu1: string;
Fint: Integer;
procedure InitGrid();
procedure ArrangeTabsByDataset;
procedure ArrangeTabsByDataset();
function SaveData(): Boolean;
function FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string;
procedure FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil);
@ -850,7 +844,7 @@ implementation
uses
U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload, U_ClothInfoSel,
U_DyeProcessList, U_ProductInfoSel;
U_DyeProcessList, U_ProductInfoSel, U_DyeTechnicsinput;
// U_ProductInfoSel;
{$R *.dfm}
@ -896,7 +890,7 @@ begin
// end;
end;
procedure TfrmDyeProcessDefin.ArrangeTabsByDataset;
procedure TfrmDyeProcessDefin.ArrangeTabsByDataset();
var
I: Integer;
TabSheet: TcxTabSheet;
@ -922,6 +916,7 @@ begin
begin
TabSheet.PageIndex := CurrentIndex;
TabSheet.TabVisible := True;
TabSheet.Visible := True;
Inc(CurrentIndex);
Break;
end;
@ -929,7 +924,7 @@ begin
end;
// Ë¢ÐÂÒ³Ãæ¿Ø¼þ
cxPageControl1.Invalidate;
// cxPageControl1.Invalidate;
end;
procedure TfrmDyeProcessDefin.InitGrid();
@ -953,12 +948,11 @@ begin
Close;
sql.Clear;
sql.Add('select A.* from Bs_Cloth_GY_sub A ');
sql.Add(' where gytype=''苟彊땍謹'' and A.PSID=''' + Trim(FPSID) + '''');
sql.Add(' where gytype=''发泡'' and A.PSID=''' + Trim(FPSID) + '''');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2);
with ADOQueryTemp do
begin
Close;
@ -982,150 +976,62 @@ var
Maxid1, maxid2, maxid3, maxgx: string;
begin
InitGrid();
ArrangeTabsByDataset;
if BtnInt = 0 then //劤藤
ArrangeTabsByDataset();
if (BtnInt = 0) and (frmDyeTechnicsinput.CDS_1.FieldByName('PSName').Value = '') then //新增
begin
FPSID := '';
end;
if (BtnInt = 1) or (BtnInt = 3) then //錦맣
with ADOQueryTemp do
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select * from Dye_Process where PSID=''' + Trim(FPSID) + '''');
Open;
end;
SCSHData(ADOQueryTemp, Panel1, 2);
Close;
SQL.Clear;
SQL.Add('select * from Dye_Process where PSID=''' + Trim(FPSID) + '''');
Open;
end;
SCSHData(ADOQueryTemp, Panel1, 2);
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(FPSID) + '''');
Open;
end;
if FPSType = '낀났헌求' then
begin
SCSHData(ADOQueryTemp, Panel_ccqx, 2);
end
else if FPSType = '얩횡멂헌求' then
begin
SCSHData(ADOQueryTemp, Panel_rgqx, 2);
end
else if FPSType = '샙멂헌求' then
begin
SCSHData(ADOQueryTemp, Panel_jgqx, 2);
end
else if FPSType = '맴땍謹' then
begin
SCSHData(ADOQueryTemp, Panel_dx, 2);
end
else if FPSType = '苟彊땍謹' then
begin
SCSHData(ADOQueryTemp, Panel_fs, 2);
end
else if FPSType = '랙텟' then
begin
SCSHData(ADOQueryTemp, Panel_fp, 2);
end
else if FPSType = '민스' then
begin
SCSHData(ADOQueryTemp, Panel_gj, 2);
end
else if FPSType = '羅챘' then
begin
SCSHData(ADOQueryTemp, Panel_zm, 2);
end;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(FPSID) + '''');
Open;
end;
if BtnInt = 2 then //릿齡
if FPSType = '长车清洗' then
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select * from Dye_Process where PSID=''' + Trim(FPSID) + '''');
Open;
end;
SCSHData(ADOQueryTemp, Panel1, 2);
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select * from Bs_Cloth_GY_Main where PSID=''' + Trim(FPSID) + '''');
Open;
end;
if FPSType = '낀났헌求' then
begin
SCSHData(ADOQueryTemp, Panel_ccqx, 2);
end
else if FPSType = '얩횡멂헌求' then
begin
SCSHData(ADOQueryTemp, Panel_rgqx, 2);
end
else if FPSType = '샙멂헌求' then
begin
SCSHData(ADOQueryTemp, Panel_jgqx, 2);
end
else if FPSType = '맴땍謹' then
begin
SCSHData(ADOQueryTemp, Panel_dx, 2);
end
else if FPSType = '렝彊' then
begin
SCSHData(ADOQueryTemp, Panel_fs, 2);
// with CDS_1 do
// begin
// First;
// while not Eof do
// begin
// Edit;
// CDS_1.fieldbyname('BCPID').AsString := '';
// Post;
// Next;
// end;
// end;
end
else if FPSType = '랙텟' then
begin
SCSHData(ADOQueryTemp, Panel_fp, 2);
// with CDS_2 do
// begin
// First;
// while not Eof do
// begin
// Edit;
// CDS_2.fieldbyname('BCPID').AsString := '';
// Post;
// Next;
// end;
// end;
end
else if FPSType = '민스' then
begin
SCSHData(ADOQueryTemp, Panel_gj, 2);
// with CDS_3 do
// begin
// First;
// while not Eof do
// begin
// Edit;
// CDS_3.fieldbyname('BCPID').AsString := '';
// Post;
// Next;
// end;
// end;
end
else if FPSType = '羅챘' then
begin
SCSHData(ADOQueryTemp, Panel_zm, 2);
end;
SCSHData(ADOQueryTemp, Panel_ccqx, 2);
end
else if FPSType = '卷染缸清洗' then
begin
SCSHData(ADOQueryTemp, Panel_rgqx, 2);
end
else if FPSType = '机缸清洗' then
begin
SCSHData(ADOQueryTemp, Panel_jgqx, 2);
end
else if FPSType = '干定型' then
begin
SCSHData(ADOQueryTemp, Panel_dx, 2);
end
else if FPSType = '下水定型' then
begin
SCSHData(ADOQueryTemp, Panel_fs, 2);
end
else if FPSType = '发泡' then
begin
SCSHData(ADOQueryTemp, Panel_fp, 2);
end
else if FPSType = '刮胶' then
begin
SCSHData(ADOQueryTemp, Panel_gj, 2);
end
else if FPSType = '轧毛' then
begin
SCSHData(ADOQueryTemp, Panel_zm, 2);
end;
if BtnInt = 3 then //²é¿´
begin
TbSave.Visible := False;
@ -1175,18 +1081,39 @@ begin
Result := False;
Exit;
end;
with ADOQueryCmd do
if (BtnInt = 1) and (Trim(PSName.Text) = frmDyeTechnicsinput.CDS_1.FieldByName('PSName').Value) then
begin ///修改+名称修改重复
end
else if (BtnInt = 2) and (Trim(PSName.Text) = frmDyeTechnicsinput.CDS_1.FieldByName('PSName').Value) then
begin ///复制+名称修改重复
end
else if (BtnInt = 0) and (Trim(PSName.Text) = frmDyeTechnicsinput.CDS_1.FieldByName('PSName').Value) then
begin ///新增+名称修改重复
end
else
begin
Close;
SQL.Clear;
sql.Add('select * from Dye_Process where PSName=''' + trim(PSName.Text) + '''');
Open;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Dye_Process where PSName=''' + trim(PSName.Text) + '''');
Open;
end;
if ADOQueryCmd.RecordCount > 0 then
begin
application.MessageBox(PChar('工序名称''' + trim(PSName.text) + '''已存在'), '提示');
Result := false;
Exit;
end;
end;
if ADOQueryCmd.RecordCount > 1 then
if BtnInt = 2 then///复制
begin
application.MessageBox(PChar('묏埼츰냔' + trim(PSName.text) + '綠닸瞳'), '瓊刻');
Result := false;
Exit;
FPSID := '';
end;
Result := True;
end;
@ -1794,14 +1721,14 @@ begin
end;
end;
procedure TfrmDyeProcessDefin.cxButton1Click(Sender: TObject);
procedure TfrmDyeProcessDefin.TbFSReplace3Click(Sender: TObject);
begin
ClearAllTextEditsByHint(panel4, '렝彊뷸芎侊똑');
FillAllTextEditsWithValue(panel_fs, '防水排风', FindLastEditedTextEdit(panel_fs, '防水排风'));
end;
procedure TfrmDyeProcessDefin.cxButton2Click(Sender: TObject);
procedure TfrmDyeProcessDefin.TbFSClear3Click(Sender: TObject);
begin
ClearAllTextEditsByHint(panel2, '헌求彊侊');
ClearAllTextEditsByHint(panel_fs, '防水排风');
end;
procedure TfrmDyeProcessDefin.TbCCQXReplaceClick(Sender: TObject);

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

@ -1,9 +1,9 @@
inherited frmDyeProcessList: TfrmDyeProcessList
Caption = #24037#24207#31649#29702
ClientHeight = 569
ClientWidth = 1126
ClientWidth = 1134
WindowState = wsMaximized
ExplicitWidth = 1142
ExplicitWidth = 1150
ExplicitHeight = 608
PixelsPerInch = 96
TextHeight = 12
@ -11,7 +11,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
Tag = 1
Left = 0
Top = 0
Width = 1126
Width = 1134
Height = 76
AutoSize = True
ButtonHeight = 38
@ -24,6 +24,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList
ParentColor = False
ShowCaptions = True
TabOrder = 0
ExplicitWidth = 1126
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -157,13 +158,14 @@ inherited frmDyeProcessList: TfrmDyeProcessList
object Panel1: TPanel [1]
Left = 0
Top = 76
Width = 1126
Width = 1134
Height = 38
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
ExplicitWidth = 1126
object Label5: TLabel
Left = 326
Top = 12
@ -218,10 +220,11 @@ inherited frmDyeProcessList: TfrmDyeProcessList
object cxGrid2: TcxGrid [2]
Left = 0
Top = 114
Width = 1126
Width = 1134
Height = 455
Align = alClient
TabOrder = 2
ExplicitTop = 110
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False

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

@ -4,6 +4,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
Caption = #24037#33402#30331#35760
ClientHeight = 593
ClientWidth = 1455
ExplicitLeft = -604
ExplicitWidth = 1471
ExplicitHeight = 632
PixelsPerInch = 96
@ -57,16 +58,24 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
ImageIndex = 3
OnClick = ToolButton4Click
end
object TBDel: TToolButton
object ToolButton5: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #22797#21046
ImageIndex = 13
OnClick = ToolButton5Click
end
object TBDel: TToolButton
Left = 355
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TBDelClick
end
object Tchk: TToolButton
Left = 355
Left = 426
Top = 0
AutoSize = True
Caption = #38145#23450
@ -74,7 +83,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
OnClick = TchkClick
end
object TNochk: TToolButton
Left = 426
Left = 497
Top = 0
AutoSize = True
Caption = #25764#38144#38145#23450
@ -82,7 +91,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
OnClick = TNochkClick
end
object ToolButton3: TToolButton
Left = 521
Left = 592
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -90,7 +99,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 616
Left = 687
Top = 0
AutoSize = True
Caption = #20851#38381
@ -108,7 +117,6 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
ExplicitTop = 44
object Label1: TLabel
Left = 186
Top = 13
@ -145,11 +153,10 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
object cxGrid2: TcxGrid [2]
Left = 0
Top = 99
Width = 760
Width = 1217
Height = 494
Align = alLeft
TabOrder = 2
ExplicitLeft = -6
object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -190,7 +197,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
FooterAlignmentHorz = taCenter
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Width = 60
Width = 51
end
object v2GYNO: TcxGridDBColumn
Caption = #24037#33402#32534#21495
@ -198,7 +205,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 67
Width = 196
end
object v2GYName: TcxGridDBColumn
Caption = #24037#33402#21517#31216
@ -206,7 +213,7 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 69
Width = 304
end
object v2GYGX: TcxGridDBColumn
Caption = #24037#24207
@ -244,14 +251,14 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
ClientRectTop = 19
end
object cxGrid1: TcxGrid [4]
Left = 760
Left = 1217
Top = 99
Width = 695
Width = 238
Height = 494
Align = alClient
TabOrder = 4
ExplicitLeft = 768
ExplicitWidth = 687
ExplicitLeft = 1160
ExplicitWidth = 295
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -302,12 +309,13 @@ inherited frmDyeTechnicsList: TfrmDyeTechnicsList
end
end
object cxSplitter1: TcxSplitter [5]
Left = 760
Left = 1217
Top = 99
Width = 0
Height = 494
AlignSplitter = salRight
Control = cxGrid2
ExplicitLeft = 1065
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_DyePlan.ADOLink

20
F02染色计划单/U_DyeTechnicsList.pas
View File

@ -57,6 +57,7 @@ type
ToolButton3: TToolButton;
ToolButton1: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -73,6 +74,7 @@ type
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
private
{ Private declarations }
@ -294,6 +296,24 @@ begin
end;
end;
procedure TfrmDyeTechnicsList.ToolButton5Click(Sender: TObject);
begin
try
frmDyeTechnicsinput := TfrmDyeTechnicsinput.Create(Application);
with frmDyeTechnicsinput do
begin
PState := '¸´ÖÆ';
FDTMID := Trim(self.CDS_2.fieldbyname('DTMID').AsString);
if ShowModal = 1 then
begin
end;
end;
finally
frmDyeTechnicsinput.Free;
end;
end;
procedure TfrmDyeTechnicsList.DTMNoChange(Sender: TObject);
begin
ToolButton2.Click;

177
F02染色计划单/U_DyeTechnicsinput.dfm
View File

@ -18,7 +18,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
object Panel2: TPanel [1]
Left = 0
Top = 0
Width = 481
Width = 753
Height = 593
Align = alLeft
Caption = 'Panel2'
@ -26,9 +26,9 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
object cxGrid2: TcxGrid
Left = 1
Top = 39
Width = 479
Width = 296
Height = 553
Align = alClient
Align = alLeft
TabOrder = 0
object Tv2: TcxGridDBTableView
OnDblClick = Tv2DblClick
@ -36,6 +36,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv2FocusedRecordChanged
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -57,20 +58,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
OptionsData.DeletingConfirmation = False
OptionsSelection.CellSelect = False
OptionsView.GroupByBox = False
object v2PSName: TcxGridDBColumn
Caption = #24037#24207#21517#31216
DataBinding.FieldName = 'PSName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Width = 98
end
object v2PSNote: TcxGridDBColumn
object Tv2PSType: TcxGridDBColumn
Caption = #24037#24207#31867#21035
DataBinding.FieldName = 'PSType'
DataBinding.IsNullValueType = True
@ -81,15 +69,15 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Kind = bkEllipsis
end>
HeaderAlignmentHorz = taCenter
Width = 128
Width = 143
end
object v2Column1: TcxGridDBColumn
object Tv2PSNote: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Width = 101
Width = 112
end
end
object cxGridLevel1: TcxGridLevel
@ -99,63 +87,91 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
object Panel1: TPanel
Left = 1
Top = 1
Width = 479
Width = 751
Height = 38
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
ExplicitWidth = 431
object Label5: TLabel
Left = 191
Top = 12
Width = 48
Height = 13
Caption = #36710#38388#21517#31216
end
object Label1: TLabel
Left = 31
Top = 12
Left = 23
Top = 15
Width = 48
Height = 13
Caption = #24037#24207#21517#31216
end
object SYRName: TEdit
Tag = 2
Left = 241
Top = 8
Width = 89
Height = 21
TabOrder = 0
OnChange = PSNameChange
end
object PSName: TEdit
Tag = 2
Left = 85
Left = 73
Top = 11
Width = 89
Height = 21
TabOrder = 1
OnChange = PSNameChange
TabOrder = 0
OnKeyPress = PSNameKeyPress
end
end
object cxGrid3: TcxGrid
Left = 297
Top = 39
Width = 455
Height = 553
Align = alClient
TabOrder = 2
ExplicitLeft = 293
ExplicitTop = 36
object Tv3: TcxGridDBTableView
OnDblClick = Tv3DblClick
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsView.GroupByBox = False
object Tv3PSID: TcxGridDBColumn
Caption = #24037#24207'ID'
DataBinding.FieldName = 'PSID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 150
end
object Tv3Column2: TcxGridDBColumn
Caption = #24037#24207#21517#31216
DataBinding.FieldName = 'PSName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 150
end
end
object cxGrid3Level1: TcxGridLevel
GridView = Tv3
end
end
end
object Panel3: TPanel [2]
Left = 481
Left = 753
Top = 0
Width = 966
Width = 694
Height = 593
Align = alClient
Caption = 'Panel3'
TabOrder = 2
ExplicitLeft = 433
ExplicitWidth = 1014
object cxGrid1: TcxGrid
Left = 1
Top = 77
Width = 964
Width = 692
Height = 515
Align = alClient
PopupMenu = PM_1
TabOrder = 0
ExplicitLeft = 5
ExplicitTop = 83
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -184,14 +200,29 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 97
Width = 73
end
object cxGridDBColumn1: TcxGridDBColumn
Caption = #24037#24207#31867#22411
DataBinding.FieldName = 'PSType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.OnButtonClick = cxGridDBColumn1PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 113
end
object TV1PSName: TcxGridDBColumn
Caption = #24037#24207#21517#31216
DataBinding.FieldName = 'PSName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 141
Options.Editing = False
Width = 116
end
end
object cxGridLevel2: TcxGridLevel
@ -202,7 +233,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Tag = 1
Left = 1
Top = 1
Width = 964
Width = 692
Height = 38
AutoSize = True
ButtonHeight = 38
@ -223,16 +254,24 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
ImageIndex = 1
OnClick = TBRafreshClick
end
object btnSave: TToolButton
object TbDelete: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 6
OnClick = TbDeleteClick
end
object btnSave: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = btnSaveClick
end
object ToolButton2: TToolButton
Left = 142
Left = 213
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -240,7 +279,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 237
Left = 308
Top = 0
AutoSize = True
Caption = #20851#38381
@ -251,23 +290,24 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
object Panel4: TPanel
Left = 1
Top = 39
Width = 964
Width = 692
Height = 38
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 2
ExplicitWidth = 1012
object Label2: TLabel
Left = 186
Top = 13
Top = 9
Width = 48
Height = 13
Caption = #24037#33402#21517#31216
end
object Label3: TLabel
Left = 30
Top = 19
Top = 9
Width = 48
Height = 13
Caption = #24037#33402#32534#21495
@ -283,7 +323,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
object DTMNo: TEdit
Tag = 2
Left = 84
Top = 9
Top = 6
Width = 89
Height = 21
TabOrder = 1
@ -304,13 +344,13 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Connection = DataLink_DyePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 397
Left = 381
Top = 145
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_DyePlan.ADOLink
Parameters = <>
Left = 317
Left = 301
Top = 145
end
object ADOQueryMain: TADOQuery
@ -322,19 +362,19 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
end
object GPM_2: TcxGridPopupMenu
PopupMenus = <>
Left = 343
Top = 281
Left = 215
Top = 385
end
object DS_2: TDataSource
DataSet = CDS_2
Left = 543
Top = 192
Left = 303
Top = 224
end
object CDS_2: TClientDataSet
Aggregates = <>
Params = <>
Left = 288
Top = 345
Left = 144
Top = 361
end
object DS_1: TDataSource
DataSet = CDS_1
@ -368,4 +408,15 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
OnClick = N2Click
end
end
object CDS_3: TClientDataSet
Aggregates = <>
Params = <>
Left = 424
Top = 304
end
object DS_3: TDataSource
DataSet = CDS_3
Left = 480
Top = 304
end
end

214
F02染色计划单/U_DyeTechnicsinput.pas
View File

@ -35,9 +35,8 @@ type
Panel2: TPanel;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
v2PSName: TcxGridDBColumn;
v2PSNote: TcxGridDBColumn;
v2Column1: TcxGridDBColumn;
Tv2PSType: TcxGridDBColumn;
Tv2PSNote: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
Panel1: TPanel;
Panel3: TPanel;
@ -50,8 +49,6 @@ type
TBRafresh: TToolButton;
TBClose: TToolButton;
Label5: TLabel;
Label1: TLabel;
SYRName: TEdit;
PSName: TEdit;
ToolButton2: TToolButton;
btnSave: TToolButton;
@ -60,6 +57,15 @@ type
Label3: TLabel;
DTMName: TEdit;
DTMNo: TEdit;
TV1PSName: TcxGridDBColumn;
Tv3: TcxGridDBTableView;
cxGrid3Level1: TcxGridLevel;
cxGrid3: TcxGrid;
TbDelete: TToolButton;
Tv3PSID: TcxGridDBColumn;
Tv3Column2: TcxGridDBColumn;
CDS_3: TClientDataSet;
DS_3: TDataSource;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -71,10 +77,14 @@ type
procedure FormCreate(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure PSNameChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure Tv2DblClick(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure TbDeleteClick(Sender: TObject);
procedure Tv3DblClick(Sender: TObject);
procedure PSNameKeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
@ -82,6 +92,8 @@ type
procedure InitGlide();
procedure SetXH();
function SaveData(): boolean;
procedure CheckData();
procedure InitGridSub();
public
FDTMID, PState: string;
{ Public declarations }
@ -94,7 +106,7 @@ var
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_DyeProcessSel;
U_DataLink, U_RTFun, U_ZDYHelp, U_DyeProcessSel, U_DyeProcessDefin;
{$R *.dfm}
@ -161,6 +173,23 @@ begin
end;
SCreateCDS(ADOQueryTemp, CDS_1);
SInitCDSData(ADOQueryTemp, CDS_1);
CheckData();
end;
procedure TfrmDyeTechnicsinput.CheckData();
begin
if PState = '复制' then
begin
CDS_1.First;
while not CDS_1.Eof do
begin
CDS_1.Edit;
CDS_1.FieldByName('PSName').Value := '';
CDS_1.Post;
CDS_1.Next;
end;
FDTMID := '';
end;
end;
@ -248,25 +277,6 @@ begin
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from Dye_Technics_Main where DTMNo=''' + Trim(DTMNo.Text) + '''');
Open;
end;
if ADOQueryCmd.RecordCount > 1 then
raise Exception.Create('工艺编号重复!');
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from Dye_Technics_Main where DTMName=''' + Trim(DTMName.Text) + '''');
Open;
end;
if ADOQueryCmd.RecordCount > 1 then
raise Exception.Create('工艺名称重复!');
ADOQueryCmd.Connection.CommitTrans;
result := true;
@ -283,13 +293,13 @@ begin
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
// Filtered := False;
Close;
SQL.Clear;
sql.Add(' select *,PSXH=0 from Dye_Process ');
sql.Add(' select *,PSXH=0 from Dye_Technics ');
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
// SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_2);
SInitCDSData(ADOQueryMain, CDS_2);
finally
@ -297,6 +307,29 @@ begin
end;
end;
procedure TfrmDyeTechnicsinput.InitGridSub();
begin
if CDS_2.IsEmpty then
Exit;
try
ADOQueryTemp.DisableControls;
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from Dye_Process where PSType = ' + QuotedStr(Trim(CDS_2.FieldByName('PSType').ASSTRING)));
Open;
end;
SDofilter(ADOQueryTemp, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryTemp, CDS_3);
SInitCDSData(ADOQueryTemp, CDS_3);
finally
ADOQueryTemp.EnableControls;
end;
end;
procedure TfrmDyeTechnicsinput.FormDestroy(Sender: TObject);
begin
inherited;
@ -322,6 +355,7 @@ begin
ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, '工艺管理');
InitGrid();
InitGlide();
InitGridSub();
end;
procedure TfrmDyeTechnicsinput.TBRafreshClick(Sender: TObject);
@ -329,6 +363,27 @@ begin
InitGrid();
end;
procedure TfrmDyeTechnicsinput.TbDeleteClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
if Trim(CDS_1.fieldbyname('PSId').AsString) <> '' then
begin
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Dye_Process where PSId=''' + Trim(CDS_1.fieldbyname('PSId').AsString) + '''');
ExecSQL;
end;
end;
CDS_1.Delete;
SetXH();
end;
procedure TfrmDyeTechnicsinput.ToolButton2Click(Sender: TObject);
begin
ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '工艺管理');
@ -336,6 +391,52 @@ begin
end;
procedure TfrmDyeTechnicsinput.cxGridDBColumn1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application);
with frmDyeProcessDefin do
begin
FPSType := self.CDS_1.FieldByName('PSType').Value;
if (PState = '新增') and (Self.CDS_1.FieldByName('PSID').Value = '') then
begin
FPSID := '';
BtnInt := 0;////新增
end
else if PState = '修改' then
begin
FPSID := Self.CDS_1.FieldByName('PSID').Value;
BtnInt := 1;///修改
end
else if (PState = '复制') then
begin
FPSID := Self.CDS_1.FieldByName('PSID').Value;
BtnInt := 2;///复制
end
else
begin
FPSID := Self.CDS_1.FieldByName('PSID').Value;
BtnInt := 0;//新增回改
end;
if ShowModal = 1 then
begin
TBRafresh.Click;
with self.CDS_1 do
begin
Edit;
FieldByName('PSID').Value := frmDyeProcessDefin.FPSID;
FieldByName('PSName').Value := frmDyeProcessDefin.PSName.Text;
Post;
end;
end;
end;
finally
frmDyeProcessDefin.Free;
end;
end;
procedure TfrmDyeTechnicsinput.cxTabControl1Change(Sender: TObject);
begin
InitGrid();
@ -392,6 +493,34 @@ begin
application.MessageBox('工艺名称不能为空', '提示');
Exit;
end;
if CDS_1.Locate('PSName', '', []) or CDS_1.Locate('PSName', null, []) then
begin
Application.MessageBox('请完善工序名称！', '提示信息', MB_OK);
Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from Dye_Technics_Main where DTMNo=''' + Trim(DTMNo.Text) + '''');
sql.Add(' and DTMID <> ''' + Trim(FDTMID) + '''');
Open;
end;
if ADOQueryCmd.RecordCount > 0 then
raise Exception.Create('工艺编号重复!');
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from Dye_Technics_Main where DTMName=''' + Trim(DTMName.Text) + '''');
sql.Add(' and DTMID <> ''' + Trim(FDTMID) + '''');
Open;
end;
if ADOQueryCmd.RecordCount > 0 then
raise Exception.Create('工艺名称重复!');
if SaveData() then
begin
Application.MessageBox('保存成功！', '提示', 0);
@ -443,8 +572,8 @@ begin
begin
Append;
FieldByName('PSNO').Value := CDS_1.RecordCount + 1;
FieldByName('PSName').Value := CDS_2.fieldbyname('PSName').AsString;
FieldByName('PSId').Value := CDS_2.fieldbyname('PSId').AsString;
FieldByName('PSType').Value := CDS_2.fieldbyname('PSType').AsString;
FieldByName('PSId').Value := '';
post;
end;
@ -452,7 +581,20 @@ end;
procedure TfrmDyeTechnicsinput.Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
InitGlide();
InitGridSub();
end;
procedure TfrmDyeTechnicsinput.Tv3DblClick(Sender: TObject);
begin
with CDS_1 do
begin
Append;
FieldByName('PSNO').Value := CDS_1.RecordCount + 1;
FieldByName('PSType').Value := CDS_2.fieldbyname('PSType').AsString;
FieldByName('PSId').Value := CDS_3.fieldbyname('PSID').AsString;
post;
end;
end;
procedure TfrmDyeTechnicsinput.FormCreate(Sender: TObject);
@ -473,13 +615,13 @@ begin
SetXH();
end;
procedure TfrmDyeTechnicsinput.PSNameChange(Sender: TObject);
procedure TfrmDyeTechnicsinput.PSNameKeyPress(Sender: TObject; var Key: Char);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_2);
SInitCDSData(ADOQueryMain, CDS_2);
SDofilter(ADOQueryTemp, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryTemp, CDS_3);
SInitCDSData(ADOQueryTemp, CDS_3);
end;
end;