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

3-3

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2026-03-03 15:50:44 +08:00
parent 14167a5bc7
commit e858e747c2
9 changed files with 529 additions and 92 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

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

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

Binary file not shown.

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

@ -3,7 +3,7 @@ inherited frmDyePlanCardList: TfrmDyePlanCardList
ClientHeight = 632
ClientWidth = 1503
OnKeyDown = FormKeyDown
ExplicitLeft = -652
ExplicitLeft = -361
ExplicitWidth = 1519
ExplicitHeight = 671
PixelsPerInch = 96

16
F02染色计划单/U_DyeSimpleTechnicsKaiKa.dfm
View File

@ -76,10 +76,10 @@ inherited frmDyeSimpleTechnicsKaiKa: TfrmDyeSimpleTechnicsKaiKa
TabOrder = 0
object cxGrid9: TcxGrid
Left = 1
Top = 39
Top = 80
Width = 555
Height = 765
Align = alClient
Height = 724
Align = alBottom
TabOrder = 0
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
@ -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]

238
F02染色计划单/U_DyeSimpleTechnicsKaiKa.pas
View File

@ -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);

36
F02染色计划单/U_DyeSimpleTechnicsList.dfm
View File

@ -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

249
F02染色计划单/U_DyeSimpleTechnicsList.pas
View File

@ -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();

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

@ -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

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

@ -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 ¼üµÄ³£Á¿
begin