diff --git a/A00通用窗体/U_LabelPrint.dfm b/A00通用窗体/U_LabelPrint.dfm index 8e3fdf2..9697c98 100644 --- a/A00通用窗体/U_LabelPrint.dfm +++ b/A00通用窗体/U_LabelPrint.dfm @@ -2,23 +2,23 @@ inherited frmLabelPrint: TfrmLabelPrint Left = 372 Top = 106 Caption = #25253#34920#25171#21360 - ClientHeight = 189 - ClientWidth = 291 + ClientHeight = 212 + ClientWidth = 299 Color = clWhite Font.Charset = GB2312_CHARSET Font.Height = -12 Font.Name = #23435#20307 Position = poMainFormCenter OnClose = FormClose - ExplicitWidth = 307 - ExplicitHeight = 228 + ExplicitWidth = 315 + ExplicitHeight = 251 PixelsPerInch = 96 TextHeight = 12 object Panel1: TPanel [0] Left = 0 Top = 0 - Width = 291 - Height = 189 + Width = 299 + Height = 212 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered @@ -26,6 +26,8 @@ inherited frmLabelPrint: TfrmLabelPrint FullRepaint = False ParentCtl3D = False TabOrder = 0 + ExplicitWidth = 778 + ExplicitHeight = 563 object btnPrint: TSpeedButton Left = 162 Top = 128 diff --git a/A00通用窗体/U_ProductInfoSel.dfm b/A00通用窗体/U_ProductInfoSel.dfm index 3555149..1496b1a 100644 --- a/A00通用窗体/U_ProductInfoSel.dfm +++ b/A00通用窗体/U_ProductInfoSel.dfm @@ -97,6 +97,7 @@ inherited frmProductInfoSel: TfrmProductInfoSel object Tv1: TcxGridDBTableView OnDblClick = TV1DblClick Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 DataController.Summary.DefaultGroupSummaryItems = < item @@ -139,12 +140,14 @@ inherited frmProductInfoSel: TfrmProductInfoSel object Tv1Column2: TcxGridDBColumn Caption = #21697#29260 DataBinding.FieldName = 'Brand' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 79 end object Tv1Column1: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'P_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 78 end @@ -152,6 +155,7 @@ inherited frmProductInfoSel: TfrmProductInfoSel Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'P_Name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -165,6 +169,7 @@ inherited frmProductInfoSel: TfrmProductInfoSel Tag = 2 Caption = #35268#26684 DataBinding.FieldName = 'P_Spec' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Width = 65 @@ -173,6 +178,7 @@ inherited frmProductInfoSel: TfrmProductInfoSel Tag = 2 Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -185,6 +191,7 @@ inherited frmProductInfoSel: TfrmProductInfoSel object v1Column9: TcxGridDBColumn Caption = #21333#20215 DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 71 end @@ -192,6 +199,7 @@ inherited frmProductInfoSel: TfrmProductInfoSel Tag = 2 Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True Width = 102 end end diff --git a/A00通用窗体/U_ProductInfoSel.pas b/A00通用窗体/U_ProductInfoSel.pas index ed295d2..ff1c0ee 100644 --- a/A00通用窗体/U_ProductInfoSel.pas +++ b/A00通用窗体/U_ProductInfoSel.pas @@ -11,7 +11,7 @@ uses cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit, - cxDropDownEdit; + cxDropDownEdit, dxScrollbarAnnotations; type TfrmProductInfoSel = class(TfrmBaseHelp) diff --git a/A02基础产品管理/ClothInfo.dproj.local b/A02基础产品管理/ClothInfo.dproj.local index 842c960..f6555ed 100644 --- a/A02基础产品管理/ClothInfo.dproj.local +++ b/A02基础产品管理/ClothInfo.dproj.local @@ -1,50 +1,50 @@  - 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899/12/30 00:00:00.000.146,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899/12/30 00:00:00.000.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas + 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas + 1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm + 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas= - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas 1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas + 1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas 1899/12/30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899/12/30 00:00:00.000.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm - 1899/12/30 00:00:00.000.146,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj - 1899/12/30 00:00:00.000.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas + 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 2025/06/13 15:31:04.000.480,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas 2025/06/13 15:43:57.000.936,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A02基础产品管理\U_ClothInfoInput.pas diff --git a/A02基础产品管理/U_ClothInfo.dfm b/A02基础产品管理/U_ClothInfo.dfm index 6dbcfe8..ab660dd 100644 --- a/A02基础产品管理/U_ClothInfo.dfm +++ b/A02基础产品管理/U_ClothInfo.dfm @@ -338,6 +338,8 @@ inherited frmClothInfo: TfrmClothInfo Align = alClient PopupMenu = PM_1 TabOrder = 0 + ExplicitLeft = -2 + ExplicitTop = 59 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -628,8 +630,6 @@ inherited frmClothInfo: TfrmClothInfo BevelInner = bvLowered BorderStyle = bsNone TabOrder = 0 - ExplicitLeft = 1 - ExplicitTop = 6 end end object Panel11: TPanel diff --git a/A02基础产品管理/U_ClothInfoInput.dfm b/A02基础产品管理/U_ClothInfoInput.dfm index 538fb76..66a44cf 100644 --- a/A02基础产品管理/U_ClothInfoInput.dfm +++ b/A02基础产品管理/U_ClothInfoInput.dfm @@ -98,6 +98,7 @@ object frmClothInfoInput: TfrmClothInfoInput Font.Style = [] ParentFont = False TabOrder = 0 + ExplicitLeft = 1 object C_GramWeight: TcxTextEdit Tag = 2 Left = 130 @@ -342,6 +343,7 @@ object frmClothInfoInput: TfrmClothInfoInput Font.Style = [] ParentFont = False TabOrder = 29 + ExplicitTop = 337 object TV4: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -437,7 +439,7 @@ object frmClothInfoInput: TfrmClothInfoInput Tag = 1 Left = 185 Top = 1 - Width = 497 + Width = 572 Height = 39 Align = alLeft AutoSize = True @@ -459,16 +461,23 @@ object frmClothInfoInput: TfrmClothInfoInput ParentFont = False ShowCaptions = True TabOrder = 1 - object TbQX: TToolButton + object TbFB: TToolButton Left = 0 Top = 0 + Caption = #32763#24067 + ImageIndex = 2 + OnClick = TbFBClick + end + object TbQX: TToolButton + Left = 75 + Top = 0 AutoSize = True Caption = #28165#27927 ImageIndex = 2 OnClick = TbQXClick end object TbDX: TToolButton - Left = 71 + Left = 146 Top = 0 AutoSize = True Caption = #23450#22411 @@ -476,7 +485,7 @@ object frmClothInfoInput: TfrmClothInfoInput OnClick = TbDXClick end object TbFS: TToolButton - Left = 142 + Left = 217 Top = 0 AutoSize = True Caption = #38450#27700 @@ -484,7 +493,7 @@ object frmClothInfoInput: TfrmClothInfoInput OnClick = TbFSClick end object TbFP: TToolButton - Left = 213 + Left = 288 Top = 0 AutoSize = True Caption = #21457#27873 @@ -492,7 +501,7 @@ object frmClothInfoInput: TfrmClothInfoInput OnClick = TbFPClick end object TbGJ: TToolButton - Left = 284 + Left = 359 Top = 0 AutoSize = True Caption = #21038#33014 @@ -500,7 +509,7 @@ object frmClothInfoInput: TfrmClothInfoInput OnClick = TbGJClick end object TbZM: TToolButton - Left = 355 + Left = 430 Top = 0 AutoSize = True Caption = #36711#27611 @@ -508,7 +517,7 @@ object frmClothInfoInput: TfrmClothInfoInput OnClick = TbZMClick end object TbDelete: TToolButton - Left = 426 + Left = 501 Top = 0 AutoSize = True Caption = #21024#38500 diff --git a/A02基础产品管理/U_ClothInfoInput.pas b/A02基础产品管理/U_ClothInfoInput.pas index 569e58e..526ba68 100644 --- a/A02基础产品管理/U_ClothInfoInput.pas +++ b/A02基础产品管理/U_ClothInfoInput.pas @@ -705,6 +705,7 @@ type DS_3_3: TDataSource; CDS_3_2: TClientDataSet; CDS_3_3: TClientDataSet; + TbFB: TToolButton; procedure FormShow(Sender: TObject); procedure TBCloseClick(Sender: TObject); procedure TbSaveClick(Sender: TObject); @@ -762,6 +763,7 @@ type procedure cxGridDBColumn19PropertiesEditValueChanged(Sender: TObject); procedure TbGJ2ReplaceClick(Sender: TObject); procedure TbGJ3ReplaceClick(Sender: TObject); + procedure TbFBClick(Sender: TObject); private canshu1: string; Fint: Integer; @@ -1633,17 +1635,17 @@ begin i := CDS_GX.RecordCount; //ǰdatasetжм¼ i := i + 1; - if i > 10 then - begin - Application.MessageBox('', 'ʾϢ', MB_OK); - exit; - end; + if CDS_GX.Locate('GXName', 'ˮ', []) = True then begin Application.MessageBox('Ѵڷˮ!', 'ʾ', 0); Exit; end; - + if i > 11 then + begin + Application.MessageBox('', 'ʾϢ', MB_OK); + exit; + end; // CopyAddRow(Tv1, CDS_1); with CDS_GX do begin @@ -1663,17 +1665,17 @@ begin i := CDS_GX.RecordCount; //ǰdatasetжм¼ i := i + 1; - if i > 10 then - begin - Application.MessageBox('', 'ʾϢ', MB_OK); - exit; - end; + if CDS_GX.Locate('GXName', 'ϴ', []) = True then begin Application.MessageBox('Ѵϴ!', 'ʾ', 0); Exit; end; - + if i > 11 then + begin + Application.MessageBox('', 'ʾϢ', MB_OK); + exit; + end; // CopyAddRow(Tv1, CDS_1); with CDS_GX do begin @@ -1693,11 +1695,7 @@ begin i := CDS_GX.RecordCount; //ǰdatasetжм¼ i := i + 1; - if i > 10 then - begin - Application.MessageBox('', 'ʾϢ', MB_OK); - exit; - end; + if CDS_GX.Locate('GXName', 'һζ', []) = True then begin if CDS_GX.Locate('GXName', 'ζ', []) = True then @@ -1739,6 +1737,12 @@ begin Post; end; end; + + if i > 11 then + begin + Application.MessageBox('', 'ʾϢ', MB_OK); + exit; + end; SetXH(); ArrangeTabsByDataset; end; @@ -1748,6 +1752,36 @@ begin FillAllTextEditsWithValue(panel3, 'ͺ¶', FindLastEditedTextEdit(panel3, 'ͺ¶')); end; +procedure TfrmClothInfoInput.TbFBClick(Sender: TObject); +var + i: Integer; +begin + + i := CDS_GX.RecordCount; //ǰdatasetжм¼ + i := i + 1; + if CDS_GX.Locate('GXName', '', []) = True then + begin + Application.MessageBox('Ѵڷ!', 'ʾ', 0); + Exit; + end; + if i > 11 then + begin + Application.MessageBox('', 'ʾϢ', MB_OK); + exit; + end; + +// CopyAddRow(Tv1, CDS_1); + with CDS_GX do + begin + Append; + FieldByName('SerialNo').Value := i; + FieldByName('GXName').Value := ''; + Post; + end; + SetXH(); + ArrangeTabsByDataset; +end; + procedure TfrmClothInfoInput.TbFPClick(Sender: TObject); var i: Integer; @@ -1755,16 +1789,18 @@ begin i := CDS_GX.RecordCount; //ǰdatasetжм¼ i := i + 1; - if i > 10 then - begin - Application.MessageBox('', 'ʾϢ', MB_OK); - exit; - end; + if CDS_GX.Locate('GXName', '', []) = True then begin Application.MessageBox('Ѵڷݹ!', 'ʾ', 0); Exit; end; + if i > 11 then + begin + Application.MessageBox('', 'ʾϢ', MB_OK); + exit; + end; + // CopyAddRow(Tv1, CDS_1); with CDS_GX do @@ -1790,11 +1826,7 @@ begin i := CDS_GX.RecordCount; //ǰdatasetжм¼ i := i + 1; - if i > 10 then - begin - Application.MessageBox('', 'ʾϢ', MB_OK); - exit; - end; + if CDS_GX.Locate('GXName', 'һιν', []) = True then begin if CDS_GX.Locate('GXName', 'ιν', []) = True then @@ -1836,6 +1868,11 @@ begin Post; end; end; + if i > 11 then + begin + Application.MessageBox('', 'ʾϢ', MB_OK); + exit; + end; SetXH(); ArrangeTabsByDataset; end; @@ -1851,17 +1888,17 @@ var begin i := CDS_GX.RecordCount; //ǰdatasetжм¼ i := i + 1; - if i > 10 then - begin - Application.MessageBox('', 'ʾϢ', MB_OK); - exit; - end; + if CDS_GX.Locate('GXName', 'ë', []) = True then begin Application.MessageBox('Ѵë!', 'ʾ', 0); Exit; end; - + if i > 11 then + begin + Application.MessageBox('', 'ʾϢ', MB_OK); + exit; + end; // CopyAddRow(Tv1, CDS_1); with CDS_GX do begin @@ -2040,7 +2077,7 @@ begin SInitCDSData(ADOQueryTemp, CDS_3); // end; end - else if CDS_gx.fieldByName('gxname').Value = 'һιν' then + else if CDS_gx.fieldByName('gxname').Value = 'ιν' then begin //ινӱ with ADOQueryTemp do @@ -2055,7 +2092,7 @@ begin SInitCDSData(ADOQueryTemp, CDS_3_2); // end; end - else if CDS_gx.fieldByName('gxname').Value = 'һιν' then + else if CDS_gx.fieldByName('gxname').Value = 'ιν' then begin //ινӱ with ADOQueryTemp do @@ -2145,7 +2182,6 @@ begin gj_RollMethod3.Text := ''; gj_OpenAmplitude3.Text := ''; end - else if CDS_gx.fieldByName('gxname').Value = 'ë' then begin SClearData(panel7, 2); diff --git a/B03基础物料仓库/ProductStk.dproj.local b/B03基础物料仓库/ProductStk.dproj.local index 345bb8a..b821de4 100644 --- a/B03基础物料仓库/ProductStk.dproj.local +++ b/B03基础物料仓库/ProductStk.dproj.local @@ -1,45 +1,45 @@  - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm - 1899/12/30 00:00:00.000.840,=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.pas - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.943,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtDyeInList.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.pas - 1899/12/30 00:00:00.000.997,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.233,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProductInfoSel.dfm + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.233,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProductInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.840,=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.pas + 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtDyeInList.pas + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.486,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\ProductStk.dproj=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\InformationBase.dproj + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas 1899/12/30 00:00:00.000.923,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\Unit1.pas= - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.486,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\ProductStk.dproj + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899/12/30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.dfm + 1899/12/30 00:00:00.000.233,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProductInfoSel.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899/12/30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtDyeInList.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.dfm - 1899/12/30 00:00:00.000.233,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProductInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899/12/30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.dfm - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.686,=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.pas 1899/12/30 00:00:00.000.495,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.526,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_PrtDyeInfoInPut.pas + 1899/12/30 00:00:00.000.686,=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_ProductInfoInPut.pas + 1899/12/30 00:00:00.000.997,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.943,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInList.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtDyeInList.dfm diff --git a/B03基础物料仓库/ProductStk.identcache b/B03基础物料仓库/ProductStk.identcache index 6270260..8be177d 100644 Binary files a/B03基础物料仓库/ProductStk.identcache and b/B03基础物料仓库/ProductStk.identcache differ diff --git a/F02染色计划单/DyePlan.dpr b/F02染色计划单/DyePlan.dpr index efc3268..1ef96f1 100644 --- a/F02染色计划单/DyePlan.dpr +++ b/F02染色计划单/DyePlan.dpr @@ -36,7 +36,9 @@ uses U_LabelPrint in '..\A00ͨô\U_LabelPrint.pas' {frmLabelPrint}, U_DyeTechnicsSel in '..\F00Ⱦɫͨô\U_DyeTechnicsSel.pas' {frmDyeTechnicsSel}, U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, - uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas'; + uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', + U_DyeProcessDefin in 'U_DyeProcessDefin.pas' {frmDyeProcessDefin}, + U_ProductInfoSel in '..\A00ͨô\U_ProductInfoSel.pas' {frmProductInfoSel}; {$R *.res} diff --git a/F02染色计划单/DyePlan.dproj b/F02染色计划单/DyePlan.dproj index 48c83b1..0c57ffd 100644 --- a/F02染色计划单/DyePlan.dproj +++ b/F02染色计划单/DyePlan.dproj @@ -183,6 +183,14 @@ TDataModule + +
frmDyeProcessDefin
+ dfm + + +
frmProductInfoSel
+ dfm + Cfg_2 Base diff --git a/F02染色计划单/DyePlan.dproj.local b/F02染色计划单/DyePlan.dproj.local index 4704b71..f0dea30 100644 --- a/F02染色计划单/DyePlan.dproj.local +++ b/F02染色计划单/DyePlan.dproj.local @@ -2,60 +2,62 @@ 1899/12/30 00:00:00.000.327,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas 1899/12/30 00:00:00.000.934,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas 1899/12/30 00:00:00.000.625,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas= 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899/12/30 00:00:00.000.017,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothStkSel.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899/12/30 00:00:00.000.188,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas + 1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas 1899/12/30 00:00:00.000.037,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_Cust_Cloth_PSC.pas 1899/12/30 00:00:00.000.362,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas 1899/12/30 00:00:00.000.495,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeProcessList.pas 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899/12/30 00:00:00.000.577,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm - 1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.dfm 1899/12/30 00:00:00.000.722,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothOutSel.pas + 1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.dfm 1899/12/30 00:00:00.000.046,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeProcessSel.pas - 1899/12/30 00:00:00.000.782,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.014,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.782,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.986,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\DyePlan.dproj 1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas - 1899/12/30 00:00:00.000.014,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas - 1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.dfm 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm 1899/12/30 00:00:00.000.571,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.986,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\DyePlan.dproj - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.286,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas + 1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.dfm + 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= 1899/12/30 00:00:00.000.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas - 1899/12/30 00:00:00.000.905,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas= + 1899/12/30 00:00:00.000.286,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.905,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas= + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas 1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.dfm 1899/12/30 00:00:00.000.359,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.dfm=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.dfm 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas 1899/12/30 00:00:00.000.213,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas 1899/12/30 00:00:00.000.819,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeInspSet.pas 1899/12/30 00:00:00.000.058,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeTechnicsSel.pas + 2025/07/02 16:47:08.000.621,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_DyeProcessDefin.pas + 2025/07/03 16:45:14.000.291,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas @@ -72,6 +74,8 @@ + + @@ -119,5 +123,7 @@ + + diff --git a/F02染色计划单/DyePlan.identcache b/F02染色计划单/DyePlan.identcache index f6a28f6..bcf4d6f 100644 Binary files a/F02染色计划单/DyePlan.identcache and b/F02染色计划单/DyePlan.identcache differ diff --git a/F02染色计划单/U_DyeCardList.dfm b/F02染色计划单/U_DyeCardList.dfm index 52872d2..7b82c5b 100644 --- a/F02染色计划单/U_DyeCardList.dfm +++ b/F02染色计划单/U_DyeCardList.dfm @@ -2,6 +2,7 @@ inherited frmDyeCardList: TfrmDyeCardList Caption = #29983#20135#27969#31243#21345 ClientHeight = 632 ClientWidth = 1503 + ExplicitTop = -2 ExplicitWidth = 1519 ExplicitHeight = 671 PixelsPerInch = 96 @@ -169,6 +170,7 @@ inherited frmDyeCardList: TfrmDyeCardList Color = clWhite ParentBackground = False TabOrder = 1 + ExplicitTop = 32 object Label1: TLabel Left = 23 Top = 12 @@ -822,7 +824,7 @@ inherited frmDyeCardList: TfrmDyeCardList PreviewOptions.DrawBorder = False PreviewOptions.BorderPen.Color = clGray PreviewOptions.BorderPen.Style = psDash - Dataset = RMDB_1 + Dataset = RMDB1 CompressLevel = rmzcFastest CompressThread = False LaterBuildEvents = True @@ -831,7 +833,7 @@ inherited frmDyeCardList: TfrmDyeCardList Top = 416 ReportData = {} end - object RMDB_1: TRMDBDataSet + object RMDB1: TRMDBDataSet Visible = True DataSet = ADOQueryPrint Left = 688 @@ -1017,4 +1019,42 @@ inherited frmDyeCardList: TfrmDyeCardList Left = 376 Top = 448 end + object RM_1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator] + DefaultCollate = False + ShowPrintDialog = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 240 + Top = 200 + ReportData = {} + end + object RMDB_1: TRMDBDataSet + Visible = True + DataSet = ADO_1 + Left = 224 + Top = 264 + end + object RMDB_2: TRMDBDataSet + Visible = True + DataSet = ADO_2 + Left = 296 + Top = 248 + end + object RMDB_3: TRMDBDataSet + Visible = True + DataSet = ADO_3 + Left = 368 + Top = 264 + end end diff --git a/F02染色计划单/U_DyeCardList.pas b/F02染色计划单/U_DyeCardList.pas index 76f0cd7..fb0c58b 100644 --- a/F02染色计划单/U_DyeCardList.pas +++ b/F02染色计划单/U_DyeCardList.pas @@ -42,7 +42,7 @@ type v1MPRTSpec: TcxGridDBColumn; CDS_1: TClientDataSet; RM1: TRMGridReport; - RMDB_1: TRMDBDataSet; + RMDB1: TRMDBDataSet; v1CustomerNoName: TcxGridDBColumn; Label4: TLabel; CustName: TEdit; @@ -130,6 +130,10 @@ type ADO_1: TADOQuery; ADO_2: TADOQuery; ADO_3: TADOQuery; + RM_1: TRMGridReport; + RMDB_1: TRMDBDataSet; + RMDB_2: TRMDBDataSet; + RMDB_3: TRMDBDataSet; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); @@ -227,18 +231,21 @@ begin begin Close; SQL.Clear; - SQL.Add('SELECT * from Dye_Plan_Glide where PCID = ' + QuotedStr(MPCID)); + SQL.Add('EXEC P_Dye_Plan_Glide @PCID = ' + QuotedStr(MPCID)); Open; end; + SCreateCDS(ADOQueryTemp, CDS_Print); SInitCDSData(ADOQueryTemp, CDS_Print); + ShowMessage(IntToStr(CDS_Print.RecordCount)); + if CDS_Print.IsEmpty then + begin + Application.MessageBox(PChar('ûù!'), 'ʾ', 0); + Exit; + end; with CDS_Print do begin - if CDS_Print.IsEmpty then - begin - Application.MessageBox(PChar('ûù!'), 'ʾ', 0); - Exit; - end; + DisableControls; First; while not Eof do @@ -286,23 +293,17 @@ begin fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + CDS_Label.fieldbyname('LMName').AsString + '.rmf'; if FileExists(fPrintFile) then begin - RM1.LoadFromFile(fPrintFile); - RM1.PrintReport; + RM_1.LoadFromFile(fPrintFile); + RM_1.PrintReport; sleep(200); - with ADOQueryCmd do - begin - close; - sql.Clear; - sql.Add('update Dye_Plan_Card SET status=''9'' '); - sql.Add('where PCID=' + quotedstr(trim(CDS_1.fieldbyname('PCID').AsString))); - execsql; - end; end else + begin Application.MessageBox(PChar('ûҵ' + trim(fPrintFile)), 'ʾϢ', 0); - exit; + end; next; end; + end; end; diff --git a/F02染色计划单/U_DyeProcessDefin.dfm b/F02染色计划单/U_DyeProcessDefin.dfm new file mode 100644 index 0000000..59ab495 --- /dev/null +++ b/F02染色计划单/U_DyeProcessDefin.dfm @@ -0,0 +1,3099 @@ +object frmDyeProcessDefin: TfrmDyeProcessDefin + Left = 459 + Top = 231 + Caption = #20135#21697#20449#24687#24405#20837 + ClientHeight = 748 + ClientWidth = 1147 + Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + OldCreateOrder = True + Position = poScreenCenter + OnShow = FormShow + PixelsPerInch = 96 + TextHeight = 12 + object ToolBar1: TToolBar + Left = 0 + Top = 0 + Width = 1147 + Height = 38 + AutoSize = True + ButtonHeight = 38 + ButtonWidth = 75 + Caption = 'ToolBar1' + Color = clWhite + Images = DataLink_DyePlan.ImageList_new32 + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 1 + object TbSave: TToolButton + Tag = 1 + Left = 0 + Top = 0 + AutoSize = True + Caption = #20445#23384 + ImageIndex = 16 + OnClick = TbSaveClick + end + object TbUpFile: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #38468#20214 + ImageIndex = 22 + end + object TBClose: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object cxPageControl1: TcxPageControl + Left = 0 + Top = 75 + Width = 1147 + Height = 673 + Align = alBottom + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + Properties.ActivePage = cxTabSheet2 + Properties.CustomButtons.Buttons = <> + ExplicitTop = 72 + ClientRectBottom = 671 + ClientRectLeft = 2 + ClientRectRight = 1145 + ClientRectTop = 25 + object cxTabSheet2: TcxTabSheet + Caption = ' '#28165#27927' ' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ImageIndex = 2 + ParentFont = False + object Panel2: TPanel + Left = 0 + Top = 0 + Width = 1143 + Height = 646 + Hint = 'tt' + Align = alClient + TabOrder = 0 + object cxLabel10: TcxLabel + Left = 23 + Top = 123 + Caption = #36710#23614#32553#24133 + end + object cxLabel11: TcxLabel + Left = 387 + Top = 28 + Caption = #26426#23614#21367#24067#26041#27861 + end + object cxLabel12: TcxLabel + Left = 23 + Top = 60 + Caption = #21161#21058#21517#31216 + end + object cxLabel13: TcxLabel + Left = 1 + Top = 6 + Caption = #24037#33402#21442#25968':' + end + object cxLabel14: TcxLabel + Left = 26 + Top = 291 + Caption = #27880#24847#20107#39033 + end + object cxLabel15: TcxLabel + Left = 430 + Top = 218 + Hint = #28165#27927#27700#28201 + Caption = '4#' + end + object cxLabel16: TcxLabel + Left = 430 + Top = 187 + Hint = #28165#27927#27700#28201 + Caption = '2#' + end + object cxLabel17: TcxLabel + Left = 1 + Top = 165 + Caption = #27700#28201#8451':' + end + object cxLabel18: TcxLabel + Left = 26 + Top = 187 + Caption = '1#' + end + object cxLabel19: TcxLabel + Left = 26 + Top = 217 + Caption = '3#' + end + object cxLabel20: TcxLabel + Left = 26 + Top = 247 + Caption = '5#' + end + object cxLabel7: TcxLabel + Left = 23 + Top = 28 + Caption = #36864#24067#26041#27861 + end + object cxLabel8: TcxLabel + Left = 23 + Top = 91 + Caption = #36895#24230 + end + object cxLabel9: TcxLabel + Left = 387 + Top = 91 + Caption = #28165#27927#21518#21547#27700#29575 + end + object qx_WaterContent: TcxTextEdit + Tag = 2 + Left = 469 + Top = 89 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 14 + Width = 234 + end + object qx_Add_Name: TcxTextEdit + Tag = 2 + Left = 81 + Top = 59 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 15 + Width = 234 + end + object qx_Precautions: TcxTextEdit + Tag = 2 + Left = 81 + Top = 275 + AutoSize = False + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 16 + Height = 50 + Width = 619 + end + object qx_temperature4: TcxTextEdit + Tag = 2 + Left = 466 + Top = 215 + Hint = #28165#27927#27700#28201 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 17 + Width = 234 + end + object qx_temperature2: TcxTextEdit + Tag = 2 + Left = 466 + Top = 184 + Hint = #28165#27927#27700#28201 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 18 + Width = 234 + end + object qx_temperature1: TcxTextEdit + Tag = 2 + Left = 81 + Top = 186 + Hint = #28165#27927#27700#28201 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 19 + Width = 234 + end + object qx_temperature3: TcxTextEdit + Tag = 2 + Left = 81 + Top = 216 + Hint = #28165#27927#27700#28201 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 20 + Width = 234 + end + object qx_temperature5: TcxTextEdit + Tag = 2 + Left = 81 + Top = 245 + Hint = #28165#27927#27700#28201 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 21 + Width = 234 + end + object qx_speed: TcxTextEdit + Tag = 2 + Left = 81 + Top = 89 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 22 + Width = 234 + end + object qx_ReduceAmplitude: TcxTextEdit + Tag = 2 + Left = 81 + Top = 120 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 23 + Width = 234 + end + object qx_Add_Number: TcxTextEdit + Tag = 2 + Left = 469 + Top = 59 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 24 + Width = 234 + end + object cxLabel149: TcxLabel + Left = 387 + Top = 60 + Caption = #21161#21058#25968#37327 + end + object qx_UnpackingMethod: TcxComboBox + Tag = 2 + Left = 81 + Top = 28 + Properties.Items.Strings = ( + '' + #21367#26729 + #24067#31568) + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 26 + Width = 234 + end + object qx_RollMethod: TcxComboBox + Tag = 2 + Left = 469 + Top = 28 + Properties.Items.Strings = ( + '' + #21367#26729 + #39128#24133 + #25171#21367) + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 27 + Width = 234 + end + object TbCPReplace: TcxButton + Left = 81 + Top = 153 + Width = 75 + Height = 25 + Caption = #19968#38190#26367#25442 + TabOrder = 28 + OnClick = TbCPReplaceClick + end + object cxButton2: TcxButton + Left = 166 + Top = 153 + Width = 75 + Height = 25 + Caption = #19968#38190#28165#31354 + TabOrder = 29 + OnClick = cxButton2Click + end + end + end + object cxTabSheet3: TcxTabSheet + Caption = ' '#23450#22411' ' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ImageIndex = 3 + ParentFont = False + object Panel3: TPanel + Left = 0 + Top = 0 + Width = 1143 + Height = 646 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #183#183 + Font.Style = [] + ParentFont = False + TabOrder = 0 + object cxLabel1: TcxLabel + Left = 289 + Top = 126 + Caption = #24490#29615#39118#26426#36716#36895'('#36716'/'#20998')' + end + object cxLabel2: TcxLabel + Left = 28 + Top = 126 + Caption = #28888#31570#21387#21147'(MPA)' + end + object cxLabel21: TcxLabel + Left = 276 + Top = 186 + Caption = '2#' + end + object cxLabel22: TcxLabel + Left = 1 + Top = 154 + Caption = #28888#31665#28201#24230#8451':' + end + object cxLabel23: TcxLabel + Left = 29 + Top = 183 + Caption = '1#' + end + object cxLabel24: TcxLabel + Left = 29 + Top = 215 + Caption = '5#' + end + object cxLabel25: TcxLabel + Left = 29 + Top = 246 + Caption = '9#' + end + object cxLabel26: TcxLabel + Left = 28 + Top = 30 + Caption = #36864#24067#26041#27861 + end + object cxLabel27: TcxLabel + Left = 289 + Top = 62 + Caption = #36710#23614#38376#24133 + end + object cxLabel28: TcxLabel + Left = 289 + Top = 94 + Caption = #25490#39118#26426#36716#36895'('#36716'/'#20998')' + end + object cxLabel3: TcxLabel + Left = 604 + Top = 30 + Caption = #36895#24230'(M/Min)' + end + object cxLabel4: TcxLabel + Left = 1 + Top = 6 + Caption = #24037#33402#21442#25968':' + end + object cxLabel5: TcxLabel + Left = 29 + Top = 287 + Caption = #27880#24847#20107#39033 + end + object cxLabel55: TcxLabel + Left = 604 + Top = 94 + Caption = #19978#36229#21890#29575'(%)' + end + object cxLabel56: TcxLabel + Left = 289 + Top = 30 + Caption = #26426#23614#21367#24067#26041#27861 + end + object cxLabel57: TcxLabel + Left = 28 + Top = 94 + Caption = #28072#21147'(MPA)' + end + object cxLabel58: TcxLabel + Left = 604 + Top = 62 + Caption = #27611#21047#36229#21890#29575'(%)' + end + object cxLabel59: TcxLabel + Left = 28 + Top = 62 + Caption = #23545#20013#26426#24320#24133 + end + object cxLabel6: TcxLabel + Left = 276 + Top = 216 + Caption = '6#' + end + object cxLabel60: TcxLabel + Left = 604 + Top = 126 + Caption = #19979#36229#21890#29575'(%)' + end + object cxLabel61: TcxLabel + Left = 482 + Top = 188 + Caption = '3#' + end + object cxLabel62: TcxLabel + Left = 693 + Top = 186 + Caption = '4#' + end + object cxLabel63: TcxLabel + Left = 482 + Top = 217 + Caption = '7#' + end + object cxLabel64: TcxLabel + Left = 693 + Top = 216 + Caption = '8#' + end + object cxLabel65: TcxLabel + Left = 276 + Top = 246 + Caption = '10#' + end + object dx_OutFanSpeed: TcxTextEdit + Tag = 2 + Left = 406 + Top = 90 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 25 + Width = 150 + end + object dx_temperature1: TcxTextEdit + Tag = 2 + Left = 95 + Top = 183 + Hint = #23450#22411#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 26 + Width = 150 + end + object dx_WidthAmplitude: TcxTextEdit + Tag = 2 + Left = 406 + Top = 58 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 27 + Width = 150 + end + object dx_temperature5: TcxTextEdit + Tag = 2 + Left = 95 + Top = 213 + Hint = #23450#22411#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 28 + Width = 150 + end + object dx_temperature9: TcxTextEdit + Tag = 2 + Left = 95 + Top = 243 + Hint = #23450#22411#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 29 + Width = 150 + end + object dx_RosePower: TcxTextEdit + Tag = 2 + Left = 108 + Top = 90 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 30 + Width = 150 + end + object dx_BrushSuperRate: TcxTextEdit + Tag = 2 + Left = 686 + Top = 58 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 31 + Width = 150 + end + object dx_Precautions: TcxTextEdit + Tag = 2 + Left = 95 + Top = 273 + AutoSize = False + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 32 + Height = 50 + Width = 650 + end + object dx_UpSuperRate: TcxTextEdit + Tag = 2 + Left = 686 + Top = 90 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 33 + Width = 150 + end + object dx_speed: TcxTextEdit + Tag = 2 + Left = 686 + Top = 26 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 34 + Width = 150 + end + object dx_TubePress: TcxTextEdit + Tag = 2 + Left = 108 + Top = 122 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 35 + Width = 150 + end + object dx_temperature6: TcxTextEdit + Tag = 2 + Left = 304 + Top = 213 + Hint = #23450#22411#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 36 + Width = 150 + end + object dx_CycleFanSpeed: TcxTextEdit + Tag = 2 + Left = 406 + Top = 122 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 37 + Width = 150 + end + object dx_DownSuperRate: TcxTextEdit + Tag = 2 + Left = 686 + Top = 122 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 38 + Width = 150 + end + object dx_temperature3: TcxTextEdit + Tag = 2 + Left = 503 + Top = 183 + Hint = #23450#22411#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 39 + Width = 150 + end + object dx_temperature4: TcxTextEdit + Tag = 2 + Left = 714 + Top = 183 + Hint = #23450#22411#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 40 + Width = 150 + end + object dx_temperature7: TcxTextEdit + Tag = 2 + Left = 503 + Top = 213 + Hint = #23450#22411#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 41 + Width = 150 + end + object dx_temperature8: TcxTextEdit + Tag = 2 + Left = 714 + Top = 213 + Hint = #23450#22411#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 42 + Width = 150 + end + object dx_temperature10: TcxTextEdit + Tag = 2 + Left = 304 + Top = 243 + Hint = #23450#22411#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 43 + Width = 150 + end + object dx_temperature2: TcxTextEdit + Tag = 2 + Left = 304 + Top = 183 + Hint = #23450#22411#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 44 + Width = 150 + end + object dx_UnpackingMethod: TcxComboBox + Tag = 2 + Left = 108 + Top = 26 + Properties.Items.Strings = ( + '' + #21367#26729 + #24067#31568) + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 45 + Width = 150 + end + object dx_OpenAmplitude: TcxComboBox + Tag = 2 + Left = 108 + Top = 58 + Properties.Items.Strings = ( + '' + #24320 + #20851) + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 46 + Width = 150 + end + object dx_RollMethod: TcxComboBox + Tag = 2 + Left = 406 + Top = 26 + Properties.Items.Strings = ( + '' + #21367#26729 + #39128#24133 + #25171#21367) + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 47 + Width = 150 + end + object TbDXReplace: TcxButton + Left = 95 + Top = 150 + Width = 75 + Height = 25 + Caption = #19968#38190#26367#25442 + TabOrder = 48 + OnClick = TbDXReplaceClick + end + object TbDXClear: TcxButton + Left = 182 + Top = 150 + Width = 75 + Height = 25 + Caption = #19968#38190#28165#31354 + TabOrder = 49 + OnClick = TbDXClearClick + end + end + end + object cxTabSheet4: TcxTabSheet + Caption = ' '#38450#27700' ' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ImageIndex = 4 + ParentFont = False + object cxGrid2: TcxGrid + Left = 0 + Top = 488 + Width = 1143 + Height = 158 + Align = alBottom + TabOrder = 0 + object Tv1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_1 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsView.GroupByBox = False + OptionsView.Indicator = True + object Tv1Column1: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'serialno' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end + object Tv11fs_Name: TcxGridDBColumn + Caption = #21407#26009#21517#31216 + DataBinding.FieldName = 'fs_Name' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = Tv11fs_NamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv11fs_spel: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'fs_spel' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv1fs_unit: TcxGridDBColumn + Caption = #21333#20301'(%)' + DataBinding.FieldName = 'fs_unit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv11fs_unitPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv11fs_rate: TcxGridDBColumn + Caption = #27604#29575'(%)' + DataBinding.FieldName = 'fs_rate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv11fs_unitPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv11fs_precautions: TcxGridDBColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'fs_precautions' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + end + object cxGridLevel1: TcxGridLevel + GridView = Tv1 + end + end + object Panel4: TPanel + Left = 0 + Top = 0 + Width = 1143 + Height = 453 + Align = alClient + TabOrder = 1 + ExplicitTop = -6 + object cxLabel100: TcxLabel + Left = 260 + Top = 310 + Caption = '6#' + end + object cxLabel101: TcxLabel + Left = 627 + Top = 126 + Caption = #19979#36229#21890#29575'(%)' + end + object cxLabel102: TcxLabel + Left = 463 + Top = 280 + Caption = '3#' + end + object cxLabel103: TcxLabel + Left = 673 + Top = 280 + Caption = '4#' + end + object cxLabel104: TcxLabel + Left = 463 + Top = 309 + Caption = '7#' + end + object cxLabel105: TcxLabel + Left = 673 + Top = 309 + Caption = '8#' + end + object cxLabel106: TcxLabel + Left = 260 + Top = 340 + Caption = '10#' + end + object cxLabel109: TcxLabel + Left = 28 + Top = 152 + Caption = #21387#36710#21387#21147'(MPA)' + end + object cxLabel110: TcxLabel + Left = 306 + Top = 152 + Caption = #21387#36746#21518#21547#27700#29575'(%)' + end + object cxLabel111: TcxLabel + Left = 0 + Top = 430 + Caption = #27974#26009#37197#27604':' + end + object cxLabel82: TcxLabel + Left = 306 + Top = 126 + Caption = #24490#29615#39118#26426#36716#36895'('#36716'/'#20998')' + end + object cxLabel83: TcxLabel + Left = 28 + Top = 126 + Caption = #28888#31570#21387#21147'(MPA)' + end + object cxLabel84: TcxLabel + Left = 260 + Top = 280 + Caption = '2#' + end + object cxLabel85: TcxLabel + Left = -2 + Top = 249 + Caption = #28888#31665#28201#24230#8451':' + end + object cxLabel86: TcxLabel + Left = 29 + Top = 280 + Caption = '1#' + end + object cxLabel87: TcxLabel + Left = 29 + Top = 310 + Caption = '5#' + end + object cxLabel88: TcxLabel + Left = 29 + Top = 340 + Caption = '9#' + end + object cxLabel89: TcxLabel + Left = 28 + Top = 31 + Caption = #36864#24067#26041#27861 + end + object cxLabel90: TcxLabel + Left = 306 + Top = 62 + Caption = #36710#23614#38376#24133 + end + object cxLabel91: TcxLabel + Left = 306 + Top = 93 + Caption = #25490#39118#26426#36716#36895'('#36716'/'#20998')' + end + object cxLabel92: TcxLabel + Left = 627 + Top = 31 + Caption = #36895#24230'(M/Min)' + end + object cxLabel93: TcxLabel + Left = -2 + Top = 9 + Caption = #24037#33402#21442#25968':' + end + object cxLabel94: TcxLabel + Left = 29 + Top = 381 + Caption = #27880#24847#20107#39033 + end + object cxLabel95: TcxLabel + Left = 627 + Top = 93 + Caption = #19978#36229#21890#29575'(%)' + end + object cxLabel96: TcxLabel + Left = 306 + Top = 31 + Caption = #26426#23614#21367#24067#26041#27861 + end + object cxLabel97: TcxLabel + Left = 28 + Top = 93 + Caption = #28072#21147'(MPA)' + end + object cxLabel98: TcxLabel + Left = 627 + Top = 62 + Caption = #27611#21047#36229#21890#29575'(%)' + end + object cxLabel99: TcxLabel + Left = 28 + Top = 62 + Caption = #23545#20013#26426#24320#24133 + end + object fs_OutFanSpeed: TcxTextEdit + Tag = 2 + Left = 430 + Top = 88 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 28 + Width = 150 + end + object fs_temperature1: TcxTextEdit + Tag = 2 + Left = 84 + Top = 277 + Hint = #38450#27700#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 29 + Width = 150 + end + object fs_WidthAmplitude: TcxTextEdit + Tag = 2 + Left = 430 + Top = 57 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 30 + Width = 150 + end + object fs_temperature5: TcxTextEdit + Tag = 2 + Left = 84 + Top = 307 + Hint = #38450#27700#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 31 + Width = 150 + end + object fs_temperature9: TcxTextEdit + Tag = 2 + Left = 84 + Top = 337 + Hint = #38450#27700#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 32 + Width = 150 + end + object fs_RosePower: TcxTextEdit + Tag = 2 + Left = 116 + Top = 88 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 33 + Width = 150 + end + object fs_BrushSuperRate: TcxTextEdit + Tag = 2 + Left = 714 + Top = 57 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 34 + Width = 150 + end + object fs_Precautions: TcxTextEdit + Tag = 2 + Left = 84 + Top = 367 + AutoSize = False + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 35 + Height = 50 + Width = 650 + end + object fs_UpSuperRate: TcxTextEdit + Tag = 2 + Left = 714 + Top = 88 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 36 + Width = 150 + end + object fs_speed: TcxTextEdit + Tag = 2 + Left = 714 + Top = 27 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 37 + Width = 150 + end + object fs_TubePress: TcxTextEdit + Tag = 2 + Left = 116 + Top = 118 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 38 + Width = 150 + end + object fs_temperature6: TcxTextEdit + Tag = 2 + Left = 290 + Top = 307 + Hint = #38450#27700#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 39 + Width = 150 + end + object fs_CycleFanSpeed: TcxTextEdit + Tag = 2 + Left = 430 + Top = 118 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 40 + Width = 150 + end + object fs_DownSuperRate: TcxTextEdit + Tag = 2 + Left = 714 + Top = 118 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 41 + Width = 150 + end + object fs_temperature3: TcxTextEdit + Tag = 2 + Left = 492 + Top = 277 + Hint = #38450#27700#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 42 + Width = 150 + end + object fs_temperature4: TcxTextEdit + Tag = 2 + Left = 703 + Top = 277 + Hint = #38450#27700#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 43 + Width = 150 + end + object fs_temperature7: TcxTextEdit + Tag = 2 + Left = 492 + Top = 307 + Hint = #38450#27700#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 44 + Width = 150 + end + object fs_temperature8: TcxTextEdit + Tag = 2 + Left = 703 + Top = 307 + Hint = #38450#27700#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 45 + Width = 150 + end + object fs_temperature10: TcxTextEdit + Tag = 2 + Left = 290 + Top = 337 + Hint = #38450#27700#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 46 + Width = 150 + end + object fs_temperature2: TcxTextEdit + Tag = 2 + Left = 290 + Top = 277 + Hint = #38450#27700#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 47 + Width = 150 + end + object fs_CarPress: TcxTextEdit + Tag = 2 + Left = 116 + Top = 149 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 48 + Width = 150 + end + object fs_PressWaterContent: TcxTextEdit + Tag = 2 + Left = 430 + Top = 149 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 49 + Width = 150 + end + object fs_UnpackingMethod: TcxComboBox + Tag = 2 + Left = 116 + Top = 27 + Properties.Items.Strings = ( + '' + #21367#26729 + #24067#31568) + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 50 + Width = 150 + end + object fs_OpenAmplitude: TcxComboBox + Tag = 2 + Left = 116 + Top = 58 + Properties.Items.Strings = ( + '' + #24320 + #20851) + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 51 + Width = 150 + end + object fs_RollMethod: TcxComboBox + Tag = 2 + Left = 430 + Top = 27 + Properties.Items.Strings = ( + '' + #21367#26729 + #39128#24133 + #25171#21367) + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 52 + Width = 150 + end + object cxLabel151: TcxLabel + Left = 28 + Top = 183 + Caption = #31859#25968'(M)' + end + object cxLabel152: TcxLabel + Left = 627 + Top = 152 + Caption = #29992#33014#37327'(KG)' + end + object cxLabel153: TcxLabel + Left = 627 + Top = 183 + Caption = #37197#27700#37327'(KG)' + end + object cxLabel157: TcxLabel + Left = 306 + Top = 183 + Caption = #27599#31859#29992#37327'(g)' + end + object cxLabel158: TcxLabel + Left = 28 + Top = 213 + Caption = #33014#38754#20811#37325'(g/m'#178')' + end + object fs_meter: TcxTextEdit + Tag = 2 + Left = 116 + Top = 180 + Properties.OnChange = fs_meterPropertiesChange + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 58 + Width = 150 + end + object fs_useGlub: TcxTextEdit + Tag = 2 + Left = 714 + Top = 149 + Enabled = False + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 59 + Text = #35745#31639#29983#25104 + Width = 150 + end + object fs_waterDistribution: TcxTextEdit + Tag = 2 + Left = 714 + Top = 179 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 60 + Width = 150 + end + object fs_useOneGlub: TcxTextEdit + Tag = 2 + Left = 116 + Top = 210 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 61 + Width = 150 + end + object fs_useOneMeter: TcxTextEdit + Tag = 2 + Left = 430 + Top = 179 + Properties.OnChange = fs_meterPropertiesChange + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 62 + Width = 150 + end + object TbFSReplace: TcxButton + Left = 84 + Top = 243 + Width = 75 + Height = 25 + Caption = #19968#38190#26367#25442 + TabOrder = 63 + OnClick = TbFSReplaceClick + end + object cxButton1: TcxButton + Left = 176 + Top = 243 + Width = 75 + Height = 25 + Caption = #19968#38190#28165#31354 + TabOrder = 64 + OnClick = cxButton1Click + end + end + object ToolBar4: TToolBar + Left = 0 + Top = 453 + Width = 1143 + Height = 35 + Align = alBottom + ButtonHeight = 38 + ButtonWidth = 75 + Caption = 'ToolBar3' + Images = DataLink_DyePlan.ImageList_new32 + List = True + ShowCaptions = True + TabOrder = 2 + Transparent = True + object TbAdd1: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 2 + OnClick = TbAdd1Click + end + object TbDel1: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 6 + OnClick = TbDel1Click + end + end + end + object cxTabSheet5: TcxTabSheet + Caption = ' '#21457#27873' ' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ImageIndex = 4 + ParentFont = False + object cxGrid1: TcxGrid + Left = 0 + Top = 528 + Width = 1143 + Height = 118 + Align = alBottom + TabOrder = 0 + object Tv2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsView.GroupByBox = False + OptionsView.Indicator = True + object Tv2Column1: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'serialno' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 67 + end + object Tv2fp_Name: TcxGridDBColumn + Caption = #21407#26009#21517#31216 + DataBinding.FieldName = 'fp_Name' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = Tv2fp_NamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv2fp_spel: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'fp_spel' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv2fp_unit: TcxGridDBColumn + Caption = #21333#20301'(%)' + DataBinding.FieldName = 'fp_unit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv2fp_unitPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv2fp_rate: TcxGridDBColumn + Caption = #27604#29575'(%)' + DataBinding.FieldName = 'fp_rate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv2fp_unitPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv2fp_precautions: TcxGridDBColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'fp_precautions' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn16: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.IsNullValueType = True + Visible = False + end + object cxGridDBColumn17: TcxGridDBColumn + Caption = #29992#33014#37327#65288'KG'#65289 + DataBinding.IsNullValueType = True + Visible = False + Width = 88 + end + object cxGridDBColumn18: TcxGridDBColumn + Caption = #37197#27700#37327#65288'KG'#65289 + DataBinding.IsNullValueType = True + Visible = False + Width = 78 + end + end + object cxGridLevel2: TcxGridLevel + GridView = Tv2 + end + end + object Panel5: TPanel + Left = 0 + Top = 0 + Width = 1143 + Height = 490 + Align = alClient + TabOrder = 1 + object cxLabel107: TcxLabel + Left = 353 + Top = 441 + Caption = #31995#32479#21387#21147'(Kg)' + end + object cxLabel108: TcxLabel + Left = 353 + Top = 411 + Caption = #28151#21512#22836#30005#26426#39057#29575'('#36716')' + end + object cxLabel112: TcxLabel + Left = 25 + Top = 411 + Caption = #27668#20307#27969#37327'(L/h)' + end + object cxLabel29: TcxLabel + Left = 261 + Top = 273 + Caption = '6#' + end + object cxLabel30: TcxLabel + Left = 630 + Top = 126 + Caption = #19979#36229#21890#29575'(%)' + end + object cxLabel31: TcxLabel + Left = 464 + Top = 243 + Caption = '3#' + end + object cxLabel32: TcxLabel + Left = 674 + Top = 243 + Caption = '4#' + end + object cxLabel33: TcxLabel + Left = 464 + Top = 272 + Caption = '7#' + end + object cxLabel34: TcxLabel + Left = 674 + Top = 272 + Caption = '8#' + end + object cxLabel35: TcxLabel + Left = 261 + Top = 303 + Caption = '10#' + end + object cxLabel36: TcxLabel + Left = 28 + Top = 155 + Caption = #20992#26495#24038#39640#24230'(mm)' + end + object cxLabel49: TcxLabel + Left = 311 + Top = 157 + Caption = #20992#26495#21491#39640#24230'(mm)' + end + object cxLabel50: TcxLabel + Left = 0 + Top = 471 + Caption = #27974#26009#37197#27604':' + end + object cxLabel51: TcxLabel + Left = 311 + Top = 125 + Caption = #24490#29615#39118#26426#36716#36895'('#36716'/'#20998')' + end + object cxLabel52: TcxLabel + Left = 28 + Top = 124 + Caption = #28888#31570#21387#21147'(MPA)' + end + object cxLabel53: TcxLabel + Left = 261 + Top = 243 + Caption = '2#' + end + object cxLabel54: TcxLabel + Left = 0 + Top = 211 + Caption = #28888#31665#28201#24230#8451':' + end + object cxLabel66: TcxLabel + Left = 30 + Top = 243 + Caption = '1#' + end + object cxLabel67: TcxLabel + Left = 30 + Top = 273 + Caption = '5#' + end + object cxLabel68: TcxLabel + Left = 30 + Top = 303 + Caption = '9#' + end + object cxLabel69: TcxLabel + Left = 28 + Top = 31 + Caption = #36864#24067#26041#27861 + end + object cxLabel70: TcxLabel + Left = 311 + Top = 63 + Caption = #36710#23614#38376#24133 + end + object cxLabel71: TcxLabel + Left = 311 + Top = 94 + Caption = #25490#39118#26426#36716#36895'('#36716'/'#20998')' + end + object cxLabel72: TcxLabel + Left = 630 + Top = 31 + Caption = #36895#24230'(M/Min)' + end + object cxLabel73: TcxLabel + Left = 0 + Top = 9 + Caption = #24037#33402#21442#25968':' + end + object cxLabel74: TcxLabel + Left = 30 + Top = 344 + Caption = #27880#24847#20107#39033 + end + object cxLabel75: TcxLabel + Left = 630 + Top = 94 + Caption = #19978#36229#21890#29575'(%)' + end + object cxLabel76: TcxLabel + Left = 311 + Top = 31 + Caption = #26426#23614#21367#24067#26041#27861 + end + object cxLabel77: TcxLabel + Left = 28 + Top = 93 + Caption = #28072#21147'(MPA)' + end + object cxLabel78: TcxLabel + Left = 630 + Top = 63 + Caption = #27611#21047#36229#21890#29575'(%)' + end + object cxLabel79: TcxLabel + Left = 28 + Top = 62 + Caption = #23545#20013#26426#24320#24133 + end + object cxLabel80: TcxLabel + Left = 0 + Top = 389 + Caption = #21457#27873#26426#21442#25968':' + end + object cxLabel81: TcxLabel + Left = 25 + Top = 441 + Caption = #34746#26438#27893#30005#26426#39057#29575'('#36716')' + end + object fp_OutFanSpeed: TcxTextEdit + Tag = 2 + Left = 435 + Top = 91 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 33 + Width = 150 + end + object fp_temperature1: TcxTextEdit + Tag = 2 + Left = 85 + Top = 240 + Hint = #21457#27873#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 34 + Width = 150 + end + object fp_WidthAmplitude: TcxTextEdit + Tag = 2 + Left = 435 + Top = 59 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 35 + Width = 150 + end + object fp_temperature5: TcxTextEdit + Tag = 2 + Left = 85 + Top = 270 + Hint = #21457#27873#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 36 + Width = 150 + end + object fp_temperature9: TcxTextEdit + Tag = 2 + Left = 85 + Top = 300 + Hint = #21457#27873#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 37 + Width = 150 + end + object fp_RosePower: TcxTextEdit + Tag = 2 + Left = 123 + Top = 89 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 38 + Width = 150 + end + object fp_BrushSuperRate: TcxTextEdit + Tag = 2 + Left = 716 + Top = 59 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 39 + Width = 150 + end + object fp_Precautions: TcxTextEdit + Tag = 2 + Left = 85 + Top = 330 + AutoSize = False + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 40 + Height = 50 + Width = 650 + end + object fp_UpSuperRate: TcxTextEdit + Tag = 2 + Left = 716 + Top = 90 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 41 + Width = 150 + end + object fp_speed: TcxTextEdit + Tag = 2 + Left = 716 + Top = 27 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 42 + Width = 150 + end + object fp_TubePress: TcxTextEdit + Tag = 2 + Left = 123 + Top = 119 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 43 + Width = 150 + end + object fp_temperature6: TcxTextEdit + Tag = 2 + Left = 297 + Top = 269 + Hint = #21457#27873#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 44 + Width = 150 + end + object fp_CycleFanSpeed: TcxTextEdit + Tag = 2 + Left = 435 + Top = 121 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 45 + Width = 150 + end + object fp_DownSuperRate: TcxTextEdit + Tag = 2 + Left = 716 + Top = 121 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 46 + Width = 150 + end + object fp_temperature3: TcxTextEdit + Tag = 2 + Left = 493 + Top = 240 + Hint = #21457#27873#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 47 + Width = 150 + end + object fp_temperature4: TcxTextEdit + Tag = 2 + Left = 701 + Top = 240 + Hint = #21457#27873#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 48 + Width = 150 + end + object fp_temperature7: TcxTextEdit + Tag = 2 + Left = 493 + Top = 270 + Hint = #21457#27873#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 49 + Width = 150 + end + object fp_temperature8: TcxTextEdit + Tag = 2 + Left = 701 + Top = 270 + Hint = #21457#27873#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 50 + Width = 150 + end + object fp_temperature10: TcxTextEdit + Tag = 2 + Left = 297 + Top = 299 + Hint = #21457#27873#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 51 + Width = 150 + end + object fp_temperature2: TcxTextEdit + Tag = 2 + Left = 297 + Top = 238 + Hint = #21457#27873#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 52 + Width = 150 + end + object fp_LeftHeight: TcxTextEdit + Tag = 2 + Left = 123 + Top = 150 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 53 + Width = 150 + end + object fp_RightHeight: TcxTextEdit + Tag = 2 + Left = 435 + Top = 152 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 54 + Width = 150 + end + object fp_PumbMixElectricFrequency: TcxTextEdit + Tag = 2 + Left = 180 + Top = 437 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 55 + Width = 150 + end + object fp_SystemPress: TcxTextEdit + Tag = 2 + Left = 467 + Top = 437 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 56 + Width = 150 + end + object fp_MixElectricFrequency: TcxTextEdit + Tag = 2 + Left = 467 + Top = 407 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 57 + Width = 150 + end + object fp_GasFlow: TcxTextEdit + Tag = 2 + Left = 180 + Top = 407 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 58 + Width = 150 + end + object cxLabel159: TcxLabel + Left = 629 + Top = 155 + Caption = #27599#31859#29992#37327'(g)' + end + object fp_useOneMeter: TcxTextEdit + Tag = 2 + Left = 716 + Top = 151 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 60 + Width = 150 + end + object cxLabel160: TcxLabel + Left = 30 + Top = 185 + Caption = #33014#38754#20811#37325'(g/m'#178')' + end + object fp_useOneGlub: TcxTextEdit + Tag = 2 + Left = 123 + Top = 181 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 62 + Width = 150 + end + object fp_RollMethod: TcxComboBox + Tag = 2 + Left = 435 + Top = 27 + Properties.Items.Strings = ( + '' + #21367#26729 + #39128#24133 + #25171#21367) + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 63 + Width = 150 + end + object fp_UnpackingMethod: TcxComboBox + Tag = 2 + Left = 123 + Top = 27 + Properties.Items.Strings = ( + '' + #21367#26729 + #24067#31568) + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 64 + Width = 150 + end + object fp_OpenAmplitude: TcxComboBox + Tag = 2 + Left = 123 + Top = 58 + Properties.Items.Strings = ( + '' + #24320 + #20851) + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 65 + Width = 150 + end + object TbFPReplace: TcxButton + Left = 85 + Top = 209 + Width = 75 + Height = 25 + Caption = #19968#38190#26367#25442 + TabOrder = 66 + OnClick = TbFPReplaceClick + end + object cxButton4: TcxButton + Left = 173 + Top = 209 + Width = 75 + Height = 25 + Caption = #19968#38190#28165#31354 + TabOrder = 67 + OnClick = cxButton4Click + end + end + object ToolBar3: TToolBar + Left = 0 + Top = 490 + Width = 1143 + Height = 38 + Align = alBottom + ButtonHeight = 38 + ButtonWidth = 75 + Caption = 'ToolBar3' + Images = DataLink_DyePlan.ImageList_new32 + List = True + ShowCaptions = True + TabOrder = 2 + Transparent = True + object TbAdd2: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 2 + OnClick = TbAdd2Click + end + object TbDel2: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 6 + OnClick = TbDel2Click + end + end + end + object cxTabSheet6: TcxTabSheet + Caption = ' '#21038#33014' ' + ImageIndex = 5 + object cxGrid3: TcxGrid + Left = 0 + Top = 488 + Width = 1143 + Height = 158 + Align = alBottom + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 0 + object Tv3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_3 + DataController.Summary.DefaultGroupSummaryItems = <> + DataController.Summary.FooterSummaryItems = <> + DataController.Summary.SummaryGroups = <> + OptionsView.GroupByBox = False + OptionsView.Indicator = True + object Tv3Column1: TcxGridDBColumn + Caption = #24207#21495 + DataBinding.FieldName = 'serialno' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 69 + end + object Tv3gj_Name: TcxGridDBColumn + Caption = #21407#26009#21517#31216 + DataBinding.FieldName = 'gj_Name' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = Tv3gj_NamePropertiesButtonClick + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv3gj_spel: TcxGridDBColumn + Caption = #35268#26684#22411#21495 + DataBinding.FieldName = 'gj_spel' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv3gj_unit: TcxGridDBColumn + Caption = #21333#20301'(%)' + DataBinding.FieldName = 'gj_unit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv3gj_unitPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object TV3gj_rate: TcxGridDBColumn + Caption = #27604#29575'(%)' + DataBinding.FieldName = 'gj_rate' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = Tv3gj_unitPropertiesEditValueChanged + HeaderAlignmentHorz = taCenter + Width = 70 + end + object Tv3gj_precautions: TcxGridDBColumn + Caption = #27880#24847#20107#39033 + DataBinding.FieldName = 'gj_precautions' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object cxGridDBColumn26: TcxGridDBColumn + Caption = #31859#25968 + DataBinding.IsNullValueType = True + Visible = False + end + object cxGridDBColumn27: TcxGridDBColumn + Caption = #29992#33014#37327#65288'KG'#65289 + DataBinding.IsNullValueType = True + Visible = False + Width = 88 + end + object cxGridDBColumn28: TcxGridDBColumn + Caption = #37197#27700#37327#65288'KG'#65289 + DataBinding.IsNullValueType = True + Visible = False + Width = 78 + end + end + object cxGridLevel3: TcxGridLevel + GridView = Tv3 + end + end + object Panel6: TPanel + Left = 0 + Top = 0 + Width = 1143 + Height = 450 + Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ParentFont = False + TabOrder = 1 + ExplicitTop = -6 + object cxLabel116: TcxLabel + Left = 258 + Top = 274 + Caption = '6#' + end + object cxLabel117: TcxLabel + Left = 579 + Top = 125 + Caption = #19979#36229#21890#29575'(%)' + end + object cxLabel118: TcxLabel + Left = 464 + Top = 244 + Caption = '3#' + end + object cxLabel119: TcxLabel + Left = 674 + Top = 244 + Caption = '4#' + end + object cxLabel120: TcxLabel + Left = 464 + Top = 273 + Caption = '7#' + end + object cxLabel121: TcxLabel + Left = 674 + Top = 273 + Caption = '8#' + end + object cxLabel122: TcxLabel + Left = 258 + Top = 304 + Caption = '10#' + end + object cxLabel123: TcxLabel + Left = 28 + Top = 154 + Caption = #20992#26495#24038#39640#24230'(mm)' + end + object cxLabel124: TcxLabel + Left = 288 + Top = 156 + Caption = #20992#26495#21491#39640#24230'(mm)' + end + object cxLabel125: TcxLabel + Left = 0 + Top = 384 + Caption = #27974#26009#37197#27604':' + end + object cxLabel126: TcxLabel + Left = 288 + Top = 124 + Caption = #24490#29615#39118#26426#36716#36895'('#36716'/'#20998')' + end + object cxLabel127: TcxLabel + Left = 28 + Top = 123 + Caption = #28888#31570#21387#21147'(MPA)' + end + object cxLabel128: TcxLabel + Left = 258 + Top = 244 + Caption = '2#' + end + object cxLabel129: TcxLabel + Left = 0 + Top = 215 + Caption = #28888#31665#28201#24230#8451':' + end + object cxLabel130: TcxLabel + Left = 30 + Top = 244 + Caption = '1#' + end + object cxLabel131: TcxLabel + Left = 30 + Top = 274 + Caption = '5#' + end + object cxLabel132: TcxLabel + Left = 30 + Top = 304 + Caption = '9#' + end + object cxLabel133: TcxLabel + Left = 28 + Top = 30 + Caption = #36864#24067#26041#27861 + end + object cxLabel134: TcxLabel + Left = 288 + Top = 62 + Caption = #36710#23614#38376#24133 + end + object cxLabel135: TcxLabel + Left = 288 + Top = 93 + Caption = #25490#39118#26426#36716#36895'('#36716'/'#20998')' + end + object cxLabel136: TcxLabel + Left = 579 + Top = 30 + Caption = #36895#24230'(M/Min)' + end + object cxLabel137: TcxLabel + Left = 0 + Top = 8 + Caption = #24037#33402#21442#25968':' + end + object cxLabel138: TcxLabel + Left = 30 + Top = 345 + Caption = #27880#24847#20107#39033 + end + object cxLabel139: TcxLabel + Left = 579 + Top = 93 + Caption = #19978#36229#21890#29575'(%)' + end + object cxLabel140: TcxLabel + Left = 288 + Top = 30 + Caption = #26426#23614#21367#24067#26041#27861 + end + object cxLabel141: TcxLabel + Left = 28 + Top = 92 + Caption = #28072#21147'(MPA)' + end + object cxLabel142: TcxLabel + Left = 579 + Top = 62 + Caption = #27611#21047#36229#21890#29575'(%)' + end + object cxLabel143: TcxLabel + Left = 28 + Top = 61 + Caption = #23545#20013#26426#24320#24133 + end + object gj_temperature1: TcxTextEdit + Tag = 2 + Left = 85 + Top = 241 + Hint = #21038#33014#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 28 + Width = 150 + end + object gj_WidthAmplitude: TcxTextEdit + Tag = 2 + Left = 408 + Top = 58 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 29 + Width = 150 + end + object gj_temperature5: TcxTextEdit + Tag = 2 + Left = 85 + Top = 271 + Hint = #21038#33014#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 30 + Width = 150 + end + object gj_temperature9: TcxTextEdit + Tag = 2 + Left = 85 + Top = 301 + Hint = #21038#33014#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 31 + Width = 150 + end + object gj_RosePower: TcxTextEdit + Tag = 2 + Left = 118 + Top = 88 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 32 + Width = 150 + end + object gj_BrushSuperRate: TcxTextEdit + Tag = 2 + Left = 662 + Top = 58 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 33 + Width = 150 + end + object gj_Precautions: TcxTextEdit + Tag = 2 + Left = 85 + Top = 331 + AutoSize = False + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 34 + Height = 50 + Width = 650 + end + object gj_UpSuperRate: TcxTextEdit + Tag = 2 + Left = 662 + Top = 88 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 35 + Width = 150 + end + object gj_speed: TcxTextEdit + Tag = 2 + Left = 662 + Top = 26 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 36 + Width = 150 + end + object gj_TubePress: TcxTextEdit + Tag = 2 + Left = 118 + Top = 118 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 37 + Width = 150 + end + object gj_temperature6: TcxTextEdit + Tag = 2 + Left = 288 + Top = 271 + Hint = #21038#33014#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 38 + Width = 150 + end + object gj_CycleFanSpeed: TcxTextEdit + Tag = 2 + Left = 408 + Top = 118 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 39 + Width = 150 + end + object gj_DownSuperRate: TcxTextEdit + Tag = 2 + Left = 662 + Top = 118 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 40 + Width = 150 + end + object gj_temperature3: TcxTextEdit + Tag = 2 + Left = 493 + Top = 241 + Hint = #21038#33014#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 41 + Width = 150 + end + object gj_temperature4: TcxTextEdit + Tag = 2 + Left = 704 + Top = 241 + Hint = #21038#33014#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 42 + Width = 150 + end + object gj_temperature7: TcxTextEdit + Tag = 2 + Left = 493 + Top = 271 + Hint = #21038#33014#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 43 + Width = 150 + end + object gj_temperature8: TcxTextEdit + Tag = 2 + Left = 704 + Top = 271 + Hint = #21038#33014#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 44 + Width = 150 + end + object gj_temperature10: TcxTextEdit + Tag = 2 + Left = 288 + Top = 301 + Hint = #21038#33014#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 45 + Width = 150 + end + object gj_temperature2: TcxTextEdit + Tag = 2 + Left = 288 + Top = 241 + Hint = #21038#33014#28888#31665#28201#24230 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 46 + Width = 150 + end + object gj_LeftHeight: TcxTextEdit + Tag = 2 + Left = 118 + Top = 149 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 47 + Width = 150 + end + object gj_RightHeight: TcxTextEdit + Tag = 2 + Left = 408 + Top = 150 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 48 + Width = 150 + end + object gj_OutFanSpeed: TcxTextEdit + Tag = 2 + Left = 408 + Top = 88 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 49 + Width = 150 + end + object cxLabel161: TcxLabel + Left = 579 + Top = 154 + Caption = #27599#31859#29992#37327'(g)' + end + object gj_useOneMeter: TcxTextEdit + Tag = 2 + Left = 662 + Top = 149 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 51 + Width = 150 + end + object cxLabel162: TcxLabel + Left = 28 + Top = 181 + Caption = #33014#38754#20811#37325'(g/m'#178')' + end + object gj_useOneGlub: TcxTextEdit + Tag = 2 + Left = 118 + Top = 180 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 53 + Width = 150 + end + object gj_RollMethod: TcxComboBox + Tag = 2 + Left = 408 + Top = 26 + Properties.Items.Strings = ( + '' + #21367#26729 + #39128#24133 + #25171#21367) + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 54 + Width = 150 + end + object gj_UnpackingMethod: TcxComboBox + Tag = 2 + Left = 118 + Top = 26 + Properties.Items.Strings = ( + '' + #21367#26729 + #24067#31568) + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 55 + Width = 150 + end + object gj_OpenAmplitude: TcxComboBox + Tag = 2 + Left = 118 + Top = 57 + Properties.Items.Strings = ( + '' + #24320 + #20851) + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 56 + Width = 150 + end + object TbGJReplace: TcxButton + Left = 85 + Top = 207 + Width = 75 + Height = 25 + Caption = #19968#38190#26367#25442 + TabOrder = 57 + OnClick = TbGJReplaceClick + end + object TbGJClear: TcxButton + Left = 171 + Top = 207 + Width = 75 + Height = 25 + Caption = #19968#38190#28165#31354 + TabOrder = 58 + OnClick = TbGJClearClick + end + end + object ToolBar5: TToolBar + Left = 0 + Top = 450 + Width = 1143 + Height = 38 + Align = alBottom + ButtonHeight = 38 + ButtonWidth = 75 + Caption = 'ToolBar3' + Images = DataLink_DyePlan.ImageList_new32 + List = True + ShowCaptions = True + TabOrder = 2 + Transparent = True + object TbAdd3: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #22686#34892 + ImageIndex = 2 + OnClick = TbAdd3Click + end + object TbDel3: TToolButton + Left = 79 + Top = 0 + AutoSize = True + Caption = #21024#34892 + ImageIndex = 6 + OnClick = TbDel3Click + end + end + end + object cxtabsheet7: TcxTabSheet + Caption = ' '#36711#27611' ' + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [] + ImageIndex = 6 + ParentFont = False + object panel7: TPanel + Left = 0 + Top = 0 + Width = 1143 + Height = 646 + Align = alClient + TabOrder = 0 + object cxLabel115: TcxLabel + Left = 24 + Top = 100 + Caption = #25670#24067 + end + object cxLabel144: TcxLabel + Left = 415 + Top = 66 + Caption = #36827#20986#24067#36895#24230 + end + object cxLabel145: TcxLabel + Left = 415 + Top = 33 + Caption = #38024#36523 + end + object cxLabel146: TcxLabel + Left = -1 + Top = 8 + Caption = #24037#33402#21442#25968':' + end + object cxLabel147: TcxLabel + Left = 24 + Top = 180 + Caption = #27880#24847#20107#39033 + end + object cxLabel154: TcxLabel + Left = 24 + Top = 33 + Caption = #36864#24067#26041#27861 + end + object cxLabel155: TcxLabel + Left = 24 + Top = 67 + Caption = #39057#29575 + end + object cxLabel156: TcxLabel + Left = 415 + Top = 100 + Caption = #26426#23614#21367#24067#26041#27861 + end + object zm_inoutSpeed: TcxTextEdit + Tag = 2 + Left = 522 + Top = 62 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 8 + Width = 234 + end + object zm_needle: TcxTextEdit + Tag = 2 + Left = 522 + Top = 27 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 9 + Width = 234 + end + object zm_Precautions: TcxTextEdit + Tag = 2 + Left = 103 + Top = 167 + AutoSize = False + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 10 + Height = 50 + Width = 650 + end + object zm_frequency: TcxTextEdit + Tag = 2 + Left = 103 + Top = 62 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 11 + Width = 234 + end + object zm_WidthAmplitude: TcxTextEdit + Tag = 2 + Left = 103 + Top = 132 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 12 + Width = 234 + end + object cxLabel148: TcxLabel + Left = 24 + Top = 134 + Caption = #36710#23614#38376#24133 + end + object zm_UnpackingMethod: TcxComboBox + Tag = 2 + Left = 103 + Top = 27 + Properties.Items.Strings = ( + '' + #21367#26729 + #24067#31568) + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 14 + Width = 234 + end + object zm_RollMethod: TcxComboBox + Tag = 2 + Left = 522 + Top = 97 + Properties.Items.Strings = ( + '' + #21367#26729 + #39128#24133 + #25171#21367) + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 15 + Width = 234 + end + object zm_wagCloth: TcxTextEdit + Tag = 2 + Left = 103 + Top = 97 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 16 + Width = 234 + end + end + end + end + object Panel1: TPanel + Left = 0 + Top = 38 + Width = 1147 + Height = 37 + Align = alClient + TabOrder = 2 + ExplicitTop = 32 + object Label5: TLabel + Left = 193 + Top = 9 + Width = 24 + Height = 12 + Caption = #24037#26102 + end + object Label2: TLabel + Left = 327 + Top = 9 + Width = 36 + Height = 12 + Caption = #26426#21488#21517 + end + object PSName: TcxTextEdit + Tag = 2 + Left = 87 + Top = 8 + Style.LookAndFeel.SkinName = 'WXI' + StyleDisabled.LookAndFeel.SkinName = 'WXI' + StyleFocused.LookAndFeel.SkinName = 'WXI' + StyleHot.LookAndFeel.SkinName = 'WXI' + TabOrder = 0 + Width = 90 + end + object cxLabel43: TcxLabel + Left = 29 + Top = 9 + Caption = #24037#24207#21517#31216 + end + object WorkHour: TEdit + Tag = 2 + Left = 221 + Top = 8 + Width = 90 + Height = 20 + TabOrder = 2 + end + object MachineName: TEdit + Tag = 2 + Left = 367 + Top = 8 + Width = 90 + Height = 20 + TabOrder = 3 + end + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_DyePlan.ADOLink + Parameters = <> + Left = 841 + Top = 433 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_DyePlan.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 749 + Top = 433 + end + object CDS_1: TClientDataSet + Aggregates = <> + IndexFieldNames = 'SerialNo' + Params = <> + Left = 819 + Top = 188 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 819 + Top = 252 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 928 + Top = 276 + end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 784 + Top = 364 + end + object DS_2: TDataSource + DataSet = cds_2 + Left = 899 + Top = 244 + end + object cds_2: TClientDataSet + Aggregates = <> + IndexFieldNames = 'SerialNo' + Params = <> + Left = 899 + Top = 188 + end + object GPM_3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 784 + Top = 484 + end + object DS_3: TDataSource + DataSet = CDS_3 + Left = 43 + Top = 596 + end + object CDS_3: TClientDataSet + Aggregates = <> + IndexFieldNames = 'SerialNo' + Params = <> + Left = 43 + Top = 644 + end + object cxGridPopupMenu1: TcxGridPopupMenu + PopupMenus = <> + Left = 776 + Top = 596 + end + object CDS_HZ: TClientDataSet + Aggregates = <> + Params = <> + Left = 258 + Top = 444 + end + object DS_HZ: TDataSource + DataSet = CDS_HZ + Left = 330 + Top = 444 + end +end diff --git a/F02染色计划单/U_DyeProcessDefin.pas b/F02染色计划单/U_DyeProcessDefin.pas new file mode 100644 index 0000000..d8147ae --- /dev/null +++ b/F02染色计划单/U_DyeProcessDefin.pas @@ -0,0 +1,1508 @@ +unit U_DyeProcessDefin; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, + cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel, cxGridCustomTableView, + cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, + cxGrid, ComCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit, + cxButtonEdit, StdCtrls, ExtCtrls, cxCurrencyEdit, BtnEdit, U_BaseList, + cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, + cxNavigator, dxDateRanges, dxBarBuiltInMenu, cxCheckBox, cxDropDownEdit, + dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, + dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful, + dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful, + dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue, + dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, + dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, cxContainer, cxLabel, cxPC, + dxScrollbarAnnotations, cxMaskEdit, Vcl.Menus, cxButtons; + +type + TfrmDyeProcessDefin = class(TForm) + ToolBar1: TToolBar; + TbSave: TToolButton; + TBClose: TToolButton; + ADOQueryCmd: TADOQuery; + ADOQueryTemp: TADOQuery; + TbUpFile: TToolButton; + CDS_1: TClientDataSet; + DS_1: TDataSource; + GPM_1: TcxGridPopupMenu; + cxPageControl1: TcxPageControl; + cxTabSheet2: TcxTabSheet; + cxTabSheet3: TcxTabSheet; + cxTabSheet4: TcxTabSheet; + cxGrid2: TcxGrid; + Tv1: TcxGridDBTableView; + Tv11fs_Name: TcxGridDBColumn; + Tv11fs_spel: TcxGridDBColumn; + Tv1fs_unit: TcxGridDBColumn; + Tv11fs_rate: TcxGridDBColumn; + Tv11fs_precautions: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + cxTabSheet5: TcxTabSheet; + cxGrid1: TcxGrid; + Tv2: TcxGridDBTableView; + Tv2fp_Name: TcxGridDBColumn; + Tv2fp_spel: TcxGridDBColumn; + Tv2fp_unit: TcxGridDBColumn; + Tv2fp_rate: TcxGridDBColumn; + Tv2fp_precautions: TcxGridDBColumn; + cxGridDBColumn16: TcxGridDBColumn; + cxGridDBColumn17: TcxGridDBColumn; + cxGridDBColumn18: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + cxTabSheet6: TcxTabSheet; + cxGrid3: TcxGrid; + Tv3: TcxGridDBTableView; + Tv3gj_Name: TcxGridDBColumn; + Tv3gj_spel: TcxGridDBColumn; + Tv3gj_unit: TcxGridDBColumn; + TV3gj_rate: TcxGridDBColumn; + Tv3gj_precautions: TcxGridDBColumn; + cxGridDBColumn26: TcxGridDBColumn; + cxGridDBColumn27: TcxGridDBColumn; + cxGridDBColumn28: TcxGridDBColumn; + cxGridLevel3: TcxGridLevel; + Panel2: TPanel; + cxLabel10: TcxLabel; + cxLabel11: TcxLabel; + cxLabel12: TcxLabel; + cxLabel13: TcxLabel; + cxLabel14: TcxLabel; + cxLabel15: TcxLabel; + cxLabel16: TcxLabel; + cxLabel17: TcxLabel; + cxLabel18: TcxLabel; + cxLabel19: TcxLabel; + cxLabel20: TcxLabel; + cxLabel7: TcxLabel; + cxLabel8: TcxLabel; + cxLabel9: TcxLabel; + qx_WaterContent: TcxTextEdit; + qx_Add_Name: TcxTextEdit; + qx_Precautions: TcxTextEdit; + qx_temperature4: TcxTextEdit; + qx_temperature2: TcxTextEdit; + qx_temperature1: TcxTextEdit; + qx_temperature3: TcxTextEdit; + qx_temperature5: TcxTextEdit; + qx_speed: TcxTextEdit; + qx_ReduceAmplitude: TcxTextEdit; + Panel3: TPanel; + cxLabel1: TcxLabel; + cxLabel2: TcxLabel; + cxLabel21: TcxLabel; + cxLabel22: TcxLabel; + cxLabel23: TcxLabel; + cxLabel24: TcxLabel; + cxLabel25: TcxLabel; + cxLabel26: TcxLabel; + cxLabel27: TcxLabel; + cxLabel28: TcxLabel; + cxLabel3: TcxLabel; + cxLabel4: TcxLabel; + cxLabel5: TcxLabel; + cxLabel55: TcxLabel; + cxLabel56: TcxLabel; + cxLabel57: TcxLabel; + cxLabel58: TcxLabel; + cxLabel59: TcxLabel; + cxLabel6: TcxLabel; + cxLabel60: TcxLabel; + cxLabel61: TcxLabel; + cxLabel62: TcxLabel; + cxLabel63: TcxLabel; + cxLabel64: TcxLabel; + cxLabel65: TcxLabel; + dx_OutFanSpeed: TcxTextEdit; + dx_temperature1: TcxTextEdit; + dx_WidthAmplitude: TcxTextEdit; + dx_temperature5: TcxTextEdit; + dx_temperature9: TcxTextEdit; + dx_RosePower: TcxTextEdit; + dx_BrushSuperRate: TcxTextEdit; + dx_Precautions: TcxTextEdit; + dx_UpSuperRate: TcxTextEdit; + dx_speed: TcxTextEdit; + dx_TubePress: TcxTextEdit; + dx_temperature6: TcxTextEdit; + dx_CycleFanSpeed: TcxTextEdit; + dx_DownSuperRate: TcxTextEdit; + dx_temperature3: TcxTextEdit; + dx_temperature4: TcxTextEdit; + dx_temperature7: TcxTextEdit; + dx_temperature8: TcxTextEdit; + dx_temperature10: TcxTextEdit; + dx_temperature2: TcxTextEdit; + Panel4: TPanel; + cxLabel100: TcxLabel; + cxLabel101: TcxLabel; + cxLabel102: TcxLabel; + cxLabel103: TcxLabel; + cxLabel104: TcxLabel; + cxLabel105: TcxLabel; + cxLabel106: TcxLabel; + cxLabel109: TcxLabel; + cxLabel110: TcxLabel; + cxLabel111: TcxLabel; + cxLabel82: TcxLabel; + cxLabel83: TcxLabel; + cxLabel84: TcxLabel; + cxLabel85: TcxLabel; + cxLabel86: TcxLabel; + cxLabel87: TcxLabel; + cxLabel88: TcxLabel; + cxLabel89: TcxLabel; + cxLabel90: TcxLabel; + cxLabel91: TcxLabel; + cxLabel92: TcxLabel; + cxLabel93: TcxLabel; + cxLabel94: TcxLabel; + cxLabel95: TcxLabel; + cxLabel96: TcxLabel; + cxLabel97: TcxLabel; + cxLabel98: TcxLabel; + cxLabel99: TcxLabel; + fs_OutFanSpeed: TcxTextEdit; + fs_temperature1: TcxTextEdit; + fs_WidthAmplitude: TcxTextEdit; + fs_temperature5: TcxTextEdit; + fs_temperature9: TcxTextEdit; + fs_RosePower: TcxTextEdit; + fs_BrushSuperRate: TcxTextEdit; + fs_Precautions: TcxTextEdit; + fs_UpSuperRate: TcxTextEdit; + fs_speed: TcxTextEdit; + fs_TubePress: TcxTextEdit; + fs_temperature6: TcxTextEdit; + fs_CycleFanSpeed: TcxTextEdit; + fs_DownSuperRate: TcxTextEdit; + fs_temperature3: TcxTextEdit; + fs_temperature4: TcxTextEdit; + fs_temperature7: TcxTextEdit; + fs_temperature8: TcxTextEdit; + fs_temperature10: TcxTextEdit; + fs_temperature2: TcxTextEdit; + fs_CarPress: TcxTextEdit; + fs_PressWaterContent: TcxTextEdit; + Panel5: TPanel; + cxLabel107: TcxLabel; + cxLabel108: TcxLabel; + cxLabel112: TcxLabel; + cxLabel29: TcxLabel; + cxLabel30: TcxLabel; + cxLabel31: TcxLabel; + cxLabel32: TcxLabel; + cxLabel33: TcxLabel; + cxLabel34: TcxLabel; + cxLabel35: TcxLabel; + cxLabel36: TcxLabel; + cxLabel49: TcxLabel; + cxLabel50: TcxLabel; + cxLabel51: TcxLabel; + cxLabel52: TcxLabel; + cxLabel53: TcxLabel; + cxLabel54: TcxLabel; + cxLabel66: TcxLabel; + cxLabel67: TcxLabel; + cxLabel68: TcxLabel; + cxLabel69: TcxLabel; + cxLabel70: TcxLabel; + cxLabel71: TcxLabel; + cxLabel72: TcxLabel; + cxLabel73: TcxLabel; + cxLabel74: TcxLabel; + cxLabel75: TcxLabel; + cxLabel76: TcxLabel; + cxLabel77: TcxLabel; + cxLabel78: TcxLabel; + cxLabel79: TcxLabel; + cxLabel80: TcxLabel; + cxLabel81: TcxLabel; + fp_OutFanSpeed: TcxTextEdit; + fp_temperature1: TcxTextEdit; + fp_WidthAmplitude: TcxTextEdit; + fp_temperature5: TcxTextEdit; + fp_temperature9: TcxTextEdit; + fp_RosePower: TcxTextEdit; + fp_BrushSuperRate: TcxTextEdit; + fp_Precautions: TcxTextEdit; + fp_UpSuperRate: TcxTextEdit; + fp_speed: TcxTextEdit; + fp_TubePress: TcxTextEdit; + fp_temperature6: TcxTextEdit; + fp_CycleFanSpeed: TcxTextEdit; + fp_DownSuperRate: TcxTextEdit; + fp_temperature3: TcxTextEdit; + fp_temperature4: TcxTextEdit; + fp_temperature7: TcxTextEdit; + fp_temperature8: TcxTextEdit; + fp_temperature10: TcxTextEdit; + fp_temperature2: TcxTextEdit; + fp_LeftHeight: TcxTextEdit; + fp_RightHeight: TcxTextEdit; + fp_PumbMixElectricFrequency: TcxTextEdit; + fp_SystemPress: TcxTextEdit; + fp_MixElectricFrequency: TcxTextEdit; + fp_GasFlow: TcxTextEdit; + Panel6: TPanel; + cxLabel116: TcxLabel; + cxLabel117: TcxLabel; + cxLabel118: TcxLabel; + cxLabel119: TcxLabel; + cxLabel120: TcxLabel; + cxLabel121: TcxLabel; + cxLabel122: TcxLabel; + cxLabel123: TcxLabel; + cxLabel124: TcxLabel; + cxLabel125: TcxLabel; + cxLabel126: TcxLabel; + cxLabel127: TcxLabel; + cxLabel128: TcxLabel; + cxLabel129: TcxLabel; + cxLabel130: TcxLabel; + cxLabel131: TcxLabel; + cxLabel132: TcxLabel; + cxLabel133: TcxLabel; + cxLabel134: TcxLabel; + cxLabel135: TcxLabel; + cxLabel136: TcxLabel; + cxLabel137: TcxLabel; + cxLabel138: TcxLabel; + cxLabel139: TcxLabel; + cxLabel140: TcxLabel; + cxLabel141: TcxLabel; + cxLabel142: TcxLabel; + cxLabel143: TcxLabel; + gj_temperature1: TcxTextEdit; + gj_WidthAmplitude: TcxTextEdit; + gj_temperature5: TcxTextEdit; + gj_temperature9: TcxTextEdit; + gj_RosePower: TcxTextEdit; + gj_BrushSuperRate: TcxTextEdit; + gj_Precautions: TcxTextEdit; + gj_UpSuperRate: TcxTextEdit; + gj_speed: TcxTextEdit; + gj_TubePress: TcxTextEdit; + gj_temperature6: TcxTextEdit; + gj_CycleFanSpeed: TcxTextEdit; + gj_DownSuperRate: TcxTextEdit; + gj_temperature3: TcxTextEdit; + gj_temperature4: TcxTextEdit; + gj_temperature7: TcxTextEdit; + gj_temperature8: TcxTextEdit; + gj_temperature10: TcxTextEdit; + gj_temperature2: TcxTextEdit; + gj_LeftHeight: TcxTextEdit; + gj_RightHeight: TcxTextEdit; + gj_OutFanSpeed: TcxTextEdit; + cxtabsheet7: TcxTabSheet; + panel7: TPanel; + cxLabel115: TcxLabel; + cxLabel144: TcxLabel; + cxLabel145: TcxLabel; + cxLabel146: TcxLabel; + cxLabel147: TcxLabel; + cxLabel154: TcxLabel; + cxLabel155: TcxLabel; + cxLabel156: TcxLabel; + zm_inoutSpeed: TcxTextEdit; + zm_needle: TcxTextEdit; + zm_Precautions: TcxTextEdit; + zm_frequency: TcxTextEdit; + zm_WidthAmplitude: TcxTextEdit; + cxLabel148: TcxLabel; + qx_Add_Number: TcxTextEdit; + cxLabel149: TcxLabel; + GPM_2: TcxGridPopupMenu; + DS_2: TDataSource; + cds_2: TClientDataSet; + GPM_3: TcxGridPopupMenu; + DS_3: TDataSource; + CDS_3: TClientDataSet; + Tv3Column1: TcxGridDBColumn; + Tv1Column1: TcxGridDBColumn; + Tv2Column1: TcxGridDBColumn; + cxGridPopupMenu1: TcxGridPopupMenu; + dx_UnpackingMethod: TcxComboBox; + dx_OpenAmplitude: TcxComboBox; + dx_RollMethod: TcxComboBox; + fs_UnpackingMethod: TcxComboBox; + fs_OpenAmplitude: TcxComboBox; + fs_RollMethod: TcxComboBox; + zm_UnpackingMethod: TcxComboBox; + zm_RollMethod: TcxComboBox; + cxLabel151: TcxLabel; + cxLabel152: TcxLabel; + cxLabel153: TcxLabel; + cxLabel157: TcxLabel; + cxLabel158: TcxLabel; + fs_meter: TcxTextEdit; + fs_useGlub: TcxTextEdit; + fs_waterDistribution: TcxTextEdit; + fs_useOneGlub: TcxTextEdit; + fs_useOneMeter: TcxTextEdit; + cxLabel159: TcxLabel; + fp_useOneMeter: TcxTextEdit; + cxLabel160: TcxLabel; + fp_useOneGlub: TcxTextEdit; + cxLabel161: TcxLabel; + gj_useOneMeter: TcxTextEdit; + cxLabel162: TcxLabel; + gj_useOneGlub: TcxTextEdit; + qx_UnpackingMethod: TcxComboBox; + qx_RollMethod: TcxComboBox; + zm_wagCloth: TcxTextEdit; + fp_RollMethod: TcxComboBox; + fp_UnpackingMethod: TcxComboBox; + gj_RollMethod: TcxComboBox; + gj_UnpackingMethod: TcxComboBox; + fp_OpenAmplitude: TcxComboBox; + gj_OpenAmplitude: TcxComboBox; + ToolBar3: TToolBar; + TbAdd2: TToolButton; + TbDel2: TToolButton; + ToolBar4: TToolBar; + TbAdd1: TToolButton; + TbDel1: TToolButton; + ToolBar5: TToolBar; + TbAdd3: TToolButton; + TbDel3: TToolButton; + TbCPReplace: TcxButton; + TbDXReplace: TcxButton; + TbFSReplace: TcxButton; + TbFPReplace: TcxButton; + TbGJReplace: TcxButton; + cxButton1: TcxButton; + cxButton2: TcxButton; + TbDXClear: TcxButton; + cxButton4: TcxButton; + TbGJClear: TcxButton; + Panel1: TPanel; + PSName: TcxTextEdit; + cxLabel43: TcxLabel; + CDS_HZ: TClientDataSet; + DS_HZ: TDataSource; + Label5: TLabel; + WorkHour: TEdit; + Label2: TLabel; + MachineName: TEdit; + procedure FormShow(Sender: TObject); + procedure TBCloseClick(Sender: TObject); + procedure TbSaveClick(Sender: TObject); + procedure CYColorKeyPress(Sender: TObject; var Key: Char); + procedure CYJGGYBtnDnClick(Sender: TObject); + procedure C_WidthBtnDnClick(Sender: TObject); + procedure C_WidthBtnUpClick(Sender: TObject); + + procedure SetXH(); + + procedure Tv11fs_unitPropertiesEditValueChanged(Sender: TObject); + procedure Tv2fp_unitPropertiesEditValueChanged(Sender: TObject); + procedure Tv3gj_unitPropertiesEditValueChanged(Sender: TObject); + procedure fs_meterPropertiesChange(Sender: TObject); + procedure TbAdd2Click(Sender: TObject); + procedure TbDel2Click(Sender: TObject); + procedure Tv2fp_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure TbAdd1Click(Sender: TObject); + procedure TbDel1Click(Sender: TObject); + procedure TbAdd3Click(Sender: TObject); + procedure TbDel3Click(Sender: TObject); + procedure Tv11fs_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure Tv3gj_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure TbCPReplaceClick(Sender: TObject); + procedure TbDXReplaceClick(Sender: TObject); + procedure TbFSReplaceClick(Sender: TObject); + procedure TbFPReplaceClick(Sender: TObject); + procedure TbGJReplaceClick(Sender: TObject); + procedure cxButton1Click(Sender: TObject); + procedure cxButton2Click(Sender: TObject); + procedure TbDXClearClick(Sender: TObject); + procedure cxButton4Click(Sender: TObject); + procedure TbGJClearClick(Sender: TObject); + private + canshu1: string; + Fint: Integer; + procedure InitGrid(); + procedure ArrangeTabsByDataset; + function SaveData(): Boolean; + function FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string; + procedure FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil); + procedure ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil); + function CheckData(): Boolean; + { Private declarations } + public + BtnInt: Integer; + FPSType: string; + FPSID: string; + + { Public declarations } + end; + +var + frmDyeProcessDefin: TfrmDyeProcessDefin; + +implementation + +uses + U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload, U_ClothInfoSel, + U_DyeProcessList, U_ProductInfoSel; +// U_ProductInfoSel; + +{$R *.dfm} + +procedure TfrmDyeProcessDefin.SetXH(); +var + i: Integer; +begin +// with CDS_GX do +// begin +// First; +// i := 1; +// while not Eof do +// begin +// with CDS_GX do +// begin +// Edit; +// FieldByName('XHNoTemp').Value := i; +// Post; +// end; +// i := i + 1; +// Next; +// end; +// end; +// +// with CDS_GX do +// begin +// CDS_GX.IndexFieldNames := ''; +// First; +// i := 1; +// while not Eof do +// begin +// with CDS_GX do +// begin +// Edit; +// FieldByName('SerialNo').Value := FieldByName('XHNoTemp').AsInteger; +// Post; +// end; +// i := i + 1; +// Next; +// end; +// CDS_GX.IndexFieldNames := 'SerialNo'; +// end; +end; + +procedure TfrmDyeProcessDefin.ArrangeTabsByDataset; +var + I: Integer; + TabSheet: TcxTabSheet; + CurrentIndex: Integer; +begin + + + // ʼҳ + for I := 0 to cxPageControl1.PageCount - 1 do + cxPageControl1.Pages[I].TabVisible := False; + + // õǰ + CurrentIndex := 0; + + + // ݹҶӦҳ + + for I := 0 to cxPageControl1.PageCount - 1 do + begin + TabSheet := cxPageControl1.Pages[I] as TcxTabSheet; + // ƥ乤 + if (Trim(TabSheet.Caption) = FPSType) then + begin + TabSheet.PageIndex := CurrentIndex; + TabSheet.TabVisible := True; + Inc(CurrentIndex); + Break; + end; + + end; + // ˢҳؼ + + cxPageControl1.Invalidate; +end; + +procedure TfrmDyeProcessDefin.InitGrid(); +var + i: integer; +begin + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* from Bs_Cloth_GY_sub A '); + sql.Add(' where gytype=''ˮ'' and A.BCIID=''' + Trim(FPSID) + ''''); + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_1); + SInitCDSData(ADOQueryTemp, CDS_1); + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* from Bs_Cloth_GY_sub A '); + sql.Add(' where gytype='''' and A.BCIID=''' + Trim(FPSID) + ''''); + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_2); + SInitCDSData(ADOQueryTemp, CDS_2); + + with ADOQueryTemp do + begin + Close; + sql.Clear; + sql.Add('select A.* from Bs_Cloth_GY_sub A '); + sql.Add(' where gytype=''ν'' and A.BCIID=''' + Trim(FPSID) + ''''); + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_3); + SInitCDSData(ADOQueryTemp, CDS_3); + + +// C_FromName.TxtCode := Trim(ADOQueryTemp.fieldbyname('FromBCIID').AsString); +// C_FromName.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName').AsString); + +end; + +procedure TfrmDyeProcessDefin.FormShow(Sender: TObject); +var + MaxBCIID, MaxProcessID, MaxBCPID: string; + Maxid1, maxid2, maxid3, maxgx: string; +begin + InitGrid(); + ArrangeTabsByDataset; + if BtnInt = 0 then + begin + FPSID := ''; + end; + if (BtnInt = 1) or (BtnInt = 3) 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 BCIID=''' + Trim(FPSID) + ''''); + Open; + end; + + if FPSType = 'ϴ' then + begin + SCSHData(ADOQueryTemp, Panel2, 2); + end + else if FPSType = '' then + begin + SCSHData(ADOQueryTemp, Panel3, 2); + end + else if FPSType = 'ˮ' then + begin + SCSHData(ADOQueryTemp, Panel4, 2); + end + else if FPSType = '' then + begin + SCSHData(ADOQueryTemp, Panel5, 2); + end + else if FPSType = 'ν' then + begin + SCSHData(ADOQueryTemp, Panel6, 2); + end + else if FPSType = 'ë' then + begin + SCSHData(ADOQueryTemp, Panel7, 2); + end; + end; + + if BtnInt = 2 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 BCIID=''' + Trim(FPSID) + ''''); + Open; + end; + + if FPSType = 'ϴ' then + begin + SCSHData(ADOQueryTemp, Panel2, 2); + end + else if FPSType = '' then + begin + SCSHData(ADOQueryTemp, Panel3, 2); + end + else if FPSType = 'ˮ' then + begin + SCSHData(ADOQueryTemp, Panel4, 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, Panel5, 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, Panel6, 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, Panel7, 2); + end; + + end; + if BtnInt = 3 then //鿴 + begin + TbSave.Visible := False; + TbUpFile.Visible := False; + end; + +end; + +procedure TfrmDyeProcessDefin.fs_meterPropertiesChange(Sender: TObject); +var + mfs_meter, mfs_useOneMeter, mfs_useGlub: Double; +begin + if fs_meter.Text <> '' then + begin + mfs_meter := StrToFloat(fs_meter.Text); + end + else + begin + fs_meter.Text := '0'; + mfs_meter := 0; + end; + + if fs_useOneMeter.Text <> '' then + begin + mfs_useOneMeter := StrToFloat(fs_useOneMeter.Text); + end + else + begin + fs_useOneMeter.Text := '0'; + mfs_useOneMeter := 0; + end; + ///㲿 + mfs_useGlub := mfs_meter * mfs_useOneMeter / 1000; + fs_useGlub.Text := FloatToStr(mfs_useGlub); +end; + +procedure TfrmDyeProcessDefin.TBCloseClick(Sender: TObject); +begin + Close; +end; + +function TfrmDyeProcessDefin.CheckData(): Boolean; +begin + if Trim(PSName.Text) = '' then + begin + Application.MessageBox('ƲΪգ', 'ʾϢ', MB_OK); + Result := False; + Exit; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Dye_Process where PSName=''' + trim(PSName.Text) + ''''); + Open; + end; + if ADOQueryCmd.RecordCount > 1 then + begin + application.MessageBox(PChar('' + trim(PSName.text) + 'Ѵ'), 'ʾ'); + Result := false; + Exit; + end; + Result := True; +end; + +function TfrmDyeProcessDefin.SaveData(): Boolean; +var + MaxProcessID, MaxBCPID, MaxPSID: string; + maxid1, maxid2, maxid3, maxgx, maxId: string; +begin + try + ADOQueryCmd.Connection.BeginTrans; + +///////////////////////////Dye_process//////////////////////////// + + with ADOQueryCmd do + begin + Filtered := False; + Close; + SQL.Clear; + sql.Add(' select * from Dye_Process where PSID=''' + Trim(FPSID) + ''''); + Open; + end; + + with ADOQueryCmd do + begin + if Trim(fieldbyname('PSID').AsString) = '' then + begin + if GetLSNo(ADOQueryCmd, maxId, 'JP', 'Dye_Process', 4, 1) = False then + begin + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡʧܣ', 'ʾ', 0); + Exit; + end; + end + else + begin + maxId := Trim(FPSID); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Dye_Process where PSID=''' + Trim(maxId) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FPSID) = '' then + begin + Append; + FieldByName('Filler').Value := Trim(DName); + end + else + begin + Edit; + FieldByName('Editer').Value := Trim(DName); + FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp); + end; + RTSetsavedata(ADOQueryCmd, 'Dye_Process', panel1, 2); + FieldByName('PSID').Value := Trim(maxId); + FieldByName('PSType').Value := Trim(FPSType); + Post; + end; + + end; + +///////////////////Dye_process//////////////////////////// + +//////////////// ////////////////////// + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Bs_Cloth_GY_Main where BCIID=''' + Trim(maxId) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(FPSID) = '' then + begin + Append; + end + else + begin + Edit; + end; + FieldByName('BCIID').Value := Trim(maxId); + RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel2, 2); + RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel3, 2); + RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel4, 2); + RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel5, 2); + RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel6, 2); + RTSetsavedata(ADOQueryCmd, 'Bs_Cloth_GY_Main', panel7, 2); + Post; + end; + +//////////////// ////////////////////// +/// +/// +////////////////// ˮӱ ////////////////////// + with CDS_1 do + begin + First; + while not Eof do + begin + + if Trim(CDS_1.fieldbyname('BCPID').AsString) = '' then + begin + if GetLSNo(ADOQueryTemp, maxid1, 'FS', 'Bs_Cloth_GY_Sub', 5, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + end + else + begin + maxid1 := Trim(CDS_1.fieldbyname('BCPID').AsString); + end; + + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Bs_Cloth_GY_Sub where '); + sql.Add(' BCPID=''' + Trim(maxid1) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_1.fieldbyname('BCPID').AsString) = '' then + begin + Append; + + end + else + begin + Edit; + + end; + FieldByName('GYType').Value := 'ˮ'; + FieldByName('BCIID').Value := Trim(maxId); + FieldByName('BCPID').Value := Trim(maxid1); + RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Bs_Cloth_GY_Sub', 0); + Post; + end; + CDS_1.Edit; + CDS_1.FieldByName('BCIID').Value := Trim(maxId); + CDS_1.FieldByName('BCPID').Value := Trim(maxid1); + + Next; + end; + end; +//////////////// ӱ ////////////////////// +////////////////// 淢ӱ ////////////////////// + with CDS_2 do + begin + First; + while not Eof do + begin + + if Trim(CDS_2.fieldbyname('BCPID').AsString) = '' then + begin + if GetLSNo(ADOQueryTemp, maxid2, 'FP', 'Bs_Cloth_GY_Sub', 5, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + end + else + begin + maxid2 := Trim(CDS_2.fieldbyname('BCPID').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Bs_Cloth_GY_Sub where '); + sql.Add(' BCPID=''' + Trim(maxid2) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_2.fieldbyname('BCPID').AsString) = '' then + begin + Append; + + end + else + begin + Edit; + + end; + FieldByName('GYType').Value := ''; + FieldByName('BCIID').Value := Trim(maxId); + FieldByName('BCPID').Value := Trim(maxid2); + RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_2, 'Bs_Cloth_GY_Sub', 0); + Post; + end; + CDS_2.Edit; + CDS_2.FieldByName('BCIID').Value := Trim(maxId); + CDS_2.FieldByName('BCPID').Value := Trim(maxid2); + + Next; + end; + end; +//////////////// 淢ӱ ////////////////////// +/// +/// ////////////////// νӱ ////////////////////// + with CDS_3 do + begin + First; + while not Eof do + begin + if Trim(CDS_3.fieldbyname('BCPID').AsString) = '' then + begin + if GetLSNo(ADOQueryTemp, maxid3, 'GJ', 'Bs_Cloth_GY_Sub', 5, 1) = False then + begin + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ȡˮʧܣ', 'ʾ', 0); + Exit; + end; + end + else + begin + maxid3 := Trim(CDS_3.fieldbyname('BCPID').AsString); + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('select * from Bs_Cloth_GY_Sub where '); + sql.Add('BCPID=''' + Trim(maxid3) + ''''); + Open; + end; + with ADOQueryCmd do + begin + if Trim(CDS_3.fieldbyname('BCPID').AsString) = '' then + begin + Append; + + end + else + begin + Edit; + + end; + FieldByName('GYType').Value := 'ν'; + FieldByName('BCIID').Value := Trim(maxId); + FieldByName('BCPID').Value := Trim(maxid3); + RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_3, 'Bs_Cloth_GY_Sub', 0); + Post; + end; + CDS_3.Edit; + CDS_3.FieldByName('BCIID').Value := Trim(maxId); + CDS_3.FieldByName('BCPID').Value := Trim(maxid3); + + Next; + end; + end; +//////////////// νӱ ////////////////////// +/// +/// + + + ADOQueryCmd.Connection.CommitTrans; + FPSID := maxId; + Result := True; + except + Result := False; + ADOQueryCmd.Connection.RollbackTrans; + Application.MessageBox('ʧ!', 'ʾ', 0); + end; +end; + +procedure TfrmDyeProcessDefin.CYJGGYBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text := ''; +end; + +procedure TfrmDyeProcessDefin.TbSaveClick(Sender: TObject); +var + MC_Code: string; +begin + + if CheckData() and SaveData() then + begin + Application.MessageBox('ɹ', 'ʾ', 0); + ModalResult := 1; + end; + +end; + +procedure TfrmDyeProcessDefin.TbDXReplaceClick(Sender: TObject); +begin + FillAllTextEditsWithValue(panel3, 'ͺ¶', FindLastEditedTextEdit(panel3, 'ͺ¶')); +end; + +procedure TfrmDyeProcessDefin.TbFPReplaceClick(Sender: TObject); +begin + FillAllTextEditsWithValue(panel5, 'ݺ¶', FindLastEditedTextEdit(panel5, 'ݺ¶')); +end; + +procedure TfrmDyeProcessDefin.TbGJReplaceClick(Sender: TObject); +begin + FillAllTextEditsWithValue(panel6, 'ν¶', FindLastEditedTextEdit(panel6, 'ν¶')); +end; + +procedure TfrmDyeProcessDefin.TbAdd1Click(Sender: TObject); +begin + with CDS_1 do + begin + Append; + CDS_1.FieldByName('serialno').Value := CDS_1.RecordCount + 1; + CDS_1.FieldByName('fs_unit').Value := '%'; + Post; + end; +end; + +procedure TfrmDyeProcessDefin.TbAdd2Click(Sender: TObject); +begin + with CDS_2 do + begin + Append; + CDS_2.FieldByName('serialno').Value := CDS_2.RecordCount + 1; + CDS_2.FieldByName('fp_unit').Value := '%'; + Post; + end; +end; + +procedure TfrmDyeProcessDefin.TbAdd3Click(Sender: TObject); +begin + with CDS_3 do + begin + Append; + CDS_3.FieldByName('serialno').Value := CDS_3.RecordCount + 1; + CDS_3.FieldByName('gj_unit').Value := '%'; + Post; + end; +end; + +procedure TfrmDyeProcessDefin.TbDel1Click(Sender: TObject); +var + i: Integer; +begin + if not CDS_1.IsEmpty then + begin + + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then + begin + if Trim(CDS_1.fieldbyname('BCPID').AsString) <> '' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete BS_Cloth_GY_Sub where BCPID=''' + Trim(CDS_1.fieldbyname('BCPID').AsString)); + ExecSQL; + end; + end; + CDS_1.Delete; + end + else + exit; + + i := 0; + CDS_1.First; + while not CDS_1.Eof do + begin + i := i + 1; + CDS_1.Edit; + CDS_1.fieldByName('serialno').value := i; + CDS_1.Post; + CDS_1.Next; + end; + end + else + begin + Application.MessageBox('޿ɾ!', 'ʾ', 0); + Exit; + end; +end; + +procedure TfrmDyeProcessDefin.TbDel2Click(Sender: TObject); +var + i: Integer; +begin + if not CDS_3.IsEmpty then + begin + + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then + begin + if Trim(CDS_3.fieldbyname('BCPID').AsString) <> '' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete BS_Cloth_GY_Sub where BCPID=''' + Trim(CDS_3.fieldbyname('BCPID').AsString) + ''''); + ExecSQL; + end; + end; + CDS_3.Delete; + end + else + exit; + + i := 0; + CDS_3.First; + while not CDS_3.Eof do + begin + i := i + 1; + CDS_3.Edit; + CDS_3.fieldByName('serialno').value := i; + CDS_3.Post; + CDS_3.Next; + end; + end + else + begin + Application.MessageBox('޿ɾ!', 'ʾ', 0); + Exit; + end; +end; + +procedure TfrmDyeProcessDefin.TbDel3Click(Sender: TObject); +var + i: Integer; +begin + if not CDS_3.IsEmpty then + begin + + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) = IDYES then + begin + if Trim(CDS_3.fieldbyname('BCPID').AsString) <> '' then + begin + with ADOQueryCmd do + begin + Close; + sql.Clear; + sql.Add('delete BS_Cloth_GY_Sub where BCPID=''' + Trim(CDS_3.fieldbyname('BCPID').AsString) + ''''); + ExecSQL; + end; + end; + CDS_3.Delete; + end + else + exit; + + i := 0; + CDS_3.First; + while not CDS_3.Eof do + begin + i := i + 1; + CDS_3.Edit; + CDS_3.fieldByName('serialno').value := i; + CDS_3.Post; + CDS_3.Next; + end; + end + else + begin + Application.MessageBox('޿ɾ!', 'ʾ', 0); + Exit; + end; +end; + +procedure TfrmDyeProcessDefin.TbCPReplaceClick(Sender: TObject); +begin + FillAllTextEditsWithValue(panel2, 'ϴˮ', FindLastEditedTextEdit(panel2, 'ϴˮ')); +end; + +function TfrmDyeProcessDefin.FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string; +var + i, j: Integer; + AControl: TControl; + SortedControls: TList; + TempControl: TControl; +begin + Result := ''; + + // ûӿؼֱӷؿ + if AParent.ControlCount = 0 then + Exit; + + // ʹ TList 洢ؼݾɰ Delphi + SortedControls := TList.Create; + try + // ӿؼӵб + for i := 0 to AParent.ControlCount - 1 do + SortedControls.Add(AParent.Controls[i]); + + // ֶ򣺰 TopY꣩ LeftX꣩ + for i := 0 to SortedControls.Count - 1 do + begin + for j := i + 1 to SortedControls.Count - 1 do + begin + // Ƚؼ Top Left + if (TControl(SortedControls[i]).Top > TControl(SortedControls[j]).Top) or ((TControl(SortedControls[i]).Top = TControl(SortedControls[j]).Top) and (TControl(SortedControls[i]).Left > TControl(SortedControls[j]).Left)) then + begin + // λ + TempControl := TControl(SortedControls[i]); + SortedControls[i] := SortedControls[j]; + SortedControls[j] := TempControl; + end; + end; + end; + // Ŀؼ + for i := 0 to SortedControls.Count - 1 do + begin + AControl := TControl(SortedControls[i]); + if (AControl is TcxTextEdit) and (TcxTextEdit(AControl).Hint = AHint) and (TcxTextEdit(AControl).Text <> '') then + begin + Result := TcxTextEdit(AControl).Text; // һĻᱻ + end; + end; + finally + SortedControls.Free; + end; +end; + +procedure TfrmDyeProcessDefin.FillAllTextEditsWithValue(AParent: TWinControl; const AHint, AValue: string; AExclude: TcxTextEdit = nil); // ѡųضؼ +var + i: Integer; + AControl: TControl; + ATextEdit: TcxTextEdit; +begin + for i := 0 to AParent.ControlCount - 1 do + begin + AControl := AParent.Controls[i]; + if (AControl is TcxTextEdit) and ((AControl as TcxTextEdit).Text = '') then + begin + ATextEdit := AControl as TcxTextEdit; + if (ATextEdit.Hint = AHint) and (ATextEdit <> AExclude) then + ATextEdit.Text := AValue; + end; + end; +end; + +procedure TfrmDyeProcessDefin.ClearAllTextEditsByHint(AParent: TWinControl; const AHint: string; AExclude: TcxTextEdit = nil); +var + i: Integer; + AControl: TControl; +begin + for i := 0 to AParent.ControlCount - 1 do + begin + AControl := AParent.Controls[i]; + // Ƿ TcxTextEdit Hint ƥ䣬ҲųĿؼ + if (AControl is TcxTextEdit) and (TcxTextEdit(AControl).Hint = AHint) and (TcxTextEdit(AControl) <> AExclude) then + begin + TcxTextEdit(AControl).Text := ''; // ֱ + end; + end; +end; + +procedure TfrmDyeProcessDefin.cxButton1Click(Sender: TObject); +begin + ClearAllTextEditsByHint(panel4, 'ˮ¶'); +end; + +procedure TfrmDyeProcessDefin.cxButton2Click(Sender: TObject); +begin + ClearAllTextEditsByHint(panel2, 'ϴˮ'); +end; + +procedure TfrmDyeProcessDefin.TbDXClearClick(Sender: TObject); +begin + ClearAllTextEditsByHint(panel3, 'ͺ¶'); +end; + +procedure TfrmDyeProcessDefin.cxButton4Click(Sender: TObject); +begin + ClearAllTextEditsByHint(panel5, 'ݺ¶'); +end; + +procedure TfrmDyeProcessDefin.TbGJClearClick(Sender: TObject); +begin + ClearAllTextEditsByHint(panel6, 'ν¶'); +end; + +procedure TfrmDyeProcessDefin.TbFSReplaceClick(Sender: TObject); +begin + FillAllTextEditsWithValue(panel4, 'ˮ¶', FindLastEditedTextEdit(panel4, 'ˮ¶')); +end; + +procedure TfrmDyeProcessDefin.CYColorKeyPress(Sender: TObject; var Key: Char); +begin + if Key = #13 then + begin + Key := #0; + SelectNext(ActiveControl as TWinControl, True, True); + end; +end; + +procedure TfrmDyeProcessDefin.C_WidthBtnDnClick(Sender: TObject); +begin + TBtnEditC(Sender).Text := ''; + TBtnEditC(Sender).TxtCode := ''; +end; + +procedure TfrmDyeProcessDefin.C_WidthBtnUpClick(Sender: TObject); +var + fsj: string; + FWZ: Integer; +begin + fsj := Trim(TEdit(Sender).Hint); + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + if ShowModal = 1 then + begin + TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; +end; + +procedure TfrmDyeProcessDefin.Tv11fs_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmProductInfoSel := TfrmProductInfoSel.Create(Application); + with frmProductInfoSel do + begin + FSTKName := ''; + if ShowModal = 1 then + begin + with Self.CDS_1 do + begin + Edit; + FieldByName('fs_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value; + FieldByName('fs_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Spec').value; + end; + end; + end; + finally + frmProductInfoSel.Free; + end; +end; + +procedure TfrmDyeProcessDefin.Tv11fs_unitPropertiesEditValueChanged(Sender: TObject); +var + s: string; +begin + s := TcxTextEdit(Sender).EditingText; + if (s <> '') and (s[Length(s)] <> '%') then + begin + Tv1.Controller.FocusedColumn.EditValue := s + '%'; + end; +end; + +procedure TfrmDyeProcessDefin.Tv2fp_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmProductInfoSel := TfrmProductInfoSel.Create(Application); + with frmProductInfoSel do + begin + FSTKName := ''; + if ShowModal = 1 then + begin + with Self.CDS_2 do + begin + Edit; + FieldByName('fp_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value; + FieldByName('fp_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Spec').value; + end; + end; + end; + finally + frmProductInfoSel.Free; + end; +end; + +procedure TfrmDyeProcessDefin.Tv2fp_unitPropertiesEditValueChanged(Sender: TObject); +var + s: string; +begin + s := TcxTextEdit(Sender).EditingText; + if (s <> '') and (s[Length(s)] <> '%') then + begin + Tv2.Controller.FocusedColumn.EditValue := s + '%'; + end; +end; + +procedure TfrmDyeProcessDefin.Tv3gj_NamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmProductInfoSel := TfrmProductInfoSel.Create(Application); + with frmProductInfoSel do + begin + FSTKName := ''; + if ShowModal = 1 then + begin + with Self.CDS_3 do + begin + Edit; + FieldByName('gj_Name').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Name').value; + FieldByName('gj_spel').Value := frmProductInfoSel.CDS_1.fieldbyname('P_Spec').value; + end; + end; + end; + finally + frmProductInfoSel.Free; + end; +end; + +procedure TfrmDyeProcessDefin.Tv3gj_unitPropertiesEditValueChanged(Sender: TObject); +var + s: string; +begin + s := TcxTextEdit(Sender).EditingText; + if (s <> '') and (s[Length(s)] <> '%') then + begin + Tv3.Controller.FocusedColumn.EditValue := s + '%'; + end; +end; + +end. + diff --git a/F02染色计划单/U_DyeProcessInput.dfm b/F02染色计划单/U_DyeProcessInput.dfm index 4f65d32..bcdbdc7 100644 --- a/F02染色计划单/U_DyeProcessInput.dfm +++ b/F02染色计划单/U_DyeProcessInput.dfm @@ -85,6 +85,7 @@ object frmDyeProcessInput: TfrmDyeProcessInput Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_HZ DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -111,18 +112,21 @@ object frmDyeProcessInput: TfrmDyeProcessInput object v2PSName: TcxGridDBColumn Caption = #24037#24207#21517#31216 DataBinding.FieldName = 'PSName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 98 end object v2PSNote: TcxGridDBColumn Caption = #24037#24207#31867#21035 DataBinding.FieldName = 'PSType' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 72 end object v2SYRName: TcxGridDBColumn Caption = #36710#38388#21517#31216 DataBinding.FieldName = 'Workshop' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -136,12 +140,14 @@ object frmDyeProcessInput: TfrmDyeProcessInput object vLDPrice: TcxGridDBColumn Caption = #21333#20215 DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 69 end object v2Column1: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Width = 101 @@ -179,13 +185,13 @@ object frmDyeProcessInput: TfrmDyeProcessInput end object DS_HZ: TDataSource DataSet = CDS_HZ - Left = 803 - Top = 275 + Left = 571 + Top = 227 end object CDS_HZ: TClientDataSet Aggregates = <> Params = <> - Left = 687 - Top = 240 + Left = 375 + Top = 168 end end diff --git a/F02染色计划单/U_DyeProcessInput.pas b/F02染色计划单/U_DyeProcessInput.pas index ff1fa9e..d98cb11 100644 --- a/F02染色计划单/U_DyeProcessInput.pas +++ b/F02染色计划单/U_DyeProcessInput.pas @@ -13,7 +13,8 @@ uses RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, - dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu; + dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, + dxScrollbarAnnotations; type TfrmDyeProcessInput = class(TForm) diff --git a/F02染色计划单/U_DyeProcessList.dfm b/F02染色计划单/U_DyeProcessList.dfm index 4a87e50..4f94551 100644 --- a/F02染色计划单/U_DyeProcessList.dfm +++ b/F02染色计划单/U_DyeProcessList.dfm @@ -3,6 +3,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList ClientHeight = 569 ClientWidth = 1126 WindowState = wsMaximized + ExplicitLeft = -275 ExplicitWidth = 1142 ExplicitHeight = 608 PixelsPerInch = 96 @@ -15,7 +16,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList Height = 38 AutoSize = True ButtonHeight = 38 - ButtonWidth = 75 + ButtonWidth = 91 Caption = 'ToolBar1' Color = clSkyBlue DisabledImages = DataLink_DyePlan.ImageList_new32 @@ -40,23 +41,72 @@ inherited frmDyeProcessList: TfrmDyeProcessList ImageIndex = 0 OnClick = ToolButton2Click end - object ToolButton3: TToolButton + object TbAdd_QX: TToolButton Left = 142 Top = 0 AutoSize = True - Caption = #26032#22686 + Caption = #26032#22686#28165#27927 ImageIndex = 9 - OnClick = ToolButton3Click + OnClick = TbAdd_QXClick end - object ToolButton4: TToolButton - Left = 213 + object TbAdd_DX: TToolButton + Left = 237 Top = 0 + AutoSize = True + Caption = #26032#22686#23450#22411 + ImageIndex = 9 + OnClick = TbAdd_DXClick + end + object TbAdd_FS: TToolButton + Left = 332 + Top = 0 + AutoSize = True + Caption = #26032#22686#38450#27700 + ImageIndex = 9 + OnClick = TbAdd_FSClick + end + object TbAdd_FP: TToolButton + Left = 427 + Top = 0 + AutoSize = True + Caption = #26032#22686#21457#27873 + ImageIndex = 9 + OnClick = TbAdd_FPClick + end + object TbAdd_GJ: TToolButton + Left = 522 + Top = 0 + AutoSize = True + Caption = #26032#22686#21038#33014 + ImageIndex = 9 + OnClick = TbAdd_GJClick + end + object TbAdd_ZM: TToolButton + Left = 617 + Top = 0 + AutoSize = True + Caption = #26032#22686#36711#27611 + ImageIndex = 9 + OnClick = TbAdd_ZMClick + end + object TbEdit: TToolButton + Left = 712 + Top = 0 + AutoSize = True Caption = #20462#25913 ImageIndex = 3 - OnClick = ToolButton4Click + OnClick = TbEditClick + end + object TbLook: TToolButton + Left = 783 + Top = 0 + AutoSize = True + Caption = #26597#30475 + ImageIndex = 8 + OnClick = TbLookClick end object TBDel: TToolButton - Left = 288 + Left = 854 Top = 0 AutoSize = True Caption = #21024#38500 @@ -64,7 +114,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList OnClick = TBDelClick end object ToolButton1: TToolButton - Left = 359 + Left = 925 Top = 0 AutoSize = True Caption = #23548#20986 @@ -72,7 +122,7 @@ inherited frmDyeProcessList: TfrmDyeProcessList OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 430 + Left = 996 Top = 0 AutoSize = True Caption = #20851#38381 @@ -90,12 +140,13 @@ inherited frmDyeProcessList: TfrmDyeProcessList BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 + ExplicitTop = 32 object Label5: TLabel Left = 191 Top = 12 - Width = 48 + Width = 24 Height = 12 - Caption = #36710#38388#21517#31216 + Caption = #24037#26102 end object Label1: TLabel Left = 31 @@ -104,9 +155,16 @@ inherited frmDyeProcessList: TfrmDyeProcessList Height = 12 Caption = #24037#24207#21517#31216 end - object Workshop: TEdit + object Label2: TLabel + Left = 325 + Top = 12 + Width = 36 + Height = 12 + Caption = #26426#21488#21517 + end + object WorkHour: TEdit Tag = 2 - Left = 241 + Left = 219 Top = 8 Width = 89 Height = 20 @@ -122,6 +180,15 @@ inherited frmDyeProcessList: TfrmDyeProcessList TabOrder = 1 OnChange = ZdyNameChange end + object MachineName: TEdit + Tag = 2 + Left = 365 + Top = 8 + Width = 89 + Height = 20 + TabOrder = 2 + OnChange = ZdyNameChange + end end object cxGrid2: TcxGrid [2] Left = 0 @@ -130,10 +197,12 @@ inherited frmDyeProcessList: TfrmDyeProcessList Height = 493 Align = alClient TabOrder = 2 + ExplicitTop = 72 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -150,9 +219,23 @@ inherited frmDyeProcessList: TfrmDyeProcessList Styles.Header = DataLink_DyePlan.handBlack Styles.Inactive = DataLink_DyePlan.SHuangSe Styles.Selection = DataLink_DyePlan.SHuangSe + object cxGridDBColumn3: TcxGridDBColumn + Caption = #24037#24207#31867#21035 + DataBinding.FieldName = 'PSType' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + HeaderAlignmentHorz = taCenter + Width = 111 + end object cxGridDBColumn1: TcxGridDBColumn Caption = #24037#24207#21517#31216 DataBinding.FieldName = 'PSName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -162,42 +245,49 @@ inherited frmDyeProcessList: TfrmDyeProcessList HeaderAlignmentHorz = taCenter Width = 98 end - object cxGridDBColumn3: TcxGridDBColumn - Caption = #24037#24207#31867#21035 - DataBinding.FieldName = 'PSType' - PropertiesClassName = 'TcxButtonEditProperties' - Properties.Buttons = < - item - Default = True - Kind = bkEllipsis - end> - HeaderAlignmentHorz = taCenter - Width = 128 - end object cxGridDBColumn4: TcxGridDBColumn Caption = #36710#38388#21517#31216 DataBinding.FieldName = 'Workshop' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> + Visible = False HeaderAlignmentHorz = taCenter Width = 73 end object cxGridDBColumn5: TcxGridDBColumn Caption = #21333#20215 DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True + Visible = False HeaderAlignmentHorz = taCenter - Width = 69 + Width = 85 + end + object TV2WorkHour: TcxGridDBColumn + Caption = #24037#26102 + DataBinding.FieldName = 'WorkHour' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end + object TV2MachineName: TcxGridDBColumn + Caption = #26426#21488#21517 + DataBinding.FieldName = 'MachineName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 end object cxGridDBColumn6: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter - Width = 101 + Width = 86 end end object cxGridLevel2: TcxGridLevel @@ -236,8 +326,8 @@ inherited frmDyeProcessList: TfrmDyeProcessList end object DS_1: TDataSource DataSet = CDS_1 - Left = 415 - Top = 283 + Left = 335 + Top = 243 end object CDS_1: TClientDataSet Aggregates = <> diff --git a/F02染色计划单/U_DyeProcessList.pas b/F02染色计划单/U_DyeProcessList.pas index f665a0b..23b1b9c 100644 --- a/F02染色计划单/U_DyeProcessList.pas +++ b/F02染色计划单/U_DyeProcessList.pas @@ -14,7 +14,7 @@ uses IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, - U_BaseList; + U_BaseList, dxScrollbarAnnotations; type TfrmDyeProcessList = class(TfrmBaseList) @@ -30,10 +30,10 @@ type ToolButton1: TToolButton; DS_1: TDataSource; CDS_1: TClientDataSet; - ToolButton3: TToolButton; - ToolButton4: TToolButton; + TbAdd_QX: TToolButton; + TbEdit: TToolButton; Label5: TLabel; - Workshop: TEdit; + WorkHour: TEdit; Label1: TLabel; PSName: TEdit; cxGrid2: TcxGrid; @@ -44,6 +44,16 @@ type cxGridDBColumn5: TcxGridDBColumn; cxGridDBColumn6: TcxGridDBColumn; cxGridLevel2: TcxGridLevel; + TbAdd_DX: TToolButton; + TbAdd_FS: TToolButton; + TbAdd_FP: TToolButton; + TbAdd_GJ: TToolButton; + TbAdd_ZM: TToolButton; + Label2: TLabel; + MachineName: TEdit; + TV2MachineName: TcxGridDBColumn; + TV2WorkHour: TcxGridDBColumn; + TbLook: TToolButton; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -53,14 +63,24 @@ type procedure ToolButton2Click(Sender: TObject); procedure ZdyNameChange(Sender: TObject); procedure ToolButton1Click(Sender: TObject); - procedure ToolButton4Click(Sender: TObject); - procedure ToolButton3Click(Sender: TObject); + procedure TbEditClick(Sender: TObject); + procedure TbAdd_QXClick(Sender: TObject); procedure Tv2DblClick(Sender: TObject); + procedure TbAdd_DXClick(Sender: TObject); + procedure TbAdd_FSClick(Sender: TObject); + procedure TbAdd_FPClick(Sender: TObject); + procedure TbAdd_GJClick(Sender: TObject); + procedure TbAdd_ZMClick(Sender: TObject); + procedure TbLookClick(Sender: TObject); private { Private declarations } procedure InitGrid(); public fDEFstr5: string; + FPSType: string; + FPSID: string; + BtnInt: Integer; + //0ӣ1޸ģ2ƣ3鿴 end; var @@ -69,7 +89,7 @@ var implementation uses - U_DataLink, U_RTFun, U_ZDYHelp, U_DyeProcessInput; + U_DataLink, U_RTFun, U_ZDYHelp, U_DyeProcessInput, U_DyeProcessDefin; {$R *.dfm} @@ -126,6 +146,20 @@ begin sql.Add('delete Dye_Process where PSID=''' + Trim(CDS_1.fieldbyname('PSID').AsString) + ''''); ExecSQL; end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete BS_Cloth_GY_Main where BCIID=''' + Trim(CDS_1.fieldbyname('PSID').AsString) + ''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete BS_Cloth_GY_Sub where BCIID=''' + Trim(CDS_1.fieldbyname('PSID').AsString) + ''''); + ExecSQL; + end; end; CDS_1.Delete; end; @@ -165,13 +199,15 @@ begin // SelExportData(Tv2,ADOQueryMain,'Ӧб'); end; -procedure TfrmDyeProcessList.ToolButton4Click(Sender: TObject); +procedure TfrmDyeProcessList.TbEditClick(Sender: TObject); begin try - frmDyeProcessInput := TfrmDyeProcessInput.Create(Application); - with frmDyeProcessInput do + frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application); + with frmDyeProcessDefin do begin - FCYID := Trim(Self.CDS_1.fieldbyname('PSID').AsString); + BtnInt := 1; + FPSID := Trim(Self.CDS_1.fieldbyname('PSID').AsString); + FPSType := Trim(Self.CDS_1.fieldbyname('PSType').AsString); fDEFstr5 := self.fDEFstr5; if ShowModal = 1 then begin @@ -179,17 +215,19 @@ begin end; end; finally - frmDyeProcessInput.Free; + frmDyeProcessDefin.Free; end; end; -procedure TfrmDyeProcessList.ToolButton3Click(Sender: TObject); +procedure TfrmDyeProcessList.TbLookClick(Sender: TObject); begin try - frmDyeProcessInput := TfrmDyeProcessInput.Create(Application); - with frmDyeProcessInput do + frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application); + with frmDyeProcessDefin do begin - FCYID := ''; + BtnInt := 3; + FPSID := Trim(Self.CDS_1.fieldbyname('PSID').AsString); + FPSType := Trim(Self.CDS_1.fieldbyname('PSType').AsString); fDEFstr5 := self.fDEFstr5; if ShowModal = 1 then begin @@ -197,7 +235,122 @@ begin end; end; finally - frmDyeProcessInput.Free; + frmDyeProcessDefin.Free; + end; +end; + +procedure TfrmDyeProcessList.TbAdd_DXClick(Sender: TObject); +begin + try + frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application); + with frmDyeProcessDefin do + begin + BtnInt := 0; + FPSType := ''; + FPSID := ''; + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmDyeProcessDefin.Free; + end; +end; + +procedure TfrmDyeProcessList.TbAdd_FPClick(Sender: TObject); +begin + try + frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application); + with frmDyeProcessDefin do + begin + BtnInt := 0; + FPSType := ''; + FPSID := ''; + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmDyeProcessDefin.Free; + end; +end; + +procedure TfrmDyeProcessList.TbAdd_FSClick(Sender: TObject); +begin + try + frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application); + with frmDyeProcessDefin do + begin + BtnInt := 0; + FPSType := 'ˮ'; + FPSID := ''; + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmDyeProcessDefin.Free; + end; +end; + +procedure TfrmDyeProcessList.TbAdd_GJClick(Sender: TObject); +begin + try + frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application); + with frmDyeProcessDefin do + begin + BtnInt := 0; + FPSType := 'ν'; + FPSID := ''; + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmDyeProcessDefin.Free; + end; +end; + +procedure TfrmDyeProcessList.TbAdd_QXClick(Sender: TObject); +begin + try + frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application); + with frmDyeProcessDefin do + begin + BtnInt := 0; + FPSType := 'ϴ'; + FPSID := ''; + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + + finally + frmDyeProcessDefin.Free; + end; +end; + +procedure TfrmDyeProcessList.TbAdd_ZMClick(Sender: TObject); +begin + try + frmDyeProcessDefin := TfrmDyeProcessDefin.Create(Application); + with frmDyeProcessDefin do + begin + BtnInt := 0; + FPSType := 'ë'; + FPSID := ''; + if ShowModal = 1 then + begin + TBRafresh.Click; + end; + end; + finally + frmDyeProcessDefin.Free; end; end; diff --git a/F04染色刷卡/DyeProcess.dproj.local b/F04染色刷卡/DyeProcess.dproj.local index 9ffd568..f55a4aa 100644 --- a/F04染色刷卡/DyeProcess.dproj.local +++ b/F04染色刷卡/DyeProcess.dproj.local @@ -4,21 +4,21 @@ 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899/12/30 00:00:00.000.138,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutput.pas 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899/12/30 00:00:00.000.963,=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\U_DyeOutputList.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.326,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\DyeProcess.dproj 1899/12/30 00:00:00.000.998,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\Unit1.pas= - 1899/12/30 00:00:00.000.326,D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\DyeProcess.dproj=D:\Dp10Repo\项目代码\RTBasics\F04染色刷卡\InformationBase.dproj + 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas 2025/06/28 17:17:29.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas diff --git a/F04染色刷卡/DyeProcess.identcache b/F04染色刷卡/DyeProcess.identcache index 0529634..2ea9ef6 100644 Binary files a/F04染色刷卡/DyeProcess.identcache and b/F04染色刷卡/DyeProcess.identcache differ diff --git a/F04染色刷卡/U_DyeOutputList.dfm b/F04染色刷卡/U_DyeOutputList.dfm index 64484e2..30004cc 100644 --- a/F04染色刷卡/U_DyeOutputList.dfm +++ b/F04染色刷卡/U_DyeOutputList.dfm @@ -110,6 +110,7 @@ inherited frmDyeOutputList: TfrmDyeOutputList BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 + ExplicitTop = 32 object Label3: TLabel Left = 252 Top = 36 @@ -323,7 +324,7 @@ inherited frmDyeOutputList: TfrmDyeOutputList Height = 482 Align = alClient TabOrder = 2 - ExplicitTop = 108 + ExplicitTop = 97 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -454,14 +455,14 @@ inherited frmDyeOutputList: TfrmDyeOutputList end object Tv1Column8: TcxGridDBColumn Caption = #25968#37327 - DataBinding.FieldName = 'Qty' + DataBinding.FieldName = 'EndQty' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 81 end object Tv1Column3: TcxGridDBColumn Caption = #21305#25968 - DataBinding.FieldName = 'rollnum' + DataBinding.FieldName = 'Endrollnum' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 69 @@ -487,9 +488,16 @@ inherited frmDyeOutputList: TfrmDyeOutputList HeaderAlignmentHorz = taCenter Width = 60 end + object Tv1Column16: TcxGridDBColumn + Caption = #19978#26426#26102#38388 + DataBinding.FieldName = 'FillTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 93 + end object Tv1Column11: TcxGridDBColumn - Caption = #25805#20316#26102#38388 - DataBinding.FieldName = 'FillTime2' + Caption = #19979#26426#26102#38388 + DataBinding.FieldName = 'EndTime' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 106 diff --git a/F04染色刷卡/U_DyeOutputList.pas b/F04染色刷卡/U_DyeOutputList.pas index a84f05b..ed19d6c 100644 --- a/F04染色刷卡/U_DyeOutputList.pas +++ b/F04染色刷卡/U_DyeOutputList.pas @@ -87,6 +87,7 @@ type Button1: TButton; Button2: TButton; Edit1: TEdit; + Tv1Column16: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); diff --git a/T02贸易汇总仓库/TradeTotalClothStk.dproj b/T02贸易汇总仓库/TradeTotalClothStk.dproj index 423d3ab..12a635d 100644 --- a/T02贸易汇总仓库/TradeTotalClothStk.dproj +++ b/T02贸易汇总仓库/TradeTotalClothStk.dproj @@ -4,7 +4,7 @@ TradeTotalClothStk.dpr True Debug - 38017 + 1 Library VCL 19.2 @@ -13,16 +13,6 @@ true - - true - Base - true - - - true - Base - true - true Base @@ -43,24 +33,6 @@ Base true - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - - - true - Cfg_2 - true - true - true Cfg_2 @@ -84,13 +56,6 @@ 2052 CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments= - - $(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png - android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar - - - $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png - System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) Debug @@ -113,15 +78,6 @@ false true - - Debug - - - Debug - - - Debug - CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) D:\Dp10Repo\项目代码\恒溢水洗\T02贸易汇总仓库\testDll.exe @@ -227,10 +183,6 @@ - True - True - True - True True False diff --git a/T02贸易汇总仓库/TradeTotalClothStk.dproj.local b/T02贸易汇总仓库/TradeTotalClothStk.dproj.local index 0ec01e7..9087e26 100644 --- a/T02贸易汇总仓库/TradeTotalClothStk.dproj.local +++ b/T02贸易汇总仓库/TradeTotalClothStk.dproj.local @@ -1,45 +1,45 @@  - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeGreyClothInEdit.pas - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899/12/30 00:00:00.000.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas 1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899/12/30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm + 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm - 1899/12/30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.pas=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm - 1899/12/30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas - 1899/12/30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899/12/30 00:00:00.000.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas + 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeGreyClothInEdit.pas + 1899/12/30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm + 1899/12/30 00:00:00.000.478,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899/12/30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas + 1899/12/30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.pas + 1899/12/30 00:00:00.000.892,=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899/12/30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas 1899/12/30 00:00:00.000.129,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas + 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.478,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas - 1899/12/30 00:00:00.000.892,=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.dfm=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.dfm - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899/12/30 00:00:00.000.336,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeClothOutInspList.pas - 1899/12/30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj - 1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899/12/30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.dfm diff --git a/T02贸易汇总仓库/TradeTotalClothStk.identcache b/T02贸易汇总仓库/TradeTotalClothStk.identcache index 2313fe9..3e9d6ae 100644 Binary files a/T02贸易汇总仓库/TradeTotalClothStk.identcache and b/T02贸易汇总仓库/TradeTotalClothStk.identcache differ diff --git a/T02贸易汇总仓库/U_TradeClothOutInspList.dfm b/T02贸易汇总仓库/U_TradeClothOutInspList.dfm index a9cca7d..a7824db 100644 --- a/T02贸易汇总仓库/U_TradeClothOutInspList.dfm +++ b/T02贸易汇总仓库/U_TradeClothOutInspList.dfm @@ -101,6 +101,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList TabOrder = 1 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> OnCustomDrawCell = Tv1CustomDrawCell DataController.DataSource = DataSource1 DataController.Filter.AutoDataSetFilter = True @@ -118,6 +119,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList object Tv1Column19: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSEL' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True HeaderAlignmentHorz = taCenter @@ -126,6 +128,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList object Tv1Column20: TcxGridDBColumn Caption = #21345#21495 DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 60 end @@ -133,6 +136,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList Tag = 2 Caption = #24320#21345#26102#38388 DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False @@ -143,6 +147,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList object v1Column26: TcxGridDBColumn Caption = #25171#21367#26102#38388 DataBinding.FieldName = 'Insp_Date' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 74 @@ -150,6 +155,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList object v1Column13: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'ToOrdNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 60 end @@ -157,6 +163,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList Tag = 2 Caption = #21152#24037#21378 DataBinding.FieldName = 'FromCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 65 end @@ -164,6 +171,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 60 end @@ -171,6 +179,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList Tag = 2 Caption = #20811#37325 DataBinding.FieldName = 'SPKZ' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 60 @@ -179,6 +188,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList Tag = 2 Caption = #38376#24133 DataBinding.FieldName = 'SPMF' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 60 @@ -186,18 +196,21 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList object v1Column22: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 60 end object Tv1Column4: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 60 end object Tv1Column2: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 61 end @@ -205,6 +218,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList Tag = 2 Caption = #21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -215,6 +229,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList Tag = 2 Caption = #25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -224,6 +239,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList object v1Column23: TcxGridDBColumn Caption = #25439#32791 DataBinding.FieldName = 'Insp_WastageQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Header = DataLink_TradeTotalClothStk.FoneClMaroon @@ -232,6 +248,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList object Tv1Column11: TcxGridDBColumn Caption = #25439#32791'%' DataBinding.FieldName = 'Insp_WastageRatio' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Header = DataLink_TradeTotalClothStk.FoneClMaroon @@ -241,6 +258,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList Tag = 2 Caption = #25968#37327#21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -255,6 +273,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList object v1Column15: TcxGridDBColumn Caption = #25171#21367#21305#25968 DataBinding.FieldName = 'Insp_Piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Header = DataLink_TradeTotalClothStk.FontBlue @@ -263,6 +282,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList object v1Column17: TcxGridDBColumn Caption = #25171#21367#31859#25968 DataBinding.FieldName = 'Insp_Meter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Header = DataLink_TradeTotalClothStk.FontBlue @@ -271,6 +291,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList object Tv1Column17: TcxGridDBColumn Caption = #25171#21367#20928#37325 DataBinding.FieldName = 'Insp_NetWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Header = DataLink_TradeTotalClothStk.FontBlue @@ -279,6 +300,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList object v1Column27: TcxGridDBColumn Caption = #27425#21697#21305#25968 DataBinding.FieldName = 'Insp_DefectivePiece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Header = DataLink_TradeTotalClothStk.FoneRed @@ -287,6 +309,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList object v1Column18: TcxGridDBColumn Caption = #27425#21697#20928#37325 DataBinding.FieldName = 'Insp_DefectiveNetWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Header = DataLink_TradeTotalClothStk.FoneRed @@ -295,6 +318,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList object v1Column20: TcxGridDBColumn Caption = #27425#21697#31859#25968 DataBinding.FieldName = 'Insp_DefectiveMeter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Header = DataLink_TradeTotalClothStk.FoneRed @@ -303,6 +327,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList object Tv1Column1: TcxGridDBColumn Caption = #25439#32791#29366#24577 DataBinding.FieldName = 'Insp_WastageFlag' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 73 @@ -323,7 +348,6 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList Color = clWhite ParentBackground = False TabOrder = 2 - ExplicitTop = 33 object Label2: TLabel Left = 68 Top = 35 @@ -493,7 +517,7 @@ inherited frmTradeClothOutInspList: TfrmTradeClothOutInspList TabOrder = 0 Properties.CustomButtons.Buttons = <> Properties.Style = 6 - Properties.TabIndex = 1 + Properties.TabIndex = 0 Properties.Tabs.Strings = ( ' '#26410#25171#21367' ' ' '#24050#25171#21367' ') diff --git a/T02贸易汇总仓库/U_TradeClothOutInspList.pas b/T02贸易汇总仓库/U_TradeClothOutInspList.pas index be5471d..cf96772 100644 --- a/T02贸易汇总仓库/U_TradeClothOutInspList.pas +++ b/T02贸易汇总仓库/U_TradeClothOutInspList.pas @@ -13,7 +13,7 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, - Vcl.CheckLst, cxContainer, Vcl.Clipbrd, cxPC; + Vcl.CheckLst, cxContainer, Vcl.Clipbrd, cxPC, dxScrollbarAnnotations; type TfrmTradeClothOutInspList = class(TfrmBaseList) diff --git a/T02贸易汇总仓库/U_TradeGreyClothOutList.dfm b/T02贸易汇总仓库/U_TradeGreyClothOutList.dfm index 7022893..baaad27 100644 --- a/T02贸易汇总仓库/U_TradeGreyClothOutList.dfm +++ b/T02贸易汇总仓库/U_TradeGreyClothOutList.dfm @@ -3,9 +3,9 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Top = 98 Caption = #22383#24067#20986#24211#21015#34920 ClientHeight = 544 - ClientWidth = 1595 + ClientWidth = 1540 Position = poScreenCenter - ExplicitWidth = 1611 + ExplicitWidth = 1556 ExplicitHeight = 583 PixelsPerInch = 96 TextHeight = 12 @@ -13,7 +13,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Tag = 1 Left = 0 Top = 0 - Width = 1595 + Width = 1540 Height = 38 AutoSize = True ButtonHeight = 38 @@ -116,7 +116,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object Panel1: TPanel [1] Left = 0 Top = 38 - Width = 1595 + Width = 1540 Height = 61 Align = alTop BevelInner = bvRaised @@ -297,13 +297,14 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object cxGrid1: TcxGrid [2] Left = 0 Top = 99 - Width = 1595 + Width = 1540 Height = 445 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = < item @@ -350,6 +351,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object Tv1Column5: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSEL' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True HeaderAlignmentHorz = taCenter @@ -358,6 +360,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object v1Column6: TcxGridDBColumn Caption = #20986#24211#21333#21495 DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -366,6 +369,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Tag = 2 Caption = #20986#24211#26102#38388 DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False @@ -376,6 +380,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Tag = 2 Caption = #20986#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -389,6 +394,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Tag = 2 Caption = #25152#23646#31867#22411 DataBinding.FieldName = 'SSType' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( @@ -403,6 +409,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object v1Column1: TcxGridDBColumn Caption = #37319#36141#21333#21495 DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -413,6 +420,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Tag = 2 Caption = #26469#33258#21333#20301 DataBinding.FieldName = 'FromCoName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Buttons = < @@ -428,6 +436,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object v1Column13: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -435,6 +444,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object v1Column16: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -442,6 +452,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object v1Column17: TcxGridDBColumn Caption = #21697#29260 DataBinding.FieldName = 'SXPinPai' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -452,6 +463,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -465,6 +477,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object v1Column20: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'SPCode' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -475,6 +488,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Tag = 2 Caption = #35268#26684 DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Editing = False @@ -483,6 +497,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object v1Column10: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -492,6 +507,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object v1Column7: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -499,12 +515,14 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object Tv1Column14: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'ToOrdNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 66 end object v1Column5: TcxGridDBColumn Caption = #36710#38388 DataBinding.FieldName = 'Workshop' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -512,6 +530,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object v1Column19: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -520,6 +539,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Tag = 2 Caption = #25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Width = 66 @@ -528,6 +548,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Tag = 2 Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -535,18 +556,21 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object Tv1Column11: TcxGridDBColumn Caption = #20986#21040#21333#20301 DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 66 end object Tv1Column12: TcxGridDBColumn Caption = #23384#25918#21333#20301 DataBinding.FieldName = 'StkCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 66 end object Tv1Column2: TcxGridDBColumn Caption = #21305#37325 DataBinding.FieldName = 'PieceWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 66 end @@ -554,11 +578,13 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList Tag = 2 Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True Width = 66 end object Tv1Column4: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -566,6 +592,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object Tv1Column3: TcxGridDBColumn Caption = #33394#21035 DataBinding.FieldName = 'C_ColorDepth' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -573,6 +600,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object Tv1Column6: TcxGridDBColumn Caption = #38468#20214 DataBinding.FieldName = 'FJFlag' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -581,6 +609,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object Tv1Column7: TcxGridDBColumn Caption = #30331#35760#20154 DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -588,6 +617,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object Tv1Column8: TcxGridDBColumn Caption = #30331#35760#26102#38388 DataBinding.FieldName = 'Filltime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -595,6 +625,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object Tv1Column9: TcxGridDBColumn Caption = #20462#25913#20154 DataBinding.FieldName = 'Editer' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -602,6 +633,7 @@ inherited frmTradeGreyClothOutList: TfrmTradeGreyClothOutList object Tv1Column10: TcxGridDBColumn Caption = #20462#25913#26102#38388 DataBinding.FieldName = 'Edittime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 diff --git a/T02贸易汇总仓库/U_TradeGreyClothOutList.pas b/T02贸易汇总仓库/U_TradeGreyClothOutList.pas index 650d2ee..28e198f 100644 --- a/T02贸易汇总仓库/U_TradeGreyClothOutList.pas +++ b/T02贸易汇总仓库/U_TradeGreyClothOutList.pas @@ -12,7 +12,8 @@ uses cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, - cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList; + cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, + dxScrollbarAnnotations; type TfrmTradeGreyClothOutList = class(TfrmBaseList) diff --git a/T02贸易汇总仓库/U_TradeGreyClothStkList.dfm b/T02贸易汇总仓库/U_TradeGreyClothStkList.dfm index 78c8ec9..b5310a9 100644 --- a/T02贸易汇总仓库/U_TradeGreyClothStkList.dfm +++ b/T02贸易汇总仓库/U_TradeGreyClothStkList.dfm @@ -167,6 +167,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList TabOrder = 2 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = < item @@ -236,6 +237,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList object v1Column6: TcxGridDBColumn Caption = #20837#24211#26102#38388 DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 87 @@ -244,6 +246,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList Tag = 2 Caption = #26469#33258#21333#20301 DataBinding.FieldName = 'FromCoName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Buttons = < @@ -259,6 +262,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList object Tv1Column3: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'FromOrdNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 78 end @@ -266,6 +270,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -280,6 +285,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList Tag = 2 Caption = #35268#26684 DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Editing = False @@ -288,6 +294,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList object v1Column4: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -295,6 +302,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList object v1Column5: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 @@ -302,6 +310,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList object v1Column10: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 124 @@ -309,6 +318,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList object Tv1Column2: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 69 @@ -316,6 +326,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList object Tv1Column1: TcxGridDBColumn Caption = #33394#21035 DataBinding.FieldName = 'C_ColorDepth' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 72 @@ -323,18 +334,21 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList object v1Column7: TcxGridDBColumn Caption = #20837#24211#21305#25968 DataBinding.FieldName = 'piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 62 end object v1Column9: TcxGridDBColumn Caption = #20837#24211#25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 63 end object v1Column1: TcxGridDBColumn Caption = #24211#23384#21305#25968 DataBinding.FieldName = 'stkpiece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 69 @@ -343,6 +357,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList Tag = 2 Caption = #24211#23384#25968#37327 DataBinding.FieldName = 'stkqty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -352,6 +367,7 @@ inherited frmTradeGreyClothStkList: TfrmTradeGreyClothStkList Tag = 2 Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( diff --git a/T02贸易汇总仓库/U_TradeGreyClothStkList.pas b/T02贸易汇总仓库/U_TradeGreyClothStkList.pas index 81cb069..7653dd1 100644 --- a/T02贸易汇总仓库/U_TradeGreyClothStkList.pas +++ b/T02贸易汇总仓库/U_TradeGreyClothStkList.pas @@ -12,7 +12,8 @@ uses cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, - cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList; + cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, + dxScrollbarAnnotations; type TfrmTradeGreyClothStkList = class(TfrmBaseList)