From e858e747c273f32977f20075efdb3b81e08ba0b4 Mon Sep 17 00:00:00 2001 From: "LAPTOP-8NOV8MVQ\\cai" Date: Tue, 3 Mar 2026 15:50:44 +0800 Subject: [PATCH] 3-3 --- F02染色计划单/DyePlan.dproj.local | 66 +++--- F02染色计划单/DyePlan.identcache | Bin 3087 -> 3087 bytes F02染色计划单/U_DyePlanCardList.dfm | 2 +- F02染色计划单/U_DyeSimpleTechnicsKaiKa.dfm | 16 +- F02染色计划单/U_DyeSimpleTechnicsKaiKa.pas | 238 ++++++++++++++++++-- F02染色计划单/U_DyeSimpleTechnicsList.dfm | 36 ++- F02染色计划单/U_DyeSimpleTechnicsList.pas | 249 +++++++++++++++++++-- F02染色计划单/U_DyeTechnicsinput.dfm | 5 - F02染色计划单/U_DyeTechnicsinput.pas | 9 +- 9 files changed, 529 insertions(+), 92 deletions(-) diff --git a/F02染色计划单/DyePlan.dproj.local b/F02染色计划单/DyePlan.dproj.local index 4aa6141..de15f52 100644 --- a/F02染色计划单/DyePlan.dproj.local +++ b/F02染色计划单/DyePlan.dproj.local @@ -1,62 +1,62 @@  - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.pas - 1899/12/30 00:00:00.000.934,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.pas 1899/12/30 00:00:00.000.327,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas= + 1899/12/30 00:00:00.000.625,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas 1899/12/30 00:00:00.000.291,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\A00通用窗体\U_ProductInfoSel.pas 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas= 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.dfm + 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.017,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothStkSel.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.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.625,=D:\Dp10Repo\public10\ThreeFun\Form\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.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.621,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_DyeProcessDefin.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.359,D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.dfm - 1899/12/30 00:00:00.000.986,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\DyePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\InformationBase.dproj - 1899/12/30 00:00:00.000.577,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 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.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas 1899/12/30 00:00:00.000.495,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeProcessList.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.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.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.dfm + 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\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm + 1899/12/30 00:00:00.000.722,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeGreyClothOutSel.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.531,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsList.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeTechnicsinput.pas - 1899/12/30 00:00:00.000.855,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanList1.dfm - 1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm + 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas 1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\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.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.782,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.dfm=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.dfm 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.058,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeTechnicsSel.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.383,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_CraftSel.pas - 1899/12/30 00:00:00.000.046,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeProcessSel.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.905,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas= - 1899/12/30 00:00:00.000.359,D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.344,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput.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.819,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeInspSet.pas + 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.286,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanInPut.pas + 1899/12/30 00:00:00.000.383,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_CraftSel.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899/12/30 00:00:00.000.905,D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyePlanCardInput1.pas= + 1899/12/30 00:00:00.000.046,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyeProcessSel.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 + 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.pas=D:\Dp10Repo\项目代码\傲唐\财务管理(Financial.dll)\U_YWTCInPut.pas 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas 1899/12/30 00:00:00.000.213,=D:\Dp10Repo\项目代码\RTBasics\F02染色计划单\U_DyeCardInput.pas 2025/09/28 12:18:54.000.943,=D:\Dp10Repo\项目代码\D10sxYilanbuyi\F02染色计划单\U_DyeSimpleTechnicsList.pas diff --git a/F02染色计划单/DyePlan.identcache b/F02染色计划单/DyePlan.identcache index bc3eb5046e866dd0acd5cc9533071f2d68391531..79f5f39a0cc2b86fef6da9d775fb9fa9e46d3129 100644 GIT binary patch delta 69 zcmeB|=$F`Vi)r#LHqFTaY@(Bcm@iIFW4SSLz3*gZZn4dFtP5dsVv{pC#W&w)_hOu^ U%;LPcp3|Ih@+~H-$&%dP0CJ)jKmY&$ delta 80 zcmeB|=$F`Vi)r$GF0080*fb|U;1-=M!F+LYDyQ@0m&`XNvvDbJc4w_)+APiC#Ryly f%poy3l3RQ78y3mQZ#X|sT<<%Xk5z24B= @@ -167,6 +167,16 @@ inherited frmDyeSimpleTechnicsKaiKa: TfrmDyeSimpleTechnicsKaiKa OnClick = TbShowClick end end + object GYNote: TMemo + Left = 1 + Top = 39 + Width = 555 + Height = 41 + Align = alClient + Lines.Strings = ( + '') + TabOrder = 2 + end end end object ScrollBox1: TScrollBox [3] diff --git a/F02染色计划单/U_DyeSimpleTechnicsKaiKa.pas b/F02染色计划单/U_DyeSimpleTechnicsKaiKa.pas index 33d7a58..909efd8 100644 --- a/F02染色计划单/U_DyeSimpleTechnicsKaiKa.pas +++ b/F02染色计划单/U_DyeSimpleTechnicsKaiKa.pas @@ -55,6 +55,7 @@ type Tv3Page: TcxGridDBColumn; GPM_3: TcxGridPopupMenu; Tv3MCNO: TcxGridDBColumn; + GYNote: TMemo; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -95,15 +96,15 @@ type var frmDyeSimpleTechnicsKaiKa: TfrmDyeSimpleTechnicsKaiKa; - frameFPList1, frameFPList2, frameFPList3: tframeFPList; - frameGJList1, frameGJList2, frameGJList3: tframeGJList; - frameFSList1, frameFSList2, frameFSList3: tframeFSList; - frameGDXList1, frameGDXList2, frameGDXList3: TframeGDXList; - frameJGQXList1, frameJGQXList2, frameJGQXList3: TframeJGQXList; - frameRGQXList1, frameRGQXList2, frameRGQXList3: TframeRGQXList; - frameCCQXList1, frameCCQXList2, frameCCQXList3: TframeCCQXList; - frameYMList1, frameYMList2, frameYMList3: TframeYMList; - framePDList1, framePDList2, framePDList3: TframePDList; + frameFPList1, frameFPList2, frameFPList3, frameFPList4: tframeFPList; + frameGJList1, frameGJList2, frameGJList3, frameGJList4: tframeGJList; + frameFSList1, frameFSList2, frameFSList3, frameFSList4: tframeFSList; + frameGDXList1, frameGDXList2, frameGDXList3, frameGDXList4: TframeGDXList; + frameJGQXList1, frameJGQXList2, frameJGQXList3, frameJGQXList4: TframeJGQXList; + frameRGQXList1, frameRGQXList2, frameRGQXList3, frameRGQXList4: TframeRGQXList; + frameCCQXList1, frameCCQXList2, frameCCQXList3, frameCCQXList4: TframeCCQXList; + frameYMList1, frameYMList2, frameYMList3, frameYMList4: TframeYMList; + framePDList1, framePDList2, framePDList3, framePDList4: TframePDList; implementation @@ -169,10 +170,11 @@ begin begin Close; SQL.Clear; - sql.Add(' select A.PSID,A.GlideNo,A.MCNO,B.PSType,B.PSName,B.page FROM Dye_Plan_Glide A'); - sql.Add(' inner join Dye_Process B on A.PSID = B.PSID'); + sql.Add(' select A.PSID,A.GlideNo,A.MCNO,B.PSType,B.PSName,B.page,C.GYNote FROM Dye_Plan_Glide A '); + sql.Add(' inner join Dye_Process B on A.PSID = B.PSID '); + sql.Add(' left join Dye_Technics_Main C on B.DTMID = C.DTMID '); sql.Add(' Where A.PCID=''' + trim(fKaZu) + ''''); - SQL.Add(' ORDER BY A.GlideNo'); + SQL.Add(' ORDER BY A.GlideNo '); // ShowMessage(SQL.Text); Open; end; @@ -288,6 +290,29 @@ begin SCreateCDS(ADOQueryCmd, frameCCQXList3.CDS_CCQX); SInitCDSData(ADOQueryCmd, frameCCQXList3.CDS_CCQX); + end + else if self.FindComponent('frameCCQXList4') = nil then + begin + frameCCQXList4 := TframeCCQXList.Create(self); + frameCCQXList4.Name := 'frameCCQXList4'; + frameCCQXList4.Parent := self.ScrollBox1; + frameCCQXList4.Top := GetNextFrameTop; + frameCCQXList4.Visible := True; + frameCCQXList4.LabelCCQX.Caption := CDS_GX.FieldByName('PSName').AsString; + frameCCQXList4.InitGrid(); + + frameCCQXList4.TbCCQXAdd.Visible := False; + frameCCQXList4.TbCCQXDel.Visible := False; + + CDS_GX.Edit; + CDS_GX.FieldByName('page').AsString := 'frameCCQXList4'; + CDS_GX.Post; + + SCSHData(ADOQueryTemp, frameCCQXList4.Panel_ccqx, 2); + frameCCQXList4.ccqx_note.Lines.Text := ADOQueryTemp.FieldByName('ccqx_note').AsString; + + SCreateCDS(ADOQueryCmd, frameCCQXList4.CDS_CCQX); + SInitCDSData(ADOQueryCmd, frameCCQXList4.CDS_CCQX); end; end else if CDS_GX.FieldByName('PSType').AsString = 'Ⱦϴ' then @@ -360,6 +385,29 @@ begin SCreateCDS(ADOQueryCmd, frameRGQXList3.CDS_rgQX); SInitCDSData(ADOQueryCmd, frameRGQXList3.CDS_RGQX); + end + else if self.FindComponent('frameRGQXList4') = nil then + begin + frameRGQXList4 := TframeRGQXList.Create(self); + frameRGQXList4.Name := 'frameRGQXList4'; + frameRGQXList4.Parent := self.ScrollBox1; + frameRGQXList4.Top := GetNextFrameTop; + frameRGQXList4.Visible := True; + frameRGQXList4.LabelRGQX.Caption := CDS_GX.FieldByName('PSName').AsString; + frameRGQXList4.InitGrid(); + + frameRGQXList4.TbRGQXAdd.Visible := False; + frameRGQXList4.TbRGQXDel.Visible := False; + + CDS_GX.Edit; + CDS_GX.FieldByName('page').AsString := 'frameRGQXList4'; + CDS_GX.Post; + + SCSHData(ADOQueryTemp, frameRGQXList4.Panel_rgqx, 2); + frameRGQXList4.rgqx_note.Lines.Text := ADOQueryTemp.FieldByName('rgqx_note').AsString; + + SCreateCDS(ADOQueryCmd, frameRGQXList4.CDS_rgQX); + SInitCDSData(ADOQueryCmd, frameRGQXList4.CDS_RGQX); end; end else if CDS_GX.FieldByName('PSType').AsString = 'ϴ' then @@ -432,6 +480,29 @@ begin SCreateCDS(ADOQueryCmd, frameJGQXList3.CDS_JGQX); SInitCDSData(ADOQueryCmd, frameJGQXList3.CDS_JGQX); + end + else if self.FindComponent('frameJGQXList4') = nil then + begin + frameJGQXList4 := TframeJGQXList.Create(self); + frameJGQXList4.Name := 'frameJGQXList4'; + frameJGQXList4.Parent := self.ScrollBox1; + frameJGQXList4.Top := GetNextFrameTop; + frameJGQXList4.Visible := True; + frameJGQXList4.LabelJGQX.Caption := CDS_GX.FieldByName('PSName').AsString; + frameJGQXList4.InitGrid(); + + frameJGQXList4.TbJGQXAdd.Visible := False; + frameJGQXList4.TbJGQXDel.Visible := False; + + CDS_GX.Edit; + CDS_GX.FieldByName('page').AsString := 'frameJGQXList4'; + CDS_GX.Post; + + SCSHData(ADOQueryTemp, frameJGQXList4.Panel_jgqx, 2); + frameJGQXList4.jgqx_note.Lines.Text := ADOQueryTemp.FieldByName('jgqx_note').AsString; + + SCreateCDS(ADOQueryCmd, frameJGQXList4.CDS_JGQX); + SInitCDSData(ADOQueryCmd, frameJGQXList4.CDS_JGQX); end; end else if CDS_GX.FieldByName('PSType').AsString = 'ɶ' then @@ -486,6 +557,23 @@ begin SCSHData(ADOQueryTemp, frameGDXList3.Panel_dx, 2); frameGDXList3.dx_Precautions.Lines.Text := ADOQueryTemp.FieldByName('dx_Precautions').AsString; + end + else if self.FindComponent('frameGDXList4') = nil then + begin + frameGDXList4 := TframeGDXList.Create(self); + frameGDXList4.Name := 'frameGDXList4'; + frameGDXList4.Parent := self.ScrollBox1; + frameGDXList4.Top := GetNextFrameTop; + frameGDXList4.Visible := True; + frameGDXList4.LabelGDX.Caption := CDS_GX.FieldByName('PSName').AsString; + frameGDXList4.InitGrid(); + + CDS_GX.Edit; + CDS_GX.FieldByName('page').AsString := 'frameGDXList4'; + CDS_GX.Post; + + SCSHData(ADOQueryTemp, frameGDXList4.Panel_dx, 2); + frameGDXList4.dx_Precautions.Lines.Text := ADOQueryTemp.FieldByName('dx_Precautions').AsString; end; end else if CDS_GX.FieldByName('PSType').AsString = 'ˮ' then @@ -559,6 +647,29 @@ begin SCreateCDS(ADOQueryCmd, frameFSList3.CDS_fS); SInitCDSData(ADOQueryCmd, frameFSList3.CDS_fS); end + else if self.FindComponent('frameFSList4') = nil then + begin + frameFSList4 := tframeFSList.Create(self); + frameFSList4.Name := 'frameFSList4'; + frameFSList4.Parent := self.ScrollBox1; + frameFSList4.Top := GetNextFrameTop; + frameFSList4.Visible := True; + frameFSList4.LabelFS.Caption := CDS_GX.FieldByName('PSName').AsString; + frameFSList4.InitGrid(); + + frameFSList4.TbFSAdd.Visible := False; + frameFSList4.TbFSDel.Visible := False; + + CDS_GX.Edit; + CDS_GX.FieldByName('page').AsString := 'frameFSList4'; + CDS_GX.Post; + + SCSHData(ADOQueryTemp, frameFSList4.Panel_fs, 2); + frameFSList4.fs_Precautions.Lines.Text := ADOQueryTemp.FieldByName('fs_Precautions').AsString; + + SCreateCDS(ADOQueryCmd, frameFSList4.CDS_fS); + SInitCDSData(ADOQueryCmd, frameFSList4.CDS_fS); + end; end else if CDS_GX.FieldByName('PSType').AsString = '' then begin @@ -631,6 +742,29 @@ begin SCreateCDS(ADOQueryCmd, frameFPList3.CDS_FP); SInitCDSData(ADOQueryCmd, frameFPList3.CDS_FP); + end + else if self.FindComponent('frameFPList4') = nil then + begin + frameFPList4 := TframeFPList.Create(self); + frameFPList4.Name := 'frameFPList4'; + frameFPList4.Parent := self.ScrollBox1; + frameFPList4.Top := GetNextFrameTop; + frameFPList4.Visible := True; + frameFPList4.LabelFP.Caption := CDS_GX.FieldByName('PSName').AsString; + frameFPList4.InitGrid(); + + frameFPList4.TbFPAdd.Visible := False; + frameFPList4.TbFPDel.Visible := False; + + CDS_GX.Edit; + CDS_GX.FieldByName('page').AsString := 'frameFPList4'; + CDS_GX.Post; + + SCSHData(ADOQueryTemp, frameFPList4.Panel_fp, 2); + frameFPList4.fp_Precautions.Lines.Text := ADOQueryTemp.FieldByName('fp_Precautions').AsString; + + SCreateCDS(ADOQueryCmd, frameFPList4.CDS_FP); + SInitCDSData(ADOQueryCmd, frameFPList4.CDS_FP); end; end @@ -704,6 +838,29 @@ begin SCreateCDS(ADOQueryCmd, frameGJList3.CDS_GJ); SInitCDSData(ADOQueryCmd, frameGJList3.CDS_GJ); + end + else if self.FindComponent('frameGJList4') = nil then + begin + frameGJList4 := TframeGJList.Create(self); + frameGJList4.Name := 'frameGJList4'; + frameGJList4.Parent := self.ScrollBox1; + frameGJList4.Top := GetNextFrameTop; + frameGJList4.Visible := True; + frameGJList4.LabelGJ.Caption := CDS_GX.FieldByName('PSName').AsString; + frameGJList4.InitGrid(); + + frameGJList4.TbGJAdd.Visible := False; + frameGJList4.TbGJDel.Visible := False; + + CDS_GX.Edit; + CDS_GX.FieldByName('page').AsString := 'frameGJList4'; + CDS_GX.Post; + + SCSHData(ADOQueryTemp, frameGJList4.Panel_gj, 2); + frameGJList4.gj_Precautions.Lines.Text := ADOQueryTemp.FieldByName('gj_Precautions').AsString; + + SCreateCDS(ADOQueryCmd, frameGJList4.CDS_GJ); + SInitCDSData(ADOQueryCmd, frameGJList4.CDS_GJ); end; end else if CDS_GX.FieldByName('PSType').AsString = 'ë' then @@ -761,6 +918,24 @@ begin SCSHData(ADOQueryTemp, frameYMList3.Panel_zm, 2); frameYMList3.zm_Precautions.Lines.Text := ADOQueryTemp.FieldByName('zm_Precautions').AsString; + end + else if self.FindComponent('frameYMList4') = nil then + begin + frameYMList4 := TframeYMList.Create(self); + frameYMList4.Name := 'frameYMList4'; + frameYMList4.Parent := self.ScrollBox1; + frameYMList4.Top := GetNextFrameTop; + frameYMList4.Visible := True; + frameYMList4.LabelYM.Caption := CDS_GX.FieldByName('PSName').AsString; + frameYMList4.InitGrid(); + + CDS_GX.Edit; + CDS_GX.FieldByName('page').AsString := 'frameYMList4'; + CDS_GX.Post; + + SCSHData(ADOQueryTemp, frameYMList4.Panel_zm, 2); + frameYMList4.zm_Precautions.Lines.Text := ADOQueryTemp.FieldByName('zm_Precautions').AsString; + end; end else if CDS_GX.FieldByName('PSType').AsString = 'Ĵ' then @@ -818,6 +993,24 @@ begin SCSHData(ADOQueryTemp, framePDList3.Panel_pd, 2); // frameYMList3.zm_Precautions.Lines.Text := ADOQueryTemp.FieldByName('zm_Precautions').AsString; + end + else if self.FindComponent('framePDList4') = nil then + begin + framePDList4 := TframePDList.Create(self); + framePDList4.Name := 'framePDList4'; + framePDList4.Parent := self.ScrollBox1; + framePDList4.Top := GetNextFrameTop; + framePDList4.Visible := True; + framePDList4.LabelPD.Caption := CDS_GX.FieldByName('PSName').AsString; + framePDList4.InitGrid(); + + CDS_GX.Edit; + CDS_GX.FieldByName('page').AsString := 'framePDList4'; + CDS_GX.Post; + + SCSHData(ADOQueryTemp, framePDList4.Panel_pd, 2); +// frameYMList3.zm_Precautions.Lines.Text := ADOQueryTemp.FieldByName('zm_Precautions').AsString; + end; end; CDS_GX.Next; @@ -834,7 +1027,7 @@ var Component: TComponent; begin // ر GDXList - for i := 1 to 3 do + for i := 1 to 4 do begin Component := self.FindComponent('frameGDXList' + IntToStr(i)); if Component <> nil then @@ -844,7 +1037,7 @@ begin end; // ر FSList - for i := 1 to 3 do + for i := 1 to 4 do begin Component := self.FindComponent('frameFSList' + IntToStr(i)); if Component <> nil then @@ -854,7 +1047,7 @@ begin end; // ر FPList - for i := 1 to 3 do + for i := 1 to 4 do begin Component := self.FindComponent('frameFPList' + IntToStr(i)); if Component <> nil then @@ -864,7 +1057,7 @@ begin end; // ر GJList - for i := 1 to 3 do + for i := 1 to 4 do begin Component := self.FindComponent('frameGJList' + IntToStr(i)); if Component <> nil then @@ -873,7 +1066,7 @@ begin end; end; - for i := 1 to 3 do + for i := 1 to 4 do begin Component := self.FindComponent('frameCCQXList' + IntToStr(i)); if Component <> nil then @@ -881,7 +1074,7 @@ begin TFrame(Component).Free; end; end; - for i := 1 to 3 do + for i := 1 to 4 do begin Component := self.FindComponent('frameRGQXList' + IntToStr(i)); if Component <> nil then @@ -889,7 +1082,7 @@ begin TFrame(Component).Free; end; end; - for i := 1 to 3 do + for i := 1 to 4 do begin Component := self.FindComponent('frameJGQXList' + IntToStr(i)); if Component <> nil then @@ -897,7 +1090,7 @@ begin TFrame(Component).Free; end; end; - for i := 1 to 3 do + for i := 1 to 4 do begin Component := self.FindComponent('frameYMList' + IntToStr(i)); if Component <> nil then @@ -905,7 +1098,7 @@ begin TFrame(Component).Free; end; end; - for i := 1 to 3 do + for i := 1 to 4 do begin Component := self.FindComponent('framePDList' + IntToStr(i)); if Component <> nil then @@ -950,6 +1143,8 @@ begin SetStatus(); InitGlide(); + GYNote.lines.Text := 'ձע' + CDS_GX.FieldByName('GYNote').AsString; + TbShow.Click; KeyPreview := True; @@ -958,7 +1153,6 @@ end; procedure TfrmDyeSimpleTechnicsKaiKa.ToolButton3Click(Sender: TObject); begin WriteCxGrid(trim(self.Caption) + 'Tv3', Tv3, '׹չ'); - end; procedure TfrmDyeSimpleTechnicsKaiKa.TbDeleteClick(Sender: TObject); diff --git a/F02染色计划单/U_DyeSimpleTechnicsList.dfm b/F02染色计划单/U_DyeSimpleTechnicsList.dfm index 3243779..52872a1 100644 --- a/F02染色计划单/U_DyeSimpleTechnicsList.dfm +++ b/F02染色计划单/U_DyeSimpleTechnicsList.dfm @@ -5,6 +5,7 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList ClientWidth = 1540 Position = poDesigned OnKeyDown = FormKeyDown + ExplicitTop = -259 ExplicitWidth = 1556 ExplicitHeight = 884 PixelsPerInch = 96 @@ -248,6 +249,8 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList Height = 709 Align = alLeft TabOrder = 3 + ExplicitLeft = -2 + ExplicitTop = 142 object cxGrid2: TcxGrid Left = 1 Top = 1 @@ -360,11 +363,13 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList Height = 707 Align = alClient TabOrder = 1 + ExplicitLeft = 634 + ExplicitTop = 6 object cxGrid1: TcxGrid Left = 1 Top = 1 Width = 147 - Height = 385 + Height = 232 Align = alTop TabOrder = 0 object Tv1: TcxGridDBTableView @@ -392,9 +397,10 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList object ToolBar2: TToolBar Tag = 1 Left = 1 - Top = 386 + Top = 380 Width = 147 Height = 76 + Align = alBottom AutoSize = True ButtonHeight = 38 ButtonWidth = 75 @@ -403,6 +409,7 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList List = True ShowCaptions = True TabOrder = 1 + ExplicitTop = 299 object ToolButton5: TToolButton Left = 0 Top = 0 @@ -441,10 +448,10 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList end object cxGrid3: TcxGrid Left = 1 - Top = 462 + Top = 456 Width = 147 - Height = 244 - Align = alClient + Height = 250 + Align = alBottom TabOrder = 2 LookAndFeel.NativeStyle = False object Tv3: TcxGridDBTableView @@ -495,6 +502,25 @@ inherited frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList GridView = Tv3 end end + object Panel4: TPanel + Left = 1 + Top = 233 + Width = 147 + Height = 61 + Align = alTop + TabOrder = 3 + object GYNote: TMemo + Left = 1 + Top = 1 + Width = 145 + Height = 59 + Align = alTop + ReadOnly = True + TabOrder = 0 + ExplicitLeft = 2 + ExplicitTop = 9 + end + end end object cxSplitter1: TcxSplitter Left = 631 diff --git a/F02染色计划单/U_DyeSimpleTechnicsList.pas b/F02染色计划单/U_DyeSimpleTechnicsList.pas index 5ca3333..568a381 100644 --- a/F02染色计划单/U_DyeSimpleTechnicsList.pas +++ b/F02染色计划单/U_DyeSimpleTechnicsList.pas @@ -93,6 +93,8 @@ type Tv3PSName: TcxGridDBColumn; Tv3PSID: TcxGridDBColumn; Tv3Page: TcxGridDBColumn; + Panel4: TPanel; + GYNote: TMemo; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -151,15 +153,15 @@ type var frmDyeSimpleTechnicsList: TfrmDyeSimpleTechnicsList; - frameFPList1, frameFPList2, frameFPList3: tframeFPList; - frameGJList1, frameGJList2, frameGJList3: tframeGJList; - frameFSList1, frameFSList2, frameFSList3: tframeFSList; - frameGDXList1, frameGDXList2, frameGDXList3: TframeGDXList; - frameJGQXList1, frameJGQXList2, frameJGQXList3: TframeJGQXList; - frameRGQXList1, frameRGQXList2, frameRGQXList3: TframeRGQXList; - frameCCQXList1, frameCCQXList2, frameCCQXList3: TframeCCQXList; - frameYMList1, frameYMList2, frameYMList3: TframeYMList; - framePDList1, framePDList2, framePDList3: TframePDList; + frameFPList1, frameFPList2, frameFPList3, frameFPList4: tframeFPList; + frameGJList1, frameGJList2, frameGJList3, frameGJList4: tframeGJList; + frameFSList1, frameFSList2, frameFSList3, frameFSList4: tframeFSList; + frameGDXList1, frameGDXList2, frameGDXList3, frameGDXList4: TframeGDXList; + frameJGQXList1, frameJGQXList2, frameJGQXList3, frameJGQXList4: TframeJGQXList; + frameRGQXList1, frameRGQXList2, frameRGQXList3, frameRGQXList4: TframeRGQXList; + frameCCQXList1, frameCCQXList2, frameCCQXList3, frameCCQXList4: TframeCCQXList; + frameYMList1, frameYMList2, frameYMList3, frameYMList4: TframeYMList; + framePDList1, framePDList2, framePDList3, framePDList4: TframePDList; implementation @@ -443,6 +445,10 @@ begin else if CDS_GX.FieldByName('page').AsString = 'frameCCQXList3' then begin frameCCQXList3.SaveData(maxId); + end + else if CDS_GX.FieldByName('page').AsString = 'frameCCQXList4' then + begin + frameCCQXList4.SaveData(maxId); end; end else if mPSType = 'Ⱦϴ' then @@ -458,6 +464,10 @@ begin else if CDS_GX.FieldByName('page').AsString = 'frameRGQXList3' then begin frameRGQXList3.SaveData(maxId); + end + else if CDS_GX.FieldByName('page').AsString = 'frameRGQXList4' then + begin + frameRGQXList4.SaveData(maxId); end; end else if mPSType = 'ϴ' then @@ -473,6 +483,10 @@ begin else if CDS_GX.FieldByName('page').AsString = 'frameJGQXList3' then begin frameJGQXList3.SaveData(maxId); + end + else if CDS_GX.FieldByName('page').AsString = 'frameJGQXList4' then + begin + frameJGQXList4.SaveData(maxId); end; end else if mPSType = 'ɶ' then @@ -488,6 +502,10 @@ begin else if CDS_GX.FieldByName('page').AsString = 'frameGDXList3' then begin frameGDXList3.SaveData(maxId); + end + else if CDS_GX.FieldByName('page').AsString = 'frameGDXList4' then + begin + frameGDXList4.SaveData(maxId); end; end else if mPSType = 'ˮ' then @@ -503,6 +521,10 @@ begin else if CDS_GX.FieldByName('page').AsString = 'frameFSList3' then begin frameFSList3.SaveData(maxId); + end + else if CDS_GX.FieldByName('page').AsString = 'frameFSList4' then + begin + frameFSList4.SaveData(maxId); end; end else if mPSType = '' then @@ -518,6 +540,10 @@ begin else if CDS_GX.FieldByName('page').AsString = 'frameFPList3' then begin frameFPList3.SaveData(maxId); + end + else if CDS_GX.FieldByName('page').AsString = 'frameFPList4' then + begin + frameFPList4.SaveData(maxId); end; end else if mPSType = 'ν' then @@ -533,6 +559,10 @@ begin else if CDS_GX.FieldByName('page').AsString = 'frameGJList3' then begin frameGJList3.SaveData(maxId); + end + else if CDS_GX.FieldByName('page').AsString = 'frameGJList4' then + begin + frameGJList4.SaveData(maxId); end; end else if mPSType = 'ë' then @@ -548,6 +578,10 @@ begin else if CDS_GX.FieldByName('page').AsString = 'frameYMList3' then begin frameYMList3.SaveData(maxId); + end + else if CDS_GX.FieldByName('page').AsString = 'frameYMList4' then + begin + frameYMList4.SaveData(maxId); end; end else if mPSType = 'Ĵ' then @@ -563,6 +597,10 @@ begin else if CDS_GX.FieldByName('page').AsString = 'framePDList3' then begin framePDList3.SaveData(maxId); + end + else if CDS_GX.FieldByName('page').AsString = 'framePDList4' then + begin + framePDList4.SaveData(maxId); end; end; @@ -850,6 +888,26 @@ begin SCreateCDS(ADOQueryCmd, frameCCQXList3.CDS_CCQX); SInitCDSData(ADOQueryCmd, frameCCQXList3.CDS_CCQX); + end + else if self.FindComponent('frameCCQXList4') = nil then + begin + frameCCQXList4 := TframeCCQXList.Create(self); + frameCCQXList4.Name := 'frameCCQXList4'; + frameCCQXList4.Parent := self.ScrollBox1; + frameCCQXList4.Top := GetNextFrameTop; + frameCCQXList4.Visible := True; + frameCCQXList4.LabelCCQX.Caption := CDS_GX.FieldByName('PSName').AsString; + frameCCQXList4.InitGrid(); + + CDS_GX.Edit; + CDS_GX.FieldByName('page').AsString := 'frameCCQXList4'; + CDS_GX.Post; + + SCSHData(ADOQueryTemp, frameCCQXList4.Panel_ccqx, 2); + frameCCQXList4.ccqx_note.Lines.Text := ADOQueryTemp.FieldByName('ccqx_note').AsString; + + SCreateCDS(ADOQueryCmd, frameCCQXList4.CDS_CCQX); + SInitCDSData(ADOQueryCmd, frameCCQXList4.CDS_CCQX); end; end else if CDS_GX.FieldByName('PSType').AsString = 'Ⱦϴ' then @@ -913,6 +971,26 @@ begin SCreateCDS(ADOQueryCmd, frameRGQXList3.CDS_rgQX); SInitCDSData(ADOQueryCmd, frameRGQXList3.CDS_RGQX); + end + else if self.FindComponent('frameRGQXList4') = nil then + begin + frameRGQXList4 := TframeRGQXList.Create(self); + frameRGQXList4.Name := 'frameRGQXList4'; + frameRGQXList4.Parent := self.ScrollBox1; + frameRGQXList4.Top := GetNextFrameTop; + frameRGQXList4.Visible := True; + frameRGQXList4.LabelRGQX.Caption := CDS_GX.FieldByName('PSName').AsString; + frameRGQXList4.InitGrid(); + + CDS_GX.Edit; + CDS_GX.FieldByName('page').AsString := 'frameRGQXList4'; + CDS_GX.Post; + + SCSHData(ADOQueryTemp, frameRGQXList4.Panel_rgqx, 2); + frameRGQXList4.rgqx_note.Lines.Text := ADOQueryTemp.FieldByName('rgqx_note').AsString; + + SCreateCDS(ADOQueryCmd, frameRGQXList4.CDS_rgQX); + SInitCDSData(ADOQueryCmd, frameRGQXList4.CDS_RGQX); end; end else if CDS_GX.FieldByName('PSType').AsString = 'ϴ' then @@ -976,6 +1054,26 @@ begin SCreateCDS(ADOQueryCmd, frameJGQXList3.CDS_JGQX); SInitCDSData(ADOQueryCmd, frameJGQXList3.CDS_JGQX); + end + else if self.FindComponent('frameJGQXList4') = nil then + begin + frameJGQXList4 := TframeJGQXList.Create(self); + frameJGQXList4.Name := 'frameJGQXList4'; + frameJGQXList4.Parent := self.ScrollBox1; + frameJGQXList4.Top := GetNextFrameTop; + frameJGQXList4.Visible := True; + frameJGQXList4.LabelJGQX.Caption := CDS_GX.FieldByName('PSName').AsString; + frameJGQXList4.InitGrid(); + + CDS_GX.Edit; + CDS_GX.FieldByName('page').AsString := 'frameJGQXList4'; + CDS_GX.Post; + + SCSHData(ADOQueryTemp, frameJGQXList4.Panel_jgqx, 2); + frameJGQXList4.jgqx_note.Lines.Text := ADOQueryTemp.FieldByName('jgqx_note').AsString; + + SCreateCDS(ADOQueryCmd, frameJGQXList4.CDS_JGQX); + SInitCDSData(ADOQueryCmd, frameJGQXList4.CDS_JGQX); end; end else if CDS_GX.FieldByName('PSType').AsString = 'ɶ' then @@ -1030,6 +1128,23 @@ begin SCSHData(ADOQueryTemp, frameGDXList3.Panel_dx, 2); frameGDXList3.dx_Precautions.Lines.Text := ADOQueryTemp.FieldByName('dx_Precautions').AsString; + end + else if self.FindComponent('frameGDXList4') = nil then + begin + frameGDXList4 := TframeGDXList.Create(self); + frameGDXList4.Name := 'frameGDXList4'; + frameGDXList4.Parent := self.ScrollBox1; + frameGDXList4.Top := GetNextFrameTop; + frameGDXList4.Visible := True; + frameGDXList4.LabelGDX.Caption := CDS_GX.FieldByName('PSName').AsString; + frameGDXList4.InitGrid(); + + CDS_GX.Edit; + CDS_GX.FieldByName('page').AsString := 'frameGDXList4'; + CDS_GX.Post; + + SCSHData(ADOQueryTemp, frameGDXList4.Panel_dx, 2); + frameGDXList4.dx_Precautions.Lines.Text := ADOQueryTemp.FieldByName('dx_Precautions').AsString; end; end else if CDS_GX.FieldByName('PSType').AsString = 'ˮ' then @@ -1094,6 +1209,26 @@ begin SCreateCDS(ADOQueryCmd, frameFSList3.CDS_fS); SInitCDSData(ADOQueryCmd, frameFSList3.CDS_fS); end + else if self.FindComponent('frameFSList4') = nil then + begin + frameFSList4 := tframeFSList.Create(self); + frameFSList4.Name := 'frameFSList4'; + frameFSList4.Parent := self.ScrollBox1; + frameFSList4.Top := GetNextFrameTop; + frameFSList4.Visible := True; + frameFSList4.LabelFS.Caption := CDS_GX.FieldByName('PSName').AsString; + frameFSList4.InitGrid(); + + CDS_GX.Edit; + CDS_GX.FieldByName('page').AsString := 'frameFSList4'; + CDS_GX.Post; + + SCSHData(ADOQueryTemp, frameFSList4.Panel_fs, 2); + frameFSList4.fs_Precautions.Lines.Text := ADOQueryTemp.FieldByName('fs_Precautions').AsString; + + SCreateCDS(ADOQueryCmd, frameFSList4.CDS_fS); + SInitCDSData(ADOQueryCmd, frameFSList4.CDS_fS); + end; end else if CDS_GX.FieldByName('PSType').AsString = '' then begin @@ -1157,6 +1292,26 @@ begin SCreateCDS(ADOQueryCmd, frameFPList3.CDS_FP); SInitCDSData(ADOQueryCmd, frameFPList3.CDS_FP); + end + else if self.FindComponent('frameFPList4') = nil then + begin + frameFPList4 := TframeFPList.Create(self); + frameFPList4.Name := 'frameFPList4'; + frameFPList4.Parent := self.ScrollBox1; + frameFPList4.Top := GetNextFrameTop; + frameFPList4.Visible := True; + frameFPList4.LabelFP.Caption := CDS_GX.FieldByName('PSName').AsString; + frameFPList4.InitGrid(); + + CDS_GX.Edit; + CDS_GX.FieldByName('page').AsString := 'frameFPList4'; + CDS_GX.Post; + + SCSHData(ADOQueryTemp, frameFPList4.Panel_fp, 2); + frameFPList4.fp_Precautions.Lines.Text := ADOQueryTemp.FieldByName('fp_Precautions').AsString; + + SCreateCDS(ADOQueryCmd, frameFPList4.CDS_FP); + SInitCDSData(ADOQueryCmd, frameFPList4.CDS_FP); end; end @@ -1221,6 +1376,26 @@ begin SCreateCDS(ADOQueryCmd, frameGJList3.CDS_GJ); SInitCDSData(ADOQueryCmd, frameGJList3.CDS_GJ); + end + else if self.FindComponent('frameGJList4') = nil then + begin + frameGJList4 := TframeGJList.Create(self); + frameGJList4.Name := 'frameGJList4'; + frameGJList4.Parent := self.ScrollBox1; + frameGJList4.Top := GetNextFrameTop; + frameGJList4.Visible := True; + frameGJList4.LabelGJ.Caption := CDS_GX.FieldByName('PSName').AsString; + frameGJList4.InitGrid(); + + CDS_GX.Edit; + CDS_GX.FieldByName('page').AsString := 'frameGJList4'; + CDS_GX.Post; + + SCSHData(ADOQueryTemp, frameGJList4.Panel_gj, 2); + frameGJList4.gj_Precautions.Lines.Text := ADOQueryTemp.FieldByName('gj_Precautions').AsString; + + SCreateCDS(ADOQueryCmd, frameGJList4.CDS_GJ); + SInitCDSData(ADOQueryCmd, frameGJList4.CDS_GJ); end; end else if CDS_GX.FieldByName('PSType').AsString = 'ë' then @@ -1278,6 +1453,24 @@ begin SCSHData(ADOQueryTemp, frameYMList3.Panel_zm, 2); frameYMList3.zm_Precautions.Lines.Text := ADOQueryTemp.FieldByName('zm_Precautions').AsString; + end + else if self.FindComponent('frameYMList4') = nil then + begin + frameYMList4 := TframeYMList.Create(self); + frameYMList4.Name := 'frameYMList4'; + frameYMList4.Parent := self.ScrollBox1; + frameYMList4.Top := GetNextFrameTop; + frameYMList4.Visible := True; + frameYMList4.LabelYM.Caption := CDS_GX.FieldByName('PSName').AsString; + frameYMList4.InitGrid(); + + CDS_GX.Edit; + CDS_GX.FieldByName('page').AsString := 'frameYMList4'; + CDS_GX.Post; + + SCSHData(ADOQueryTemp, frameYMList4.Panel_zm, 2); + frameYMList4.zm_Precautions.Lines.Text := ADOQueryTemp.FieldByName('zm_Precautions').AsString; + end; end else if CDS_GX.FieldByName('PSType').AsString = 'Ĵ' then @@ -1335,6 +1528,24 @@ begin SCSHData(ADOQueryTemp, framePDList3.Panel_pd, 2); // frameYMList3.zm_Precautions.Lines.Text := ADOQueryTemp.FieldByName('zm_Precautions').AsString; + end + else if self.FindComponent('framePDList4') = nil then + begin + framePDList4 := TframePDList.Create(self); + framePDList4.Name := 'framePDList4'; + framePDList4.Parent := self.ScrollBox1; + framePDList4.Top := GetNextFrameTop; + framePDList4.Visible := True; + framePDList4.LabelPD.Caption := CDS_GX.FieldByName('PSName').AsString; + framePDList4.InitGrid(); + + CDS_GX.Edit; + CDS_GX.FieldByName('page').AsString := 'framePDList4'; + CDS_GX.Post; + + SCSHData(ADOQueryTemp, framePDList4.Panel_pd, 2); +// frameYMList3.zm_Precautions.Lines.Text := ADOQueryTemp.FieldByName('zm_Precautions').AsString; + end; end; CDS_GX.Next; @@ -1351,7 +1562,7 @@ var Component: TComponent; begin // ر GDXList - for i := 1 to 3 do + for i := 1 to 4 do begin Component := self.FindComponent('frameGDXList' + IntToStr(i)); if Component <> nil then @@ -1361,7 +1572,7 @@ begin end; // ر FSList - for i := 1 to 3 do + for i := 1 to 4 do begin Component := self.FindComponent('frameFSList' + IntToStr(i)); if Component <> nil then @@ -1371,7 +1582,7 @@ begin end; // ر FPList - for i := 1 to 3 do + for i := 1 to 4 do begin Component := self.FindComponent('frameFPList' + IntToStr(i)); if Component <> nil then @@ -1381,7 +1592,7 @@ begin end; // ر GJList - for i := 1 to 3 do + for i := 1 to 4 do begin Component := self.FindComponent('frameGJList' + IntToStr(i)); if Component <> nil then @@ -1390,7 +1601,7 @@ begin end; end; - for i := 1 to 3 do + for i := 1 to 4 do begin Component := self.FindComponent('frameCCQXList' + IntToStr(i)); if Component <> nil then @@ -1398,7 +1609,7 @@ begin TFrame(Component).Free; end; end; - for i := 1 to 3 do + for i := 1 to 4 do begin Component := self.FindComponent('frameRGQXList' + IntToStr(i)); if Component <> nil then @@ -1406,7 +1617,7 @@ begin TFrame(Component).Free; end; end; - for i := 1 to 3 do + for i := 1 to 4 do begin Component := self.FindComponent('frameJGQXList' + IntToStr(i)); if Component <> nil then @@ -1414,7 +1625,7 @@ begin TFrame(Component).Free; end; end; - for i := 1 to 3 do + for i := 1 to 4 do begin Component := self.FindComponent('frameYMList' + IntToStr(i)); if Component <> nil then @@ -1422,7 +1633,7 @@ begin TFrame(Component).Free; end; end; - for i := 1 to 3 do + for i := 1 to 4 do begin Component := self.FindComponent('framePDList' + IntToStr(i)); if Component <> nil then @@ -1861,6 +2072,8 @@ end; procedure TfrmDyeSimpleTechnicsList.Tv2FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); begin + + GYNote.Lines.Text := 'ձע' + CDS_2.FieldByName('GYNote').AsString; // if fState <> '' then // begin CloseAllFrames(); diff --git a/F02染色计划单/U_DyeTechnicsinput.dfm b/F02染色计划单/U_DyeTechnicsinput.dfm index 17fdecf..8456ad0 100644 --- a/F02染色计划单/U_DyeTechnicsinput.dfm +++ b/F02染色计划单/U_DyeTechnicsinput.dfm @@ -31,7 +31,6 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput Height = 553 Align = alClient TabOrder = 0 - ExplicitWidth = 15 object Tv2: TcxGridDBTableView OnDblClick = Tv2DblClick Navigator.Buttons.CustomButtons = <> @@ -176,8 +175,6 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput Align = alClient PopupMenu = PM_1 TabOrder = 0 - ExplicitLeft = 5 - ExplicitTop = 119 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False @@ -325,8 +322,6 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput BevelOuter = bvLowered Color = clSkyBlue TabOrder = 2 - ExplicitLeft = -4 - ExplicitTop = 33 object Label2: TLabel Left = 295 Top = 9 diff --git a/F02染色计划单/U_DyeTechnicsinput.pas b/F02染色计划单/U_DyeTechnicsinput.pas index 47243ad..dbdc10d 100644 --- a/F02染色计划单/U_DyeTechnicsinput.pas +++ b/F02染色计划单/U_DyeTechnicsinput.pas @@ -220,8 +220,10 @@ begin Close; SQL.Clear; SQL.Add(' select * from BS_Cloth_GY_Sub where PSID = ' + QuotedStr(Trim(maxNo))); + sql.Add(' order By serialno'); Open; end; +// ADOQueryCmd.FieldByName('BCPID').ProviderFlags := [pfInKey, pfInWhere]; ADOQueryCmd.First; while not ADOQueryCmd.Eof do begin @@ -266,7 +268,7 @@ begin Exit; end; end - else + else if ADOQueryCmd.FieldByName('gytype').Value = '' then begin if GetLSNo(ADOQueryTemp, maxsubid, 'FP', 'Bs_Cloth_GY_Sub', 5, 1) = False then begin @@ -513,8 +515,6 @@ begin ADOQueryCmd.Next; end; - - with ADOQueryCmd do begin Close; @@ -591,8 +591,7 @@ begin frmDyeTechnicsinput := nil; end; -procedure TfrmDyeTechnicsinput.FormKeyDown(Sender: TObject; var Key: Word; - Shift: TShiftState); +procedure TfrmDyeTechnicsinput.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key = VK_ESCAPE then // VK_ESCAPE ESC ij begin