diff --git a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj.local b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj.local index d055b12..94ae854 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj.local +++ b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj.local @@ -1,62 +1,62 @@  - 1899/12/30 00:00:00.000.811,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanList.pas - 1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899/12/30 00:00:00.000.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas - 1899/12/30 00:00:00.000.726,=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.257,=D:\Dp10Repo\项目代码\恒赫\D01针织生产计划\U_MachPlanSet.pas - 1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas - 1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.911,=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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas - 1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.064,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas - 1899/12/30 00:00:00.000.509,D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas - 1899/12/30 00:00:00.000.925,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\Unit1.pas= - 1899/12/30 00:00:00.000.756,D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCardDel.pas=D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCard.pas - 1899/12/30 00:00:00.000.139,D:\RTFormwork\项目代码\RTBasicsV1\A02基础产品管理\U_KnitClothInfoInput.pas= - 1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.pas= - 1899/12/30 00:00:00.000.612,=D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitPlanSel.pas - 1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899/12/30 00:00:00.000.111,=D:\Dp10Repo\项目代码\共佳\B02基础纱线仓库\U_YarnInfoInPut.pas - 1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899/12/30 00:00:00.000.140,=D:\RTFormwork\public10\design\U_cxGridCustomSet.pas - 1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899/12/30 00:00:00.000.881,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitCardInPut.pas - 1899/12/30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899/12/30 00:00:00.000.031,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas - 1899/12/30 00:00:00.000.756,D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCardDel.dfm=D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCard.dfm - 1899/12/30 00:00:00.000.264,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanCard.pas - 1899/12/30 00:00:00.000.667,=D:\Dp10Repo\项目代码\共佳\A02基础产品管理\U_KnitClothInfoInput.pas - 1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= - 1899/12/30 00:00:00.000.181,=D:\RTFormwork\public10\design\U_FormLayOutDesign.pas - 1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899/12/30 00:00:00.000.798,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= - 1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899/12/30 00:00:00.000.709,D:\RTFormwork\项目代码\RTBasicsV1\B02基础纱线仓库\U_YarnInfoInPut.pas= - 1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899/12/30 00:00:00.000.509,D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.dfm - 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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899/12/30 00:00:00.000.929,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas= - 1899/12/30 00:00:00.000.064,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.dfm - 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.945,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas - 1899/12/30 00:00:00.000.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj - 1899/12/30 00:00:00.000.232,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用窗体\U_LoomSel.pas - 2024/07/16 16:57:34.000.480,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FramePagingSel.pas - 2024/07/16 16:57:34.000.356,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FrameDateSel.pas - 2024/07/16 17:00:42.000.758,=D:\RTFormwork\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.811,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanList.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas + 1899-12-30 00:00:00.000.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas + 1899-12-30 00:00:00.000.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.257,=D:\Dp10Repo\项目代码\恒赫\D01针织生产计划\U_MachPlanSet.pas + 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas + 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas + 1899-12-30 00:00:00.000.064,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.pas + 1899-12-30 00:00:00.000.911,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.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.756,D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCard.dfm=D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCardDel.dfm + 1899-12-30 00:00:00.000.925,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\Unit1.pas= + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.509,D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitSalesContractSel.dfm + 1899-12-30 00:00:00.000.139,D:\RTFormwork\项目代码\RTBasicsV1\A02基础产品管理\U_KnitClothInfoInput.pas= + 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.pas= + 1899-12-30 00:00:00.000.612,=D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitPlanSel.pas + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas + 1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\共佳\B02基础纱线仓库\U_YarnInfoInPut.pas + 1899-12-30 00:00:00.000.140,=D:\RTFormwork\public10\design\U_cxGridCustomSet.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.756,D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCard.pas=D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCardDel.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.031,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas + 1899-12-30 00:00:00.000.509,D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitSalesContractSel.pas + 1899-12-30 00:00:00.000.181,=D:\RTFormwork\public10\design\U_FormLayOutDesign.pas + 1899-12-30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj + 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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm + 1899-12-30 00:00:00.000.798,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.709,D:\RTFormwork\项目代码\RTBasicsV1\B02基础纱线仓库\U_YarnInfoInPut.pas= + 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.945,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas + 1899-12-30 00:00:00.000.232,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用窗体\U_LoomSel.pas + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.881,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitCardInPut.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.929,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas= + 1899-12-30 00:00:00.000.667,=D:\Dp10Repo\项目代码\共佳\A02基础产品管理\U_KnitClothInfoInput.pas + 1899-12-30 00:00:00.000.064,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.dfm + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.264,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanCard.pas + 2024-07-16 16:57:34.000.356,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FrameDateSel.pas + 2024-07-16 16:57:34.000.480,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FramePagingSel.pas + 2024-07-16 17:00:42.000.758,=D:\RTFormwork\public10\design\U_BaseDataLink.pas diff --git a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.identcache b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.identcache index 623a26d..43be5b1 100644 Binary files a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.identcache and b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.identcache differ diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.dfm b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.dfm index f225ae7..fd5782b 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.dfm +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.dfm @@ -382,8 +382,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False end object Label4: TLabel - Left = 1260 - Top = 132 + Left = 893 + Top = 158 Width = 65 Height = 12 Caption = #21152#24037#21333#20301#65306 @@ -393,7 +393,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False - Visible = False end object Label6: TLabel Left = 916 @@ -1018,13 +1017,12 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut #35797#26679#21333) end object FtyCoName: TBtnEditC - Left = 1321 - Top = 128 + Left = 954 + Top = 154 Width = 120 Height = 20 ReadOnly = True TabOrder = 22 - Visible = False OnBtnUpClick = FtyCoNameBtnUpClick OnBtnDnClick = CustNameBtnDnClick end diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.dfm b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.dfm index 86a95ac..febcd93 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.dfm +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.dfm @@ -276,11 +276,11 @@ inherited frmKnitPlanList: TfrmKnitPlanList ParentFont = False Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( - 'M' - 'Y' - 'Kg') + '' + #22823#36135#21333 + #22806#21457#21333 + #35797#26679#21333) TabOrder = 5 - Text = 'M' Width = 150 end inline frmFrameDateSel1: TfrmFrameDateSel @@ -315,8 +315,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 - ExplicitTop = 217 - ExplicitHeight = 425 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -392,17 +390,12 @@ inherited frmKnitPlanList: TfrmKnitPlanList OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False - Styles.IncSearch = DataLink_KnitPlan.SHuangSe - Styles.Header = DataLink_KnitPlan.Default - Styles.Inactive = DataLink_KnitPlan.SHuangSe - Styles.Selection = DataLink_KnitPlan.SHuangSe object v1OrderNo: TcxGridDBColumn Caption = #21512#21516#21495 DataBinding.FieldName = 'ConNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Header = DataLink_KnitPlan.Default Width = 100 end object Tv1Column2: TcxGridDBColumn @@ -427,7 +420,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Header = DataLink_KnitPlan.Default Width = 71 end object Tv1Column1: TcxGridDBColumn @@ -447,7 +439,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList Properties.ShowTime = False HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Header = DataLink_KnitPlan.Default Width = 82 end object v1Column21: TcxGridDBColumn @@ -456,7 +447,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Header = DataLink_KnitPlan.Default Width = 92 end object v1Column2: TcxGridDBColumn @@ -465,7 +455,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Header = DataLink_KnitPlan.Default Width = 73 end object v1Column20: TcxGridDBColumn @@ -482,7 +471,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Header = DataLink_KnitPlan.Default Width = 67 end object v1PRTMF: TcxGridDBColumn @@ -491,7 +479,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Header = DataLink_KnitPlan.Default Width = 69 end object Tv1Column3: TcxGridDBColumn @@ -508,7 +495,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Header = DataLink_KnitPlan.Default Width = 76 end object v1Column6: TcxGridDBColumn @@ -517,7 +503,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Header = DataLink_KnitPlan.Default Width = 59 end object v1Column22: TcxGridDBColumn @@ -526,7 +511,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Header = DataLink_KnitPlan.Default Width = 63 end object v1Column7: TcxGridDBColumn @@ -535,7 +519,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Header = DataLink_KnitPlan.Default Width = 72 end object v1PRTOrderQty: TcxGridDBColumn @@ -544,7 +527,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Header = DataLink_KnitPlan.Default Width = 92 end object v1Column12: TcxGridDBColumn @@ -553,7 +535,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Header = DataLink_KnitPlan.Default Width = 64 end object v1Column4: TcxGridDBColumn @@ -562,7 +543,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Header = DataLink_KnitPlan.Default Width = 68 end object Tv1Column7: TcxGridDBColumn @@ -623,7 +603,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList #24050#32467#26463 #20840#37096) OnChange = cxTabControl1Change - ExplicitTop = 189 ClientRectBottom = 30 ClientRectRight = 1540 ClientRectTop = 30 @@ -635,8 +614,6 @@ inherited frmKnitPlanList: TfrmKnitPlanList Height = 453 Align = alRight TabOrder = 4 - ExplicitTop = 217 - ExplicitHeight = 425 object Label6: TLabel Left = 28 Top = 48 diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.pas b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.pas index 65d0467..4fc60a7 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.pas +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.pas @@ -263,8 +263,8 @@ begin sql.Add(',Y_NameS= SUBSTRING(CAST((select ''+'' +X.Y_Name from knit_Plan_Yarn X where X.subid=B.subid order by YRId for xml path('''') ) AS VARCHAR(100)) , 2, 100) '); sql.Add(' from knit_Plan_Main A inner join knit_Plan_Sub B on A.Mainid=B.MainId'); - sql.Add(' where A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1.BegDate.Date)) + ''''); - sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1.EndDate.Date + 1)) + ''''); + sql.Add(' where A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + ''''); + sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.EndDate.Date + 1)) + ''''); case cxTabControl1.TabIndex of 0: @@ -278,11 +278,10 @@ begin 2: begin sql.Add('and isnull(Status,''0'') =''10'' '); - sql.Add(' and A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + ''''); - sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1. EndDate.Date + 1)) + ''''); end; end; sql.add('order by A.FILLTIME DESC'); +// ShowMessage(sql.Text); Open; end; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); @@ -302,8 +301,8 @@ procedure TfrmKnitPlanList.InitForm(); begin InitButton(); ReadCxGrid(trim(self.Caption), Tv1, ''); - frmFrameDateSel1. BegDate.Date := SGetServerDate(ADOQueryTemp) - 30; - frmFrameDateSel1. EndDate.Date := SGetServerDate(ADOQueryTemp); + frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 30; + frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp); InitGrid(); end; @@ -630,8 +629,8 @@ begin begin Close; SQL.Clear; - sql.Add(' exec P_Knit_Plan_Progress @Begdate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1. Begdate.Date)))); - sql.Add(',@enddate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1. EndDate.Date + 1)))); + sql.Add(' exec P_Knit_Plan_Progress @Begdate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.Begdate.Date)))); + sql.Add(',@enddate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.EndDate.Date + 1)))); sql.Add(',@criteria= ' + quotedstr(fwhere)); Open; end; diff --git a/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dpr b/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dpr index 60c3345..eea3318 100644 --- a/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dpr +++ b/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dpr @@ -31,7 +31,7 @@ uses U_PictureUpload in '..\A00ͨô\U_PictureUpload.pas' {frmPictureUpload}, U_ZDYHelpSel in '..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel}, U_TradePlanScheduleDetail in 'U_TradePlanScheduleDetail.pas' {frmTradePlanScheduleDetail}, - U_TradePlanSchedule in 'U_TradePlanSchedule.pas' {frmTradePlanSchedule}, + U_TradePlanSchedule1 in 'U_TradePlanSchedule1.pas' {frmTradePlanSchedule1}, U_SysLogHelp in '..\..\..\public10\ThreeFun\Form\U_SysLogHelp.pas' {frmSysLogHelp}, U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, U_TradePlanColorList in 'U_TradePlanColorList.pas' {frmTradePlanColorList}, diff --git a/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dproj b/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dproj index a270c37..a2244f0 100644 --- a/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dproj +++ b/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dproj @@ -211,8 +211,8 @@
frmTradePlanScheduleDetail
dfm - -
frmTradePlanSchedule
+ +
frmTradePlanSchedule1
dfm diff --git a/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dproj.local b/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dproj.local index e736dc2..0cbb470 100644 --- a/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dproj.local +++ b/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dproj.local @@ -1,37 +1,38 @@  - 1899-12-30 00:00:00.000.537,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanCard.pas 1899-12-30 00:00:00.000.568,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas 1899-12-30 00:00:00.000.472,=D:\Dp10Repo\public10\ThreeFun\Form\U_SysLogHelp.pas 1899-12-30 00:00:00.000.030,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProfit.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.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.937,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorInPut.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.dfm - 1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas 1899-12-30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.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.629,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorList.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.pas + 1899-12-30 00:00:00.000.537,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanCard.pas 1899-12-30 00:00:00.000.764,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInStk.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInPut.pas 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas 1899-12-30 00:00:00.000.505,D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradeLabelSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradeInspSet.pas + 1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_InputBoxCard.pas=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.pas + 1899-12-30 00:00:00.000.629,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorList.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.pas 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas 1899-12-30 00:00:00.000.937,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorInPut.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.pas - 1899-12-30 00:00:00.000.904,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas - 1899-12-30 00:00:00.000.314,=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradePlanInPut.pas 1899-12-30 00:00:00.000.514,D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\TradePlan.dproj=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\InformationBase.dproj 1899-12-30 00:00:00.000.505,D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradeLabelSel.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradeInspSet.dfm 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradePlanList.pas + 1899-12-30 00:00:00.000.764,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInStk.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInPut.dfm + 1899-12-30 00:00:00.000.314,=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradePlanInPut.pas 1899-12-30 00:00:00.000.600,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas 1899-12-30 00:00:00.000.994,=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanScheduleDetail.pas - 1899-12-30 00:00:00.000.276,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas 1899-12-30 00:00:00.000.681,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas - 1899-12-30 00:00:00.000.764,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInStk.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInPut.dfm - 1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas + 1899-12-30 00:00:00.000.276,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas 1899-12-30 00:00:00.000.332,=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.904,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas + 1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.pas=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.pas 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas @@ -45,32 +46,33 @@ 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= 1899-12-30 00:00:00.000.396,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas - 1899-12-30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanSchedule.pas 1899-12-30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas + 1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanSchedule.pas + 1899-12-30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas 1899-12-30 00:00:00.000.747,=D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanList.pas 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas 1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas - 1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm - 1899-12-30 00:00:00.000.081,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanInPut.pas - 1899-12-30 00:00:00.000.442,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\PdfPrint.dll= 1899-12-30 00:00:00.000.103,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\PdfPrint.dll 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_InputBoxCard.pas=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.pas + 1899-12-30 00:00:00.000.629,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorList.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.dfm + 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas + 1899-12-30 00:00:00.000.442,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\PdfPrint.dll= 1899-12-30 00:00:00.000.780,=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradePlanList.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.629,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorList.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.dfm - 1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_InputBoxCard.dfm=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.dfm + 1899-12-30 00:00:00.000.081,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanInPut.pas + 1899-12-30 00:00:00.000.686,=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.pas 1899-12-30 00:00:00.000.082,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanInPut.dfm 1899-12-30 00:00:00.000.560,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas 1899-12-30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.686,=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.pas + 1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm 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.424,=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleString.pas + 1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_InputBoxCard.dfm=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.dfm + 2024-07-23 21:02:39.334,D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule1.pas=D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule.pas + 2024-07-23 21:02:39.334,D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule1.dfm=D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule.dfm @@ -141,10 +143,10 @@ - - + + @@ -165,8 +167,6 @@ - - @@ -183,5 +183,7 @@ + + diff --git a/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.identcache b/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.identcache index bdea84d..7d76711 100644 Binary files a/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.identcache and b/项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.identcache differ diff --git a/项目代码/RTBasicsV1/T01贸易生产计划/U_GetDllForm.pas b/项目代码/RTBasicsV1/T01贸易生产计划/U_GetDllForm.pas index 0cb55bd..38c58ea 100644 --- a/项目代码/RTBasicsV1/T01贸易生产计划/U_GetDllForm.pas +++ b/项目代码/RTBasicsV1/T01贸易生产计划/U_GetDllForm.pas @@ -17,7 +17,7 @@ implementation uses U_DataLink, U_iniParam, U_TradePlanList, U_TradePlanProofList, U_TradePlanColorList, U_TradePlanMulFtyList, U_TradePlanSchedule, - U_TradePlanProfit, U_TradePlanCard; + U_TradePlanProfit, U_TradePlanCard, U_TradePlanSchedule1; ///////////////////////////////////////////////////////////////// // ˵:ȡDllеô // @@ -163,7 +163,7 @@ begin end; end; - 211: //ƻ + 211: //ƻƻ begin with TfrmTradePlanSchedule.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // begin @@ -175,6 +175,18 @@ begin end; end; + 212: //Ͷ + begin + with TfrmTradePlanSchedule1.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // + begin + fFormID := FormID; + FormStyle := mstyle; + WindowState := mstate; + BorderStyle := mborderstyle; + mnewHandle := Handle; + end; + end; + 311: //ѯ begin with TfrmTradePlanProfit.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do // diff --git a/项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule.dfm b/项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule.dfm index e043237..6d8a3c3 100644 --- a/项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule.dfm +++ b/项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule.dfm @@ -753,8 +753,8 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule object CDS_1: TClientDataSet Aggregates = <> Params = <> - Left = 472 - Top = 200 + Left = 533 + Top = 449 end object RMGridReport1: TRMGridReport ThreadPrepareReport = True diff --git a/项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule1.dfm b/项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule1.dfm new file mode 100644 index 0000000..63a91cf --- /dev/null +++ b/项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule1.dfm @@ -0,0 +1,850 @@ +inherited frmTradePlanSchedule1: TfrmTradePlanSchedule1 + Left = 274 + Top = 193 + Caption = #35746#21333#36827#24230 + ClientHeight = 910 + ClientWidth = 1894 + Font.Height = -16 + Position = poScreenCenter + WindowState = wsMaximized + ExplicitWidth = 1910 + ExplicitHeight = 949 + PixelsPerInch = 96 + TextHeight = 21 + object ToolBar1: TToolBar [0] + Tag = 1 + Left = 0 + Top = 0 + Width = 1894 + Height = 30 + AutoSize = True + ButtonHeight = 30 + ButtonWidth = 99 + Caption = 'ToolBar1' + Color = clSkyBlue + DisabledImages = DataLink_TradePlan.cxImageList_bar + Images = DataLink_TradePlan.cxImageList_bar + List = True + ParentColor = False + ShowCaptions = True + TabOrder = 0 + ExplicitWidth = 1595 + object TBRafresh: TToolButton + Left = 0 + Top = 0 + AutoSize = True + Caption = #21047#26032 + ImageIndex = 1 + OnClick = TBRafreshClick + end + object ToolButton2: TToolButton + Left = 71 + Top = 0 + AutoSize = True + Caption = #36807#28388 + ImageIndex = 0 + OnClick = ToolButton2Click + end + object ToolButton1: TToolButton + Left = 142 + Top = 0 + AutoSize = True + Caption = #23548#20986 + ImageIndex = 20 + OnClick = ToolButton1Click + end + object ToolButton3: TToolButton + Left = 213 + Top = 0 + AutoSize = True + Caption = #25171#21360 + ImageIndex = 21 + OnClick = ToolButton3Click + end + object ToolButton5: TToolButton + Left = 284 + Top = 0 + AutoSize = True + Caption = #20445#23384#26684#24335 + ImageIndex = 16 + OnClick = ToolButton5Click + end + object TBClose: TToolButton + Left = 387 + Top = 0 + AutoSize = True + Caption = #20851#38381 + ImageIndex = 7 + OnClick = TBCloseClick + end + end + object Panel1: TPanel [1] + Left = 0 + Top = 30 + Width = 1894 + Height = 87 + Align = alTop + BevelInner = bvRaised + BevelOuter = bvLowered + Color = clWhite + ParentBackground = False + TabOrder = 1 + object Label4: TLabel + Left = 452 + Top = 50 + Width = 64 + Height = 21 + Caption = #25105#26041#21333#20301 + end + object Label9: TLabel + Left = 24 + Top = 50 + Width = 64 + Height = 21 + Caption = #37319#36141#21333#21495 + end + object Label3: TLabel + Left = 246 + Top = 50 + Width = 48 + Height = 21 + Caption = #20379#24212#21830 + end + inline frmFrameDateSel1: TfrmFrameDateSel + Left = 2 + Top = 2 + Width = 1890 + Height = 37 + Align = alTop + Color = clWhite + ParentBackground = False + ParentColor = False + TabOrder = 0 + ExplicitLeft = 2 + ExplicitTop = 2 + ExplicitWidth = 1591 + inherited BegDate: TcxDateEdit + ExplicitHeight = 33 + end + inherited EndDate: TcxDateEdit + ExplicitHeight = 33 + end + inherited cbbType: TcxComboBox + ExplicitHeight = 33 + end + end + object BuyName: TcxTextEdit + Tag = 2 + Left = 520 + Top = 44 + ParentFont = False + TabOrder = 1 + Width = 150 + end + object PurNo: TcxTextEdit + Tag = 2 + Left = 92 + Top = 44 + ParentFont = False + TabOrder = 2 + Width = 150 + end + object SellName: TcxTextEdit + Tag = 2 + Left = 298 + Top = 44 + ParentFont = False + TabOrder = 3 + Width = 150 + end + end + object cxGrid1: TcxGrid [2] + Left = 0 + Top = 117 + Width = 1894 + Height = 400 + Align = alTop + BorderStyle = cxcbsNone + TabOrder = 2 + ExplicitTop = 137 + ExplicitWidth = 1595 + object TV1: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + OnFocusedRecordChanged = TV1FocusedRecordChanged + DataController.DataSource = DS_1 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Format = '0' + Position = spFooter + end + item + Format = '0' + Position = spFooter + Column = v1PRTOrderQty + end + item + Format = '0' + Position = spFooter + Column = v1PRTPrice + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skSum + Column = v1PRTOrderQty + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn9 + end + item + Kind = skSum + Column = TV1Column8 + end + item + Kind = skSum + Column = TV1Column7 + end> + DataController.Summary.SummaryGroups = <> + OptionsBehavior.FocusCellOnTab = True + OptionsBehavior.GoToNextCellOnEnter = True + OptionsBehavior.FocusCellOnCycle = True + OptionsCustomize.ColumnFiltering = False + OptionsData.Deleting = False + OptionsData.DeletingConfirmation = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object TV1Column4: TcxGridDBColumn + Caption = #19979#21333#26085#26399 + DataBinding.FieldName = 'PurDate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 104 + end + object TV1Column2: TcxGridDBColumn + Caption = #37319#36141#21333#21495 + DataBinding.FieldName = 'PurNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 109 + end + object TV1Column1: TcxGridDBColumn + Caption = #20379#24212#21830 + DataBinding.FieldName = 'SellName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 107 + end + object TV1Column3: TcxGridDBColumn + Caption = #20132#36135#26085#26399 + DataBinding.FieldName = 'DlyDate' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 106 + end + object TV1Column5: TcxGridDBColumn + Caption = #31867#22411 + DataBinding.FieldName = 'C_Degree' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 91 + end + object VC_SCSCode: TcxGridDBColumn + Caption = #20135#21697#32534#21495 + DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxButtonEditProperties' + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = False + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object cxGridDBColumn2: TcxGridDBColumn + Caption = #20013#25991#21697#21517 + DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 93 + end + object TV1Column12: TcxGridDBColumn + Caption = #24067#31181 + DataBinding.FieldName = 'GC_Name' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 68 + end + object TV1Column14: TcxGridDBColumn + Caption = #21518#25972#29702#20013#25991 + DataBinding.FieldName = 'CraftName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 99 + end + object TV1Column13: TcxGridDBColumn + Caption = #21152#24037#21035 + DataBinding.FieldName = 'CraftCode' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + object v1Column5: TcxGridDBColumn + Caption = #35268#26684 + DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 60 + end + object TV1Column6: TcxGridDBColumn + Caption = #20811#37325 + DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object TV1Column9: TcxGridDBColumn + Caption = #38376#24133 + DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn4: TcxGridDBColumn + Caption = #25104#20998 + DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object cxGridDBColumn5: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1PRTOrderQty: TcxGridDBColumn + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 70 + end + object v1OrderUnit: TcxGridDBColumn + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsEditFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 58 + end + object v1PRTPrice: TcxGridDBColumn + Caption = #21333#20215 + DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Options.Sorting = False + Width = 70 + end + object cxGridDBColumn9: TcxGridDBColumn + Caption = #37329#39069 + DataBinding.FieldName = 'Amount' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 84 + end + object v1Column2: TcxGridDBColumn + Caption = #22791#27880 + DataBinding.FieldName = 'SNote' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 92 + end + object TV1Column8: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'LJHCPiece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 114 + end + object TV1Column7: TcxGridDBColumn + Caption = #22238#20179#25968#37327 + DataBinding.FieldName = 'LJHCQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 120 + end + end + object cxGridLevel1: TcxGridLevel + GridView = TV1 + end + end + object Panel2: TPanel [3] + Left = 0 + Top = 517 + Width = 1894 + Height = 393 + Align = alClient + Caption = 'Panel2' + TabOrder = 3 + ExplicitLeft = 8 + ExplicitTop = 536 + ExplicitWidth = 1595 + ExplicitHeight = 373 + object cxGrid2: TcxGrid + Left = 1 + Top = 1 + Width = 608 + Height = 391 + Align = alLeft + TabOrder = 0 + ExplicitHeight = 371 + object TV2: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_2 + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = v2Column6 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = v1Column15 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object TV2Column1: TcxGridDBColumn + Caption = #22238#20179#26085#26399 + DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Width = 115 + end + object v1Column10: TcxGridDBColumn + Caption = #25209#21495 + DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = False + Width = 124 + end + object v1Column15: TcxGridDBColumn + Caption = #21305#25968 + DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 102 + end + object v2Column6: TcxGridDBColumn + Tag = 2 + Caption = #25968#37327 + DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 118 + end + object v1Column3: TcxGridDBColumn + Tag = 2 + Caption = #21333#20301 + DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxComboBoxProperties' + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'Kg' + 'M' + 'Y') + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 87 + end + end + object cxGrid1Level1: TcxGridLevel + GridView = TV2 + end + end + object cxGrid3: TcxGrid + Left = 609 + Top = 1 + Width = 1284 + Height = 391 + Align = alClient + TabOrder = 1 + ExplicitLeft = 615 + ExplicitTop = 6 + ExplicitHeight = 371 + object TV3: TcxGridDBTableView + Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> + DataController.DataSource = DS_3 + DataController.Filter.AutoDataSetFilter = True + DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] + DataController.Summary.DefaultGroupSummaryItems = < + item + Kind = skSum + Position = spFooter + end> + DataController.Summary.FooterSummaryItems = < + item + Kind = skCount + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn8 + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + end + item + Kind = skSum + Column = cxGridDBColumn7 + end> + DataController.Summary.SummaryGroups = <> + OptionsCustomize.ColumnFiltering = False + OptionsView.Footer = True + OptionsView.GroupByBox = False + object cxGridDBColumn3: TcxGridDBColumn + Caption = #26085#26399 + DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn6: TcxGridDBColumn + Caption = #32568#21495 + DataBinding.FieldName = 'FtyPCId' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + VisibleForCustomization = False + Width = 66 + end + object TV3Column1: TcxGridDBColumn + Caption = #39068#33394 + DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn7: TcxGridDBColumn + Caption = #25237#22383#21305#25968 + DataBinding.FieldName = 'TPPiece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object cxGridDBColumn8: TcxGridDBColumn + Tag = 2 + Caption = #25237#22383#25968#37327 + DataBinding.FieldName = 'TPQty' + DataBinding.IsNullValueType = True + PropertiesClassName = 'TcxTextEditProperties' + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object TV3Column3: TcxGridDBColumn + Caption = #21152#24037#21378 + DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object TV3Column2: TcxGridDBColumn + Caption = #22238#20179#37325#37327 + DataBinding.FieldName = 'WGQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object TV3Column4: TcxGridDBColumn + Caption = #22238#20179#21305#25968 + DataBinding.FieldName = 'WGPiece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object TV3Column5: TcxGridDBColumn + Caption = #25439#32791'%' + DataBinding.FieldName = 'sl' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object TV3Column6: TcxGridDBColumn + Caption = #22238#20179#24773#20917 + DataBinding.FieldName = 'StkCoName' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object TV3Column7: TcxGridDBColumn + Caption = #24211#23384#21305#25968 + DataBinding.FieldName = 'STKPiece' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + object TV3Column8: TcxGridDBColumn + Caption = #24211#23384#25968#37327 + DataBinding.FieldName = 'STKQty' + DataBinding.IsNullValueType = True + HeaderAlignmentHorz = taCenter + Options.Editing = False + Width = 66 + end + end + object cxGridLevel2: TcxGridLevel + GridView = TV3 + end + end + end + inherited ADOQueryBaseCmd: TADOQuery + Connection = DataLink_TradePlan.ADOLink + Left = 789 + Top = 369 + end + inherited ADOQueryBaseTemp: TADOQuery + Connection = DataLink_TradePlan.ADOLink + Left = 861 + Top = 369 + end + object ADOQueryTemp: TADOQuery + Connection = DataLink_TradePlan.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 789 + Top = 441 + end + object ADOQueryCmd: TADOQuery + Connection = DataLink_TradePlan.ADOLink + Parameters = <> + Left = 933 + Top = 369 + end + object ADOQueryMain: TADOQuery + Connection = DataLink_TradePlan.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 1005 + Top = 369 + end + object GPM_1: TcxGridPopupMenu + Grid = cxGrid1 + PopupMenus = <> + Left = 933 + Top = 441 + end + object DS_1: TDataSource + DataSet = CDS_1 + Left = 1077 + Top = 441 + end + object CDS_1: TClientDataSet + Aggregates = <> + Params = <> + Left = 861 + Top = 441 + end + object RMGridReport1: TRMGridReport + ThreadPrepareReport = True + InitialZoom = pzDefault + PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator] + DefaultCollate = False + SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' + PreviewOptions.RulerUnit = rmutScreenPixels + PreviewOptions.RulerVisible = False + PreviewOptions.DrawBorder = False + PreviewOptions.BorderPen.Color = clGray + PreviewOptions.BorderPen.Style = psDash + Dataset = RMDBDataSet1 + CompressLevel = rmzcFastest + CompressThread = False + LaterBuildEvents = True + OnlyOwnerDataSet = False + Left = 906 + Top = 650 + ReportData = {} + end + object RMDBDataSet1: TRMDBDataSet + Visible = True + DataSet = CDS_1 + Left = 803 + Top = 627 + end + object RMXLSExport1: TRMXLSExport + ShowAfterExport = True + ExportPrecision = 1 + PagesOfSheet = 100 + ExportImages = True + ExportFrames = True + ExportImageFormat = ifBMP + JPEGQuality = 0 + ScaleX = 1.000000000000000000 + ScaleY = 1.000000000000000000 + CompressFile = False + Left = 1006 + Top = 653 + end + object ADOQueryPrint: TADOQuery + Connection = DataLink_TradePlan.ADOLink + Parameters = <> + Left = 1077 + Top = 369 + end + object cxStyleRepository1: TcxStyleRepository + Left = 1005 + Top = 441 + PixelsPerInch = 96 + object cxStyle1: TcxStyle + AssignedValues = [svColor, svFont, svTextColor] + Color = clBlack + Font.Charset = ANSI_CHARSET + Font.Color = clBlack + Font.Height = -12 + Font.Name = #23435#20307 + Font.Style = [fsBold] + TextColor = clBlack + end + end + object CDS_2: TClientDataSet + Aggregates = <> + Params = <> + Left = 788 + Top = 707 + end + object GPM_2: TcxGridPopupMenu + Grid = cxGrid2 + PopupMenus = <> + Left = 860 + Top = 707 + end + object DS_2: TDataSource + DataSet = CDS_2 + Left = 1004 + Top = 707 + end + object ADO_2: TADOQuery + Connection = DataLink_TradePlan.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 912 + Top = 713 + end + object CDS_3: TClientDataSet + Aggregates = <> + Params = <> + Left = 791 + Top = 785 + end + object GPM_3: TcxGridPopupMenu + Grid = cxGrid3 + PopupMenus = <> + Left = 863 + Top = 785 + end + object ADO_3: TADOQuery + Connection = DataLink_TradePlan.ADOLink + LockType = ltReadOnly + CommandTimeout = 600 + Parameters = <> + Left = 915 + Top = 791 + end + object DS_3: TDataSource + DataSet = CDS_3 + Left = 1007 + Top = 785 + end +end diff --git a/项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule1.pas b/项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule1.pas new file mode 100644 index 0000000..878c84b --- /dev/null +++ b/项目代码/RTBasicsV1/T01贸易生产计划/U_TradePlanSchedule1.pas @@ -0,0 +1,321 @@ +unit U_TradePlanSchedule1; + +interface + +uses + Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, + Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB, + cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls, + cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient, + cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls, + cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid, + cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common, + RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection, + IdTCPClient, IdFTP, ShellAPI, IniFiles, U_BaseList, cxLookAndFeels, + cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, dxSkinWXI, + cxNavigator, dxDateRanges, dxScrollbarAnnotations, cxTextEdit, + dxBarBuiltInMenu, Vcl.Menus, RM_e_Xls, cxPC, cxGridBandedTableView, + cxGridDBBandedTableView, FrameDateSel, cxButtonEdit, cxDropDownEdit, + cxContainer; + +type + TfrmTradePlanSchedule1 = class(TfrmBaseList) + ToolBar1: TToolBar; + TBRafresh: TToolButton; + TBClose: TToolButton; + ADOQueryTemp: TADOQuery; + ADOQueryCmd: TADOQuery; + Panel1: TPanel; + ToolButton2: TToolButton; + ADOQueryMain: TADOQuery; + ToolButton1: TToolButton; + GPM_1: TcxGridPopupMenu; + DS_1: TDataSource; + CDS_1: TClientDataSet; + ToolButton3: TToolButton; + RMGridReport1: TRMGridReport; + RMDBDataSet1: TRMDBDataSet; + RMXLSExport1: TRMXLSExport; + ADOQueryPrint: TADOQuery; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; + ToolButton5: TToolButton; + frmFrameDateSel1: TfrmFrameDateSel; + cxGrid1: TcxGrid; + TV1: TcxGridDBTableView; + TV1Column4: TcxGridDBColumn; + TV1Column2: TcxGridDBColumn; + TV1Column1: TcxGridDBColumn; + TV1Column3: TcxGridDBColumn; + TV1Column5: TcxGridDBColumn; + VC_SCSCode: TcxGridDBColumn; + cxGridDBColumn2: TcxGridDBColumn; + TV1Column12: TcxGridDBColumn; + TV1Column14: TcxGridDBColumn; + TV1Column13: TcxGridDBColumn; + v1Column5: TcxGridDBColumn; + TV1Column6: TcxGridDBColumn; + TV1Column9: TcxGridDBColumn; + cxGridDBColumn4: TcxGridDBColumn; + cxGridDBColumn5: TcxGridDBColumn; + v1PRTOrderQty: TcxGridDBColumn; + v1OrderUnit: TcxGridDBColumn; + v1PRTPrice: TcxGridDBColumn; + cxGridDBColumn9: TcxGridDBColumn; + v1Column2: TcxGridDBColumn; + TV1Column8: TcxGridDBColumn; + TV1Column7: TcxGridDBColumn; + cxGridLevel1: TcxGridLevel; + Panel2: TPanel; + cxGrid2: TcxGrid; + TV2: TcxGridDBTableView; + TV2Column1: TcxGridDBColumn; + v1Column10: TcxGridDBColumn; + v1Column15: TcxGridDBColumn; + v2Column6: TcxGridDBColumn; + v1Column3: TcxGridDBColumn; + cxGrid1Level1: TcxGridLevel; + cxGrid3: TcxGrid; + TV3: TcxGridDBTableView; + cxGridDBColumn3: TcxGridDBColumn; + cxGridDBColumn6: TcxGridDBColumn; + TV3Column1: TcxGridDBColumn; + cxGridDBColumn7: TcxGridDBColumn; + cxGridDBColumn8: TcxGridDBColumn; + cxGridLevel2: TcxGridLevel; + TV3Column2: TcxGridDBColumn; + TV3Column3: TcxGridDBColumn; + TV3Column4: TcxGridDBColumn; + TV3Column5: TcxGridDBColumn; + TV3Column6: TcxGridDBColumn; + TV3Column7: TcxGridDBColumn; + TV3Column8: TcxGridDBColumn; + Label4: TLabel; + Label9: TLabel; + Label3: TLabel; + BuyName: TcxTextEdit; + PurNo: TcxTextEdit; + SellName: TcxTextEdit; + CDS_2: TClientDataSet; + GPM_2: TcxGridPopupMenu; + DS_2: TDataSource; + ADO_2: TADOQuery; + CDS_3: TClientDataSet; + GPM_3: TcxGridPopupMenu; + ADO_3: TADOQuery; + DS_3: TDataSource; + procedure FormDestroy(Sender: TObject); + procedure FormClose(Sender: TObject; var Action: TCloseAction); + procedure TBCloseClick(Sender: TObject); + procedure FormShow(Sender: TObject); + procedure TBRafreshClick(Sender: TObject); + procedure ToolButton2Click(Sender: TObject); + procedure P_OrderNo_YSK(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); + procedure MPRTCodeNameChange(Sender: TObject); + procedure FormCreate(Sender: TObject); + procedure ToolButton3Click(Sender: TObject); + procedure CustNameChange(Sender: TObject); + procedure ConNoChange(Sender: TObject); + procedure cxTabControl1Change(Sender: TObject); + procedure TV1DblClick(Sender: TObject); + procedure ToolButton5Click(Sender: TObject); + procedure TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); + private + { Private declarations } + + procedure InitGrid(); + public + { Public declarations } + RKFlag, FCYID, FZKType, FBZType: string; + fType: string; + end; + +var + frmTradePlanSchedule1: TfrmTradePlanSchedule1; + +implementation + +uses + U_DataLink, U_RTFun, U_ZDYHelp, U_TradePlanScheduleDetail; + +{$R *.dfm} + +procedure TfrmTradePlanSchedule1.InitGrid(); +var + SqlStr: string; +begin + + SqlStr := ' select A.*,B.*'; + SqlStr := SqlStr + ',LJHCPiece= (select SUM(X.Piece) from BS_Cloth_IO X where X.FromPurSId = B.PurSId and X.IOType =''ɹ'' and STKName=''óײƥ'')'; + SqlStr := SqlStr + ',LJHCQty= (select SUM(X.Qty) from BS_Cloth_IO X where X.FromPurSId = B.PurSId and X.IOType =''ɹ'' and STKName=''óײƥ'')'; + SqlStr := SqlStr + ' from Pur_ClothPlan_Main A inner join Pur_ClothPlan_sub B on A.PurMId=B.PurMId '; + SqlStr := SqlStr + 'where C_Degree='''' '; + + InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'PurNo'); +end; + +procedure TfrmTradePlanSchedule1.FormDestroy(Sender: TObject); +begin + inherited; + frmTradePlanSchedule1 := nil; +end; + +procedure TfrmTradePlanSchedule1.ConNoChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmTradePlanSchedule1.cxTabControl1Change(Sender: TObject); +begin + + InitGrid(); +end; + +procedure TfrmTradePlanSchedule1.CustNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmTradePlanSchedule1.FormClose(Sender: TObject; var Action: TCloseAction); +begin + inherited; + Action := caFree; +end; + +procedure TfrmTradePlanSchedule1.TBCloseClick(Sender: TObject); +begin + + Close; +end; + +procedure TfrmTradePlanSchedule1.FormShow(Sender: TObject); +begin + inherited; + readCxGrid(self.Caption + 'Tv1', Tv1, 'ͳƲѯ'); + readCxGrid(self.Caption + 'Tv2', Tv2, 'ͳƲѯ'); + readCxGrid(self.Caption + 'Tv3', Tv3, 'ͳƲѯ'); + InitGrid(); +end; + +procedure TfrmTradePlanSchedule1.TBRafreshClick(Sender: TObject); +begin + frmFrameDateSel1.begdate.SetFocus; + InitGrid(); +end; + +procedure TfrmTradePlanSchedule1.ToolButton2Click(Sender: TObject); +begin + if ADOQueryMain.Active then + begin + SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); + SCreateCDS(ADOQueryMain, CDS_1); + SInitCDSData(ADOQueryMain, CDS_1); + end; +end; + +procedure TfrmTradePlanSchedule1.P_OrderNo_YSK(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmTradePlanSchedule1.ToolButton1Click(Sender: TObject); +begin + if ADOQueryMain.IsEmpty then + Exit; + TcxGridToExcel(self.Caption, cxgrid1); +end; + +procedure TfrmTradePlanSchedule1.MPRTCodeNameChange(Sender: TObject); +begin + ToolButton2.Click; +end; + +procedure TfrmTradePlanSchedule1.FormCreate(Sender: TObject); +begin + inherited; + frmFrameDateSel1.Enddate.Date := SGetServerDate(ADOQueryTemp); + frmFrameDateSel1.begdate.Date := frmFrameDateSel1.Enddate.Date - 60; +end; + +procedure TfrmTradePlanSchedule1.ToolButton3Click(Sender: TObject); +var + filepath: string; + mBegdate, mEnddate: string; +begin + mBegdate := FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.begdate.Date); + mEnddate := FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date); + if CDS_1.IsEmpty then + exit; + + try + + filepath := ExtractFilePath(Application.ExeName) + 'report\.rmf'; + if not FileExists(Pchar(filepath)) then + begin + application.MessageBox(pchar('ļ[' + filepath + ']ڣ'), 'ʾϢ', MB_IConError); + exit; + end; + + RMGridReport1.LoadFromFile(filepath); + + RMGridReport1.ShowReport; + finally + + end; + +end; + +procedure TfrmTradePlanSchedule1.ToolButton5Click(Sender: TObject); +begin + + WriteCxGrid(self.Caption + 'Tv1', Tv1, 'ͳƲѯ'); + WriteCxGrid(self.Caption + 'Tv2', Tv2, 'ͳƲѯ'); + WriteCxGrid(self.Caption + 'Tv3', Tv3, 'ͳƲѯ'); +end; + +procedure TfrmTradePlanSchedule1.TV1DblClick(Sender: TObject); +begin + + try + frmTradePlanScheduleDetail := TfrmTradePlanScheduleDetail.Create(Application); + with frmTradePlanScheduleDetail do + begin + FMainId := self.CDS_1.FieldByName('MainId').AsString; + FOrderNo := self.CDS_1.FieldByName('OrderNo').AsString; + FMasterOrderNo := self.CDS_1.FieldByName('MasterOrderNo').AsString; + if ShowModal = 1 then + begin + Self.InitGrid(); + end; + end; + finally + frmTradePlanScheduleDetail.Free; + end; +end; + +procedure TfrmTradePlanSchedule1.TV1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); +var + SqlStr: string; +begin + + SqlStr := ' select A.*'; + + SqlStr := SqlStr + ' from BS_Cloth_IO A '; + SqlStr := SqlStr + 'where A.FromPurSId = ' + quotedstr(Trim(CDS_1.fieldbyname('PurSId').AsString)); + SqlStr := SqlStr + 'and A.IOType =''ɹ'' and STKName=''óײƥ'' '; + + InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, '', ''); + + SqlStr := ' select A.IOTime,A.ToCoName,TPPiece=A.Piece,TPQty=A.Qty,WGPiece=B.Piece,WGQty=B.Qty,B.STKPiece,B.STKQty,B.FtyPCId,B.C_Color,B.StkCoName '; + SqlStr := SqlStr + ' ,sl=cast(round((1-ISNULL(B.Qty, 0)/A.Qty)*100,2) as DECIMAL(18,2)) '; + SqlStr := SqlStr + ' from BS_Cloth_IO A left join BS_Cloth_IO B on A.ToSubID=B.FromSubId AND B.IOType=''ӹ'' '; + SqlStr := SqlStr + ' where A.IOType=''Ͷ'' '; + SqlStr := SqlStr + ' and A.FromPurSId = ' + quotedstr(Trim(CDS_1.fieldbyname('PurSId').AsString)); + + InitCDSData(ADO_3, CDS_3, Tv3, SqlStr, '', ''); + +end; + +end. + diff --git a/项目代码/RTBasicsV1/T02贸易汇总仓库/TradeTotalClothStk.identcache b/项目代码/RTBasicsV1/T02贸易汇总仓库/TradeTotalClothStk.identcache index baec347..203b7f2 100644 Binary files a/项目代码/RTBasicsV1/T02贸易汇总仓库/TradeTotalClothStk.identcache and b/项目代码/RTBasicsV1/T02贸易汇总仓库/TradeTotalClothStk.identcache differ diff --git a/项目代码/RTBasicsV1/T02贸易汇总仓库/U_ClothScheduleList.dfm b/项目代码/RTBasicsV1/T02贸易汇总仓库/U_ClothScheduleList.dfm index 6eb0e65..15cfd7a 100644 --- a/项目代码/RTBasicsV1/T02贸易汇总仓库/U_ClothScheduleList.dfm +++ b/项目代码/RTBasicsV1/T02贸易汇总仓库/U_ClothScheduleList.dfm @@ -3,9 +3,9 @@ inherited frmClothScheduleList: TfrmClothScheduleList Top = 116 Caption = #24067#21305#21152#24037#35745#21010 ClientHeight = 701 - ClientWidth = 1284 + ClientWidth = 1575 Font.Height = -16 - ExplicitWidth = 1300 + ExplicitWidth = 1591 ExplicitHeight = 740 PixelsPerInch = 96 TextHeight = 21 @@ -13,7 +13,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList Tag = 1 Left = 0 Top = 0 - Width = 1284 + Width = 1575 Height = 30 AutoSize = True ButtonHeight = 30 @@ -26,6 +26,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList ParentColor = False ShowCaptions = True TabOrder = 0 + ExplicitWidth = 1284 object TBRafresh: TToolButton Left = 0 Top = 0 @@ -70,7 +71,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList object Panel1: TPanel [1] Left = 0 Top = 30 - Width = 1284 + Width = 1575 Height = 83 Align = alTop BevelInner = bvRaised @@ -78,6 +79,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList Color = clWhite ParentBackground = False TabOrder = 1 + ExplicitWidth = 1284 object Label9: TLabel Left = 23 Top = 50 @@ -134,11 +136,12 @@ inherited frmClothScheduleList: TfrmClothScheduleList object cxGrid1: TcxGrid [2] Left = 0 Top = 143 - Width = 1284 + Width = 1575 Height = 289 Align = alClient BorderStyle = cxcbsNone TabOrder = 2 + ExplicitWidth = 1284 object TV1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -375,7 +378,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList Tag = 1 Left = 0 Top = 432 - Width = 1284 + Width = 1575 Height = 30 Align = alBottom AutoSize = True @@ -389,6 +392,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList ParentColor = False ShowCaptions = True TabOrder = 3 + ExplicitWidth = 1284 object ToolButton2: TToolButton Left = 0 Top = 0 @@ -441,16 +445,17 @@ inherited frmClothScheduleList: TfrmClothScheduleList object cxPageControl1: TcxPageControl [4] Left = 0 Top = 462 - Width = 1284 + Width = 1575 Height = 239 Align = alBottom TabOrder = 4 - Properties.ActivePage = cxTabSheet4 + Properties.ActivePage = cxTabSheet2 Properties.CustomButtons.Buttons = <> Properties.Style = 5 OnChange = cxPageControl1Change + ExplicitWidth = 1284 ClientRectBottom = 239 - ClientRectRight = 1284 + ClientRectRight = 1575 ClientRectTop = 32 object cxTabSheet2: TcxTabSheet Caption = ' '#37197#24067#25968#25454' ' @@ -458,7 +463,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList object cxGrid2: TcxGrid Left = 0 Top = 0 - Width = 1284 + Width = 1575 Height = 207 Align = alClient TabOrder = 0 @@ -614,7 +619,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList object cxGrid3: TcxGrid Left = 0 Top = 0 - Width = 1284 + Width = 1575 Height = 207 Align = alClient TabOrder = 0 @@ -786,7 +791,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList object cxGrid4: TcxGrid Left = 0 Top = 0 - Width = 1284 + Width = 1575 Height = 207 Align = alClient TabOrder = 0 @@ -955,13 +960,15 @@ inherited frmClothScheduleList: TfrmClothScheduleList object cxTabSheet4: TcxTabSheet Caption = #38754#26009#20986#24211 ImageIndex = 3 + ExplicitWidth = 1284 object cxGrid5: TcxGrid Left = 0 Top = 0 - Width = 1284 + Width = 1575 Height = 207 Align = alClient TabOrder = 0 + ExplicitWidth = 1284 object TV5: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -1142,7 +1149,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList object cxTabControl1: TcxTabControl [5] Left = 0 Top = 113 - Width = 1284 + Width = 1575 Height = 30 Align = alTop TabOrder = 5 @@ -1155,6 +1162,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList #24050#23436#25104 #20840#37096) OnChange = cxTabControl1Change + ExplicitWidth = 1284 ClientRectRight = 0 ClientRectTop = 0 end