From bc0b8f7aef3f8261351d0a40fe587c05c531d9e4 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Fri, 18 Jul 2025 15:42:53 +0800 Subject: [PATCH] =?UTF-8?q?=E7=BB=8F=E8=BD=B4=E4=BB=93=E5=BA=93?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B02基础纱线仓库/U_YarnInfoInPut.pas | 19 +- E00梭织通用窗体/U_TatGYSel.pas | 19 +- E00梭织通用窗体/U_TatPlanSel2.dfm | 2 - E00梭织通用窗体/U_TatPlanSel2.pas | 27 +- E01梭织生产计划/TatPlan.dproj.local | 140 +++---- E01梭织生产计划/TatPlan.identcache | Bin 3050 -> 3050 bytes E01梭织生产计划/U_DataLink.dfm | 4 + E01梭织生产计划/U_DataLink.pas | 39 +- E01梭织生产计划/U_TatGYInPut.dfm | 15 + E01梭织生产计划/U_TatGYInPut.pas | 22 +- E01梭织生产计划/U_TatPlanCard1.pas | 19 +- E01梭织生产计划/U_TatPlanInPut.dfm | 15 + E01梭织生产计划/U_TatPlanInPut.pas | 19 +- E01梭织生产计划/U_TatPlanMachInput.pas | 17 +- E01梭织生产计划/U_TatPlanMachList.pas | 17 +- E02梭织经轴仓库/U_DataLink.pas | 39 +- E02梭织经轴仓库/U_TatWBCardInPut.dfm | 130 ++++--- E02梭织经轴仓库/U_TatWBCardInPut.pas | 60 +-- E02梭织经轴仓库/U_TatWBOutputList.pas | 18 +- E02梭织经轴仓库/U_TatWBOutputList_CZ.pas | 18 +- E02梭织经轴仓库/U_TatWBPlan.dfm | 6 +- E02梭织经轴仓库/U_TatWBPlan.pas | 19 +- E02梭织经轴仓库/U_TatWBPlanCard.dfm | 10 +- E02梭织经轴仓库/U_TatWBPlanCard.pas | 20 +- E02梭织经轴仓库/U_TatWBPlanCardInPut.pas | 19 +- E02梭织经轴仓库/U_TatWBPlanInPut.dfm | 403 ++++++++++++-------- E02梭织经轴仓库/U_TatWBPlanInPut.pas | 72 ++-- E02梭织经轴仓库/U_WBSpecInPut.dfm | 16 + E02梭织经轴仓库/U_WBSpecInPut.pas | 156 +++++++- E02梭织经轴仓库/U_WBSpecList.pas | 19 +- E02梭织经轴仓库/U_WarpBeamInfoList.pas | 19 +- E02梭织经轴仓库/WarpBeamStk.dproj.local | 28 +- E02梭织经轴仓库/WarpBeamStk.identcache | Bin 5308 -> 5308 bytes E02梭织经轴仓库/testDll.identcache | Bin 178 -> 178 bytes T00贸易通用窗体/U_TradeSalesContractSel.pas | 17 +- 35 files changed, 712 insertions(+), 731 deletions(-) diff --git a/B02基础纱线仓库/U_YarnInfoInPut.pas b/B02基础纱线仓库/U_YarnInfoInPut.pas index 12c3190..eca9993 100644 --- a/B02基础纱线仓库/U_YarnInfoInPut.pas +++ b/B02基础纱线仓库/U_YarnInfoInPut.pas @@ -12,23 +12,8 @@ uses cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, U_BaseList, System.ImageList, Vcl.ImgList, cxContainer, cxMaskEdit, cxMemo, cxImageList, dxSkinsCore, - dxSkinsDefaultPainters, dxCore, cxDateUtils, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + dxSkinsDefaultPainters, dxCore, cxDateUtils, dxSkinOffice2013White, + dxSkinSharpPlus, dxSkinWXI; type TfrmYarnInfoInPut = class(TfrmBaseInput) diff --git a/E00梭织通用窗体/U_TatGYSel.pas b/E00梭织通用窗体/U_TatGYSel.pas index 1cca6ca..214f9ab 100644 --- a/E00梭织通用窗体/U_TatGYSel.pas +++ b/E00梭织通用窗体/U_TatGYSel.pas @@ -11,23 +11,8 @@ uses cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxCheckBox, cxCalendar, dxScrollbarAnnotations, - dxSkinsCore, dxSkinsDefaultPainters, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, + dxSkinWXI; type TfrmTatGYSel = class(TfrmBaseHelp) diff --git a/E00梭织通用窗体/U_TatPlanSel2.dfm b/E00梭织通用窗体/U_TatPlanSel2.dfm index 25ea8c8..ffee1a4 100644 --- a/E00梭织通用窗体/U_TatPlanSel2.dfm +++ b/E00梭织通用窗体/U_TatPlanSel2.dfm @@ -170,7 +170,6 @@ inherited frmTatPlanSel2: TfrmTatPlanSel2 #24050#32467#26463 #20840#37096) OnChange = cxTabControl1Change - ExplicitTop = 99 ClientRectBottom = 545 ClientRectLeft = 1 ClientRectRight = 1636 @@ -182,7 +181,6 @@ inherited frmTatPlanSel2: TfrmTatPlanSel2 Height = 521 Align = alClient TabOrder = 0 - ExplicitLeft = 2 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/E00梭织通用窗体/U_TatPlanSel2.pas b/E00梭织通用窗体/U_TatPlanSel2.pas index abb30f3..5cfc74c 100644 --- a/E00梭织通用窗体/U_TatPlanSel2.pas +++ b/E00梭织通用窗体/U_TatPlanSel2.pas @@ -11,23 +11,8 @@ uses cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxCheckBox, cxCalendar, dxScrollbarAnnotations, - dxSkinsCore, dxSkinsDefaultPainters, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - cxPC; + dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, + dxSkinWXI, cxPC; type TfrmTatPlanSel2 = class(TfrmBaseHelp) @@ -88,6 +73,7 @@ type { Private declarations } public FCoType, FAuthority: string; + FISSJ: string; { Public declarations } end; @@ -146,9 +132,16 @@ begin sql.Add(' select *,PZQty=(select count(*) from Tat_WB_Card X where X.OrderNo =A.OrderNo)'); SQL.Add(',apqty=(select sum(WB_YarnLen) from Tat_WB_Card X where X.OrderNo =A.OrderNo)'); sql.Add(',ZS=(select ZS from Bs_Cloth_Info X where X.C_Code =B.C_Code) '); + + sql.Add(',ISSizing=(select ISSizing from Tat_WB_Spec E where E.WB_Code =B.WB_Code) '); sql.Add(' from Tat_Plan_Main A inner join Tat_Plan_Sub B on A.MainId=B.MainId'); //SQL.Add(' where isnull(A.status,''0'')=''9'' '); sql.add('where 1=1'); + if FISSJ = '' then + begin + sql.add('AND (select ISSizing from Tat_WB_Spec E where E.WB_Code =B.WB_Code)='''''); + end; + case cxTabControl1.TabIndex of 0: begin diff --git a/E01梭织生产计划/TatPlan.dproj.local b/E01梭织生产计划/TatPlan.dproj.local index 1ee415d..66121b4 100644 --- a/E01梭织生产计划/TatPlan.dproj.local +++ b/E01梭织生产计划/TatPlan.dproj.local @@ -1,76 +1,76 @@  - 1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.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.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm - 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm - 1899/12/30 00:00:00.000.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas - 1899/12/30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas - 1899/12/30 00:00:00.000.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas= - 1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm - 1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899/12/30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas - 1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm - 1899/12/30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas - 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas - 1899/12/30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas - 1899/12/30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm - 1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm - 1899/12/30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas - 1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.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.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas - 1899/12/30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas - 1899/12/30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas - 1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.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.414,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm - 1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas - 1899/12/30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas - 1899/12/30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas - 1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas - 1899/12/30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm - 1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas - 1899/12/30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.pas - 1899/12/30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm - 1899/12/30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.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.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas - 1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899-12-30 00:00:00.000.220,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas + 1899-12-30 00:00:00.000.873,=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.577,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用窗体\U_FactoryInput2.pas + 1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.dfm + 1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.dfm + 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.469,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachInput.pas + 1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj + 1899-12-30 00:00:00.000.959,D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas= + 1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas= + 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.460,=D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas + 1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.pas + 1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\B02基础纱线仓库\U_YarnInfoInPut.pas + 1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.pas + 1899-12-30 00:00:00.000.258,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas + 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas + 1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas + 1899-12-30 00:00:00.000.628,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.248,=D:\Dp10RepoV1\项目代码\花蝴蝶\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899-12-30 00:00:00.000.383,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanCard1.pas + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas + 1899-12-30 00:00:00.000.228,=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas + 1899-12-30 00:00:00.000.600,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E00梭织通用窗体\U_TatGYSel.dfm + 1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.pas=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.pas + 1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm + 1899-12-30 00:00:00.000.926,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanList.pas + 1899-12-30 00:00:00.000.719,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas + 1899-12-30 00:00:00.000.203,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_WBSpecSel.pas + 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.414,D:\Dp10Repo\项目代码\路尚\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\路尚\E02梭织经轴仓库\U_WBTatPlanSel.dfm + 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas + 1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.957,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYInPut.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanInPut.dfm + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.547,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanMachList.pas + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.747,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatGYList.dfm=D:\Dp10RepoV1\项目代码\D10szKaiXiYa\E01梭织生产计划\U_TatPlanList.dfm + 1899-12-30 00:00:00.000.297,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A00通用组件\FrameDateSel.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.759,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCard1.pas + 1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas + 1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatPlanInPut.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.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas + 1899-12-30 00:00:00.000.416,D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\E01梭织生产计划\U_TatCardInPut1.dfm + 1899-12-30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_JHDTJ.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E01梭织生产计划\U_TatPlanCardWJY.dfm + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas diff --git a/E01梭织生产计划/TatPlan.identcache b/E01梭织生产计划/TatPlan.identcache index bab6648ea4e2cff05f3f3677b38f97d27fe078cc..83807dd3285afd0ade96688ace98c08871937c7f 100644 GIT binary patch delta 120 zcmaDQ{z{xxje&u|ck)7ZjmZL>h8tNT87F&iMNjVIaNHciqy*wPZWd)>W|~~VHf8cR zcB{!e?5`$Euq8}3;E0>Ni7^pKYXWsjPu|5WHF*KM_2e2LJBLYW@>y&P9Fs3_OHJ12NSw^gsy%rDv)JZfCMCwn6FA}~_i|}( zUcfBLG`WyHVe(GaDU;jTUQPC8vjR$LPX5Ji3ez#UluH6Ar#blnqr^m4$;tNI)|2P6 rvQF0H6a$)}Ie7z{(ByrbWgzoF7EJ!ZD7Cqli-U1;Hj~oiG)`Fn{IxII diff --git a/E01梭织生产计划/U_DataLink.dfm b/E01梭织生产计划/U_DataLink.dfm index fd2049e..ced6dad 100644 --- a/E01梭织生产计划/U_DataLink.dfm +++ b/E01梭织生产计划/U_DataLink.dfm @@ -4,6 +4,10 @@ inherited DataLink_TatPlan: TDataLink_TatPlan Height = 349 Width = 482 inherited cxEditStyleController1: TcxEditStyleController + Style.LookAndFeel.SkinName = '' + StyleDisabled.LookAndFeel.SkinName = '' + StyleFocused.LookAndFeel.SkinName = '' + StyleHot.LookAndFeel.SkinName = '' PixelsPerInch = 96 end inherited cxImageList_bar: TcxImageList diff --git a/E01梭织生产计划/U_DataLink.pas b/E01梭织生产计划/U_DataLink.pas index bacf253..63fcfb3 100644 --- a/E01梭织生产计划/U_DataLink.pas +++ b/E01梭织生产计划/U_DataLink.pas @@ -5,41 +5,10 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, - System.ImageList, U_BaseDataLink, - dxCore, cxLocalization, cxImageList, cxGraphics, cxEdit, - cxContainer, dxSkinsForm, - - - - - - - - - - - - - - - - dxLayoutLookAndFeels, dxSkinsCore, dxSkinsDefaultPainters, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - - dxSkinWXI, ; + System.ImageList, U_BaseDataLink, dxCore, cxLocalization, cxImageList, + cxGraphics, cxEdit, cxContainer, dxSkinsForm, dxLayoutLookAndFeels, + dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White, dxSkinSharpPlus, + dxSkinWXI; type TMyThread = class(TThread) diff --git a/E01梭织生产计划/U_TatGYInPut.dfm b/E01梭织生产计划/U_TatGYInPut.dfm index c782dec..98807ca 100644 --- a/E01梭织生产计划/U_TatGYInPut.dfm +++ b/E01梭织生产计划/U_TatGYInPut.dfm @@ -591,6 +591,9 @@ inherited frmTatGYInPut: TfrmTatGYInPut object cxTabSheet1: TcxTabSheet Caption = #32463#19997#32452#21512 ImageIndex = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object GroupBox1: TGroupBox Left = 931 Top = 0 @@ -820,6 +823,9 @@ inherited frmTatGYInPut: TfrmTatGYInPut object cxTabSheet2: TcxTabSheet Caption = #32428#19997#32452#21512 ImageIndex = 1 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object GroupBox2: TGroupBox Left = 863 Top = 0 @@ -1042,6 +1048,9 @@ inherited frmTatGYInPut: TfrmTatGYInPut object cxTabSheet3: TcxTabSheet Caption = #36215#32508#27861 ImageIndex = 3 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object cxGrid4: TcxGrid Left = 0 Top = 344 @@ -1148,6 +1157,9 @@ inherited frmTatGYInPut: TfrmTatGYInPut object cxTabSheet4: TcxTabSheet Caption = #31359#32508#27861 ImageIndex = 3 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object CZF: TMemo Tag = 2 Left = 0 @@ -1168,6 +1180,9 @@ inherited frmTatGYInPut: TfrmTatGYInPut object cxTabSheet5: TcxTabSheet Caption = #31359#31576#27861 ImageIndex = 3 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object CKF: TMemo Tag = 2 Left = 0 diff --git a/E01梭织生产计划/U_TatGYInPut.pas b/E01梭织生产计划/U_TatGYInPut.pas index f57537e..bb728d8 100644 --- a/E01梭织生产计划/U_TatGYInPut.pas +++ b/E01梭织生产计划/U_TatGYInPut.pas @@ -20,23 +20,8 @@ uses dxSpreadSheetHyperlinks, dxSpreadSheetFunctions, dxSpreadSheetStyles, dxSpreadSheetGraphics, dxSpreadSheetPrinting, dxSpreadSheetTypes, dxSpreadSheetUtils, dxSpreadSheetFormattedTextUtils, dxSpreadSheet, - dxSkinsCore, dxSkinsDefaultPainters, cxImageList, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White, + dxSkinSharpPlus, dxSkinWXI; type TfrmTatGYInPut = class(TfrmBaseInput) @@ -1742,14 +1727,11 @@ begin self.CustName.Properties.LookupItems.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BuyNo').AsString); self.CustName.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('BuyName').AsString); - self.ConNo.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConNo').AsString); self.ConMId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConMId').AsString); self.ConSId.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('ConSId').AsString); self.C_Code.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Code').AsString); - - self.C_GramWeight.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_GramWeight').AsString); self.C_Color.Text := Trim(frmTradeSalesContractSel.CDS_1.fieldbyname('C_Color').AsString); diff --git a/E01梭织生产计划/U_TatPlanCard1.pas b/E01梭织生产计划/U_TatPlanCard1.pas index 47d64c1..d1a293e 100644 --- a/E01梭织生产计划/U_TatPlanCard1.pas +++ b/E01梭织生产计划/U_TatPlanCard1.pas @@ -13,23 +13,8 @@ uses BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, Vcl.Menus, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils, cxMaskEdit, cxDropDownEdit, dxSkinsCore, - dxSkinsDefaultPainters, cxProgressBar, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus, + dxSkinWXI; type TfrmTatPlanCard1 = class(TfrmBaseList) diff --git a/E01梭织生产计划/U_TatPlanInPut.dfm b/E01梭织生产计划/U_TatPlanInPut.dfm index 1dc38d1..6981acb 100644 --- a/E01梭织生产计划/U_TatPlanInPut.dfm +++ b/E01梭织生产计划/U_TatPlanInPut.dfm @@ -697,6 +697,9 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object cxTabSheet1: TcxTabSheet Caption = #32463#19997#32452#21512 ImageIndex = 0 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object GroupBox1: TGroupBox Left = 931 Top = 0 @@ -958,6 +961,9 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object cxTabSheet2: TcxTabSheet Caption = #32428#19997#32452#21512 ImageIndex = 1 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object GroupBox2: TGroupBox Left = 863 Top = 0 @@ -1215,6 +1221,9 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object cxTabSheet3: TcxTabSheet Caption = #36215#32508#27861 ImageIndex = 3 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object cxGrid4: TcxGrid Left = 0 Top = 303 @@ -1321,6 +1330,9 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object cxTabSheet4: TcxTabSheet Caption = #31359#32508#27861 ImageIndex = 3 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object CZF: TMemo Tag = 2 Left = 0 @@ -1341,6 +1353,9 @@ inherited frmTatPlanInPut: TfrmTatPlanInPut object cxTabSheet5: TcxTabSheet Caption = #31359#31576#27861 ImageIndex = 3 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 0 object CKF: TMemo Tag = 2 Left = 0 diff --git a/E01梭织生产计划/U_TatPlanInPut.pas b/E01梭织生产计划/U_TatPlanInPut.pas index 797ff68..273aa25 100644 --- a/E01梭织生产计划/U_TatPlanInPut.pas +++ b/E01梭织生产计划/U_TatPlanInPut.pas @@ -20,23 +20,8 @@ uses dxSpreadSheetHyperlinks, dxSpreadSheetFunctions, dxSpreadSheetStyles, dxSpreadSheetGraphics, dxSpreadSheetPrinting, dxSpreadSheetTypes, dxSpreadSheetUtils, dxSpreadSheetFormattedTextUtils, dxSpreadSheet, - dxSkinsCore, dxSkinsDefaultPainters, cxImageList, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White, + dxSkinSharpPlus, dxSkinWXI; type TfrmTatPlanInPut = class(TfrmBaseInput) diff --git a/E01梭织生产计划/U_TatPlanMachInput.pas b/E01梭织生产计划/U_TatPlanMachInput.pas index 44f7e6c..d8ef475 100644 --- a/E01梭织生产计划/U_TatPlanMachInput.pas +++ b/E01梭织生产计划/U_TatPlanMachInput.pas @@ -11,22 +11,7 @@ uses cxButtonEdit, StdCtrls, ExtCtrls, cxCurrencyEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, cxMaskEdit, dxDateRanges, dxScrollbarAnnotations, cxDropDownEdit, dxSkinsCore, dxSkinsDefaultPainters, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - - dxSkinWXI, ; + dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI; type TfrmTatPlanMachInput = class(TForm) diff --git a/E01梭织生产计划/U_TatPlanMachList.pas b/E01梭织生产计划/U_TatPlanMachList.pas index 043e914..ab727f8 100644 --- a/E01梭织生产计划/U_TatPlanMachList.pas +++ b/E01梭织生产计划/U_TatPlanMachList.pas @@ -14,22 +14,7 @@ uses cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations, dxCore, cxDateUtils, cxMaskEdit, cxCalendar, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, cxImage, cxDBEdit, IdFTP, - ShellAPI, - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - - dxSkinWXI, ; + ShellAPI, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI; type TfrmTatPlanMachList = class(TfrmBaseList) diff --git a/E02梭织经轴仓库/U_DataLink.pas b/E02梭织经轴仓库/U_DataLink.pas index df4b253..845dc69 100644 --- a/E02梭织经轴仓库/U_DataLink.pas +++ b/E02梭织经轴仓库/U_DataLink.pas @@ -5,41 +5,10 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, - System.ImageList, - - - - - - - - - - - - - - - - U_BaseDataLink, dxCore, - cxLocalization, cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm, - dxLayoutLookAndFeels, dxSkinsCore, dxSkinsDefaultPainters, dxSkinWXI, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - - ; + System.ImageList, U_BaseDataLink, dxCore, cxLocalization, cxImageList, + cxGraphics, cxEdit, cxContainer, dxSkinsForm, dxLayoutLookAndFeels, + dxSkinsCore, dxSkinsDefaultPainters, dxSkinWXI, dxSkinOffice2013White, + dxSkinSharpPlus; type TMyThread = class(TThread) diff --git a/E02梭织经轴仓库/U_TatWBCardInPut.dfm b/E02梭织经轴仓库/U_TatWBCardInPut.dfm index 2232445..25ea7a0 100644 --- a/E02梭织经轴仓库/U_TatWBCardInPut.dfm +++ b/E02梭织经轴仓库/U_TatWBCardInPut.dfm @@ -702,8 +702,9 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Color = clWhite ParentBackground = False TabOrder = 1 + ExplicitLeft = -4 object Label15: TLabel - Left = 277 + Left = 237 Top = 18 Width = 64 Height = 21 @@ -733,7 +734,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut ParentColor = False end object Label5: TLabel - Left = 277 + Left = 237 Top = 57 Width = 96 Height = 21 @@ -782,42 +783,35 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Caption = #22987#21514#20301#32622 end object Label18: TLabel - Left = 277 - Top = 137 + Left = 237 + Top = 136 Width = 64 Height = 21 Caption = #19978#25490#39063#25968 end object Label19: TLabel - Left = 277 - Top = 176 + Left = 237 + Top = 175 Width = 32 Height = 21 Caption = #38646#22836 end - object Label20: TLabel - Left = 277 - Top = 215 - Width = 64 - Height = 21 - Caption = #29301#32463#31576#21495 - end object Label22: TLabel - Left = 277 - Top = 254 + Left = 237 + Top = 253 Width = 64 Height = 21 Caption = #22369#26012#24230#25968 end object Label23: TLabel - Left = 277 - Top = 292 + Left = 237 + Top = 293 Width = 96 Height = 21 Caption = #29301#32463#24352#21147#21442#25968 end object Label37: TLabel - Left = 277 + Left = 237 Top = 332 Width = 32 Height = 21 @@ -831,12 +825,26 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Caption = #32455#36896#21333#21495 end object Label47: TLabel - Left = 277 - Top = 95 + Left = 237 + Top = 97 Width = 32 Height = 21 Caption = #23458#25143 end + object Label20: TLabel + Left = 403 + Top = 209 + Width = 64 + Height = 21 + Caption = #29301#32463#31576#21495 + end + object Label39: TLabel + Left = 237 + Top = 214 + Width = 64 + Height = 21 + Caption = #38050#31576#32534#21495 + end object WBCNO: TcxTextEdit Tag = 1 Left = 106 @@ -844,11 +852,11 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut ParentColor = True Properties.ReadOnly = True TabOrder = 0 - Width = 150 + Width = 120 end object WB_Type: TcxComboBox Tag = 1 - Left = 379 + Left = 338 Top = 12 Properties.Items.Strings = ( #22823#36135 @@ -870,11 +878,11 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Properties.OnButtonClick = WB_CodePropertiesButtonClick Style.ButtonStyle = btsDefault TabOrder = 2 - Width = 150 + Width = 120 end object WB_Name: TcxTextEdit Tag = 1 - Left = 379 + Left = 338 Top = 51 ParentColor = True TabOrder = 3 @@ -886,7 +894,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Top = 131 ParentColor = True TabOrder = 4 - Width = 150 + Width = 120 end object WB_Move: TcxTextEdit Tag = 1 @@ -894,7 +902,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Top = 326 ParentColor = True TabOrder = 5 - Width = 150 + Width = 120 end object WB_ReedNote: TcxTextEdit Tag = 1 @@ -902,7 +910,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Top = 248 ParentColor = True TabOrder = 6 - Width = 150 + Width = 120 end object WB_YarnStripQty: TcxTextEdit Tag = 1 @@ -910,7 +918,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Top = 170 ParentColor = True TabOrder = 7 - Width = 150 + Width = 120 end object WB_Width: TcxTextEdit Tag = 1 @@ -918,7 +926,7 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Top = 209 ParentColor = True TabOrder = 8 - Width = 150 + Width = 120 end object WB_Arg_SDWZ: TcxTextEdit Tag = 1 @@ -926,11 +934,11 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Top = 287 ParentColor = True TabOrder = 9 - Width = 150 + Width = 120 end object WB_YarnArr: TcxTextEdit Tag = 1 - Left = 379 + Left = 338 Top = 131 ParentColor = True TabOrder = 10 @@ -938,41 +946,33 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut end object WB_YarnStripRemainder: TcxTextEdit Tag = 1 - Left = 379 + Left = 338 Top = 170 ParentColor = True TabOrder = 11 Width = 150 end - object WB_ReedNo: TcxTextEdit + object WB_Arg_PXDS: TcxTextEdit Tag = 1 - Left = 379 - Top = 209 + Left = 337 + Top = 248 ParentColor = True TabOrder = 12 Width = 150 end - object WB_Arg_PXDS: TcxTextEdit - Tag = 1 - Left = 379 - Top = 248 - ParentColor = True - TabOrder = 13 - Width = 150 - end object WB_Arg_QJZL: TcxTextEdit Tag = 1 - Left = 379 + Left = 337 Top = 287 ParentColor = True - TabOrder = 14 + TabOrder = 13 Width = 150 end object WB_YarnArrNote: TcxMemo Tag = 1 Left = 106 Top = 363 - TabOrder = 15 + TabOrder = 14 Height = 111 Width = 423 end @@ -982,7 +982,9 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Width = 542 Height = 240 Align = alBottom - TabOrder = 16 + TabOrder = 15 + ExplicitLeft = -1 + ExplicitTop = 529 object TV3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -1170,10 +1172,10 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut end object WB_YarnDensity: TcxTextEdit Tag = 1 - Left = 379 + Left = 337 Top = 326 ParentColor = True - TabOrder = 17 + TabOrder = 16 Width = 150 end object GYNo: TcxButtonEdit @@ -1188,13 +1190,13 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Properties.ReadOnly = True Properties.OnButtonClick = GYNoPropertiesButtonClick Style.ButtonStyle = btsDefault - TabOrder = 18 + TabOrder = 17 OnDblClick = GYNoDblClick - Width = 150 + Width = 120 end object CustName: TcxButtonEdit Tag = 1 - Left = 379 + Left = 338 Top = 92 Properties.Buttons = < item @@ -1204,10 +1206,32 @@ inherited frmTatWBCardInPut: TfrmTatWBCardInPut Properties.ReadOnly = True Properties.OnButtonClick = CustNamePropertiesButtonClick Style.ButtonStyle = btsDefault - TabOrder = 19 + TabOrder = 18 OnDblClick = GYNoDblClick Width = 150 end + object WB_ReedNo: TcxTextEdit + Tag = 2 + Left = 473 + Top = 206 + ParentColor = True + Properties.ReadOnly = True + TabOrder = 19 + Width = 65 + end + object GKBH: TcxButtonEdit + Tag = 2 + Left = 308 + Top = 206 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.OnButtonClick = GKBHPropertiesButtonClick + TabOrder = 20 + Width = 89 + end end end inherited ADOQueryBaseCmd: TADOQuery diff --git a/E02梭织经轴仓库/U_TatWBCardInPut.pas b/E02梭织经轴仓库/U_TatWBCardInPut.pas index b70a356..e79dc58 100644 --- a/E02梭织经轴仓库/U_TatWBCardInPut.pas +++ b/E02梭织经轴仓库/U_TatWBCardInPut.pas @@ -13,23 +13,8 @@ uses Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList, cxContainer, cxMaskEdit, cxDropDownEdit, cxRichEdit, cxMemo, dxScrollbarAnnotations, - dxSkinsCore, dxSkinsDefaultPainters, cxImageList, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + dxSkinsCore, dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White, + dxSkinSharpPlus, dxSkinWXI; type TfrmTatWBCardInPut = class(TfrmBaseInput) @@ -87,12 +72,10 @@ type WB_Arg_SDWZ: TcxTextEdit; Label18: TLabel; Label19: TLabel; - Label20: TLabel; Label22: TLabel; Label23: TLabel; WB_YarnArr: TcxTextEdit; WB_YarnStripRemainder: TcxTextEdit; - WB_ReedNo: TcxTextEdit; WB_Arg_PXDS: TcxTextEdit; WB_Arg_QJZL: TcxTextEdit; WB_YarnArrNote: TcxMemo; @@ -174,6 +157,10 @@ type GYNo: TcxButtonEdit; Label47: TLabel; CustName: TcxButtonEdit; + Label20: TLabel; + Label39: TLabel; + WB_ReedNo: TcxTextEdit; + GKBH: TcxButtonEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormShow(Sender: TObject); procedure N2Click(Sender: TObject); @@ -195,6 +182,7 @@ type procedure CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure GYNoPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure GYNoDblClick(Sender: TObject); + procedure GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); private function TestData(): Boolean; procedure PrtDate(MWBCID: string); @@ -205,6 +193,7 @@ type { Private declarations } public FWBCNO: string; + { Public declarations } end; @@ -215,7 +204,8 @@ implementation uses U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_WBTatPlanSel, U_WBSpecSel, - U_WarpBeamInfoSel, U_WBTypeSel, U_CompanySel, U_TatGYSel, U_TatPlanSel2; + U_WarpBeamInfoSel, U_WBTypeSel, U_CompanySel, U_TatGYSel, U_GKManageSel, + U_TatPlanSel2; {$R *.dfm} procedure TfrmTatWBCardInPut.InitCard3(); begin @@ -263,7 +253,7 @@ begin if Trim(WB_ProcessType.Text) = '' then begin if Trim(WB_Macher.Text) = '' then - raise Exception.Create('ǤλΪգ'); + raise Exception.Create('ǤλΪգ'); end; if trim(WB_Code.Text) = '' then raise Exception.Create('ŲΪգ'); @@ -285,7 +275,7 @@ begin if Trim(WB_ProcessType.Text) = '' then begin if Trim(WB_MachNo.Text) = '' then - raise Exception.Create('ǨΪգ'); + raise Exception.Create('ǨΪգ'); end; if Trim(WB_YarnDensity.Text) = '' then raise Exception.Create('ܲΪգ'); @@ -410,6 +400,7 @@ begin frmWBSpecSel := TfrmWBSpecSel.Create(Application); with frmWBSpecSel do begin + if ShowModal = 1 then begin Self.WB_Code.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_Code').AsString); @@ -428,6 +419,8 @@ begin Self.WB_YarnArrNote.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnArrNote').AsString); Self.WB_YarnDensity.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('WB_YarnDensity').AsString); Self.Note.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('Note').AsString); + + Self.gkbh.Text := Trim(frmWBSpecSel.CDS_1.fieldbyname('gkbh').AsString); Self.InitCard3(); end; end; @@ -515,6 +508,24 @@ begin InitCard3(); end; +procedure TfrmTatWBCardInPut.GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmGKManageSel := tfrmGKManageSel.Create(Application); + with frmGKManageSel do + begin + + if ShowModal = 1 then + begin + SELF.GKBH.Text := CDS_HZ.FieldByName('GKBH').AsString; + SELF.WB_ReedNo.Text := CDS_HZ.FieldByName('GKKH').AsString; + end; + end; + finally + frmGKManageSel.Free; + end; +end; + procedure TfrmTatWBCardInPut.GYNoDblClick(Sender: TObject); begin inherited; @@ -529,6 +540,7 @@ begin frmTatPlanSel2 := TfrmTatPlanSel2.Create(Application); with frmTatPlanSel2 do begin + FISSJ := ''; if ShowModal = 1 then begin Self.GYNo.Text := CDS_1.FieldByName('OrderNo').asstring; @@ -618,7 +630,7 @@ begin ////////////////// Ῠ ////////////////////// sql.Add(' insert into Tat_WB_Card(WBCNO,WBCID,WBType,WB_ProcessType,WB_Code,WB_Name,WB_YarnQty,WB_YarnArr,WB_YarnLen,WB_Macher,WB_MachNo,WB_Type,Note,FillId,Filler,WB_YarnDensity'); sql.Add(' ,WB_YarnStripQty,WB_YarnStripRemainder,WB_Width,WB_ReedNo,WB_ReedNote,WB_Arg_PXDS,WB_Arg_SDWZ,WB_Arg_QJZL,WB_Move,WB_YarnArrNote,WBFtyNo,WBFtyName,WBBelong,WBBelongCoNo,WBBelongCoName '); - sql.Add(' ,GYSubid,GYNo,CustNo,CustName'); + sql.Add(' ,GYSubid,GYNo,CustNo,CustName,GKBH'); sql.Add(' ) values'); for i := 1 to MCardQty do begin @@ -667,7 +679,7 @@ begin sql.Add(',' + Quotedstr(Trim(GYNo.Text))); sql.Add(',' + Quotedstr(Trim(CustName.Properties.LookupItems.Text))); sql.Add(',' + Quotedstr(Trim(CustName.Text))); - + sql.Add(',' + Quotedstr(Trim(GKBH.Text))); sql.Add(' )'); end; ////////////////// Ῠ ////////////////////// diff --git a/E02梭织经轴仓库/U_TatWBOutputList.pas b/E02梭织经轴仓库/U_TatWBOutputList.pas index 15f8fb9..26eb34e 100644 --- a/E02梭织经轴仓库/U_TatWBOutputList.pas +++ b/E02梭织经轴仓库/U_TatWBOutputList.pas @@ -14,23 +14,7 @@ uses dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxCheckBox, Vcl.Menus, dxScrollbarAnnotations, FrameDateTimeSel, cxContainer, cxTextEdit, U_SLTGDTP, cxMemo, Vcl.Imaging.jpeg, cxPC, dxSkinsCore, dxSkinsDefaultPainters, - cxProgressBar, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI; type TfrmTatWBOutputList = class(TfrmBaseList) diff --git a/E02梭织经轴仓库/U_TatWBOutputList_CZ.pas b/E02梭织经轴仓库/U_TatWBOutputList_CZ.pas index 1680e77..945538e 100644 --- a/E02梭织经轴仓库/U_TatWBOutputList_CZ.pas +++ b/E02梭织经轴仓库/U_TatWBOutputList_CZ.pas @@ -14,23 +14,7 @@ uses dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxCheckBox, Vcl.Menus, dxScrollbarAnnotations, FrameDateTimeSel, cxContainer, cxTextEdit, U_SLTGDTP, cxMemo, Vcl.Imaging.jpeg, cxPC, dxSkinsCore, dxSkinsDefaultPainters, - cxProgressBar, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI; type TfrmTatWBOutputList_CZ = class(TfrmBaseList) diff --git a/E02梭织经轴仓库/U_TatWBPlan.dfm b/E02梭织经轴仓库/U_TatWBPlan.dfm index 08d0902..b68fef9 100644 --- a/E02梭织经轴仓库/U_TatWBPlan.dfm +++ b/E02梭织经轴仓库/U_TatWBPlan.dfm @@ -202,7 +202,7 @@ inherited frmTatWBPlan: TfrmTatWBPlan Height = 29 Date = 40675.000000000000000000 Format = 'yyyy-MM-dd' - Time = 0.464761099538009100 + Time = 0.464761099538009200 TabOrder = 1 end object CustName: TEdit @@ -715,6 +715,10 @@ inherited frmTatWBPlan: TfrmTatWBPlan end end inherited cxProgressBar2: TcxProgressBar + Left = 280 + Top = 224 + ExplicitLeft = 280 + ExplicitTop = 224 ExplicitHeight = 29 end inherited ADOQueryBaseCmd: TADOQuery diff --git a/E02梭织经轴仓库/U_TatWBPlan.pas b/E02梭织经轴仓库/U_TatWBPlan.pas index 77295fb..6d596f1 100644 --- a/E02梭织经轴仓库/U_TatWBPlan.pas +++ b/E02梭织经轴仓库/U_TatWBPlan.pas @@ -12,23 +12,8 @@ uses RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, cxCheckBox, dxScrollbarAnnotations, Vcl.Menus, cxContainer, - cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + cxProgressBar, dxSkinsCore, dxSkinsDefaultPainters, dxSkinOffice2013White, + dxSkinSharpPlus, dxSkinWXI; type TfrmTatWBPlan = class(TfrmBaseList) diff --git a/E02梭织经轴仓库/U_TatWBPlanCard.dfm b/E02梭织经轴仓库/U_TatWBPlanCard.dfm index fab1406..004c68f 100644 --- a/E02梭织经轴仓库/U_TatWBPlanCard.dfm +++ b/E02梭织经轴仓库/U_TatWBPlanCard.dfm @@ -6,7 +6,6 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard ClientWidth = 1382 Font.Height = -16 Position = poScreenCenter - ExplicitTop = -114 ExplicitWidth = 1398 ExplicitHeight = 739 PixelsPerInch = 96 @@ -196,6 +195,8 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard Align = alLeft PopupMenu = PopupMenu1 TabOrder = 2 + ExplicitLeft = -6 + ExplicitTop = 119 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -390,6 +391,13 @@ inherited frmTatWBPlanCard: TfrmTatWBPlanCard HeaderAlignmentHorz = taCenter Width = 150 end + object TV1Column3: TcxGridDBColumn + Caption = #38050#31576#32534#21495 + DataBinding.FieldName = 'gkbh' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 71 + end end object cxGridLevel1: TcxGridLevel GridView = TV1 diff --git a/E02梭织经轴仓库/U_TatWBPlanCard.pas b/E02梭织经轴仓库/U_TatWBPlanCard.pas index 96275b3..9c2872b 100644 --- a/E02梭织经轴仓库/U_TatWBPlanCard.pas +++ b/E02梭织经轴仓库/U_TatWBPlanCard.pas @@ -13,23 +13,8 @@ uses BtnEdit, RM_BarCode, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, Vcl.Menus, cxContainer, dxScrollbarAnnotations, cxMemo, FrameDateSel, dxSkinsCore, - dxSkinsDefaultPainters, cxProgressBar, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus, + dxSkinWXI; type TfrmTatWBPlanCard = class(TfrmBaseList) @@ -167,6 +152,7 @@ type TV1Column2: TcxGridDBColumn; TV2Column4: TcxGridDBColumn; ToolButton4: TToolButton; + TV1Column3: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject); diff --git a/E02梭织经轴仓库/U_TatWBPlanCardInPut.pas b/E02梭织经轴仓库/U_TatWBPlanCardInPut.pas index dcb8240..34b8a6a 100644 --- a/E02梭织经轴仓库/U_TatWBPlanCardInPut.pas +++ b/E02梭织经轴仓库/U_TatWBPlanCardInPut.pas @@ -12,23 +12,8 @@ uses RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit, cxCheckBox, cxPC, Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxDateRanges, BtnEdit, U_BaseInput, System.ImageList, Vcl.ImgList, - dxScrollbarAnnotations, cxImageList, dxSkinsCore, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - dxSkinsDefaultPainters, - - dxSkinWXI, ; + dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinOffice2013White, + dxSkinSharpPlus, dxSkinsDefaultPainters, dxSkinWXI; type TfrmTatWBPlanCardInPut = class(TfrmBaseInput) diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.dfm b/E02梭织经轴仓库/U_TatWBPlanInPut.dfm index 9b28975..b0dacd9 100644 --- a/E02梭织经轴仓库/U_TatWBPlanInPut.dfm +++ b/E02梭织经轴仓库/U_TatWBPlanInPut.dfm @@ -2,14 +2,14 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Left = 212 Top = 14 Caption = #27974#32433#35745#21010#24405#20837 - ClientHeight = 541 + ClientHeight = 616 ClientWidth = 952 Color = clWhite Font.Charset = GB2312_CHARSET Font.Name = #23435#20307 Position = poScreenCenter ExplicitWidth = 968 - ExplicitHeight = 580 + ExplicitHeight = 655 PixelsPerInch = 96 TextHeight = 12 object ToolBar1: TToolBar [0] @@ -61,16 +61,18 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut end object Panel2: TPanel [1] Left = 0 - Top = 192 + Top = 353 Width = 952 - Height = 349 + Height = 263 Align = alClient TabOrder = 1 + ExplicitTop = 192 + ExplicitHeight = 349 object cxPageControl1: TcxPageControl Left = 1 Top = 42 Width = 950 - Height = 306 + Height = 220 Align = alClient Color = clWhite Font.Charset = GB2312_CHARSET @@ -85,7 +87,8 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Visible = False Properties.CustomButtons.Buttons = <> Properties.Style = 6 - ClientRectBottom = 306 + ExplicitHeight = 306 + ClientRectBottom = 220 ClientRectRight = 950 ClientRectTop = 0 end @@ -93,7 +96,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Left = 1 Top = 42 Width = 950 - Height = 306 + Height = 220 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -102,6 +105,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Font.Style = [] ParentFont = False TabOrder = 1 + ExplicitHeight = 306 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -269,7 +273,7 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Left = 0 Top = 38 Width = 952 - Height = 154 + Height = 315 Align = alTop BevelInner = bvNone BevelOuter = bvNone @@ -282,12 +286,13 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut ParentCtl3D = False ParentFont = False TabOrder = 2 + ExplicitTop = 41 object Label3: TLabel - Left = 12 - Top = 29 - Width = 67 + Left = 639 + Top = 7 + Width = 39 Height = 12 - Caption = #21697' '#21517#65306 + Caption = #21697#21517#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -12 @@ -296,24 +301,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut ParentFont = False end object Label14: TLabel - Left = 14 - Top = 6 - Width = 65 + Left = 1 + Top = 83 + Width = 91 Height = 12 - Caption = #20844#21496#25260#22836#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlue - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - object Label5: TLabel - Left = 470 - Top = 6 - Width = 65 - Height = 12 - Caption = #20132#36135#26085#26399#65306 + Caption = #25972#32463#24037#33402#21333#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -12 @@ -322,11 +314,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut ParentFont = False end object Label16: TLabel - Left = 12 - Top = 72 - Width = 67 + Left = 1 + Top = 232 + Width = 39 Height = 12 - Caption = #22791' '#27880#65306 + Caption = #22791#27880#65306 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 @@ -335,24 +327,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut ParentFont = False end object Label47: TLabel - Left = 238 - Top = 6 - Width = 67 + Left = 435 + Top = 9 + Width = 39 Height = 12 - Caption = #23458' '#25143#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - object Label1: TLabel - Left = 240 - Top = 29 - Width = 65 - Height = 12 - Caption = #24635#32463#26681#25968#65306 + Caption = #23458#25143#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -12 @@ -361,11 +340,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut ParentFont = False end object Label2: TLabel - Left = 431 - Top = 29 - Width = 104 + Left = 1 + Top = 46 + Width = 78 Height = 12 - Caption = #23458#25143#19979#21333#24635#31859#25968#65306 + Caption = #35746#21333#24635#31859#25968#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -12 @@ -374,11 +353,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut ParentFont = False end object Label4: TLabel - Left = 1 - Top = 53 - Width = 78 + Left = 219 + Top = 162 + Width = 65 Height = 12 - Caption = #39044#35745#32463#36724#25968#65306 + Caption = #35745#21010#36724#25968#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -12 @@ -387,37 +366,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut ParentFont = False end object Label6: TLabel - Left = 201 - Top = 53 - Width = 104 - Height = 12 - Caption = #39044#35745#27599#32463#36724#31859#25968#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - object Label7: TLabel - Left = 444 - Top = 53 + Left = 1 + Top = 158 Width = 91 Height = 12 - Caption = #39044#35745#29992#27974#25104#26412#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - object Label8: TLabel - Left = 683 - Top = 6 - Width = 91 - Height = 12 - Caption = #27974#32433#25490#21333#31859#25968#65306 + Caption = #35745#21010#32463#36724#31859#25968#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -12 @@ -426,11 +379,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut ParentFont = False end object Label9: TLabel - Left = 696 - Top = 29 + Left = 435 + Top = 195 Width = 78 Height = 12 - Caption = #39044#35745#27974#36724#25968#65306 + Caption = #35745#21010#27974#36724#25968#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -12 @@ -439,11 +392,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut ParentFont = False end object Label10: TLabel - Left = 696 - Top = 53 + Left = 1 + Top = 196 Width = 78 Height = 12 - Caption = #27599#27974#36724#26681#25968#65306 + Caption = #27974#36724#32433#26681#25968#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -12 @@ -452,11 +405,11 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut ParentFont = False end object Label11: TLabel - Left = 696 - Top = 76 - Width = 78 + Left = 219 + Top = 196 + Width = 91 Height = 12 - Caption = #27599#27974#36724#31859#25968#65306 + Caption = #35745#21010#27974#36724#31859#25968#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -12 @@ -464,12 +417,90 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Font.Style = [fsBold] ParentFont = False end - object Label12: TLabel - Left = 735 - Top = 99 + object Label13: TLabel + Left = 1 + Top = 8 + Width = 65 + Height = 12 + Caption = #27974#32433#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label15: TLabel + Left = 219 + Top = 8 + Width = 65 + Height = 12 + Caption = #32455#36896#21333#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label17: TLabel + Left = 219 + Top = 85 + Width = 91 + Height = 12 + Caption = #25972#32463#24037#33402#21517#31216#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label18: TLabel + Left = 435 + Top = 85 + Width = 52 + Height = 12 + Caption = #24635#22836#20221#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label19: TLabel + Left = 639 + Top = 85 + Width = 65 + Height = 12 + Caption = #19978#26426#38376#24133#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label20: TLabel + Left = 1 + Top = 121 + Width = 65 + Height = 12 + Caption = #38050#31576#32534#21495#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label22: TLabel + Left = 219 + Top = 125 Width = 39 Height = 12 - Caption = #36724#38271#65306 + Caption = #31576#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -12 @@ -477,21 +508,35 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut Font.Style = [fsBold] ParentFont = False end - object DlyDate: TDateTimePicker - Left = 532 - Top = 2 - Width = 120 - Height = 20 - BevelInner = bvNone - Date = 40916.000000000000000000 - Format = 'yyyy-MM-dd' - Time = 0.670856296288548000 - ShowCheckbox = True - TabOrder = 2 + object Label23: TLabel + Left = 435 + Top = 125 + Width = 65 + Height = 12 + Caption = #31359#31576#20837#27861#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False + end + object Label24: TLabel + Left = 639 + Top = 125 + Width = 39 + Height = 12 + Caption = #32463#23494#65306 + Font.Charset = GB2312_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + ParentFont = False end object OrdNote: TRichEdit - Left = 81 - Top = 72 + Left = 90 + Top = 230 Width = 571 Height = 66 Font.Charset = GB2312_CHARSET @@ -505,113 +550,154 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut OnKeyPress = ConNoKeyPress end object WB_Spec: TEdit - Left = 81 - Top = 26 + Left = 712 + Top = 5 Width = 120 Height = 18 TabOrder = 0 OnKeyPress = ConNoKeyPress end object CustName: TBtnEditC - Left = 301 - Top = 2 + Left = 508 + Top = 3 + Width = 120 + Height = 20 + ReadOnly = True + TabOrder = 2 + OnBtnUpClick = CustNameBtnUpClick + OnBtnDnClick = CustNameBtnDnClick + end + object WB_Code: TBtnEditC + Left = 90 + Top = 79 Width = 120 Height = 20 ReadOnly = True TabOrder = 3 - OnBtnUpClick = CustNameBtnUpClick OnBtnDnClick = CustNameBtnDnClick end - object OurCoName: TBtnEditC - Left = 81 - Top = 2 + object WB_YarnTotalLen: TEdit + Left = 90 + Top = 42 Width = 120 - Height = 20 - ReadOnly = True + Height = 18 TabOrder = 4 - OnBtnUpClick = OurCoNameBtnUpClick - OnBtnDnClick = CustNameBtnDnClick + OnKeyPress = ConNoKeyPress end - object WB_YarnQty: TEdit - Left = 301 - Top = 25 + object WB_Qty: TEdit + Left = 305 + Top = 156 Width = 120 Height = 18 TabOrder = 5 OnKeyPress = ConNoKeyPress end - object WB_YarnTotalLen: TEdit - Left = 532 - Top = 26 + object WB_YarnLen: TEdit + Left = 90 + Top = 156 Width = 120 Height = 18 TabOrder = 6 OnKeyPress = ConNoKeyPress end - object WB_Qty: TEdit - Left = 81 - Top = 50 + object WB_Qty_YJJZZS: TEdit + Left = 508 + Top = 191 Width = 120 Height = 18 TabOrder = 7 OnKeyPress = ConNoKeyPress end - object WB_YarnLen: TEdit - Left = 301 - Top = 50 + object WB_Qty_YJMJZGS: TEdit + Left = 90 + Top = 193 Width = 120 Height = 18 TabOrder = 8 OnKeyPress = ConNoKeyPress end - object SizingAgentCost: TEdit - Left = 532 - Top = 50 + object WB_Qty_YJMJZMS: TEdit + Left = 305 + Top = 193 Width = 120 Height = 18 TabOrder = 9 OnKeyPress = ConNoKeyPress end - object WB_Qty_JSPDMS: TEdit - Left = 771 - Top = 3 + object TWPNo: TEdit + Left = 90 + Top = 5 Width = 120 Height = 18 TabOrder = 10 OnKeyPress = ConNoKeyPress end - object WB_Qty_YJJZZS: TEdit - Left = 770 - Top = 26 + object WB_Name: TEdit + Left = 305 + Top = 82 Width = 120 Height = 18 TabOrder = 11 OnKeyPress = ConNoKeyPress end - object WB_Qty_YJMJZGS: TEdit - Left = 771 - Top = 50 + object WB_YarnQty: TEdit + Left = 508 + Top = 82 Width = 120 Height = 18 TabOrder = 12 OnKeyPress = ConNoKeyPress end - object WB_Qty_YJMJZMS: TEdit - Left = 771 - Top = 73 + object WB_Width: TEdit + Left = 712 + Top = 82 Width = 120 Height = 18 TabOrder = 13 OnKeyPress = ConNoKeyPress end - object WB_Len: TEdit - Left = 771 - Top = 96 + object gkbh: TBtnEditC + Left = 90 + Top = 117 + Width = 120 + Height = 20 + ReadOnly = True + TabOrder = 14 + OnBtnDnClick = CustNameBtnDnClick + end + object WB_ReedNo: TEdit + Left = 305 + Top = 119 Width = 120 Height = 18 - TabOrder = 14 + TabOrder = 15 OnKeyPress = ConNoKeyPress end + object WB_ReedNote: TEdit + Left = 508 + Top = 119 + Width = 120 + Height = 18 + TabOrder = 16 + OnKeyPress = ConNoKeyPress + end + object WB_YarnDensity: TEdit + Left = 712 + Top = 122 + Width = 120 + Height = 18 + TabOrder = 17 + OnKeyPress = ConNoKeyPress + end + object gyno: TBtnEditC + Left = 305 + Top = 3 + Width = 120 + Height = 20 + ReadOnly = True + TabOrder = 18 + OnBtnDnClick = CustNameBtnDnClick + end end inherited ADOQueryBaseCmd: TADOQuery Left = 1185 @@ -627,6 +713,9 @@ inherited frmTatWBPlanInPut: TfrmTatWBPlanInPut end inherited cxImageList_bar: TcxImageList FormatVersion = 1 + Left = 760 + Top = 249 + DesignInfo = 16319224 end object ADOQueryTemp: TADOQuery Connection = DataLink_WarpBeamStk.ADOLink diff --git a/E02梭织经轴仓库/U_TatWBPlanInPut.pas b/E02梭织经轴仓库/U_TatWBPlanInPut.pas index 80bb81c..7fac168 100644 --- a/E02梭织经轴仓库/U_TatWBPlanInPut.pas +++ b/E02梭织经轴仓库/U_TatWBPlanInPut.pas @@ -12,23 +12,8 @@ uses StrUtils, cxPC, ShellAPI, cxCalendar, Math, cxLookAndFeels, cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, dxDateRanges, U_BaseInput, System.ImageList, Vcl.ImgList, Vcl.Menus, dxScrollbarAnnotations, - cxImageList, dxSkinsCore, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - dxSkinsDefaultPainters, - - dxSkinWXI, ; + cxImageList, dxSkinsCore, dxSkinOffice2013White, dxSkinSharpPlus, + dxSkinsDefaultPainters, dxSkinWXI; type TfrmTatWBPlanInPut = class(TfrmBaseInput) @@ -59,34 +44,42 @@ type ScrollBox1: TScrollBox; Label3: TLabel; Label14: TLabel; - Label5: TLabel; Label16: TLabel; Label47: TLabel; - Label1: TLabel; Label2: TLabel; Label4: TLabel; Label6: TLabel; - Label7: TLabel; - Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; - Label12: TLabel; - DlyDate: TDateTimePicker; OrdNote: TRichEdit; WB_Spec: TEdit; CustName: TBtnEditC; - OurCoName: TBtnEditC; - WB_YarnQty: TEdit; + WB_Code: TBtnEditC; WB_YarnTotalLen: TEdit; WB_Qty: TEdit; WB_YarnLen: TEdit; - SizingAgentCost: TEdit; - WB_Qty_JSPDMS: TEdit; WB_Qty_YJJZZS: TEdit; WB_Qty_YJMJZGS: TEdit; WB_Qty_YJMJZMS: TEdit; - WB_Len: TEdit; + Label13: TLabel; + TWPNo: TEdit; + Label15: TLabel; + Label17: TLabel; + WB_Name: TEdit; + Label18: TLabel; + WB_YarnQty: TEdit; + Label19: TLabel; + WB_Width: TEdit; + Label20: TLabel; + gkbh: TBtnEditC; + Label22: TLabel; + WB_ReedNo: TEdit; + Label23: TLabel; + WB_ReedNote: TEdit; + Label24: TLabel; + WB_YarnDensity: TEdit; + gyno: TBtnEditC; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -95,7 +88,7 @@ type procedure MCTypeBtnUpClick(Sender: TObject); procedure CustNameBtnUpClick(Sender: TObject); procedure CustNameBtnDnClick(Sender: TObject); - procedure OurCoNameBtnUpClick(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject); private @@ -341,27 +334,6 @@ begin CDS_1.Delete; end; -procedure TfrmTatWBPlanInPut.OurCoNameBtnUpClick(Sender: TObject); -begin - try - frmCompanySel := TfrmCompanySel.Create(Application); - with frmCompanySel do - begin - FCoType := '˾'; - if ShowModal = 1 then - begin - OurCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); - OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); -// FtyCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); -// FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); - end; - end; - finally - frmCompanySel.Free; - end; - -end; - procedure TfrmTatWBPlanInPut.C_CodeKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then diff --git a/E02梭织经轴仓库/U_WBSpecInPut.dfm b/E02梭织经轴仓库/U_WBSpecInPut.dfm index fc25300..4ab4352 100644 --- a/E02梭织经轴仓库/U_WBSpecInPut.dfm +++ b/E02梭织经轴仓库/U_WBSpecInPut.dfm @@ -7,6 +7,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Color = clWhite Font.Height = -16 Position = poMainFormCenter + ExplicitTop = -5 ExplicitWidth = 1131 ExplicitHeight = 902 PixelsPerInch = 96 @@ -18,6 +19,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Height = 408 Align = alClient TabOrder = 0 + ExplicitTop = 461 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -149,6 +151,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Caption = #20998#29305'(Dtex)' DataBinding.FieldName = 'Denier' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 100 end @@ -163,6 +167,8 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Caption = #26681#25968 DataBinding.FieldName = 'YarnQty' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 72 end @@ -170,10 +176,19 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Caption = #24490#29615#26681#25968 DataBinding.FieldName = 'CycleYarnQty' DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged GroupSummaryAlignment = taCenter HeaderAlignmentHorz = taCenter Width = 102 end + object Tv1Column9: TcxGridDBColumn + Caption = #31859#29992#37327 + DataBinding.FieldName = 'MeterQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 70 + end object Tv1Column6: TcxGridDBColumn Caption = #32442#27861 DataBinding.FieldName = 'FF' @@ -408,6 +423,7 @@ inherited frmWBSpecInPut: TfrmWBSpecInPut Left = 113 Top = 44 ParentColor = True + Properties.OnEditValueChanged = WB_YarnQtyPropertiesEditValueChanged TabOrder = 1 Width = 200 end diff --git a/E02梭织经轴仓库/U_WBSpecInPut.pas b/E02梭织经轴仓库/U_WBSpecInPut.pas index c9ad7de..62889a6 100644 --- a/E02梭织经轴仓库/U_WBSpecInPut.pas +++ b/E02梭织经轴仓库/U_WBSpecInPut.pas @@ -12,23 +12,8 @@ uses cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, U_BaseList, System.ImageList, Vcl.ImgList, cxMemo, dxScrollbarAnnotations, cxContainer, dxSkinsCore, - dxSkinsDefaultPainters, cxImageList, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - cxMaskEdit; + dxSkinsDefaultPainters, cxImageList, dxSkinOffice2013White, dxSkinSharpPlus, + dxSkinWXI, cxMaskEdit; type TfrmWBSpecInPut = class(TfrmBaseInput) @@ -104,6 +89,7 @@ type Tv1Column8: TcxGridDBColumn; Label19: TLabel; GKBH: TcxButtonEdit; + Tv1Column9: TcxGridDBColumn; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBAddClick(Sender: TObject); procedure TBCloseClick(Sender: TObject); @@ -115,9 +101,12 @@ type procedure btn1Click(Sender: TObject); procedure GYNoDblClick(Sender: TObject); procedure GKBHPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure v1Column3PropertiesEditValueChanged(Sender: TObject); + procedure WB_YarnQtyPropertiesEditValueChanged(Sender: TObject); private { Private declarations } function SaveData(): Boolean; + procedure JSJS(); //㾭˿ public { Public declarations } FWBSID, FSTKName: string; @@ -133,6 +122,70 @@ uses U_CompanySel, U_GKManageSel; {$R *.dfm} +procedure TfrmWBSpecInPut.JSJS(); +var + GS, ZGS, MF, DS, WM, TW: double; +begin + if CDS_SUB.IsEmpty then + exit; + with CDS_SUB do + begin + DisableControls; + first; + while not eof do + begin + + with CDS_SUB do + begin + + if FieldByName('YarnQty').Value = null then + begin + GS := 0; // + end + else + begin + GS := FieldByName('YarnQty').Value; // + end; + + if FieldByName('CycleYarnQty').Value = null then + begin + ZGS := 0; //ѭ + end + else + begin + ZGS := FieldByName('CycleYarnQty').Value; //ѭ + end; + + MF := strtofloatdef(WB_Width.text, 0); //ط + + TW := strtofloatdef(WB_YarnQty.text, 0); //ͷ + + if FieldByName('TestDenier').Value = null then + begin + DS := 0; //D + end + else + begin + DS := FieldByName('TestDenier').Value; //D + end; + + WM := strtofloatdef(WB_YarnDensity.text, 0); //γ + end; + if ZGS <> 0 then + begin + with CDS_SUB do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); + Post; + end; + end; + next; + end; + First; + EnableControls; + end; +end; procedure TfrmWBSpecInPut.btn1Click(Sender: TObject); begin @@ -584,5 +637,74 @@ begin end; end; +procedure TfrmWBSpecInPut.v1Column3PropertiesEditValueChanged(Sender: TObject); +var + mvalue, FFieldName: string; + GS, ZGS, MF, DS, WM, TW, SUNHAO: double; +begin + + mvalue := TcxTextEdit(Sender).EditingText; + FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName); + + with CDS_SUB do + begin + Edit; + FieldByName(FFieldName).Value := mvalue; + Post; + + if FieldByName('YarnQty').Value = null then + begin + GS := 0; // + end + else + begin + GS := FieldByName('YarnQty').Value; // + end; + + if FieldByName('CycleYarnQty').Value = null then + begin + ZGS := 0; //ѭ + end + else + begin + ZGS := FieldByName('CycleYarnQty').Value; //ѭ + end; + +// if FieldByName('SH').Value = null then +// begin +// SUNHAO := 0; // +// end +// else +// begin +// SUNHAO := FieldByName('SH').Value; // +// end; + + if FieldByName('Denier').Value = null then + begin + DS := 0; //D + end + else + begin + DS := FieldByName('Denier').Value; //D + end; + + TW := strtofloatdef(WB_YarnQty.text, 0); //ͷ + end; + if ZGS <> 0 then + begin + with CDS_SUB do + begin + Edit; + FieldByName('MeterQty').Value := roundfloat(GS / ZGS * TW * DS / 9000, 2); + Post; + end; + end; +end; + +procedure TfrmWBSpecInPut.WB_YarnQtyPropertiesEditValueChanged(Sender: TObject); +begin + JSJS(); +end; + end. diff --git a/E02梭织经轴仓库/U_WBSpecList.pas b/E02梭织经轴仓库/U_WBSpecList.pas index 284abb2..2de64dd 100644 --- a/E02梭织经轴仓库/U_WBSpecList.pas +++ b/E02梭织经轴仓库/U_WBSpecList.pas @@ -13,23 +13,8 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, dxScrollbarAnnotations, cxContainer, cxMemo, - dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, + dxSkinSharpPlus, dxSkinWXI; type TfrmWBSpecList = class(TfrmBaseList) diff --git a/E02梭织经轴仓库/U_WarpBeamInfoList.pas b/E02梭织经轴仓库/U_WarpBeamInfoList.pas index d7deea1..7471dc2 100644 --- a/E02梭织经轴仓库/U_WarpBeamInfoList.pas +++ b/E02梭织经轴仓库/U_WarpBeamInfoList.pas @@ -13,23 +13,8 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, dxScrollbarAnnotations, cxContainer, dxSkinsCore, - dxSkinsDefaultPainters, cxProgressBar, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - dxSkinWXI, - ; + dxSkinsDefaultPainters, cxProgressBar, dxSkinOffice2013White, dxSkinSharpPlus, + dxSkinWXI; type TfrmWarpBeamInfoList = class(TfrmBaseList) diff --git a/E02梭织经轴仓库/WarpBeamStk.dproj.local b/E02梭织经轴仓库/WarpBeamStk.dproj.local index 8f6a438..342e9a0 100644 --- a/E02梭织经轴仓库/WarpBeamStk.dproj.local +++ b/E02梭织经轴仓库/WarpBeamStk.dproj.local @@ -125,19 +125,19 @@ - 1899/12/30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas - 1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm - 1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm - 1899/12/30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas - 1899/12/30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas - 1899/12/30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas - 1899/12/30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas - 1899/12/30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas - 1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm - 1899/12/30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas - 1899/12/30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas= - 1899/12/30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas + 1899-12-30 00:00:00.000.535,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas + 1899-12-30 00:00:00.000.717,D:\Dp10RepoV1\项目代码\D10szKaiXiYa\A02基础产品管理\U_TatClothInfoInput.pas= + 1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.pas + 1899-12-30 00:00:00.000.444,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_WBSpecInPut.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\A02基础产品管理\U_WBSpecInPut.dfm + 1899-12-30 00:00:00.000.584,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_CZ.pas + 1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.pas=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.pas + 1899-12-30 00:00:00.000.556,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_SZ.pas + 1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XZ.pas + 1899-12-30 00:00:00.000.318,D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_XB.dfm=D:\Dp10RepoV1\项目代码\D10gmHuahudie\E02梭织经轴仓库\U_TatWBOutputList_JT.dfm + 1899-12-30 00:00:00.000.922,=D:\Dp10RepoV1\public10\ThreeFun\Fun\uSZHN_JSON.pas + 1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.dfm + 1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatGYSel.pas + 1899-12-30 00:00:00.000.423,D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel2.pas + 1899-12-30 00:00:00.000.512,=D:\Dp10RepoV1\项目代码\D10SZKaiXiYa\E00梭织通用窗体\U_TatPlanSel.pas diff --git a/E02梭织经轴仓库/WarpBeamStk.identcache b/E02梭织经轴仓库/WarpBeamStk.identcache index cd40129695eb782281d7278bdac68f508c036325..8edfcbeb556db8d3acd187963edcc02c1314e50d 100644 GIT binary patch delta 202 zcmdm^xkq!ucE-upLV=TKaSBa7BcQq2fk~5b@@tN`$!D0;Ca>WPoqSJFbFu@I)Z|hY zDWHPr$uC%DOy0?AJ=sS@8c2st&S0~d93h;vc?p|4)8qzL%gG8n@{`xGSb?0I7*^^6X@+s!D$?pX>GbZbDs!s0a6q(G+YdtxQO&TaJKZ%=bvIDc^WC0QJ$&G9_o8{TvnI`8j$AQh_ zU=o^az!JJSnu~*ZGQTj`z|FsT`4}gwi#R}ZD^2#|FPoexoVxh{zXaoCDJIRy6GVh2 p%d#p={3AbkAE)Z(8o{@WllQVEO-|+w2iq(FwAp~gdh#L>DFAXEJ+}Y= diff --git a/E02梭织经轴仓库/testDll.identcache b/E02梭织经轴仓库/testDll.identcache index 8e8dad4db64197a277f9c6ea2d7bc802101ad621..5f7d627fa4c3fa0755783a0d2818bb9927acfd36 100644 GIT binary patch delta 12 TcmdnQxQUUGX<}sLM3x8u7#std delta 12 TcmdnQxQUUGX<~TvM3yiB7#IVX diff --git a/T00贸易通用窗体/U_TradeSalesContractSel.pas b/T00贸易通用窗体/U_TradeSalesContractSel.pas index fb893cb..5244419 100644 --- a/T00贸易通用窗体/U_TradeSalesContractSel.pas +++ b/T00贸易通用窗体/U_TradeSalesContractSel.pas @@ -12,22 +12,7 @@ uses cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxButtonEdit, cxDropDownEdit, cxCheckBox, Vcl.Menus, dxScrollbarAnnotations, dxSkinsCore, dxSkinsDefaultPainters, cxPC, - - - - - - - - - dxSkinOffice2013White, - - - dxSkinSharpPlus, - - - - dxSkinWXI, ; + dxSkinOffice2013White, dxSkinSharpPlus, dxSkinWXI; type TfrmTradeSalesContractSel = class(TfrmBaseHelp)