diff --git a/A02基础产品管理/ClothInfo.dproj b/A02基础产品管理/ClothInfo.dproj index 2c32be7..7838afe 100644 --- a/A02基础产品管理/ClothInfo.dproj +++ b/A02基础产品管理/ClothInfo.dproj @@ -895,6 +895,7 @@ + False 12 diff --git a/A02基础产品管理/ClothInfo.dproj.local b/A02基础产品管理/ClothInfo.dproj.local index 842c960..7b0ae1b 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.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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 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 0ee4f10..ab660dd 100644 --- a/A02基础产品管理/U_ClothInfo.dfm +++ b/A02基础产品管理/U_ClothInfo.dfm @@ -52,13 +52,13 @@ inherited frmClothInfo: TfrmClothInfo ImageIndex = 9 OnClick = TBAddClick end - object ToolButton1: TToolButton + object TbLook: TToolButton Left = 213 Top = 0 AutoSize = True Caption = #26597#30475 ImageIndex = 4 - OnClick = ToolButton1Click + OnClick = TbLookClick end object TBCopy: TToolButton Left = 284 @@ -338,7 +338,7 @@ inherited frmClothInfo: TfrmClothInfo Align = alClient PopupMenu = PM_1 TabOrder = 0 - ExplicitLeft = 6 + ExplicitLeft = -2 ExplicitTop = 59 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> @@ -394,6 +394,13 @@ inherited frmClothInfo: TfrmClothInfo HeaderAlignmentHorz = taCenter Width = 96 end + object Tv1CINote: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'CINote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end object v1Column3: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' @@ -680,7 +687,7 @@ inherited frmClothInfo: TfrmClothInfo TabOrder = 3 Properties.CustomButtons.Buttons = <> Properties.Style = 9 - Properties.TabIndex = 2 + Properties.TabIndex = 0 Properties.Tabs.Strings = ( #26410#23457#26680 #24050#23457#26680 diff --git a/A02基础产品管理/U_ClothInfo.pas b/A02基础产品管理/U_ClothInfo.pas index 69c0697..994104e 100644 --- a/A02基础产品管理/U_ClothInfo.pas +++ b/A02基础产品管理/U_ClothInfo.pas @@ -110,7 +110,7 @@ type Tv1Column5: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn; - ToolButton1: TToolButton; + TbLook: TToolButton; DataSource3: TDataSource; CDS_Sub: TClientDataSet; Tv1Column9: TcxGridDBColumn; @@ -134,6 +134,7 @@ type cxTabControl1: TcxTabControl; Tv1Chker: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn; + Tv1CINote: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBDelClick(Sender: TObject); @@ -154,7 +155,7 @@ type procedure TCBNOR1Change(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); - procedure ToolButton1Click(Sender: TObject); + procedure TbLookClick(Sender: TObject); procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure ToolButton2Click(Sender: TObject); procedure N3Click(Sender: TObject); @@ -243,20 +244,16 @@ end; procedure TfrmClothInfo.SetStatus(); begin - TBAdd.Enabled := False; - TBCopy.Enabled := False; - TBEdit.Enabled := False; - TBMLEdit.Enabled := False; - TBDel.Enabled := False; - TBUP.Enabled := False; + TBAdd.Visible := False; + TBCopy.Visible := False; + TBEdit.Visible := False; + TBMLEdit.Visible := False; + TBDel.Visible := False; + TBUP.Visible := False; if FJurisdiction <> 'ѯ' then begin - TBAdd.Enabled := true; - TBCopy.Enabled := true; - TBEdit.Enabled := true; - TBMLEdit.Enabled := true; - TBDel.Enabled := true; - TBUP.Enabled := true; + TBAdd.Visible := true; + TBCopy.Visible := true; end; TbCheck.Visible := false; @@ -270,7 +267,9 @@ begin begin TbCheck.Visible := true; TBDel.Visible := true; - + TBEdit.Visible := true; + TBMLEdit.Visible := true; + TBUP.Visible := true; end; if cxTabControl1.TabIndex = 1 then begin @@ -402,6 +401,27 @@ begin sql.Add('delete BS_Cloth_Info where BCIID=''' + Trim(CDS_1.fieldbyname('BCIID').AsString) + ''''); ExecSQL; end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete BS_Cloth_GY_Main where BCIID=''' + Trim(CDS_1.fieldbyname('BCIID').AsString) + ''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete BS_Cloth_GY_Sub where BCIID=''' + Trim(CDS_1.fieldbyname('BCIID').AsString) + ''''); + ExecSQL; + end; + with ADOQueryCmd do + begin + Close; + SQL.Clear; + sql.Add('delete BS_Cloth_GX where BCIID=''' + Trim(CDS_1.fieldbyname('BCIID').AsString) + ''''); + ExecSQL; + end; end; CDS_1.Delete; end; @@ -575,7 +595,7 @@ begin frmClothInfoInput := TfrmClothInfoInput.Create(Application); with frmClothInfoInput do begin - CopyInt := 1; + CopyInt := 2; FBCIID := Trim(Self.CDS_1.fieldbyname('BCIID').AsString); FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString); @@ -629,7 +649,7 @@ begin frmClothInfoInput := TfrmClothInfoInput.Create(Application); with frmClothInfoInput do begin - CopyInt := 0; + CopyInt := 3; FBCIID := Trim(Self.CDS_1.fieldbyname('BCIID').AsString); FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString); if ShowModal = 1 then @@ -804,14 +824,14 @@ begin InitGrid(); end; -procedure TfrmClothInfo.ToolButton1Click(Sender: TObject); +procedure TfrmClothInfo.TbLookClick(Sender: TObject); begin try frmClothInfoInput := TfrmClothInfoInput.Create(Application); with frmClothInfoInput do begin - CopyInt := 0; - ToolButton1.Visible := False; + CopyInt := 1; +// TbLook.Visible := False; FBCIID := Trim(Self.CDS_1.fieldbyname('BCIID').AsString); FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString); if ShowModal = 1 then diff --git a/A02基础产品管理/U_ClothInfoInput.dfm b/A02基础产品管理/U_ClothInfoInput.dfm index 4ac50c2..84127ad 100644 --- a/A02基础产品管理/U_ClothInfoInput.dfm +++ b/A02基础产品管理/U_ClothInfoInput.dfm @@ -99,8 +99,7 @@ object frmClothInfoInput: TfrmClothInfoInput Font.Style = [] ParentFont = False TabOrder = 0 - ExplicitLeft = 464 - ExplicitTop = 80 + ExplicitLeft = 3 object C_GramWeight: TcxTextEdit Tag = 2 Left = 130 @@ -345,7 +344,6 @@ object frmClothInfoInput: TfrmClothInfoInput Font.Style = [] ParentFont = False TabOrder = 29 - ExplicitTop = 330 object TV4: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -463,61 +461,61 @@ object frmClothInfoInput: TfrmClothInfoInput ParentFont = False ShowCaptions = True TabOrder = 1 - object ToolButton2: TToolButton + object TbQX: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #28165#27927 ImageIndex = 2 - OnClick = ToolButton2Click + OnClick = TbQXClick end - object ToolButton3: TToolButton + object TbDX: TToolButton Left = 71 Top = 0 AutoSize = True Caption = #23450#22411 ImageIndex = 2 - OnClick = ToolButton3Click + OnClick = TbDXClick end - object ToolButton1: TToolButton + object TbFS: TToolButton Left = 142 Top = 0 AutoSize = True Caption = #38450#27700 ImageIndex = 2 - OnClick = ToolButton1Click + OnClick = TbFSClick end - object ToolButton4: TToolButton + object TbFP: TToolButton Left = 213 Top = 0 AutoSize = True Caption = #21457#27873 ImageIndex = 2 - OnClick = ToolButton4Click + OnClick = TbFPClick end - object ToolButton5: TToolButton + object TbGJ: TToolButton Left = 284 Top = 0 AutoSize = True Caption = #21038#33014 ImageIndex = 2 - OnClick = ToolButton5Click + OnClick = TbGJClick end - object ToolButton6: TToolButton + object TbZM: TToolButton Left = 355 Top = 0 AutoSize = True Caption = #36711#27611 ImageIndex = 2 - OnClick = ToolButton6Click + OnClick = TbZMClick end - object ToolButton7: TToolButton + object TbDelete: TToolButton Left = 426 Top = 0 AutoSize = True Caption = #21024#38500 ImageIndex = 6 - OnClick = ToolButton7Click + OnClick = TbDeleteClick end end end @@ -549,8 +547,10 @@ object frmClothInfoInput: TfrmClothInfoInput Top = 0 Width = 1076 Height = 683 + Hint = 'tt' Align = alClient TabOrder = 0 + ExplicitLeft = 1 object cxLabel10: TcxLabel Left = 25 Top = 131 @@ -579,11 +579,13 @@ object frmClothInfoInput: TfrmClothInfoInput object cxLabel15: TcxLabel Left = 432 Top = 226 + Hint = #28165#27927#27700#28201 Caption = '4#' end object cxLabel16: TcxLabel Left = 432 Top = 195 + Hint = #28165#27927#27700#28201 Caption = '2#' end object cxLabel17: TcxLabel @@ -660,6 +662,7 @@ object frmClothInfoInput: TfrmClothInfoInput Tag = 2 Left = 468 Top = 223 + Hint = #28165#27927#27700#28201 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -671,6 +674,7 @@ object frmClothInfoInput: TfrmClothInfoInput Tag = 2 Left = 468 Top = 192 + Hint = #28165#27927#27700#28201 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -682,6 +686,7 @@ object frmClothInfoInput: TfrmClothInfoInput Tag = 2 Left = 83 Top = 194 + Hint = #28165#27927#27700#28201 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -693,6 +698,7 @@ object frmClothInfoInput: TfrmClothInfoInput Tag = 2 Left = 83 Top = 224 + Hint = #28165#27927#27700#28201 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -704,6 +710,7 @@ object frmClothInfoInput: TfrmClothInfoInput Tag = 2 Left = 83 Top = 253 + Hint = #28165#27927#27700#28201 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -780,6 +787,24 @@ object frmClothInfoInput: TfrmClothInfoInput TabOrder = 27 Width = 234 end + object TbCPReplace: TcxButton + Left = 83 + Top = 161 + Width = 75 + Height = 25 + Caption = #19968#38190#26367#25442 + TabOrder = 28 + OnClick = TbCPReplaceClick + end + object cxButton2: TcxButton + Left = 168 + Top = 161 + Width = 75 + Height = 25 + Caption = #19968#38190#28165#31354 + TabOrder = 29 + OnClick = cxButton2Click + end end end object cxTabSheet3: TcxTabSheet @@ -798,6 +823,7 @@ object frmClothInfoInput: TfrmClothInfoInput Height = 683 Align = alClient TabOrder = 0 + ExplicitLeft = 1 object cxLabel1: TcxLabel Left = 289 Top = 134 @@ -810,7 +836,7 @@ object frmClothInfoInput: TfrmClothInfoInput end object cxLabel21: TcxLabel Left = 276 - Top = 187 + Top = 194 Caption = '2#' end object cxLabel22: TcxLabel @@ -820,17 +846,17 @@ object frmClothInfoInput: TfrmClothInfoInput end object cxLabel23: TcxLabel Left = 29 - Top = 184 + Top = 191 Caption = '1#' end object cxLabel24: TcxLabel Left = 29 - Top = 216 + Top = 223 Caption = '5#' end object cxLabel25: TcxLabel Left = 29 - Top = 247 + Top = 254 Caption = '9#' end object cxLabel26: TcxLabel @@ -860,7 +886,7 @@ object frmClothInfoInput: TfrmClothInfoInput end object cxLabel5: TcxLabel Left = 29 - Top = 288 + Top = 295 Caption = #27880#24847#20107#39033 end object cxLabel55: TcxLabel @@ -890,7 +916,7 @@ object frmClothInfoInput: TfrmClothInfoInput end object cxLabel6: TcxLabel Left = 276 - Top = 217 + Top = 224 Caption = '6#' end object cxLabel60: TcxLabel @@ -900,27 +926,27 @@ object frmClothInfoInput: TfrmClothInfoInput end object cxLabel61: TcxLabel Left = 482 - Top = 189 + Top = 196 Caption = '3#' end object cxLabel62: TcxLabel Left = 693 - Top = 187 + Top = 194 Caption = '4#' end object cxLabel63: TcxLabel Left = 482 - Top = 218 + Top = 225 Caption = '7#' end object cxLabel64: TcxLabel Left = 693 - Top = 217 + Top = 224 Caption = '8#' end object cxLabel65: TcxLabel Left = 276 - Top = 247 + Top = 254 Caption = '10#' end object dx_OutFanSpeed: TcxTextEdit @@ -937,7 +963,8 @@ object frmClothInfoInput: TfrmClothInfoInput object dx_temperature1: TcxTextEdit Tag = 2 Left = 95 - Top = 184 + Top = 191 + Hint = #23450#22411#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -959,7 +986,8 @@ object frmClothInfoInput: TfrmClothInfoInput object dx_temperature5: TcxTextEdit Tag = 2 Left = 95 - Top = 214 + Top = 221 + Hint = #23450#22411#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -970,7 +998,8 @@ object frmClothInfoInput: TfrmClothInfoInput object dx_temperature9: TcxTextEdit Tag = 2 Left = 95 - Top = 244 + Top = 251 + Hint = #23450#22411#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -1003,7 +1032,7 @@ object frmClothInfoInput: TfrmClothInfoInput object dx_Precautions: TcxTextEdit Tag = 2 Left = 95 - Top = 274 + Top = 281 AutoSize = False Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' @@ -1049,7 +1078,8 @@ object frmClothInfoInput: TfrmClothInfoInput object dx_temperature6: TcxTextEdit Tag = 2 Left = 304 - Top = 214 + Top = 221 + Hint = #23450#22411#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -1082,7 +1112,8 @@ object frmClothInfoInput: TfrmClothInfoInput object dx_temperature3: TcxTextEdit Tag = 2 Left = 503 - Top = 184 + Top = 191 + Hint = #23450#22411#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -1093,7 +1124,8 @@ object frmClothInfoInput: TfrmClothInfoInput object dx_temperature4: TcxTextEdit Tag = 2 Left = 714 - Top = 184 + Top = 191 + Hint = #23450#22411#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -1104,7 +1136,8 @@ object frmClothInfoInput: TfrmClothInfoInput object dx_temperature7: TcxTextEdit Tag = 2 Left = 503 - Top = 214 + Top = 221 + Hint = #23450#22411#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -1115,7 +1148,8 @@ object frmClothInfoInput: TfrmClothInfoInput object dx_temperature8: TcxTextEdit Tag = 2 Left = 714 - Top = 214 + Top = 221 + Hint = #23450#22411#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -1126,7 +1160,8 @@ object frmClothInfoInput: TfrmClothInfoInput object dx_temperature10: TcxTextEdit Tag = 2 Left = 304 - Top = 244 + Top = 251 + Hint = #23450#22411#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -1137,7 +1172,8 @@ object frmClothInfoInput: TfrmClothInfoInput object dx_temperature2: TcxTextEdit Tag = 2 Left = 304 - Top = 184 + Top = 191 + Hint = #23450#22411#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -1191,6 +1227,24 @@ object frmClothInfoInput: TfrmClothInfoInput TabOrder = 47 Width = 150 end + object TbDXReplace: TcxButton + Left = 95 + Top = 158 + Width = 75 + Height = 25 + Caption = #19968#38190#26367#25442 + TabOrder = 48 + OnClick = TbDXReplaceClick + end + object cxButton3: TcxButton + Left = 182 + Top = 158 + Width = 75 + Height = 25 + Caption = #19968#38190#28165#31354 + TabOrder = 49 + OnClick = cxButton3Click + end end end object cxTabSheet4: TcxTabSheet @@ -1283,10 +1337,11 @@ object frmClothInfoInput: TfrmClothInfoInput Height = 458 Align = alClient TabOrder = 1 + ExplicitLeft = 1 ExplicitTop = -6 object cxLabel100: TcxLabel Left = 260 - Top = 314 + Top = 317 Caption = '6#' end object cxLabel101: TcxLabel @@ -1296,27 +1351,27 @@ object frmClothInfoInput: TfrmClothInfoInput end object cxLabel102: TcxLabel Left = 463 - Top = 284 + Top = 287 Caption = '3#' end object cxLabel103: TcxLabel Left = 673 - Top = 284 + Top = 287 Caption = '4#' end object cxLabel104: TcxLabel Left = 463 - Top = 313 + Top = 316 Caption = '7#' end object cxLabel105: TcxLabel Left = 673 - Top = 313 + Top = 316 Caption = '8#' end object cxLabel106: TcxLabel Left = 260 - Top = 344 + Top = 347 Caption = '10#' end object cxLabel109: TcxLabel @@ -1331,7 +1386,7 @@ object frmClothInfoInput: TfrmClothInfoInput end object cxLabel111: TcxLabel Left = 0 - Top = 434 + Top = 437 Caption = #27974#26009#37197#27604':' end object cxLabel82: TcxLabel @@ -1346,27 +1401,27 @@ object frmClothInfoInput: TfrmClothInfoInput end object cxLabel84: TcxLabel Left = 260 - Top = 284 + Top = 287 Caption = '2#' end object cxLabel85: TcxLabel Left = -2 - Top = 262 + Top = 256 Caption = #28888#31665#28201#24230#8451':' end object cxLabel86: TcxLabel Left = 29 - Top = 284 + Top = 287 Caption = '1#' end object cxLabel87: TcxLabel Left = 29 - Top = 314 + Top = 317 Caption = '5#' end object cxLabel88: TcxLabel Left = 29 - Top = 344 + Top = 347 Caption = '9#' end object cxLabel89: TcxLabel @@ -1396,7 +1451,7 @@ object frmClothInfoInput: TfrmClothInfoInput end object cxLabel94: TcxLabel Left = 29 - Top = 385 + Top = 388 Caption = #27880#24847#20107#39033 end object cxLabel95: TcxLabel @@ -1438,7 +1493,8 @@ object frmClothInfoInput: TfrmClothInfoInput object fs_temperature1: TcxTextEdit Tag = 2 Left = 84 - Top = 281 + Top = 284 + Hint = #38450#27700#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -1460,7 +1516,8 @@ object frmClothInfoInput: TfrmClothInfoInput object fs_temperature5: TcxTextEdit Tag = 2 Left = 84 - Top = 311 + Top = 314 + Hint = #38450#27700#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -1471,7 +1528,8 @@ object frmClothInfoInput: TfrmClothInfoInput object fs_temperature9: TcxTextEdit Tag = 2 Left = 84 - Top = 341 + Top = 344 + Hint = #38450#27700#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -1504,7 +1562,7 @@ object frmClothInfoInput: TfrmClothInfoInput object fs_Precautions: TcxTextEdit Tag = 2 Left = 84 - Top = 371 + Top = 374 AutoSize = False Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' @@ -1550,7 +1608,8 @@ object frmClothInfoInput: TfrmClothInfoInput object fs_temperature6: TcxTextEdit Tag = 2 Left = 290 - Top = 311 + Top = 314 + Hint = #38450#27700#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -1583,7 +1642,8 @@ object frmClothInfoInput: TfrmClothInfoInput object fs_temperature3: TcxTextEdit Tag = 2 Left = 492 - Top = 281 + Top = 284 + Hint = #38450#27700#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -1594,7 +1654,8 @@ object frmClothInfoInput: TfrmClothInfoInput object fs_temperature4: TcxTextEdit Tag = 2 Left = 703 - Top = 281 + Top = 284 + Hint = #38450#27700#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -1605,7 +1666,8 @@ object frmClothInfoInput: TfrmClothInfoInput object fs_temperature7: TcxTextEdit Tag = 2 Left = 492 - Top = 311 + Top = 314 + Hint = #38450#27700#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -1616,7 +1678,8 @@ object frmClothInfoInput: TfrmClothInfoInput object fs_temperature8: TcxTextEdit Tag = 2 Left = 703 - Top = 311 + Top = 314 + Hint = #38450#27700#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -1627,7 +1690,8 @@ object frmClothInfoInput: TfrmClothInfoInput object fs_temperature10: TcxTextEdit Tag = 2 Left = 290 - Top = 341 + Top = 344 + Hint = #38450#27700#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -1638,7 +1702,8 @@ object frmClothInfoInput: TfrmClothInfoInput object fs_temperature2: TcxTextEdit Tag = 2 Left = 290 - Top = 281 + Top = 284 + Hint = #38450#27700#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -1798,6 +1863,24 @@ object frmClothInfoInput: TfrmClothInfoInput TabOrder = 62 Width = 150 end + object TbFSReplace: TcxButton + Left = 84 + Top = 250 + Width = 75 + Height = 25 + Caption = #19968#38190#26367#25442 + TabOrder = 63 + OnClick = TbFSReplaceClick + end + object cxButton1: TcxButton + Left = 176 + Top = 250 + Width = 75 + Height = 25 + Caption = #19968#38190#28165#31354 + TabOrder = 64 + OnClick = cxButton1Click + end end object ToolBar4: TToolBar Left = 0 @@ -1842,9 +1925,9 @@ object frmClothInfoInput: TfrmClothInfoInput ParentFont = False object cxGrid1: TcxGrid Left = 0 - Top = 528 + Top = 534 Width = 1076 - Height = 155 + Height = 149 Align = alBottom TabOrder = 0 object Tv2: TcxGridDBTableView @@ -1935,29 +2018,29 @@ object frmClothInfoInput: TfrmClothInfoInput Left = 0 Top = 0 Width = 1076 - Height = 490 + Height = 496 Align = alClient TabOrder = 1 ExplicitLeft = 1 ExplicitTop = -6 object cxLabel107: TcxLabel Left = 353 - Top = 438 + Top = 448 Caption = #31995#32479#21387#21147'(Kg)' end object cxLabel108: TcxLabel Left = 353 - Top = 408 + Top = 418 Caption = #28151#21512#22836#30005#26426#39057#29575'('#36716')' end object cxLabel112: TcxLabel Left = 25 - Top = 408 + Top = 418 Caption = #27668#20307#27969#37327'(L/h)' end object cxLabel29: TcxLabel Left = 261 - Top = 270 + Top = 280 Caption = '6#' end object cxLabel30: TcxLabel @@ -1967,27 +2050,27 @@ object frmClothInfoInput: TfrmClothInfoInput end object cxLabel31: TcxLabel Left = 464 - Top = 240 + Top = 250 Caption = '3#' end object cxLabel32: TcxLabel Left = 674 - Top = 240 + Top = 250 Caption = '4#' end object cxLabel33: TcxLabel Left = 464 - Top = 269 + Top = 279 Caption = '7#' end object cxLabel34: TcxLabel Left = 674 - Top = 269 + Top = 279 Caption = '8#' end object cxLabel35: TcxLabel Left = 261 - Top = 300 + Top = 310 Caption = '10#' end object cxLabel36: TcxLabel @@ -2002,7 +2085,7 @@ object frmClothInfoInput: TfrmClothInfoInput end object cxLabel50: TcxLabel Left = 0 - Top = 468 + Top = 478 Caption = #27974#26009#37197#27604':' end object cxLabel51: TcxLabel @@ -2017,7 +2100,7 @@ object frmClothInfoInput: TfrmClothInfoInput end object cxLabel53: TcxLabel Left = 261 - Top = 240 + Top = 250 Caption = '2#' end object cxLabel54: TcxLabel @@ -2027,17 +2110,17 @@ object frmClothInfoInput: TfrmClothInfoInput end object cxLabel66: TcxLabel Left = 30 - Top = 240 + Top = 250 Caption = '1#' end object cxLabel67: TcxLabel Left = 30 - Top = 270 + Top = 280 Caption = '5#' end object cxLabel68: TcxLabel Left = 30 - Top = 300 + Top = 310 Caption = '9#' end object cxLabel69: TcxLabel @@ -2067,7 +2150,7 @@ object frmClothInfoInput: TfrmClothInfoInput end object cxLabel74: TcxLabel Left = 30 - Top = 341 + Top = 351 Caption = #27880#24847#20107#39033 end object cxLabel75: TcxLabel @@ -2097,12 +2180,12 @@ object frmClothInfoInput: TfrmClothInfoInput end object cxLabel80: TcxLabel Left = 0 - Top = 386 + Top = 396 Caption = #21457#27873#26426#21442#25968':' end object cxLabel81: TcxLabel Left = 25 - Top = 438 + Top = 448 Caption = #34746#26438#27893#30005#26426#39057#29575'('#36716')' end object fp_OutFanSpeed: TcxTextEdit @@ -2119,7 +2202,8 @@ object frmClothInfoInput: TfrmClothInfoInput object fp_temperature1: TcxTextEdit Tag = 2 Left = 85 - Top = 237 + Top = 247 + Hint = #21457#27873#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2141,7 +2225,8 @@ object frmClothInfoInput: TfrmClothInfoInput object fp_temperature5: TcxTextEdit Tag = 2 Left = 85 - Top = 267 + Top = 277 + Hint = #21457#27873#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2152,7 +2237,8 @@ object frmClothInfoInput: TfrmClothInfoInput object fp_temperature9: TcxTextEdit Tag = 2 Left = 85 - Top = 297 + Top = 307 + Hint = #21457#27873#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2185,7 +2271,7 @@ object frmClothInfoInput: TfrmClothInfoInput object fp_Precautions: TcxTextEdit Tag = 2 Left = 85 - Top = 327 + Top = 337 AutoSize = False Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' @@ -2231,7 +2317,8 @@ object frmClothInfoInput: TfrmClothInfoInput object fp_temperature6: TcxTextEdit Tag = 2 Left = 297 - Top = 266 + Top = 276 + Hint = #21457#27873#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2264,7 +2351,8 @@ object frmClothInfoInput: TfrmClothInfoInput object fp_temperature3: TcxTextEdit Tag = 2 Left = 493 - Top = 237 + Top = 247 + Hint = #21457#27873#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2275,7 +2363,8 @@ object frmClothInfoInput: TfrmClothInfoInput object fp_temperature4: TcxTextEdit Tag = 2 Left = 701 - Top = 237 + Top = 247 + Hint = #21457#27873#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2286,7 +2375,8 @@ object frmClothInfoInput: TfrmClothInfoInput object fp_temperature7: TcxTextEdit Tag = 2 Left = 493 - Top = 267 + Top = 277 + Hint = #21457#27873#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2297,7 +2387,8 @@ object frmClothInfoInput: TfrmClothInfoInput object fp_temperature8: TcxTextEdit Tag = 2 Left = 701 - Top = 267 + Top = 277 + Hint = #21457#27873#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2308,7 +2399,8 @@ object frmClothInfoInput: TfrmClothInfoInput object fp_temperature10: TcxTextEdit Tag = 2 Left = 297 - Top = 296 + Top = 306 + Hint = #21457#27873#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2319,7 +2411,8 @@ object frmClothInfoInput: TfrmClothInfoInput object fp_temperature2: TcxTextEdit Tag = 2 Left = 297 - Top = 235 + Top = 245 + Hint = #21457#27873#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2352,7 +2445,7 @@ object frmClothInfoInput: TfrmClothInfoInput object fp_PumbMixElectricFrequency: TcxTextEdit Tag = 2 Left = 180 - Top = 434 + Top = 444 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2363,7 +2456,7 @@ object frmClothInfoInput: TfrmClothInfoInput object fp_SystemPress: TcxTextEdit Tag = 2 Left = 467 - Top = 434 + Top = 444 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2374,7 +2467,7 @@ object frmClothInfoInput: TfrmClothInfoInput object fp_MixElectricFrequency: TcxTextEdit Tag = 2 Left = 467 - Top = 404 + Top = 414 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2385,7 +2478,7 @@ object frmClothInfoInput: TfrmClothInfoInput object fp_GasFlow: TcxTextEdit Tag = 2 Left = 180 - Top = 404 + Top = 414 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2471,10 +2564,28 @@ object frmClothInfoInput: TfrmClothInfoInput TabOrder = 65 Width = 150 end + object TbFPReplace: TcxButton + Left = 85 + Top = 216 + Width = 75 + Height = 25 + Caption = #19968#38190#26367#25442 + TabOrder = 66 + OnClick = TbFPReplaceClick + end + object cxButton4: TcxButton + Left = 173 + Top = 216 + Width = 75 + Height = 25 + Caption = #19968#38190#28165#31354 + TabOrder = 67 + OnClick = cxButton4Click + end end object ToolBar3: TToolBar Left = 0 - Top = 490 + Top = 496 Width = 1076 Height = 38 Align = alBottom @@ -2509,9 +2620,9 @@ object frmClothInfoInput: TfrmClothInfoInput ImageIndex = 5 object cxGrid3: TcxGrid Left = 0 - Top = 440 + Top = 456 Width = 1076 - Height = 243 + Height = 227 Align = alBottom Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -2608,7 +2719,7 @@ object frmClothInfoInput: TfrmClothInfoInput Left = 0 Top = 0 Width = 1076 - Height = 402 + Height = 418 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -2617,9 +2728,10 @@ object frmClothInfoInput: TfrmClothInfoInput Font.Style = [] ParentFont = False TabOrder = 1 + ExplicitTop = -6 object cxLabel116: TcxLabel Left = 258 - Top = 266 + Top = 282 Caption = '6#' end object cxLabel117: TcxLabel @@ -2629,27 +2741,27 @@ object frmClothInfoInput: TfrmClothInfoInput end object cxLabel118: TcxLabel Left = 464 - Top = 236 + Top = 252 Caption = '3#' end object cxLabel119: TcxLabel Left = 674 - Top = 236 + Top = 252 Caption = '4#' end object cxLabel120: TcxLabel Left = 464 - Top = 265 + Top = 281 Caption = '7#' end object cxLabel121: TcxLabel Left = 674 - Top = 265 + Top = 281 Caption = '8#' end object cxLabel122: TcxLabel Left = 258 - Top = 296 + Top = 312 Caption = '10#' end object cxLabel123: TcxLabel @@ -2664,7 +2776,7 @@ object frmClothInfoInput: TfrmClothInfoInput end object cxLabel125: TcxLabel Left = 0 - Top = 382 + Top = 392 Caption = #27974#26009#37197#27604':' end object cxLabel126: TcxLabel @@ -2679,27 +2791,27 @@ object frmClothInfoInput: TfrmClothInfoInput end object cxLabel128: TcxLabel Left = 258 - Top = 236 + Top = 252 Caption = '2#' end object cxLabel129: TcxLabel Left = 0 - Top = 214 + Top = 223 Caption = #28888#31665#28201#24230#8451':' end object cxLabel130: TcxLabel Left = 30 - Top = 236 + Top = 252 Caption = '1#' end object cxLabel131: TcxLabel Left = 30 - Top = 266 + Top = 282 Caption = '5#' end object cxLabel132: TcxLabel Left = 30 - Top = 296 + Top = 312 Caption = '9#' end object cxLabel133: TcxLabel @@ -2729,7 +2841,7 @@ object frmClothInfoInput: TfrmClothInfoInput end object cxLabel138: TcxLabel Left = 30 - Top = 337 + Top = 353 Caption = #27880#24847#20107#39033 end object cxLabel139: TcxLabel @@ -2760,7 +2872,8 @@ object frmClothInfoInput: TfrmClothInfoInput object gj_temperature1: TcxTextEdit Tag = 2 Left = 85 - Top = 233 + Top = 249 + Hint = #21038#33014#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2782,7 +2895,8 @@ object frmClothInfoInput: TfrmClothInfoInput object gj_temperature5: TcxTextEdit Tag = 2 Left = 85 - Top = 263 + Top = 279 + Hint = #21038#33014#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2793,7 +2907,8 @@ object frmClothInfoInput: TfrmClothInfoInput object gj_temperature9: TcxTextEdit Tag = 2 Left = 85 - Top = 293 + Top = 309 + Hint = #21038#33014#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2826,7 +2941,7 @@ object frmClothInfoInput: TfrmClothInfoInput object gj_Precautions: TcxTextEdit Tag = 2 Left = 85 - Top = 323 + Top = 339 AutoSize = False Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' @@ -2872,7 +2987,8 @@ object frmClothInfoInput: TfrmClothInfoInput object gj_temperature6: TcxTextEdit Tag = 2 Left = 288 - Top = 263 + Top = 279 + Hint = #21038#33014#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2905,7 +3021,8 @@ object frmClothInfoInput: TfrmClothInfoInput object gj_temperature3: TcxTextEdit Tag = 2 Left = 493 - Top = 233 + Top = 249 + Hint = #21038#33014#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2916,7 +3033,8 @@ object frmClothInfoInput: TfrmClothInfoInput object gj_temperature4: TcxTextEdit Tag = 2 Left = 704 - Top = 233 + Top = 249 + Hint = #21038#33014#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2927,7 +3045,8 @@ object frmClothInfoInput: TfrmClothInfoInput object gj_temperature7: TcxTextEdit Tag = 2 Left = 493 - Top = 263 + Top = 279 + Hint = #21038#33014#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2938,7 +3057,8 @@ object frmClothInfoInput: TfrmClothInfoInput object gj_temperature8: TcxTextEdit Tag = 2 Left = 704 - Top = 263 + Top = 279 + Hint = #21038#33014#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2949,7 +3069,8 @@ object frmClothInfoInput: TfrmClothInfoInput object gj_temperature10: TcxTextEdit Tag = 2 Left = 288 - Top = 293 + Top = 309 + Hint = #21038#33014#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -2960,7 +3081,8 @@ object frmClothInfoInput: TfrmClothInfoInput object gj_temperature2: TcxTextEdit Tag = 2 Left = 288 - Top = 233 + Top = 249 + Hint = #21038#33014#28888#31665#28201#24230 Style.LookAndFeel.SkinName = 'WXI' StyleDisabled.LookAndFeel.SkinName = 'WXI' StyleFocused.LookAndFeel.SkinName = 'WXI' @@ -3079,10 +3201,28 @@ object frmClothInfoInput: TfrmClothInfoInput TabOrder = 56 Width = 150 end + object TbGJReplace: TcxButton + Left = 85 + Top = 215 + Width = 75 + Height = 25 + Caption = #19968#38190#26367#25442 + TabOrder = 57 + OnClick = TbGJReplaceClick + end + object cxButton5: TcxButton + Left = 171 + Top = 215 + Width = 75 + Height = 25 + Caption = #19968#38190#28165#31354 + TabOrder = 58 + OnClick = cxButton5Click + end end object ToolBar5: TToolBar Left = 0 - Top = 402 + Top = 418 Width = 1076 Height = 38 Align = alBottom diff --git a/A02基础产品管理/U_ClothInfoInput.pas b/A02基础产品管理/U_ClothInfoInput.pas index a116244..7242505 100644 --- a/A02基础产品管理/U_ClothInfoInput.pas +++ b/A02基础产品管理/U_ClothInfoInput.pas @@ -27,7 +27,7 @@ uses dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, cxContainer, cxLabel, cxPC, - dxScrollbarAnnotations, cxMaskEdit; + dxScrollbarAnnotations, cxMaskEdit, Vcl.Menus, cxButtons; type TfrmClothInfoInput = class(TForm) @@ -383,13 +383,13 @@ type Panel11: TPanel; Label1: TLabel; ToolBar2: TToolBar; - ToolButton2: TToolButton; - ToolButton3: TToolButton; - ToolButton1: TToolButton; - ToolButton4: TToolButton; - ToolButton5: TToolButton; - ToolButton6: TToolButton; - ToolButton7: TToolButton; + TbQX: TToolButton; + TbDX: TToolButton; + TbFS: TToolButton; + TbFP: TToolButton; + TbGJ: TToolButton; + TbZM: TToolButton; + TbDelete: TToolButton; C_Name: TcxTextEdit; dx_UnpackingMethod: TcxComboBox; dx_OpenAmplitude: TcxComboBox; @@ -435,6 +435,16 @@ type ToolBar5: TToolBar; TbAdd3: TToolButton; TbDel3: TToolButton; + TbCPReplace: TcxButton; + TbDXReplace: TcxButton; + TbFSReplace: TcxButton; + TbFPReplace: TcxButton; + TbGJReplace: TcxButton; + cxButton1: TcxButton; + cxButton2: TcxButton; + cxButton3: TcxButton; + cxButton4: TcxButton; + cxButton5: TcxButton; procedure FormShow(Sender: TObject); procedure TBCloseClick(Sender: TObject); procedure TbSaveClick(Sender: TObject); @@ -444,15 +454,15 @@ type procedure C_WidthBtnUpClick(Sender: TObject); procedure TbUpFileClick(Sender: TObject); procedure C_FromNameBtnUpClick(Sender: TObject); - procedure ToolButton2Click(Sender: TObject); + procedure TbQXClick(Sender: TObject); procedure SetXH(); - procedure ToolButton3Click(Sender: TObject); + procedure TbDXClick(Sender: TObject); procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); - procedure ToolButton7Click(Sender: TObject); - procedure ToolButton1Click(Sender: TObject); - procedure ToolButton4Click(Sender: TObject); - procedure ToolButton5Click(Sender: TObject); - procedure ToolButton6Click(Sender: TObject); + procedure TbDeleteClick(Sender: TObject); + procedure TbFSClick(Sender: TObject); + procedure TbFPClick(Sender: TObject); + procedure TbGJClick(Sender: TObject); + procedure TbZMClick(Sender: TObject); procedure Tv11fs_unitPropertiesEditValueChanged(Sender: TObject); procedure Tv2fp_unitPropertiesEditValueChanged(Sender: TObject); procedure Tv3gj_unitPropertiesEditValueChanged(Sender: TObject); @@ -466,12 +476,25 @@ type 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 cxButton3Click(Sender: TObject); + procedure cxButton4Click(Sender: TObject); + procedure cxButton5Click(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); { Private declarations } public FBCIID, FCTID, FProcessID: string; @@ -658,15 +681,73 @@ begin end; procedure TfrmClothInfoInput.FormShow(Sender: TObject); +var + MaxBCIID, MaxProcessID, MaxBCPID: string; + Maxid1, maxid2, maxid3, maxgx: string; begin - InitGrid(); ArrangeTabsByDataset; - if CopyInt = 1 then + if CopyInt = 3 then begin FBCIID := ''; - C_Code.text := ''; - C_Name.text := ''; + C_Code.text := 'Զ'; + end; + if CopyInt = 1 then //鿴 + begin + TbSave.Enabled := False; + TbUpFile.Enabled := False; + TbQX.Enabled := False; + TbDX.Enabled := False; + TbFS.Enabled := False; + TbFP.Enabled := False; + TbGJ.Enabled := False; + TbZM.Enabled := False; + TbDelete.Enabled := False; + end; + + with CDS_GX do + begin + First; + while not Eof do + begin + Edit; + CDS_GX.fieldbyname('GXID').AsString := ''; + Post; + Next; + end; + end; + with CDS_1 do + begin + First; + while not Eof do + begin + Edit; + CDS_1.fieldbyname('BCPID').AsString := ''; + Post; + Next; + end; + end; + with CDS_2 do + begin + First; + while not Eof do + begin + Edit; + CDS_2.fieldbyname('BCPID').AsString := ''; + Post; + Next; + end; + end; + with CDS_3 do + begin + First; + while not Eof do + begin + Edit; + CDS_3.fieldbyname('BCPID').AsString := ''; + Post; + Next; + end; end; end; @@ -832,6 +913,7 @@ begin First; while not Eof do begin + if Trim(CDS_GX.fieldbyname('GXID').AsString) = '' then begin if GetLSNo(ADOQueryTemp, maxgx, 'GX', 'Bs_Cloth_GX', 5, 1) = False then @@ -863,7 +945,6 @@ begin else begin Edit; - end; FieldByName('BCIID').Value := Trim(MaxBCIID); @@ -885,6 +966,7 @@ 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 @@ -939,6 +1021,7 @@ 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 @@ -993,6 +1076,14 @@ begin First; while not Eof do begin + if copyInt = 1 then + begin + CDS_3.Edit; +// CDS_GX.fieldbyname('GXID').AsString := ''; +// CDS_1.fieldbyname('BCPID').AsString := ''; +// CDS_2.fieldbyname('BCPID').AsString := ''; + CDS_3.fieldbyname('BCPID').AsString := ''; + end; if Trim(CDS_3.fieldbyname('BCPID').AsString) = '' then begin if GetLSNo(ADOQueryTemp, maxid3, 'GJ', 'Bs_Cloth_GY_Sub', 5, 1) = False then @@ -1039,7 +1130,7 @@ begin Next; end; end; -//////////////// 淢ӱ ////////////////////// +//////////////// νӱ ////////////////////// ADOQueryCmd.Connection.CommitTrans; FBCIID := MaxBCIID; Result := True; @@ -1083,7 +1174,7 @@ begin end; end; -procedure TfrmClothInfoInput.ToolButton1Click(Sender: TObject); +procedure TfrmClothInfoInput.TbFSClick(Sender: TObject); var i: Integer; begin @@ -1113,7 +1204,7 @@ begin ArrangeTabsByDataset; end; -procedure TfrmClothInfoInput.ToolButton2Click(Sender: TObject); +procedure TfrmClothInfoInput.TbQXClick(Sender: TObject); var i: Integer; begin @@ -1143,7 +1234,7 @@ begin ArrangeTabsByDataset; end; -procedure TfrmClothInfoInput.ToolButton3Click(Sender: TObject); +procedure TfrmClothInfoInput.TbDXClick(Sender: TObject); var i: Integer; begin @@ -1173,7 +1264,12 @@ begin ArrangeTabsByDataset; end; -procedure TfrmClothInfoInput.ToolButton4Click(Sender: TObject); +procedure TfrmClothInfoInput.TbDXReplaceClick(Sender: TObject); +begin + FillAllTextEditsWithValue(panel3, 'ͺ¶', FindLastEditedTextEdit(panel3, 'ͺ¶')); +end; + +procedure TfrmClothInfoInput.TbFPClick(Sender: TObject); var i: Integer; begin @@ -1203,7 +1299,12 @@ begin ArrangeTabsByDataset; end; -procedure TfrmClothInfoInput.ToolButton5Click(Sender: TObject); +procedure TfrmClothInfoInput.TbFPReplaceClick(Sender: TObject); +begin + FillAllTextEditsWithValue(panel5, 'ݺ¶', FindLastEditedTextEdit(panel5, 'ݺ¶')); +end; + +procedure TfrmClothInfoInput.TbGJClick(Sender: TObject); var i: Integer; begin @@ -1233,7 +1334,12 @@ begin ArrangeTabsByDataset; end; -procedure TfrmClothInfoInput.ToolButton6Click(Sender: TObject); +procedure TfrmClothInfoInput.TbGJReplaceClick(Sender: TObject); +begin + FillAllTextEditsWithValue(panel6, 'ν¶', FindLastEditedTextEdit(panel6, 'ν¶')); +end; + +procedure TfrmClothInfoInput.TbZMClick(Sender: TObject); var i: Integer; begin @@ -1262,7 +1368,7 @@ begin ArrangeTabsByDataset; end; -procedure TfrmClothInfoInput.ToolButton7Click(Sender: TObject); +procedure TfrmClothInfoInput.TbDeleteClick(Sender: TObject); begin if CDS_GX.IsEmpty then Exit; @@ -1279,39 +1385,52 @@ begin sql.Add('and gyType=''' + Trim(CDS_GX.fieldbyname('gxName').AsString) + ''''); ExecSQL; end; - //ˮӱ - with ADOQueryTemp do + if CDS_gx.fieldByName('gxname').Value = 'ϴ' then begin - Close; - sql.Clear; - sql.Add('select A.* from Bs_Cloth_GY_sub A '); - sql.Add(' where gytype=''ˮ'' and A.BCIID=''' + Trim(FBCIID) + ''''); - Open; - end; - SCreateCDS(ADOQueryTemp, CDS_1); - SInitCDSData(ADOQueryTemp, CDS_1); - //ӱ - with ADOQueryTemp do + //ˮӱ + 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(FBCIID) + ''''); + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_1); + SInitCDSData(ADOQueryTemp, CDS_1); + end + else if CDS_gx.fieldByName('gxname').Value = '' then begin - Close; - sql.Clear; - sql.Add('select A.* from Bs_Cloth_GY_sub A '); - sql.Add(' where gytype='''' and A.BCIID=''' + Trim(FBCIID) + ''''); - Open; - end; - SCreateCDS(ADOQueryTemp, CDS_2); - SInitCDSData(ADOQueryTemp, CDS_2); - //νӱ - with ADOQueryTemp do + //ӱ + 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(FBCIID) + ''''); + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_2); + SInitCDSData(ADOQueryTemp, CDS_2); + end + else if CDS_gx.fieldByName('gxname').Value = 'ν' then begin - Close; - sql.Clear; - sql.Add('select A.* from Bs_Cloth_GY_sub A '); - sql.Add(' where gytype=''ν'' and A.BCIID=''' + Trim(FBCIID) + ''''); - Open; + //νӱ + 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(FBCIID) + ''''); + Open; + end; + SCreateCDS(ADOQueryTemp, CDS_3); + SInitCDSData(ADOQueryTemp, CDS_3); +// end; end; - SCreateCDS(ADOQueryTemp, CDS_3); - SInitCDSData(ADOQueryTemp, CDS_3); +// else +// begin +// CDS_GX.Delete; // end; ////////////////////////////////////// ӱ½////////////////////// /////////////////////////¿ʼ///////////////////////////////// @@ -1361,11 +1480,6 @@ begin SClearData(panel7, 2); zm_UnpackingMethod.Text := ''; end; - if Trim(CDS_GX.fieldbyname('GXID').AsString) <> '' then - begin - SaveData(); - end; -/////////////////////////////////½////////////////////////////////// with ADOQueryCmd do begin Close; @@ -1373,8 +1487,14 @@ begin sql.Add('delete Bs_Cloth_GX where GXID=''' + Trim(CDS_GX.fieldbyname('GXID').AsString) + ''''); ExecSQL; end; +// showMessage(); CDS_GX.Delete; SetXH(); + if Trim(CDS_GX.fieldbyname('GXID').AsString) <> '' then + begin + SaveData(); + end; +/////////////////////////////////½////////////////////////////////// ArrangeTabsByDataset; end; @@ -1555,6 +1675,147 @@ begin // end; end; +procedure TfrmClothInfoInput.TbCPReplaceClick(Sender: TObject); +begin + FillAllTextEditsWithValue(panel2, 'ϴˮ', FindLastEditedTextEdit(panel2, 'ϴˮ')); +end; + +//function TfrmClothInfoInput.FindLastEditedTextEdit(AParent: TWinControl; const AHint: string): string; +//var +// i: Integer; +// AControl: TControl; +//begin +// Result := ''; +// for i := 0 to AParent.ControlCount - 1 do +// begin +// AControl := AParent.Controls[i]; +// if (AControl is TcxTextEdit) and ((AControl as TcxTextEdit).Hint = AHint) and ((AControl as TcxTextEdit).Text <> '') then // ǿ +// begin +// Result := (AControl as TcxTextEdit).text; // һǿտؼʵ֣ +// end; +// end; +//end; + +function TfrmClothInfoInput.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 TfrmClothInfoInput.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 TfrmClothInfoInput.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 TfrmClothInfoInput.cxButton1Click(Sender: TObject); +begin + ClearAllTextEditsByHint(panel4, 'ˮ¶'); +end; + +procedure TfrmClothInfoInput.cxButton2Click(Sender: TObject); +begin + ClearAllTextEditsByHint(panel2, 'ϴˮ'); +end; + +procedure TfrmClothInfoInput.cxButton3Click(Sender: TObject); +begin + ClearAllTextEditsByHint(panel3, 'ͺ¶'); +end; + +procedure TfrmClothInfoInput.cxButton4Click(Sender: TObject); +begin + ClearAllTextEditsByHint(panel5, 'ݺ¶'); +end; + +procedure TfrmClothInfoInput.cxButton5Click(Sender: TObject); +begin + ClearAllTextEditsByHint(panel6, 'ν¶'); +end; + +procedure TfrmClothInfoInput.TbFSReplaceClick(Sender: TObject); +begin + FillAllTextEditsWithValue(panel4, 'ˮ¶', FindLastEditedTextEdit(panel4, 'ˮ¶')); +end; + procedure TfrmClothInfoInput.CYColorKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then