From b5fbedfd2633d6667a0535de203ae279543ed026 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E2=80=9Cddf=E2=80=9D?= <“ddf668490@163.com”> Date: Thu, 8 Aug 2024 16:35:41 +0800 Subject: [PATCH] 1 --- .../RTBasicsV1/D01针织生产计划/KnitPlan.dpr | 17 +- .../RTBasicsV1/D01针织生产计划/KnitPlan.dproj | 36 +- .../D01针织生产计划/KnitPlan.dproj.local | 90 +- .../D01针织生产计划/KnitPlan.identcache | Bin 2486 -> 3039 bytes .../RTBasicsV1/D01针织生产计划/U_DCYueMoney.dfm | 114 +- .../RTBasicsV1/D01针织生产计划/U_DCYueMoney.pas | 16 +- .../RTBasicsV1/D01针织生产计划/U_DataLink.dfm | 5 +- .../RTBasicsV1/D01针织生产计划/U_DataLink.pas | 23 +- .../RTBasicsV1/D01针织生产计划/U_GetDllForm.pas | 6 +- .../D01针织生产计划/U_KnitCardMachInPut.dfm | 107 +- .../D01针织生产计划/U_KnitCardMachInPut.pas | 18 +- .../RTBasicsV1/D01针织生产计划/U_KnitPlanCard.dfm | 231 +- .../RTBasicsV1/D01针织生产计划/U_KnitPlanCard.pas | 33 +- .../D01针织生产计划/U_KnitPlanInPut.dfm | 2126 +++++++++-------- .../D01针织生产计划/U_KnitPlanInPut.pas | 364 ++- .../D01针织生产计划/U_KnitPlanInPut.vlb | 877 +++++++ .../RTBasicsV1/D01针织生产计划/U_KnitPlanList.dfm | 322 +-- .../RTBasicsV1/D01针织生产计划/U_KnitPlanList.pas | 99 +- .../D01针织生产计划/U_KnitPlanProgress.dfm | 166 +- .../D01针织生产计划/U_KnitPlanProgress.pas | 21 +- .../RTBasicsV1/D01针织生产计划/U_MachPlanSet.dfm | 27 +- .../RTBasicsV1/D01针织生产计划/U_WageListTKJ.dfm | 149 +- .../RTBasicsV1/D01针织生产计划/U_WageListTKJ.pas | 13 +- .../RTBasicsV1/D01针织生产计划/testDll.dpr | 17 +- .../RTBasicsV1/D01针织生产计划/testDll.dproj | 799 ++++++- .../RTBasicsV1/D01针织生产计划/testDll.identcache | Bin 174 -> 699 bytes .../RTBasicsV1/D03针织坯布仓库/KnitClothStk.dpr | 34 +- .../RTBasicsV1/D03针织坯布仓库/KnitClothStk.dproj | 98 +- .../D03针织坯布仓库/KnitClothStk.dproj.local | 129 +- .../D03针织坯布仓库/KnitClothStk.identcache | Bin 1861 -> 2999 bytes .../D03针织坯布仓库/KnitClothStk.skincfg | 62 + .../D03针织坯布仓库/ProjectGroup1.groupproj.local | 2 +- .../RTBasicsV1/D03针织坯布仓库/U_DataLink.dfm | 171 +- .../RTBasicsV1/D03针织坯布仓库/U_DataLink.pas | 41 +- .../D03针织坯布仓库/U_KnitClothDROutEdit.dfm | 273 +-- .../D03针织坯布仓库/U_KnitClothDROutEdit.pas | 44 +- .../D03针织坯布仓库/U_KnitClothInEdit.dfm | 244 +- .../D03针织坯布仓库/U_KnitClothInEdit.pas | 37 +- .../D03针织坯布仓库/U_KnitClothInEdit.vlb | 232 ++ .../D03针织坯布仓库/U_KnitClothInList.dfm | 879 +++---- .../D03针织坯布仓库/U_KnitClothInList.pas | 89 +- .../D03针织坯布仓库/U_KnitClothInList1.dfm | 38 +- .../D03针织坯布仓库/U_KnitClothInList1.pas | 18 +- .../D03针织坯布仓库/U_KnitClothOutEdit.dfm | 234 +- .../D03针织坯布仓库/U_KnitClothOutEdit.pas | 38 +- .../D03针织坯布仓库/U_KnitClothOutList.dfm | 1100 +++------ .../D03针织坯布仓库/U_KnitClothOutList.pas | 101 +- .../D03针织坯布仓库/U_KnitClothStkList.dfm | 1072 ++++----- .../D03针织坯布仓库/U_KnitClothStkList.pas | 93 +- .../D03针织坯布仓库/U_KnitClothWaitReleased.dfm | 92 +- .../D03针织坯布仓库/U_KnitClothWaitReleased.pas | 24 +- .../RTBasicsV1/D03针织坯布仓库/U_KnitDRList.dfm | 243 +- .../RTBasicsV1/D03针织坯布仓库/U_KnitDRList.pas | 38 +- .../D03针织坯布仓库/U_KnitDRQuickInPut.dfm | 198 +- .../D03针织坯布仓库/U_KnitDRQuickInPut.pas | 59 +- .../D03针织坯布仓库/U_KnitDRQuickInPut.vlb | 75 + .../D03针织坯布仓库/U_KnitDRQuickSel.dfm | 186 +- .../D03针织坯布仓库/U_KnitDRQuickSel.pas | 37 +- .../RTBasicsV1/D03针织坯布仓库/U_KnitDRSel.dfm | 195 +- .../RTBasicsV1/D03针织坯布仓库/U_KnitDRSel.pas | 36 +- .../RTBasicsV1/D03针织坯布仓库/U_KnitDRtInPut.dfm | 270 +-- .../RTBasicsV1/D03针织坯布仓库/U_KnitDRtInPut.pas | 59 +- .../RTBasicsV1/D03针织坯布仓库/U_KnitPlanSel.dfm | 266 +-- .../RTBasicsV1/D03针织坯布仓库/U_KnitPlanSel.pas | 34 +- .../D03针织坯布仓库/U_KnitStockTakinglist.dfm | 283 +-- .../D03针织坯布仓库/U_KnitStockTakinglist.pas | 53 +- .../RTBasicsV1/D03针织坯布仓库/testDll.identcache | Bin 162 -> 174 bytes 67 files changed, 7393 insertions(+), 5460 deletions(-) create mode 100644 项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.vlb create mode 100644 项目代码/RTBasicsV1/D03针织坯布仓库/KnitClothStk.skincfg create mode 100644 项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInEdit.vlb create mode 100644 项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRQuickInPut.vlb diff --git a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dpr b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dpr index 4bd0a75..2b16e54 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dpr +++ b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dpr @@ -1,5 +1,4 @@ library KnitPlan; - uses SysUtils, classes, @@ -34,34 +33,34 @@ uses U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas', U_LoomSel in '..\A00ͨô\U_LoomSel.pas' {frmLoomSel}, U_EmployeeSel in '..\A00ͨô\U_EmployeeSel.pas' {frmEmployeeSel}, + U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, + U_KnitPlanList in 'U_KnitPlanList.pas' {frmKnitPlanList}, + U_KnitPlanInPut in 'U_KnitPlanInPut.pas' {frmKnitPlanInPut}, + U_KnitPlanCard in 'U_KnitPlanCard.pas' {frmKnitPlanCard}, FrameDateSel in '..\A00ͨ\FrameDateSel.pas' {frmFrameDateSel: TFrame}, FramePagingSel in '..\A00ͨ\FramePagingSel.pas' {frmFramePagingSel: TFrame}, - U_KnitPlanList in 'U_KnitPlanList.pas' {frmKnitPlanList}, - U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}; + U_KnitCardMachInPut in 'U_KnitCardMachInPut.pas' {frmKnitCardMachInPut}, + U_KnitPlanProgress in 'U_KnitPlanProgress.pas' {frmKnitPlanProgress}, + U_WageListTKJ in 'U_WageListTKJ.pas' {frmWageListTKJ}, + U_DCYueMoney in 'U_DCYueMoney.pas' {frmDCYueMoney}; {$R *.res} - procedure DllEnterPoint(dwReason: DWORD); far; stdcall; begin DLLProc := @DLLEnterPoint; DllEnterPoint(DLL_PROCESS_ATTACH); end; - procedure DLLUnloadProc(Reason: Integer); register; begin // if (Reason = DLL_PROCESS_DETACH) or (Reason = DLL_THREAD_DETACH) then // Application := NewDllApp; end; - exports GetDllForm; - begin try NewDllApp := Application; DLLProc := @DLLUnloadProc; except - end; end. - diff --git a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj index 58f1250..7cfaff4 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj +++ b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj @@ -124,7 +124,7 @@ CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) - D:\RTFormwork\项目代码\RTBasicsV1\D01针织生产计划\testDll.exe + D:\rtformwork\项目代码\RTBasicsV1\D01针织生产计划\testDll.exe @@ -211,6 +211,23 @@
frmEmployeeSel
dfm + +
BaseDataLink
+ dfm + TDataModule + + +
frmKnitPlanList
+ dfm + + +
frmKnitPlanInPut
+ dfm + + +
frmKnitPlanCard
+ dfm +
frmFrameDateSel
dfm @@ -221,14 +238,21 @@ dfm TFrame - -
frmKnitPlanList
+ +
frmKnitCardMachInPut
dfm - -
BaseDataLink
+ +
frmKnitPlanProgress
+ dfm + + +
frmWageListTKJ
+ dfm + + +
frmDCYueMoney
dfm - TDataModule Cfg_2 diff --git a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj.local b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj.local index 94ae854..180e971 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj.local +++ b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.dproj.local @@ -1,62 +1,68 @@  - 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.772,=D:\rtformwork\项目代码\RTBasicsV1\D01针织生产计划\U_KnitPlanProgress.pas 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.811,=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\U_KnitPlanList.pas + 1899-12-30 00:00:00.000.566,=D:\rtformwork\public10\design\U_BaseDataLink.pas + 1899-12-30 00:00:00.000.111,=D:\Dp10Repo\项目代码\共佳\B02基础纱线仓库\U_YarnInfoInPut.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.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas + 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas 1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas - 1899-12-30 00:00:00.000.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.806,=D:\rtformwork\项目代码\RTBasicsV1\D01针织生产计划\U_DCYueMoney.pas + 1899-12-30 00:00:00.000.951,=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.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.340,=D:\rtformwork\项目代码\RTBasicsV1\A00通用组件\FramePagingSel.pas + 1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.pas= + 1899-12-30 00:00:00.000.286,=D:\rtformwork\项目代码\RTBasicsV1\A00通用组件\FrameDateSel.pas + 1899-12-30 00:00:00.000.139,D:\RTFormwork\项目代码\RTBasicsV1\A02基础产品管理\U_KnitClothInfoInput.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.756,D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCard.dfm=D:\Dp10Repo\项目代码\园中圆\D01针织生产计划\U_KnitPlanCardDel.dfm + 1899-12-30 00:00:00.000.019,=D:\rtformwork\项目代码\RTBasicsV1\D01针织生产计划\U_KnitPlanInPut.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_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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.289,=D:\rtformwork\项目代码\RTBasicsV1\D01针织生产计划\U_KnitPlanCard.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.612,=D:\Dp10Repo\项目代码\RTBasics\D00针织通用窗体\U_KnitPlanSel.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.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.638,=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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.415,=D:\rtformwork\项目代码\RTBasicsV1\D01针织生产计划\U_WageListTKJ.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.064,D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_KnitPlanSel.dfm 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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.616,=D:\rtformwork\项目代码\RTBasicsV1\D01针织生产计划\U_KnitCardMachInPut.pas + 1899-12-30 00:00:00.000.911,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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 + 1899-12-30 00:00:00.000.667,=D:\Dp10Repo\项目代码\共佳\A02基础产品管理\U_KnitClothInfoInput.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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 @@ -117,7 +123,7 @@ - + @@ -150,5 +156,17 @@ + + + + + + + + + + + + diff --git a/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.identcache b/项目代码/RTBasicsV1/D01针织生产计划/KnitPlan.identcache index 43be5b1ed8ff184efc83244e9ed8b25705fec700..45aa8f22722c1f1833b0ecb641d68a4be1a81951 100644 GIT binary patch delta 289 zcmdlcd|#YVZ6ae7dytD&Oi@YN#D^A>@#ILnI#}izKO{ho_PVKC3*#k#SBQmAFdW;H!E1p zZ1zw_zsVoj?KaD?EMsK%h3n%EPfSns$t*4j@%EbN zZ9DlRtMKG>Hk-)?Oe_$GS#Y^HN0z4g=I5nWZl27>!8nWgYw*XKRV1fVu delta 125 zcmcaFzD<}>VIpJH#9j51CAl;wH?WFLzRV~;*@i`TvOJU8 + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -643,6 +657,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end> object v1Column1: TcxGridDBBandedColumn DataBinding.FieldName = 'DCGName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -653,6 +668,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column2: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ26' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -663,6 +679,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column4: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ25' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -673,6 +690,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column5: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ23' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -683,6 +701,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column6: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ22' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -693,6 +712,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column8: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ24' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -703,6 +723,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column9: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ21' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -713,6 +734,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column10: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ20' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -723,6 +745,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column12: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ19' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -733,6 +756,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column13: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ18' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -744,6 +768,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column14: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ16' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -754,6 +779,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column16: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ15' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -764,6 +790,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column17: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ14' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -774,6 +801,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column18: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ13' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -784,6 +812,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column20: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ17' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -794,6 +823,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column21: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ12' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -804,6 +834,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column22: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ11' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -814,6 +845,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column25: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ27' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -824,6 +856,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column26: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ5' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -834,6 +867,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column28: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ9' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -844,6 +878,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column29: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ10' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -854,6 +889,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column54: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ7' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -864,6 +900,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column55: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ6' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -874,6 +911,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column56: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ3' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -884,6 +922,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column57: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ2' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -894,6 +933,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column58: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ4' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -904,6 +944,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column59: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ1' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -914,6 +955,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column60: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ8' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -924,6 +966,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column61: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ0' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -934,6 +977,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column62: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ29' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -944,6 +988,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column63: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ30' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -954,6 +999,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column64: TcxGridDBBandedColumn DataBinding.FieldName = 'GZ28' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -964,6 +1010,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column65: TcxGridDBBandedColumn DataBinding.FieldName = 'GZHZ' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Moving = False @@ -974,6 +1021,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column3: TcxGridDBBandedColumn DataBinding.FieldName = 'SCMoney' + DataBinding.IsNullValueType = True Options.Editing = False Position.BandIndex = 33 Position.ColIndex = 0 @@ -981,6 +1029,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column7: TcxGridDBBandedColumn DataBinding.FieldName = 'KJQty' + DataBinding.IsNullValueType = True Options.Editing = False Position.BandIndex = 34 Position.ColIndex = 0 @@ -988,6 +1037,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column11: TcxGridDBBandedColumn DataBinding.FieldName = 'QuanQty' + DataBinding.IsNullValueType = True Options.Editing = False Position.BandIndex = 35 Position.ColIndex = 0 @@ -995,6 +1045,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column15: TcxGridDBBandedColumn DataBinding.FieldName = 'FaMoney' + DataBinding.IsNullValueType = True Options.Editing = False Position.BandIndex = 37 Position.ColIndex = 0 @@ -1002,6 +1053,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column19: TcxGridDBBandedColumn DataBinding.FieldName = 'JiangMoney' + DataBinding.IsNullValueType = True Options.Editing = False Position.BandIndex = 38 Position.ColIndex = 0 @@ -1009,6 +1061,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column23: TcxGridDBBandedColumn DataBinding.FieldName = 'DayQty' + DataBinding.IsNullValueType = True Options.Editing = False Position.BandIndex = 39 Position.ColIndex = 0 @@ -1016,6 +1069,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object v1Column24: TcxGridDBBandedColumn DataBinding.FieldName = 'BuTie' + DataBinding.IsNullValueType = True Options.Editing = False Position.BandIndex = 36 Position.ColIndex = 0 @@ -1023,6 +1077,7 @@ inherited frmDCYueMoney: TfrmDCYueMoney end object Tv1Column1: TcxGridDBBandedColumn DataBinding.FieldName = 'totalSubsidyPrice' + DataBinding.IsNullValueType = True Position.BandIndex = 40 Position.ColIndex = 0 Position.RowIndex = 0 @@ -1032,23 +1087,6 @@ inherited frmDCYueMoney: TfrmDCYueMoney GridView = Tv1 end end - object MovePanel2: TMovePanel [3] - Left = 408 - Top = 192 - Width = 289 - Height = 49 - BevelInner = bvLowered - Caption = #27491#22312#22788#29702#25968#25454#65292#35831#31245#21518#12290#12290#12290 - Color = clSkyBlue - Font.Charset = GB2312_CHARSET - Font.Color = clRed - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 3 - Visible = False - end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_KnitPlan.ADOLink end diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_DCYueMoney.pas b/项目代码/RTBasicsV1/D01针织生产计划/U_DCYueMoney.pas index 8b730d3..57deeba 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/U_DCYueMoney.pas +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_DCYueMoney.pas @@ -12,7 +12,8 @@ uses cxDropDownEdit, MovePanel, Menus, cxCheckBox, RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, cxPC, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, - dxBarBuiltInMenu, U_BaseList; + dxBarBuiltInMenu, U_BaseList, dxSkinWXI, dxScrollbarAnnotations, cxContainer, + dxCore, cxDateUtils, cxTextEdit, cxMaskEdit, cxCalendar; type TfrmDCYueMoney = class(TfrmBaseList) @@ -28,7 +29,7 @@ type cxGridPopupMenu1: TcxGridPopupMenu; CDS_Main: TClientDataSet; Label1: TLabel; - DCGName: TEdit; + DCGName: TcxTextEdit; Label2: TLabel; cxGridPopupMenu2: TcxGridPopupMenu; RMDB_Main: TRMDBDataSet; @@ -72,8 +73,6 @@ type v1Column64: TcxGridDBBandedColumn; v1Column65: TcxGridDBBandedColumn; cxGrid1Level1: TcxGridLevel; - MovePanel2: TMovePanel; - Begdate: TDateTimePicker; ToolButton1: TToolButton; v1Column3: TcxGridDBBandedColumn; v1Column7: TcxGridDBBandedColumn; @@ -83,6 +82,7 @@ type v1Column23: TcxGridDBBandedColumn; v1Column24: TcxGridDBBandedColumn; Tv1Column1: TcxGridDBBandedColumn; + Begdate: TcxDateEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBRafreshClick(Sender: TObject); @@ -126,8 +126,8 @@ end; procedure TfrmDCYueMoney.InitGrid(); begin - MovePanel2.Visible := True; - MovePanel2.Refresh; + //MovePanel2.Visible := True; + //MovePanel2.Refresh; try ADOQueryMain.DisableControls; with ADOQueryMain do @@ -144,7 +144,7 @@ begin finally ADOQueryMain.EnableControls; end; - MovePanel2.Visible := False; + //MovePanel2.Visible := False; end; procedure TfrmDCYueMoney.TBRafreshClick(Sender: TObject); @@ -195,7 +195,7 @@ begin begin close; sql.Clear; - SQL.Add('exec P_View_DAY_GZCL' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', Begdate.DateTime)))); + SQL.Add('exec P_View_DAY_GZCL' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', Begdate.Date)))); open; end; diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_DataLink.dfm b/项目代码/RTBasicsV1/D01针织生产计划/U_DataLink.dfm index b434142..4438bf3 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/U_DataLink.dfm +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_DataLink.dfm @@ -1,8 +1,6 @@ inherited DataLink_KnitPlan: TDataLink_KnitPlan OldCreateOrder = True OnDestroy = DataModuleDestroy - Height = 406 - Width = 599 inherited cxEditStyleController1: TcxEditStyleController PixelsPerInch = 96 end @@ -14,6 +12,9 @@ inherited DataLink_KnitPlan: TDataLink_KnitPlan end inherited ThreeColorBase: TcxStyleRepository PixelsPerInch = 96 + inherited Default: TcxStyle + Font.Height = -14 + end end inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList inherited dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_DataLink.pas b/项目代码/RTBasicsV1/D01针织生产计划/U_DataLink.pas index f7fe5a8..018e5f2 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/U_DataLink.pas +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_DataLink.pas @@ -1,11 +1,8 @@ unit U_DataLink; - interface - uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, - Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, - U_BaseDataLink, + Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,U_BaseDataLink, dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, @@ -25,13 +22,11 @@ uses dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxCore, cxLocalization, dxLayoutLookAndFeels, cxImageList, cxGraphics, cxEdit, cxContainer, dxSkinsForm; - type TMyThread = class(TThread) protected procedure Execute; override; end; - var DConString: string; {ȫַ} server, dtbase, user, pswd: string; {ݿӲ} @@ -54,7 +49,6 @@ var IpCall: Integer; IpWLDZStr: string; UserDataFlag: string; - type TDataLink_KnitPlan = class(TBaseDataLink) AdoDataLink: TADOQuery; @@ -70,18 +64,13 @@ type public { Public declarations } end; - TMakebar = procedure(ucData: pchar; nDataLen: integer; nErrLevel: integer; nMask: integer; nBarEdition: integer; szBmpFileName: pchar; nScale: integer); stdcall; - TMixtext = procedure(szSrcBmpFileName: PChar; szDstBmpFileName: PChar; sztext: PChar; fontsize, txtheight, hmargin, vmargin, txtcntoneline: integer); stdcall; - var DataLink_KnitPlan: TDataLink_KnitPlan; CriticalSection: TCriticalSection; {ٽ} - implementation {$R *.dfm} - procedure TMyThread.Execute; begin FreeOnTerminate := True; @@ -104,29 +93,23 @@ begin Connected := true; end; except - end; end; CriticalSection.Leave; end; - procedure TDataLink_KnitPlan.DataModuleDestroy(Sender: TObject); begin -inherited; + inherited; CriticalSection.Free; DataLink_KnitPlan := nil; end; - procedure TDataLink_KnitPlan.Timer_linkTimer(Sender: TObject); begin TMyThread.Create(False); end; - procedure TDataLink_KnitPlan.DataModuleCreate(Sender: TObject); begin -inherited; + inherited; CriticalSection := TCriticalSection.Create; end; - end. - diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_GetDllForm.pas b/项目代码/RTBasicsV1/D01针织生产计划/U_GetDllForm.pas index fbae855..8664930 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/U_GetDllForm.pas +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_GetDllForm.pas @@ -70,10 +70,10 @@ begin if trim(DataBaseStr) = '' then begin - server := '101.132.143.144,7781'; + server := '127.0.0.1'; dtbase := 'RTBasicsData'; - user := 'rtsa'; - pswd := 'rightsoft@5740'; + user := 'sa'; + pswd := 'rightsoft'; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DParameters1 := ''; end diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitCardMachInPut.dfm b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitCardMachInPut.dfm index 1f9b95c..0fa9b66 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitCardMachInPut.dfm +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitCardMachInPut.dfm @@ -81,60 +81,61 @@ inherited frmKnitCardMachInPut: TfrmKnitCardMachInPut Font.Style = [fsBold] ParentFont = False end - object edtName: TEdit + object edtName: TcxTextEdit Tag = 2 Left = 374 Top = 5 - Width = 90 - Height = 25 - ReadOnly = True + AutoSize = False + ParentFont = False TabOrder = 0 - OnChange = MCNOChange + Height = 25 + Width = 90 end - object edtCode: TEdit + object edtCode: TcxTextEdit Tag = 2 Left = 215 Top = 5 - Width = 90 - Height = 25 - ReadOnly = True + AutoSize = False + ParentFont = False TabOrder = 1 - OnChange = MCNOChange + Height = 25 + Width = 90 end - object edtConNo: TEdit + object edtConNo: TcxTextEdit Tag = 2 Left = 63 Top = 5 - Width = 90 - Height = 25 - ReadOnly = True + AutoSize = False + ParentFont = False TabOrder = 2 - OnChange = MCNOChange + Height = 25 + Width = 90 end - object edtWAPPS: TEdit + object edtWAPPS: TcxTextEdit Tag = 2 Left = 700 Top = 6 - Width = 90 - Height = 25 - ReadOnly = True + AutoSize = False + ParentFont = False TabOrder = 3 - OnChange = MCNOChange + Height = 25 + Width = 90 end - object edtYAPPS: TEdit + object edtYAPPS: TcxTextEdit Tag = 2 Left = 537 Top = 6 - Width = 90 - Height = 25 - ReadOnly = True + AutoSize = False + ParentFont = False TabOrder = 4 - OnChange = MCNOChange + Height = 25 + Width = 90 end object cxCheckBox1: TcxCheckBox Left = 847 Top = 6 Caption = #33258#21160#25171#21360#26631#31614 + ParentFont = False Style.TransparentBorder = False TabOrder = 5 end @@ -236,28 +237,23 @@ inherited frmKnitCardMachInPut: TfrmKnitCardMachInPut Font.Style = [fsBold] ParentFont = False end - object edtMachNo: TEdit + object edtMachNo: TcxTextEdit Tag = 2 Left = 44 Top = 6 - Width = 108 - Height = 24 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = #23435#20307 - Font.Style = [fsBold] + AutoSize = False ParentFont = False - ReadOnly = True TabOrder = 0 + Height = 25 + Width = 108 end - object edtCardQty: TEdit + object edtCardQty: TcxTextEdit Tag = 2 Left = 247 Top = 117 - Width = 86 - Height = 25 + ParentFont = False TabOrder = 1 + Width = 86 end object Repairer: TBtnEditC Tag = 1 @@ -270,14 +266,14 @@ inherited frmKnitCardMachInPut: TfrmKnitCardMachInPut OnBtnUpClick = RepairerBtnUpClick OnBtnDnClick = RepairerBtnDnClick end - object BatchNo: TEdit + object BatchNo: TcxTextEdit Tag = 2 Left = 132 Top = 114 - Width = 53 - Height = 25 + ParentFont = False TabOrder = 3 Visible = False + Width = 53 end object isDY: TComboBox Left = 247 @@ -292,20 +288,15 @@ inherited frmKnitCardMachInPut: TfrmKnitCardMachInPut #21542 #26159) end - object Edit1: TEdit + object Edit1: TcxTextEdit Tag = 2 Left = 211 Top = 6 - Width = 108 - Height = 24 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = #23435#20307 - Font.Style = [fsBold] + AutoSize = False ParentFont = False - ReadOnly = True TabOrder = 5 + Height = 25 + Width = 108 end object Button3: TButton Left = 43 @@ -331,17 +322,17 @@ inherited frmKnitCardMachInPut: TfrmKnitCardMachInPut Height = 37 Align = alClient AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 83 Caption = 'ToolBar1' Color = clSkyBlue - DisabledImages = DataLink_KnitPlan.ImageList_new32 + DisabledImages = DataLink_KnitPlan.cxImageList_bar Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] - Images = DataLink_KnitPlan.ImageList_new32 + Images = DataLink_KnitPlan.cxImageList_bar List = True ParentColor = False ParentFont = False @@ -356,7 +347,7 @@ inherited frmKnitCardMachInPut: TfrmKnitCardMachInPut OnClick = ToolButton1Click end object ToolButton2: TToolButton - Left = 71 + Left = 63 Top = 0 AutoSize = True Caption = #25377#36710#24037 @@ -364,7 +355,7 @@ inherited frmKnitCardMachInPut: TfrmKnitCardMachInPut OnClick = ToolButton2Click end object ToolButton3: TToolButton - Left = 154 + Left = 138 Top = 0 AutoSize = True Caption = #25171#21360' ' @@ -372,7 +363,7 @@ inherited frmKnitCardMachInPut: TfrmKnitCardMachInPut OnClick = ToolButton3Click end object ToolButton12: TToolButton - Left = 231 + Left = 205 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -380,7 +371,7 @@ inherited frmKnitCardMachInPut: TfrmKnitCardMachInPut OnClick = ToolButton12Click end object TBClose: TToolButton - Left = 326 + Left = 292 Top = 0 AutoSize = True Caption = #20851#38381 @@ -396,8 +387,6 @@ inherited frmKnitCardMachInPut: TfrmKnitCardMachInPut Height = 480 Align = alClient TabOrder = 2 - ExplicitLeft = 1 - ExplicitTop = 72 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitCardMachInPut.pas b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitCardMachInPut.pas index ca61572..077044d 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitCardMachInPut.pas +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitCardMachInPut.pas @@ -37,11 +37,11 @@ type Label13: TLabel; Label21: TLabel; Label9: TLabel; - edtName: TEdit; - edtCode: TEdit; - edtConNo: TEdit; - edtWAPPS: TEdit; - edtYAPPS: TEdit; + edtName: TcxTextEdit; + edtCode: TcxTextEdit; + edtConNo: TcxTextEdit; + edtWAPPS: TcxTextEdit; + edtYAPPS: TcxTextEdit; Panel1: TPanel; Panel2: TPanel; Label10: TLabel; @@ -50,12 +50,12 @@ type Label8: TLabel; Label4: TLabel; Label2: TLabel; - edtMachNo: TEdit; - edtCardQty: TEdit; + edtMachNo: TcxTextEdit; + edtCardQty: TcxTextEdit; Repairer: TBtnEditC; - BatchNo: TEdit; + BatchNo: TcxTextEdit; isDY: TComboBox; - Edit1: TEdit; + Edit1: TcxTextEdit; ToolBar1: TToolBar; ToolButton1: TToolButton; ToolButton12: TToolButton; diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanCard.dfm b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanCard.dfm index eb06067..304e4cb 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanCard.dfm +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanCard.dfm @@ -14,10 +14,10 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard Left = 0 Top = 0 Width = 1397 - Height = 38 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 83 Caption = 'ToolBar1' Color = clSkyBlue DisabledImages = DataLink_KnitPlan.ImageList_new32 @@ -26,7 +26,7 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] - Images = DataLink_KnitPlan.ImageList_new32 + Images = DataLink_KnitPlan.cxImageList_bar List = True ParentColor = False ParentFont = False @@ -41,7 +41,7 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard OnClick = TBRafreshClick end object ToolButton3: TToolButton - Left = 71 + Left = 63 Top = 0 AutoSize = True Caption = #24067#31080#23433#25490 @@ -49,7 +49,7 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard OnClick = ToolButton3Click end object ToolButton4: TToolButton - Left = 166 + Left = 150 Top = 0 AutoSize = True Caption = #21024#38500 @@ -57,7 +57,7 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard OnClick = ToolButton4Click end object ToolButton5: TToolButton - Left = 237 + Left = 213 Top = 0 AutoSize = True Caption = #21024#38500#26085#24535 @@ -65,7 +65,7 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard OnClick = ToolButton5Click end object ToolButton1: TToolButton - Left = 332 + Left = 300 Top = 0 AutoSize = True Caption = #25171#21360 @@ -73,7 +73,7 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard OnClick = ToolButton1Click end object ToolButton2: TToolButton - Left = 403 + Left = 363 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -81,7 +81,7 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard OnClick = ToolButton2Click end object TBClose: TToolButton - Left = 498 + Left = 450 Top = 0 AutoSize = True Caption = #20851#38381 @@ -91,18 +91,19 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard end object Panel1: TPanel [1] Left = 0 - Top = 38 + Top = 30 Width = 1397 - Height = 67 + Height = 103 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clWhite ParentBackground = False TabOrder = 1 + ExplicitLeft = -1 object Label3: TLabel - Left = 193 - Top = 12 + Left = 32 + Top = 51 Width = 39 Height = 12 Caption = #21512#21516#21495 @@ -114,8 +115,8 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard ParentFont = False end object Label1: TLabel - Left = 561 - Top = 12 + Left = 400 + Top = 51 Width = 53 Height = 12 Caption = #26426' '#21488' '#21495 @@ -127,8 +128,8 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard ParentFont = False end object Label2: TLabel - Left = 379 - Top = 38 + Left = 218 + Top = 77 Width = 52 Height = 12 Caption = #20135#21697#21517#31216 @@ -140,8 +141,8 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard ParentFont = False end object Label4: TLabel - Left = 180 - Top = 38 + Left = 19 + Top = 77 Width = 52 Height = 12 Caption = #20135#21697#32534#21495 @@ -153,8 +154,8 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard ParentFont = False end object Label5: TLabel - Left = 377 - Top = 12 + Left = 216 + Top = 51 Width = 52 Height = 12 Caption = #29983#20135#21333#21495 @@ -166,8 +167,8 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard ParentFont = False end object Label6: TLabel - Left = 560 - Top = 38 + Left = 399 + Top = 77 Width = 54 Height = 12 Caption = #25209' '#21495 @@ -178,29 +179,9 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard Font.Style = [fsBold] ParentFont = False end - object Label7: TLabel - Left = 22 - Top = 12 - Width = 52 - Height = 12 - Caption = #26597#35810#26085#26399 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - end - object Label8: TLabel - Left = 56 - Top = 38 - Width = 15 - Height = 17 - Caption = '---' - end object Label9: TLabel - Left = 755 - Top = 12 + Left = 594 + Top = 51 Width = 54 Height = 12 Caption = #21345' '#21495 @@ -211,95 +192,111 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard Font.Style = [fsBold] ParentFont = False end - object ConNo: TEdit + object ConNo: TcxTextEdit Tag = 2 - Left = 234 - Top = 8 - Width = 100 - Height = 25 + Left = 72 + Top = 49 + AutoSize = False + ParentFont = False TabOrder = 0 - OnChange = ConNoChange - end - object Loom: TEdit - Tag = 1 - Left = 618 - Top = 8 + Height = 22 Width = 100 - Height = 25 + end + object Loom: TcxTextEdit + Tag = 1 + Left = 457 + Top = 47 + AutoSize = False + ParentFont = False TabOrder = 3 - OnChange = ConNoChange - end - object C_Name: TEdit - Tag = 2 - Left = 433 - Top = 34 + Height = 22 Width = 100 - Height = 25 + end + object C_Name: TcxTextEdit + Tag = 2 + Left = 272 + Top = 73 + AutoSize = False + ParentFont = False TabOrder = 1 - OnChange = ConNoChange - end - object C_Code: TEdit - Tag = 2 - Left = 234 - Top = 34 + Height = 22 Width = 100 - Height = 25 + end + object C_Code: TcxTextEdit + Tag = 2 + Left = 73 + Top = 73 + AutoSize = False + ParentFont = False TabOrder = 2 - OnChange = ConNoChange - end - object OrderNo: TEdit - Tag = 2 - Left = 433 - Top = 8 + Height = 22 Width = 100 - Height = 25 + end + object OrderNo: TcxTextEdit + Tag = 2 + Left = 272 + Top = 47 + AutoSize = False + ParentFont = False TabOrder = 4 - OnChange = ConNoChange + Height = 22 + Width = 100 end - object BatchNo: TEdit + object BatchNo: TcxTextEdit Tag = 1 - Left = 618 - Top = 34 - Width = 100 - Height = 25 + Left = 457 + Top = 73 + AutoSize = False + ParentFont = False TabOrder = 5 - OnChange = ConNoChange - end - object BegDate: TDateTimePicker - Left = 80 - Top = 8 - Width = 85 - Height = 20 - Date = 44378.000000000000000000 - Format = 'yyyy-MM-dd' - Time = 0.464742650459811600 - TabOrder = 6 - end - object EndDate: TDateTimePicker - Left = 80 - Top = 34 - Width = 86 - Height = 20 - Date = 40675.000000000000000000 - Format = 'yyyy-MM-dd' - Time = 0.464761099538009100 - TabOrder = 7 - end - object PCID: TEdit - Tag = 2 - Left = 811 - Top = 8 + Height = 22 Width = 100 - Height = 25 - TabOrder = 8 - OnChange = ConNoChange + end + object PCID: TcxTextEdit + Tag = 2 + Left = 650 + Top = 47 + AutoSize = False + ParentFont = False + TabOrder = 6 + Height = 22 + Width = 100 + end + inline frmFrameDateSel: TfrmFrameDateSel + Left = -1 + Top = 1 + Width = 1078 + Height = 37 + Color = clWhite + ParentBackground = False + ParentColor = False + TabOrder = 7 + ExplicitLeft = -1 + ExplicitTop = 1 + inherited BegDate: TcxDateEdit + Left = 92 + ExplicitLeft = 92 + ExplicitHeight = 33 + end + inherited EndDate: TcxDateEdit + Left = 233 + ExplicitLeft = 233 + ExplicitHeight = 33 + end + inherited cxButton3: TcxButton + Top = 2 + ExplicitTop = 2 + end + inherited cbbType: TcxComboBox + ExplicitHeight = 33 + end end end object cxGrid1: TcxGrid [2] Left = 0 - Top = 132 + Top = 160 Width = 1397 - Height = 505 + Height = 477 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 @@ -475,7 +472,7 @@ inherited frmKnitPlanCard: TfrmKnitPlanCard end object cxTabControl1: TcxTabControl [3] Left = 0 - Top = 105 + Top = 133 Width = 1397 Height = 27 Align = alTop diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanCard.pas b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanCard.pas index 7c9d3fa..e1016df 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanCard.pas +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanCard.pas @@ -28,7 +28,7 @@ uses dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, - dxSkinXmas2008Blue, dxScrollbarAnnotations; + dxSkinXmas2008Blue, dxScrollbarAnnotations, cxContainer, FrameDateSel; type TfrmKnitPlanCard = class(TfrmBaseList) @@ -41,9 +41,9 @@ type ADOQueryMain: TADOQuery; ADOQueryTemp: TADOQuery; Label3: TLabel; - ConNo: TEdit; + ConNo: TcxTextEdit; ADOQueryPrint: TADOQuery; - Loom: TEdit; + Loom: TcxTextEdit; Label1: TLabel; cxGrid1: TcxGrid; Tv1: TcxGridDBTableView; @@ -51,11 +51,11 @@ type v3Column1: TcxGridDBColumn; v3Column2: TcxGridDBColumn; Label2: TLabel; - C_Name: TEdit; + C_Name: TcxTextEdit; DS_1: TDataSource; CDS_1: TClientDataSet; Label4: TLabel; - C_Code: TEdit; + C_Code: TcxTextEdit; v3Column6: TcxGridDBColumn; v3Column8: TcxGridDBColumn; v3Column14: TcxGridDBColumn; @@ -73,10 +73,10 @@ type Tv1Column7: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; Label5: TLabel; - OrderNo: TEdit; + OrderNo: TcxTextEdit; Tv1Column9: TcxGridDBColumn; Label6: TLabel; - BatchNo: TEdit; + BatchNo: TcxTextEdit; PopupMenu1: TPopupMenu; N1: TMenuItem; N2: TMenuItem; @@ -84,12 +84,9 @@ type ToolButton4: TToolButton; N3: TMenuItem; ToolButton5: TToolButton; - Label7: TLabel; - Label8: TLabel; - BegDate: TDateTimePicker; - EndDate: TDateTimePicker; Label9: TLabel; - PCID: TEdit; + PCID: TcxTextEdit; + frmFrameDateSel: TfrmFrameDateSel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -162,13 +159,13 @@ begin 1: begin sql.Add(' and PRTCount>0'); - sql.Add(' and A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''''); - sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + ''''); + sql.Add(' and A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel.BegDate.Date)) + ''''); + sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel.EndDate.Date + 1)) + ''''); end; 2: begin - sql.Add(' and A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''''); - sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + ''''); + sql.Add(' and A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel.BegDate.Date)) + ''''); + sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel.EndDate.Date + 1)) + ''''); end; end; @@ -397,8 +394,8 @@ end; procedure TfrmKnitPlanCard.FormShow(Sender: TObject); begin inherited; - EndDate.DateTime := SGetServerDate(ADOQueryTemp); - BegDate.DateTime := EndDate.DateTime - 1; + frmFrameDateSel.EndDate.Date := SGetServerDate(ADOQueryTemp); + frmFrameDateSel.BegDate.Date := frmFrameDateSel.EndDate.Date - 1; ReadCxGrid(trim(self.Caption), Tv1, '2'); InitGrid(); end; diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.dfm b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.dfm index fd5782b..2d2d777 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.dfm +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.dfm @@ -6,26 +6,23 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ClientHeight = 805 ClientWidth = 1540 Color = clWhite - Font.Charset = GB2312_CHARSET - Font.Height = -12 - Font.Name = #23435#20307 Position = poScreenCenter WindowState = wsMaximized ExplicitWidth = 1556 ExplicitHeight = 844 PixelsPerInch = 96 - TextHeight = 12 + TextHeight = 13 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 Top = 0 Width = 1540 - Height = 38 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 83 Caption = 'ToolBar1' - DisabledImages = DataLink_KnitPlan.ImageList_new32 + DisabledImages = DataLink_KnitPlan.cxImageList_bar EdgeInner = esNone EdgeOuter = esNone Font.Charset = GB2312_CHARSET @@ -33,7 +30,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] - Images = DataLink_KnitPlan.ImageList_new32 + Images = DataLink_KnitPlan.cxImageList_bar List = True ParentFont = False ShowCaptions = True @@ -47,14 +44,14 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut OnClick = TBSaveClick end object ToolButton8: TToolButton - Left = 71 + Left = 63 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 ImageIndex = 16 end object TBClose: TToolButton - Left = 166 + Left = 150 Top = 0 AutoSize = True Caption = #20851#38381 @@ -64,825 +61,554 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut end object ScrollBox1: TScrollBox [1] Left = 0 - Top = 38 + Top = 30 Width = 1540 Height = 348 Align = alTop BevelInner = bvNone BevelOuter = bvNone Ctl3D = False - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentCtl3D = False - ParentFont = False TabOrder = 1 object Label1: TLabel Left = 11 Top = 58 - Width = 66 - Height = 12 + Width = 54 + Height = 13 Caption = #21512' '#21516' '#21495#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label2: TLabel Left = 707 Top = 8 - Width = 65 - Height = 12 + Width = 60 + Height = 13 Caption = #19979#21333#26085#26399#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label3: TLabel Left = 468 Top = 58 - Width = 65 - Height = 12 + Width = 60 + Height = 13 Caption = #20135#21697#21517#31216#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label11: TLabel - Left = 705 + Left = 713 Top = 34 - Width = 67 - Height = 12 + Width = 48 + Height = 13 Caption = #26426' '#22411#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label14: TLabel Left = 1258 Top = 106 - Width = 65 - Height = 12 + Width = 60 + Height = 13 Caption = #20844#21496#25260#22836#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clGreen - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False Visible = False end object Label18: TLabel - Left = 10 + Left = 14 Top = 84 - Width = 67 - Height = 12 + Width = 48 + Height = 13 Caption = #38376' '#24133#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 = 237 Top = 84 - Width = 67 - Height = 12 + Width = 48 + Height = 13 Caption = #20811' '#37325#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label5: TLabel Left = 468 Top = 8 - Width = 65 - Height = 12 + Width = 60 + Height = 13 Caption = #20132#36135#26085#26399#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 = 10 + Left = 14 Top = 108 - Width = 67 - Height = 12 + Width = 48 + Height = 13 Caption = #21305' '#25968#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlue - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label12: TLabel - Left = 466 + Left = 474 Top = 108 - Width = 67 - Height = 12 + Width = 48 + Height = 13 Caption = #21305' '#37325#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlue - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label13: TLabel Left = 237 Top = 108 - Width = 67 - Height = 12 + Width = 48 + Height = 13 Caption = #37325' '#37327#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlue - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label16: TLabel - Left = 10 + Left = 14 Top = 291 - Width = 67 - Height = 12 + Width = 48 + Height = 13 Caption = #22791' '#27880#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label26: TLabel - Left = 239 + Left = 231 Top = 58 - Width = 65 - Height = 12 + Width = 60 + Height = 13 Caption = #20135#21697#32534#21495#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label31: TLabel Left = 1256 Top = 334 - Width = 67 - Height = 12 + Width = 48 + Height = 13 Caption = #35268' '#26684#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False Visible = False end object Label37: TLabel Left = 655 Top = 108 - Width = 27 - Height = 12 + Width = 20 + Height = 13 Caption = #177'Kg' - Font.Charset = GB2312_CHARSET - Font.Color = clBlue - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label41: TLabel Left = 468 Top = 157 - Width = 65 - Height = 12 + Width = 60 + Height = 13 Caption = #29992#38024#26631#20934#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label47: TLabel - Left = 10 + Left = 14 Top = 34 - Width = 67 - Height = 12 + Width = 48 + Height = 13 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 Label33: TLabel Left = 707 Top = 133 - Width = 65 - Height = 12 + Width = 60 + Height = 13 Caption = #21253#35013#26041#24335#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label54: TLabel Left = 1256 Top = 238 - Width = 67 - Height = 12 + Width = 48 + Height = 13 Caption = #24037' '#33402#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False Visible = False end object Label43: TLabel - Left = 238 + Left = 234 Top = 34 - Width = 66 - Height = 12 + Width = 54 + Height = 13 Caption = #19994' '#21153' '#21592#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label59: TLabel - Left = 10 + Left = 14 Top = 237 - Width = 67 - Height = 12 + Width = 48 + Height = 13 Caption = #25490' '#32433#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object lbl2: TLabel - Left = 239 + Left = 231 Top = 8 - Width = 65 - Height = 12 + Width = 60 + Height = 13 Caption = #35745#21010#31867#22411#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label7: TLabel - Left = 12 + Left = 8 Top = 8 - Width = 65 - Height = 12 + Width = 60 + Height = 13 Caption = #35745#21010#21333#21495#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label4: TLabel - Left = 893 - Top = 158 - Width = 65 - Height = 12 + Left = 1260 + Top = 132 + Width = 60 + Height = 13 Caption = #21152#24037#21333#20301#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clMaroon - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False + Visible = False end object Label6: TLabel Left = 916 Top = 60 - Width = 52 - Height = 15 + Width = 48 + Height = 13 Caption = #19978#31216#30382#37325 - Font.Charset = ANSI_CHARSET - Font.Color = clGreen - Font.Height = -12 - Font.Name = 'Times New Roman' - Font.Style = [fsBold] - ParentFont = False end object Label17: TLabel - Left = 942 + Left = 928 Top = 7 - Width = 26 - Height = 15 + Width = 24 + Height = 13 Caption = #31995#25968 - Font.Charset = ANSI_CHARSET - Font.Color = clGreen - Font.Height = -12 - Font.Name = 'Times New Roman' - Font.Style = [fsBold] - ParentFont = False end object Label9: TLabel Left = 916 Top = 33 - Width = 52 - Height = 15 + Width = 48 + Height = 13 Caption = #26816#39564#21333#20301 - Font.Charset = ANSI_CHARSET - Font.Color = clGreen - Font.Height = -12 - Font.Name = 'Times New Roman' - Font.Style = [fsBold] - ParentFont = False end object Label20: TLabel - Left = 903 + Left = 910 Top = 83 - Width = 65 - Height = 15 + Width = 60 + Height = 13 Caption = #19981#19978#31216#30382#37325 - Font.Charset = ANSI_CHARSET - Font.Color = clGreen - Font.Height = -12 - Font.Name = 'Times New Roman' - Font.Style = [fsBold] - ParentFont = False end object Label10: TLabel - Left = 942 + Left = 928 Top = 107 - Width = 26 - Height = 15 + Width = 24 + Height = 13 Caption = #21152#37325 - Font.Charset = ANSI_CHARSET - Font.Color = clGreen - Font.Height = -12 - Font.Name = 'Times New Roman' - Font.Style = [fsBold] - ParentFont = False end object Label24: TLabel Left = 916 Top = 132 - Width = 52 - Height = 15 + Width = 48 + Height = 13 Caption = #31995#25968#31867#22411 - Font.Charset = ANSI_CHARSET - Font.Color = clGreen - Font.Height = -12 - Font.Name = 'Times New Roman' - Font.Style = [fsBold] - ParentFont = False end object Label15: TLabel Left = 1258 Top = 158 - Width = 65 - Height = 12 + Width = 60 + Height = 13 Caption = #19994#21153#31867#22411#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False Visible = False end object Label19: TLabel Left = 1260 Top = 210 - Width = 65 - Height = 12 + Width = 60 + Height = 13 Caption = #24320#26426#26085#26399#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False Visible = False end object Label21: TLabel Left = 1261 Top = 184 - Width = 65 - Height = 12 + Width = 60 + Height = 13 Caption = #32455#20132#26085#26399#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False Visible = False end object Label23: TLabel - Left = 706 + Left = 710 Top = 58 - Width = 66 - Height = 12 + Width = 54 + Height = 13 Caption = #26426' '#21488' '#21495#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label25: TLabel - Left = 12 + Left = 8 Top = 133 - Width = 65 - Height = 12 + Width = 60 + Height = 13 Caption = #20809#22383#38376#24133#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label27: TLabel - Left = 239 + Left = 231 Top = 133 - Width = 65 - Height = 12 + Width = 60 + Height = 13 Caption = #20809#22383#20811#37325#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label28: TLabel Left = 468 Top = 133 - Width = 65 - Height = 12 + Width = 60 + Height = 13 Caption = #24067#26550#38376#24133#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label29: TLabel - Left = 706 + Left = 710 Top = 84 - Width = 66 - Height = 12 + Width = 54 + Height = 13 Caption = #24635' '#38024' '#25968#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label32: TLabel Left = 916 Top = 184 - Width = 52 - Height = 12 + Width = 48 + Height = 13 Caption = #25277#38024#25171#21367 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label34: TLabel Left = 916 Top = 206 - Width = 52 - Height = 12 + Width = 48 + Height = 13 Caption = #24320#26426#36716#25968 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label35: TLabel Left = 916 Top = 230 - Width = 52 - Height = 12 + Width = 48 + Height = 13 Caption = #24179#22343#36716#25968 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label36: TLabel Left = 1257 Top = 34 - Width = 66 - Height = 12 + Width = 54 + Height = 13 Caption = #26426' '#20462' '#24037#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False Visible = False end object Label38: TLabel - Left = 466 + Left = 474 Top = 84 - Width = 67 - Height = 12 + Width = 48 + Height = 13 Caption = #25104' '#20998#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label39: TLabel Left = 1258 Top = 59 - Width = 65 - Height = 12 + Width = 60 + Height = 13 Caption = #38754#26009#39068#33394#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False Visible = False end object Label40: TLabel Left = 1257 Top = 261 - Width = 65 - Height = 12 + Width = 60 + Height = 13 Caption = #21367#24067#31867#22411#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False Visible = False end object Label42: TLabel Left = 1257 Top = 285 - Width = 65 - Height = 12 + Width = 60 + Height = 13 Caption = #21253#35013#26041#24335#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False Visible = False end object Label44: TLabel Left = 1255 Top = 311 - Width = 67 - Height = 12 + Width = 48 + Height = 13 Caption = #36864' '#22238#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False Visible = False end object Label45: TLabel - Left = 466 + Left = 474 Top = 34 - Width = 67 - Height = 12 + Width = 48 + Height = 13 Caption = #31867' '#21035#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label46: TLabel - Left = 10 + Left = 14 Top = 157 - Width = 67 - Height = 12 + Width = 48 + Height = 13 Caption = #36710' '#38388#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label48: TLabel Left = 237 Top = 157 - Width = 67 - Height = 12 + Width = 48 + Height = 13 Caption = #21333' '#20215#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label49: TLabel - Left = 10 + Left = 14 Top = 182 - Width = 67 - Height = 12 + Width = 48 + Height = 13 Caption = #32433' '#38271#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label50: TLabel Left = 707 Top = 108 - Width = 65 - Height = 12 + Width = 60 + Height = 13 Caption = #19994#21153#31867#22411#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label30: TLabel Left = 707 Top = 157 - Width = 65 - Height = 12 + Width = 60 + Height = 13 Caption = #21367#24067#24352#21147#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] + end + object OrdPieceWeight: TcxTextEdit + Tag = 2 + Left = 530 + Top = 107 + AutoSize = False ParentFont = False - end - object OrdDate: TDateTimePicker - Left = 770 - Top = 4 - Width = 120 - Height = 20 - BevelInner = bvNone - Date = 40916.000000000000000000 - Format = 'yyyy-MM-dd' - Time = 0.670856296288548000 - ShowCheckbox = True - TabOrder = 0 - end - object DlyDate: TDateTimePicker - Left = 529 - Top = 4 - Width = 120 - Height = 20 - BevelInner = bvNone - Date = 40916.000000000000000000 - Format = 'yyyy-MM-dd' - Time = 0.670856296288548000 - ShowCheckbox = True - TabOrder = 10 - end - object OrdPieceWeight: TEdit - Tag = 2 - Left = 531 - Top = 105 - Width = 67 - Height = 18 - TabOrder = 5 - OnExit = OrdPieceWeightExit - OnKeyPress = ConNoKeyPress - end - object OrdPiece: TEdit - Tag = 2 - Left = 75 - Top = 105 - Width = 120 - Height = 18 - TabOrder = 6 - OnChange = OrdPieceChange - OnKeyPress = ConNoKeyPress - end - object OrdQty: TEdit - Tag = 2 - Left = 299 - Top = 105 - Width = 120 - Height = 18 + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True TabOrder = 4 OnExit = OrdPieceWeightExit - OnKeyPress = ConNoKeyPress + Height = 20 + Width = 67 end - object OrdPieceWeightRange: TEdit + object OrdPiece: TcxTextEdit Tag = 2 - Left = 604 + Left = 74 + Top = 101 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 5 + Height = 20 + Width = 120 + end + object OrdQty: TcxTextEdit + Tag = 2 + Left = 297 Top = 105 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 3 + OnExit = OrdPieceWeightExit + Height = 20 + Width = 120 + end + object OrdPieceWeightRange: TcxTextEdit + Tag = 2 + Left = 601 + Top = 106 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 6 + Height = 20 Width = 46 - Height = 18 - TabOrder = 7 - OnKeyPress = ConNoKeyPress end object OrdSNote: TRichEdit Tag = 2 - Left = 793 - Top = 290 - Width = 582 + Left = 75 + Top = 285 + Width = 807 Height = 40 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 - Font.Name = #23435#20307 + Font.Name = #24494#36719#38597#40657 Font.Style = [] ParentFont = False - TabOrder = 8 + TabOrder = 7 Zoom = 100 end - object C_GramWeight: TEdit + object C_GramWeight: TcxTextEdit Tag = 2 - Left = 299 - Top = 81 - Width = 120 - Height = 18 - TabOrder = 3 - OnKeyPress = ConNoKeyPress - end - object C_Width: TEdit - Tag = 2 - Left = 75 - Top = 81 - Width = 120 - Height = 18 + Left = 297 + Top = 80 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True TabOrder = 2 - OnKeyPress = ConNoKeyPress + Height = 20 + Width = 120 end - object C_Name: TEdit + object C_Width: TcxTextEdit + Tag = 2 + Left = 74 + Top = 77 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 1 + Height = 20 + Width = 120 + end + object C_Name: TcxTextEdit Tag = 2 Left = 529 Top = 55 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 0 + Height = 20 Width = 120 - Height = 18 - TabOrder = 1 - OnKeyPress = ConNoKeyPress end object YarnArrangement: TRichEdit Left = 75 @@ -892,104 +618,55 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 - Font.Name = #23435#20307 + Font.Name = #24494#36719#38597#40657 Font.Style = [] ParentFont = False - TabOrder = 9 + TabOrder = 8 Zoom = 100 end - object CustName: TBtnEditC - Left = 75 - Top = 30 - Width = 120 + object Saleser: TcxTextEdit + Left = 297 + Top = 32 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 9 Height = 20 - ReadOnly = True - TabOrder = 11 - OnBtnUpClick = CustNameBtnUpClick - OnBtnDnClick = CustNameBtnDnClick - end - object MCType: TBtnEditC - Left = 770 - Top = 30 Width = 120 - Height = 20 - Hint = 'MCType/'#26426#22411 - TabOrder = 12 - OnBtnUpClick = MCTypeBtnUpClick - OnBtnDnClick = CustNameBtnDnClick end - object C_Code: TBtnEditC - Tag = 2 - Left = 299 - Top = 54 - Width = 120 - Height = 20 - ReadOnly = True - TabOrder = 13 - OnBtnUpClick = C_CodeBtnUpClick - end - object ConNo: TBtnEditC - Tag = 2 - Left = 75 - Top = 54 - Width = 120 - Height = 20 - TabOrder = 14 - OnBtnUpClick = ConNoBtnUpClick - end - object Saleser: TEdit - Left = 299 - Top = 31 - Width = 120 - Height = 18 - TabOrder = 15 - OnKeyPress = ConNoKeyPress - end - object OurCoName: TBtnEditC - Left = 1321 - Top = 102 - Width = 120 - Height = 20 - ReadOnly = True - TabOrder = 16 - Visible = False - OnBtnUpClick = OurCoNameBtnUpClick - OnBtnDnClick = CustNameBtnDnClick - end - object PacketNote: TBtnEditC - Left = 770 - Top = 129 - Width = 120 - Height = 20 - Hint = 'PacketNote/'#21253#35013#26041#24335 - TabOrder = 17 - OnBtnUpClick = MCTypeBtnUpClick - OnBtnDnClick = CustNameBtnDnClick - end - object Technics: TBtnEditC - Left = 1321 - Top = 232 - Width = 120 - Height = 20 - Hint = 'Technics/'#24037#33402 - TabOrder = 18 - Visible = False - OnBtnUpClick = MCTypeBtnUpClick - OnBtnDnClick = CustNameBtnDnClick - end - object OrderNo: TEdit - Left = 75 - Top = 5 - Width = 120 - Height = 18 + object OrderNo: TcxTextEdit + Left = 74 + Top = 4 + AutoSize = False Enabled = False - TabOrder = 19 - OnKeyPress = ConNoKeyPress + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 10 + Height = 20 + Width = 120 end object C_Spec: TRichEdit Tag = 2 - Left = 1321 - Top = 334 + Left = 1318 + Top = 332 Width = 120 Height = 22 Font.Charset = GB2312_CHARSET @@ -998,348 +675,384 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Name = #23435#20307 Font.Style = [] ParentFont = False - TabOrder = 20 + TabOrder = 11 Visible = False Zoom = 100 end - object OrdType: TComboBox - Left = 299 - Top = 3 - Width = 121 - Height = 22 - Style = csOwnerDrawFixed - ItemIndex = 0 - TabOrder = 21 - Text = #22823#36135#21333 - Items.Strings = ( - #22823#36135#21333 - #22806#21457#21333 - #35797#26679#21333) - end - object FtyCoName: TBtnEditC - Left = 954 - Top = 154 - Width = 120 - Height = 20 - ReadOnly = True - TabOrder = 22 - OnBtnUpClick = FtyCoNameBtnUpClick - OnBtnDnClick = CustNameBtnDnClick - end - object ConMId: TEdit + object ConMId: TcxTextEdit Tag = 2 - Left = 1255 + Left = 1256 Top = 5 - Width = 120 - Height = 18 - TabOrder = 23 + AutoSize = False + ParentFont = False + TabOrder = 12 Visible = False - OnKeyPress = ConNoKeyPress + Height = 20 + Width = 120 end - object ConSId: TEdit + object ConSId: TcxTextEdit Tag = 2 Left = 1406 - Top = 5 - Width = 120 - Height = 18 - TabOrder = 24 + Top = 4 + AutoSize = False + ParentFont = False + TabOrder = 13 Visible = False - OnKeyPress = ConNoKeyPress + Height = 20 + Width = 120 end - object RuleBeforeTare: TEdit + object RuleBeforeTare: TcxTextEdit Tag = 9 Left = 971 Top = 59 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 14 + Height = 20 Width = 100 - Height = 18 - TabOrder = 25 end - object Coefficient: TEdit + object Coefficient: TcxTextEdit Tag = 9 Left = 971 Top = 5 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 15 + Height = 20 Width = 100 - Height = 18 - TabOrder = 26 end - object RuleLenUnit: TComboBox + object RuleLaterTare: TcxTextEdit Tag = 9 Left = 971 - Top = 30 - Width = 100 + Top = 82 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 16 Height = 20 - Style = csDropDownList - ItemIndex = 0 - TabOrder = 27 - Text = 'M' - Items.Strings = ( - 'M' - 'Y') + Width = 100 end - object RuleLaterTare: TEdit + object AddWet: TcxTextEdit Tag = 9 Left = 971 - Top = 81 + Top = 106 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 17 + Height = 20 Width = 100 - Height = 18 - TabOrder = 28 end - object AddWet: TEdit - Tag = 9 - Left = 971 - Top = 105 - Width = 100 - Height = 18 - TabOrder = 29 - end - object RuleConversion: TComboBox - Tag = 9 - Left = 971 - Top = 129 - Width = 100 - Height = 20 - Style = csDropDownList - TabOrder = 30 - Items.Strings = ( - #26080#38656#36716#25442 - #27611#37325#36716#31859 - #20928#37325#36716#31859) - end - object BusinessType: TBtnEditC - Left = 1321 - Top = 154 - Width = 120 - Height = 20 - Hint = 'BusinessType/'#19994#21153#31867#22411 - TabOrder = 31 - Visible = False - OnBtnUpClick = MCTypeBtnUpClick - OnBtnDnClick = CustNameBtnDnClick - end - object KJDate: TDateTimePicker - Left = 1321 - Top = 206 - Width = 120 - Height = 20 - BevelInner = bvNone - Date = 40916.000000000000000000 - Format = 'yyyy-MM-dd' - Time = 0.670856296288548000 - ShowCheckbox = True - TabOrder = 32 - Visible = False - end - object ZJDate: TDateTimePicker - Left = 1321 - Top = 180 - Width = 120 - Height = 20 - BevelInner = bvNone - Date = 40916.000000000000000000 - Format = 'yyyy-MM-dd' - Time = 0.670856296288548000 - ShowCheckbox = True - TabOrder = 33 - Visible = False - end - object Looms: TEdit + object Looms: TcxTextEdit Left = 770 Top = 55 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 18 + Height = 20 Width = 120 - Height = 18 - TabOrder = 34 - OnKeyPress = ConNoKeyPress end - object C_GPGramWeight: TEdit + object C_GPGramWeight: TcxTextEdit Tag = 2 - Left = 299 + Left = 297 Top = 130 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 19 + Height = 20 Width = 120 - Height = 18 - TabOrder = 35 - OnKeyPress = ConNoKeyPress end - object C_GPWidth: TEdit + object C_GPWidth: TcxTextEdit Tag = 2 - Left = 75 - Top = 130 + Left = 74 + Top = 125 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 20 + Height = 20 Width = 120 - Height = 18 - TabOrder = 36 - OnKeyPress = ConNoKeyPress end - object C_BJWidth: TEdit + object C_BJWidth: TcxTextEdit Tag = 2 Left = 529 Top = 130 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 21 + Height = 20 Width = 120 - Height = 18 - TabOrder = 37 - OnKeyPress = ConNoKeyPress end - object TotalStitches: TEdit + object TotalStitches: TcxTextEdit Left = 770 Top = 81 - Width = 120 - Height = 18 - TabOrder = 38 - OnKeyPress = ConNoKeyPress - end - object NeedleShape: TBtnEditC - Left = 529 - Top = 153 - Width = 120 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 22 Height = 20 - Hint = 'NeedleShape/'#29992#38024#26631#20934 - TabOrder = 39 - OnBtnUpClick = MCTypeBtnUpClick - OnBtnDnClick = CustNameBtnDnClick + Width = 120 end - object PackType: TBtnEditC - Left = 971 - Top = 180 - Width = 100 - Height = 20 - Hint = 'PackType/'#25277#38024#25171#21367 - TabOrder = 40 - OnBtnUpClick = MCTypeBtnUpClick - OnBtnDnClick = CustNameBtnDnClick - end - object TurnsQty: TEdit + object TurnsQty: TcxTextEdit Left = 971 Top = 203 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 23 + Height = 20 Width = 100 - Height = 18 - TabOrder = 41 - OnKeyPress = ConNoKeyPress end - object TurnsQtyAvg: TEdit - Left = 974 + object TurnsQtyAvg: TcxTextEdit + Left = 971 Top = 227 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 24 + Height = 20 Width = 100 - Height = 18 - TabOrder = 42 - OnKeyPress = ConNoKeyPress end - object C_Composition: TEdit + object C_Composition: TcxTextEdit Tag = 2 Left = 529 Top = 81 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 25 + Height = 20 Width = 120 - Height = 18 - TabOrder = 43 - OnKeyPress = ConNoKeyPress end - object C_Color: TEdit + object C_Color: TcxTextEdit Tag = 2 Left = 1321 Top = 56 - Width = 120 - Height = 18 - TabOrder = 44 + AutoSize = False + ParentFont = False + TabOrder = 26 Visible = False - OnKeyPress = ConNoKeyPress - end - object RollType: TEdit - Left = 1320 - Top = 258 + Height = 20 Width = 120 - Height = 18 - TabOrder = 45 - Visible = False - OnKeyPress = ConNoKeyPress end - object PacketType: TEdit - Left = 1320 + object RollType: TcxTextEdit + Left = 1319 + Top = 259 + AutoSize = False + ParentFont = False + TabOrder = 27 + Visible = False + Height = 20 + Width = 120 + end + object PacketType: TcxTextEdit + Left = 1319 Top = 282 + AutoSize = False + ParentFont = False + TabOrder = 28 + Visible = False + Height = 20 Width = 120 - Height = 18 - TabOrder = 46 - Visible = False - OnKeyPress = ConNoKeyPress end - object SendBack: TComboBox - Left = 1320 - Top = 306 - Width = 121 - Height = 22 - Style = csOwnerDrawFixed - TabOrder = 47 - Visible = False - Items.Strings = ( - #36864#22238 - #23613#32455) - end - object C_Type: TEdit + object C_Type: TcxTextEdit Tag = 2 Left = 529 - Top = 30 + Top = 31 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 29 + Height = 20 Width = 120 - Height = 18 - TabOrder = 48 - OnKeyPress = ConNoKeyPress end - object Price: TEdit + object Price: TcxTextEdit Tag = 2 - Left = 300 + Left = 297 Top = 154 + AutoSize = False + ParentFont = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 30 + Height = 20 Width = 120 - Height = 18 - TabOrder = 49 - OnKeyPress = ConNoKeyPress - end - object Workshop: TComboBox - Left = 75 - Top = 152 - Width = 121 - Height = 22 - Style = csOwnerDrawFixed - ItemIndex = 0 - TabOrder = 50 - Text = #19968#36710#38388 - Items.Strings = ( - #19968#36710#38388 - #20108#36710#38388) end object YarnLength: TRichEdit - Left = 75 - Top = 180 + Left = 77 + Top = 181 Width = 807 Height = 40 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 - Font.Name = #23435#20307 + Font.Name = #24494#36719#38597#40657 Font.Style = [] ParentFont = False - TabOrder = 51 + TabOrder = 31 Zoom = 100 end - object SellType: TBtnEditC - Left = 770 - Top = 104 - Width = 120 + object Workshop: TcxComboBox + Left = 74 + Top = 149 + AutoSize = False + ParentFont = False + ParentShowHint = False + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #19968#36710#38388 + #20108#36710#38388) + ShowHint = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.HotTrack = True + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 32 + Text = #19968#36710#38388 Height = 20 - Hint = 'SellType/'#19994#21153#31867#22411 - TabOrder = 52 - OnBtnUpClick = MCTypeBtnUpClick - OnBtnDnClick = CustNameBtnDnClick + Width = 121 end - object Strain: TBtnEditC - Left = 770 - Top = 153 - Width = 120 - Height = 20 - Hint = 'Strain/'#21367#24067#24352#21147 - TabOrder = 53 - OnBtnUpClick = MCTypeBtnUpClick - OnBtnDnClick = CustNameBtnDnClick - end - object Repairer: TcxButtonEdit - Tag = 4 - Left = 942 - Top = 251 - Hint = 'Repairer/'#26426#20462#24037 + object CustName: TcxButtonEdit + Left = 74 + Top = 28 + AutoSize = False ParentFont = False Properties.Buttons = < item @@ -1347,40 +1060,561 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Kind = bkEllipsis end> Properties.ReadOnly = True - Properties.OnButtonClick = FollowerPropertiesButtonClick + Properties.OnButtonClick = CustNamePropertiesButtonClick + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True Style.ButtonStyle = btsDefault - TabOrder = 54 - OnDblClick = RepairerDblClick - Width = 200 + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 33 + OnDblClick = CustName1BtnDnClick + Height = 20 + Width = 120 end - object OrdNote: TcxMemo - Tag = 1 - Left = 120 - Top = 281 + object ConNo: TcxButtonEdit + Tag = 2 + Left = 74 + Top = 54 + AutoSize = False ParentFont = False - TabOrder = 55 - Height = 55 - Width = 633 + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = ConNoPropertiesButtonClick + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.ButtonStyle = btsDefault + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 34 + Height = 20 + Width = 120 + end + object C_Code: TcxButtonEdit + Tag = 2 + Left = 297 + Top = 56 + AutoSize = False + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = C_CodePropertiesButtonClick + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.ButtonStyle = btsDefault + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 35 + Height = 20 + Width = 120 + end + object NeedleShape: TcxButtonEdit + Left = 529 + Top = 152 + AutoSize = False + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = RepairerPropertiesButtonClick + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.ButtonStyle = btsDefault + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 36 + OnDblClick = N1Click + Height = 20 + Width = 120 + end + object MCType: TcxButtonEdit + Left = 770 + Top = 32 + AutoSize = False + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = RepairerPropertiesButtonClick + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.ButtonStyle = btsDefault + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 37 + Height = 20 + Width = 120 + end + object SellType: TcxButtonEdit + Left = 770 + Top = 105 + AutoSize = False + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = RepairerPropertiesButtonClick + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.ButtonStyle = btsDefault + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 38 + OnDblClick = CustName1BtnDnClick + Height = 20 + Width = 120 + end + object PacketNote: TcxButtonEdit + Left = 770 + Top = 132 + Hint = 'PacketNote/'#21253#35013#26041#24335 + AutoSize = False + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = RepairerPropertiesButtonClick + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.ButtonStyle = btsDefault + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 39 + OnDblClick = CustName1BtnDnClick + Height = 20 + Width = 120 + end + object Strain: TcxButtonEdit + Left = 770 + Top = 154 + Hint = 'Strain/'#21367#24067#24352#21147 + AutoSize = False + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = RepairerPropertiesButtonClick + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.ButtonStyle = btsDefault + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 40 + OnDblClick = CustName1BtnDnClick + Height = 20 + Width = 120 + end + object PackType: TcxButtonEdit + Left = 971 + Top = 181 + Hint = 'PackType/'#25277#38024#25171#21367 + AutoSize = False + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = RepairerPropertiesButtonClick + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.ButtonStyle = btsDefault + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 41 + OnDblClick = CustName1BtnDnClick + Height = 20 + Width = 100 + end + object Repairer: TcxButtonEdit + Left = 1321 + Top = 34 + Hint = 'Repairer/'#26426#20462#24037 + AutoSize = False + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = RepairerPropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 42 + Visible = False + Height = 20 + Width = 120 + end + object OurCoName: TcxButtonEdit + Left = 1320 + Top = 102 + AutoSize = False + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = OurCoNamePropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 43 + Visible = False + OnDblClick = CustName1BtnDnClick + Height = 20 + Width = 120 + end + object FtyCoName: TcxButtonEdit + Left = 1319 + Top = 129 + AutoSize = False + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = FtyCoNamePropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 44 + Visible = False + OnDblClick = CustName1BtnDnClick + Height = 20 + Width = 120 + end + object BusinessType: TcxButtonEdit + Left = 1319 + Top = 154 + AutoSize = False + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = RepairerPropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 45 + Visible = False + OnDblClick = CustName1BtnDnClick + Height = 20 + Width = 120 + end + object Technics: TcxButtonEdit + Left = 1321 + Top = 234 + AutoSize = False + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = v2Column11PropertiesButtonClick + Style.ButtonStyle = btsDefault + TabOrder = 46 + Visible = False + OnDblClick = CustName1BtnDnClick + Height = 20 + Width = 120 + end + object OrdType: TcxComboBox + Left = 297 + Top = 6 + AutoSize = False + ParentFont = False + ParentShowHint = False + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #22823#36135#21333 + #22806#21457#21333 + #35797#26679#21333) + ShowHint = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.HotTrack = True + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 47 + Text = #22823#36135#21333 + Height = 20 + Width = 121 + end + object RuleLenUnit: TcxComboBox + Tag = 9 + Left = 971 + Top = 32 + AutoSize = False + ParentFont = False + ParentShowHint = False + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + 'M' + 'Y') + ShowHint = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.HotTrack = True + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 48 + Text = 'M' + Height = 20 + Width = 100 + end + object RuleConversion: TcxComboBox + Tag = 9 + Left = 971 + Top = 132 + AutoSize = False + ParentFont = False + ParentShowHint = False + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #26080#38656#36716#25442 + #27611#37325#36716#31859 + #20928#37325#36716#31859) + ShowHint = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.HotTrack = True + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 49 + Height = 20 + Width = 100 + end + object SendBack: TcxComboBox + Left = 1321 + Top = 310 + AutoSize = False + ParentFont = False + ParentShowHint = False + Properties.DropDownListStyle = lsFixedList + Properties.Items.Strings = ( + #36864#22238 + #23613#32455) + ShowHint = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.HotTrack = True + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 50 + Visible = False + Height = 20 + Width = 121 + end + object DlyDate: TcxDateEdit + Left = 529 + Top = 5 + AutoSize = False + EditValue = 40916d + ParentFont = False + Properties.ShowTime = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 51 + Height = 20 + Width = 120 + end + object OrdDate: TcxDateEdit + Left = 770 + Top = 2 + AutoSize = False + EditValue = 40916d + ParentFont = False + Properties.ShowTime = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.ButtonStyle = btsDefault + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 52 + Height = 20 + Width = 120 + end + object ZJDate: TcxDateEdit + Left = 1322 + Top = 182 + AutoSize = False + EditValue = 40916d + ParentFont = False + Properties.ShowTime = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 53 + Visible = False + Height = 20 + Width = 120 + end + object KJDate: TcxDateEdit + Left = 1321 + Top = 207 + AutoSize = False + EditValue = 40916d + ParentFont = False + Properties.ShowTime = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 54 + Visible = False + Height = 20 + Width = 120 end end object Panel2: TPanel [2] Left = 0 - Top = 386 + Top = 378 Width = 1540 - Height = 419 + Height = 427 Align = alClient TabOrder = 2 object cxPageControl1: TcxPageControl Left = 1 Top = 1 Width = 1538 - Height = 417 + Height = 425 Align = alClient Color = clWhite Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 - Font.Name = #23435#20307 + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 Font.Style = [] ParentBackground = False ParentColor = False @@ -1388,10 +1622,12 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut TabOrder = 0 Properties.ActivePage = cxTabSheet1 Properties.CustomButtons.Buttons = <> + Properties.Images = DataLink_KnitPlan.ImageList_new32 Properties.Style = 6 - ClientRectBottom = 417 + ExplicitTop = 0 + ClientRectBottom = 425 ClientRectRight = 1538 - ClientRectTop = 32 + ClientRectTop = 41 object cxTabSheet1: TcxTabSheet Caption = ' '#37197' '#27604' ' Color = clWhite @@ -1399,17 +1635,19 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentColor = False object cxGrid2: TcxGrid Left = 0 - Top = 38 + Top = 30 Width = 1538 - Height = 347 + Height = 354 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 - Font.Name = #23435#20307 + Font.Name = #24494#36719#38597#40657 Font.Style = [] ParentFont = False TabOrder = 0 + ExplicitTop = 38 + ExplicitHeight = 346 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -1438,6 +1676,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Kind = skSum end> DataController.Summary.SummaryGroups = <> + Images = DataLink_KnitPlan.ImageList_new32 OptionsBehavior.FocusCellOnTab = True OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.FocusCellOnCycle = True @@ -1458,7 +1697,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Styles.Header = DataLink_KnitPlan.Default - Width = 66 + Width = 107 end object cxGridDBColumn1: TcxGridDBColumn Caption = #21407#26009#21517#31216 @@ -1468,7 +1707,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Options.Moving = False Options.Sorting = False Styles.Header = DataLink_KnitPlan.Default - Width = 66 + Width = 121 end object v2Column2: TcxGridDBColumn Caption = #21697#29260 @@ -1484,7 +1723,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut DataBinding.FieldName = 'Y_FtyColorNo' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 66 + Width = 126 end object Tv2Column6: TcxGridDBColumn Caption = #21407#22987#33394#21495 @@ -1544,7 +1783,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut DataBinding.FieldName = 'Y_Route' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Styles.Header = DataLink_KnitPlan.FonePurple + Styles.Header = DataLink_KnitPlan.Default Width = 66 end object v2Column12: TcxGridDBColumn @@ -1554,7 +1793,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut HeaderAlignmentHorz = taCenter Styles.Content = DataLink_KnitPlan.FontBlue Styles.Footer = DataLink_KnitPlan.FontBlue - Styles.Header = DataLink_KnitPlan.FontBlue + Styles.Header = DataLink_KnitPlan.Default Width = 66 end object v2Column7: TcxGridDBColumn @@ -1562,7 +1801,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut DataBinding.FieldName = 'Y_Loss' DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Styles.Header = DataLink_KnitPlan.FonePurple + Styles.Header = DataLink_KnitPlan.Default Width = 66 end object v2Column8: TcxGridDBColumn @@ -1571,7 +1810,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Header = DataLink_KnitPlan.FonePurple + Styles.Header = DataLink_KnitPlan.Default Width = 66 end object v2Column3: TcxGridDBColumn @@ -1602,10 +1841,10 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Left = 0 Top = 0 Width = 1538 - Height = 38 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 83 Caption = 'ToolBar1' Color = clWhite DisabledImages = DataLink_KnitPlan.ImageList_new32 @@ -1614,9 +1853,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 - Font.Name = #23435#20307 + Font.Name = #24494#36719#38597#40657 Font.Style = [] - Images = DataLink_KnitPlan.ImageList_new32 + Images = DataLink_KnitPlan.cxImageList_bar List = True ParentColor = False ParentFont = False @@ -1631,7 +1870,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut OnClick = ToolButton3Click end object ToolButton2: TToolButton - Left = 71 + Left = 63 Top = 0 AutoSize = True Caption = #22686#34892 @@ -1639,7 +1878,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut OnClick = ToolButton2Click end object ToolButton4: TToolButton - Left = 142 + Left = 126 Top = 0 AutoSize = True Caption = #21024#34892 @@ -1647,7 +1886,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut OnClick = ToolButton4Click end object ToolButton1: TToolButton - Left = 213 + Left = 189 Top = 0 AutoSize = True Caption = #29992#37327#35745#31639 @@ -1659,6 +1898,9 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut object cxTabSheet2: TcxTabSheet Caption = #25490#38024#19977#35282 ImageIndex = 1 + ExplicitTop = 0 + ExplicitWidth = 0 + ExplicitHeight = 376 object Panel1: TPanel Left = 0 Top = 183 @@ -1669,13 +1911,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut BevelOuter = bvLowered Caption = #19977#35282 Color = clSkyBlue - Font.Charset = GB2312_CHARSET - Font.Color = clRed - Font.Height = -20 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False TabOrder = 1 + ExplicitTop = 182 end object Panel3: TPanel Left = 0 @@ -1687,19 +1924,13 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut BevelOuter = bvLowered Caption = #25490#38024 Color = clSkyBlue - Font.Charset = GB2312_CHARSET - Font.Color = clRed - Font.Height = -20 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False TabOrder = 0 end object cxGrid5: TcxGrid Left = 0 Top = 208 Width = 1538 - Height = 177 + Height = 176 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -1709,6 +1940,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut ParentFont = False PopupMenu = PM_5 TabOrder = 2 + ExplicitHeight = 168 object TV5: TcxGridDBTableView OnMouseDown = TV5MouseDown Navigator.Buttons.CustomButtons = <> @@ -4103,12 +4335,12 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_KnitPlan.ADOLink - Left = 1313 - Top = 88 + Left = 1188 + Top = 54 end inherited ADOQueryBaseTemp: TADOQuery Connection = DataLink_KnitPlan.ADOLink - Left = 1217 + Left = 1188 Top = 105 end inherited ImageList_new32: TImageList @@ -4130,8 +4362,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut object CDS_YuanLiao: TClientDataSet Aggregates = <> Params = <> - Left = 1179 - Top = 271 + Left = 1087 + Top = 309 end object ADOQueryCmd: TADOQuery Connection = DataLink_KnitPlan.ADOLink @@ -4147,14 +4379,14 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut end object DataSource3: TDataSource DataSet = ClientDataSet3 - Left = 1173 - Top = 366 + Left = 1207 + Top = 339 end object ClientDataSet3: TClientDataSet Aggregates = <> Params = <> - Left = 1351 - Top = 319 + Left = 1376 + Top = 276 end object DataSource5: TDataSource DataSet = ClientDataSet5 @@ -4162,8 +4394,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut Top = 404 end object PM_3: TPopupMenu - Left = 1131 - Top = 230 + Left = 1103 + Top = 232 object N1: TMenuItem Caption = #22686#34892 OnClick = N1Click @@ -4174,8 +4406,8 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut end end object PM_5: TPopupMenu - Left = 1191 - Top = 327 + Left = 1163 + Top = 256 object MenuItem1: TMenuItem Caption = #22686#34892 OnClick = MenuItem1Click diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.pas b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.pas index f83bbe1..454c643 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.pas +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.pas @@ -12,7 +12,7 @@ uses StrUtils, cxPC, ShellAPI, cxCalendar, Math, cxLookAndFeels, cxLookAndFeelPainters, dxBarBuiltInMenu, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, U_BaseInput, System.ImageList, - Vcl.ImgList, Vcl.Menus, dxSkinWXI, dxScrollbarAnnotations; + Vcl.ImgList, Vcl.Menus, dxSkinWXI, dxScrollbarAnnotations, dxCore, cxDateUtils; type TfrmKnitPlanInPut = class(TfrmBaseInput) @@ -22,7 +22,6 @@ type ScrollBox1: TScrollBox; Label1: TLabel; Label2: TLabel; - OrdDate: TDateTimePicker; Label3: TLabel; Label11: TLabel; Label14: TLabel; @@ -34,13 +33,12 @@ type Label22: TLabel; ADOQueryCmd: TADOQuery; Label5: TLabel; - DlyDate: TDateTimePicker; Label8: TLabel; Label12: TLabel; - OrdPieceWeight: TEdit; - OrdPiece: TEdit; + OrdPieceWeight: TcxTextEdit; + OrdPiece: TcxTextEdit; Label13: TLabel; - OrdQty: TEdit; + OrdQty: TcxTextEdit; Label16: TLabel; cxPageControl1: TcxPageControl; cxTabSheet1: TcxTabSheet; @@ -64,7 +62,7 @@ type v2Column5: TcxGridDBColumn; v2Column6: TcxGridDBColumn; Label31: TLabel; - OrdPieceWeightRange: TEdit; + OrdPieceWeightRange: TcxTextEdit; Label37: TLabel; OrdSNote: TRichEdit; v2Column7: TcxGridDBColumn; @@ -74,9 +72,9 @@ type Label47: TLabel; Label33: TLabel; Label54: TLabel; - C_GramWeight: TEdit; - C_Width: TEdit; - C_Name: TEdit; + C_GramWeight: TcxTextEdit; + C_Width: TcxTextEdit; + C_Name: TcxTextEdit; Label43: TLabel; Label59: TLabel; YarnArrangement: TRichEdit; @@ -319,23 +317,14 @@ type v3Column146: TcxGridDBColumn; v2Column12: TcxGridDBColumn; lbl2: TLabel; - CustName: TBtnEditC; - MCType: TBtnEditC; - C_Code: TBtnEditC; - ConNo: TBtnEditC; - Saleser: TEdit; - OurCoName: TBtnEditC; - PacketNote: TBtnEditC; - Technics: TBtnEditC; + Saleser: TcxTextEdit; Label7: TLabel; - OrderNo: TEdit; + OrderNo: TcxTextEdit; C_Spec: TRichEdit; ToolBar3: TToolBar; ToolButton3: TToolButton; ToolButton4: TToolButton; - OrdType: TComboBox; Label4: TLabel; - FtyCoName: TBtnEditC; ToolButton8: TToolButton; PM_3: TPopupMenu; N1: TMenuItem; @@ -343,8 +332,8 @@ type PM_5: TPopupMenu; MenuItem1: TMenuItem; MenuItem2: TMenuItem; - ConMId: TEdit; - ConSId: TEdit; + ConMId: TcxTextEdit; + ConSId: TcxTextEdit; ToolButton1: TToolButton; Label6: TLabel; Label17: TLabel; @@ -352,67 +341,77 @@ type Label20: TLabel; Label10: TLabel; Label24: TLabel; - RuleBeforeTare: TEdit; - Coefficient: TEdit; - RuleLenUnit: TComboBox; - RuleLaterTare: TEdit; - AddWet: TEdit; - RuleConversion: TComboBox; + RuleBeforeTare: TcxTextEdit; + Coefficient: TcxTextEdit; + RuleLaterTare: TcxTextEdit; + AddWet: TcxTextEdit; Label15: TLabel; - BusinessType: TBtnEditC; Label19: TLabel; Label21: TLabel; - KJDate: TDateTimePicker; - ZJDate: TDateTimePicker; Label23: TLabel; - Looms: TEdit; + Looms: TcxTextEdit; Label25: TLabel; Label27: TLabel; - C_GPGramWeight: TEdit; - C_GPWidth: TEdit; + C_GPGramWeight: TcxTextEdit; + C_GPWidth: TcxTextEdit; Label28: TLabel; - C_BJWidth: TEdit; + C_BJWidth: TcxTextEdit; Label29: TLabel; - TotalStitches: TEdit; + TotalStitches: TcxTextEdit; Tv2Column1: TcxGridDBColumn; - NeedleShape: TBtnEditC; Tv2Column2: TcxGridDBColumn; Tv2Column3: TcxGridDBColumn; Tv2Column4: TcxGridDBColumn; Tv2Column5: TcxGridDBColumn; Tv2Column6: TcxGridDBColumn; Label32: TLabel; - PackType: TBtnEditC; Label34: TLabel; - TurnsQty: TEdit; + TurnsQty: TcxTextEdit; Label35: TLabel; - TurnsQtyAvg: TEdit; + TurnsQtyAvg: TcxTextEdit; Label36: TLabel; Label38: TLabel; - C_Composition: TEdit; + C_Composition: TcxTextEdit; Label39: TLabel; - C_Color: TEdit; + C_Color: TcxTextEdit; Label40: TLabel; - RollType: TEdit; + RollType: TcxTextEdit; Label42: TLabel; - PacketType: TEdit; + PacketType: TcxTextEdit; Label44: TLabel; - SendBack: TComboBox; Label45: TLabel; - C_Type: TEdit; + C_Type: TcxTextEdit; Label46: TLabel; Label48: TLabel; - Price: TEdit; - Workshop: TComboBox; + Price: TcxTextEdit; Label49: TLabel; YarnLength: TRichEdit; Label50: TLabel; - SellType: TBtnEditC; Label30: TLabel; - Strain: TBtnEditC; ToolButton2: TToolButton; + Workshop: TcxComboBox; + CustName: TcxButtonEdit; + ConNo: TcxButtonEdit; + C_Code: TcxButtonEdit; + NeedleShape: TcxButtonEdit; + MCType: TcxButtonEdit; + SellType: TcxButtonEdit; + PacketNote: TcxButtonEdit; + Strain: TcxButtonEdit; + PackType: TcxButtonEdit; Repairer: TcxButtonEdit; - OrdNote: TcxMemo; + OurCoName: TcxButtonEdit; + FtyCoName: TcxButtonEdit; + BusinessType: TcxButtonEdit; + Technics: TcxButtonEdit; + OrdType: TcxComboBox; + RuleLenUnit: TcxComboBox; + RuleConversion: TcxComboBox; + SendBack: TcxComboBox; + DlyDate: TcxDateEdit; + OrdDate: TcxDateEdit; + ZJDate: TcxDateEdit; + KJDate: TcxDateEdit; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); @@ -422,15 +421,7 @@ type procedure Tv5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure v2Column11PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure OrdPieceChange(Sender: TObject); - procedure C_CodeKeyPress(Sender: TObject; var Key: Char); - procedure ConNoKeyPress(Sender: TObject; var Key: Char); - procedure MCTypeBtnUpClick(Sender: TObject); - procedure CustNameBtnUpClick(Sender: TObject); - procedure C_CodeBtnUpClick(Sender: TObject); - procedure ConNoBtnUpClick(Sender: TObject); - procedure CustNameBtnDnClick(Sender: TObject); - procedure OurCoNameBtnUpClick(Sender: TObject); - procedure FtyCoNameBtnUpClick(Sender: TObject); + procedure CustName1BtnDnClick(Sender: TObject); procedure N1Click(Sender: TObject); procedure N2Click(Sender: TObject); procedure MenuItem1Click(Sender: TObject); @@ -438,8 +429,16 @@ type procedure ToolButton1Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); procedure OrdPieceWeightExit(Sender: TObject); - procedure RepairerDblClick(Sender: TObject); - procedure FollowerPropertiesButtonClick(Sender: TObject; + procedure CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure FtyCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); + procedure OurCoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure RepairerPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure ConNoPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); + procedure C_CodePropertiesChange(Sender: TObject); + procedure C_CodePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); private FXS, FGridFlag: Integer; @@ -463,7 +462,6 @@ implementation uses U_DataLink, U_ZDYHelp, U_RTFun, U_KnitClothInfoSel, U_CompanySel, U_YarnInfoSel, U_KnitSalesContractSel; - {$R *.dfm} procedure TfrmKnitPlanInPut.InitClothYarn(MC_Code: string); @@ -548,9 +546,12 @@ begin end; SCSHData(ADOQueryTemp, ScrollBox1, 0); - CustName.TxtCode := ADOQueryTemp.FieldByName('CustNo').AsString; - FtyCoName.TxtCode := ADOQueryTemp.FieldByName('FtyCoNo').AsString; - OurCoName.TxtCode := ADOQueryTemp.FieldByName('OurCoNo').AsString; + //CustName.TxtCode := ADOQueryTemp.FieldByName('CustNo').AsString; + CustName.Properties.LookupItems.Text := ADOQueryTemp.FieldByName('CustNo').AsString; + //FtyCoName.TxtCode := ADOQueryTemp.FieldByName('FtyCoNo').AsString; + FtyCoName.Properties.LookupItems.Text := ADOQueryTemp.FieldByName('FtyCoNo').AsString; + //OurCoName.TxtCode := ADOQueryTemp.FieldByName( 'OurCoNo').AsString; + OurCoName.Properties.LookupItems.Text := ADOQueryTemp.FieldByName('OurCoNo').AsString; with ADOQueryTemp do begin @@ -625,9 +626,9 @@ begin sql.Add('select Top 1* from knit_Plan_Main order by FillTime desc '); Open; end; - OrdDate.DateTime := SGetServerDate(ADOQueryTemp); - OrdDate.Checked := True; - DlyDate.Date := OrdDate.DateTime; + OrdDate.Date := SGetServerDate(ADOQueryTemp); + //OrdDate.Checked := True; + DlyDate.Date := OrdDate.Date; end; if FCopyInt = 1 then @@ -685,42 +686,30 @@ begin end; -procedure TfrmKnitPlanInPut.RepairerDblClick(Sender: TObject); -begin - TcxButtonEdit(Sender).Text := ''; - TcxButtonEdit(Sender).Properties.LookupItems.Text := ''; -end; - -procedure TfrmKnitPlanInPut.FollowerPropertiesButtonClick(Sender: TObject; - AButtonIndex: Integer); -var - fsj: string; - FWZ: Integer; -begin - fsj := Trim(TcxButtonEdit(Sender).Hint); - FWZ := Pos('/', fsj); - try - frmZDYHelp := TfrmZDYHelp.Create(Application); - with frmZDYHelp do - begin - flag := Copy(fsj, 1, FWZ - 1); - flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); - if ShowModal = 1 then - begin - TcxButtonEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); - end; - end; - finally - frmZDYHelp.Free; - end; - -end; - procedure TfrmKnitPlanInPut.FormShow(Sender: TObject); begin InitData(); end; +procedure TfrmKnitPlanInPut.FtyCoNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); +begin + try + frmCompanySel := TfrmCompanySel.Create(Application); + with frmCompanySel do + begin + FCoType := 'Ӧ'; + if ShowModal = 1 then + begin + //FtyCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); + FtyCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); + FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + end; + end; + finally + frmCompanySel.Free; + end; +end; + function TfrmKnitPlanInPut.SaveData(): Boolean; var maxno, maxsubno, maxpbno, maxpzno, maxsjno: string; @@ -766,9 +755,13 @@ begin FieldByName('MainId').Value := Trim(maxno); RTSetsavedata(ADOQueryCmd, 'knit_Plan_Main', ScrollBox1, 0); - FieldByName('CustNo').Value := CustName.TxtCode; - FieldByName('FtyCoNo').Value := FtyCoName.TxtCode; - FieldByName('OurCoNo').Value := OurCoName.TxtCode; + //FieldByName('CustNo').Value := CustName.TxtCode; + FieldByName('CustNo').Value := Trim(CustName.Properties.LookupItems.Text); + //FieldByName('FtyCoNo').Value := FtyCoName.TxtCode; + FieldByName('FtyCoNo').Value := FtyCoName.Properties.LookupItems.Text; + //FieldByName('OurCoNo').Value := OurCoName.TxtCode; + FieldByName('OurCoNo').Value := OurCoName.Properties.LookupItems.Text; + Post; end; ////////////////////////// ////////////////////////// @@ -1215,7 +1208,8 @@ begin end; end; -procedure TfrmKnitPlanInPut.OurCoNameBtnUpClick(Sender: TObject); +procedure TfrmKnitPlanInPut.OurCoNamePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); begin try frmCompanySel := TfrmCompanySel.Create(Application); @@ -1224,15 +1218,43 @@ begin FCoType := '˾'; if ShowModal = 1 then begin - OurCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); + //OurCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); + OurCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); - FtyCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); + //FtyCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); + FtyCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); end; end; finally frmCompanySel.Free; end; +end; + +procedure TfrmKnitPlanInPut.RepairerPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +var + fsj: string; + FWZ: Integer; +begin + fsj := Trim(TBtnEditC(Sender).Hint); + + FWZ := Pos('/', fsj); + try + frmZDYHelp := TfrmZDYHelp.Create(Application); + with frmZDYHelp do + begin + flag := Copy(fsj, 1, FWZ - 1); + flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); + + if ShowModal = 1 then + begin + TBtnEditC(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); + end; + end; + finally + frmZDYHelp.Free; + end; end; @@ -1258,41 +1280,6 @@ begin OrdPiece.Text := IntToStr(Ceil(FOrdQty / FOrdPieceWeight)); end; -procedure TfrmKnitPlanInPut.C_CodeKeyPress(Sender: TObject; var Key: Char); -begin - if Key = #13 then - begin - Key := #0; - SelectNext(ActiveControl as TWinControl, True, True); - end; -end; - -procedure TfrmKnitPlanInPut.MCTypeBtnUpClick(Sender: TObject); -var - fsj: string; - FWZ: Integer; -begin - fsj := Trim(TBtnEditC(Sender).Hint); - - FWZ := Pos('/', fsj); - try - frmZDYHelp := TfrmZDYHelp.Create(Application); - with frmZDYHelp do - begin - flag := Copy(fsj, 1, FWZ - 1); - flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ); - - if ShowModal = 1 then - begin - TBtnEditC(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString); - end; - end; - finally - frmZDYHelp.Free; - end; - -end; - procedure TfrmKnitPlanInPut.MenuItem1Click(Sender: TObject); begin with ClientDataSet5 do @@ -1343,44 +1330,66 @@ begin ClientDataSet3.Delete; end; -procedure TfrmKnitPlanInPut.ConNoKeyPress(Sender: TObject; var Key: Char); +procedure TfrmKnitPlanInPut.C_CodePropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); begin - if Key = #13 then - begin - Key := #0; - SelectNext(ActiveControl as TWinControl, True, True); - end; -end; - -procedure TfrmKnitPlanInPut.FtyCoNameBtnUpClick(Sender: TObject); -begin - try - frmCompanySel := TfrmCompanySel.Create(Application); - with frmCompanySel do + try + frmKnitClothInfoSel := TfrmKnitClothInfoSel.Create(Application); + with frmKnitClothInfoSel do begin - FCoType := 'Ӧ'; if ShowModal = 1 then begin - FtyCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); - FtyCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); + Self.C_Code.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('C_Code').AsString; + Self.C_Name.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('C_Name').AsString; + Self.C_Spec.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('C_Spec').AsString; + Self.C_Width.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('C_Width').AsString; + Self.C_GramWeight.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('C_GramWeight').AsString; + Self.C_Composition.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('C_Composition').AsString; + Self.C_Type.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('CTName').AsString; end; end; finally - frmCompanySel.Free; + frmKnitClothInfoSel.Free; end; end; -procedure TfrmKnitPlanInPut.ConNoBtnUpClick(Sender: TObject); +procedure TfrmKnitPlanInPut.C_CodePropertiesChange(Sender: TObject); begin - try + try + frmKnitClothInfoSel := TfrmKnitClothInfoSel.Create(Application); + with frmKnitClothInfoSel do + begin + if ShowModal = 1 then + begin + Self.C_Code.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('C_Code').AsString; + Self.C_Name.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('C_Name').AsString; + Self.C_Spec.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('C_Spec').AsString; + Self.C_Width.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('C_Width').AsString; + Self.C_GramWeight.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('C_GramWeight').AsString; + Self.C_Composition.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('C_Composition').AsString; + Self.C_Type.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('CTName').AsString; + end; + end; + finally + frmKnitClothInfoSel.Free; + end; +end; + +procedure TfrmKnitPlanInPut.ConNoPropertiesButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin + inherited; +try frmKnitSalesContractSel := TfrmKnitSalesContractSel.Create(Application); with frmKnitSalesContractSel do begin if ShowModal = 1 then begin self.ConNo.Text := frmKnitSalesContractSel.CDS_1.fieldbyname('ConNo').AsString; //ͬ - self.Custname.Text := frmKnitSalesContractSel.CDS_1.fieldbyname('BuyName').AsString; //ͻ - self.Custname.TxtCode := frmKnitSalesContractSel.CDS_1.fieldbyname('BuyNo').AsString; //ͻ + //self.Custname.Text := frmKnitSalesContractSel.CDS_1.fieldbyname('BuyName').AsString; //ͻ + //self.Custname.TxtCode := frmKnitSalesContractSel.CDS_1.fieldbyname('BuyNo').AsString; //ͻ + self.Custname.Properties.LookupItems.Text := frmKnitSalesContractSel.CDS_1.fieldbyname('BuyName').AsString; + self.Custname.Text := frmKnitSalesContractSel.CDS_1.fieldbyname('BuyNo').AsString; self.Saleser.Text := frmKnitSalesContractSel.CDS_1.fieldbyname('Saleser').AsString; //µԱ self.ConMId.Text := frmKnitSalesContractSel.CDS_1.fieldbyname('ConMId').AsString; //ConMainId @@ -1404,35 +1413,13 @@ begin end; -procedure TfrmKnitPlanInPut.C_CodeBtnUpClick(Sender: TObject); -begin - try - frmKnitClothInfoSel := TfrmKnitClothInfoSel.Create(Application); - with frmKnitClothInfoSel do - begin - if ShowModal = 1 then - begin - Self.C_Code.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('C_Code').AsString; - Self.C_Name.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('C_Name').AsString; - Self.C_Spec.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('C_Spec').AsString; - Self.C_Width.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('C_Width').AsString; - Self.C_GramWeight.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('C_GramWeight').AsString; - Self.C_Composition.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('C_Composition').AsString; - Self.C_Type.Text := frmKnitClothInfoSel.CDS_1.fieldbyname('CTName').AsString; - end; - end; - finally - frmKnitClothInfoSel.Free; - end; -end; - -procedure TfrmKnitPlanInPut.CustNameBtnDnClick(Sender: TObject); +procedure TfrmKnitPlanInPut.CustName1BtnDnClick(Sender: TObject); begin TBtnEditC(Sender).TxtCode := ''; TBtnEditC(Sender).Text := ''; end; -procedure TfrmKnitPlanInPut.CustNameBtnUpClick(Sender: TObject); +procedure TfrmKnitPlanInPut.CustNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); begin try frmCompanySel := TfrmCompanySel.Create(Application); @@ -1441,14 +1428,13 @@ begin FCoType := 'ͻ'; if ShowModal = 1 then begin - CustName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString); + CustName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); CustName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); end; end; finally frmCompanySel.Free; end; - end; end. diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.vlb b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.vlb new file mode 100644 index 0000000..65d3cad --- /dev/null +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanInPut.vlb @@ -0,0 +1,877 @@ +[cxGridDBColumn53] +Coordinates=940,232,128,36 + +[v3Column72] +Coordinates=940,287,86,36 + +[v3Column30] +Coordinates=940,342,86,36 + +[v3Column125] +Coordinates=940,397,94,36 + +[cxPageControl1] +Coordinates=102,554,106,36 + +[v3Column81] +Coordinates=940,507,86,36 + +[cxGridDBColumn115] +Coordinates=940,562,135,36 + +[cxGridDBColumn97] +Coordinates=940,672,128,36 + +[cxGridDBColumn57] +Coordinates=921,721,128,36 + +[cxGridDBColumn89] +Coordinates=1170,1,128,36 + +[cxGridDBColumn67] +Coordinates=1170,56,128,36 + +[N2] +Coordinates=230,527,40,36 + +[ToolButton3] +Coordinates=1048,508,84,36 + +[cxGridDBColumn40] +Coordinates=1170,111,128,36 + +[PM_3] +Coordinates=921,817,48,36 + +[v3Column36] +Coordinates=832,817,86,36 + +[v3Column130] +Coordinates=733,817,94,36 + +[cxGridLevel2] +Coordinates=565,817,90,36 + +[v3Column67] +Coordinates=476,817,86,36 + +[v3Column140] +Coordinates=377,817,94,36 + +[ToolBar3] +Coordinates=825,508,67,36 + +[cxGridDBColumn46] +Coordinates=1170,166,128,36 + +[v3Column20] +Coordinates=81,817,86,36 + +[cxGridDBColumn44] +Coordinates=1170,221,128,36 + +[cxGridDBColumn62] +Coordinates=1170,276,128,36 + +[cxGridDBColumn34] +Coordinates=1170,331,128,36 + +[v3Column70] +Coordinates=1170,386,86,36 + +[Tv2Column3] +Coordinates=1170,441,87,36 + +[v3Column13] +Coordinates=1170,496,86,36 + +[v2Column7] +Coordinates=0,781,79,36 + +[ToolButton1] +Coordinates=580,508,84,36 + +[cxGridDBColumn106] +Coordinates=1170,661,135,36 + +[cxGridDBColumn52] +Coordinates=1170,716,128,36 + +[v3Column114] +Coordinates=1170,771,94,36 + +[Tv2Column5] +Coordinates=1170,826,87,36 + +[v3Column69] +Coordinates=1170,881,86,36 + +[v3Column101] +Coordinates=1071,891,94,36 + +[v2Column2] +Coordinates=982,891,79,36 + +[N1] +Coordinates=181,527,40,36 + +[cxGrid2] +Coordinates=511,508,59,36 + +[ADOQueryBaseTemp] +Coordinates=425,212,139,58 + +[v3Column37] +Coordinates=824,891,86,36 + +[v3Column2] +Coordinates=735,891,79,36 + +[cxGridDBColumn56] +Coordinates=1041,817,128,36 + +[v3Column64] +Coordinates=567,891,86,36 + +[v3Column73] +Coordinates=478,891,86,36 + +[v2Column5] +Coordinates=389,891,79,36 + +[v3Column110] +Coordinates=290,891,94,36 + +[cxGridDBColumn86] +Coordinates=1343,1,128,36 + +[v3Column108] +Coordinates=191,891,94,36 + +[v3Column27] +Coordinates=102,891,86,36 + +[v3Column107] +Coordinates=0,855,94,36 + +[ADOQueryCmd] +Coordinates=80,144,104,58 + +[v3Column97] +Coordinates=1343,111,86,36 + +[v3Column34] +Coordinates=1343,166,86,36 + +[v3Column145] +Coordinates=1343,276,94,36 + +[ToolBar1] +Coordinates=136,508,67,36 + +[Tv2Column2] +Coordinates=1343,386,87,36 + +[v3Column55] +Coordinates=1343,496,86,36 + +[cxGridDBColumn61] +Coordinates=1343,551,128,36 + +[v3Column133] +Coordinates=1343,606,94,36 + +[v2Column4] +Coordinates=1343,661,79,36 + +[v3Column121] +Coordinates=1343,716,94,36 + +[v3Column137] +Coordinates=1343,771,94,36 + +[v3Column56] +Coordinates=1343,826,86,36 + +[v3Column43] +Coordinates=1343,881,86,36 + +[v3Column143] +Coordinates=1343,936,94,36 + +[cxGridDBColumn112] +Coordinates=1509,56,135,36 + +[cxGridDBColumn113] +Coordinates=1509,111,135,36 + +[v3Column126] +Coordinates=1244,965,94,36 + +[cxGridDBColumn50] +Coordinates=1509,166,128,36 + +[cxGridDBColumn43] +Coordinates=1509,221,128,36 + +[v3Column109] +Coordinates=1046,965,94,36 + +[v3Column28] +Coordinates=957,965,86,36 + +[Tv2Column6] +Coordinates=799,965,87,36 + +[cxGridDBColumn32] +Coordinates=1509,331,128,36 + +[v2Column10] +Coordinates=641,965,86,36 + +[Tv2Column1] +Coordinates=552,965,87,36 + +[v3Column134] +Coordinates=453,965,94,36 + +[cxGridDBColumn95] +Coordinates=1509,386,128,36 + +[v3Column10] +Coordinates=206,965,86,36 + +[v3Column68] +Coordinates=117,965,86,36 + +[v2Column8] +Coordinates=28,965,79,36 + +[v3Column141] +Coordinates=1509,441,94,36 + +[v3Column74] +Coordinates=1509,496,86,36 + +[cxGridDBColumn47] +Coordinates=1509,551,128,36 + +[cxGridDBColumn119] +Coordinates=1509,606,135,36 + +[TBClose] +Coordinates=424,462,64,36 + +[v3Column35] +Coordinates=1509,716,86,36 + +[v3Column33] +Coordinates=1509,771,86,36 + +[cxGridDBColumn72] +Coordinates=1509,826,128,36 + +[v3Column84] +Coordinates=1509,881,86,36 + +[cxGridDBColumn63] +Coordinates=1509,991,128,36 + +[v3Column45] +Coordinates=1401,1039,86,36 + +[cxGridDBColumn109] +Coordinates=1193,1010,135,36 + +[v3Column46] +Coordinates=1104,1039,86,36 + +[v3Column52] +Coordinates=1015,1039,86,36 + +[cxGridDBColumn102] +Coordinates=787,1010,135,36 + +[cxGridDBColumn103] +Coordinates=648,1010,135,36 + +[ADOQueryBaseCmd] +Coordinates=1106,212,133,58 + +[v3Column50] +Coordinates=470,1039,86,36 + +[v3Column19] +Coordinates=381,1039,86,36 + +[v3Column120] +Coordinates=282,1039,94,36 + +[cxGridDBColumn49] +Coordinates=153,1010,128,36 + +[v3Column127] +Coordinates=54,1039,94,36 + +[v3Column91] +Coordinates=1682,1,86,36 + +[v3Column9] +Coordinates=1682,56,79,36 + +[v3Column57] +Coordinates=1682,111,86,36 + +[cxGridDBColumn101] +Coordinates=1682,276,135,36 + +[cxGridDBColumn51] +Coordinates=1682,331,128,36 + +[cxTabSheet1] +Coordinates=830,416,90,36 + +[Panel3] +Coordinates=80,280,55,58 + +[cxGridDBColumn104] +Coordinates=1682,441,135,36 + +[cxGridDBColumn91] +Coordinates=1682,551,128,36 + +[v3Column4] +Coordinates=1682,606,79,36 + +[cxGridDBColumn94] +Coordinates=1682,661,128,36 + +[DataSource5] +Coordinates=666,540,89,36 + +[v3Column85] +Coordinates=1682,716,86,36 + +[cxGridDBColumn6] +Coordinates=1682,771,121,36 + +[cxGridDBColumn71] +Coordinates=1682,826,128,36 + +[v3Column8] +Coordinates=1682,881,79,36 + +[DataSource3] +Coordinates=666,386,89,36 + +[v3Column51] +Coordinates=1682,936,86,36 + +[v3Column24] +Coordinates=1682,991,86,36 + +[cxGrid5] +Coordinates=659,416,59,36 + +[MenuItem1] +Coordinates=1682,1101,79,36 + +[v3Column139] +Coordinates=1583,1113,94,36 + +[v3Column26] +Coordinates=1494,1113,86,36 + +[TV5] +Coordinates=132,527,40,36 + +[v3Column66] +Coordinates=1405,1113,86,36 + +[v3Column115] +Coordinates=1247,1113,94,36 + +[cxGridDBColumn81] +Coordinates=1118,1113,128,36 + +[cxGridDBColumn38] +Coordinates=989,1113,128,36 + +[MenuItem2] +Coordinates=900,1113,79,36 + +[cxGridDBColumn1] +Coordinates=583,1113,121,36 + +[cxGridDBColumn76] +Coordinates=454,1113,128,36 + +[v3Column105] +Coordinates=355,1113,94,36 + +[v3Column128] +Coordinates=256,1113,94,36 + +[ClientDataSet5] +Coordinates=983,10,101,58 + +[cxGridDBColumn48] +Coordinates=127,1113,128,36 + +[v3Column116] +Coordinates=28,1113,94,36 + +[v3Column25] +Coordinates=1855,56,86,36 + +[ImageList_new32] +Coordinates=1855,111,115,36 + +[v3Column124] +Coordinates=1855,166,94,36 + +[v3Column38] +Coordinates=1855,221,86,36 + +[cxGridDBColumn118] +Coordinates=1855,276,135,36 + +[ToolButton2] +Coordinates=82,416,84,36 + +[v3Column90] +Coordinates=1855,386,86,36 + +[cxGridDBColumn90] +Coordinates=1855,441,128,36 + +[v3Column63] +Coordinates=1855,551,86,36 + +[v3Column129] +Coordinates=1855,606,94,36 + +[v3Column42] +Coordinates=1855,661,86,36 + +[cxGridLevel1] +Coordinates=1855,716,90,36 + +[v3Column15] +Coordinates=1855,771,86,36 + +[Panel2] +Coordinates=220,212,55,58 + +[cxTabSheet2] +Coordinates=1031,348,90,36 + +[cxGridDBColumn45] +Coordinates=1855,881,128,36 + +[cxGridDBColumn78] +Coordinates=1855,991,128,36 + +[v3Column14] +Coordinates=1855,1046,86,36 + +[cxGridDBColumn84] +Coordinates=1855,1101,128,36 + +[v3Column82] +Coordinates=1855,1156,86,36 + +[v3Column29] +Coordinates=1766,1187,86,36 + +[cxGridDBColumn68] +Coordinates=1637,1187,128,36 + +[v2Column3] +Coordinates=1548,1187,79,36 + +[v3Column146] +Coordinates=1449,1187,94,36 + +[v3Column21] +Coordinates=1271,1187,86,36 + +[Tv2] +Coordinates=83,527,40,36 + +[cxGridDBColumn35] +Coordinates=1073,1187,128,36 + +[v3Column49] +Coordinates=984,1187,86,36 + +[cxGridDBColumn73] +Coordinates=855,1187,128,36 + +[cxGridDBColumn111] +Coordinates=716,1187,135,36 + +[cxGridDBColumn96] +Coordinates=587,1187,128,36 + +[v3Column58] +Coordinates=498,1187,86,36 + +[v2Column6] +Coordinates=300,1187,79,36 + +[v3Column88] +Coordinates=211,1187,86,36 + +[cxGridDBColumn70] +Coordinates=82,1187,128,36 + +[v3Column32] +Coordinates=2039,1,86,36 + +[v3Column77] +Coordinates=2039,56,86,36 + +[ToolButton8] +Coordinates=1078,554,84,36 + +[v3Column79] +Coordinates=2039,166,86,36 + +[cxGridDBColumn85] +Coordinates=2039,221,128,36 + +[v3Column47] +Coordinates=2039,276,86,36 + +[cxGridDBColumn69] +Coordinates=2039,331,128,36 + +[DataSource2] +Coordinates=357,298,89,36 + +[cxGridDBColumn59] +Coordinates=2039,386,128,36 + +[Tv3] +Coordinates=2039,496,40,36 + +[v3Column87] +Coordinates=2039,551,86,36 + +[v2Column1] +Coordinates=2039,606,79,36 + +[v3Column135] +Coordinates=2039,661,94,36 + +[cxGridDBColumn82] +Coordinates=2039,716,128,36 + +[cxGridDBColumn64] +Coordinates=2039,771,128,36 + +[v3Column1] +Coordinates=2039,826,79,36 + +[v3Column22] +Coordinates=2039,936,86,36 + +[v3Column11] +Coordinates=2039,991,86,36 + +[v3Column6] +Coordinates=2039,1046,79,36 + +[v3Column41] +Coordinates=2039,1101,86,36 + +[v3Column103] +Coordinates=2039,1156,94,36 + +[cxGridDBColumn37] +Coordinates=2039,1211,128,36 + +[v3Column61] +Coordinates=2020,1261,86,36 + +[v2Column12] +Coordinates=1931,1261,86,36 + +[cxGridDBColumn99] +Coordinates=1733,1261,128,36 + +[cxGridDBColumn74] +Coordinates=1545,1261,128,36 + +[v3Column106] +Coordinates=1446,1261,94,36 + +[TBSave] +Coordinates=610,554,60,36 + +[v3Column96] +Coordinates=1288,1261,86,36 + +[v3Column123] +Coordinates=1189,1261,94,36 + +[ToolButton4] +Coordinates=910,554,84,36 + +[v3Column39] +Coordinates=1011,1261,86,36 + +[v3Column95] +Coordinates=922,1261,86,36 + +[cxGridDBColumn92] +Coordinates=793,1261,128,36 + +[v3Column16] +Coordinates=704,1261,86,36 + +[Panel1] +Coordinates=145,280,55,58 + +[v3Column112] +Coordinates=605,1261,94,36 + +[cxGridDBColumn93] +Coordinates=476,1261,128,36 + +[cxGridDBColumn114] +Coordinates=337,1261,135,36 + +[cxGridDBColumn55] +Coordinates=208,1261,128,36 + +[cxGridDBColumn88] +Coordinates=79,1261,128,36 + +[cxGridDBColumn100] +Coordinates=2205,1,135,36 + +[cxGridDBColumn98] +Coordinates=2205,56,128,36 + +[v3Column131] +Coordinates=2205,111,94,36 + +[v3Column100] +Coordinates=2205,166,94,36 + +[cxGridDBColumn65] +Coordinates=2205,221,128,36 + +[cxGridDBColumn116] +Coordinates=2205,276,135,36 + +[v3Column102] +Coordinates=2205,331,94,36 + +[v3Column144] +Coordinates=2205,386,94,36 + +[v3Column78] +Coordinates=2205,441,86,36 + +[v3Column136] +Coordinates=2205,496,94,36 + +[v3Column80] +Coordinates=2205,551,86,36 + +[v3Column117] +Coordinates=2205,606,94,36 + +[v3Column138] +Coordinates=2205,661,94,36 + +[v3Column119] +Coordinates=2205,716,94,36 + +[CDS_YuanLiao] +Coordinates=553,280,103,58 + +[cxGridDBColumn117] +Coordinates=2205,771,135,36 + +[cxGridDBColumn54] +Coordinates=2205,826,128,36 + +[v3Column92] +Coordinates=2205,881,86,36 + +[v3Column18] +Coordinates=2205,936,86,36 + +[cxGridDBColumn87] +Coordinates=2205,991,128,36 + +[v3Column17] +Coordinates=2205,1046,86,36 + +[v3Column111] +Coordinates=2205,1101,94,36 + +[cxGridDBColumn110] +Coordinates=2205,1156,135,36 + +[v3Column76] +Coordinates=2205,1211,86,36 + +[cxGridDBColumn66] +Coordinates=2205,1266,128,36 + +[v3Column104] +Coordinates=2205,1321,94,36 + +[cxGridDBColumn83] +Coordinates=2076,1335,128,36 + +[cxGridDBColumn107] +Coordinates=1937,1335,135,36 + +[v3Column7] +Coordinates=1848,1335,79,36 + +[cxGridLevel6] +Coordinates=1749,1335,90,36 + +[v3Column40] +Coordinates=1571,1335,86,36 + +[v3Column54] +Coordinates=1413,1335,86,36 + +[v3Column94] +Coordinates=1324,1335,86,36 + +[v3Column31] +Coordinates=1235,1335,86,36 + +[Tv2Column4] +Coordinates=1146,1335,87,36 + +[v3Column44] +Coordinates=1057,1335,86,36 + +[v3Column142] +Coordinates=958,1335,94,36 + +[cxGridDBColumn39] +Coordinates=829,1335,128,36 + +[cxGridDBColumn60] +Coordinates=700,1335,128,36 + +[v3Column99] +Coordinates=611,1335,86,36 + +[v3Column12] +Coordinates=522,1335,86,36 + +[cxGridDBColumn75] +Coordinates=393,1335,128,36 + +[ADOQueryTemp] +Coordinates=987,212,109,58 + +[cxGridDBColumn105] +Coordinates=254,1335,135,36 + +[v3Column60] +Coordinates=165,1335,86,36 + +[cxGridDBColumn108] +Coordinates=26,1335,135,36 + +[v3Column86] +Coordinates=2378,1,86,36 + +[v3Column3] +Coordinates=2378,56,79,36 + +[v3Column23] +Coordinates=2378,111,86,36 + +[v3Column98] +Coordinates=2378,166,86,36 + +[v3Column83] +Coordinates=2378,276,86,36 + +[cxGridDBColumn58] +Coordinates=2378,386,128,36 + +[v3Column89] +Coordinates=2378,441,86,36 + +[v3Column132] +Coordinates=2378,496,94,36 + +[cxGridDBColumn79] +Coordinates=2378,551,128,36 + +[cxGrid3] +Coordinates=283,600,59,36 + +[cxGridDBColumn80] +Coordinates=2378,661,128,36 + +[v3Column5] +Coordinates=2378,716,79,36 + +[v3Column118] +Coordinates=2378,771,94,36 + +[v3Column113] +Coordinates=2378,826,94,36 + +[v3Column122] +Coordinates=2378,881,94,36 + +[v3Column71] +Coordinates=2378,936,86,36 + +[v3Column65] +Coordinates=2378,991,86,36 + +[cxGridDBColumn36] +Coordinates=2378,1046,128,36 + +[v3Column93] +Coordinates=2378,1101,86,36 + +[cxGridDBColumn77] +Coordinates=2378,1211,128,36 + +[DataLink_KnitPlan.AdoDataLink] +Coordinates=1076,144,198,58 + +[v3Column59] +Coordinates=2378,1266,86,36 + +[v3Column75] +Coordinates=2378,1321,86,36 + +[v3Column53] +Coordinates=2378,1376,86,36 + +[PM_5] +Coordinates=2329,1409,48,36 + +[v3Column48] +Coordinates=2240,1409,86,36 + +[v3Column62] +Coordinates=2151,1409,86,36 + +[] +Coordinates=259,462,76,36 +Visible=True + +[ClientDataSet3] +Coordinates=636,348,101,58 + diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.dfm b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.dfm index febcd93..351915a 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.dfm +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.dfm @@ -1,15 +1,13 @@ inherited frmKnitPlanList: TfrmKnitPlanList - Left = 249 - Top = 194 + Top = 185 Caption = #36710#38388#29983#20135#35745#21010#21333 ClientHeight = 642 ClientWidth = 1540 - Font.Height = -16 - Position = poScreenCenter + Position = poDesigned ExplicitWidth = 1556 ExplicitHeight = 681 PixelsPerInch = 96 - TextHeight = 21 + TextHeight = 17 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 @@ -25,7 +23,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 - Font.Name = #23435#20307 + Font.Name = #24494#36719#38597#40657 Font.Style = [] Images = DataLink_KnitPlan.cxImageList_bar List = True @@ -174,134 +172,168 @@ inherited frmKnitPlanList: TfrmKnitPlanList Left = 0 Top = 30 Width = 1540 - Height = 131 + Height = 139 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clWhite + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -12 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] ParentBackground = False + ParentFont = False TabOrder = 1 + ExplicitTop = 39 object Label3: TLabel - Left = 25 - Top = 51 - Width = 48 - Height = 21 + Left = 27 + Top = 55 + Width = 36 + Height = 17 Caption = #21512#21516#21495 end object Label5: TLabel - Left = 421 - Top = 88 - Width = 64 - Height = 21 + Left = 418 + Top = 96 + Width = 48 + Height = 17 Caption = #20135#21697#21517#31216 end object Label10: TLabel - Left = 421 - Top = 51 - Width = 64 - Height = 21 + Left = 418 + Top = 55 + Width = 48 + Height = 17 Caption = #20135#21697#32534#21495 end object Label7: TLabel - Left = 231 - Top = 51 - Width = 32 - Height = 21 + Left = 223 + Top = 55 + Width = 24 + Height = 17 Caption = #23458#25143 end object lbl1: TLabel - Left = 231 - Top = 88 - Width = 32 - Height = 21 + Left = 223 + Top = 96 + Width = 24 + Height = 17 Caption = #31867#22411 end object Label4: TLabel - Left = 25 - Top = 88 - Width = 48 - Height = 21 + Left = 27 + Top = 96 + Width = 36 + Height = 17 Caption = #35745#21010#21333 end object ConNo: TcxTextEdit Tag = 2 - Left = 77 - Top = 45 + Left = 83 + Top = 50 ParentFont = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True TabOrder = 0 OnKeyPress = conPress - Width = 150 + Width = 120 end object C_Name: TcxTextEdit Tag = 2 - Left = 489 - Top = 82 + Left = 481 + Top = 90 ParentFont = False - Properties.OnChange = C_NamePropertiesChange + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True TabOrder = 1 OnKeyPress = C_NameKeyPress - Width = 150 + Width = 120 end object C_Code: TcxTextEdit Tag = 2 - Left = 489 - Top = 45 + Left = 481 + Top = 48 ParentFont = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True TabOrder = 2 OnKeyPress = C_CodeKeyPress - Width = 150 + Width = 120 end object CustName: TcxTextEdit Tag = 2 - Left = 267 - Top = 45 + Left = 269 + Top = 50 ParentFont = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True TabOrder = 3 OnKeyPress = CustNameKeyPress - Width = 150 + Width = 120 end object OrderNo: TcxTextEdit Tag = 2 - Left = 77 - Top = 82 + Left = 83 + Top = 91 ParentFont = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True TabOrder = 4 OnKeyPress = conPress - Width = 150 + Width = 120 end - object OrdType: TcxComboBox + object cxComboBox1: TcxComboBox Tag = 2 - Left = 267 - Top = 82 + Left = 268 + Top = 91 ParentFont = False - Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( - '' #22823#36135#21333 #22806#21457#21333 #35797#26679#21333) + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True TabOrder = 5 - Width = 150 + Width = 120 end - inline frmFrameDateSel1: TfrmFrameDateSel - Left = 2 - Top = 2 - Width = 1536 + inline TfrmFrameDateSel: TfrmFrameDateSel + Left = -1 + Top = 4 + Width = 1078 Height = 37 - Align = alTop Color = clWhite ParentBackground = False ParentColor = False TabOrder = 6 - ExplicitLeft = 2 - ExplicitTop = 2 - ExplicitWidth = 1536 + ExplicitLeft = -1 + ExplicitTop = 4 inherited BegDate: TcxDateEdit + Left = 90 + Top = 2 + ExplicitLeft = 90 + ExplicitTop = 2 ExplicitHeight = 33 end inherited EndDate: TcxDateEdit ExplicitHeight = 33 end + inherited cxButton3: TcxButton + Top = 2 + ExplicitTop = 2 + end inherited cbbType: TcxComboBox ExplicitHeight = 33 end @@ -309,12 +341,15 @@ inherited frmKnitPlanList: TfrmKnitPlanList end object cxGrid1: TcxGrid [2] Left = 0 - Top = 189 + Top = 169 Width = 1317 - Height = 453 + Height = 473 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 + ExplicitLeft = -1 + ExplicitTop = 177 + ExplicitHeight = 465 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> ScrollbarAnnotations.CustomAnnotations = <> @@ -387,15 +422,21 @@ inherited frmKnitPlanList: TfrmKnitPlanList Kind = skSum end> DataController.Summary.SummaryGroups = <> + Images = DataLink_KnitPlan.ImageList_new32 OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False + Styles.IncSearch = DataLink_KnitPlan.Default + Styles.Header = DataLink_KnitPlan.Default + Styles.Inactive = DataLink_KnitPlan.Default + Styles.Selection = DataLink_KnitPlan.Default 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 @@ -420,6 +461,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False + Styles.Header = DataLink_KnitPlan.Default Width = 71 end object Tv1Column1: TcxGridDBColumn @@ -439,6 +481,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList Properties.ShowTime = False HeaderAlignmentHorz = taCenter Options.Editing = False + Styles.Header = DataLink_KnitPlan.Default Width = 82 end object v1Column21: TcxGridDBColumn @@ -447,6 +490,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False + Styles.Header = DataLink_KnitPlan.Default Width = 92 end object v1Column2: TcxGridDBColumn @@ -455,6 +499,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False + Styles.Header = DataLink_KnitPlan.Default Width = 73 end object v1Column20: TcxGridDBColumn @@ -471,6 +516,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False + Styles.Header = DataLink_KnitPlan.Default Width = 67 end object v1PRTMF: TcxGridDBColumn @@ -479,6 +525,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False + Styles.Header = DataLink_KnitPlan.Default Width = 69 end object Tv1Column3: TcxGridDBColumn @@ -495,6 +542,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False + Styles.Header = DataLink_KnitPlan.Default Width = 76 end object v1Column6: TcxGridDBColumn @@ -503,6 +551,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False + Styles.Header = DataLink_KnitPlan.Default Width = 59 end object v1Column22: TcxGridDBColumn @@ -511,6 +560,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False + Styles.Header = DataLink_KnitPlan.Default Width = 63 end object v1Column7: TcxGridDBColumn @@ -519,6 +569,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False + Styles.Header = DataLink_KnitPlan.Default Width = 72 end object v1PRTOrderQty: TcxGridDBColumn @@ -527,6 +578,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False + Styles.Header = DataLink_KnitPlan.Default Width = 92 end object v1Column12: TcxGridDBColumn @@ -535,6 +587,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False + Styles.Header = DataLink_KnitPlan.Default Width = 64 end object v1Column4: TcxGridDBColumn @@ -543,6 +596,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False + Styles.Header = DataLink_KnitPlan.Default Width = 68 end object Tv1Column7: TcxGridDBColumn @@ -583,9 +637,9 @@ inherited frmKnitPlanList: TfrmKnitPlanList end object cxTabControl1: TcxTabControl [3] Left = 0 - Top = 161 + Top = 169 Width = 1540 - Height = 28 + Height = 0 Align = alTop Font.Charset = GB2312_CHARSET Font.Color = clWindowText @@ -603,162 +657,164 @@ inherited frmKnitPlanList: TfrmKnitPlanList #24050#32467#26463 #20840#37096) OnChange = cxTabControl1Change - ClientRectBottom = 30 - ClientRectRight = 1540 - ClientRectTop = 30 + ExplicitTop = 177 + ClientRectRight = 0 + ClientRectTop = 0 end object Panel2: TPanel [4] Left = 1317 - Top = 189 + Top = 169 Width = 223 - Height = 453 + Height = 473 Align = alRight TabOrder = 4 + ExplicitTop = 177 + ExplicitHeight = 465 object Label6: TLabel Left = 28 - Top = 48 - Width = 52 - Height = 12 + Top = 47 + Width = 48 + Height = 17 Caption = #24067#21305#25171#21360 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label8: TLabel Left = 28 - Top = 74 - Width = 52 - Height = 12 + Top = 73 + Width = 48 + Height = 17 Caption = #26816#39564#21305#25968 - Font.Charset = GB2312_CHARSET - Font.Color = clMaroon - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label9: TLabel Left = 28 - Top = 99 - Width = 52 - Height = 12 + Top = 98 + Width = 48 + Height = 17 Caption = #26816#39564#25968#37327 - Font.Charset = GB2312_CHARSET - Font.Color = clMaroon - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label11: TLabel Left = 28 - Top = 125 - Width = 52 - Height = 12 + Top = 124 + Width = 48 + Height = 17 Caption = #20986#24211#21305#25968 - Font.Charset = GB2312_CHARSET - Font.Color = clNavy - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label12: TLabel Left = 28 - Top = 152 - Width = 52 - Height = 12 + Top = 151 + Width = 48 + Height = 17 Caption = #20986#24211#25968#37327 - Font.Charset = GB2312_CHARSET - Font.Color = clNavy - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label13: TLabel Left = 28 - Top = 178 - Width = 52 - Height = 12 + Top = 177 + Width = 48 + Height = 17 Caption = #24211#23384#21305#25968 - Font.Charset = GB2312_CHARSET - Font.Color = clOlive - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label14: TLabel Left = 28 - Top = 204 - Width = 52 - Height = 12 + Top = 203 + Width = 48 + Height = 17 Caption = #24211#23384#25968#37327 - Font.Charset = GB2312_CHARSET - Font.Color = clOlive - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object CardPiece: TcxTextEdit Left = 86 Top = 44 + AutoSize = False ParentFont = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True TabOrder = 0 OnKeyPress = conPress + Height = 20 Width = 112 end object PBJYPS: TcxTextEdit Left = 86 Top = 70 + AutoSize = False ParentFont = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True TabOrder = 1 OnKeyPress = conPress + Height = 20 Width = 112 end object PBJYQty: TcxTextEdit Left = 86 Top = 95 + AutoSize = False ParentFont = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True TabOrder = 2 OnKeyPress = conPress + Height = 20 Width = 112 end object PBCKPS: TcxTextEdit Left = 86 Top = 121 + AutoSize = False ParentFont = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True TabOrder = 3 OnKeyPress = conPress + Height = 20 Width = 112 end object PBCKQty: TcxTextEdit Left = 86 Top = 148 + AutoSize = False ParentFont = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True TabOrder = 4 OnKeyPress = conPress + Height = 20 Width = 112 end object PBKCPS: TcxTextEdit Left = 86 Top = 174 + AutoSize = False ParentFont = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True TabOrder = 5 OnKeyPress = conPress + Height = 20 Width = 112 end object PBKCQty: TcxTextEdit Left = 86 Top = 200 + AutoSize = False ParentFont = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True TabOrder = 6 OnKeyPress = conPress + Height = 20 Width = 112 end end diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.pas b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.pas index 4fc60a7..f263675 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.pas +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanList.pas @@ -1,7 +1,5 @@ unit U_KnitPlanList; - interface - uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, @@ -28,8 +26,8 @@ uses dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations, - cxContainer, cxMaskEdit, cxDropDownEdit, FrameDateSel; - + cxContainer, dxCore, cxDateUtils, cxDropDownEdit, cxButtons, cxMaskEdit, + FrameDateSel; type TfrmKnitPlanList = class(TfrmBaseList) ToolBar1: TToolBar; @@ -113,8 +111,8 @@ type Tv1Column7: TcxGridDBColumn; PopupMenu1: TPopupMenu; N1: TMenuItem; - OrdType: TcxComboBox; - frmFrameDateSel1: TfrmFrameDateSel; + cxComboBox1: TcxComboBox; + TfrmFrameDateSel: TfrmFrameDateSel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); procedure TBFindClick(Sender: TObject); @@ -129,7 +127,7 @@ type procedure conPress(Sender: TObject; var Key: Char); procedure TBViewClick(Sender: TObject); procedure TBCopyClick(Sender: TObject); - procedure OrdType1Change(Sender: TObject); + procedure OrdTypeChange(Sender: TObject); procedure C_CodeKeyPress(Sender: TObject; var Key: Char); procedure BatchNoHZKeyPress(Sender: TObject; var Key: Char); procedure CustNameKeyPress(Sender: TObject; var Key: Char); @@ -144,7 +142,6 @@ type procedure ToolButton2Click(Sender: TObject); procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); procedure N1Click(Sender: TObject); - procedure C_NamePropertiesChange(Sender: TObject); private FInt, PFInt: Integer; procedure InitGrid(); @@ -156,21 +153,16 @@ type canshu1, FCheJian: string; { Public declarations } end; - implementation - uses U_DataLink, U_KnitPlanInPut, U_RTFun, U_ZDYHelp, U_LabelPrint, U_KnitCardInPut, U_KnitInspSet; - {$R *.dfm} - procedure TfrmKnitPlanList.FormClose(Sender: TObject; var Action: TCloseAction); begin inherited; Action := caFree; end; - procedure TfrmKnitPlanList.InitButton(); begin TBAdd.Enabled := False; @@ -193,7 +185,6 @@ begin TBSCAP.Enabled := true; TBEdit.Enabled := true; btnChk.Enabled := true; - end; 1: begin @@ -210,7 +201,6 @@ begin end; end; end; - if Trim(canshu1) = '' then begin case cxTabControl1.TabIndex of @@ -238,16 +228,12 @@ begin end; end; end; - end; - procedure TfrmKnitPlanList.TBCloseClick(Sender: TObject); begin - WriteCxGrid('ƻ', Tv1, ''); Close; end; - procedure TfrmKnitPlanList.InitGrid(); begin try @@ -259,13 +245,10 @@ begin sql.Clear; sql.Add('select A.*,B.* '); sql.Add(',APPS=(select count(X.pcid) from knit_Plan_Card X where X.SubId=B.Subid)'); - 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', TfrmFrameDateSel.BegDate.Date)) + ''''); + sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', TfrmFrameDateSel.EndDate.Date + 1)) + ''''); case cxTabControl1.TabIndex of 0: begin @@ -278,10 +261,11 @@ begin 2: begin sql.Add('and isnull(Status,''0'') =''10'' '); + sql.Add(' and A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', TfrmFrameDateSel.BegDate.Date)) + ''''); + sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', TfrmFrameDateSel.EndDate.Date + 1)) + ''''); end; end; sql.add('order by A.FILLTIME DESC'); -// ShowMessage(sql.Text); Open; end; SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); @@ -291,21 +275,18 @@ begin ADOQueryMain.EnableControls; end; end; - procedure TfrmKnitPlanList.N1Click(Sender: TObject); begin CopyTVFocusValue(TV1); end; - procedure TfrmKnitPlanList.InitForm(); begin InitButton(); ReadCxGrid(trim(self.Caption), Tv1, ''); - frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 30; - frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp); + TfrmFrameDateSel.BegDate.Date := SGetServerDate(ADOQueryTemp) - 30; + TfrmFrameDateSel.EndDate.Date := SGetServerDate(ADOQueryTemp); InitGrid(); end; - procedure TfrmKnitPlanList.TBFindClick(Sender: TObject); begin TBRafresh.Click; @@ -315,7 +296,6 @@ begin SCreateCDS(ADOQueryMain, CDS_1); SInitCDSData(ADOQueryMain, CDS_1); end; - procedure TfrmKnitPlanList.TBNoEndClick(Sender: TObject); begin if CDS_1.IsEmpty then @@ -327,7 +307,6 @@ begin sql.Clear; sql.Add('update knit_Plan_Main SET status=''9'',Comper=null,Comptime=null '); sql.Add('where mainID=' + quotedstr(trim(CDS_1.fieldbyname('mainID').AsString))); - sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); sql.Add(' ' + quotedstr(trim(DName))); sql.Add(',getdate() '); @@ -344,7 +323,6 @@ begin application.MessageBox('ʧܣ', 'ʾϢ', 0); end; end; - procedure TfrmKnitPlanList.TBEditClick(Sender: TObject); begin if CDS_1.IsEmpty then @@ -366,7 +344,6 @@ begin frmKnitPlanInPut.Free; end; end; - procedure TfrmKnitPlanList.TBEndClick(Sender: TObject); begin if CDS_1.IsEmpty then @@ -378,7 +355,6 @@ begin sql.Clear; sql.Add('update knit_Plan_Main SET status=''10'' ,Comper=''' + trim(DName) + ''',Comptime=getdate() '); sql.Add('where mainID=' + quotedstr(trim(CDS_1.fieldbyname('mainID').AsString))); - sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); sql.Add(' ' + quotedstr(trim(DName))); sql.Add(',getdate() '); @@ -395,7 +371,6 @@ begin application.MessageBox('ʧܣ', 'ʾϢ', 0); end; end; - procedure TfrmKnitPlanList.TBDelClick(Sender: TObject); begin if CDS_1.IsEmpty then @@ -424,7 +399,6 @@ begin CDS_1.Delete; end; end; - function TfrmKnitPlanList.DelData(): Boolean; begin try @@ -448,14 +422,12 @@ begin Application.MessageBox('ɾ쳣', 'ʾ', 0); end; end; - procedure TfrmKnitPlanList.TBExportClick(Sender: TObject); begin if ADOQueryMain.IsEmpty then Exit; TcxGridToExcel('', cxGrid1); end; - procedure TfrmKnitPlanList.TBPrintClick(Sender: TObject); var WSql: string; @@ -463,7 +435,6 @@ begin if CDS_1.IsEmpty then Exit; WSql := (Trim(CDS_1.fieldbyname('MainId').AsString)); - try frmLabelPrint := TfrmLabelPrint.Create(Application); with frmLabelPrint do @@ -478,14 +449,11 @@ begin finally frmLabelPrint.Free; end; - end; - procedure TfrmKnitPlanList.TBRafreshClick(Sender: TObject); begin InitGrid(); end; - procedure TfrmKnitPlanList.TBSCAPClick(Sender: TObject); var FMainId, FSubId: string; @@ -504,12 +472,9 @@ begin finally frmKnitCardInPut.Free; end; - end; - procedure TfrmKnitPlanList.TBAddClick(Sender: TObject); begin - try frmKnitPlanInPut := TfrmKnitPlanInPut.Create(Application); with frmKnitPlanInPut do @@ -526,7 +491,6 @@ begin frmKnitPlanInPut.Free; end; end; - procedure TfrmKnitPlanList.ConNoChange(Sender: TObject); begin if ADOQueryMain.Active = False then @@ -535,15 +499,12 @@ begin SCreateCDS(ADOQueryMain, CDS_1); SInitCDSData(ADOQueryMain, CDS_1); end; - procedure TfrmKnitPlanList.FormShow(Sender: TObject); begin inherited; canshu1 := DParameters1; InitForm(); - end; - procedure TfrmKnitPlanList.conPress(Sender: TObject; var Key: Char); begin if Key = #13 then @@ -562,7 +523,6 @@ begin // +' and ConType='''' '; sql.Add('select * from knit_Plan_Main A inner join knit_Plan_Sub B on A.Mainid=B.MainId'); sql.Add(' where A.ConNo like ''' + '%' + Trim(ConNo.Text) + '%' + ''''); - Open; end; SCreateCDS(ADOQueryMain, CDS_1); @@ -572,7 +532,6 @@ begin end; end; end; - procedure TfrmKnitPlanList.TBViewClick(Sender: TObject); begin try @@ -588,38 +547,31 @@ begin ScrollBox1.Enabled := False; if ShowModal = 1 then begin - end; end; finally frmKnitPlanInPut.Free; end; end; - procedure TfrmKnitPlanList.ToolButton1Click(Sender: TObject); begin WriteCxGrid(trim(self.Caption), Tv1, ''); end; - procedure TfrmKnitPlanList.ToolButton2Click(Sender: TObject); begin try frmKnitInspSet := TfrmKnitInspSet.Create(Application); with frmKnitInspSet do begin - FDataID := Trim(Self.CDS_1.fieldbyname('MainId').AsString); - if ShowModal = 1 then begin - end; end; finally frmKnitInspSet.Free; end; end; - procedure TfrmKnitPlanList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean); var fwhere: string; @@ -629,15 +581,14 @@ 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', TfrmFrameDateSel.Begdate.Date)))); + sql.Add(',@enddate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', TfrmFrameDateSel.EndDate.Date + 1)))); sql.Add(',@criteria= ' + quotedstr(fwhere)); Open; end; SClearData(Panel2, 0); SCSHData(ADO_JD, Panel2, 0); end; - procedure TfrmKnitPlanList.btnChkClick(Sender: TObject); begin if CDS_1.IsEmpty then @@ -649,7 +600,6 @@ begin sql.Clear; sql.Add('update knit_Plan_Main SET status=''9'',chker=''' + trim(DName) + ''',Chktime=getdate() '); sql.Add('where mainID=' + quotedstr(trim(CDS_1.fieldbyname('mainID').AsString))); - sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); sql.Add(' ' + quotedstr(trim(DName))); sql.Add(',getdate() '); @@ -665,9 +615,7 @@ begin except application.MessageBox('ʼʧܣ', 'ʾϢ', 0); end; - end; - procedure TfrmKnitPlanList.btnReChkClick(Sender: TObject); begin if CDS_1.IsEmpty then @@ -699,7 +647,6 @@ begin application.MessageBox('ƻʼʧܣ', 'ʾϢ', 0); end; end; - procedure TfrmKnitPlanList.TBCopyClick(Sender: TObject); begin if CDS_1.IsEmpty then @@ -714,19 +661,16 @@ begin FConNo := Trim(Self.CDS_1.fieldbyname('ConNo').AsString); if ShowModal = 1 then begin - end; end; finally frmKnitPlanInPut.Free; end; end; - -procedure TfrmKnitPlanList.OrdType1Change(Sender: TObject); +procedure TfrmKnitPlanList.OrdTypeChange(Sender: TObject); begin TBRafresh.Click; end; - procedure TfrmKnitPlanList.C_CodeKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then @@ -737,7 +681,6 @@ begin SCreateCDS(ADOQueryMain, CDS_1); SInitCDSData(ADOQueryMain, CDS_1); end; - procedure TfrmKnitPlanList.BatchNoHZKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then @@ -748,7 +691,6 @@ begin SCreateCDS(ADOQueryMain, CDS_1); SInitCDSData(ADOQueryMain, CDS_1); end; - procedure TfrmKnitPlanList.CustNameKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then @@ -759,13 +701,11 @@ begin SCreateCDS(ADOQueryMain, CDS_1); SInitCDSData(ADOQueryMain, CDS_1); end; - procedure TfrmKnitPlanList.cxTabControl1Change(Sender: TObject); begin InitButton(); InitGrid(); end; - procedure TfrmKnitPlanList.C_NameKeyPress(Sender: TObject; var Key: Char); begin if Key = #13 then @@ -776,15 +716,4 @@ begin SCreateCDS(ADOQueryMain, CDS_1); SInitCDSData(ADOQueryMain, CDS_1); end; - -procedure TfrmKnitPlanList.C_NamePropertiesChange(Sender: TObject); -begin - if ADOQueryMain.Active = False then - Exit; - SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2)); - SCreateCDS(ADOQueryMain, CDS_1); - SInitCDSData(ADOQueryMain, CDS_1); -end; - end. - diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanProgress.dfm b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanProgress.dfm index d91812e..4f6ecb1 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanProgress.dfm +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanProgress.dfm @@ -2,25 +2,25 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress Left = 238 Top = 107 Caption = #35746#21333#36827#24230 - ClientHeight = 554 + ClientHeight = 547 ClientWidth = 1267 ExplicitWidth = 1283 - ExplicitHeight = 593 + ExplicitHeight = 586 PixelsPerInch = 96 - TextHeight = 12 + TextHeight = 17 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 Top = 0 Width = 1267 - Height = 38 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 75 + ButtonHeight = 30 + ButtonWidth = 59 Caption = 'ToolBar1' Color = clWhite - DisabledImages = DataLink_KnitPlan.ImageList_new32 - Images = DataLink_KnitPlan.ImageList_new32 + DisabledImages = DataLink_KnitPlan.cxImageList_bar + Images = DataLink_KnitPlan.cxImageList_bar List = True ParentColor = False ShowCaptions = True @@ -34,7 +34,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress OnClick = TBRafreshClick end object ToolButton2: TToolButton - Left = 71 + Left = 63 Top = 0 AutoSize = True Caption = #36807#28388 @@ -42,7 +42,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress OnClick = ToolButton2Click end object ToolButton1: TToolButton - Left = 142 + Left = 126 Top = 0 AutoSize = True Caption = #23548#20986 @@ -50,7 +50,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 213 + Left = 189 Top = 0 AutoSize = True Caption = #20851#38381 @@ -60,7 +60,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress end object Panel1: TPanel [1] Left = 0 - Top = 38 + Top = 30 Width = 1267 Height = 69 Align = alTop @@ -69,101 +69,113 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress Color = clWhite ParentBackground = False TabOrder = 1 + ExplicitTop = 38 object Label3: TLabel - Left = 245 - Top = 38 + Left = 240 + Top = 44 Width = 24 - Height = 12 + Height = 17 Caption = #21697#21517 end object Label1: TLabel - Left = 246 - Top = 12 + Left = 240 + Top = 14 Width = 24 - Height = 12 + Height = 17 Caption = #32534#21495 end object Label4: TLabel - Left = 22 - Top = 12 + Left = 16 + Top = 14 Width = 24 - Height = 12 + Height = 17 Caption = #26085#26399 end object Label5: TLabel - Left = 31 - Top = 38 + Left = 24 + Top = 44 Width = 12 - Height = 12 + Height = 17 Caption = #33267 end object Label6: TLabel - Left = 423 - Top = 12 + Left = 416 + Top = 14 Width = 48 - Height = 12 + Height = 17 Caption = #35745#21010#21333#21495 end - object C_Name: TEdit + object C_Name: TcxTextEdit Tag = 2 - Left = 299 - Top = 34 - Width = 89 - Height = 20 - ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + Left = 296 + Top = 36 + AutoSize = False + ParentFont = False TabOrder = 3 - OnChange = C_NameChange + Height = 25 + Width = 88 end - object C_Code: TEdit + object C_Code: TcxTextEdit Tag = 2 - Left = 300 - Top = 8 - Width = 89 - Height = 20 - ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + Left = 296 + Top = 6 + AutoSize = False + ParentFont = False TabOrder = 1 - OnChange = C_NameChange + Height = 25 + Width = 88 end - object EndDate: TDateTimePicker - Left = 75 - Top = 34 - Width = 140 - Height = 20 - Date = 40768.000000000000000000 - Time = 0.458268587972270300 - ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + object EndDate: TcxDateEdit + Left = 73 + Top = 37 + AutoSize = False + EditValue = 40768d + ParentFont = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True TabOrder = 2 + Height = 25 + Width = 144 end - object Begdate: TDateTimePicker - Left = 76 - Top = 8 - Width = 140 - Height = 20 - Date = 40768.000000000000000000 - Time = 0.458268587972270300 - ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + object Begdate: TcxDateEdit + Left = 73 + Top = 7 + AutoSize = False + EditValue = 40768d + ParentFont = False + Style.LookAndFeel.NativeStyle = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True TabOrder = 0 + Height = 25 + Width = 144 end - object orderno: TEdit + object orderno: TcxTextEdit Tag = 2 - Left = 501 - Top = 8 - Width = 89 - Height = 20 - ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + Left = 496 + Top = 6 + AutoSize = False + ParentFont = False TabOrder = 4 - OnChange = C_NameChange + Height = 25 + Width = 88 end end object cxGrid1: TcxGrid [2] Left = 0 - Top = 107 + Top = 99 Width = 1267 - Height = 447 + Height = 448 Align = alClient TabOrder = 2 + ExplicitTop = 107 + ExplicitHeight = 440 object TV1: TcxGridDBBandedTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource1 DataController.Filter.AutoDataSetFilter = True DataController.Summary.DefaultGroupSummaryItems = <> @@ -458,6 +470,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object cxGridDBBandedColumn35: TcxGridDBBandedColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 172 @@ -468,6 +481,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object cxGridDBBandedColumn42: TcxGridDBBandedColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 166 @@ -478,6 +492,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object cxGridDBBandedColumn51: TcxGridDBBandedColumn Caption = #21305#25968 DataBinding.FieldName = 'OrdPiece' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -489,6 +504,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object cxGridDBBandedColumn52: TcxGridDBBandedColumn Caption = #25968#37327 DataBinding.FieldName = 'OrdQty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -499,6 +515,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress end object cxGridDBBandedColumn61: TcxGridDBBandedColumn DataBinding.FieldName = 'IsHG' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -510,6 +527,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object cxGridDBBandedColumn63: TcxGridDBBandedColumn Caption = #27719#24635#21333#21495 DataBinding.FieldName = 'OrderNoHZ' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -521,6 +539,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object cxGridDBBandedColumn77: TcxGridDBBandedColumn Caption = #21305#25968 DataBinding.FieldName = 'DCPS' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -531,6 +550,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object cxGridDBBandedColumn79: TcxGridDBBandedColumn Caption = #20986#24211#21305#25968 DataBinding.FieldName = 'PBCKPS' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -542,6 +562,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object cxGridDBBandedColumn87: TcxGridDBBandedColumn Caption = #24211#23384#21305#25968 DataBinding.FieldName = 'PBKCPS' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -553,6 +574,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object cxGridDBBandedColumn91: TcxGridDBBandedColumn Caption = #25968#37327 DataBinding.FieldName = 'DCSL' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -563,6 +585,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object V1Column26: TcxGridDBBandedColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 131 @@ -573,6 +596,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object V1Column27: TcxGridDBBandedColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 140 @@ -583,6 +607,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object V1Column5: TcxGridDBBandedColumn Caption = #24211#23384#25968#37327 DataBinding.FieldName = 'PBKCQty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -594,6 +619,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object V1Column7: TcxGridDBBandedColumn Caption = #20986#24211#25968#37327 DataBinding.FieldName = 'PBCKQty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -604,6 +630,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object V1Column3: TcxGridDBBandedColumn Caption = #26816#39564#21305#25968 DataBinding.FieldName = 'JYPS' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Position.BandIndex = -1 @@ -613,6 +640,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object V1Column8: TcxGridDBBandedColumn Caption = #26816#39564#38271#24230 DataBinding.FieldName = 'JYlen' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Position.BandIndex = -1 @@ -622,6 +650,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object V1Column9: TcxGridDBBandedColumn Caption = #25171#21360#24352#25968 DataBinding.FieldName = 'CardPiece' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -632,6 +661,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object V1Column11: TcxGridDBBandedColumn Caption = #26816#39564#37325#37327 DataBinding.FieldName = 'JYGW' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Position.BandIndex = -1 @@ -641,6 +671,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object TV1Column4: TcxGridDBBandedColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'orderno' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 188 @@ -651,6 +682,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object TV1Column16: TcxGridDBBandedColumn Caption = #26816#39564#21305#25968 DataBinding.FieldName = 'PBJYPS' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 51 @@ -661,6 +693,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object TV1Column17: TcxGridDBBandedColumn Caption = #26816#39564#25968#37327 DataBinding.FieldName = 'PBJYQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 @@ -671,6 +704,7 @@ inherited frmKnitPlanProgress: TfrmKnitPlanProgress object TV1Column1: TcxGridDBBandedColumn Caption = #23458#25143 DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 103 diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanProgress.pas b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanProgress.pas index 73b101c..7f44819 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanProgress.pas +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_KnitPlanProgress.pas @@ -15,7 +15,8 @@ uses cxTextEdit, cxDBLookupComboBox, cxGridBandedTableView, cxGridDBBandedTableView, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, U_BaseHelp, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, System.ImageList, - Vcl.ImgList, U_BaseList; + Vcl.ImgList, U_BaseList, dxSkinWXI, dxScrollbarAnnotations, cxContainer, + dxCore, cxDateUtils, cxDropDownEdit; type TfrmKnitPlanProgress = class(TfrmBaseList) @@ -30,14 +31,14 @@ type RM1: TRMGridReport; RMDBHZ: TRMDBDataSet; Label3: TLabel; - C_Name: TEdit; + C_Name: TcxTextEdit; cxGridPopupMenu2: TcxGridPopupMenu; Label1: TLabel; - C_Code: TEdit; - EndDate: TDateTimePicker; + C_Code: TcxTextEdit; + EndDate: TcxDateEdit; Label4: TLabel; Label5: TLabel; - Begdate: TDateTimePicker; + Begdate: TcxDateEdit; cxGrid1: TcxGrid; TV1: TcxGridDBBandedTableView; cxGridDBBandedColumn35: TcxGridDBBandedColumn; @@ -56,7 +57,7 @@ type V1Column5: TcxGridDBBandedColumn; V1Column7: TcxGridDBBandedColumn; Label6: TLabel; - orderno: TEdit; + orderno: TcxTextEdit; CDSPRTHZ: TClientDataSet; CDSPRTMX: TClientDataSet; RMDBMX: TRMDBDataSet; @@ -127,8 +128,8 @@ begin begin Close; SQL.Clear; - sql.Add(' exec P_Knit_Plan_Progress @Begdate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', Begdate.DateTime)))); - sql.Add(',@enddate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)))); + sql.Add(' exec P_Knit_Plan_Progress @Begdate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', Begdate.Date)))); + sql.Add(',@enddate=' + quotedstr(trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)))); sql.Add(',@criteria= ' + quotedstr(fwhere)); // ShowMessage(sql.text); Open; @@ -198,8 +199,8 @@ procedure TfrmKnitPlanProgress.FormCreate(Sender: TObject); begin inherited; canshu1 := Trim(DParameters1); - EndDate.DateTime := SGetServerDate(ADOQueryTemp); - BegDate.DateTime := EndDate.DateTime - 90; + EndDate.Date := SGetServerDate(ADOQueryTemp); + BegDate.Date := EndDate.Date - 90; end; end. diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_MachPlanSet.dfm b/项目代码/RTBasicsV1/D01针织生产计划/U_MachPlanSet.dfm index 113f8d3..4ade60c 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/U_MachPlanSet.dfm +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_MachPlanSet.dfm @@ -4,23 +4,24 @@ inherited frmMachPlanSet: TfrmMachPlanSet Caption = #26426#21488#31649#29702 ClientHeight = 523 ClientWidth = 1107 + ParentFont = True KeyPreview = True ExplicitWidth = 1123 ExplicitHeight = 562 PixelsPerInch = 96 - TextHeight = 17 + TextHeight = 13 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 Top = 0 Width = 1107 - Height = 38 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 83 Caption = 'ToolBar1' Color = clSkyBlue - Images = DataLink_KnitPlan.ImageList_new32 + Images = DataLink_KnitPlan.cxImageList_bar List = True ParentColor = False ShowCaptions = True @@ -34,7 +35,7 @@ inherited frmMachPlanSet: TfrmMachPlanSet OnClick = TBRafreshClick end object ToolButton2: TToolButton - Left = 71 + Left = 63 Top = 0 AutoSize = True Caption = #36807#28388 @@ -42,7 +43,7 @@ inherited frmMachPlanSet: TfrmMachPlanSet Visible = False end object ToolButton1: TToolButton - Left = 142 + Left = 126 Top = 0 AutoSize = True Caption = #28165#31354 @@ -50,7 +51,7 @@ inherited frmMachPlanSet: TfrmMachPlanSet OnClick = ToolButton1Click end object ToolButton3: TToolButton - Left = 213 + Left = 189 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -58,7 +59,7 @@ inherited frmMachPlanSet: TfrmMachPlanSet OnClick = ToolButton3Click end object TBClose: TToolButton - Left = 308 + Left = 276 Top = 0 AutoSize = True Caption = #20851#38381 @@ -68,9 +69,9 @@ inherited frmMachPlanSet: TfrmMachPlanSet end object cxGrid2: TcxGrid [1] Left = 0 - Top = 38 + Top = 30 Width = 336 - Height = 485 + Height = 493 Align = alLeft TabOrder = 1 object Tv2: TcxGridDBTableView @@ -120,9 +121,9 @@ inherited frmMachPlanSet: TfrmMachPlanSet end object cxGrid1: TcxGrid [2] Left = 336 - Top = 38 + Top = 30 Width = 771 - Height = 485 + Height = 493 Align = alClient TabOrder = 2 object Tv1: TcxGridDBTableView diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_WageListTKJ.dfm b/项目代码/RTBasicsV1/D01针织生产计划/U_WageListTKJ.dfm index bd506b0..b4f7d26 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/U_WageListTKJ.dfm +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_WageListTKJ.dfm @@ -7,19 +7,19 @@ inherited frmWageListTKJ: TfrmWageListTKJ ExplicitWidth = 1556 ExplicitHeight = 601 PixelsPerInch = 96 - TextHeight = 12 + TextHeight = 17 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 Top = 0 Width = 1540 Height = 31 - ButtonHeight = 38 - ButtonWidth = 115 + ButtonHeight = 30 + ButtonWidth = 107 Caption = 'ToolBar1' Color = clSkyBlue - DisabledImages = DataLink_KnitPlan.ThreeImgList - Images = DataLink_KnitPlan.ImageList_new32 + DisabledImages = DataLink_KnitPlan.cxImageList_bar + Images = DataLink_KnitPlan.cxImageList_bar List = True ParentColor = False ShowCaptions = True @@ -33,7 +33,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ OnClick = TBRafreshClick end object ToolButton2: TToolButton - Left = 71 + Left = 63 Top = 0 AutoSize = True Caption = #36807#28388 @@ -41,7 +41,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ OnClick = ToolButton2Click end object ToolButton7: TToolButton - Left = 142 + Left = 126 Top = 0 AutoSize = True Caption = #34917#24405#25968#25454 @@ -49,10 +49,10 @@ inherited frmWageListTKJ: TfrmWageListTKJ OnClick = ToolButton7Click end object Panel3: TPanel - Left = 237 + Left = 213 Top = 0 Width = 164 - Height = 38 + Height = 30 BevelInner = bvRaised BevelOuter = bvLowered Color = clWhite @@ -62,28 +62,19 @@ inherited frmWageListTKJ: TfrmWageListTKJ Left = 4 Top = 10 Width = 24 - Height = 12 + Height = 17 Caption = #26085#26399 end - object BLDate: TDateTimePicker - Left = 34 - Top = 6 - Width = 121 - Height = 20 - Date = 44496.000000000000000000 - Time = 0.771035219906480100 - TabOrder = 0 - end end object ToolButton8: TToolButton - Left = 401 + Left = 377 Top = 0 Caption = #21024#38500#34917#24405#25968#25454 ImageIndex = 3 OnClick = ToolButton8Click end object ToolButton5: TToolButton - Left = 516 + Left = 484 Top = 0 AutoSize = True Caption = #26356#25913#32534#21495 @@ -92,7 +83,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ OnClick = ToolButton5Click end object ToolButton6: TToolButton - Left = 611 + Left = 571 Top = 0 AutoSize = True Caption = #26356#25913#25377#36710#24037 @@ -100,7 +91,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ OnClick = ToolButton6Click end object ToolButton3: TToolButton - Left = 718 + Left = 670 Top = 0 AutoSize = True Caption = #26680#23545 @@ -108,7 +99,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ OnClick = ToolButton3Click end object ToolButton4: TToolButton - Left = 789 + Left = 733 Top = 0 AutoSize = True Caption = #26680#23545#25764#38144 @@ -116,7 +107,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ OnClick = ToolButton4Click end object ToolButton1: TToolButton - Left = 884 + Left = 820 Top = 0 AutoSize = True Caption = #23548#20986 @@ -124,7 +115,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 955 + Left = 883 Top = 0 AutoSize = True Caption = #20851#38381 @@ -147,64 +138,66 @@ inherited frmWageListTKJ: TfrmWageListTKJ Left = 415 Top = 13 Width = 24 - Height = 12 + Height = 17 Caption = #21697#21517 end object Label1: TLabel Left = 271 Top = 13 Width = 24 - Height = 12 + Height = 17 Caption = #32534#21495 end object Label2: TLabel Left = 547 Top = 13 Width = 36 - Height = 12 + Height = 17 Caption = #25377#36710#24037 end object Label4: TLabel Left = 22 Top = 13 Width = 48 - Height = 12 + Height = 17 Caption = #26597#35810#26085#26399 end object Label5: TLabel Left = 691 Top = 13 Width = 24 - Height = 12 + Height = 17 Caption = #36710#21495 end - object fabricName: TEdit + object fabricName: TcxTextEdit Tag = 2 Left = 441 - Top = 9 - Width = 89 - Height = 20 - ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + Top = 10 + AutoSize = False + ParentFont = False TabOrder = 2 - OnChange = fabricNameChange - end - object fabricNo: TEdit - Tag = 2 - Left = 295 - Top = 9 + Height = 25 Width = 89 - Height = 20 - TabOrder = 1 - OnChange = fabricNameChange end - object userName: TEdit + object fabricNo: TcxTextEdit + Tag = 2 + Left = 294 + Top = 10 + AutoSize = False + ParentFont = False + TabOrder = 1 + Height = 25 + Width = 89 + end + object userName: TcxTextEdit Tag = 2 Left = 585 - Top = 9 - Width = 89 - Height = 20 + Top = 8 + AutoSize = False + ParentFont = False TabOrder = 3 - OnChange = fabricNameChange + Height = 25 + Width = 89 end object BegDate: TDateTimePicker Left = 71 @@ -226,15 +219,15 @@ inherited frmWageListTKJ: TfrmWageListTKJ ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 TabOrder = 4 end - object machineNo: TEdit + object machineNo: TcxTextEdit Tag = 2 Left = 716 Top = 9 - Width = 89 - Height = 20 - ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 + AutoSize = False + ParentFont = False TabOrder = 5 - OnChange = fabricNameChange + Height = 25 + Width = 89 end end object cxGrid2: TcxGrid [2] @@ -245,11 +238,11 @@ inherited frmWageListTKJ: TfrmWageListTKJ Align = alClient PopupMenu = PopupMenu2 TabOrder = 2 - ExplicitTop = 93 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Visible = False + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_HZ DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -323,6 +316,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column8: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True HeaderAlignmentHorz = taCenter @@ -331,6 +325,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column3: TcxGridDBColumn Caption = #26085#26399 DataBinding.FieldName = 'scheduleDay' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -339,6 +334,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column2: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'fabricNo' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -347,6 +343,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column6: TcxGridDBColumn Caption = #21697#21517 DataBinding.FieldName = 'fabricName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 113 @@ -354,6 +351,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column19: TcxGridDBColumn Caption = #25377#36710#24037 DataBinding.FieldName = 'userName' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -368,6 +366,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column10: TcxGridDBColumn Caption = #36710#21495 DataBinding.FieldName = 'machineNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 67 @@ -375,6 +374,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column11: TcxGridDBColumn Caption = #26426#36895 DataBinding.FieldName = 'speedSp' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 77 @@ -382,6 +382,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column7: TcxGridDBColumn Caption = #19978#29677#26102#38388 DataBinding.FieldName = 'uptime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 193 @@ -389,6 +390,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column9: TcxGridDBColumn Caption = #19979#29677#26102#38388 DataBinding.FieldName = 'downtime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 176 @@ -396,6 +398,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object Tv2Column1: TcxGridDBColumn Caption = #29983#20135#26465#25968 DataBinding.FieldName = 'productionNumber' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 97 @@ -403,6 +406,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column18: TcxGridDBColumn Caption = #39134#26797#36716#25968 DataBinding.FieldName = 'machineCycleNumber' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 71 @@ -410,6 +414,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column12: TcxGridDBColumn Caption = #26410#35745#22280#36716#25968 DataBinding.FieldName = 'upTimeCycle' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 78 @@ -417,6 +422,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column21: TcxGridDBColumn Caption = #36716#25968#21152 DataBinding.FieldName = 'AddQty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v2Column21PropertiesEditValueChanged HeaderAlignmentHorz = taCenter @@ -425,6 +431,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column22: TcxGridDBColumn Caption = #36716#25968#20943 DataBinding.FieldName = 'DecQty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v2Column21PropertiesEditValueChanged HeaderAlignmentHorz = taCenter @@ -433,6 +440,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column13: TcxGridDBColumn Caption = #26680#31639#36716#25968 DataBinding.FieldName = 'HSQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 81 @@ -440,6 +448,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column5: TcxGridDBColumn Caption = #26426#21488#21333#20215 DataBinding.FieldName = 'processPrice' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -448,6 +457,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column4: TcxGridDBColumn Caption = #37329#39069 DataBinding.FieldName = 'CLMoney' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -456,6 +466,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column14: TcxGridDBColumn Caption = #34917#36148 DataBinding.FieldName = 'BTMoney' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v2Column14PropertiesEditValueChanged HeaderAlignmentHorz = taCenter @@ -464,6 +475,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column15: TcxGridDBColumn Caption = #22870#21169 DataBinding.FieldName = 'JLMoney' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v2Column14PropertiesEditValueChanged HeaderAlignmentHorz = taCenter @@ -472,6 +484,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column16: TcxGridDBColumn Caption = #22788#32602 DataBinding.FieldName = 'CFMoney' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v2Column14PropertiesEditValueChanged HeaderAlignmentHorz = taCenter @@ -480,6 +493,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column20: TcxGridDBColumn Caption = #24037#36164 DataBinding.FieldName = 'GZMoney' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -487,6 +501,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object v2Column17: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v2Column17PropertiesEditValueChanged HeaderAlignmentHorz = taCenter @@ -495,6 +510,7 @@ inherited frmWageListTKJ: TfrmWageListTKJ object Tv2Column2: TcxGridDBColumn Caption = #22812#29677#34917#36148 DataBinding.FieldName = 'totalSubsidyPrice' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 68 end @@ -545,6 +561,27 @@ inherited frmWageListTKJ: TfrmWageListTKJ TabOrder = 4 Visible = False end + object BLDate: TcxDateEdit [5] + Left = 245 + Top = 7 + AutoSize = False + EditValue = 44496d + ParentFont = False + Properties.ShowTime = False + Style.Font.Charset = ANSI_CHARSET + Style.Font.Color = clWindowText + Style.Font.Height = -12 + Style.Font.Name = #24494#36719#38597#40657 + Style.Font.Style = [] + Style.LookAndFeel.NativeStyle = True + Style.IsFontAssigned = True + StyleDisabled.LookAndFeel.NativeStyle = True + StyleFocused.LookAndFeel.NativeStyle = True + StyleHot.LookAndFeel.NativeStyle = True + TabOrder = 5 + Height = 20 + Width = 110 + end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_KnitPlan.ADOLink Left = 305 diff --git a/项目代码/RTBasicsV1/D01针织生产计划/U_WageListTKJ.pas b/项目代码/RTBasicsV1/D01针织生产计划/U_WageListTKJ.pas index d20601f..8178edd 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/U_WageListTKJ.pas +++ b/项目代码/RTBasicsV1/D01针织生产计划/U_WageListTKJ.pas @@ -14,7 +14,8 @@ uses IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit, cxTextEdit, cxDBLookupComboBox, cxPC, cxDropDownEdit, Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, - dxSkinsDefaultPainters, dxDateRanges, U_BaseList; + dxSkinsDefaultPainters, dxDateRanges, U_BaseList, dxSkinWXI, + dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils; type TfrmWageListTKJ = class(TfrmBaseList) @@ -28,7 +29,7 @@ type ADOQueryMain: TADOQuery; ToolButton1: TToolButton; Label3: TLabel; - fabricName: TEdit; + fabricName: TcxTextEdit; cxGrid2: TcxGrid; Tv2: TcxGridDBTableView; cxGridLevel1: TcxGridLevel; @@ -39,10 +40,10 @@ type v2Column2: TcxGridDBColumn; v2Column5: TcxGridDBColumn; Label1: TLabel; - fabricNo: TEdit; + fabricNo: TcxTextEdit; v2Column10: TcxGridDBColumn; Label2: TLabel; - userName: TEdit; + userName: TcxTextEdit; v2Column17: TcxGridDBColumn; v2Column18: TcxGridDBColumn; v2Column19: TcxGridDBColumn; @@ -63,7 +64,7 @@ type v2Column20: TcxGridDBColumn; cxTabControl1: TcxTabControl; Label5: TLabel; - machineNo: TEdit; + machineNo: TcxTextEdit; v2Column7: TcxGridDBColumn; v2Column9: TcxGridDBColumn; ToolButton5: TToolButton; @@ -78,10 +79,10 @@ type ToolButton7: TToolButton; Panel3: TPanel; Label8: TLabel; - BLDate: TDateTimePicker; ToolButton8: TToolButton; Tv2Column1: TcxGridDBColumn; Tv2Column2: TcxGridDBColumn; + BLDate: TcxDateEdit; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); diff --git a/项目代码/RTBasicsV1/D01针织生产计划/testDll.dpr b/项目代码/RTBasicsV1/D01针织生产计划/testDll.dpr index 4be4b8a..73b736a 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/testDll.dpr +++ b/项目代码/RTBasicsV1/D01针织生产计划/testDll.dpr @@ -1,14 +1,19 @@ program testDll; - uses Forms, - U_testdll in 'U_testdll.pas' {Form1}; + U_testdll in 'U_testdll.pas' {Form1}, + U_KnitPlanList in 'U_KnitPlanList.pas' {frmKnitPlanList}, + U_BaseList in '..\..\..\public10\design\U_BaseList.pas' {frmBaseList}, + U_cxGridCustomCss in '..\..\..\public10\design\U_cxGridCustomCss.pas', + U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas', + U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas', + U_globalVar in '..\..\..\public10\design\U_globalVar.pas', + U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas', + U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}; {$R *.res} - begin Application.Initialize; - Application.CreateForm(TForm1, Form1); - Application.Run; + AApplication.CreateForm(TForm1, Form1); + pplication.Run; end. - diff --git a/项目代码/RTBasicsV1/D01针织生产计划/testDll.dproj b/项目代码/RTBasicsV1/D01针织生产计划/testDll.dproj index c90a23d..6fe1f7e 100644 --- a/项目代码/RTBasicsV1/D01针织生产计划/testDll.dproj +++ b/项目代码/RTBasicsV1/D01针织生产计划/testDll.dproj @@ -95,7 +95,7 @@ $(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png - Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) Debug true CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) @@ -147,6 +147,24 @@
Form1
 + +
frmKnitPlanList
+ dfm + + +
frmBaseList
+ dfm + + + + + + + +
BaseDataLink
+ dfm + TDataModule + Cfg_2 Base @@ -176,9 +194,788 @@ True False + + + + testDll.exe + true + + + + + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + classes + 1 + + + classes + 1 + + + + + res\xml + 1 + + + res\xml + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + library\lib\armeabi + 1 + + + library\lib\armeabi + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + library\lib\mips + 1 + + + library\lib\mips + 1 + + + + + library\lib\armeabi-v7a + 1 + + + library\lib\arm64-v8a + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + res\values-v21 + 1 + + + res\values-v21 + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + res\drawable + 1 + + + res\drawable + 1 + + + + + res\drawable-xxhdpi + 1 + + + res\drawable-xxhdpi + 1 + + + + + res\drawable-xxxhdpi + 1 + + + res\drawable-xxxhdpi + 1 + + + + + res\drawable-ldpi + 1 + + + res\drawable-ldpi + 1 + + + + + res\drawable-mdpi + 1 + + + res\drawable-mdpi + 1 + + + + + res\drawable-hdpi + 1 + + + res\drawable-hdpi + 1 + + + + + res\drawable-xhdpi + 1 + + + res\drawable-xhdpi + 1 + + + + + res\drawable-mdpi + 1 + + + res\drawable-mdpi + 1 + + + + + res\drawable-hdpi + 1 + + + res\drawable-hdpi + 1 + + + + + res\drawable-xhdpi + 1 + + + res\drawable-xhdpi + 1 + + + + + res\drawable-xxhdpi + 1 + + + res\drawable-xxhdpi + 1 + + + + + res\drawable-xxxhdpi + 1 + + + res\drawable-xxxhdpi + 1 + + + + + res\drawable-small + 1 + + + res\drawable-small + 1 + + + + + res\drawable-normal + 1 + + + res\drawable-normal + 1 + + + + + res\drawable-large + 1 + + + res\drawable-large + 1 + + + + + res\drawable-xlarge + 1 + + + res\drawable-xlarge + 1 + + + + + res\values + 1 + + + res\values + 1 + + + + + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + Contents\MacOS + 1 + .framework + + + Contents\MacOS + 1 + .framework + + + 0 + + + + + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + + + 0 + .dll;.bpl + + + + + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + + + 0 + .bpl + + + + + 0 + + + 0 + + + 0 + + + 0 + + + 0 + + + Contents\Resources\StartUp\ + 0 + + + Contents\Resources\StartUp\ + 0 + + + 0 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + ..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset + 1 + + + + + 1 + + + 1 + + + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + + + ..\ + 1 + + + ..\ + 1 + + + + + 1 + + + 1 + + + 1 + + + + + ..\$(PROJECTNAME).launchscreen + 64 + + + ..\$(PROJECTNAME).launchscreen + 64 + + + + + 1 + + + 1 + + + 1 + + + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + + + ..\ + 1 + + + ..\ + 1 + + + + + Contents + 1 + + + Contents + 1 + + + + + Contents\Resources + 1 + + + Contents\Resources + 1 + + + + + library\lib\armeabi-v7a + 1 + + + library\lib\arm64-v8a + 1 + + + 1 + + + 1 + + + 1 + + + 1 + + + Contents\MacOS + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + library\lib\armeabi-v7a + 1 + + + + + 1 + + + 1 + + + + + Assets + 1 + + + Assets + 1 + + + + + Assets + 1 + + + Assets + 1 + + + + + + + + + + + + + 12 + diff --git a/项目代码/RTBasicsV1/D01针织生产计划/testDll.identcache b/项目代码/RTBasicsV1/D01针织生产计划/testDll.identcache index 5803b00071d67689f3019819aae4fc1b08a07478..c601394e7e8d36042e23f45e0a6502d245a5fd76 100644 GIT binary patch literal 699 zcmd;LU|=wDv5F}wNy{(FEzd8?jwvWj%E?SNG>Az_EzV5OiwTVn&&*57FLwhffC%Xo zBo+hp!GR7T1Dq0zQ++avOVBkM6VjMm;a-%P;#^u>lAr5bT#T+?myrJSocyH3oUp_q zbe--%ok1ZWFM<91a^cSBv)4V@z4-ZpMxZ#*y_w0yVTLg-28J&ubv)nQ{(Q>(C%cxv zShw(L$E28&)Z!ACoE*KBf+Bbr02!W?m>C)mGBpKgDq7(Bq56?DmxjiB=Vg`z0esn0!~Qi29Ol_!KoOD2LLL?_gMe{ delta 13 UcmdnZx{i^NX|g9{h5!Hn diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/KnitClothStk.dpr b/项目代码/RTBasicsV1/D03针织坯布仓库/KnitClothStk.dpr index 9e8dce2..4903abf 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/KnitClothStk.dpr +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/KnitClothStk.dpr @@ -7,15 +7,6 @@ uses WinTypes, WinProcs, midaslib, - U_GetDllForm in 'U_GetDllForm.pas', - U_DataLink in 'U_DataLink.pas' {DataLink_KnitClothStk: TDataModule}, - U_iniParam in 'U_iniParam.pas', - U_BaseHelp in '..\..\..\public10\design\U_BaseHelp.pas' {frmBaseHelp}, - U_BaseInput in '..\..\..\public10\design\U_BaseInput.pas' {frmBaseInput}, - U_BaseList in '..\..\..\public10\design\U_BaseList.pas' {frmBaseList}, - U_cxGridCustomCss in '..\..\..\public10\design\U_cxGridCustomCss.pas', - U_globalVar in '..\..\..\public10\design\U_globalVar.pas', - U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas', U_CompressionFun in '..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas', U_RTFun in '..\..\..\public10\ThreeFun\Fun\U_RTFun.pas', U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp}, @@ -28,9 +19,30 @@ uses U_KnitPlanSel in 'U_KnitPlanSel.pas' {frmKnitPlanSel}, U_LabelMapSet in '..\A00ͨô\U_LabelMapSet.pas' {frmLabelMapSet}, U_LabelPrint in '..\A00ͨô\U_LabelPrint.pas' {frmLabelPrint}, - U_KnitClothOutEdit in 'U_KnitClothOutEdit.pas' {frmKnitClothOutEdit}, U_KnitDRQuickSel in 'U_KnitDRQuickSel.pas' {frmKnitDRQuickSel}, - U_KnitStockTakinglist in 'U_KnitStockTakinglist.pas' {frmKnitStockTakinglist}; + U_KnitStockTakinglist in 'U_KnitStockTakinglist.pas' {frmKnitStockTakinglist}, + U_BaseHelp in '..\..\..\public10\design\U_BaseHelp.pas' {frmBaseHelp}, + U_BaseInput in '..\..\..\public10\design\U_BaseInput.pas' {frmBaseInput}, + U_BaseList in '..\..\..\public10\design\U_BaseList.pas' {frmBaseList}, + U_cxGridCustomCss in '..\..\..\public10\design\U_cxGridCustomCss.pas', + U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas', + U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas', + U_globalVar in '..\..\..\public10\design\U_globalVar.pas', + U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas', + U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule}, + U_KnitClothOutEdit in 'U_KnitClothOutEdit.pas' {frmKnitClothOutEdit}, + U_DataLink in 'U_DataLink.pas' {DataLink_KnitClothStk: TDataModule}, + U_GetDllForm in 'U_GetDllForm.pas', + U_iniParam in 'U_iniParam.pas', + U_KnitClothDROutEdit in 'U_KnitClothDROutEdit.pas' {frmKnitClothDROutEdit}, + U_KnitClothInEdit in 'U_KnitClothInEdit.pas' {frmKnitClothInEdit}, + U_KnitClothInList in 'U_KnitClothInList.pas' {frmKnitClothInList}, + FrameDateSel in '..\A00ͨ\FrameDateSel.pas' {frmFrameDateSel: TFrame}, + FramePagingSel in '..\A00ͨ\FramePagingSel.pas' {frmFramePagingSel: TFrame}, + U_KnitClothOutList in 'U_KnitClothOutList.pas' {frmKnitClothOutList}, + U_KnitClothStkList in 'U_KnitClothStkList.pas' {frmKnitClothStkList}, + U_KnitDRtInPut in 'U_KnitDRtInPut.pas' {frmKnitDRtInPut}, + U_KnitClothWaitReleased in 'U_KnitClothWaitReleased.pas' {frmKnitClothWaitReleased}; {$R *.res} diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/KnitClothStk.dproj b/项目代码/RTBasicsV1/D03针织坯布仓库/KnitClothStk.dproj index e089b94..dc29cf1 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/KnitClothStk.dproj +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/KnitClothStk.dproj @@ -124,33 +124,12 @@ CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName) - D:\Dp10RepoV1\项目代码\同甘\D03针织坯布仓库\testDll.exe + D:\RTFormwork\项目代码\RTBasicsV1\D03针织坯布仓库\testDll.exe MainSource - - -
DataLink_KnitClothStk
- TDataModule - - - -
frmBaseHelp
- dfm - - -
frmBaseInput
- dfm - - -
frmBaseList
- dfm - - - - @@ -175,36 +154,93 @@
frmKnitDRQuickInPut
- dfm
frmKnitDRList
- dfm
frmKnitPlanSel
- dfm
frmLabelMapSet
- dfm
frmLabelPrint
- dfm + + +
frmKnitDRQuickSel
+ + +
frmKnitStockTakinglist
+ + +
frmBaseHelp
+ + +
frmBaseInput
+ + +
frmBaseList
+ + + + + + + +
BaseDataLink
+ TDataModule
frmKnitClothOutEdit
dfm - -
frmKnitDRQuickSel
+ +
DataLink_KnitClothStk
+ dfm + TDataModule + + + + +
frmKnitClothDROutEdit
dfm - -
frmKnitStockTakinglist
+ +
frmKnitClothInEdit
dfm + +
frmKnitClothInList
+ dfm + + +
frmFrameDateSel
+ dfm + TFrame + + +
frmFramePagingSel
+ dfm + TFrame + + +
frmKnitClothOutList
+ dfm + + +
frmKnitClothStkList
+ dfm + + +
frmKnitDRtInPut
+ dfm + + +
frmKnitClothWaitReleased
+ dfm + + Cfg_2 Base diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/KnitClothStk.dproj.local b/项目代码/RTBasicsV1/D03针织坯布仓库/KnitClothStk.dproj.local index 36f1b2c..3ce93ac 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/KnitClothStk.dproj.local +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/KnitClothStk.dproj.local @@ -1,54 +1,67 @@  - 1899-12-30 00:00:00.000.372,D:\Dp10Repo\项目代码\园中圆\D03针织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\园中圆\D03针织坯布仓库\U_KnitDRQuickInPut.pas - 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas - 1899-12-30 00:00:00.000.824,C:\Users\Administrator\Desktop\U_TradeClothInList.dfm=D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitClothInList.dfm - 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= - 1899-12-30 00:00:00.000.607,=D:\Dp10Repo\项目代码\园中圆\D03针织坯布仓库\U_KnitStockTakinglist.pas - 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas - 1899-12-30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas - 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas 1899-12-30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas - 1899-12-30 00:00:00.000.418,C:\Users\Administrator\Desktop\U_TradeClothOutList.pas=D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitClothOutList.pas - 1899-12-30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj - 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas - 1899-12-30 00:00:00.000.905,C:\Users\Administrator\Desktop\U_TradeClothStkList.dfm=D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitClothStkList.dfm - 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas - 1899-12-30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas - 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas - 1899-12-30 00:00:00.000.372,D:\Dp10Repo\项目代码\园中圆\D03针织坯布仓库\U_KnitDRtInPut.dfm=D:\Dp10Repo\项目代码\园中圆\D03针织坯布仓库\U_KnitDRQuickInPut.dfm - 1899-12-30 00:00:00.000.418,C:\Users\Administrator\Desktop\U_TradeClothOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitClothOutList.dfm - 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas - 1899-12-30 00:00:00.000.731,=D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitClothInList.pas - 1899-12-30 00:00:00.000.782,=D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitDRSel.pas - 1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas - 1899-12-30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas - 1899-12-30 00:00:00.000.719,D:\Dp10Repo\项目代码\园中圆\D03针织坯布仓库\U_KnitDRSel.pas=D:\Dp10Repo\项目代码\园中圆\D03针织坯布仓库\U_KnitDRQuickSel.pas - 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas - 1899-12-30 00:00:00.000.737,=D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitClothOutList.pas - 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas= - 1899-12-30 00:00:00.000.347,=D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitClothOutEdit.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.539,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas - 1899-12-30 00:00:00.000.719,D:\Dp10Repo\项目代码\园中圆\D03针织坯布仓库\U_KnitDRSel.dfm=D:\Dp10Repo\项目代码\园中圆\D03针织坯布仓库\U_KnitDRQuickSel.dfm - 1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas - 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.946,=D:\RTFormwork\public10\design\U_BaseDataLink.pas 1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas - 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas + 1899-12-30 00:00:00.000.995,=D:\RTFormwork\项目代码\RTBasicsV1\D03针织坯布仓库\U_KnitClothDROutEdit.pas + 1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.012,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas - 1899-12-30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitClothStkList.pas + 1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas + 1899-12-30 00:00:00.000.968,=D:\RTFormwork\项目代码\RTBasicsV1\D03针织坯布仓库\KnitClothStk.dpr + 1899-12-30 00:00:00.000.630,=D:\RTFormwork\项目代码\RTBasicsV1\D03针织坯布仓库\U_KnitClothOutList.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.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.824,C:\Users\Administrator\Desktop\U_TradeClothInList.pas=D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitClothInList.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.905,C:\Users\Administrator\Desktop\U_TradeClothStkList.pas=D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitClothStkList.pas + 1899-12-30 00:00:00.000.782,=D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitDRSel.pas + 1899-12-30 00:00:00.000.232,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FrameDateSel.pas + 1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas + 1899-12-30 00:00:00.000.307,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FramePagingSel.pas + 1899-12-30 00:00:00.000.418,D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitClothOutList.dfm=C:\Users\Administrator\Desktop\U_TradeClothOutList.dfm + 1899-12-30 00:00:00.000.905,D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitClothStkList.dfm=C:\Users\Administrator\Desktop\U_TradeClothStkList.dfm + 1899-12-30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas + 1899-12-30 00:00:00.000.824,D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitClothInList.pas=C:\Users\Administrator\Desktop\U_TradeClothInList.pas + 1899-12-30 00:00:00.000.607,=D:\Dp10Repo\项目代码\园中圆\D03针织坯布仓库\U_KnitStockTakinglist.pas + 1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas + 1899-12-30 00:00:00.000.682,=D:\RTFormwork\项目代码\RTBasicsV1\D03针织坯布仓库\U_KnitClothWaitReleased.pas + 1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas= + 1899-12-30 00:00:00.000.731,=D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitClothInList.pas + 1899-12-30 00:00:00.000.150,=D:\RTFormwork\public10\design\U_cxGridCustomSet.pas + 1899-12-30 00:00:00.000.260,=D:\RTFormwork\项目代码\RTBasicsV1\D03针织坯布仓库\U_KnitClothInList.pas + 1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas + 1899-12-30 00:00:00.000.372,D:\Dp10Repo\项目代码\园中圆\D03针织坯布仓库\U_KnitDRQuickInPut.pas=D:\Dp10Repo\项目代码\园中圆\D03针织坯布仓库\U_KnitDRtInPut.pas + 1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas= + 1899-12-30 00:00:00.000.347,=D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitClothOutEdit.pas + 1899-12-30 00:00:00.000.012,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas + 1899-12-30 00:00:00.000.526,=D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitClothStkList.pas + 1899-12-30 00:00:00.000.905,D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitClothStkList.pas=C:\Users\Administrator\Desktop\U_TradeClothStkList.pas + 1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas= + 1899-12-30 00:00:00.000.166,=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.539,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas + 1899-12-30 00:00:00.000.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.pas= + 1899-12-30 00:00:00.000.418,D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitClothOutList.pas=C:\Users\Administrator\Desktop\U_TradeClothOutList.pas + 1899-12-30 00:00:00.000.737,=D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitClothOutList.pas + 1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas + 1899-12-30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas + 1899-12-30 00:00:00.000.372,D:\Dp10Repo\项目代码\园中圆\D03针织坯布仓库\U_KnitDRQuickInPut.dfm=D:\Dp10Repo\项目代码\园中圆\D03针织坯布仓库\U_KnitDRtInPut.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.576,=D:\RTFormwork\项目代码\RTBasicsV1\D03针织坯布仓库\U_KnitDRtInPut.pas + 1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas + 1899-12-30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj + 1899-12-30 00:00:00.000.824,D:\Dp10Repo\项目代码\RTBasics\D03针织坯布仓库\U_KnitClothInList.dfm=C:\Users\Administrator\Desktop\U_TradeClothInList.dfm + 1899-12-30 00:00:00.000.116,=D:\RTFormwork\项目代码\RTBasicsV1\D03针织坯布仓库\U_KnitClothStkList.pas + 1899-12-30 00:00:00.000.719,D:\Dp10Repo\项目代码\园中圆\D03针织坯布仓库\U_KnitDRQuickSel.pas=D:\Dp10Repo\项目代码\园中圆\D03针织坯布仓库\U_KnitDRSel.pas + 1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas + 1899-12-30 00:00:00.000.719,D:\Dp10Repo\项目代码\园中圆\D03针织坯布仓库\U_KnitDRQuickSel.dfm=D:\Dp10Repo\项目代码\园中圆\D03针织坯布仓库\U_KnitDRSel.dfm + 1899-12-30 00:00:00.000.768,=D:\RTFormwork\项目代码\RTBasicsV1\D03针织坯布仓库\U_KnitClothInEdit.pas + 1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas @@ -79,7 +92,7 @@ - + @@ -93,7 +106,12 @@ - + + + + + + @@ -105,6 +123,10 @@ + + + + @@ -112,8 +134,6 @@ - - @@ -128,5 +148,22 @@ + + + + + + + + + + + + + + + + + diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/KnitClothStk.identcache b/项目代码/RTBasicsV1/D03针织坯布仓库/KnitClothStk.identcache index 8f6e9a62ebe8d1859cb9d039d740eeb534db2c95..576438bcfc861ed92bfe4c6fc3b0cffa594876bf 100644 GIT binary patch literal 2999 zcmb_eL5tHs6z-q#rfb*rAl}wy+pT6bo3>k&z%ot7cF1HVBoo%&Tom-|3W6diUc`gm zL=FC%me7CUq}nVqnb@RFP9gBVeDA&Qz4u*dG#a{g+cNuY8hB?kaIMA1pUJzgv-nf; z;hcZJ143knC%cx`+*`bQnZz&V@4wA|Je$QA^IsR%;IspohH)Cc_;Pv z?A@m2zz~fI54E3k0_3!!kWsG(nH+zkAih5dAZ$m(N`J~>9%&B`A@=2PQw*<~*FAz* z3sW|E5HTHvId<)G@cYf?;_2Ju_2(phK8wFw?ErXC0}S>cmKpcUK^Ao)W2~8+^MQkM zoDa+WK*`wvV?@RZ)}5-LU*61qr^-3-d`zcMRf&?Cyd=89+-D5f6AuzL;NZZKOMG08 z?Aj7{iK@OeN=^ko*q(fkQQPeUm$wqvA?j7#bufb12oT9>?y5*SzXkY)fwc_Sic5=n zJ|I(tR1J~KCM!WRk0WHe3h-+pxH{1;@uOUc?u(I|(PCX<ehx>mssF^CotnI)U(-FWYAdo3-nQ2i0EAQJ(!s+4ZlE+k`v*C7K z$*#l@AZ9`g`S|75fcDh8BTXOB;L9YIo7DXmd;Hp*`1uLfS%0 zFQtd%n#AO9Y=r-!k^{=J+TvJ^PC_vA=8b0FTBTBHfM*WiRjZ3QbLKy#}eF~uDi z!Elp9k+Y>QOEuOkYkqp3oc&Jze3{;k9owx*3B6H>sI)m@(AO!eszx3U2==O$<0FBG zG=+Qbni2Nvv5+jR3!$T%D*EB3*=}ZAhd|mxMCV*rIg5&hgbg5h1tT4|)Ex5 zfRF}@3Vt7|QdV8BCz%)YVSwq7U?Fw6rNaTBgl$X%op6b7J5Zn&<#9oXr7oHK-5*5= zHDc;yzNA5T177bT!u6qT6}+lLp!+h$UeKbQqN*n2ur$23g?Pd{)kPw*Bv=Vv;9uQU2leznD4b7XSbN diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/KnitClothStk.skincfg b/项目代码/RTBasicsV1/D03针织坯布仓库/KnitClothStk.skincfg new file mode 100644 index 0000000..e48deaa --- /dev/null +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/KnitClothStk.skincfg @@ -0,0 +1,62 @@ +[ExpressSkins] +Default=1 +ShowNotifications=1 +Enabled=1 +dxSkinBasic=1 +dxSkinBlack=1 +dxSkinBlue=1 +dxSkinBlueprint=1 +dxSkinCaramel=1 +dxSkinCoffee=1 +dxSkinDarkroom=1 +dxSkinDarkSide=1 +dxSkinDevExpressDarkStyle=1 +dxSkinDevExpressStyle=1 +dxSkinFoggy=1 +dxSkinGlassOceans=1 +dxSkinHighContrast=1 +dxSkiniMaginary=1 +dxSkinLilian=1 +dxSkinLiquidSky=1 +dxSkinLondonLiquidSky=1 +dxSkinMcSkin=1 +dxSkinMetropolis=1 +dxSkinMetropolisDark=1 +dxSkinMoneyTwins=1 +dxSkinOffice2007Black=1 +dxSkinOffice2007Blue=1 +dxSkinOffice2007Green=1 +dxSkinOffice2007Pink=1 +dxSkinOffice2007Silver=1 +dxSkinOffice2010Black=1 +dxSkinOffice2010Blue=1 +dxSkinOffice2010Silver=1 +dxSkinOffice2013DarkGray=1 +dxSkinOffice2013LightGray=1 +dxSkinOffice2013White=1 +dxSkinOffice2016Colorful=1 +dxSkinOffice2016Dark=1 +dxSkinOffice2019Black=1 +dxSkinOffice2019Colorful=1 +dxSkinOffice2019DarkGray=1 +dxSkinOffice2019White=1 +dxSkinPumpkin=1 +dxSkinSeven=1 +dxSkinSevenClassic=1 +dxSkinSharp=1 +dxSkinSharpPlus=1 +dxSkinSilver=1 +dxSkinSpringtime=1 +dxSkinStardust=1 +dxSkinSummer2008=1 +dxSkinTheAsphaltWorld=1 +dxSkinTheBezier=1 +dxSkinsDefaultPainters=1 +dxSkinValentine=1 +dxSkinVisualStudio2013Blue=1 +dxSkinVisualStudio2013Dark=1 +dxSkinVisualStudio2013Light=1 +dxSkinVS2010=1 +dxSkinWhiteprint=1 +dxSkinWXI=1 +dxSkinXmas2008Blue=1 diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/ProjectGroup1.groupproj.local b/项目代码/RTBasicsV1/D03针织坯布仓库/ProjectGroup1.groupproj.local index 1cb5f2c..ad98ace 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/ProjectGroup1.groupproj.local +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/ProjectGroup1.groupproj.local @@ -2,6 +2,6 @@ - + diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_DataLink.dfm b/项目代码/RTBasicsV1/D03针织坯布仓库/U_DataLink.dfm index 65d287e..a113f0a 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_DataLink.dfm +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_DataLink.dfm @@ -1,9 +1,25 @@ -object DataLink_KnitClothStk: TDataLink_KnitClothStk - OldCreateOrder = False - OnCreate = DataModuleCreate +inherited DataLink_KnitClothStk: TDataLink_KnitClothStk + OldCreateOrder = True OnDestroy = DataModuleDestroy - Height = 349 - Width = 482 + Height = 350 + Width = 455 + inherited cxEditStyleController1: TcxEditStyleController + PixelsPerInch = 96 + end + inherited cxDefaultEditStyleController1: TcxDefaultEditStyleController + PixelsPerInch = 96 + end + inherited cxImageList_bar: TcxImageList + FormatVersion = 1 + end + inherited ThreeColorBase: TcxStyleRepository + PixelsPerInch = 96 + end + inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList + inherited dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel + PixelsPerInch = 96 + end + end object AdoDataLink: TADOQuery Connection = ADOLink Parameters = <> @@ -18,8 +34,8 @@ object DataLink_KnitClothStk: TDataLink_KnitClothStk object ThreeImgList: TImageList Height = 24 Width = 24 - Left = 48 - Top = 96 + Left = 56 + Top = 120 Bitmap = { 494C01018900F000040018001800FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 00000000000036000000280000006000000048030000010020000000000000EC @@ -10423,151 +10439,18 @@ object DataLink_KnitClothStk: TDataLink_KnitClothStk FF800001000000F003FFFE00FFE0000300000000000000000000000000000000 000000000000} end - object ThreeLookAndFeelCol: TcxLookAndFeelController - Kind = lfStandard - NativeStyle = False - Left = 253 - Top = 12 - end - object ThreeColorBase: TcxStyleRepository - Left = 147 - Top = 80 - PixelsPerInch = 96 - object SHuangSe: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 4707838 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - TextColor = clBtnText - end - object SkyBlue: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = clSkyBlue - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - TextColor = clBlack - end - object Default: TcxStyle - AssignedValues = [svFont] - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - end - object QHuangSe: TcxStyle - AssignedValues = [svColor, svFont] - Color = 8454143 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - end - object Red: TcxStyle - AssignedValues = [svColor, svFont] - Color = clRed - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - end - object FontBlue: TcxStyle - AssignedValues = [svFont, svTextColor] - Font.Charset = GB2312_CHARSET - Font.Color = clBlue - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - TextColor = clBlue - end - object TextSHuangSe: TcxStyle - AssignedValues = [svFont, svTextColor] - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - TextColor = clOlive - end - object FonePurple: TcxStyle - AssignedValues = [svFont, svTextColor] - Font.Charset = GB2312_CHARSET - Font.Color = clWindow - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - TextColor = clPurple - end - object FoneClMaroon: TcxStyle - AssignedValues = [svFont, svTextColor] - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - TextColor = clMaroon - end - object FoneRed: TcxStyle - AssignedValues = [svFont, svTextColor] - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - TextColor = clRed - end - object RowColor: TcxStyle - AssignedValues = [svColor] - Color = 16311512 - end - object handBlack: TcxStyle - AssignedValues = [svFont] - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - end - object cxBlue: TcxStyle - AssignedValues = [svColor, svFont] - Color = 16711731 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - end - object SHuangSeCu: TcxStyle - AssignedValues = [svColor, svFont, svTextColor] - Color = 4707838 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - TextColor = clRed - end - end object Timer_link: TTimer Interval = 15000 OnTimer = Timer_linkTimer - Left = 248 - Top = 92 + Left = 200 + Top = 68 end object ImageList_new32: TImageList DrawingStyle = dsTransparent Height = 32 Width = 32 - Left = 256 - Top = 184 + Left = 192 + Top = 208 Bitmap = { 494C010119002400040020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600 000000000000360000002800000080000000E0000000010020000000000000C0 diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_DataLink.pas b/项目代码/RTBasicsV1/D03针织坯布仓库/U_DataLink.pas index 50223e3..8d48232 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_DataLink.pas +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_DataLink.pas @@ -5,7 +5,26 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, - dxSkinsCore, dxSkinsDefaultPainters, System.ImageList; + U_BaseDataLink, + dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinBasic, + dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, + dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful, + dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful, + dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue, + dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, + dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxCore, cxLocalization, + dxLayoutLookAndFeels, cxImageList, cxGraphics, cxEdit, cxContainer, + dxSkinsForm; type TMyThread = class(TThread) @@ -37,26 +56,10 @@ var UserDataFlag: string; type - TDataLink_KnitClothStk = class(TDataModule) + TDataLink_KnitClothStk = class(TBaseDataLink) AdoDataLink: TADOQuery; ADOLink: TADOConnection; ThreeImgList: TImageList; - ThreeLookAndFeelCol: TcxLookAndFeelController; - ThreeColorBase: TcxStyleRepository; - SHuangSe: TcxStyle; - SkyBlue: TcxStyle; - Default: TcxStyle; - QHuangSe: TcxStyle; - Red: TcxStyle; - FontBlue: TcxStyle; - TextSHuangSe: TcxStyle; - FonePurple: TcxStyle; - FoneClMaroon: TcxStyle; - FoneRed: TcxStyle; - RowColor: TcxStyle; - handBlack: TcxStyle; - cxBlue: TcxStyle; - SHuangSeCu: TcxStyle; Timer_link: TTimer; ImageList_new32: TImageList; procedure DataModuleDestroy(Sender: TObject); @@ -109,6 +112,7 @@ end; procedure TDataLink_KnitClothStk.DataModuleDestroy(Sender: TObject); begin +inherited; CriticalSection.Free; DataLink_KnitClothStk := nil; end; @@ -120,6 +124,7 @@ end; procedure TDataLink_KnitClothStk.DataModuleCreate(Sender: TObject); begin +inherited; CriticalSection := TCriticalSection.Create; end; diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothDROutEdit.dfm b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothDROutEdit.dfm index b59bb6a..c200dae 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothDROutEdit.dfm +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothDROutEdit.dfm @@ -4,13 +4,17 @@ inherited frmKnitClothDROutEdit: TfrmKnitClothDROutEdit Caption = #25104#21697#20986#24211#25195#25551'('#30003#35831')' ClientHeight = 705 ClientWidth = 1133 + ParentFont = False + Font.Charset = ANSI_CHARSET + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 FormStyle = fsMDIChild Position = poScreenCenter Visible = True ExplicitWidth = 1149 ExplicitHeight = 744 PixelsPerInch = 96 - TextHeight = 12 + TextHeight = 21 object Panel2: TPanel [0] Left = 0 Top = 0 @@ -22,43 +26,25 @@ inherited frmKnitClothDROutEdit: TfrmKnitClothDROutEdit Color = clSkyBlue TabOrder = 0 object Label5: TLabel - Left = 6 - Top = 34 - Width = 80 - Height = 19 + Left = 22 + Top = 32 + Width = 64 + Height = 21 Caption = #20986#24211#21333#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label4: TLabel - Left = 6 - Top = 91 - Width = 80 - Height = 19 + Left = 22 + Top = 87 + Width = 64 + Height = 21 Caption = #20986#24211#26102#38388 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label9: TLabel - Left = 254 - Top = 91 - Width = 73 - Height = 19 + Left = 291 + Top = 87 + Width = 47 + Height = 21 Caption = #23458' '#25143 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -19 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label12: TLabel Left = 517 @@ -74,7 +60,7 @@ inherited frmKnitClothDROutEdit: TfrmKnitClothDROutEdit ParentFont = False end object Label10: TLabel - Left = 64 + Left = 68 Top = 120 Width = 196 Height = 48 @@ -87,142 +73,110 @@ inherited frmKnitClothDROutEdit: TfrmKnitClothDROutEdit ParentFont = False Visible = False end - object edtScan: TEdit + object edtScan: TcxTextEdit Left = 589 - Top = 8 - Width = 411 - Height = 72 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -64 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False - TabOrder = 3 - OnKeyPress = edtScanKeyPress - end - object CRTime: TDateTimePicker - Left = 86 - Top = 86 - Width = 153 - Height = 28 - Date = 41337.000000000000000000 - Time = 0.663190821760508700 - Enabled = False - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -20 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False - TabOrder = 0 - end - object ToCoName: TEdit - Tag = 2 - Left = 344 - Top = 86 - Width = 154 - Height = 28 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -20 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False - ReadOnly = True - TabOrder = 1 - end - object Button2: TButton - Left = 900 - Top = 86 - Width = 100 - Height = 76 - Caption = #20851#38381 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -29 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 5 - OnClick = Button2Click - end - object CRType: TEdit - Tag = 2 - Left = 344 - Top = 130 - Width = 154 - Height = 28 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -20 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False - ReadOnly = True + Top = 27 + ParentColor = True TabOrder = 2 - Visible = False + OnKeyPress = edtScanKeyPress + Width = 411 end - object Button1: TButton + object ToCoName: TcxTextEdit + Tag = 2 + Left = 344 + Top = 81 + ParentColor = True + TabOrder = 0 + Width = 154 + end + object CRType: TcxTextEdit + Tag = 2 + Left = 344 + Top = 128 + ParentColor = True + TabOrder = 1 + Visible = False + Width = 154 + end + object edtIsSMTH: TcxTextEdit + Left = 24 + Top = 128 + ParentColor = True + TabOrder = 3 + Visible = False + OnClick = edtIsSMTHClick + Width = 33 + end + object OutNo: TcxTextEdit + Left = 92 + Top = 27 + ParentColor = True + TabOrder = 4 + Width = 409 + end + object Button1: TcxButton Left = 589 - Top = 86 + Top = 84 Width = 100 Height = 76 Caption = #36873#21333 + LookAndFeel.Kind = lfStandard + LookAndFeel.NativeStyle = False + LookAndFeel.ScrollMode = scmDefault + LookAndFeel.SkinName = 'Office2010Silver' + TabOrder = 5 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -29 - Font.Name = #23435#20307 - Font.Style = [fsBold] + Font.Height = -27 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] ParentFont = False - TabOrder = 4 OnClick = Button1Click end - object edtIsSMTH: TEdit - Left = 23 - Top = 125 - Width = 39 - Height = 37 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -29 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - ReadOnly = True - TabOrder = 6 - Visible = False - OnClick = edtIsSMTHClick - end - object btn1: TButton - Left = 746 - Top = 86 + object btn1: TcxButton + Left = 745 + Top = 84 Width = 100 Height = 76 Caption = #24211#23384 + LookAndFeel.Kind = lfStandard + LookAndFeel.NativeStyle = False + LookAndFeel.ScrollMode = scmDefault + LookAndFeel.SkinName = 'Office2010Silver' + TabOrder = 6 Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -29 - Font.Name = #23435#20307 - Font.Style = [fsBold] + Font.Height = -27 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] ParentFont = False - TabOrder = 7 - Visible = False OnClick = btn1Click end - object OutNo: TEdit - Left = 89 - Top = 8 - Width = 409 - Height = 72 + object Button2: TcxButton + Left = 900 + Top = 84 + Width = 100 + Height = 76 + Caption = #20851#38381 + LookAndFeel.Kind = lfStandard + LookAndFeel.NativeStyle = False + LookAndFeel.ScrollMode = scmDefault + LookAndFeel.SkinName = 'Office2010Silver' + TabOrder = 7 Font.Charset = GB2312_CHARSET - Font.Color = clBlue - Font.Height = -64 - Font.Name = #23435#20307 - Font.Style = [fsBold] + Font.Color = clWindowText + Font.Height = -27 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] ParentFont = False - ReadOnly = True + OnClick = Button2Click + end + object CRTime: TcxDateEdit + Left = 92 + Top = 81 + ParentColor = True TabOrder = 8 + Width = 141 end end object Panel1: TPanel [1] @@ -242,6 +196,7 @@ inherited frmKnitClothDROutEdit: TfrmKnitClothDROutEdit TabOrder = 0 object Tv3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_MainSel DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -277,12 +232,10 @@ inherited frmKnitClothDROutEdit: TfrmKnitClothDROutEdit OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Content = cxStyle1 - Styles.IncSearch = cxStyle1 - Styles.Header = cxStyle1 - Styles.Inactive = cxStyle1 object VC_MJXH: TcxGridDBColumn Caption = #21367#21495 DataBinding.FieldName = 'PieceNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 95 @@ -290,6 +243,7 @@ inherited frmKnitClothDROutEdit: TfrmKnitClothDROutEdit object v3Column2: TcxGridDBColumn Caption = #26465#30721 DataBinding.FieldName = 'STKID' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.ReadOnly = True HeaderAlignmentHorz = taCenter @@ -298,18 +252,21 @@ inherited frmKnitClothDROutEdit: TfrmKnitClothDROutEdit object cv3Column3: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNO' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 98 end object cv3Column4: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'P_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 92 end object v3Column1: TcxGridDBColumn Caption = #27611#37325 DataBinding.FieldName = 'GrossWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 75 @@ -317,6 +274,7 @@ inherited frmKnitClothDROutEdit: TfrmKnitClothDROutEdit object Tv3Column1: TcxGridDBColumn Caption = #31859#25968 DataBinding.FieldName = 'Meter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 72 @@ -324,6 +282,7 @@ inherited frmKnitClothDROutEdit: TfrmKnitClothDROutEdit object Tv3Column4: TcxGridDBColumn Caption = #30721#25968 DataBinding.FieldName = 'Yardage' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 79 @@ -343,6 +302,7 @@ inherited frmKnitClothDROutEdit: TfrmKnitClothDROutEdit object TV4: TcxGridDBTableView OnMouseDown = TV4MouseDown Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = ds2 DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < @@ -363,12 +323,10 @@ inherited frmKnitClothDROutEdit: TfrmKnitClothDROutEdit OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Content = cxStyle1 - Styles.IncSearch = cxStyle1 - Styles.Header = cxStyle1 - Styles.Inactive = cxStyle1 object cCXCONNO: TcxGridDBColumn Caption = #35745#21010#21333 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 119 @@ -376,6 +334,7 @@ inherited frmKnitClothDROutEdit: TfrmKnitClothDROutEdit object TV4Column1: TcxGridDBColumn Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 98 @@ -383,6 +342,7 @@ inherited frmKnitClothDROutEdit: TfrmKnitClothDROutEdit object cCXCOLOR: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 95 @@ -390,6 +350,7 @@ inherited frmKnitClothDROutEdit: TfrmKnitClothDROutEdit object cV4Column1: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNO' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 91 @@ -397,6 +358,7 @@ inherited frmKnitClothDROutEdit: TfrmKnitClothDROutEdit object TV4Column4: TcxGridDBColumn Caption = #32455#26426#21495 DataBinding.FieldName = 'Loom' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 112 @@ -404,6 +366,7 @@ inherited frmKnitClothDROutEdit: TfrmKnitClothDROutEdit object TV4Column2: TcxGridDBColumn Caption = #30003#35831#21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 113 @@ -411,31 +374,39 @@ inherited frmKnitClothDROutEdit: TfrmKnitClothDROutEdit object VC_SQQTY: TcxGridDBColumn Caption = #30003#35831#25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False + Styles.GroupSummary = DataLink_KnitClothStk.SHuangSeCu Width = 111 end object TV4Column5: TcxGridDBColumn Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False + Styles.GroupSummary = DataLink_KnitClothStk.SkyBlue Width = 109 end object TV4Column3: TcxGridDBColumn Caption = #21457#36135#21305#25968 DataBinding.FieldName = 'DlyPiece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False + Styles.GroupSummary = DataLink_KnitClothStk.SHuangSeCu Width = 123 end object cCXFHPS: TcxGridDBColumn Caption = #21457#36135#25968#37327 DataBinding.FieldName = 'DlyQty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.ReadOnly = True HeaderAlignmentHorz = taCenter Options.Editing = False + Styles.GroupSummary = DataLink_KnitClothStk.SHuangSeCu Width = 122 end end diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothDROutEdit.pas b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothDROutEdit.pas index 9d206b1..9385e92 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothDROutEdit.pas +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothDROutEdit.pas @@ -11,7 +11,25 @@ uses cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, BtnEdit, ShellAPI, cxTextEdit, RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, RM_e_Xls, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, - cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList; + cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinBasic, + dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, + dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful, + dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful, + dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue, + dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, + dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations, + cxContainer, cxButtons, dxCore, cxDateUtils, cxMaskEdit, cxDropDownEdit, + cxCalendar; type TfrmKnitClothDROutEdit = class(TfrmBaseList) @@ -24,23 +42,19 @@ type Label5: TLabel; Label4: TLabel; Label9: TLabel; - edtScan: TEdit; - CRTime: TDateTimePicker; - ToCoName: TEdit; - Button2: TButton; + edtScan: TcxTextEdit; + ToCoName: TcxTextEdit; cxStyleRepository1: TcxStyleRepository; cxStyle1: TcxStyle; Label12: TLabel; CDS_Main: TClientDataSet; - CRType: TEdit; - Button1: TButton; + CRType: TcxTextEdit; RMXLSExport1: TRMXLSExport; RMDBMX: TRMDBDataSet; RM1: TRMGridReport; CDS_JuanPRT: TClientDataSet; Label10: TLabel; - edtIsSMTH: TEdit; - btn1: TButton; + edtIsSMTH: TcxTextEdit; ds1: TClientDataSet; ds2: TDataSource; Panel1: TPanel; @@ -64,12 +78,16 @@ type Tv3Column1: TcxGridDBColumn; TV4Column2: TcxGridDBColumn; TV4Column3: TcxGridDBColumn; - OutNo: TEdit; + OutNo: TcxTextEdit; GPM_2: TcxGridPopupMenu; TV4Column5: TcxGridDBColumn; Tv3Column4: TcxGridDBColumn; TV4Column4: TcxGridDBColumn; Pnl_msg: TPanel; + Button1: TcxButton; + btn1: TcxButton; + Button2: TcxButton; + CRTime: TcxDateEdit; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormDestroy(Sender: TObject); procedure FormShow(Sender: TObject); @@ -250,7 +268,7 @@ begin Sql.Add('exec P_Knit_Cloth_Out '); Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds))); - Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.DateTime))); + Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.Date))); Sql.Add(',@IOType=' + Quotedstr(crtype.Text)); Sql.Add(',@IONO=' + Quotedstr(OutNo.Text)); Sql.Add(',@FillId=' + Quotedstr(DCode)); @@ -343,7 +361,7 @@ begin edtScan.SetFocus; ReadCxGrid('ɨTv4', Tv4, ''); ReadCxGrid('ɨTv3', Tv3, ''); - CRTime.DateTime := SGetServerDate(ADOQueryTemp); + CRTime.Date := SGetServerDate(ADOQueryTemp); end; procedure TfrmKnitClothDROutEdit.edtScanKeyPress(Sender: TObject; var Key: Char); @@ -418,6 +436,8 @@ begin end; + + procedure TfrmKnitClothDROutEdit.Button1Click(Sender: TObject); var MKey: Char; diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInEdit.dfm b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInEdit.dfm index 584555f..b2af0da 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInEdit.dfm +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInEdit.dfm @@ -1,28 +1,40 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit Caption = #25104#21697#20986#24211#25195#25551 - ClientHeight = 632 + ClientHeight = 634 ClientWidth = 1350 + ParentFont = False + Font.Charset = ANSI_CHARSET + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Visible = True ExplicitWidth = 1366 - ExplicitHeight = 671 + ExplicitHeight = 673 PixelsPerInch = 96 - TextHeight = 12 + TextHeight = 21 object Panel4: TPanel [0] Left = 0 Top = 169 Width = 609 - Height = 463 + Height = 465 Align = alLeft Caption = 'Panel2' TabOrder = 2 object cxGrid1: TcxGrid Left = 1 - Top = 39 + Top = 31 Width = 607 - Height = 423 + Height = 433 Align = alClient + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False TabOrder = 0 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 DataController.Filter.AutoDataSetFilter = True DataController.Summary.DefaultGroupSummaryItems = <> @@ -57,6 +69,7 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit object v1Column6: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.NullStyle = nssUnchecked HeaderAlignmentHorz = taCenter @@ -67,12 +80,14 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit object v1Column11: TcxGridDBColumn Caption = #21367#26465#30721 DataBinding.FieldName = 'StkId' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 75 end object v1Column5: TcxGridDBColumn Caption = #21367#21495 DataBinding.FieldName = 'PieceNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Filtering = False @@ -81,6 +96,7 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit object v1Column3: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Filtering = False @@ -89,19 +105,22 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit object Tv1Column1: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 62 end object v1Column4: TcxGridDBColumn Caption = #21345#21495 DataBinding.FieldName = 'PCID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 41 + Width = 70 end object v2Column6: TcxGridDBColumn Caption = #31859#25968 DataBinding.FieldName = 'StkMeter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Filtering = False @@ -110,6 +129,7 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit object v2Column5: TcxGridDBColumn Caption = #27611#37325 DataBinding.FieldName = 'StkGrossWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Filtering = False @@ -125,21 +145,16 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit Left = 1 Top = 1 Width = 607 - Height = 38 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 99 Caption = 'ToolBar1' Color = clWhite - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - Images = DataLink_KnitClothStk.ImageList_new32 + DisabledImages = DataLink_KnitClothStk.cxImageList_bar + Images = DataLink_KnitClothStk.cxImageList_bar List = True ParentColor = False - ParentFont = False ShowCaptions = True TabOrder = 1 object ToolButton6: TToolButton @@ -192,16 +207,23 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit Align = alTop BevelInner = bvRaised BevelOuter = bvLowered + Font.Charset = GB2312_CHARSET + Font.Color = clWindowText + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] + ParentFont = False TabOrder = 0 object cxGrid2: TcxGrid Left = 2 Top = 2 - Width = 607 + Width = 631 Height = 165 Align = alLeft TabOrder = 0 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> OnCellDblClick = Tv2CellDblClick DataController.DataSource = DS_2 DataController.Filter.AutoDataSetFilter = True @@ -214,10 +236,10 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsView.GroupByBox = False - Styles.Footer = DataLink_KnitClothStk.Default object v1OrderNo: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Focusing = False Options.Sorting = False @@ -226,13 +248,15 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit object v2Column2: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'CustomerNoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Focusing = False - Width = 123 + Width = 69 end object cxGridDBColumn2: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'MPRTCodeName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Focusing = False Options.Sorting = False @@ -241,6 +265,7 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit object cxGridDBColumn3: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Focusing = False Options.Sorting = False @@ -249,12 +274,14 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit object Tv2Column2: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'PCPiece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 48 end object v1Column10: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'PCQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Focusing = False Width = 51 @@ -262,13 +289,15 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit object v1Column14: TcxGridDBColumn Caption = #21333#20301 DataBinding.FieldName = 'PCUnit' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Focusing = False - Width = 42 + Width = 78 end object v1PRTMF: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Focusing = False Options.Sorting = False @@ -277,6 +306,7 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit object v1PRTKZ: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Focusing = False Options.Sorting = False @@ -288,98 +318,67 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit end end object Panel3: TPanel - Left = 609 + Left = 633 Top = 2 - Width = 739 + Width = 715 Height = 165 Align = alClient TabOrder = 1 object Label4: TLabel - Left = 198 - Top = 55 - Width = 48 - Height = 12 + Left = 208 + Top = 54 + Width = 64 + Height = 21 Caption = #20837#24211#26102#38388 end object Label5: TLabel - Left = 24 - Top = 55 - Width = 48 - Height = 12 + Left = 32 + Top = 54 + Width = 64 + Height = 21 Caption = #20837#24211#21333#21495 end object Label11: TLabel - Left = 374 - Top = 55 - Width = 48 - Height = 12 + Left = 407 + Top = 54 + Width = 64 + Height = 21 Caption = #20837#24211#31867#22411 end object Label6: TLabel - Left = 30 - Top = 102 - Width = 66 - Height = 33 + Left = 66 + Top = 111 + Width = 32 + Height = 21 Caption = #25195#25551 - Font.Charset = GB2312_CHARSET - Font.Color = clBlue - Font.Height = -32 - Font.Name = #23435#20307 - Font.Style = [fsBold] + end + object InNo: TcxTextEdit + Left = 104 + Top = 49 + AutoSize = False ParentFont = False - end - object CRTime: TDateTimePicker - Left = 246 - Top = 51 - Width = 100 - Height = 20 - Date = 41337.000000000000000000 - Format = 'yyyy-MM-dd' - Time = 0.663190821760508700 TabOrder = 0 - end - object InNo: TEdit - Left = 78 - Top = 51 + Height = 33 Width = 100 - Height = 20 - TabOrder = 1 - end - object CRType: TComboBox - Left = 422 - Top = 51 - Width = 100 - Height = 20 - Style = csDropDownList - ItemIndex = 0 - TabOrder = 2 - Text = #26816#39564#20837#24211 - Items.Strings = ( - #26816#39564#20837#24211 - #36864#36135#20837#24211) end object ToolBar3: TToolBar Tag = 1 Left = 1 Top = 1 - Width = 737 - Height = 38 + Width = 713 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 99 Caption = 'ToolBar1' Color = clWhite - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - Images = DataLink_KnitClothStk.ImageList_new32 + DisabledImages = DataLink_KnitClothStk.cxImageList_bar + Images = DataLink_KnitClothStk.cxImageList_bar List = True ParentColor = False - ParentFont = False ShowCaptions = True TabOrder = 3 + Transparent = True object btnGetOutNo: TToolButton Left = 0 Top = 0 @@ -397,7 +396,7 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit OnClick = ToolButton3Click end object ToolButton8: TToolButton - Left = 166 + Left = 174 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -405,7 +404,7 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit OnClick = ToolButton8Click end object ToolButton7: TToolButton - Left = 261 + Left = 277 Top = 0 AutoSize = True Caption = #20851#38381 @@ -413,19 +412,38 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit OnClick = ToolButton7Click end end - object edtScan: TEdit - Left = 102 - Top = 82 - Width = 411 - Height = 72 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -64 - Font.Name = #23435#20307 - Font.Style = [] + object edtScan: TcxTextEdit + Left = 104 + Top = 106 ParentFont = False - TabOrder = 4 + TabOrder = 1 OnKeyPress = edtScanKeyPress + Width = 497 + end + object CRTime: TcxDateEdit + Left = 278 + Top = 49 + AutoSize = False + EditValue = 45490d + ParentFont = False + Properties.ShowTime = False + TabOrder = 2 + Height = 33 + Width = 123 + end + object CRType: TcxComboBox + Left = 477 + Top = 49 + AutoSize = False + ParentFont = False + Properties.Items.Strings = ( + #38144#21806#20837#24211 + #21152#24037#20837#24211 + #30424#20111#20837#24211) + TabOrder = 4 + Text = #38144#21806#20837#24211 + Height = 33 + Width = 124 end end end @@ -433,19 +451,20 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit Left = 609 Top = 169 Width = 741 - Height = 463 + Height = 465 Align = alClient Caption = 'Panel2' TabOrder = 1 object cxGrid3: TcxGrid Left = 1 - Top = 39 + Top = 31 Width = 739 - Height = 423 + Height = 433 Align = alClient TabOrder = 0 object Tv3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_3 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -473,16 +492,18 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit object v3Column5: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked HeaderAlignmentHorz = taCenter Options.Sorting = False - Width = 44 + Width = 54 end object cxGridDBColumn4: TcxGridDBColumn Caption = #21367#21495 DataBinding.FieldName = 'PieceNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 52 @@ -490,13 +511,15 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit object v3MJID: TcxGridDBColumn Caption = #21367#26465#30721 DataBinding.FieldName = 'StkId' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Width = 60 + Width = 74 end object v3Column3: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -504,12 +527,14 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit object Tv3Column1: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 67 end object v3Column4: TcxGridDBColumn Caption = #21345#21495 DataBinding.FieldName = 'PCID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 65 @@ -517,6 +542,7 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit object cxGridDBColumn6: TcxGridDBColumn Caption = #31859#25968 DataBinding.FieldName = 'StkMeter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False @@ -525,6 +551,7 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit object v3Column1: TcxGridDBColumn Caption = #27611#37325 DataBinding.FieldName = 'StkGrossWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 59 @@ -539,21 +566,16 @@ inherited frmKnitClothInEdit: TfrmKnitClothInEdit Left = 1 Top = 1 Width = 739 - Height = 38 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 99 Caption = 'ToolBar1' Color = clWhite - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - Images = DataLink_KnitClothStk.ImageList_new32 + DisabledImages = DataLink_KnitClothStk.ImageList_new32 + Images = DataLink_KnitClothStk.cxImageList_bar List = True ParentColor = False - ParentFont = False ShowCaptions = True TabOrder = 1 object ToolButton11: TToolButton diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInEdit.pas b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInEdit.pas index 7e4ea30..98f9f99 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInEdit.pas +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInEdit.pas @@ -11,7 +11,24 @@ uses cxControls, cxGridCustomView, cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, U_BaseList, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, RM_Common, RM_Class, - RM_GridReport, RM_Dataset, Vcl.ToolWin; + RM_GridReport, RM_Dataset, Vcl.ToolWin, dxSkinBasic, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue, dxScrollbarAnnotations, cxContainer, cxTextEdit, dxCore, + cxDateUtils, cxMaskEdit, cxDropDownEdit, cxCalendar; type TfrmKnitClothInEdit = class(TfrmBaseList) @@ -71,16 +88,14 @@ type Label4: TLabel; Label5: TLabel; Label11: TLabel; - CRTime: TDateTimePicker; - InNo: TEdit; - CRType: TComboBox; + InNo: TcxTextEdit; ToolBar3: TToolBar; ToolButton3: TToolButton; btnGetOutNo: TToolButton; ToolButton6: TToolButton; ToolButton7: TToolButton; ToolButton8: TToolButton; - edtScan: TEdit; + edtScan: TcxTextEdit; Label6: TLabel; ToolButton9: TToolButton; ToolButton10: TToolButton; @@ -88,6 +103,8 @@ type ToolButton12: TToolButton; Tv2Column2: TcxGridDBColumn; ToolButton4: TToolButton; + CRTime: TcxDateEdit; + CRType: TcxComboBox; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormDestroy(Sender: TObject); procedure FormShow(Sender: TObject); @@ -231,7 +248,7 @@ begin Sql.Clear; Sql.Add('exec P_Knit_Cloth_In '); Sql.Add('@StkIds=' + quotedstr(trim(MStkIds))); - Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.DateTime))); + Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.Date))); Sql.Add(',@IOType=' + Quotedstr(crtype.Text)); Sql.Add(',@IONO=' + Quotedstr(InNo.Text)); Sql.Add(',@StkPosition=' + Quotedstr('')); @@ -284,7 +301,7 @@ begin Sql.Clear; Sql.Add('exec P_Knit_Cloth_In '); Sql.Add('@StkIds=' + quotedstr(trim(MStkIds))); - Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.DateTime))); + Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.Date))); Sql.Add(',@IOType=' + Quotedstr(crtype.Text)); Sql.Add(',@IONO=' + Quotedstr(InNo.Text)); Sql.Add(',@StkPosition=' + Quotedstr('')); @@ -331,7 +348,7 @@ begin InitGrid2(); InitGrid1(); InitGrid3(); - CRTime.DateTime := SGetServerDate(ADOQueryTemp); + CRTime.Date := SGetServerDate(ADOQueryTemp); end; procedure TfrmKnitClothInEdit.Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); @@ -527,7 +544,7 @@ begin Sql.Clear; Sql.Add('exec P_Knit_Cloth_In '); Sql.Add('@StkIds=' + quotedstr(trim(MStkIds))); - Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.DateTime))); + Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.Date))); Sql.Add(',@IOType=' + Quotedstr(crtype.Text)); Sql.Add(',@IONO=' + Quotedstr(InNo.Text)); Sql.Add(',@StkPosition=' + Quotedstr('')); @@ -595,7 +612,7 @@ begin Exit; end; InNo.Text := Trim(maxNo); - CRTime.DateTime := SGetServerDate(ADOQueryTemp); + CRTime.Date := SGetServerDate(ADOQueryTemp); InitGrid3(); end; diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInEdit.vlb b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInEdit.vlb new file mode 100644 index 0000000..4ec2f02 --- /dev/null +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInEdit.vlb @@ -0,0 +1,232 @@ +[CDS_3] +Coordinates=247,10,56,58 + +[v1OrderNo] +Coordinates=120,78,77,36 + +[ToolBar2] +Coordinates=478,326,67,36 + +[cxGridDBColumn6] +Coordinates=662,1,121,36 + +[cxGrid3] +Coordinates=409,326,59,36 + +[InNo] +Coordinates=357,326,42,36 + +[Label6] +Coordinates=184,10,53,58 + +[cxGridDBColumn4] +Coordinates=662,56,121,36 + +[btnGetOutNo] +Coordinates=257,326,90,36 + +[GPM_2] +Coordinates=239,365,58,36 + +[DS_1] +Coordinates=485,232,46,36 + +[Panel4] +Coordinates=10,212,55,58 + +[v3Column1] +Coordinates=662,166,79,36 + +[Label5] +Coordinates=437,144,53,58 + +[v1Column10] +Coordinates=662,221,86,36 + +[ADOQueryBaseCmd] +Coordinates=492,10,133,58 + +[cxGrid1] +Coordinates=188,326,59,36 + +[DS_3] +Coordinates=56,77,46,36 + +[ToolButton10] +Coordinates=87,326,91,36 + +[ToolBar1] +Coordinates=10,326,67,36 + +[ToolButton7] +Coordinates=549,280,84,36 + +[Tv2] +Coordinates=0,137,40,36 + +[v2Column2] +Coordinates=573,365,79,36 + +[GPM_1] +Coordinates=42,365,58,36 + +[cxGrid1Level1] +Coordinates=821,1,97,36 + +[v1Column6] +Coordinates=821,56,79,36 + +[Panel1] +Coordinates=427,10,55,58 + +[Tv3] +Coordinates=0,329,40,36 + +[ToolButton4] +Coordinates=455,280,84,36 + +[ToolButton2] +Coordinates=361,280,84,36 + +[v1PRTKZ] +Coordinates=662,386,70,36 + +[Panel2] +Coordinates=223,144,55,58 + +[ADOQueryMain] +Coordinates=75,212,105,58 + +[edtScan] +Coordinates=80,144,62,58 + +[ToolButton3] +Coordinates=267,280,84,36 + +[ADOQueryCmd] +Coordinates=313,10,104,58 + +[v3Column4] +Coordinates=821,276,79,36 + +[v1PRTMF] +Coordinates=643,439,72,36 + +[v3Column3] +Coordinates=821,331,79,36 + +[Label4] +Coordinates=121,10,53,58 + +[cxGridDBColumn2] +Coordinates=821,386,121,36 + +[CDS_2] +Coordinates=565,144,56,58 + +[v3Column5] +Coordinates=821,441,79,36 + +[Tv2Column2] +Coordinates=732,460,87,36 + +[cxGrid2] +Coordinates=198,280,59,36 + +[v1Column3] +Coordinates=485,460,79,36 + +[DS_2] +Coordinates=338,78,46,36 + +[GPM_3] +Coordinates=426,439,58,36 + +[ToolButton6] +Coordinates=104,280,84,36 + +[ToolButton8] +Coordinates=10,280,84,36 + +[ToolButton12] +Coordinates=622,212,91,36 + +[CRTime] +Coordinates=152,144,61,58 + +[cxGridDBColumn3] +Coordinates=20,460,121,36 + +[Panel3] +Coordinates=500,144,55,58 +Visible=True + +[ToolButton1] +Coordinates=528,212,84,36 + +[v3MJID] +Coordinates=0,403,58,36 + +[v2Column5] +Coordinates=980,56,79,36 + +[ToolBar3] +Coordinates=451,212,67,36 + +[cxGrid2Level1] +Coordinates=980,111,97,36 + +[cxGridLevel1] +Coordinates=980,166,90,36 + +[v1Column11] +Coordinates=980,221,86,36 + +[ToolButton9] +Coordinates=357,212,84,36 + +[v1Column5] +Coordinates=980,331,79,36 + +[Tv1Column1] +Coordinates=980,386,87,36 + +[Tv3Column1] +Coordinates=980,441,87,36 + +[v2Column6] +Coordinates=980,496,79,36 + +[ToolButton11] +Coordinates=256,212,91,36 + +[ADOQueryTemp] +Coordinates=631,144,109,58 + +[ADOQueryBaseTemp] +Coordinates=288,144,139,58 + +[Tv1] +Coordinates=802,534,40,36 + +[CDS_1] +Coordinates=190,212,56,58 + +[Label11] +Coordinates=10,144,60,58 + +[v1Column14] +Coordinates=891,570,86,36 + +[v1Column4] +Coordinates=713,570,79,36 + +[] +Coordinates=10,10,101,124 + +[CRType] +LayerNames= + +[Module Settings] +ModelLayerNames=1;2;3;4 + diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInList.dfm b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInList.dfm index 21e02a6..420690b 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInList.dfm +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInList.dfm @@ -4,33 +4,32 @@ inherited frmKnitClothInList: TfrmKnitClothInList Caption = #25104#21697#20837#24211#21015#34920 ClientHeight = 600 ClientWidth = 1544 + ParentFont = False + Font.Charset = ANSI_CHARSET + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 FormStyle = fsMDIChild Position = poScreenCenter Visible = True ExplicitWidth = 1560 ExplicitHeight = 639 PixelsPerInch = 96 - TextHeight = 12 + TextHeight = 21 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 Top = 0 Width = 1544 - Height = 38 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 99 Caption = 'ToolBar1' Color = clWhite - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - Images = DataLink_KnitClothStk.ImageList_new32 + DisabledImages = DataLink_KnitClothStk.cxImageList_bar + Images = DataLink_KnitClothStk.cxImageList_bar List = True ParentColor = False - ParentFont = False ShowCaptions = True TabOrder = 0 object TBRafresh: TToolButton @@ -50,7 +49,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList OnClick = TBRKCXClick end object ToolButton1: TToolButton - Left = 166 + Left = 174 Top = 0 AutoSize = True Caption = #25353#21333#25171#21360 @@ -58,7 +57,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList OnClick = ToolButton1Click end object ToolButton2: TToolButton - Left = 261 + Left = 277 Top = 0 AutoSize = True Caption = #21246#36873#25171#21360 @@ -67,7 +66,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList OnClick = ToolButton2Click end object TBExport: TToolButton - Left = 356 + Left = 380 Top = 0 AutoSize = True Caption = #23548#20986 @@ -75,7 +74,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList OnClick = TBExportClick end object ToolButton4: TToolButton - Left = 427 + Left = 451 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -83,7 +82,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList OnClick = ToolButton4Click end object TBClose: TToolButton - Left = 522 + Left = 554 Top = 0 AutoSize = True Caption = #20851#38381 @@ -93,22 +92,19 @@ inherited frmKnitClothInList: TfrmKnitClothInList end object cxPageControl1: TcxPageControl [1] Left = 0 - Top = 38 + Top = 30 Width = 1544 - Height = 562 + Height = 570 Align = alClient - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -21 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False TabOrder = 1 Properties.ActivePage = cxTabSheet2 Properties.CustomButtons.Buttons = <> Properties.Style = 5 + LookAndFeel.NativeStyle = False + LookAndFeel.ScrollMode = scmClassic + LookAndFeel.SkinName = 'DarkSide' OnChange = cxPageControl1Change - ClientRectBottom = 562 + ClientRectBottom = 570 ClientRectRight = 1544 ClientRectTop = 32 object cxTabSheet1: TcxTabSheet @@ -118,7 +114,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList Left = 0 Top = 0 Width = 1544 - Height = 61 + Height = 121 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered @@ -126,8 +122,8 @@ inherited frmKnitClothInList: TfrmKnitClothInList ParentBackground = False TabOrder = 0 object Label1: TLabel - Left = 70 - Top = 36 + Left = 862 + Top = 191 Width = 13 Height = 12 Caption = #33267 @@ -139,106 +135,64 @@ inherited frmKnitClothInList: TfrmKnitClothInList ParentFont = False end object Label4: TLabel - Left = 187 - Top = 10 - Width = 52 - Height = 12 + Left = 27 + Top = 48 + Width = 64 + Height = 21 Hint = '0' Caption = #35745#21010#21333#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object TLabel - Left = 354 - Top = 10 - Width = 39 - Height = 12 + Left = 207 + Top = 48 + Width = 48 + Height = 21 Hint = '0' Caption = #21512#21516#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label6: TLabel - Left = 517 - Top = 10 - Width = 26 - Height = 12 + Left = 371 + Top = 48 + Width = 32 + Height = 21 Hint = '0' Caption = #39068#33394 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label9: TLabel - Left = 354 - Top = 36 - Width = 39 - Height = 12 + Left = 207 + Top = 87 + Width = 48 + Height = 21 Hint = '0' Caption = #20135#21697#21517 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label12: TLabel - Left = 517 - Top = 36 - Width = 26 - Height = 12 + Left = 371 + Top = 87 + Width = 32 + Height = 21 Hint = '0' Caption = #33457#22411 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label13: TLabel - Left = 187 - Top = 36 - Width = 52 - Height = 12 + Left = 27 + Top = 87 + Width = 64 + Height = 21 Hint = '0' Caption = #20135#21697#32534#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label18: TLabel - Left = 660 - Top = 11 - Width = 26 - Height = 12 + Left = 519 + Top = 48 + Width = 32 + Height = 21 Hint = '0' Caption = #23458#25143 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object BegDate2: TDateTimePicker - Left = 85 - Top = 6 + Left = 445 + Top = 191 Width = 87 Height = 20 Date = 40768.000000000000000000 @@ -252,8 +206,8 @@ inherited frmKnitClothInList: TfrmKnitClothInList TabOrder = 1 end object EndDate2: TDateTimePicker - Left = 85 - Top = 32 + Left = 567 + Top = 191 Width = 87 Height = 20 Date = 40768.000000000000000000 @@ -267,10 +221,10 @@ inherited frmKnitClothInList: TfrmKnitClothInList TabOrder = 2 end object DateTimePicker3: TDateTimePicker - Left = 137 - Top = 132 + Left = 249 + Top = 172 Width = 55 - Height = 20 + Height = 29 Date = 39780.000000000000000000 Format = 'HH:mm' Time = 39780.000000000000000000 @@ -279,9 +233,9 @@ inherited frmKnitClothInList: TfrmKnitClothInList end object DateTimePicker4: TDateTimePicker Left = 137 - Top = 156 + Top = 182 Width = 55 - Height = 20 + Height = 29 Date = 39780.000000000000000000 Format = 'HH:mm' Time = 0.999317129630071600 @@ -289,8 +243,8 @@ inherited frmKnitClothInList: TfrmKnitClothInList TabOrder = 4 end object chk_F2: TCheckBox - Left = 13 - Top = 8 + Left = 762 + Top = 194 Width = 70 Height = 17 Caption = #26597#35810#26085#26399 @@ -304,136 +258,112 @@ inherited frmKnitClothInList: TfrmKnitClothInList State = cbChecked TabOrder = 0 end - object Edit1: TEdit + object Edit1: TcxTextEdit Tag = 2 - Left = 240 - Top = 6 - Width = 100 - Height = 20 + Left = 99 + Top = 42 Hint = 'OrderNo' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 5 OnKeyPress = orderNoKeyPress - end - object Edit2: TEdit - Tag = 2 - Left = 401 - Top = 6 Width = 100 - Height = 20 + end + object Edit2: TcxTextEdit + Tag = 2 + Left = 263 + Top = 42 Hint = 'conNO' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 6 OnKeyPress = orderNoKeyPress - end - object Edit4: TEdit - Tag = 2 - Left = 401 - Top = 32 Width = 100 - Height = 20 + end + object Edit4: TcxTextEdit + Tag = 2 + Left = 263 + Top = 81 Hint = 'C_Name' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 7 OnKeyPress = orderNoKeyPress - end - object Edit5: TEdit - Tag = 2 - Left = 545 - Top = 6 Width = 100 - Height = 20 + end + object Edit5: TcxTextEdit + Tag = 2 + Left = 411 + Top = 42 Hint = 'C_Color' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 8 OnKeyPress = orderNoKeyPress - end - object Edit7: TEdit - Tag = 2 - Left = 545 - Top = 32 Width = 100 - Height = 20 + end + object Edit7: TcxTextEdit + Tag = 2 + Left = 411 + Top = 81 Hint = 'C_Pattern' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 9 OnKeyPress = orderNoKeyPress - end - object Edit8: TEdit - Tag = 2 - Left = 240 - Top = 32 Width = 100 - Height = 20 + end + object Edit8: TcxTextEdit + Tag = 2 + Left = 99 + Top = 81 Hint = 'C_Code' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 10 OnKeyPress = orderNoKeyPress - end - object Edit10: TEdit - Tag = 2 - Left = 687 - Top = 7 Width = 100 - Height = 20 + end + object Edit10: TcxTextEdit + Tag = 2 + Left = 559 + Top = 42 Hint = 'CustName' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 11 OnKeyPress = orderNoKeyPress + Width = 100 + end + inline frmFrameDateSel2: TfrmFrameDateSel + Left = 2 + Top = 2 + Width = 1540 + Height = 37 + Align = alTop + Color = clWhite + ParentBackground = False + ParentColor = False + TabOrder = 12 + ExplicitLeft = 2 + ExplicitTop = 2 + ExplicitWidth = 1540 + inherited BegDate: TcxDateEdit + ExplicitHeight = 33 + end + inherited EndDate: TcxDateEdit + ExplicitHeight = 33 + end + inherited cbbType: TcxComboBox + ExplicitHeight = 33 + end end end object cxGrid2: TcxGrid Left = 0 - Top = 61 + Top = 121 Width = 1544 - Height = 469 + Height = 417 Align = alClient BorderStyle = cxcbsNone - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False PopupMenu = PM_2 TabOrder = 1 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> OnCellDblClick = TV2CellDblClick OnCustomDrawCell = TV2CustomDrawCell DataController.DataSource = DS_2 @@ -498,14 +428,10 @@ inherited frmKnitClothInList: TfrmKnitClothInList OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.IndicatorWidth = 30 - Styles.IncSearch = DataLink_KnitClothStk.SHuangSe - Styles.Footer = DataLink_KnitClothStk.Default - Styles.Header = DataLink_KnitClothStk.Default - Styles.Inactive = DataLink_KnitClothStk.SHuangSe - Styles.Selection = DataLink_KnitClothStk.SHuangSe object cxGridDBColumn2: TcxGridDBColumn Caption = #20837#24211#26102#38388 DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 103 @@ -513,6 +439,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object cxGridDBColumn13: TcxGridDBColumn Caption = #20837#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 75 @@ -521,6 +448,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList Tag = 11 Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 95 @@ -528,18 +456,21 @@ inherited frmKnitClothInList: TfrmKnitClothInList object TV2Column5: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 79 end object TV2Column4: TcxGridDBColumn Caption = #25104#20998 DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 85 end object cxGridDBColumn4: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 77 @@ -547,6 +478,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object cxGridDBColumn5: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -554,6 +486,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object cxGridDBColumn7: TcxGridDBColumn Caption = #21367#25968 DataBinding.FieldName = 'SumPieceNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -561,6 +494,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object cxGridDBColumn8: TcxGridDBColumn Caption = #27611#37325 DataBinding.FieldName = 'SumGrossWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -568,6 +502,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object cxGridDBColumn9: TcxGridDBColumn Caption = #30382#37325 DataBinding.FieldName = 'SumTare' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -575,6 +510,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object cxGridDBColumn10: TcxGridDBColumn Caption = #20928#37325 DataBinding.FieldName = 'SumNetWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -582,6 +518,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object cxGridDBColumn11: TcxGridDBColumn Caption = #31859#25968 DataBinding.FieldName = 'SumMeter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -589,6 +526,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object cxGridDBColumn12: TcxGridDBColumn Caption = #30721#25968 DataBinding.FieldName = 'SumYardage' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -596,6 +534,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object cxGridDBColumn14: TcxGridDBColumn Caption = #21697#36136 DataBinding.FieldName = 'Grade' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -603,6 +542,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object cxGridDBColumn15: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -610,6 +550,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object cxGridDBColumn16: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -617,6 +558,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object cxGridDBColumn17: TcxGridDBColumn Caption = #26816#39564#26426#21488 DataBinding.FieldName = 'CIMachNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -624,6 +566,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object TV2Column2: TcxGridDBColumn Caption = #24211#23384 DataBinding.FieldName = 'IOPosition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -631,6 +574,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object TV2Column3: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -639,6 +583,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList Tag = 11 Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 73 end @@ -651,123 +596,20 @@ inherited frmKnitClothInList: TfrmKnitClothInList object cxTabSheet2: TcxTabSheet Caption = ' '#20135#21697#26126#32454#20449#24687' ' ImageIndex = 1 - object Panel6: TPanel - Left = 0 - Top = 0 - Width = 1544 - Height = 31 - Align = alTop - BorderStyle = bsSingle - TabOrder = 0 - DesignSize = ( - 1540 - 27) - object Label31: TLabel - Left = 35 - Top = 7 - Width = 84 - Height = 13 - Alignment = taCenter - Anchors = [akLeft] - Caption = #27599#39029#35760#24405#26465#25968 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Layout = tlCenter - ExplicitTop = 5 - end - object LBCPAP: TLabel - Left = 357 - Top = 3 - Width = 85 - Height = 20 - Alignment = taCenter - Anchors = [akLeft] - AutoSize = False - Caption = #24403#21069#39029'/'#24635#39029#25968 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Layout = tlCenter - ExplicitTop = 1 - end - object BTLP: TButton - Left = 270 - Top = 3 - Width = 78 - Height = 20 - Anchors = [akLeft] - Caption = #19978#19968#39029 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 0 - OnClick = BTLPClick - end - object BTNP: TButton - Left = 453 - Top = 3 - Width = 78 - Height = 20 - Anchors = [akLeft] - Caption = #19979#19968#39029 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 1 - OnClick = BTNPClick - end - object TCBNOR: TComboBox - Tag = 2 - Left = 125 - Top = 4 - Width = 78 - Height = 20 - Style = csDropDownList - Anchors = [akLeft] - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ItemIndex = 0 - ParentFont = False - TabOrder = 2 - Text = '500' - OnChange = TCBNORChange - Items.Strings = ( - '500' - '1000' - '5000' - '10000') - end - end object Pnl_F1: TPanel Left = 0 - Top = 31 + Top = 37 Width = 1544 - Height = 61 + Height = 122 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clWhite ParentBackground = False - TabOrder = 1 + TabOrder = 0 object Label2: TLabel - Left = 70 - Top = 36 + Left = 849 + Top = 172 Width = 13 Height = 12 Caption = #33267 @@ -779,148 +621,88 @@ inherited frmKnitClothInList: TfrmKnitClothInList ParentFont = False end object Label3: TLabel - Left = 195 - Top = 10 - Width = 52 - Height = 12 + Left = 25 + Top = 48 + Width = 64 + Height = 21 Hint = '0' Caption = #35745#21010#21333#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object TLabel - Left = 362 - Top = 10 - Width = 39 - Height = 12 + Left = 198 + Top = 48 + Width = 48 + Height = 21 Hint = '0' Caption = #21512#21516#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label7: TLabel - Left = 525 - Top = 10 - Width = 26 - Height = 12 + Left = 368 + Top = 48 + Width = 32 + Height = 21 Hint = '0' Caption = #39068#33394 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label10: TLabel - Left = 671 - Top = 36 - Width = 39 - Height = 12 + Left = 526 + Top = 87 + Width = 48 + Height = 21 Hint = '1' Caption = #21367#26465#30721 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label5: TLabel - Left = 362 - Top = 36 - Width = 39 - Height = 12 + Left = 198 + Top = 87 + Width = 48 + Height = 21 Hint = '0' Caption = #20135#21697#21517 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object lbl1: TLabel - Left = 684 - Top = 10 - Width = 26 - Height = 12 + Left = 542 + Top = 48 + Width = 32 + Height = 21 Hint = '0' Caption = #21345#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label20: TLabel - Left = 525 - Top = 36 - Width = 26 - Height = 12 + Left = 368 + Top = 87 + Width = 32 + Height = 21 Hint = '0' Caption = #33457#22411 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label23: TLabel - Left = 195 - Top = 36 - Width = 52 - Height = 12 + Left = 25 + Top = 87 + Width = 64 + Height = 21 Hint = '0' Caption = #20135#21697#32534#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label8: TLabel - Left = 836 - Top = 10 - Width = 26 - Height = 12 + Left = 703 + Top = 48 + Width = 32 + Height = 21 Hint = '0' Caption = #23458#25143 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label14: TLabel - Left = 836 - Top = 36 - Width = 26 - Height = 12 + Left = 703 + Top = 87 + Width = 32 + Height = 21 Hint = '1' Caption = #25209#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object BegDate: TDateTimePicker - Left = 88 - Top = 6 + Left = 867 + Top = 142 Width = 87 Height = 20 Date = 40768.000000000000000000 @@ -934,8 +716,8 @@ inherited frmKnitClothInList: TfrmKnitClothInList TabOrder = 1 end object EndDate: TDateTimePicker - Left = 88 - Top = 32 + Left = 867 + Top = 168 Width = 87 Height = 20 Date = 40768.000000000000000000 @@ -949,10 +731,10 @@ inherited frmKnitClothInList: TfrmKnitClothInList TabOrder = 2 end object begtime: TDateTimePicker - Left = 137 - Top = 132 + Left = 1016 + Top = 142 Width = 55 - Height = 20 + Height = 29 Date = 39780.000000000000000000 Format = 'HH:mm' Time = 39780.000000000000000000 @@ -960,10 +742,10 @@ inherited frmKnitClothInList: TfrmKnitClothInList TabOrder = 3 end object endTime: TDateTimePicker - Left = 137 - Top = 156 + Left = 1016 + Top = 171 Width = 55 - Height = 20 + Height = 29 Date = 39780.000000000000000000 Format = 'HH:mm' Time = 0.999317129630071600 @@ -971,8 +753,8 @@ inherited frmKnitClothInList: TfrmKnitClothInList TabOrder = 4 end object chk_F1: TCheckBox - Left = 14 - Top = 8 + Left = 793 + Top = 144 Width = 73 Height = 17 Caption = #26597#35810#26085#26399 @@ -986,184 +768,139 @@ inherited frmKnitClothInList: TfrmKnitClothInList State = cbChecked TabOrder = 0 end - object OrderNo: TEdit + object OrderNo: TcxTextEdit Tag = 2 - Left = 248 - Top = 6 - Width = 100 - Height = 20 + Left = 92 + Top = 42 Hint = 'OrderNo' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 5 OnKeyPress = orderNoKeyPress - end - object conNO: TEdit - Tag = 2 - Left = 409 - Top = 6 Width = 100 - Height = 20 + end + object conNO: TcxTextEdit + Tag = 2 + Left = 256 + Top = 42 Hint = 'conNO' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 6 OnKeyPress = orderNoKeyPress - end - object STKID: TEdit - Tag = 2 - Left = 716 - Top = 32 Width = 100 - Height = 20 + end + object STKID: TcxTextEdit + Tag = 2 + Left = 584 + Top = 81 Hint = 'STKID' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 7 OnKeyPress = orderNoKeyPress - end - object C_Name: TEdit - Tag = 2 - Left = 409 - Top = 32 Width = 100 - Height = 20 + end + object C_Name: TcxTextEdit + Tag = 2 + Left = 256 + Top = 81 Hint = 'C_Name' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 8 OnKeyPress = orderNoKeyPress - end - object C_Color: TEdit - Tag = 2 - Left = 553 - Top = 6 Width = 100 - Height = 20 + end + object C_Color: TcxTextEdit + Tag = 2 + Left = 420 + Top = 42 Hint = 'C_Color' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 9 OnKeyPress = orderNoKeyPress - end - object PCId: TEdit - Tag = 2 - Left = 716 - Top = 6 Width = 100 - Height = 20 + end + object PCId: TcxTextEdit + Tag = 2 + Left = 584 + Top = 42 Hint = 'PCId' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 10 OnKeyPress = orderNoKeyPress - end - object C_Pattern: TEdit - Tag = 2 - Left = 553 - Top = 32 Width = 100 - Height = 20 + end + object C_Pattern: TcxTextEdit + Tag = 2 + Left = 420 + Top = 81 Hint = 'C_Pattern' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 11 OnKeyPress = orderNoKeyPress - end - object C_Code: TEdit - Tag = 2 - Left = 248 - Top = 32 Width = 100 - Height = 20 + end + object C_Code: TcxTextEdit + Tag = 2 + Left = 92 + Top = 81 Hint = 'C_Code' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 12 OnKeyPress = orderNoKeyPress - end - object Edit3: TEdit - Tag = 2 - Left = 863 - Top = 32 Width = 100 - Height = 20 + end + object Edit3: TcxTextEdit + Tag = 2 + Left = 748 + Top = 81 Hint = 'BatchNo' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 13 OnKeyPress = orderNoKeyPress - end - object Edit11: TEdit - Tag = 2 - Left = 863 - Top = 6 Width = 100 - Height = 20 + end + object Edit11: TcxTextEdit + Tag = 2 + Left = 748 + Top = 42 Hint = 'CustName' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 14 OnKeyPress = orderNoKeyPress + Width = 100 + end + inline frmFrameDateSel: TfrmFrameDateSel + Left = 2 + Top = 2 + Width = 1540 + Height = 37 + Align = alTop + TabOrder = 15 + ExplicitLeft = 2 + ExplicitTop = 2 + ExplicitWidth = 1540 + inherited BegDate: TcxDateEdit + ExplicitHeight = 33 + end + inherited EndDate: TcxDateEdit + ExplicitHeight = 33 + end + inherited cbbType: TcxComboBox + ExplicitHeight = 33 + end end end object cxGrid1: TcxGrid Left = 0 - Top = 92 + Top = 159 Width = 1544 - Height = 438 + Height = 379 Align = alClient BorderStyle = cxcbsNone - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False PopupMenu = PM_1 - TabOrder = 2 + TabOrder = 1 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -1227,14 +964,10 @@ inherited frmKnitClothInList: TfrmKnitClothInList OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.IndicatorWidth = 30 - Styles.IncSearch = DataLink_KnitClothStk.SHuangSe - Styles.Footer = DataLink_KnitClothStk.Default - Styles.Header = DataLink_KnitClothStk.Default - Styles.Inactive = DataLink_KnitClothStk.SHuangSe - Styles.Selection = DataLink_KnitClothStk.SHuangSe object v1Column22: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked @@ -1245,6 +978,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column21: TcxGridDBColumn Caption = #20837#24211#21333#21495 DataBinding.FieldName = 'IONO' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 115 @@ -1252,6 +986,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column9: TcxGridDBColumn Caption = #20837#24211#26102#38388 DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 85 @@ -1259,6 +994,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column11: TcxGridDBColumn Caption = #20837#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 91 @@ -1266,6 +1002,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column32: TcxGridDBColumn Caption = #21512#21516#21495 DataBinding.FieldName = 'conNO' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 76 @@ -1273,6 +1010,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column1: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 78 @@ -1280,6 +1018,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column4: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 74 @@ -1287,6 +1026,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column13: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 76 @@ -1294,6 +1034,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column3: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1301,12 +1042,14 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column2: TcxGridDBColumn Caption = #25104#20998 DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 76 end object v1Column5: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1314,6 +1057,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column4: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1321,6 +1065,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column40: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1328,6 +1073,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column3: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1335,6 +1081,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column7: TcxGridDBColumn Caption = #23458#25143#33457#22411 DataBinding.FieldName = 'C_CustPattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 73 @@ -1342,6 +1089,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column8: TcxGridDBColumn Caption = #23458#25143#21333#21495 DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 79 @@ -1349,12 +1097,14 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column6: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 87 end object v1Column18: TcxGridDBColumn Caption = #21345#21495 DataBinding.FieldName = 'PCId' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1362,6 +1112,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column23: TcxGridDBColumn Caption = #21367#21495 DataBinding.FieldName = 'PieceNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1369,6 +1120,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column8: TcxGridDBColumn Caption = #27611#37325 DataBinding.FieldName = 'GrossWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1376,6 +1128,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column27: TcxGridDBColumn Caption = #30382#37325 DataBinding.FieldName = 'Tare' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1383,6 +1136,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column28: TcxGridDBColumn Caption = #20928#37325 DataBinding.FieldName = 'NetWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1390,6 +1144,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column10: TcxGridDBColumn Caption = #31859#25968 DataBinding.FieldName = 'Meter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1397,6 +1152,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column12: TcxGridDBColumn Caption = #24211#20301 DataBinding.FieldName = 'IOPosition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 71 @@ -1404,6 +1160,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column10: TcxGridDBColumn Caption = #30721#25968 DataBinding.FieldName = 'Yardage' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1411,6 +1168,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column12: TcxGridDBColumn Caption = #21697#36136 DataBinding.FieldName = 'Grade' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1418,6 +1176,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column42: TcxGridDBColumn Caption = #24635#35760#24405#25968 DataBinding.FieldName = 'TotalCount' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1425,6 +1184,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column6: TcxGridDBColumn Caption = #21367#26465#30721 DataBinding.FieldName = 'CIID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1432,6 +1192,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column46: TcxGridDBColumn Caption = #26816#39564#26426#21488 DataBinding.FieldName = 'CIMachNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1439,6 +1200,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column1: TcxGridDBColumn Caption = #32455#26426#21495 DataBinding.FieldName = 'Loom' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 71 @@ -1448,6 +1210,32 @@ inherited frmKnitClothInList: TfrmKnitClothInList GridView = Tv1 end end + inline frmFramePagingSel1: TfrmFramePagingSel + Left = 0 + Top = 0 + Width = 1544 + Height = 37 + Align = alTop + TabOrder = 2 + ExplicitWidth = 1544 + inherited BTLP: TcxButton + OnClick = BTLPClick + end + inherited cxButton3: TcxButton + OnClick = BTNPClick + end + inherited TCBNOR: TcxComboBox + Properties.Items.Strings = ( + '500' + '1000' + '2000' + '5000' + '10000') + Properties.OnChange = TCBNORChange + Text = '500' + ExplicitHeight = 33 + end + end end end inherited ADOQueryBaseCmd: TADOQuery @@ -1479,8 +1267,8 @@ inherited frmKnitClothInList: TfrmKnitClothInList LockType = ltReadOnly CommandTimeout = 600 Parameters = <> - Left = 112 - Top = 204 + Left = 64 + Top = 220 end object DS_1: TDataSource DataSet = CDS_1 @@ -1542,4 +1330,9 @@ inherited frmKnitClothInList: TfrmKnitClothInList OnClick = MenuItem3Click end end + object cxStyleRepository1: TcxStyleRepository + PixelsPerInch = 96 + object cxStyle1: TcxStyle + end + end end diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInList.pas b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInList.pas index 6ec3f26..0194a44 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInList.pas +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInList.pas @@ -13,7 +13,24 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, - System.StrUtils; + System.StrUtils, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue, dxScrollbarAnnotations, cxContainer, FrameDateSel, + cxButtons, cxMaskEdit, FramePagingSel; type TfrmKnitClothInList = class(TfrmBaseList) @@ -38,12 +55,6 @@ type cxPageControl1: TcxPageControl; cxTabSheet1: TcxTabSheet; cxTabSheet2: TcxTabSheet; - Panel6: TPanel; - Label31: TLabel; - LBCPAP: TLabel; - BTLP: TButton; - BTNP: TButton; - TCBNOR: TComboBox; Pnl_F1: TPanel; Label2: TLabel; Label3: TLabel; @@ -58,14 +69,14 @@ type begtime: TDateTimePicker; endTime: TDateTimePicker; chk_F1: TCheckBox; - OrderNo: TEdit; - conNO: TEdit; - STKID: TEdit; - C_Name: TEdit; - C_Color: TEdit; - PCId: TEdit; - C_Pattern: TEdit; - C_Code: TEdit; + OrderNo: TcxTextEdit; + conNO: TcxTextEdit; + STKID: TcxTextEdit; + C_Name: TcxTextEdit; + C_Color: TcxTextEdit; + PCId: TcxTextEdit; + C_Pattern: TcxTextEdit; + C_Code: TcxTextEdit; Pnl_F2: TPanel; Label1: TLabel; Label4: TLabel; @@ -78,12 +89,12 @@ type DateTimePicker3: TDateTimePicker; DateTimePicker4: TDateTimePicker; chk_F2: TCheckBox; - Edit1: TEdit; - Edit2: TEdit; - Edit4: TEdit; - Edit5: TEdit; - Edit7: TEdit; - Edit8: TEdit; + Edit1: TcxTextEdit; + Edit2: TcxTextEdit; + Edit4: TcxTextEdit; + Edit5: TcxTextEdit; + Edit7: TcxTextEdit; + Edit8: TcxTextEdit; GPM_2: TcxGridPopupMenu; CDS_2: TClientDataSet; DS_2: TDataSource; @@ -108,11 +119,11 @@ type TV2Column2: TcxGridDBColumn; TV2Column3: TcxGridDBColumn; Label18: TLabel; - Edit10: TEdit; + Edit10: TcxTextEdit; Label8: TLabel; Label14: TLabel; - Edit3: TEdit; - Edit11: TEdit; + Edit3: TcxTextEdit; + Edit11: TcxTextEdit; PM_2: TPopupMenu; MenuItem3: TMenuItem; cxGrid1: TcxGrid; @@ -151,6 +162,11 @@ type TV2Column4: TcxGridDBColumn; TV2Column5: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn; + frmFrameDateSel: TfrmFrameDateSel; + frmFrameDateSel2: TfrmFrameDateSel; + frmFramePagingSel1: TfrmFramePagingSel; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -237,11 +253,11 @@ procedure TfrmKnitClothInList.FormCreate(Sender: TObject); begin inherited; lstCust := TStringList.Create; - EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); - BegDate.DateTime := EndDate.DateTime - 20; + frmFrameDateSel.EndDate.Date := SGetServerDateTime(ADOQueryTemp); + frmFrameDateSel.BegDate.Date := frmFrameDateSel.EndDate.Date - 20; - BegDate2.DateTime := BegDate.DateTime; - EndDate2.DateTime := EndDate.DateTime; + frmFrameDateSel2.BegDate.Date := frmFrameDateSel.BegDate.Date; + frmFrameDateSel2.EndDate.Date := frmFrameDateSel.EndDate.Date; FWorkshop := trim(Self.fParameters3); end; @@ -257,8 +273,8 @@ begin begin if chk_F2.Checked then begin - WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate2.DateTime)); - WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate2.DateTime + 1)); + WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel2.BegDate.Date)); + WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel2.enddate.Date + 1)); end; with ADOQueryMain do begin @@ -283,8 +299,8 @@ begin begin if chk_F1.Checked then begin - WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); - WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel.BegDate.Date)); + WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel.enddate.Date + 1)); end; with ADOQueryMain do begin @@ -306,7 +322,8 @@ begin end; SCreateCDS(ADOQueryMain, CDS_1); SInitCDSData(ADOQueryMain, CDS_1); - LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber)); + frmFramePagingSel1.LBDQY.Caption := inttostr(CurrentPage); + frmFramePagingSel1.LBZYS.Caption := inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber)); end; end; @@ -488,8 +505,8 @@ end; procedure TfrmKnitClothInList.TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin - BegDate.DateTime := BegDate2.DateTime; - EndDate.DateTime := EndDate2.DateTime; + frmFrameDateSel.BegDate.Date := frmFrameDateSel2.BegDate.Date; + frmFrameDateSel.EndDate.Date := frmFrameDateSel2.EndDate.Date; chk_F2.Checked := chk_F1.Checked; cxPageControl1.ActivePageIndex := 1; SetStatus(); @@ -519,7 +536,7 @@ end; procedure TfrmKnitClothInList.TCBNORChange(Sender: TObject); begin - RecordsNumber := StrToInt(TCBNOR.Text); + RecordsNumber := StrToInt(frmFramePagingSel1.TCBNOR.Text); CurrentPage := 1; InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); end; diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInList1.dfm b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInList1.dfm index 2b936bc..4d78bea 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInList1.dfm +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInList1.dfm @@ -10,7 +10,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList ExplicitWidth = 1560 ExplicitHeight = 636 PixelsPerInch = 96 - TextHeight = 12 + TextHeight = 17 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 @@ -106,7 +106,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList Left = 70 Top = 36 Width = 12 - Height = 12 + Height = 17 Caption = #33267 end object Label3: TLabel @@ -471,6 +471,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList ExplicitTop = 131 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -542,6 +543,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column22: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked @@ -552,6 +554,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column21: TcxGridDBColumn Caption = #20837#24211#21333#21495 DataBinding.FieldName = 'IONO' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 103 @@ -559,16 +562,19 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column9: TcxGridDBColumn Caption = #20837#24211#26102#38388 DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True Options.Editing = False end object Tv1Column11: TcxGridDBColumn Caption = #20837#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True Options.Editing = False end object v1Column32: TcxGridDBColumn Caption = #21512#21516#21495 DataBinding.FieldName = 'conNO' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 76 @@ -576,6 +582,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column1: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 78 @@ -583,6 +590,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column4: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 74 @@ -590,6 +598,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column13: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -597,6 +606,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column4: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -604,6 +614,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column18: TcxGridDBColumn Caption = #21345#21495 DataBinding.FieldName = 'PCId' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -611,6 +622,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column23: TcxGridDBColumn Caption = #21367#21495 DataBinding.FieldName = 'PieceNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -618,6 +630,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column8: TcxGridDBColumn Caption = #27611#37325 DataBinding.FieldName = 'GrossWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -625,6 +638,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column27: TcxGridDBColumn Caption = #30382#37325 DataBinding.FieldName = 'Tare' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -632,6 +646,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column28: TcxGridDBColumn Caption = #20928#37325 DataBinding.FieldName = 'NetWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -639,6 +654,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column10: TcxGridDBColumn Caption = #31859#25968 DataBinding.FieldName = 'Meter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -646,6 +662,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column12: TcxGridDBColumn Caption = #24211#20301 DataBinding.FieldName = 'IOPosition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 71 @@ -653,6 +670,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column10: TcxGridDBColumn Caption = #30721#25968 DataBinding.FieldName = 'Yardage' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -660,6 +678,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column12: TcxGridDBColumn Caption = #21697#36136 DataBinding.FieldName = 'Grade' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -667,6 +686,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column42: TcxGridDBColumn Caption = #24635#35760#24405#25968 DataBinding.FieldName = 'TotalCount' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -674,6 +694,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column6: TcxGridDBColumn Caption = #21367#26465#30721 DataBinding.FieldName = 'CIID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -681,6 +702,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column7: TcxGridDBColumn Caption = #23458#25143#33457#22411 DataBinding.FieldName = 'C_CustPattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -688,6 +710,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column3: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -695,6 +718,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column5: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -702,6 +726,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column34: TcxGridDBColumn Caption = #32568#26465#30721 DataBinding.FieldName = 'BCIOID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -709,6 +734,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column40: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -716,6 +742,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object v1Column46: TcxGridDBColumn Caption = #26816#39564#26426#21488 DataBinding.FieldName = 'CIMachNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -723,6 +750,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column5: TcxGridDBColumn Caption = #21253#21495 DataBinding.FieldName = 'BAONO' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -730,12 +758,14 @@ inherited frmKnitClothInList: TfrmKnitClothInList object VC_BaoID: TcxGridDBColumn Caption = #21253#26465#30721 DataBinding.FieldName = 'PacketId' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False end object Tv1Column8: TcxGridDBColumn Caption = #23458#25143#21333#21495 DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -743,6 +773,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column3: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -750,6 +781,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column1: TcxGridDBColumn Caption = #27454#21495 DataBinding.FieldName = 'C_StyleNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -757,6 +789,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column2: TcxGridDBColumn Caption = #33521#25991#39068#33394 DataBinding.FieldName = 'C_EColor' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -764,6 +797,7 @@ inherited frmKnitClothInList: TfrmKnitClothInList object Tv1Column6: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 72 end diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInList1.pas b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInList1.pas index ac53790..6e0fc00 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInList1.pas +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothInList1.pas @@ -13,7 +13,23 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, - System.StrUtils; + System.StrUtils, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue, dxScrollbarAnnotations; type TfrmKnitClothInList = class(TfrmBaseList) diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothOutEdit.dfm b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothOutEdit.dfm index 4f97276..f959505 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothOutEdit.dfm +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothOutEdit.dfm @@ -2,10 +2,14 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit Caption = #25104#21697#20986#24211#25195#25551 ClientHeight = 632 ClientWidth = 1350 + ParentFont = False + Font.Charset = ANSI_CHARSET + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 ExplicitWidth = 1366 ExplicitHeight = 671 PixelsPerInch = 96 - TextHeight = 12 + TextHeight = 21 object Panel4: TPanel [0] Left = 0 Top = 169 @@ -16,13 +20,14 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit TabOrder = 2 object cxGrid1: TcxGrid Left = 1 - Top = 74 + Top = 66 Width = 607 - Height = 388 + Height = 396 Align = alClient TabOrder = 0 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 DataController.Filter.AutoDataSetFilter = True DataController.Summary.DefaultGroupSummaryItems = <> @@ -55,9 +60,11 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit DataController.Summary.SummaryGroups = <> OptionsView.Footer = True OptionsView.GroupByBox = False + Styles.Header = DataLink_KnitClothStk.Default object v1Column6: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.NullStyle = nssUnchecked HeaderAlignmentHorz = taCenter @@ -68,12 +75,14 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object Tv1Column2: TcxGridDBColumn Caption = #26426#21488#21495 DataBinding.FieldName = 'Loom' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False end object v1Column1: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'orderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Filtering = False @@ -82,6 +91,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object v1Column11: TcxGridDBColumn Caption = #21367#26465#30721 DataBinding.FieldName = 'StkId' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 90 @@ -89,6 +99,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object v1Column5: TcxGridDBColumn Caption = #21367#21495 DataBinding.FieldName = 'PieceNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Filtering = False @@ -97,6 +108,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object v1Column3: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Filtering = False @@ -105,12 +117,14 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object Tv1Column1: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 62 end object v2Column6: TcxGridDBColumn Caption = #31859#25968 DataBinding.FieldName = 'StkMeter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Filtering = False @@ -119,6 +133,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object v2Column5: TcxGridDBColumn Caption = #27611#37325 DataBinding.FieldName = 'StkGrossWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Filtering = False @@ -134,21 +149,16 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit Left = 1 Top = 1 Width = 607 - Height = 38 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 99 Caption = 'ToolBar1' Color = clWhite - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - Images = DataLink_KnitClothStk.ImageList_new32 + DisabledImages = DataLink_KnitClothStk.cxImageList_bar + Images = DataLink_KnitClothStk.cxImageList_bar List = True ParentColor = False - ParentFont = False ShowCaptions = True TabOrder = 1 object ToolButton6: TToolButton @@ -194,7 +204,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit end object Pnl_msg: TPanel Left = 1 - Top = 39 + Top = 31 Width = 607 Height = 35 Align = alTop @@ -227,6 +237,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit TabOrder = 0 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> OnCellDblClick = Tv2CellDblClick DataController.DataSource = DS_2 DataController.Filter.AutoDataSetFilter = True @@ -239,10 +250,10 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsView.GroupByBox = False - Styles.Footer = DataLink_KnitClothStk.Default object v1OrderNo: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Focusing = False Options.Sorting = False @@ -251,6 +262,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object v2Column2: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'CustomerNoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Focusing = False Width = 123 @@ -258,6 +270,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object cxGridDBColumn2: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Focusing = False Options.Sorting = False @@ -266,6 +279,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object cxGridDBColumn3: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Focusing = False Options.Sorting = False @@ -274,12 +288,14 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object Tv2Column2: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'ZPPS' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 48 end object v1Column10: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'ZPQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Focusing = False Width = 51 @@ -287,6 +303,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object v1PRTKZ: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Focusing = False Options.Sorting = False @@ -295,6 +312,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object v1PRTMF: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Focusing = False Options.Sorting = False @@ -303,6 +321,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object v1Column14: TcxGridDBColumn Caption = #21333#20301 DataBinding.FieldName = 'OrdUnit' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Focusing = False Width = 42 @@ -320,29 +339,29 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit Align = alClient TabOrder = 1 object Label4: TLabel - Left = 176 - Top = 49 - Width = 48 - Height = 12 + Left = 16 + Top = 103 + Width = 64 + Height = 21 Caption = #20986#24211#26102#38388 end object Label5: TLabel Left = 16 Top = 49 - Width = 48 - Height = 12 + Width = 64 + Height = 21 Caption = #20986#24211#21333#21495 end object Label11: TLabel - Left = 352 + Left = 223 Top = 49 - Width = 48 - Height = 12 + Width = 64 + Height = 21 Caption = #20986#24211#31867#22411 end object Label6: TLabel - Left = 30 - Top = 99 + Left = 222 + Top = 98 Width = 66 Height = 33 Caption = #25195#25551 @@ -354,75 +373,38 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit ParentFont = False end object Label1: TLabel - Left = 520 - Top = 49 - Width = 48 - Height = 12 + Left = 424 + Top = 48 + Width = 64 + Height = 21 Caption = #25910#36135#21333#20301 end - object DlyDate: TDateTimePicker + object DRMID: TcxTextEdit Tag = 8 - Left = 224 - Top = 45 - Width = 100 - Height = 20 - Date = 41337.000000000000000000 - Format = 'yyyy-MM-dd' - Time = 0.663190821760508700 + Left = 86 + Top = 43 Enabled = False + ParentFont = False TabOrder = 0 - end - object DRMID: TEdit - Tag = 8 - Left = 64 - Top = 45 - Width = 100 - Height = 20 - Enabled = False - TabOrder = 1 - end - object OutType: TComboBox - Tag = 8 - Left = 400 - Top = 45 - Width = 100 - Height = 20 - Style = csDropDownList - Enabled = False - ItemIndex = 0 - TabOrder = 2 - Text = #38144#21806#20986#24211 - Items.Strings = ( - #38144#21806#20986#24211 - #21152#24037#20986#24211 - #22238#20462#20986#24211 - #25439#32791#20986#24211 - #27425#21697#20986#24211 - #20854#20182#20986#24211 - #30424#20111#20986#24211) + Width = 123 end object ToolBar3: TToolBar Tag = 1 Left = 1 Top = 1 Width = 737 - Height = 38 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 103 + ButtonHeight = 30 + ButtonWidth = 115 Caption = 'ToolBar1' Color = clWhite - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - Images = DataLink_KnitClothStk.ImageList_new32 + DisabledImages = DataLink_KnitClothStk.cxImageList_bar + Images = DataLink_KnitClothStk.cxImageList_bar List = True ParentColor = False - ParentFont = False ShowCaptions = True - TabOrder = 3 + TabOrder = 1 object btnGetOutNo: TToolButton Left = 0 Top = 0 @@ -432,7 +414,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit OnClick = btnGetOutNoClick end object ToolButton5: TToolButton - Left = 107 + Left = 119 Top = 0 AutoSize = True Caption = #36873#25321#20986#24211#21333 @@ -440,7 +422,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit OnClick = ToolButton5Click end object ToolButton3: TToolButton - Left = 214 + Left = 238 Top = 0 AutoSize = True Caption = #30721#21333#25171#21360 @@ -448,7 +430,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit OnClick = ToolButton3Click end object ToolButton8: TToolButton - Left = 309 + Left = 341 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -456,7 +438,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit OnClick = ToolButton8Click end object ToolButton7: TToolButton - Left = 404 + Left = 444 Top = 0 AutoSize = True Caption = #20851#38381 @@ -464,28 +446,53 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit OnClick = ToolButton7Click end end - object edtScan: TEdit - Left = 102 - Top = 71 - Width = 411 - Height = 72 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -64 - Font.Name = #23435#20307 - Font.Style = [] + object edtScan: TcxTextEdit + Left = 294 + Top = 98 ParentFont = False - TabOrder = 4 + TabOrder = 2 OnKeyPress = edtScanKeyPress + Width = 411 end - object ToCoName: TEdit + object ToCoName: TcxTextEdit Tag = 8 - Left = 568 - Top = 45 - Width = 100 - Height = 20 + Left = 496 + Top = 43 Enabled = False + ParentFont = False + TabOrder = 3 + Width = 121 + end + object DlyDate: TcxDateEdit + Tag = 8 + Left = 86 + Top = 98 + AutoSize = False + EditValue = 45490d + ParentFont = False + Properties.ShowTime = False + TabOrder = 4 + Height = 33 + Width = 123 + end + object OutType: TcxComboBox + Tag = 8 + Left = 293 + Top = 43 + AutoSize = False + ParentFont = False + Properties.Items.Strings = ( + #38144#21806#20986#24211 + #21152#24037#20986#24211 + #22238#20462#20986#24211 + #25439#32791#20986#24211 + #27425#21697#20986#24211 + #20854#20182#20986#24211 + #30424#20111#20986#24211) TabOrder = 5 + Text = #38144#21806#20986#24211 + Height = 33 + Width = 124 end end end @@ -499,13 +506,14 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit TabOrder = 1 object cxGrid3: TcxGrid Left = 1 - Top = 39 + Top = 31 Width = 739 - Height = 423 + Height = 431 Align = alClient TabOrder = 0 object Tv3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_3 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -535,6 +543,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object v3Column5: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked @@ -545,6 +554,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object cxGridDBColumn1: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'orderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 90 @@ -552,6 +562,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object cxGridDBColumn4: TcxGridDBColumn Caption = #21367#21495 DataBinding.FieldName = 'PieceNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 52 @@ -559,6 +570,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object v3MJID: TcxGridDBColumn Caption = #21367#26465#30721 DataBinding.FieldName = 'StkId' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 60 @@ -566,6 +578,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object v3Column3: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -573,12 +586,14 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object Tv3Column1: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 67 end object v3Column4: TcxGridDBColumn Caption = #21345#21495 DataBinding.FieldName = 'PCID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 65 @@ -586,6 +601,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object cxGridDBColumn6: TcxGridDBColumn Caption = #31859#25968 DataBinding.FieldName = 'StkMeter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Options.Focusing = False @@ -594,6 +610,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object v3Column1: TcxGridDBColumn Caption = #27611#37325 DataBinding.FieldName = 'StkGrossWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 59 @@ -601,6 +618,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object Tv3Column2: TcxGridDBColumn Caption = #26102#38388 DataBinding.FieldName = 'filltime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 72 @@ -608,6 +626,7 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit object Tv3Column3: TcxGridDBColumn Caption = #26426#21488#21495 DataBinding.FieldName = 'Loom' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False end @@ -621,21 +640,16 @@ inherited frmKnitClothOutEdit: TfrmKnitClothOutEdit Left = 1 Top = 1 Width = 739 - Height = 38 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 99 Caption = 'ToolBar1' Color = clWhite - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - Images = DataLink_KnitClothStk.ImageList_new32 + DisabledImages = DataLink_KnitClothStk.cxImageList_bar + Images = DataLink_KnitClothStk.cxImageList_bar List = True ParentColor = False - ParentFont = False ShowCaptions = True TabOrder = 1 object ToolButton11: TToolButton diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothOutEdit.pas b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothOutEdit.pas index a630fa8..510a665 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothOutEdit.pas +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothOutEdit.pas @@ -11,7 +11,24 @@ uses cxControls, cxGridCustomView, cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, U_BaseList, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, RM_Common, RM_Class, - RM_GridReport, RM_Dataset, Vcl.ToolWin; + RM_GridReport, RM_Dataset, Vcl.ToolWin, dxSkinBasic, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue, dxScrollbarAnnotations, cxContainer, cxTextEdit, dxCore, + cxDateUtils, cxMaskEdit, cxDropDownEdit, cxCalendar; type TfrmKnitClothOutEdit = class(TfrmBaseList) @@ -72,16 +89,14 @@ type Label4: TLabel; Label5: TLabel; Label11: TLabel; - DlyDate: TDateTimePicker; - DRMID: TEdit; - OutType: TComboBox; + DRMID: TcxTextEdit; ToolBar3: TToolBar; ToolButton3: TToolButton; btnGetOutNo: TToolButton; ToolButton6: TToolButton; ToolButton7: TToolButton; ToolButton8: TToolButton; - edtScan: TEdit; + edtScan: TcxTextEdit; Label6: TLabel; ToolButton9: TToolButton; ToolButton10: TToolButton; @@ -91,11 +106,13 @@ type ToolButton4: TToolButton; ToolButton5: TToolButton; Label1: TLabel; - ToCoName: TEdit; + ToCoName: TcxTextEdit; Pnl_msg: TPanel; Tv3Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn; Tv3Column3: TcxGridDBColumn; + DlyDate: TcxDateEdit; + OutType: TcxComboBox; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormDestroy(Sender: TObject); procedure FormShow(Sender: TObject); @@ -298,7 +315,7 @@ begin sql.Add(') '); Sql.Add('exec P_Knit_Cloth_Out '); Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds))); - Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', DlyDate.DateTime))); + Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', DlyDate.Date))); Sql.Add(',@IOType=' + Quotedstr(OutType.Text)); Sql.Add(',@IONO=' + Quotedstr(DRMID.Text)); Sql.Add(',@FillId=' + Quotedstr(DCode)); @@ -379,7 +396,7 @@ begin Sql.Add('exec P_Knit_Cloth_Out '); Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds))); - Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', DlyDate.DateTime))); + Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', DlyDate.Date))); Sql.Add(',@IOType=' + Quotedstr(OutType.Text)); Sql.Add(',@IONO=' + Quotedstr(DRMID.Text)); Sql.Add(',@FillId=' + Quotedstr(DCode)); @@ -425,7 +442,7 @@ begin InitGrid2(); InitGrid1(); InitGrid3(); - DlyDate.DateTime := SGetServerDate(ADOQueryTemp); + DlyDate.Date := SGetServerDate(ADOQueryTemp); end; procedure TfrmKnitClothOutEdit.Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); @@ -601,7 +618,7 @@ begin sql.Add(') '); Sql.Add('exec P_Knit_Cloth_Out '); Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds))); - Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', DlyDate.DateTime))); + Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', DlyDate.Date))); Sql.Add(',@IOType=' + Quotedstr(OutType.Text)); Sql.Add(',@IONO=' + Quotedstr(DRMID.Text)); Sql.Add(',@FillId=' + Quotedstr(DCode)); @@ -796,3 +813,4 @@ end; end. + diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothOutList.dfm b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothOutList.dfm index f6fc2c6..dca4e27 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothOutList.dfm +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothOutList.dfm @@ -4,33 +4,33 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList Caption = #25104#21697#20986#24211#21015#34920 ClientHeight = 567 ClientWidth = 1544 + ParentFont = False + Font.Charset = ANSI_CHARSET + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 FormStyle = fsMDIChild Position = poScreenCenter Visible = True + ExplicitLeft = -99 ExplicitWidth = 1560 ExplicitHeight = 606 PixelsPerInch = 96 - TextHeight = 12 + TextHeight = 21 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 Top = 0 Width = 1544 - Height = 38 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 99 Caption = 'ToolBar1' Color = clWhite - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - Images = DataLink_KnitClothStk.ImageList_new32 + DisabledImages = DataLink_KnitClothStk.cxImageList_bar + Images = DataLink_KnitClothStk.cxImageList_bar List = True ParentColor = False - ParentFont = False ShowCaptions = True TabOrder = 0 object TBRafresh: TToolButton @@ -50,7 +50,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList OnClick = TBRKCXClick end object ToolButton1: TToolButton - Left = 166 + Left = 174 Top = 0 AutoSize = True Caption = #25353#21333#25171#21360 @@ -58,7 +58,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList OnClick = ToolButton1Click end object ToolButton2: TToolButton - Left = 261 + Left = 277 Top = 0 AutoSize = True Caption = #21246#36873#25171#21360 @@ -67,7 +67,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList OnClick = ToolButton2Click end object TBExport: TToolButton - Left = 356 + Left = 380 Top = 0 AutoSize = True Caption = #23548#20986 @@ -75,7 +75,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList OnClick = TBExportClick end object ToolButton4: TToolButton - Left = 427 + Left = 451 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -83,7 +83,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList OnClick = ToolButton4Click end object TBClose: TToolButton - Left = 522 + Left = 554 Top = 0 AutoSize = True Caption = #20851#38381 @@ -93,22 +93,16 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList end object cxPageControl1: TcxPageControl [1] Left = 0 - Top = 38 + Top = 30 Width = 1544 - Height = 529 + Height = 537 Align = alClient - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -21 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False TabOrder = 1 - Properties.ActivePage = cxTabSheet1 + Properties.ActivePage = cxTabSheet2 Properties.CustomButtons.Buttons = <> Properties.Style = 5 OnChange = cxPageControl1Change - ClientRectBottom = 529 + ClientRectBottom = 537 ClientRectRight = 1544 ClientRectTop = 32 object cxTabSheet1: TcxTabSheet @@ -118,7 +112,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList Left = 0 Top = 0 Width = 1544 - Height = 67 + Height = 121 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered @@ -126,177 +120,105 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList ParentBackground = False TabOrder = 0 object Label11: TLabel - Left = 195 - Top = 10 - Width = 52 - Height = 12 + Left = 25 + Top = 46 + Width = 64 + Height = 21 Hint = '0' Caption = #35745#21010#21333#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object TLabel - Left = 362 - Top = 10 - Width = 39 - Height = 12 + Left = 197 + Top = 46 + Width = 48 + Height = 21 Hint = '0' Caption = #21512#21516#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label12: TLabel - Left = 525 - Top = 10 - Width = 26 - Height = 12 + Left = 353 + Top = 46 + Width = 32 + Height = 21 Hint = '0' Caption = #39068#33394 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label13: TLabel - Left = 671 - Top = 36 - Width = 39 - Height = 12 + Left = 493 + Top = 85 + Width = 48 + Height = 21 Hint = '1' Caption = #21367#26465#30721 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label14: TLabel - Left = 362 - Top = 36 - Width = 39 - Height = 12 + Left = 197 + Top = 85 + Width = 48 + Height = 21 Hint = '0' Caption = #20135#21697#21517 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label15: TLabel - Left = 525 - Top = 36 - Width = 26 - Height = 12 + Left = 353 + Top = 85 + Width = 32 + Height = 21 Hint = '0' Caption = #33457#22411 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label16: TLabel - Left = 195 - Top = 36 - Width = 52 - Height = 12 + Left = 25 + Top = 85 + Width = 64 + Height = 21 Hint = '0' Caption = #20135#21697#32534#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label17: TLabel - Left = 684 - Top = 10 - Width = 26 - Height = 12 + Left = 493 + Top = 47 + Width = 32 + Height = 21 Hint = '0' Caption = #21345#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label18: TLabel - Left = 836 - Top = 10 - Width = 26 - Height = 12 + Left = 649 + Top = 46 + Width = 32 + Height = 21 Hint = '0' Caption = #23458#25143 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label19: TLabel - Left = 836 - Top = 36 - Width = 26 - Height = 12 + Left = 649 + Top = 85 + Width = 32 + Height = 21 Hint = '1' Caption = #25209#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label21: TLabel - Left = 980 - Top = 10 - Width = 52 - Height = 12 + Left = 789 + Top = 46 + Width = 64 + Height = 21 Hint = '0' Caption = #20986#24211#21333#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label9: TLabel - Left = 66 - Top = 36 - Width = 13 - Height = 12 + Left = 692 + Top = 158 + Width = 16 + Height = 21 Caption = #33267 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object DateTimePicker3: TDateTimePicker - Left = 137 + Left = 248 Top = 132 Width = 55 - Height = 20 + Height = 29 Date = 39780.000000000000000000 Format = 'HH:mm' Time = 39780.000000000000000000 @@ -304,256 +226,187 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList TabOrder = 0 end object DateTimePicker4: TDateTimePicker - Left = 137 + Left = 248 Top = 156 Width = 55 - Height = 20 + Height = 29 Date = 39780.000000000000000000 Format = 'HH:mm' Time = 0.999317129630071600 Kind = dtkTime TabOrder = 1 end - object Edit1: TEdit + object Edit1: TcxTextEdit Tag = 2 - Left = 248 - Top = 6 - Width = 100 - Height = 20 + Left = 93 + Top = 42 Hint = 'OrderNo' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 2 OnKeyPress = orderNoKeyPress - end - object Edit2: TEdit - Tag = 2 - Left = 409 - Top = 6 Width = 100 - Height = 20 + end + object Edit2: TcxTextEdit + Tag = 2 + Left = 249 + Top = 42 Hint = 'conNO' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 3 OnKeyPress = orderNoKeyPress - end - object Edit3: TEdit - Tag = 2 - Left = 711 - Top = 32 Width = 100 - Height = 20 + end + object Edit3: TcxTextEdit + Tag = 2 + Left = 545 + Top = 81 Hint = 'STKID' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 4 OnKeyPress = orderNoKeyPress - end - object Edit4: TEdit - Tag = 2 - Left = 407 - Top = 32 Width = 100 - Height = 20 + end + object Edit4: TcxTextEdit + Tag = 2 + Left = 249 + Top = 81 Hint = 'C_Name' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 5 OnKeyPress = orderNoKeyPress - end - object Edit5: TEdit - Tag = 2 - Left = 553 - Top = 6 Width = 100 - Height = 20 + end + object Edit5: TcxTextEdit + Tag = 2 + Left = 389 + Top = 42 Hint = 'C_Color' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 6 OnKeyPress = orderNoKeyPress - end - object Edit6: TEdit - Tag = 2 - Left = 553 - Top = 32 Width = 100 - Height = 20 + end + object Edit6: TcxTextEdit + Tag = 2 + Left = 389 + Top = 81 Hint = 'C_Pattern' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 7 OnKeyPress = orderNoKeyPress - end - object Edit7: TEdit - Tag = 2 - Left = 248 - Top = 32 Width = 100 - Height = 20 + end + object Edit7: TcxTextEdit + Tag = 2 + Left = 93 + Top = 81 Hint = 'C_Code' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 8 OnKeyPress = orderNoKeyPress - end - object Edit8: TEdit - Tag = 2 - Left = 711 - Top = 6 Width = 100 - Height = 20 + end + object Edit8: TcxTextEdit + Tag = 2 + Left = 545 + Top = 42 Hint = 'PCId' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 9 OnKeyPress = orderNoKeyPress - end - object Edit9: TEdit - Tag = 2 - Left = 863 - Top = 32 Width = 100 - Height = 20 + end + object Edit9: TcxTextEdit + Tag = 2 + Left = 685 + Top = 81 Hint = 'BatchNo' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 10 OnKeyPress = orderNoKeyPress - end - object Edit10: TEdit - Tag = 2 - Left = 863 - Top = 6 Width = 100 - Height = 20 + end + object Edit10: TcxTextEdit + Tag = 2 + Left = 685 + Top = 42 Hint = 'CustName' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 11 OnKeyPress = orderNoKeyPress - end - object Edit11: TEdit - Tag = 2 - Left = 1038 - Top = 6 Width = 100 - Height = 20 + end + object Edit11: TcxTextEdit + Tag = 2 + Left = 857 + Top = 42 Hint = 'IONO' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 12 OnKeyPress = orderNoKeyPress + Width = 100 end object BegDate2: TDateTimePicker - Left = 85 - Top = 6 + Left = 711 + Top = 128 Width = 87 - Height = 20 + Height = 29 Date = 40768.000000000000000000 Time = 0.458268587972270300 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False TabOrder = 13 end object EndDate2: TDateTimePicker - Left = 85 - Top = 32 + Left = 711 + Top = 154 Width = 87 - Height = 20 + Height = 29 Date = 40768.000000000000000000 Time = 0.458268587972270300 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False TabOrder = 14 end object chk_F2: TCheckBox - Left = 13 - Top = 8 + Left = 639 + Top = 130 Width = 70 Height = 17 Caption = #26597#35810#26085#26399 Checked = True - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False State = cbChecked TabOrder = 15 end + inline frmFrameDateSel2: TfrmFrameDateSel + Left = 2 + Top = 2 + Width = 1540 + Height = 37 + Align = alTop + TabOrder = 16 + ExplicitLeft = 2 + ExplicitTop = 2 + ExplicitWidth = 1540 + inherited BegDate: TcxDateEdit + ExplicitHeight = 33 + end + inherited EndDate: TcxDateEdit + ExplicitHeight = 33 + end + inherited cbbType: TcxComboBox + ExplicitHeight = 33 + end + end end object cxGrid2: TcxGrid Left = 0 - Top = 67 + Top = 121 Width = 1544 - Height = 430 + Height = 384 Align = alClient BorderStyle = cxcbsNone - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False PopupMenu = PM_2 TabOrder = 1 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> OnCellDblClick = TV2CellDblClick DataController.DataSource = DS_2 DataController.Filter.AutoDataSetFilter = True @@ -621,14 +474,10 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.IndicatorWidth = 30 - Styles.IncSearch = DataLink_KnitClothStk.SHuangSe - Styles.Footer = DataLink_KnitClothStk.Default - Styles.Header = DataLink_KnitClothStk.Default - Styles.Inactive = DataLink_KnitClothStk.SHuangSe - Styles.Selection = DataLink_KnitClothStk.SHuangSe object cxGridDBColumn2: TcxGridDBColumn Caption = #20986#24211#26102#38388 DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -637,6 +486,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList Tag = 11 Caption = #20986#24211#21333#21495 DataBinding.FieldName = 'IONO' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 78 @@ -644,6 +494,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object cxGridDBColumn13: TcxGridDBColumn Caption = #20986#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 75 @@ -651,6 +502,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object cxGridDBColumn3: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 77 @@ -658,18 +510,21 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object TV2Column7: TcxGridDBColumn Caption = #25104#20998 DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 70 end object TV2Column8: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 71 end object cxGridDBColumn4: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 76 @@ -677,6 +532,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object cxGridDBColumn5: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -684,6 +540,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object cxGridDBColumn7: TcxGridDBColumn Caption = #21367#25968 DataBinding.FieldName = 'SumPieceNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -691,6 +548,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object cxGridDBColumn8: TcxGridDBColumn Caption = #27611#37325 DataBinding.FieldName = 'SumGrossWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -698,6 +556,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object cxGridDBColumn9: TcxGridDBColumn Caption = #30382#37325 DataBinding.FieldName = 'SumTare' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -705,6 +564,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object cxGridDBColumn10: TcxGridDBColumn Caption = #20928#37325 DataBinding.FieldName = 'SumNetWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -712,6 +572,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object cxGridDBColumn11: TcxGridDBColumn Caption = #31859#25968 DataBinding.FieldName = 'SumMeter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -719,6 +580,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object cxGridDBColumn12: TcxGridDBColumn Caption = #30721#25968 DataBinding.FieldName = 'SumYardage' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -726,6 +588,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object cxGridDBColumn14: TcxGridDBColumn Caption = #21697#36136 DataBinding.FieldName = 'Grade' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -733,6 +596,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object cxGridDBColumn15: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -740,6 +604,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object cxGridDBColumn16: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -747,6 +612,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object v1Column46: TcxGridDBColumn Caption = #26816#39564#26426#21488 DataBinding.FieldName = 'CIMachNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -754,6 +620,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object TV2Column1: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -761,6 +628,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object TV2Column2: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -768,6 +636,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object TV2Column3: TcxGridDBColumn Caption = #24211#20301 DataBinding.FieldName = 'IOPosition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -775,6 +644,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object TV2Column4: TcxGridDBColumn Caption = #25910#33719#21333#20301 DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 79 @@ -782,11 +652,13 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object TV2Column6: TcxGridDBColumn Caption = #21457#36135#21152#37325 DataBinding.FieldName = 'DRAddWet' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter end object TV2Column9: TcxGridDBColumn Caption = #32433#32447 DataBinding.FieldName = 'YarnList' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False end @@ -799,295 +671,117 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object cxTabSheet2: TcxTabSheet Caption = ' '#20135#21697#26126#32454#20449#24687' ' ImageIndex = 1 - ExplicitTop = 0 - ExplicitWidth = 0 - ExplicitHeight = 0 - object Panel6: TPanel - Left = 0 - Top = 67 - Width = 1544 - Height = 46 - Align = alTop - BorderStyle = bsSingle - TabOrder = 0 - DesignSize = ( - 1540 - 42) - object Label31: TLabel - Left = 35 - Top = 11 - Width = 84 - Height = 13 - Alignment = taCenter - Anchors = [akLeft] - Caption = #27599#39029#35760#24405#26465#25968 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Layout = tlCenter - ExplicitTop = 5 - end - object LBCPAP: TLabel - Left = 357 - Top = 7 - Width = 85 - Height = 20 - Alignment = taCenter - Anchors = [akLeft] - AutoSize = False - Caption = #24403#21069#39029'/'#24635#39029#25968 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Layout = tlCenter - ExplicitTop = 1 - end - object BTLP: TButton - Left = 270 - Top = 7 - Width = 78 - Height = 20 - Anchors = [akLeft] - Caption = #19978#19968#39029 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 0 - OnClick = BTLPClick - end - object BTNP: TButton - Left = 453 - Top = 7 - Width = 78 - Height = 20 - Anchors = [akLeft] - Caption = #19979#19968#39029 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 1 - OnClick = BTNPClick - end - object TCBNOR: TComboBox - Tag = 2 - Left = 125 - Top = 8 - Width = 78 - Height = 20 - Style = csDropDownList - Anchors = [akLeft] - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ItemIndex = 0 - ParentFont = False - TabOrder = 2 - Text = '500' - OnChange = TCBNORChange - Items.Strings = ( - '500' - '1000' - '5000' - '10000') - end - end object Pnl_F1: TPanel Left = 0 - Top = 0 + Top = 37 Width = 1544 - Height = 67 + Height = 121 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clWhite ParentBackground = False - TabOrder = 1 + TabOrder = 0 object Label3: TLabel - Left = 195 - Top = 10 - Width = 52 - Height = 12 + Left = 27 + Top = 46 + Width = 64 + Height = 21 Hint = '0' Caption = #35745#21010#21333#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object TLabel - Left = 362 - Top = 10 - Width = 39 - Height = 12 + Left = 199 + Top = 46 + Width = 48 + Height = 21 Hint = '0' Caption = #21512#21516#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label7: TLabel - Left = 525 - Top = 10 - Width = 26 - Height = 12 + Left = 355 + Top = 46 + Width = 32 + Height = 21 Hint = '0' Caption = #39068#33394 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label10: TLabel - Left = 671 - Top = 36 - Width = 39 - Height = 12 + Left = 495 + Top = 84 + Width = 48 + Height = 21 Hint = '1' Caption = #21367#26465#30721 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label5: TLabel - Left = 362 - Top = 36 - Width = 39 - Height = 12 + Left = 199 + Top = 84 + Width = 48 + Height = 21 Hint = '0' Caption = #20135#21697#21517 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label20: TLabel - Left = 525 - Top = 36 - Width = 26 - Height = 12 + Left = 355 + Top = 84 + Width = 32 + Height = 21 Hint = '0' Caption = #33457#22411 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label23: TLabel - Left = 195 - Top = 36 - Width = 52 - Height = 12 + Left = 27 + Top = 84 + Width = 64 + Height = 21 Hint = '0' Caption = #20135#21697#32534#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label1: TLabel - Left = 684 - Top = 10 - Width = 26 - Height = 12 + Left = 495 + Top = 46 + Width = 32 + Height = 21 Hint = '0' Caption = #21345#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label6: TLabel - Left = 836 - Top = 10 - Width = 26 - Height = 12 + Left = 651 + Top = 46 + Width = 32 + Height = 21 Hint = '0' Caption = #23458#25143 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label4: TLabel - Left = 836 - Top = 36 - Width = 26 - Height = 12 + Left = 651 + Top = 84 + Width = 32 + Height = 21 Hint = '1' Caption = #25209#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label8: TLabel - Left = 980 - Top = 10 - Width = 52 - Height = 12 + Left = 791 + Top = 46 + Width = 64 + Height = 21 Hint = '0' Caption = #20986#24211#21333#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label2: TLabel - Left = 70 - Top = 36 - Width = 13 - Height = 12 + Left = 702 + Top = 184 + Width = 16 + Height = 21 Caption = #33267 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object begtime: TDateTimePicker Left = 137 Top = 132 Width = 55 - Height = 20 + Height = 29 Date = 39780.000000000000000000 Format = 'HH:mm' Time = 39780.000000000000000000 @@ -1098,253 +792,184 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList Left = 137 Top = 156 Width = 55 - Height = 20 + Height = 29 Date = 39780.000000000000000000 Format = 'HH:mm' Time = 0.999317129630071600 Kind = dtkTime TabOrder = 1 end - object OrderNo: TEdit + object OrderNo: TcxTextEdit Tag = 2 - Left = 248 - Top = 6 - Width = 100 - Height = 20 + Left = 95 + Top = 42 Hint = 'OrderNo' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 2 OnKeyPress = orderNoKeyPress - end - object conNO: TEdit - Tag = 2 - Left = 409 - Top = 6 Width = 100 - Height = 20 + end + object conNO: TcxTextEdit + Tag = 2 + Left = 251 + Top = 42 Hint = 'conNO' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 3 OnKeyPress = orderNoKeyPress - end - object STKID: TEdit - Tag = 2 - Left = 711 - Top = 32 Width = 100 - Height = 20 + end + object STKID: TcxTextEdit + Tag = 2 + Left = 547 + Top = 80 Hint = 'STKID' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 4 OnKeyPress = orderNoKeyPress - end - object C_Name: TEdit - Tag = 2 - Left = 407 - Top = 32 Width = 100 - Height = 20 + end + object C_Name: TcxTextEdit + Tag = 2 + Left = 251 + Top = 80 Hint = 'C_Name' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 5 OnKeyPress = orderNoKeyPress - end - object C_Color: TEdit - Tag = 2 - Left = 553 - Top = 6 Width = 100 - Height = 20 + end + object C_Color: TcxTextEdit + Tag = 2 + Left = 391 + Top = 42 Hint = 'C_Color' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 6 OnKeyPress = orderNoKeyPress - end - object C_Pattern: TEdit - Tag = 2 - Left = 553 - Top = 32 Width = 100 - Height = 20 + end + object C_Pattern: TcxTextEdit + Tag = 2 + Left = 391 + Top = 80 Hint = 'C_Pattern' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 7 OnKeyPress = orderNoKeyPress - end - object C_Code: TEdit - Tag = 2 - Left = 248 - Top = 32 Width = 100 - Height = 20 + end + object C_Code: TcxTextEdit + Tag = 2 + Left = 95 + Top = 80 Hint = 'C_Code' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 8 OnKeyPress = orderNoKeyPress - end - object PCId: TEdit - Tag = 2 - Left = 711 - Top = 6 Width = 100 - Height = 20 + end + object PCId: TcxTextEdit + Tag = 2 + Left = 547 + Top = 42 Hint = 'PCId' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 9 OnKeyPress = orderNoKeyPress - end - object BatchNo: TEdit - Tag = 2 - Left = 863 - Top = 32 Width = 100 - Height = 20 + end + object BatchNo: TcxTextEdit + Tag = 2 + Left = 687 + Top = 80 Hint = 'BatchNo' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 10 OnKeyPress = orderNoKeyPress - end - object CustName: TEdit - Tag = 2 - Left = 863 - Top = 6 Width = 100 - Height = 20 + end + object CustName: TcxTextEdit + Tag = 2 + Left = 687 + Top = 42 Hint = 'CustName' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 11 OnKeyPress = orderNoKeyPress - end - object IONO: TEdit - Tag = 2 - Left = 1038 - Top = 6 Width = 100 - Height = 20 + end + object IONO: TcxTextEdit + Tag = 2 + Left = 859 + Top = 42 Hint = 'IONO' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 12 OnKeyPress = orderNoKeyPress + Width = 100 end object BegDate: TDateTimePicker - Left = 88 - Top = 6 + Left = 720 + Top = 154 Width = 87 - Height = 20 + Height = 29 Date = 40768.000000000000000000 Time = 0.458268587972270300 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False TabOrder = 13 end object EndDate: TDateTimePicker - Left = 88 - Top = 32 + Left = 720 + Top = 180 Width = 87 - Height = 20 + Height = 29 Date = 40768.000000000000000000 Time = 0.458268587972270300 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False TabOrder = 14 end object chk_F1: TCheckBox - Left = 14 - Top = 8 + Left = 646 + Top = 156 Width = 73 Height = 17 Caption = #26597#35810#26085#26399 Checked = True - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False State = cbChecked TabOrder = 15 end + inline frmFrameDateSel: TfrmFrameDateSel + Left = 2 + Top = 2 + Width = 1540 + Height = 37 + Align = alTop + TabOrder = 16 + ExplicitLeft = 2 + ExplicitTop = 2 + ExplicitWidth = 1540 + inherited BegDate: TcxDateEdit + ExplicitHeight = 33 + end + inherited EndDate: TcxDateEdit + ExplicitHeight = 33 + end + inherited cbbType: TcxComboBox + ExplicitHeight = 33 + end + end end object cxGrid1: TcxGrid Left = 0 - Top = 113 + Top = 158 Width = 1544 - Height = 384 + Height = 347 Align = alClient BorderStyle = cxcbsNone - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False PopupMenu = PM_1 - TabOrder = 2 + TabOrder = 1 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> OnCellDblClick = Tv1CellDblClick DataController.DataSource = DS_1 DataController.Filter.AutoDataSetFilter = True @@ -1413,14 +1038,10 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.IndicatorWidth = 30 - Styles.IncSearch = DataLink_KnitClothStk.SHuangSe - Styles.Footer = DataLink_KnitClothStk.Default - Styles.Header = DataLink_KnitClothStk.Default - Styles.Inactive = DataLink_KnitClothStk.SHuangSe - Styles.Selection = DataLink_KnitClothStk.SHuangSe object v1Column22: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked @@ -1431,6 +1052,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object v1Column21: TcxGridDBColumn Caption = #20986#24211#26102#38388 DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 103 @@ -1438,12 +1060,14 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object Tv1Column11: TcxGridDBColumn Caption = #20986#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 82 end object Tv1Column9: TcxGridDBColumn Caption = #20986#24211#21333#21495 DataBinding.FieldName = 'IONO' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 82 @@ -1451,6 +1075,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object v1Column32: TcxGridDBColumn Caption = #21512#21516#21495 DataBinding.FieldName = 'ConNO' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 76 @@ -1458,6 +1083,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object v1Column1: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 92 @@ -1465,6 +1091,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object Tv1Column4: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 74 @@ -1472,6 +1099,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object v1Column13: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1479,6 +1107,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object v1Column4: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1486,6 +1115,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object v1Column18: TcxGridDBColumn Caption = #21345#21495 DataBinding.FieldName = 'PCId' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1493,6 +1123,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object v1Column23: TcxGridDBColumn Caption = #21367#21495 DataBinding.FieldName = 'PieceNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1500,6 +1131,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object v1Column8: TcxGridDBColumn Caption = #27611#37325 DataBinding.FieldName = 'GrossWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1507,6 +1139,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object v1Column27: TcxGridDBColumn Caption = #30382#37325 DataBinding.FieldName = 'Tare' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1514,6 +1147,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object v1Column28: TcxGridDBColumn Caption = #20928#37325 DataBinding.FieldName = 'NetWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1521,6 +1155,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object v1Column10: TcxGridDBColumn Caption = #31859#25968 DataBinding.FieldName = 'Meter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1528,12 +1163,14 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object Tv1Column12: TcxGridDBColumn Caption = #24211#20301 DataBinding.FieldName = 'IOPosition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 71 end object Tv1Column10: TcxGridDBColumn Caption = #30721#25968 DataBinding.FieldName = 'Yardage' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1541,6 +1178,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object v1Column12: TcxGridDBColumn Caption = #21697#36136 DataBinding.FieldName = 'Grade' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1548,6 +1186,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object v1Column42: TcxGridDBColumn Caption = #24635#35760#24405#25968 DataBinding.FieldName = 'TotalCount' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1555,10 +1194,12 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object Tv1Column5: TcxGridDBColumn Caption = #21457#36135#21152#37325 DataBinding.FieldName = 'DRAddWet' + DataBinding.IsNullValueType = True end object v1Column6: TcxGridDBColumn Caption = #21367#26465#30721 DataBinding.FieldName = 'CIID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1566,6 +1207,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object Tv1Column7: TcxGridDBColumn Caption = #23458#25143#33457#22411 DataBinding.FieldName = 'C_CustPattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1573,6 +1215,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object v1Column3: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1580,12 +1223,14 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object Tv1Column14: TcxGridDBColumn Caption = #25490#32433 DataBinding.FieldName = 'YarnArrangement' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 124 end object v1Column5: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1593,6 +1238,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object v1Column40: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1600,6 +1246,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object Tv1Column8: TcxGridDBColumn Caption = #23458#25143#21333#21495 DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1607,6 +1254,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object Tv1Column3: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1614,6 +1262,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object Tv1Column2: TcxGridDBColumn Caption = #25910#36135#21333#20301 DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 88 @@ -1621,6 +1270,7 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object Tv1Column1: TcxGridDBColumn Caption = #32455#26426#21495 DataBinding.FieldName = 'Loom' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 74 @@ -1628,18 +1278,21 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList object Tv1Column6: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 68 end object Tv1Column13: TcxGridDBColumn Caption = #25104#20998 DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 69 end object Tv1Column15: TcxGridDBColumn Caption = #32433#32447 DataBinding.FieldName = 'YarnList' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False end @@ -1648,17 +1301,45 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList GridView = Tv1 end end + inline frmFramePagingSel1: TfrmFramePagingSel + Left = 0 + Top = 0 + Width = 1544 + Height = 37 + Align = alTop + TabOrder = 2 + ExplicitWidth = 1544 + inherited BTLP: TcxButton + Left = 390 + OnClick = BTLPClick + ExplicitLeft = 390 + end + inherited cxButton3: TcxButton + OnClick = BTNPClick + end + inherited TCBNOR: TcxComboBox + Properties.Items.Strings = ( + '500' + '1000' + '2000' + '5000' + '10000') + Properties.OnChange = TCBNORChange + Text = '500' + ExplicitHeight = 33 + end + end end end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_KnitClothStk.ADOLink - Left = 553 - Top = 200 + Left = 601 + Top = 240 end inherited ADOQueryBaseTemp: TADOQuery Connection = DataLink_KnitClothStk.ADOLink - Left = 425 - Top = 201 + Left = 497 + Top = 353 end object ADOQueryCmd: TADOQuery Connection = DataLink_KnitClothStk.ADOLink @@ -1679,8 +1360,8 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList LockType = ltReadOnly CommandTimeout = 600 Parameters = <> - Left = 112 - Top = 204 + Left = 336 + Top = 340 end object DS_1: TDataSource DataSet = CDS_1 @@ -1742,4 +1423,9 @@ inherited frmKnitClothOutList: TfrmKnitClothOutList OnClick = MenuItem3Click end end + object cxStyleRepository1: TcxStyleRepository + PixelsPerInch = 96 + object cxStyle1: TcxStyle + end + end end diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothOutList.pas b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothOutList.pas index 960482b..7eafb36 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothOutList.pas +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothOutList.pas @@ -13,7 +13,24 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, - System.StrUtils; + System.StrUtils, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue, dxScrollbarAnnotations, cxContainer, FrameDateSel, + cxButtons, cxMaskEdit, FramePagingSel; type TfrmKnitClothOutList = class(TfrmBaseList) @@ -38,12 +55,6 @@ type cxPageControl1: TcxPageControl; cxTabSheet1: TcxTabSheet; cxTabSheet2: TcxTabSheet; - Panel6: TPanel; - Label31: TLabel; - LBCPAP: TLabel; - BTLP: TButton; - BTNP: TButton; - TCBNOR: TComboBox; Pnl_F1: TPanel; Label3: TLabel; Label7: TLabel; @@ -57,17 +68,17 @@ type Label8: TLabel; begtime: TDateTimePicker; endTime: TDateTimePicker; - OrderNo: TEdit; - conNO: TEdit; - STKID: TEdit; - C_Name: TEdit; - C_Color: TEdit; - C_Pattern: TEdit; - C_Code: TEdit; - PCId: TEdit; - BatchNo: TEdit; - CustName: TEdit; - IONO: TEdit; + OrderNo: TcxTextEdit; + conNO: TcxTextEdit; + STKID: TcxTextEdit; + C_Name: TcxTextEdit; + C_Color: TcxTextEdit; + C_Pattern: TcxTextEdit; + C_Code: TcxTextEdit; + PCId: TcxTextEdit; + BatchNo: TcxTextEdit; + CustName: TcxTextEdit; + IONO: TcxTextEdit; Pnl_F2: TPanel; Label11: TLabel; Label12: TLabel; @@ -81,17 +92,17 @@ type Label21: TLabel; DateTimePicker3: TDateTimePicker; DateTimePicker4: TDateTimePicker; - Edit1: TEdit; - Edit2: TEdit; - Edit3: TEdit; - Edit4: TEdit; - Edit5: TEdit; - Edit6: TEdit; - Edit7: TEdit; - Edit8: TEdit; - Edit9: TEdit; - Edit10: TEdit; - Edit11: TEdit; + Edit1: TcxTextEdit; + Edit2: TcxTextEdit; + Edit3: TcxTextEdit; + Edit4: TcxTextEdit; + Edit5: TcxTextEdit; + Edit6: TcxTextEdit; + Edit7: TcxTextEdit; + Edit8: TcxTextEdit; + Edit9: TcxTextEdit; + Edit10: TcxTextEdit; + Edit11: TcxTextEdit; GPM_2: TcxGridPopupMenu; CDS_2: TClientDataSet; DS_2: TDataSource; @@ -168,6 +179,11 @@ type Tv1Column14: TcxGridDBColumn; Tv1Column15: TcxGridDBColumn; TV2Column9: TcxGridDBColumn; + frmFrameDateSel2: TfrmFrameDateSel; + frmFrameDateSel: TfrmFrameDateSel; + frmFramePagingSel1: TfrmFramePagingSel; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -255,10 +271,10 @@ procedure TfrmKnitClothOutList.FormCreate(Sender: TObject); begin inherited; lstCust := TStringList.Create; - EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); - BegDate.DateTime := EndDate.DateTime - 20; - BegDate2.DateTime := BegDate.DateTime; - EndDate2.DateTime := EndDate.DateTime; + frmFrameDateSel.EndDate.Date := SGetServerDateTime(ADOQueryTemp); + frmFrameDateSel.BegDate.Date := frmFrameDateSel.EndDate.Date - 20; + frmFrameDateSel2.BegDate.Date := BegDate.DateTime; + frmFrameDateSel2.EndDate.Date := EndDate.DateTime; FWorkshop := trim(Self.fParameters3); end; @@ -273,8 +289,8 @@ begin begin if chk_F2.Checked then begin - WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate2.DateTime)); - WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate2.DateTime + 1)); + WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel2.BegDate.Date)); + WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel2.enddate.Date + 1)); end; with ADOQueryMain do begin @@ -301,8 +317,8 @@ begin begin if chk_F1.Checked then begin - WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); - WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel.BegDate.Date)); + WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel.enddate.Date + 1)); end; with ADOQueryMain do begin @@ -327,7 +343,8 @@ begin end; SCreateCDS(ADOQueryMain, CDS_1); SInitCDSData(ADOQueryMain, CDS_1); - LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber)); + frmFramePagingSel1.LBDQY.Caption := inttostr(CurrentPage); + frmFramePagingSel1.LBZYS.Caption := inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber)); end; end; @@ -371,6 +388,8 @@ begin SetStatus(); end; + + procedure TfrmKnitClothOutList.TBExportClick(Sender: TObject); begin if ADOQueryMain.IsEmpty then @@ -527,8 +546,8 @@ end; procedure TfrmKnitClothOutList.TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin - BegDate.DateTime := BegDate2.DateTime; - EndDate.DateTime := EndDate2.DateTime; + frmFrameDateSel.BegDate.Date := frmFrameDateSel2.BegDate.Date; + frmFrameDateSel.EndDate.Date := frmFrameDateSel2.EndDate.Date; chk_F2.Checked := chk_F1.Checked; cxPageControl1.ActivePageIndex := 1; SetStatus(); @@ -551,7 +570,7 @@ end; procedure TfrmKnitClothOutList.TCBNORChange(Sender: TObject); begin - RecordsNumber := StrToInt(TCBNOR.Text); + RecordsNumber := StrToInt(frmFramePagingSel1.TCBNOR.Text); CurrentPage := 1; InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); end; diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothStkList.dfm b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothStkList.dfm index dbb5418..6a72f92 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothStkList.dfm +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothStkList.dfm @@ -2,35 +2,32 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList Left = 184 Top = 138 Caption = #25104#21697#24211#23384#21015#34920 - ClientHeight = 600 + ClientHeight = 796 ClientWidth = 1541 + ParentFont = False + Font.Height = -16 FormStyle = fsMDIChild Position = poScreenCenter Visible = True ExplicitWidth = 1557 - ExplicitHeight = 639 + ExplicitHeight = 835 PixelsPerInch = 96 - TextHeight = 12 + TextHeight = 19 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 Top = 0 Width = 1541 - Height = 38 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 99 Caption = 'ToolBar1' Color = clWhite - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - Images = DataLink_KnitClothStk.ImageList_new32 + DisabledImages = DataLink_KnitClothStk.cxImageList_bar + Images = DataLink_KnitClothStk.cxImageList_bar List = True ParentColor = False - ParentFont = False ShowCaptions = True TabOrder = 0 object TBRafresh: TToolButton @@ -50,7 +47,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList OnClick = ToolButton2Click end object TBExport: TToolButton - Left = 166 + Left = 174 Top = 0 AutoSize = True Caption = #23548#20986 @@ -58,7 +55,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList OnClick = TBExportClick end object ToolButton4: TToolButton - Left = 237 + Left = 245 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -66,7 +63,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList OnClick = ToolButton4Click end object TBClose: TToolButton - Left = 332 + Left = 348 Top = 0 AutoSize = True Caption = #20851#38381 @@ -76,22 +73,22 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList end object cxPageControl1: TcxPageControl [1] Left = 0 - Top = 38 + Top = 30 Width = 1541 - Height = 562 + Height = 766 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -21 - Font.Name = #23435#20307 - Font.Style = [fsBold] + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 + Font.Style = [] ParentFont = False TabOrder = 1 - Properties.ActivePage = cxTabSheet1 + Properties.ActivePage = cxTabSheet2 Properties.CustomButtons.Buttons = <> Properties.Style = 5 OnChange = cxPageControl1Change - ClientRectBottom = 562 + ClientRectBottom = 766 ClientRectRight = 1541 ClientRectTop = 32 object cxTabSheet1: TcxTabSheet @@ -101,7 +98,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList Left = 0 Top = 0 Width = 1541 - Height = 67 + Height = 125 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered @@ -109,8 +106,8 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList ParentBackground = False TabOrder = 0 object Label1: TLabel - Left = 66 - Top = 36 + Left = 836 + Top = 160 Width = 13 Height = 12 Caption = #33267 @@ -122,150 +119,90 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList ParentFont = False end object Label4: TLabel - Left = 195 - Top = 10 - Width = 52 - Height = 12 + Left = 29 + Top = 49 + Width = 64 + Height = 21 Hint = '0' Caption = #35745#21010#21333#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object TLabel - Left = 362 - Top = 10 - Width = 39 - Height = 12 + Left = 201 + Top = 49 + Width = 48 + Height = 21 Hint = '0' Caption = #21512#21516#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label6: TLabel - Left = 525 - Top = 10 - Width = 26 - Height = 12 + Left = 357 + Top = 49 + Width = 32 + Height = 21 Hint = '0' Caption = #39068#33394 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label9: TLabel - Left = 671 - Top = 36 - Width = 39 - Height = 12 + Left = 497 + Top = 88 + Width = 48 + Height = 21 Hint = '1' Caption = #21367#26465#30721 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label11: TLabel - Left = 362 - Top = 36 - Width = 39 - Height = 12 + Left = 201 + Top = 88 + Width = 48 + Height = 21 Hint = '0' Caption = #20135#21697#21517 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label12: TLabel - Left = 684 - Top = 10 - Width = 26 - Height = 12 + Left = 497 + Top = 49 + Width = 32 + Height = 21 Hint = '0' Caption = #21345#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label20: TLabel - Left = 525 - Top = 36 - Width = 26 - Height = 12 + Left = 357 + Top = 88 + Width = 32 + Height = 21 Hint = '0' Caption = #33457#22411 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label13: TLabel - Left = 195 - Top = 36 - Width = 52 - Height = 12 + Left = 29 + Top = 88 + Width = 64 + Height = 21 Hint = '0' Caption = #20135#21697#32534#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label15: TLabel - Left = 836 - Top = 10 - Width = 26 - Height = 12 + Left = 653 + Top = 49 + Width = 32 + Height = 21 Hint = '0' Caption = #23458#25143 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label16: TLabel - Left = 836 - Top = 36 - Width = 26 - Height = 12 + Left = 653 + Top = 88 + Width = 32 + Height = 21 Hint = '1' Caption = #25209#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object DateTimePicker3: TDateTimePicker Left = 137 Top = 132 Width = 55 - Height = 20 + Height = 29 Date = 39780.000000000000000000 Format = 'HH:mm' Time = 39780.000000000000000000 @@ -276,7 +213,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList Left = 137 Top = 156 Width = 55 - Height = 20 + Height = 29 Date = 39780.000000000000000000 Format = 'HH:mm' Time = 0.999317129630071600 @@ -284,8 +221,8 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList TabOrder = 1 end object BegDate2: TDateTimePicker - Left = 85 - Top = 6 + Left = 743 + Top = 156 Width = 87 Height = 20 Date = 40768.000000000000000000 @@ -299,8 +236,8 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList TabOrder = 2 end object EndDate2: TDateTimePicker - Left = 85 - Top = 32 + Left = 855 + Top = 156 Width = 87 Height = 20 Date = 40768.000000000000000000 @@ -314,8 +251,8 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList TabOrder = 3 end object chk_F2: TCheckBox - Left = 13 - Top = 8 + Left = 671 + Top = 158 Width = 70 Height = 17 Caption = #26597#35810#26085#26399 @@ -327,184 +264,197 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList ParentFont = False TabOrder = 4 end - object Edit1: TEdit + object Edit1: TcxTextEdit Tag = 2 - Left = 253 - Top = 6 - Width = 100 - Height = 20 + Left = 97 + Top = 45 Hint = 'OrderNo' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 5 OnKeyPress = orderNoKeyPress - end - object Edit2: TEdit - Tag = 2 - Left = 409 - Top = 6 Width = 100 - Height = 20 + end + object Edit2: TcxTextEdit + Tag = 2 + Left = 253 + Top = 45 Hint = 'conNO' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 6 OnKeyPress = orderNoKeyPress - end - object Edit4: TEdit - Tag = 2 - Left = 716 - Top = 32 Width = 100 - Height = 20 + end + object Edit4: TcxTextEdit + Tag = 2 + Left = 549 + Top = 84 Hint = 'STKID' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 7 OnKeyPress = orderNoKeyPress - end - object Edit5: TEdit - Tag = 2 - Left = 409 - Top = 32 Width = 100 - Height = 20 + end + object Edit5: TcxTextEdit + Tag = 2 + Left = 253 + Top = 84 Hint = 'C_Name' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 8 OnKeyPress = orderNoKeyPress - end - object Edit6: TEdit - Tag = 2 - Left = 553 - Top = 6 Width = 100 - Height = 20 + end + object Edit6: TcxTextEdit + Tag = 2 + Left = 393 + Top = 45 Hint = 'C_Color' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 9 OnKeyPress = orderNoKeyPress - end - object Edit7: TEdit - Tag = 2 - Left = 716 - Top = 6 Width = 100 - Height = 20 + end + object Edit7: TcxTextEdit + Tag = 2 + Left = 549 + Top = 45 Hint = 'PCId' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 10 OnKeyPress = orderNoKeyPress - end - object C_Pattern: TEdit - Tag = 2 - Left = 553 - Top = 32 Width = 100 - Height = 20 + end + object C_Pattern: TcxTextEdit + Tag = 2 + Left = 393 + Top = 84 Hint = 'C_Pattern' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 11 OnKeyPress = orderNoKeyPress - end - object Edit8: TEdit - Tag = 2 - Left = 248 - Top = 32 Width = 100 - Height = 20 + end + object Edit8: TcxTextEdit + Tag = 2 + Left = 97 + Top = 84 Hint = 'C_Code' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 12 OnKeyPress = orderNoKeyPress - end - object Edit9: TEdit - Tag = 2 - Left = 863 - Top = 32 Width = 100 - Height = 20 + end + object Edit9: TcxTextEdit + Tag = 2 + Left = 689 + Top = 84 Hint = 'BatchNo' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 13 OnKeyPress = orderNoKeyPress - end - object Edit10: TEdit - Tag = 2 - Left = 863 - Top = 6 Width = 100 - Height = 20 + end + object Edit10: TcxTextEdit + Tag = 2 + Left = 689 + Top = 45 Hint = 'CustName' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 14 OnKeyPress = orderNoKeyPress + Width = 100 + end + inline frmFrameDateSel2: TfrmFrameDateSel + Left = 2 + Top = 2 + Width = 1537 + Height = 40 + Align = alTop + Color = clWhite + ParentBackground = False + ParentColor = False + TabOrder = 15 + ExplicitLeft = 2 + ExplicitTop = 2 + ExplicitWidth = 1537 + ExplicitHeight = 40 + inherited lbl1: TLabel + Left = 27 + Top = 10 + ExplicitLeft = 27 + ExplicitTop = 10 + end + inherited lbl2: TLabel + Left = 219 + Top = 10 + ExplicitLeft = 219 + ExplicitTop = 10 + end + inherited BegDate: TcxDateEdit + Left = 95 + Top = 4 + ExplicitLeft = 95 + ExplicitTop = 4 + ExplicitHeight = 33 + end + inherited EndDate: TcxDateEdit + Left = 239 + Top = 4 + ExplicitLeft = 239 + ExplicitTop = 4 + ExplicitHeight = 33 + end + inherited cxButton1: TcxButton + Left = 447 + Top = 4 + ExplicitLeft = 447 + ExplicitTop = 4 + end + inherited cxButton2: TcxButton + Left = 615 + Top = 4 + ExplicitLeft = 615 + ExplicitTop = 4 + end + inherited cxButton3: TcxButton + Left = 754 + Top = 4 + ExplicitLeft = 754 + ExplicitTop = 4 + end + inherited cbbType: TcxComboBox + Left = 699 + Top = 4 + ExplicitLeft = 699 + ExplicitTop = 4 + ExplicitHeight = 33 + end + inherited cxButton4: TcxButton + Left = 363 + Top = 4 + ExplicitLeft = 363 + ExplicitTop = 4 + end + inherited cxButton5: TcxButton + Left = 531 + Top = 4 + ExplicitLeft = 531 + ExplicitTop = 4 + end end end object cxGrid2: TcxGrid Left = 0 - Top = 67 + Top = 125 Width = 1541 - Height = 463 + Height = 609 Align = alClient BorderStyle = cxcbsNone - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False PopupMenu = PM_2 TabOrder = 1 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> OnCellDblClick = TV2CellDblClick OnCustomDrawCell = TV2CustomDrawCell DataController.DataSource = DS_2 @@ -569,15 +519,11 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.IndicatorWidth = 30 - Styles.IncSearch = DataLink_KnitClothStk.SHuangSe - Styles.Footer = DataLink_KnitClothStk.Default - Styles.Header = DataLink_KnitClothStk.Default - Styles.Inactive = DataLink_KnitClothStk.SHuangSe - Styles.Selection = DataLink_KnitClothStk.SHuangSe object cxGridDBColumn3: TcxGridDBColumn Tag = 11 Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 72 @@ -586,6 +532,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList Tag = 11 Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 76 @@ -594,6 +541,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList Tag = 11 Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -602,6 +550,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList Tag = 11 Caption = #25104#20998 DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 93 @@ -610,6 +559,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList Tag = 11 Caption = #23458#25143 DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -617,6 +567,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object cxGridDBColumn7: TcxGridDBColumn Caption = #21367#25968 DataBinding.FieldName = 'SumPieceNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -624,6 +575,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object cxGridDBColumn8: TcxGridDBColumn Caption = #27611#37325 DataBinding.FieldName = 'SumGrossWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -631,6 +583,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object cxGridDBColumn9: TcxGridDBColumn Caption = #30382#37325 DataBinding.FieldName = 'SumTare' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -638,6 +591,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object cxGridDBColumn10: TcxGridDBColumn Caption = #20928#37325 DataBinding.FieldName = 'SumNetWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -646,6 +600,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList Tag = 11 Caption = #35268#26684 DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 81 @@ -653,6 +608,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object cxGridDBColumn11: TcxGridDBColumn Caption = #31859#25968 DataBinding.FieldName = 'SumMeter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -660,6 +616,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object cxGridDBColumn12: TcxGridDBColumn Caption = #30721#25968 DataBinding.FieldName = 'SumYardage' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -667,6 +624,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object cxGridDBColumn14: TcxGridDBColumn Caption = #21697#36136 DataBinding.FieldName = 'Grade' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -674,6 +632,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object cxGridDBColumn15: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -681,6 +640,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object cxGridDBColumn16: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -689,6 +649,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList Tag = 11 Caption = #26816#39564#26426#21488 DataBinding.FieldName = 'CIMachNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -697,6 +658,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList Tag = 11 Caption = #24211#20301 DataBinding.FieldName = 'IOPosition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 71 @@ -704,12 +666,14 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object TV2Column3: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False end object TV2Column2: TcxGridDBColumn Caption = #36710#38388 DataBinding.FieldName = 'Workshop' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 58 end @@ -722,264 +686,101 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object cxTabSheet2: TcxTabSheet Caption = ' '#20135#21697#26126#32454#20449#24687' ' ImageIndex = 1 - object Panel6: TPanel - Left = 0 - Top = 67 - Width = 1541 - Height = 29 - Align = alTop - BorderStyle = bsSingle - TabOrder = 0 - DesignSize = ( - 1537 - 25) - object Label31: TLabel - Left = 35 - Top = 7 - Width = 84 - Height = 13 - Alignment = taCenter - Anchors = [akLeft] - Caption = #27599#39029#35760#24405#26465#25968 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Layout = tlCenter - ExplicitTop = 5 - end - object LBCPAP: TLabel - Left = 357 - Top = 3 - Width = 85 - Height = 20 - Alignment = taCenter - Anchors = [akLeft] - AutoSize = False - Caption = #24403#21069#39029'/'#24635#39029#25968 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - Layout = tlCenter - ExplicitTop = 1 - end - object BTLP: TButton - Left = 270 - Top = 4 - Width = 78 - Height = 20 - Anchors = [akLeft] - Caption = #19978#19968#39029 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 0 - OnClick = BTLPClick - end - object BTNP: TButton - Left = 453 - Top = 4 - Width = 78 - Height = 20 - Anchors = [akLeft] - Caption = #19979#19968#39029 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 1 - OnClick = BTNPClick - end - object TCBNOR: TComboBox - Tag = 2 - Left = 125 - Top = 4 - Width = 78 - Height = 20 - Style = csDropDownList - Anchors = [akLeft] - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ItemIndex = 0 - ParentFont = False - TabOrder = 2 - Text = '500' - OnChange = TCBNORChange - Items.Strings = ( - '500' - '1000' - '5000' - '10000') - end - end object Pnl_F1: TPanel Left = 0 - Top = 0 + Top = 37 Width = 1541 - Height = 67 + Height = 121 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clWhite ParentBackground = False - TabOrder = 1 + TabOrder = 0 object Label3: TLabel - Left = 195 - Top = 10 - Width = 52 - Height = 12 + Left = 29 + Top = 49 + Width = 64 + Height = 21 Hint = '0' Caption = #35745#21010#21333#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object TLabel - Left = 374 - Top = 10 - Width = 39 - Height = 12 + Left = 201 + Top = 49 + Width = 48 + Height = 21 Hint = '0' Caption = #21512#21516#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label7: TLabel - Left = 858 - Top = 10 - Width = 26 - Height = 12 + Left = 653 + Top = 49 + Width = 32 + Height = 21 Hint = '0' Caption = #39068#33394 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label10: TLabel - Left = 535 - Top = 36 - Width = 39 - Height = 12 + Left = 357 + Top = 88 + Width = 48 + Height = 21 Hint = '1' Caption = #21367#26465#30721 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label5: TLabel - Left = 374 - Top = 36 - Width = 39 - Height = 12 + Left = 201 + Top = 88 + Width = 48 + Height = 21 Hint = '0' Caption = #20135#21697#21517 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object lbl1: TLabel - Left = 548 - Top = 10 - Width = 26 - Height = 12 + Left = 357 + Top = 49 + Width = 32 + Height = 21 Hint = '0' Caption = #21345#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label23: TLabel - Left = 195 - Top = 36 - Width = 52 - Height = 12 + Left = 29 + Top = 88 + Width = 64 + Height = 21 Hint = '0' Caption = #20135#21697#32534#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label2: TLabel - Left = 70 - Top = 36 - Width = 13 - Height = 12 + Left = 713 + Top = 188 + Width = 16 + Height = 21 Caption = #33267 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label8: TLabel - Left = 703 - Top = 10 - Width = 26 - Height = 12 + Left = 513 + Top = 49 + Width = 32 + Height = 21 Hint = '0' Caption = #23458#25143 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label14: TLabel - Left = 703 - Top = 36 - Width = 26 - Height = 12 + Left = 513 + Top = 88 + Width = 32 + Height = 21 Hint = '1' Caption = #25209#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object begtime: TDateTimePicker - Left = 137 - Top = 132 + Left = 308 + Top = 164 Width = 55 - Height = 20 + Height = 29 Date = 39780.000000000000000000 Format = 'HH:mm' Time = 39780.000000000000000000 @@ -987,222 +788,220 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList TabOrder = 0 end object endTime: TDateTimePicker - Left = 137 - Top = 156 + Left = 308 + Top = 188 Width = 55 - Height = 20 + Height = 29 Date = 39780.000000000000000000 Format = 'HH:mm' Time = 0.999317129630071600 Kind = dtkTime TabOrder = 1 end - object OrderNo: TEdit + object OrderNo: TcxTextEdit Tag = 2 - Left = 253 - Top = 6 - Width = 100 - Height = 20 + Left = 97 + Top = 45 Hint = 'OrderNo' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 2 OnKeyPress = orderNoKeyPress - end - object conNO: TEdit - Tag = 2 - Left = 419 - Top = 6 Width = 100 - Height = 20 + end + object conNO: TcxTextEdit + Tag = 2 + Left = 253 + Top = 45 Hint = 'conNO' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 3 OnKeyPress = orderNoKeyPress - end - object STKID: TEdit - Tag = 2 - Left = 580 - Top = 32 Width = 100 - Height = 20 + end + object STKID: TcxTextEdit + Tag = 2 + Left = 409 + Top = 84 Hint = 'STKID' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 4 OnKeyPress = orderNoKeyPress - end - object C_Name: TEdit - Tag = 2 - Left = 419 - Top = 32 Width = 100 - Height = 20 + end + object C_Name: TcxTextEdit + Tag = 2 + Left = 253 + Top = 84 Hint = 'C_Name' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 5 OnKeyPress = orderNoKeyPress - end - object C_Color: TEdit - Tag = 2 - Left = 890 - Top = 6 Width = 100 - Height = 20 + end + object C_Color: TcxTextEdit + Tag = 2 + Left = 689 + Top = 45 Hint = 'C_Color' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 6 OnKeyPress = orderNoKeyPress - end - object PCId: TEdit - Tag = 2 - Left = 580 - Top = 6 Width = 100 - Height = 20 + end + object PCId: TcxTextEdit + Tag = 2 + Left = 409 + Top = 45 Hint = 'PCId' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 7 OnKeyPress = orderNoKeyPress - end - object C_Code: TEdit - Tag = 2 - Left = 253 - Top = 32 Width = 100 - Height = 20 + end + object C_Code: TcxTextEdit + Tag = 2 + Left = 97 + Top = 84 Hint = 'C_Code' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 8 OnKeyPress = orderNoKeyPress + Width = 100 end object BegDate: TDateTimePicker - Left = 88 - Top = 6 + Left = 731 + Top = 158 Width = 82 - Height = 20 + Height = 29 Date = 40768.000000000000000000 Time = 0.458268587972270300 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False TabOrder = 9 end object EndDate: TDateTimePicker - Left = 88 - Top = 32 + Left = 731 + Top = 184 Width = 82 - Height = 20 + Height = 29 Date = 40768.000000000000000000 Time = 0.458268587972270300 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False TabOrder = 10 end object chk_F1: TCheckBox - Left = 14 - Top = 8 + Left = 657 + Top = 160 Width = 73 Height = 17 Caption = #26597#35810#26085#26399 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False TabOrder = 11 end - object Edit3: TEdit + object Edit3: TcxTextEdit Tag = 2 - Left = 730 - Top = 32 - Width = 100 - Height = 20 + Left = 549 + Top = 84 Hint = 'BatchNo' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 12 OnKeyPress = orderNoKeyPress - end - object Edit11: TEdit - Tag = 2 - Left = 730 - Top = 6 Width = 100 - Height = 20 + end + object Edit11: TcxTextEdit + Tag = 2 + Left = 549 + Top = 45 Hint = 'CustName' - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] ParentFont = False TabOrder = 13 OnKeyPress = orderNoKeyPress + Width = 100 + end + inline frmFrameDateSel: TfrmFrameDateSel + Left = 2 + Top = 2 + Width = 1537 + Height = 40 + Align = alTop + TabOrder = 14 + ExplicitLeft = 2 + ExplicitTop = 2 + ExplicitWidth = 1537 + ExplicitHeight = 40 + inherited lbl1: TLabel + Left = 27 + Top = 10 + ExplicitLeft = 27 + ExplicitTop = 10 + end + inherited lbl2: TLabel + Left = 219 + Top = 10 + ExplicitLeft = 219 + ExplicitTop = 10 + end + inherited BegDate: TcxDateEdit + Left = 95 + Top = 4 + ExplicitLeft = 95 + ExplicitTop = 4 + ExplicitHeight = 33 + end + inherited EndDate: TcxDateEdit + Left = 239 + Top = 4 + ExplicitLeft = 239 + ExplicitTop = 4 + ExplicitHeight = 33 + end + inherited cxButton1: TcxButton + Left = 447 + Top = 4 + ExplicitLeft = 447 + ExplicitTop = 4 + end + inherited cxButton2: TcxButton + Left = 615 + Top = 4 + ExplicitLeft = 615 + ExplicitTop = 4 + end + inherited cxButton3: TcxButton + Left = 754 + Top = 4 + ExplicitLeft = 754 + ExplicitTop = 4 + end + inherited cbbType: TcxComboBox + Left = 699 + Top = 4 + ExplicitLeft = 699 + ExplicitTop = 4 + ExplicitHeight = 33 + end + inherited cxButton4: TcxButton + Left = 363 + Top = 4 + ExplicitLeft = 363 + ExplicitTop = 4 + end + inherited cxButton5: TcxButton + Left = 531 + Top = 4 + ExplicitLeft = 531 + ExplicitTop = 4 + end end end object cxGrid1: TcxGrid Left = 0 - Top = 96 + Top = 158 Width = 1541 - Height = 434 + Height = 576 Align = alClient BorderStyle = cxcbsNone - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False PopupMenu = PM_1 - TabOrder = 2 + TabOrder = 1 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -1266,14 +1065,10 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.IndicatorWidth = 30 - Styles.IncSearch = DataLink_KnitClothStk.SHuangSe - Styles.Footer = DataLink_KnitClothStk.Default - Styles.Header = DataLink_KnitClothStk.Default - Styles.Inactive = DataLink_KnitClothStk.SHuangSe - Styles.Selection = DataLink_KnitClothStk.SHuangSe object v1Column22: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked @@ -1284,6 +1079,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object v1Column42: TcxGridDBColumn Caption = #24635#35760#24405#25968 DataBinding.FieldName = 'TotalCount' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1291,6 +1087,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object v1Column21: TcxGridDBColumn Caption = #20837#24211#26102#38388 DataBinding.FieldName = 'IOTime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 103 @@ -1298,11 +1095,13 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object Tv1Column11: TcxGridDBColumn Caption = #20837#24211#31867#22411 DataBinding.FieldName = 'IOType' + DataBinding.IsNullValueType = True Options.Editing = False end object v1Column32: TcxGridDBColumn Caption = #21512#21516#21495 DataBinding.FieldName = 'conNO' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 76 @@ -1310,6 +1109,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object Tv1Column8: TcxGridDBColumn Caption = #23458#25143#21333#21495 DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1317,6 +1117,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object v1Column1: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 78 @@ -1324,6 +1125,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object Tv1Column4: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 74 @@ -1331,6 +1133,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object v1Column13: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1338,6 +1141,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object v1Column3: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1345,6 +1149,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object v1Column5: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1352,6 +1157,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object v1Column4: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1359,6 +1165,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object Tv1Column3: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 62 @@ -1366,6 +1173,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object Tv1Column7: TcxGridDBColumn Caption = #23458#25143#33457#22411 DataBinding.FieldName = 'C_CustPattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1373,6 +1181,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object v1Column40: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1380,6 +1189,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object v1Column6: TcxGridDBColumn Caption = #21367#26465#30721 DataBinding.FieldName = 'CIID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1387,12 +1197,14 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object Tv1Column13: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 67 end object v1Column18: TcxGridDBColumn Caption = #21345#21495 DataBinding.FieldName = 'PCId' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1400,6 +1212,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object v1Column23: TcxGridDBColumn Caption = #21367#21495 DataBinding.FieldName = 'PieceNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1407,6 +1220,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object v1Column8: TcxGridDBColumn Caption = #27611#37325 DataBinding.FieldName = 'GrossWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1414,6 +1228,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object v1Column27: TcxGridDBColumn Caption = #30382#37325 DataBinding.FieldName = 'Tare' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1421,6 +1236,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object v1Column28: TcxGridDBColumn Caption = #20928#37325 DataBinding.FieldName = 'NetWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1428,6 +1244,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object v1Column10: TcxGridDBColumn Caption = #31859#25968 DataBinding.FieldName = 'Meter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1435,6 +1252,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object Tv1Column10: TcxGridDBColumn Caption = #30721#25968 DataBinding.FieldName = 'Yardage' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1442,6 +1260,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object Tv1Column12: TcxGridDBColumn Caption = #24211#20301 DataBinding.FieldName = 'IOPosition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 71 @@ -1449,6 +1268,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object v1Column12: TcxGridDBColumn Caption = #21697#36136 DataBinding.FieldName = 'Grade' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1456,6 +1276,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object v1Column46: TcxGridDBColumn Caption = #26816#39564#26426#21488 DataBinding.FieldName = 'CIMachNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -1463,6 +1284,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object Tv1Column1: TcxGridDBColumn Caption = #32455#26426#21495 DataBinding.FieldName = 'Loom' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 69 @@ -1470,6 +1292,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList object Tv1Column2: TcxGridDBColumn Caption = #36710#38388 DataBinding.FieldName = 'Workshop' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 69 @@ -1479,16 +1302,44 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList GridView = Tv1 end end + inline frmFramePagingSel1: TfrmFramePagingSel + Left = 0 + Top = 0 + Width = 1541 + Height = 37 + Align = alTop + TabOrder = 2 + ExplicitWidth = 1541 + inherited BTLP: TcxButton + Left = 390 + OnClick = BTLPClick + ExplicitLeft = 390 + end + inherited cxButton3: TcxButton + OnClick = BTNPClick + end + inherited TCBNOR: TcxComboBox + Properties.Items.Strings = ( + '500' + '1000' + '2000' + '5000' + '10000') + Properties.OnChange = TCBNORChange + Text = '500' + ExplicitHeight = 33 + end + end end end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_KnitClothStk.ADOLink - Left = 553 + Left = 985 Top = 200 end inherited ADOQueryBaseTemp: TADOQuery Connection = DataLink_KnitClothStk.ADOLink - Left = 425 + Left = 857 Top = 201 end object ADOQueryCmd: TADOQuery @@ -1510,7 +1361,7 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList LockType = ltReadOnly CommandTimeout = 600 Parameters = <> - Left = 112 + Left = 544 Top = 204 end object DS_1: TDataSource @@ -1573,4 +1424,9 @@ inherited frmKnitClothStkList: TfrmKnitClothStkList OnClick = MenuItem1Click end end + object cxStyleRepository1: TcxStyleRepository + PixelsPerInch = 96 + object cxStyle1: TcxStyle + end + end end diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothStkList.pas b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothStkList.pas index a3867b4..82c9aac 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothStkList.pas +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothStkList.pas @@ -13,7 +13,24 @@ uses RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, - System.StrUtils; + System.StrUtils, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue, dxScrollbarAnnotations, cxContainer, FrameDateSel, + cxButtons, cxMaskEdit, FramePagingSel; type TfrmKnitClothStkList = class(TfrmBaseList) @@ -35,12 +52,6 @@ type cxPageControl1: TcxPageControl; cxTabSheet1: TcxTabSheet; cxTabSheet2: TcxTabSheet; - Panel6: TPanel; - Label31: TLabel; - LBCPAP: TLabel; - BTLP: TButton; - BTNP: TButton; - TCBNOR: TComboBox; Pnl_F1: TPanel; Label3: TLabel; Label7: TLabel; @@ -50,13 +61,13 @@ type Label23: TLabel; begtime: TDateTimePicker; endTime: TDateTimePicker; - OrderNo: TEdit; - conNO: TEdit; - STKID: TEdit; - C_Name: TEdit; - C_Color: TEdit; - PCId: TEdit; - C_Code: TEdit; + OrderNo: TcxTextEdit; + conNO: TcxTextEdit; + STKID: TcxTextEdit; + C_Name: TcxTextEdit; + C_Color: TcxTextEdit; + PCId: TcxTextEdit; + C_Code: TcxTextEdit; Pnl_F2: TPanel; DateTimePicker3: TDateTimePicker; DateTimePicker4: TDateTimePicker; @@ -91,8 +102,8 @@ type TV2Column3: TcxGridDBColumn; Label8: TLabel; Label14: TLabel; - Edit3: TEdit; - Edit11: TEdit; + Edit3: TcxTextEdit; + Edit11: TcxTextEdit; PM_2: TPopupMenu; MenuItem1: TMenuItem; N2: TMenuItem; @@ -138,19 +149,24 @@ type Label13: TLabel; Label15: TLabel; Label16: TLabel; - Edit1: TEdit; - Edit2: TEdit; - Edit4: TEdit; - Edit5: TEdit; - Edit6: TEdit; - Edit7: TEdit; - C_Pattern: TEdit; - Edit8: TEdit; - Edit9: TEdit; - Edit10: TEdit; + Edit1: TcxTextEdit; + Edit2: TcxTextEdit; + Edit4: TcxTextEdit; + Edit5: TcxTextEdit; + Edit6: TcxTextEdit; + Edit7: TcxTextEdit; + C_Pattern: TcxTextEdit; + Edit8: TcxTextEdit; + Edit9: TcxTextEdit; + Edit10: TcxTextEdit; TV2Column6: TcxGridDBColumn; TV2Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn; + frmFrameDateSel2: TfrmFrameDateSel; + frmFrameDateSel: TfrmFrameDateSel; + frmFramePagingSel1: TfrmFramePagingSel; + cxStyleRepository1: TcxStyleRepository; + cxStyle1: TcxStyle; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); procedure TBRafreshClick(Sender: TObject); @@ -225,10 +241,10 @@ procedure TfrmKnitClothStkList.FormCreate(Sender: TObject); begin inherited; lstCust := TStringList.Create; - EndDate.DateTime := SGetServerDateTime(ADOQueryTemp); - BegDate.DateTime := EndDate.DateTime - 20; - BegDate2.DateTime := BegDate.DateTime; - EndDate2.DateTime := EndDate.DateTime; + frmFrameDateSel.EndDate.Date := SGetServerDateTime(ADOQueryTemp); + frmFrameDateSel.BegDate.Date := frmFrameDateSel.EndDate.Date - 20; + frmFrameDateSel2.BegDate.Date := frmFrameDateSel.BegDate.Date; + frmFrameDateSel2.EndDate.Date := frmFrameDateSel.EndDate.Date; FWorkshop := trim(Self.fParameters3); end; @@ -243,8 +259,8 @@ begin begin if chk_F2.Checked then begin - WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate2.DateTime)); - WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate2.DateTime + 1)); + WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel2.BegDate.Date)); + WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel2.EndDate.Date + 1)); end; with ADOQueryMain do begin @@ -272,8 +288,8 @@ begin begin if chk_F1.Checked then begin - WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); - WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); + WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel.BegDate.Date)); + WSql := WSql + ' and IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel.EndDate.Date + 1)); end; with ADOQueryMain do begin @@ -296,7 +312,8 @@ begin end; SCreateCDS(ADOQueryMain, CDS_1); SInitCDSData(ADOQueryMain, CDS_1); - LBCPAP.Caption := inttostr(CurrentPage) + '/' + inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber)); + frmFramePagingSel1.LBDQY.Caption := inttostr(CurrentPage); + frmFramePagingSel1.LBZYS.Caption := inttostr(ceil(CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber)); TV1.DataController.Filter.Clear; end; end; @@ -388,8 +405,8 @@ end; procedure TfrmKnitClothStkList.TV2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); begin - BegDate.DateTime := BegDate2.DateTime; - EndDate.DateTime := EndDate2.DateTime; + frmFrameDateSel.BegDate.Date := frmFrameDateSel2.BegDate.Date; + frmFrameDateSel.EndDate.Date := frmFrameDateSel2.EndDate.Date; chk_F2.Checked := chk_F1.Checked; cxPageControl1.ActivePageIndex := 1; SetStatus(); @@ -418,7 +435,7 @@ end; procedure TfrmKnitClothStkList.TCBNORChange(Sender: TObject); begin - RecordsNumber := StrToInt(TCBNOR.Text); + RecordsNumber := StrToInt(frmFramePagingSel1.TCBNOR.Text); CurrentPage := 1; InitGrid(SGetHintFilters(Pnl_F1, 1, 2)); end; diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothWaitReleased.dfm b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothWaitReleased.dfm index 88e4147..26e9fe6 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothWaitReleased.dfm +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothWaitReleased.dfm @@ -7,8 +7,8 @@ object frmKnitClothWaitReleased: TfrmKnitClothWaitReleased Color = clWhite Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -14 - Font.Name = #23435#20307 + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 Font.Style = [] OldCreateOrder = False Position = poScreenCenter @@ -16,17 +16,20 @@ object frmKnitClothWaitReleased: TfrmKnitClothWaitReleased OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 - TextHeight = 14 + TextHeight = 21 object cxGrid1: TcxGrid Left = 0 - Top = 81 + Top = 75 Width = 1155 - Height = 467 + Height = 473 Align = alClient PopupMenu = PopupMenu1 TabOrder = 0 + ExplicitTop = 73 + ExplicitHeight = 475 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> @@ -62,6 +65,7 @@ object frmKnitClothWaitReleased: TfrmKnitClothWaitReleased object v2Column3: TcxGridDBColumn Caption = #36873#20013 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked @@ -71,6 +75,7 @@ object frmKnitClothWaitReleased: TfrmKnitClothWaitReleased object v1OrderNo: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 @@ -78,6 +83,7 @@ object frmKnitClothWaitReleased: TfrmKnitClothWaitReleased object v2Column2: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 @@ -85,6 +91,7 @@ object frmKnitClothWaitReleased: TfrmKnitClothWaitReleased object cxGridDBColumn2: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 @@ -92,6 +99,7 @@ object frmKnitClothWaitReleased: TfrmKnitClothWaitReleased object cxGridDBColumn3: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 @@ -99,6 +107,7 @@ object frmKnitClothWaitReleased: TfrmKnitClothWaitReleased object v1Column10: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'pcQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 @@ -106,6 +115,7 @@ object frmKnitClothWaitReleased: TfrmKnitClothWaitReleased object Tv2Column1: TcxGridDBColumn Caption = #25104#20998 DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 87 @@ -113,6 +123,7 @@ object frmKnitClothWaitReleased: TfrmKnitClothWaitReleased object Tv2Column4: TcxGridDBColumn Caption = #35268#26684 DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 86 @@ -120,18 +131,21 @@ object frmKnitClothWaitReleased: TfrmKnitClothWaitReleased object Tv2Column2: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 67 end object Tv2Column3: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 83 end object v1PRTMF: TcxGridDBColumn Caption = #21305#25968 DataBinding.FieldName = 'ZPPS' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 @@ -139,6 +153,7 @@ object frmKnitClothWaitReleased: TfrmKnitClothWaitReleased object v1Column14: TcxGridDBColumn Caption = #21333#20301 DataBinding.FieldName = 'OrdUnit' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 @@ -146,6 +161,7 @@ object frmKnitClothWaitReleased: TfrmKnitClothWaitReleased object v1PRTKZ: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'ZPQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 @@ -157,60 +173,57 @@ object frmKnitClothWaitReleased: TfrmKnitClothWaitReleased end object Panel1: TPanel Left = 0 - Top = 38 + Top = 30 Width = 1155 - Height = 43 + Height = 45 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object Label2: TLabel - Left = 35 - Top = 15 - Width = 56 - Height = 14 + Left = 27 + Top = 12 + Width = 64 + Height = 21 Caption = #35745#21010#21333#21495 end object Label3: TLabel Left = 432 - Top = 15 - Width = 28 - Height = 14 + Top = 12 + Width = 32 + Height = 21 Caption = #39068#33394 end object Label8: TLabel Left = 255 - Top = 15 - Width = 28 - Height = 14 + Top = 12 + Width = 32 + Height = 21 Caption = #23458#25143 end - object OrderNo: TEdit + object OrderNo: TcxTextEdit Tag = 2 Left = 97 - Top = 11 - Width = 121 - Height = 22 + Top = 6 + ParentFont = False TabOrder = 0 - OnChange = OrderNoChange + Width = 121 end - object PRTColor: TEdit + object PRTColor: TcxTextEdit Tag = 2 Left = 470 - Top = 11 - Width = 111 - Height = 22 + Top = 6 + ParentFont = False TabOrder = 1 - OnChange = OrderNoChange + Width = 111 end - object CustomerNoName: TEdit + object CustomerNoName: TcxTextEdit Tag = 2 Left = 293 - Top = 11 - Width = 119 - Height = 22 + Top = 6 + ParentFont = False TabOrder = 2 - OnChange = OrderNoChange + Width = 119 end end object ToolBar3: TToolBar @@ -218,18 +231,19 @@ object frmKnitClothWaitReleased: TfrmKnitClothWaitReleased Left = 0 Top = 0 Width = 1155 - Height = 38 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 83 Caption = 'ToolBar1' Color = clWhite + DisabledImages = DataLink_KnitClothStk.cxImageList_bar Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] - Images = DataLink_KnitClothStk.ImageList_new32 + Images = DataLink_KnitClothStk.cxImageList_bar List = True ParentColor = False ParentFont = False @@ -244,7 +258,7 @@ object frmKnitClothWaitReleased: TfrmKnitClothWaitReleased OnClick = ToolButton5Click end object ToolButton1: TToolButton - Left = 71 + Left = 63 Top = 0 AutoSize = True Caption = #30830#23450 @@ -252,7 +266,7 @@ object frmKnitClothWaitReleased: TfrmKnitClothWaitReleased OnClick = ToolButton1Click end object ToolButton8: TToolButton - Left = 142 + Left = 126 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -260,7 +274,7 @@ object frmKnitClothWaitReleased: TfrmKnitClothWaitReleased OnClick = ToolButton8Click end object ToolButton7: TToolButton - Left = 237 + Left = 213 Top = 0 AutoSize = True Caption = #20851#38381 diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothWaitReleased.pas b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothWaitReleased.pas index 48c6bce..7141157 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothWaitReleased.pas +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitClothWaitReleased.pas @@ -10,7 +10,23 @@ uses cxClasses, cxControls, cxGridCustomView, cxGrid, cxGridCustomPopupMenu, cxGridPopupMenu, cxCheckBox, Menus, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, - dxBarBuiltInMenu, Vcl.ToolWin; + dxBarBuiltInMenu, Vcl.ToolWin, dxSkinBasic, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue, dxScrollbarAnnotations, cxContainer, cxTextEdit; type TfrmKnitClothWaitReleased = class(TForm) @@ -26,9 +42,9 @@ type cxGrid1Level1: TcxGridLevel; Panel1: TPanel; Label2: TLabel; - OrderNo: TEdit; + OrderNo: TcxTextEdit; Label3: TLabel; - PRTColor: TEdit; + PRTColor: TcxTextEdit; CDS_OrderSel: TClientDataSet; DataSource1: TDataSource; ADOQueryTemp: TADOQuery; @@ -37,7 +53,7 @@ type cxGridPopupMenu1: TcxGridPopupMenu; v2Column2: TcxGridDBColumn; Label8: TLabel; - CustomerNoName: TEdit; + CustomerNoName: TcxTextEdit; v2Column3: TcxGridDBColumn; PopupMenu1: TPopupMenu; N1: TMenuItem; diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRList.dfm b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRList.dfm index dba1a92..1dc3fcf 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRList.dfm +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRList.dfm @@ -3,36 +3,34 @@ inherited frmKnitDRList: TfrmKnitDRList Top = 16 BorderStyle = bsNone Caption = #21457#36135#30003#35831 - ClientHeight = 532 + ClientHeight = 688 ClientWidth = 1453 + ParentFont = False + Font.Charset = ANSI_CHARSET + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 FormStyle = fsMDIChild Position = poScreenCenter Visible = True ExplicitWidth = 1469 - ExplicitHeight = 571 + ExplicitHeight = 727 PixelsPerInch = 96 - TextHeight = 12 + TextHeight = 21 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 Top = 0 Width = 1453 - Height = 38 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 99 Caption = 'ToolBar1' Color = clSkyBlue - DisabledImages = DataLink_KnitClothStk.ImageList_new32 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - Images = DataLink_KnitClothStk.ImageList_new32 + DisabledImages = DataLink_KnitClothStk.cxImageList_bar + Images = DataLink_KnitClothStk.cxImageList_bar List = True ParentColor = False - ParentFont = False ShowCaptions = True TabOrder = 0 object TBRafresh: TToolButton @@ -108,7 +106,7 @@ inherited frmKnitDRList: TfrmKnitDRList OnClick = TnochkClick end object btnWC: TToolButton - Left = 663 + Left = 671 Top = 0 AutoSize = True Caption = #23436#25104 @@ -116,7 +114,7 @@ inherited frmKnitDRList: TfrmKnitDRList OnClick = btnWCClick end object btnWCCX: TToolButton - Left = 734 + Left = 742 Top = 0 AutoSize = True Caption = #25764#38144#23436#25104 @@ -124,7 +122,7 @@ inherited frmKnitDRList: TfrmKnitDRList OnClick = btnWCCXClick end object TBExport: TToolButton - Left = 829 + Left = 845 Top = 0 AutoSize = True Caption = #23548#20986 @@ -132,7 +130,7 @@ inherited frmKnitDRList: TfrmKnitDRList OnClick = TBExportClick end object ToolButton6: TToolButton - Left = 900 + Left = 916 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -140,7 +138,7 @@ inherited frmKnitDRList: TfrmKnitDRList OnClick = ToolButton6Click end object TBClose: TToolButton - Left = 995 + Left = 1019 Top = 0 AutoSize = True Caption = #20851#38381 @@ -150,14 +148,15 @@ inherited frmKnitDRList: TfrmKnitDRList end object cxGrid1: TcxGrid [1] Left = 0 - Top = 102 + Top = 136 Width = 1453 - Height = 200 + Height = 328 Align = alClient PopupMenu = PM_1 TabOrder = 3 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> OnFocusedRecordChanged = Tv1FocusedRecordChanged DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -216,6 +215,7 @@ inherited frmKnitDRList: TfrmKnitDRList object v1Column4: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'SSel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.MultiLine = True @@ -226,6 +226,7 @@ inherited frmKnitDRList: TfrmKnitDRList object v1Column8: TcxGridDBColumn Caption = #30003#35831#21333#21495 DataBinding.FieldName = 'DRMID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 93 @@ -233,6 +234,7 @@ inherited frmKnitDRList: TfrmKnitDRList object v1OrdDate: TcxGridDBColumn Caption = #30331#35760#26085#26399 DataBinding.FieldName = 'Filltime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.ShowTime = False HeaderAlignmentHorz = taCenter @@ -242,36 +244,42 @@ inherited frmKnitDRList: TfrmKnitDRList object v1Column27: TcxGridDBColumn Caption = #21457#36135#26085#26399 DataBinding.FieldName = 'fhDate' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 69 + Width = 84 end object v1Column10: TcxGridDBColumn Caption = #25910#36135#21333#20301 DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 124 end object v1Column1: TcxGridDBColumn Caption = #30003#35831#20154 DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 66 end object v1Column13: TcxGridDBColumn Caption = #23457#26680#20154 DataBinding.FieldName = 'Chker' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 65 end object v1Column17: TcxGridDBColumn Caption = #23457#26680#26085#26399 DataBinding.FieldName = 'ChkTime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter - Width = 66 + Width = 84 end object v1Column7: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged HeaderAlignmentHorz = taCenter @@ -280,6 +288,7 @@ inherited frmKnitDRList: TfrmKnitDRList object Tv1Column1: TcxGridDBColumn Caption = #21152#37325 DataBinding.FieldName = 'DRAddWet' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 75 @@ -291,9 +300,9 @@ inherited frmKnitDRList: TfrmKnitDRList end object Panel1: TPanel [2] Left = 0 - Top = 38 + Top = 30 Width = 1453 - Height = 43 + Height = 78 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered @@ -301,21 +310,15 @@ inherited frmKnitDRList: TfrmKnitDRList ParentBackground = False TabOrder = 1 object Label4: TLabel - Left = 464 - Top = 15 - Width = 48 - Height = 12 + Left = 220 + Top = 40 + Width = 64 + Height = 21 Caption = #25910#36135#21333#20301 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False end object Label8: TLabel - Left = 430 - Top = 99 + Left = 438 + Top = 187 Width = 52 Height = 12 Caption = #20135#21697#21517#31216 @@ -327,8 +330,8 @@ inherited frmKnitDRList: TfrmKnitDRList ParentFont = False end object Label12: TLabel - Left = 303 - Top = 99 + Left = 311 + Top = 187 Width = 26 Height = 12 Caption = #20811#37325 @@ -340,8 +343,8 @@ inherited frmKnitDRList: TfrmKnitDRList ParentFont = False end object Label13: TLabel - Left = 303 - Top = 123 + Left = 311 + Top = 211 Width = 26 Height = 12 Caption = #38376#24133 @@ -352,112 +355,124 @@ inherited frmKnitDRList: TfrmKnitDRList Font.Style = [fsBold] ParentFont = False end + object Label1: TLabel + Left = 25 + Top = 40 + Width = 64 + Height = 21 + Caption = #30003#35831#21333#21495 + end object Label2: TLabel - Left = 160 - Top = 15 - Width = 6 - Height = 12 + Left = 444 + Top = 211 + Width = 7 + Height = 21 Caption = '-' end - object Label1: TLabel - Left = 286 - Top = 15 - Width = 48 - Height = 12 - Caption = #30003#35831#21333#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False - end object BegDate: TDateTimePicker - Left = 76 - Top = 11 + Left = 596 + Top = 157 Width = 85 - Height = 20 + Height = 29 Date = 40675.000000000000000000 Format = 'yyyy-MM-dd' Time = 0.464742650459811600 TabOrder = 0 end object EndDate: TDateTimePicker - Left = 168 - Top = 11 + Left = 791 + Top = 157 Width = 86 - Height = 20 + Height = 29 Date = 40675.000000000000000000 Format = 'yyyy-MM-dd' Time = 0.464761099538009100 TabOrder = 1 end - object ToCoName: TEdit + object ToCoName: TcxTextEdit Tag = 2 - Left = 518 - Top = 11 - Width = 115 - Height = 20 + Left = 300 + Top = 40 + ParentFont = False TabOrder = 2 - OnChange = ToCoNameChange + Width = 115 end - object MPRTCodeName: TEdit + object MPRTCodeName: TcxTextEdit Tag = 2 - Left = 483 - Top = 95 - Width = 76 - Height = 20 + Left = 491 + Top = 183 + ParentFont = False TabOrder = 4 - OnChange = ToCoNameChange + Width = 76 end - object MPRTKZ: TEdit + object MPRTKZ: TcxTextEdit Tag = 2 - Left = 332 - Top = 95 - Width = 56 - Height = 20 + Left = 340 + Top = 183 + ParentFont = False TabOrder = 3 - OnChange = ToCoNameChange - end - object MPRTMF: TEdit - Tag = 2 - Left = 332 - Top = 119 Width = 56 - Height = 20 + end + object MPRTMF: TcxTextEdit + Tag = 2 + Left = 340 + Top = 207 + ParentFont = False TabOrder = 5 - OnChange = ToCoNameChange + Width = 56 end object CheckBox1: TCheckBox - Left = 9 - Top = 13 - Width = 65 + Left = 596 + Top = 191 + Width = 87 Height = 17 Caption = #30331#35760#26085#26399 Checked = True State = cbChecked TabOrder = 6 end - object DRMID: TEdit + object DRMID: TcxTextEdit Tag = 2 - Left = 341 - Top = 11 - Width = 99 - Height = 20 + Left = 105 + Top = 40 + ParentFont = False TabOrder = 7 - OnChange = ToCoNameChange + Width = 99 + end + inline frmFrameDateSel: TfrmFrameDateSel + Left = 2 + Top = 2 + Width = 1449 + Height = 37 + Align = alTop + Color = clWhite + ParentBackground = False + ParentColor = False + TabOrder = 8 + ExplicitLeft = 2 + ExplicitTop = 2 + ExplicitWidth = 1449 + inherited BegDate: TcxDateEdit + ExplicitHeight = 33 + end + inherited EndDate: TcxDateEdit + ExplicitHeight = 33 + end + inherited cbbType: TcxComboBox + ExplicitHeight = 33 + end end end object cxTabControl1: TcxTabControl [3] Left = 0 - Top = 81 + Top = 108 Width = 1453 - Height = 21 + Height = 28 Align = alTop TabOrder = 2 Properties.CustomButtons.Buttons = <> Properties.Style = 9 - Properties.TabIndex = 0 + Properties.TabIndex = 3 Properties.Tabs.Strings = ( #26410#23457#26680 #24050#23457#26680 @@ -469,22 +484,22 @@ inherited frmKnitDRList: TfrmKnitDRList end object cxSplitter1: TcxSplitter [4] Left = 0 - Top = 302 + Top = 464 Width = 1453 Height = 8 HotZoneClassName = 'TcxMediaPlayer9Style' AlignSplitter = salBottom - ExplicitWidth = 8 end object cxGrid2: TcxGrid [5] Left = 0 - Top = 310 + Top = 472 Width = 1453 - Height = 222 + Height = 216 Align = alBottom TabOrder = 5 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_2 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < @@ -536,6 +551,7 @@ inherited frmKnitDRList: TfrmKnitDRList object cxGridDBColumn1: TcxGridDBColumn Caption = #21512#21516#21495 DataBinding.FieldName = 'SCConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -543,24 +559,28 @@ inherited frmKnitDRList: TfrmKnitDRList object cxGridDBColumn2: TcxGridDBColumn Caption = #23458#25143#35746#21333#21495 DataBinding.FieldName = 'KHConno' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 94 end object cxGridDBColumn3: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 88 end object v1Column6: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 71 end object cxGridDBColumn4: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 73 @@ -568,24 +588,28 @@ inherited frmKnitDRList: TfrmKnitDRList object cxGridDBColumn5: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 60 end object cxGridDBColumn6: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 71 end object cxGridDBColumn7: TcxGridDBColumn Caption = #30003#35831#21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 81 end object cv1Column3: TcxGridDBColumn Caption = #30003#35831#25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Width = 90 @@ -593,34 +617,40 @@ inherited frmKnitDRList: TfrmKnitDRList object TV2Column1: TcxGridDBColumn Caption = #25968#37327#21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True end object TV2Column2: TcxGridDBColumn Caption = #21457#36135#21305#25968 DataBinding.FieldName = 'DlyPiece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 70 end object TV2Column3: TcxGridDBColumn Caption = #21457#36135#25968#37327 DataBinding.FieldName = 'DlyQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 80 end object TV2Column4: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 78 end object TV2Column5: TcxGridDBColumn Caption = #32455#26426#21495 DataBinding.FieldName = 'Loom' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 74 end object TV2Column6: TcxGridDBColumn Caption = #35746#21333#21305#25968 DataBinding.FieldName = 'OrdPiece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 67 @@ -628,6 +658,7 @@ inherited frmKnitDRList: TfrmKnitDRList object TV2Column7: TcxGridDBColumn Caption = #35746#21333#25968#37327 DataBinding.FieldName = 'OrdQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 72 @@ -681,7 +712,7 @@ inherited frmKnitDRList: TfrmKnitDRList object Order_Main: TClientDataSet Aggregates = <> Params = <> - Left = 816 + Left = 824 Top = 136 end object DS_2: TDataSource diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRList.pas b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRList.pas index 5d5e3dd..86c3a51 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRList.pas +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRList.pas @@ -12,7 +12,23 @@ uses RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit, cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, U_BaseList, - dxDateRanges; + dxDateRanges, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue, dxScrollbarAnnotations, cxContainer, FrameDateSel; type TfrmKnitDRList = class(TfrmBaseList) @@ -44,17 +60,16 @@ type Label13: TLabel; BegDate: TDateTimePicker; EndDate: TDateTimePicker; - ToCoName: TEdit; - MPRTCodeName: TEdit; - MPRTKZ: TEdit; - MPRTMF: TEdit; + ToCoName: TcxTextEdit; + MPRTCodeName: TcxTextEdit; + MPRTKZ: TcxTextEdit; + MPRTMF: TcxTextEdit; cxTabControl1: TcxTabControl; tchk: TToolButton; Tnochk: TToolButton; cxSplitter1: TcxSplitter; DS_2: TDataSource; v1Column8: TcxGridDBColumn; - Label2: TLabel; ClientDataSet2: TClientDataSet; GPM_2: TcxGridPopupMenu; v1Column13: TcxGridDBColumn; @@ -91,6 +106,8 @@ type Tv1Column1: TcxGridDBColumn; TV2Column6: TcxGridDBColumn; TV2Column7: TcxGridDBColumn; + Label2: TLabel; + frmFrameDateSel: TfrmFrameDateSel; //RMllPDFExport1: TRMllPDFExport; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); @@ -219,8 +236,8 @@ begin sql.Add(' from Knit_Cloth_DR_Main A where 1=1'); if CheckBox1.Checked then begin - sql.Add(' and Filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); - sql.Add(' and Filltime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); + sql.Add(' and Filltime>=''' + FormatDateTime('yyyy-MM-dd', frmFrameDateSel.begdate.Date) + ''' '); + sql.Add(' and Filltime<''' + FormatDateTime('yyyy-MM-dd', frmFrameDateSel.Enddate.Date + 1) + ''' '); end; case cxTabControl1.TabIndex of 0: @@ -261,8 +278,8 @@ begin ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, ''); ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, ''); - EndDate.DateTime := SGetServerDate(ADOQueryTemp); - BegDate.DateTime := EndDate.DateTime - 60; + frmFrameDateSel.EndDate.Date := SGetServerDate(ADOQueryTemp); + frmFrameDateSel.BegDate.Date := frmFrameDateSel.EndDate.Date - 60; InitGrid(); end; @@ -443,6 +460,7 @@ begin SetStatus(); end; + procedure TfrmKnitDRList.CheckBox1Click(Sender: TObject); begin InitGrid(); diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRQuickInPut.dfm b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRQuickInPut.dfm index 2940f13..ea66215 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRQuickInPut.dfm +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRQuickInPut.dfm @@ -2,42 +2,36 @@ object frmKnitDRQuickInPut: TfrmKnitDRQuickInPut Left = 302 Top = 139 Caption = #21457#36135#30003#35831#24405#20837 - ClientHeight = 280 - ClientWidth = 484 + ClientHeight = 272 + ClientWidth = 503 Color = clWhite - Font.Charset = GB2312_CHARSET + Font.Charset = ANSI_CHARSET Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 - TextHeight = 12 + TextHeight = 21 object ToolBar1: TToolBar Tag = 1 Left = 0 Top = 0 - Width = 484 - Height = 38 + Width = 503 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 75 + ButtonHeight = 30 + ButtonWidth = 67 Caption = 'ToolBar1' Color = clWhite DisabledImages = DataLink_KnitClothStk.ImageList_new32 EdgeInner = esNone EdgeOuter = esNone - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - Images = DataLink_KnitClothStk.ImageList_new32 + Images = DataLink_KnitClothStk.cxImageList_bar List = True ParentColor = False - ParentFont = False ShowCaptions = True TabOrder = 0 object TBSave: TToolButton @@ -59,8 +53,8 @@ object frmKnitDRQuickInPut: TfrmKnitDRQuickInPut end object ScrollBox1: TScrollBox Left = 0 - Top = 38 - Width = 484 + Top = 30 + Width = 503 Height = 242 Align = alClient BevelInner = bvNone @@ -71,60 +65,36 @@ object frmKnitDRQuickInPut: TfrmKnitDRQuickInPut ParentCtl3D = False TabOrder = 1 object Label1: TLabel - Left = 244 - Top = 13 - Width = 65 - Height = 12 + Left = 234 + Top = 14 + Width = 80 + Height = 21 Caption = #20986#24211#31867#22411#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label12: TLabel Left = 33 Top = 79 - Width = 67 - Height = 12 + Width = 68 + Height = 21 Caption = #22791' '#27880#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label11: TLabel - Left = 244 - Top = 45 - Width = 65 - Height = 12 + Left = 234 + Top = 44 + Width = 80 + Height = 21 Caption = #25910#36135#21333#20301#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label2: TLabel - Left = 35 - Top = 13 - Width = 65 - Height = 12 + Left = 21 + Top = 14 + Width = 80 + Height = 21 Caption = #21457#36135#26085#26399#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label27: TLabel - Left = 703 - Top = 12 + Left = 615 + Top = 49 Width = 52 Height = 15 Caption = #25968#37327#21333#20301 @@ -138,69 +108,29 @@ object frmKnitDRQuickInPut: TfrmKnitDRQuickInPut end object Label5: TLabel Left = 33 - Top = 43 - Width = 67 - Height = 12 + Top = 47 + Width = 68 + Height = 21 Caption = #21152' '#37325#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end - object OutType: TComboBox - Tag = 1 - Left = 306 - Top = 9 - Width = 136 - Height = 20 - Style = csDropDownList - TabOrder = 0 - Items.Strings = ( - #38144#21806#20986#24211 - #21152#24037#20986#24211 - #30424#20111#20986#24211) - end - object Note: TEdit + object Note: TcxTextEdit Tag = 1 Left = 96 Top = 79 - Width = 346 - Height = 18 - TabOrder = 2 - end - object ToCoName: TBtnEditC - Tag = 1 - Left = 306 - Top = 41 - Width = 136 - Height = 20 - TabOrder = 1 - OnBtnUpClick = ToCoNameBtnUpClick - OnBtnDnClick = ToCoNameBtnDnClick - end - object DlyDate: TDateTimePicker - Tag = 1 - Left = 96 - Top = 9 - Width = 132 - Height = 20 - Date = 40675.000000000000000000 - Format = 'yyyy-MM-dd' - Time = 0.464761099538009100 - TabOrder = 3 + ParentFont = False + TabOrder = 0 + Width = 385 end object QtyUnit: TComboBox Tag = 2 - Left = 761 - Top = 9 + Left = 673 + Top = 41 Width = 96 - Height = 20 + Height = 29 Style = csDropDownList Enabled = False ItemIndex = 2 - TabOrder = 4 + TabOrder = 1 Text = 'Kg' Visible = False Items.Strings = ( @@ -208,13 +138,57 @@ object frmKnitDRQuickInPut: TfrmKnitDRQuickInPut 'Y' 'Kg') end - object DRAddWet: TEdit + object DRAddWet: TcxTextEdit Tag = 1 Left = 96 Top = 41 + ParentFont = False + TabOrder = 2 Width = 132 - Height = 18 + end + object DlyDate: TcxDateEdit + Tag = 1 + Left = 96 + Top = 5 + AutoSize = False + EditValue = 45490d + ParentFont = False + Properties.ShowTime = False + TabOrder = 3 + Height = 33 + Width = 132 + end + object OutType: TcxComboBox + Tag = 1 + Left = 306 + Top = 5 + AutoSize = False + ParentFont = False + Properties.Items.Strings = ( + #38144#21806#20986#24211 + #21152#24037#20986#24211 + #30424#20111#20986#24211) + TabOrder = 4 + Text = #38144#21806#20986#24211 + Height = 33 + Width = 175 + end + object ToCoName: TcxButtonEdit + Tag = 1 + Left = 306 + Top = 41 + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = ToCoNameOnButtonClick + Style.ButtonStyle = btsDefault TabOrder = 5 + OnDblClick = ToCoNameDblClick + Width = 175 end end object ADOTemp: TADOQuery diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRQuickInPut.pas b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRQuickInPut.pas index 938b548..50b7734 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRQuickInPut.pas +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRQuickInPut.pas @@ -11,7 +11,23 @@ uses StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, - dxDateRanges, dxBarBuiltInMenu, U_BaseList; + dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinBasic, dxSkinBlack, + dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, + dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue, dxCore, cxDateUtils; type TfrmKnitDRQuickInPut = class(Tform) @@ -23,24 +39,24 @@ type ADOCmd: TADOQuery; ADOQuery1: TADOQuery; Label1: TLabel; - OutType: TComboBox; - Note: TEdit; + Note: TcxTextEdit; Label12: TLabel; Label11: TLabel; - ToCoName: TBtnEditC; cxStyleRepository1: TcxStyleRepository; dazi1: TcxStyle; Label2: TLabel; - DlyDate: TDateTimePicker; Label27: TLabel; QtyUnit: TComboBox; Label5: TLabel; - DRAddWet: TEdit; + DRAddWet: TcxTextEdit; + DlyDate: TcxDateEdit; + OutType: TcxComboBox; + ToCoName: TcxButtonEdit; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); - procedure ToCoNameBtnUpClick(Sender: TObject); - procedure ToCoNameBtnDnClick(Sender: TObject); + procedure ToCoNameDblClick(Sender: TObject); + procedure ToCoNameOnButtonClick(Sender: TObject; AButtonIndex: Integer); private fuserName: string; procedure InitData(); @@ -74,7 +90,7 @@ var begin if PState = 0 then begin - DlyDate.DateTime := strtodatetime(Trim(FormatDateTime('yyyy-MM-dd', Now))); + DlyDate.Date := strtodatetime(Trim(FormatDateTime('yyyy-MM-dd', Now))); end; with ADOQuery1 do @@ -87,9 +103,10 @@ begin Open; end; SCSHData(ADOQuery1, ScrollBox1, 1); - ToCoName.TxtCode := ADOQuery1.FieldByName('ToCoNo').asstring; + ToCoName.Properties.LookupItems.Text := ADOQuery1.FieldByName('ToCoNo').asstring; end; + procedure TfrmKnitDRQuickInPut.FormShow(Sender: TObject); begin InitData(); @@ -135,7 +152,7 @@ begin end; RTSetsavedata(ADOCmd, 'Knit_Cloth_DR_Main', ScrollBox1, 1); FieldByName('DRMID').Value := Trim(MaxMid); - FieldByName('ToCoNo').Value := Trim(ToCoName.TxtCode); + FieldByName('ToCoNo').Value := Trim(ToCoName.Properties.LookupItems.Text); FieldByName('Status').Value := '9'; Post; @@ -152,6 +169,8 @@ begin end; end; + + procedure TfrmKnitDRQuickInPut.TBSaveClick(Sender: TObject); var Freal: Double; @@ -176,9 +195,16 @@ begin end; end; -procedure TfrmKnitDRQuickInPut.ToCoNameBtnUpClick(Sender: TObject); -begin +procedure TfrmKnitDRQuickInPut.ToCoNameDblClick(Sender: TObject); +begin + ToCoName.Text := ''; + ToCoName.Properties.LookupItems.Text := ''; +end; + +procedure TfrmKnitDRQuickInPut.ToCoNameOnButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin try frmCompanySel := TfrmCompanySel.Create(Application); with frmCompanySel do @@ -186,7 +212,7 @@ begin FCoType := 'ͻ'; if ShowModal = 1 then begin - self.ToCoName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); + self.ToCoName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); self.ToCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); end; end; @@ -194,13 +220,8 @@ begin finally frmCompanySel.Free; end; - end; -procedure TfrmKnitDRQuickInPut.ToCoNameBtnDnClick(Sender: TObject); -begin - ToCoName.Text := ''; -end; end. diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRQuickInPut.vlb b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRQuickInPut.vlb new file mode 100644 index 0000000..108bc84 --- /dev/null +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRQuickInPut.vlb @@ -0,0 +1,75 @@ +[ToCoName] +Coordinates=393,212,80,36 + +[Label27] +Coordinates=339,10,60,58 + +[ADOQuery1] +Coordinates=206,144,84,58 + +[OutType] +Coordinates=319,212,64,36 +ExplicitSubNodes= +Visible=True + +[ADOCmd] +Coordinates=409,10,69,58 + +[DataLink_KnitClothStk.AdoDataLink] +Coordinates=488,10,221,58 + +[Label2] +Coordinates=121,10,53,58 + +[QtyUnit] +Coordinates=10,10,101,124 + +[dazi1] +Coordinates=288,309,45,36 + +[Label5] +Coordinates=143,144,53,58 + +[ToolBar1] +Coordinates=242,212,67,36 +Visible=True + +[DRAddWet] +Coordinates=154,212,78,58 +ExplicitSubNodes=Text + +[Label12] +Coordinates=269,10,60,58 + +[cxStyleRepository1] +Coordinates=528,111,125,36 + +[ADOTemp] +Coordinates=184,10,75,58 + +[Label11] +Coordinates=10,144,60,58 + +[TBClose] +Coordinates=80,212,64,36 + +[TBSave] +Coordinates=10,212,60,36 + +[DlyDate] +Coordinates=438,144,60,58 +ExplicitSubNodes=Date + +[ScrollBox1] +Coordinates=352,144,76,36 + +[Note] +Coordinates=300,144,42,58 +ExplicitSubNodes=Text + +[Label1] +Coordinates=80,144,53,58 + +[] +Coordinates=130,87,91,36 + diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRQuickSel.dfm b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRQuickSel.dfm index ca54bda..19881d2 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRQuickSel.dfm +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRQuickSel.dfm @@ -4,31 +4,31 @@ inherited frmKnitDRQuickSel: TfrmKnitDRQuickSel BorderStyle = bsSingle Caption = #21457#36135#30003#35831 ClientHeight = 487 - ClientWidth = 1418 + ClientWidth = 932 Color = clWhite Position = poScreenCenter - ExplicitWidth = 1424 + ExplicitWidth = 938 ExplicitHeight = 516 PixelsPerInch = 96 - TextHeight = 13 + TextHeight = 21 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 Top = 0 - Width = 1418 - Height = 38 + Width = 932 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 83 Caption = 'ToolBar1' Color = clSkyBlue - DisabledImages = DataLink_KnitClothStk.ImageList_new32 + DisabledImages = DataLink_KnitClothStk.cxImageList_bar Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] - Images = DataLink_KnitClothStk.ImageList_new32 + Images = DataLink_KnitClothStk.cxImageList_bar List = True ParentColor = False ParentFont = False @@ -43,7 +43,7 @@ inherited frmKnitDRQuickSel: TfrmKnitDRQuickSel OnClick = TBRafreshClick end object TBFind: TToolButton - Left = 71 + Left = 63 Top = 0 AutoSize = True Caption = #36807#28388 @@ -51,7 +51,7 @@ inherited frmKnitDRQuickSel: TfrmKnitDRQuickSel OnClick = TBFindClick end object ToolButton1: TToolButton - Left = 142 + Left = 126 Top = 0 AutoSize = True Caption = #30830#35748 @@ -59,7 +59,7 @@ inherited frmKnitDRQuickSel: TfrmKnitDRQuickSel OnClick = ToolButton1Click end object ToolButton2: TToolButton - Left = 213 + Left = 189 Top = 0 AutoSize = True Caption = #20462#25913 @@ -67,7 +67,7 @@ inherited frmKnitDRQuickSel: TfrmKnitDRQuickSel OnClick = ToolButton2Click end object ToolButton6: TToolButton - Left = 284 + Left = 252 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -75,7 +75,7 @@ inherited frmKnitDRQuickSel: TfrmKnitDRQuickSel OnClick = ToolButton6Click end object TBClose: TToolButton - Left = 379 + Left = 339 Top = 0 AutoSize = True Caption = #20851#38381 @@ -85,14 +85,15 @@ inherited frmKnitDRQuickSel: TfrmKnitDRQuickSel end object cxGrid1: TcxGrid [1] Left = 0 - Top = 102 - Width = 1418 - Height = 385 + Top = 138 + Width = 932 + Height = 349 Align = alClient TabOrder = 3 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < @@ -147,14 +148,11 @@ inherited frmKnitDRQuickSel: TfrmKnitDRQuickSel OptionsView.GroupByBox = False OptionsView.GroupFooters = gfAlwaysVisible OptionsView.IndicatorWidth = 30 - Styles.IncSearch = DataLink_KnitClothStk.SHuangSe Styles.Footer = DataLink_KnitClothStk.Default - Styles.Header = DataLink_KnitClothStk.Default - Styles.Inactive = DataLink_KnitClothStk.SHuangSe - Styles.Selection = DataLink_KnitClothStk.SHuangSe object v1Column8: TcxGridDBColumn Caption = #30003#35831#21333#21495 DataBinding.FieldName = 'DRMID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 93 @@ -162,6 +160,7 @@ inherited frmKnitDRQuickSel: TfrmKnitDRQuickSel object v1OrdDate: TcxGridDBColumn Caption = #30331#35760#26085#26399 DataBinding.FieldName = 'Filltime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.ShowTime = False HeaderAlignmentHorz = taCenter @@ -172,6 +171,7 @@ inherited frmKnitDRQuickSel: TfrmKnitDRQuickSel object v1Column27: TcxGridDBColumn Caption = #21457#36135#26085#26399 DataBinding.FieldName = 'fhDate' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 154 @@ -179,6 +179,7 @@ inherited frmKnitDRQuickSel: TfrmKnitDRQuickSel object v1Column10: TcxGridDBColumn Caption = #25910#36135#21333#20301 DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 124 @@ -186,6 +187,7 @@ inherited frmKnitDRQuickSel: TfrmKnitDRQuickSel object v1Column1: TcxGridDBColumn Caption = #30003#35831#20154 DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 77 @@ -193,6 +195,7 @@ inherited frmKnitDRQuickSel: TfrmKnitDRQuickSel object v1Column7: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged HeaderAlignmentHorz = taCenter @@ -202,6 +205,7 @@ inherited frmKnitDRQuickSel: TfrmKnitDRQuickSel object Tv1Column1: TcxGridDBColumn Caption = #20986#24211#31867#22411 DataBinding.FieldName = 'OutType' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 96 @@ -213,9 +217,9 @@ inherited frmKnitDRQuickSel: TfrmKnitDRQuickSel end object Panel1: TPanel [2] Left = 0 - Top = 38 - Width = 1418 - Height = 43 + Top = 30 + Width = 932 + Height = 80 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered @@ -223,17 +227,11 @@ inherited frmKnitDRQuickSel: TfrmKnitDRQuickSel ParentBackground = False TabOrder = 1 object Label4: TLabel - Left = 464 - Top = 15 - Width = 48 - Height = 12 + Left = 196 + Top = 45 + Width = 64 + Height = 21 Caption = #25910#36135#21333#20301 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False end object Label8: TLabel Left = 430 @@ -275,117 +273,135 @@ inherited frmKnitDRQuickSel: TfrmKnitDRQuickSel ParentFont = False end object Label2: TLabel - Left = 160 - Top = 15 - Width = 4 - Height = 13 + Left = 154 + Top = 98 + Width = 7 + Height = 21 Caption = '-' end object Label1: TLabel - Left = 286 - Top = 15 - Width = 48 - Height = 12 + Left = 25 + Top = 45 + Width = 64 + Height = 21 Caption = #30003#35831#21333#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False end object BegDate: TDateTimePicker - Left = 76 - Top = 11 + Left = 175 + Top = 134 Width = 85 - Height = 20 + Height = 29 Date = 40675.000000000000000000 Format = 'yyyy-MM-dd' Time = 0.464742650459811600 TabOrder = 0 end object EndDate: TDateTimePicker - Left = 168 - Top = 11 + Left = 166 + Top = 99 Width = 86 - Height = 20 + Height = 29 Date = 40675.000000000000000000 Format = 'yyyy-MM-dd' Time = 0.464761099538009100 TabOrder = 1 end - object ToCoName: TEdit + object ToCoName: TcxTextEdit Tag = 2 - Left = 518 - Top = 11 - Width = 115 - Height = 21 + Left = 264 + Top = 41 + ParentFont = False TabOrder = 2 - OnChange = ToCoNameChange + Width = 115 end - object MPRTCodeName: TEdit + object MPRTCodeName: TcxTextEdit Tag = 2 Left = 483 Top = 95 - Width = 76 - Height = 21 + ParentFont = False TabOrder = 4 - OnChange = ToCoNameChange + Width = 76 end - object MPRTKZ: TEdit + object MPRTKZ: TcxTextEdit Tag = 2 Left = 332 Top = 95 - Width = 56 - Height = 21 + ParentFont = False TabOrder = 3 - OnChange = ToCoNameChange + Width = 56 end - object MPRTMF: TEdit + object MPRTMF: TcxTextEdit Tag = 2 Left = 332 Top = 119 - Width = 56 - Height = 21 + ParentFont = False TabOrder = 5 - OnChange = ToCoNameChange + Width = 56 end object CheckBox1: TCheckBox - Left = 9 - Top = 13 - Width = 65 + Left = 60 + Top = 101 + Width = 88 Height = 17 Caption = #30331#35760#26085#26399 Checked = True State = cbChecked TabOrder = 6 end - object DRMID: TEdit + object DRMID: TcxTextEdit Tag = 2 - Left = 341 - Top = 11 - Width = 99 - Height = 21 + Left = 93 + Top = 41 + ParentFont = False TabOrder = 7 - OnChange = ToCoNameChange + Width = 99 + end + inline frmFrameDateSel: TfrmFrameDateSel + Left = 2 + Top = 2 + Width = 928 + Height = 37 + Align = alTop + Color = clWhite + ParentBackground = False + ParentColor = False + TabOrder = 8 + ExplicitLeft = 2 + ExplicitTop = 2 + ExplicitWidth = 928 + inherited BegDate: TcxDateEdit + ExplicitHeight = 33 + end + inherited EndDate: TcxDateEdit + ExplicitHeight = 33 + end + inherited cbbType: TcxComboBox + ExplicitHeight = 33 + end end end object cxTabControl1: TcxTabControl [3] Left = 0 - Top = 81 - Width = 1418 - Height = 21 + Top = 110 + Width = 932 + Height = 28 Align = alTop + Color = clWhite Enabled = False + ParentBackground = False + ParentColor = False TabOrder = 2 Properties.CustomButtons.Buttons = <> Properties.Style = 9 - Properties.TabIndex = 1 + Properties.TabIndex = 3 Properties.Tabs.Strings = ( #26410#23457#26680 #24050#23457#26680 #24050#23436#25104 #20840#37096) + LookAndFeel.NativeStyle = False + LookAndFeel.ScrollbarMode = sbmDefault + LookAndFeel.SkinName = 'WXI' OnChange = cxTabControl1Change ClientRectRight = 0 ClientRectTop = 0 diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRQuickSel.pas b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRQuickSel.pas index dbe9a43..df038dc 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRQuickSel.pas +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRQuickSel.pas @@ -12,7 +12,24 @@ uses RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit, cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, U_BaseHelp, - dxDateRanges, U_BaseList, System.ImageList, Vcl.ImgList; + dxDateRanges, U_BaseList, System.ImageList, Vcl.ImgList, dxSkinBasic, + dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, + dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful, + dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful, + dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue, + dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, + dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations, + cxContainer, FrameDateSel; type TfrmKnitDRQuickSel = class(TfrmBaseHelp) @@ -37,10 +54,10 @@ type Label13: TLabel; BegDate: TDateTimePicker; EndDate: TDateTimePicker; - ToCoName: TEdit; - MPRTCodeName: TEdit; - MPRTKZ: TEdit; - MPRTMF: TEdit; + ToCoName: TcxTextEdit; + MPRTCodeName: TcxTextEdit; + MPRTKZ: TcxTextEdit; + MPRTMF: TcxTextEdit; cxTabControl1: TcxTabControl; v1Column8: TcxGridDBColumn; Label2: TLabel; @@ -54,6 +71,7 @@ type ToolButton1: TToolButton; ToolButton2: TToolButton; Tv1Column1: TcxGridDBColumn; + frmFrameDateSel: TfrmFrameDateSel; //RMllPDFExport1: TRMllPDFExport; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); @@ -121,8 +139,8 @@ begin sql.Add(' from Knit_Cloth_DR_Main A where 1=1'); if CheckBox1.Checked then begin - sql.Add(' and Filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); - sql.Add(' and Filltime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); + sql.Add(' and Filltime>=''' + FormatDateTime('yyyy-MM-dd', frmFrameDateSel.begdate.Date) + ''' '); + sql.Add(' and Filltime<''' + FormatDateTime('yyyy-MM-dd', frmFrameDateSel.Enddate.Date + 1) + ''' '); end; case cxTabControl1.TabIndex of 0: @@ -151,6 +169,7 @@ begin end; end; + procedure TfrmKnitDRQuickSel.TBFindClick(Sender: TObject); begin if ADOQueryMain.Active = False then @@ -172,8 +191,8 @@ begin ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, ''); - EndDate.DateTime := SGetServerDate(ADOQueryTemp); - BegDate.DateTime := EndDate.DateTime - 3; + frmFrameDateSel.EndDate.Date := SGetServerDate(ADOQueryTemp); + frmFrameDateSel.BegDate.Date := frmFrameDateSel.EndDate.Date - 3; InitGrid(); end; diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRSel.dfm b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRSel.dfm index aa54d95..04b453c 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRSel.dfm +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRSel.dfm @@ -7,32 +7,25 @@ inherited frmKnitDRSel: TfrmKnitDRSel ClientWidth = 1418 Color = clWhite Position = poScreenCenter - ExplicitTop = -86 ExplicitWidth = 1424 ExplicitHeight = 749 PixelsPerInch = 96 - TextHeight = 13 + TextHeight = 21 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 Top = 0 Width = 1418 - Height = 38 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 99 Caption = 'ToolBar1' Color = clSkyBlue - DisabledImages = DataLink_KnitClothStk.ImageList_new32 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - Images = DataLink_KnitClothStk.ImageList_new32 + DisabledImages = DataLink_KnitClothStk.cxImageList_bar + Images = DataLink_KnitClothStk.cxImageList_bar List = True ParentColor = False - ParentFont = False ShowCaptions = True TabOrder = 0 object TBRafresh: TToolButton @@ -68,7 +61,7 @@ inherited frmKnitDRSel: TfrmKnitDRSel OnClick = ToolButton6Click end object TBClose: TToolButton - Left = 308 + Left = 316 Top = 0 AutoSize = True Caption = #20851#38381 @@ -78,14 +71,14 @@ inherited frmKnitDRSel: TfrmKnitDRSel end object cxGrid1: TcxGrid [1] Left = 0 - Top = 102 + Top = 136 Width = 1418 - Height = 388 + Height = 354 Align = alClient TabOrder = 3 - ExplicitTop = 104 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> OnFocusedRecordChanged = Tv1FocusedRecordChanged DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -141,14 +134,10 @@ inherited frmKnitDRSel: TfrmKnitDRSel OptionsView.GroupByBox = False OptionsView.GroupFooters = gfAlwaysVisible OptionsView.IndicatorWidth = 30 - Styles.IncSearch = DataLink_KnitClothStk.SHuangSe - Styles.Footer = DataLink_KnitClothStk.Default - Styles.Header = DataLink_KnitClothStk.Default - Styles.Inactive = DataLink_KnitClothStk.SHuangSe - Styles.Selection = DataLink_KnitClothStk.SHuangSe object v1Column8: TcxGridDBColumn Caption = #30003#35831#21333#21495 DataBinding.FieldName = 'DRMID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 93 @@ -156,6 +145,7 @@ inherited frmKnitDRSel: TfrmKnitDRSel object v1OrdDate: TcxGridDBColumn Caption = #30331#35760#26085#26399 DataBinding.FieldName = 'Filltime' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.ShowTime = False HeaderAlignmentHorz = taCenter @@ -166,6 +156,7 @@ inherited frmKnitDRSel: TfrmKnitDRSel object v1Column27: TcxGridDBColumn Caption = #21457#36135#26085#26399 DataBinding.FieldName = 'fhDate' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 69 @@ -173,6 +164,7 @@ inherited frmKnitDRSel: TfrmKnitDRSel object v1Column10: TcxGridDBColumn Caption = #25910#36135#21333#20301 DataBinding.FieldName = 'ToCoName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 124 @@ -180,6 +172,7 @@ inherited frmKnitDRSel: TfrmKnitDRSel object v1Column1: TcxGridDBColumn Caption = #30003#35831#20154 DataBinding.FieldName = 'Filler' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -187,6 +180,7 @@ inherited frmKnitDRSel: TfrmKnitDRSel object v1Column13: TcxGridDBColumn Caption = #23457#26680#20154 DataBinding.FieldName = 'Chker' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 65 @@ -194,6 +188,7 @@ inherited frmKnitDRSel: TfrmKnitDRSel object v1Column17: TcxGridDBColumn Caption = #23457#26680#26085#26399 DataBinding.FieldName = 'ChkTime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -201,6 +196,7 @@ inherited frmKnitDRSel: TfrmKnitDRSel object v1Column7: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1Column7PropertiesEditValueChanged HeaderAlignmentHorz = taCenter @@ -214,9 +210,9 @@ inherited frmKnitDRSel: TfrmKnitDRSel end object Panel1: TPanel [2] Left = 0 - Top = 38 + Top = 30 Width = 1418 - Height = 43 + Height = 78 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered @@ -224,21 +220,15 @@ inherited frmKnitDRSel: TfrmKnitDRSel ParentBackground = False TabOrder = 1 object Label4: TLabel - Left = 464 - Top = 15 - Width = 48 - Height = 12 + Left = 196 + Top = 45 + Width = 64 + Height = 21 Caption = #25910#36135#21333#20301 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False end object Label8: TLabel Left = 430 - Top = 99 + Top = 115 Width = 52 Height = 12 Caption = #20135#21697#21517#31216 @@ -251,7 +241,7 @@ inherited frmKnitDRSel: TfrmKnitDRSel end object Label12: TLabel Left = 303 - Top = 99 + Top = 115 Width = 26 Height = 12 Caption = #20811#37325 @@ -264,7 +254,7 @@ inherited frmKnitDRSel: TfrmKnitDRSel end object Label13: TLabel Left = 303 - Top = 123 + Top = 139 Width = 26 Height = 12 Caption = #38376#24133 @@ -276,28 +266,22 @@ inherited frmKnitDRSel: TfrmKnitDRSel ParentFont = False end object Label2: TLabel - Left = 160 - Top = 15 - Width = 4 - Height = 13 + Left = 184 + Top = 121 + Width = 7 + Height = 21 Caption = '-' end object Label1: TLabel - Left = 286 - Top = 15 - Width = 48 - Height = 12 + Left = 25 + Top = 45 + Width = 64 + Height = 21 Caption = #30003#35831#21333#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - ParentFont = False end object BegDate: TDateTimePicker - Left = 76 - Top = 11 + Left = 100 + Top = 117 Width = 85 Height = 20 Date = 40675.000000000000000000 @@ -306,8 +290,8 @@ inherited frmKnitDRSel: TfrmKnitDRSel TabOrder = 0 end object EndDate: TDateTimePicker - Left = 168 - Top = 11 + Left = 192 + Top = 117 Width = 86 Height = 20 Date = 40675.000000000000000000 @@ -315,45 +299,41 @@ inherited frmKnitDRSel: TfrmKnitDRSel Time = 0.464761099538009100 TabOrder = 1 end - object ToCoName: TEdit + object ToCoName: TcxTextEdit Tag = 2 - Left = 518 - Top = 11 - Width = 115 - Height = 21 + Left = 264 + Top = 39 + ParentFont = False TabOrder = 2 - OnChange = ToCoNameChange + Width = 115 end - object MPRTCodeName: TEdit + object MPRTCodeName: TcxTextEdit Tag = 2 Left = 483 - Top = 95 - Width = 76 - Height = 21 + Top = 111 + ParentFont = False TabOrder = 4 - OnChange = ToCoNameChange + Width = 76 end - object MPRTKZ: TEdit + object MPRTKZ: TcxTextEdit Tag = 2 Left = 332 - Top = 95 - Width = 56 - Height = 21 + Top = 111 + ParentFont = False TabOrder = 3 - OnChange = ToCoNameChange + Width = 56 end - object MPRTMF: TEdit + object MPRTMF: TcxTextEdit Tag = 2 Left = 332 - Top = 119 - Width = 56 - Height = 21 + Top = 135 + ParentFont = False TabOrder = 5 - OnChange = ToCoNameChange + Width = 56 end object CheckBox1: TCheckBox - Left = 9 - Top = 13 + Left = 33 + Top = 119 Width = 65 Height = 17 Caption = #30331#35760#26085#26399 @@ -361,27 +341,48 @@ inherited frmKnitDRSel: TfrmKnitDRSel State = cbChecked TabOrder = 6 end - object DRMID: TEdit + object DRMID: TcxTextEdit Tag = 2 - Left = 341 - Top = 11 - Width = 99 - Height = 21 + Left = 93 + Top = 39 + ParentFont = False TabOrder = 7 - OnChange = ToCoNameChange + Width = 99 + end + inline frmFrameDateSel: TfrmFrameDateSel + Left = 2 + Top = 2 + Width = 1414 + Height = 37 + Align = alTop + Color = clWhite + ParentBackground = False + ParentColor = False + TabOrder = 8 + ExplicitLeft = 2 + ExplicitTop = 2 + ExplicitWidth = 1414 + inherited BegDate: TcxDateEdit + ExplicitHeight = 33 + end + inherited EndDate: TcxDateEdit + ExplicitHeight = 33 + end + inherited cbbType: TcxComboBox + ExplicitHeight = 33 + end end end object cxTabControl1: TcxTabControl [3] Left = 0 - Top = 81 + Top = 108 Width = 1418 - Height = 21 + Height = 28 Align = alTop - Enabled = False TabOrder = 2 Properties.CustomButtons.Buttons = <> Properties.Style = 9 - Properties.TabIndex = 1 + Properties.TabIndex = 2 Properties.Tabs.Strings = ( #26410#23457#26680 #24050#23457#26680 @@ -408,6 +409,7 @@ inherited frmKnitDRSel: TfrmKnitDRSel TabOrder = 5 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_2 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < @@ -440,14 +442,10 @@ inherited frmKnitDRSel: TfrmKnitDRSel OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False - Styles.IncSearch = DataLink_KnitClothStk.SHuangSe - Styles.Footer = DataLink_KnitClothStk.Default - Styles.Header = DataLink_KnitClothStk.Default - Styles.Inactive = DataLink_KnitClothStk.SHuangSe - Styles.Selection = DataLink_KnitClothStk.SHuangSe object cxGridDBColumn1: TcxGridDBColumn Caption = #21512#21516#21495 DataBinding.FieldName = 'SCConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -455,6 +453,7 @@ inherited frmKnitDRSel: TfrmKnitDRSel object cxGridDBColumn2: TcxGridDBColumn Caption = #23458#25143#35746#21333#21495 DataBinding.FieldName = 'KHConno' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 94 @@ -462,6 +461,7 @@ inherited frmKnitDRSel: TfrmKnitDRSel object cxGridDBColumn3: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 88 @@ -469,6 +469,7 @@ inherited frmKnitDRSel: TfrmKnitDRSel object v1Column6: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 71 @@ -476,6 +477,7 @@ inherited frmKnitDRSel: TfrmKnitDRSel object cxGridDBColumn4: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 73 @@ -483,6 +485,7 @@ inherited frmKnitDRSel: TfrmKnitDRSel object cxGridDBColumn5: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 60 @@ -490,6 +493,7 @@ inherited frmKnitDRSel: TfrmKnitDRSel object cxGridDBColumn6: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 71 @@ -497,6 +501,7 @@ inherited frmKnitDRSel: TfrmKnitDRSel object cxGridDBColumn7: TcxGridDBColumn Caption = #30003#35831#21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 81 @@ -504,6 +509,7 @@ inherited frmKnitDRSel: TfrmKnitDRSel object cv1Column3: TcxGridDBColumn Caption = #30003#35831#25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False @@ -512,11 +518,13 @@ inherited frmKnitDRSel: TfrmKnitDRSel object TV2Column1: TcxGridDBColumn Caption = #25968#37327#21333#20301 DataBinding.FieldName = 'QtyUnit' + DataBinding.IsNullValueType = True Options.Editing = False end object TV2Column2: TcxGridDBColumn Caption = #21457#36135#21305#25968 DataBinding.FieldName = 'DlyPiece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 @@ -524,6 +532,7 @@ inherited frmKnitDRSel: TfrmKnitDRSel object TV2Column3: TcxGridDBColumn Caption = #21457#36135#25968#37327 DataBinding.FieldName = 'DlyQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRSel.pas b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRSel.pas index 8f646d0..1633d93 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRSel.pas +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRSel.pas @@ -12,7 +12,24 @@ uses RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit, cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, dxSkinsDefaultPainters, U_BaseHelp, - dxDateRanges, U_BaseList, System.ImageList, Vcl.ImgList; + dxDateRanges, U_BaseList, System.ImageList, Vcl.ImgList, dxSkinBasic, + dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, + dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, + dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, + dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, + dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, + dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful, + dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful, + dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, + dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, + dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld, + dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue, + dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010, + dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations, + cxContainer, FrameDateSel; type TfrmKnitDRSel = class(TfrmBaseHelp) @@ -37,10 +54,10 @@ type Label13: TLabel; BegDate: TDateTimePicker; EndDate: TDateTimePicker; - ToCoName: TEdit; - MPRTCodeName: TEdit; - MPRTKZ: TEdit; - MPRTMF: TEdit; + ToCoName: TcxTextEdit; + MPRTCodeName: TcxTextEdit; + MPRTKZ: TcxTextEdit; + MPRTMF: TcxTextEdit; cxTabControl1: TcxTabControl; cxSplitter1: TcxSplitter; DS_2: TDataSource; @@ -73,6 +90,7 @@ type TV2Column2: TcxGridDBColumn; TV2Column3: TcxGridDBColumn; ToolButton1: TToolButton; + frmFrameDateSel: TfrmFrameDateSel; //RMllPDFExport1: TRMllPDFExport; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); @@ -140,8 +158,8 @@ begin sql.Add(' from Knit_Cloth_DR_Main A where 1=1'); if CheckBox1.Checked then begin - sql.Add(' and Filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); - sql.Add(' and Filltime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' '); + sql.Add(' and Filltime>=''' + FormatDateTime('yyyy-MM-dd', frmFrameDateSel.begdate.Date) + ''' '); + sql.Add(' and Filltime<''' + FormatDateTime('yyyy-MM-dd', frmFrameDateSel.Enddate.Date + 1) + ''' '); end; case cxTabControl1.TabIndex of 0: @@ -193,8 +211,8 @@ begin ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, ''); ReadCxGrid(trim(self.Caption) + 'Tv2', Tv2, ''); - EndDate.DateTime := SGetServerDate(ADOQueryTemp); - BegDate.DateTime := EndDate.DateTime - 60; + frmFrameDateSel.EndDate.Date := SGetServerDate(ADOQueryTemp); + frmFrameDateSel.BegDate.Date := EndDate.DateTime - 60; InitGrid(); end; diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRtInPut.dfm b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRtInPut.dfm index 2965df2..e1bc033 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRtInPut.dfm +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRtInPut.dfm @@ -7,37 +7,31 @@ object frmKnitDRtInPut: TfrmKnitDRtInPut Color = clWhite Font.Charset = GB2312_CHARSET Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnShow = FormShow PixelsPerInch = 96 - TextHeight = 12 + TextHeight = 21 object ToolBar1: TToolBar Tag = 1 Left = 0 Top = 0 Width = 1252 - Height = 38 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 99 Caption = 'ToolBar1' Color = clWhite - DisabledImages = DataLink_KnitClothStk.ImageList_new32 + DisabledImages = DataLink_KnitClothStk.cxImageList_bar EdgeInner = esNone EdgeOuter = esNone - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - Images = DataLink_KnitClothStk.ImageList_new32 + Images = DataLink_KnitClothStk.cxImageList_bar List = True ParentColor = False - ParentFont = False ShowCaptions = True TabOrder = 0 object TBSave: TToolButton @@ -57,7 +51,7 @@ object frmKnitDRtInPut: TfrmKnitDRtInPut OnClick = ToolButton4Click end object TBClose: TToolButton - Left = 166 + Left = 174 Top = 0 AutoSize = True Caption = #20851#38381 @@ -67,9 +61,9 @@ object frmKnitDRtInPut: TfrmKnitDRtInPut end object ScrollBox1: TScrollBox Left = 0 - Top = 38 + Top = 30 Width = 1252 - Height = 75 + Height = 87 Align = alTop BevelInner = bvNone BevelOuter = bvNone @@ -78,174 +72,140 @@ object frmKnitDRtInPut: TfrmKnitDRtInPut ParentColor = False ParentCtl3D = False TabOrder = 1 - ExplicitWidth = 304 object Label1: TLabel - Left = 244 - Top = 13 - Width = 65 - Height = 12 + Left = 251 + Top = 15 + Width = 80 + Height = 21 Caption = #20986#24211#31867#22411#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label12: TLabel - Left = 31 - Top = 42 - Width = 67 - Height = 12 + Left = 43 + Top = 54 + Width = 68 + Height = 21 Caption = #22791' '#27880#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label11: TLabel - Left = 465 - Top = 13 - Width = 65 - Height = 12 + Left = 475 + Top = 15 + Width = 80 + Height = 21 Caption = #25910#36135#21333#20301#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label2: TLabel Left = 33 - Top = 13 - Width = 65 - Height = 12 + Top = 15 + Width = 80 + Height = 21 Caption = #21457#36135#26085#26399#65306 - Font.Charset = GB2312_CHARSET - Font.Color = clBlack - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label27: TLabel - Left = 703 - Top = 12 - Width = 52 - Height = 15 + Left = 701 + Top = 15 + Width = 64 + Height = 21 Caption = #25968#37327#21333#20301 - Font.Charset = ANSI_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = 'Times New Roman' - Font.Style = [fsBold] - ParentFont = False end object Label5: TLabel - Left = 898 - Top = 13 - Width = 54 - Height = 12 + Left = 873 + Top = 15 + Width = 52 + Height = 21 Caption = #21152' '#37325 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end - object OutType: TComboBox + object Note: TcxTextEdit Tag = 1 - Left = 306 - Top = 9 - Width = 136 - Height = 20 - Style = csDropDownList + Left = 115 + Top = 48 + ParentFont = False TabOrder = 0 - Items.Strings = ( + Width = 914 + end + object DRAddWet: TcxTextEdit + Tag = 1 + Left = 929 + Top = 9 + ParentFont = False + TabOrder = 1 + Width = 100 + end + object DlyDate: TcxDateEdit + Tag = 1 + Left = 115 + Top = 9 + AutoSize = False + EditValue = 45490d + ParentFont = False + Properties.ShowTime = False + TabOrder = 2 + Height = 33 + Width = 132 + end + object OutType: TcxComboBox + Tag = 1 + Left = 333 + Top = 9 + AutoSize = False + ParentFont = False + Properties.Items.Strings = ( #38144#21806#20986#24211 #21152#24037#20986#24211) - end - object Note: TEdit - Tag = 1 - Left = 96 - Top = 39 - Width = 962 - Height = 18 - TabOrder = 2 - end - object ToCoName: TBtnEditC - Tag = 1 - Left = 528 - Top = 9 - Width = 138 - Height = 20 - TabOrder = 1 - OnBtnUpClick = ToCoNameBtnUpClick - OnBtnDnClick = ToCoNameBtnDnClick - end - object DlyDate: TDateTimePicker - Tag = 1 - Left = 96 - Top = 9 - Width = 132 - Height = 20 - Date = 40675.000000000000000000 - Format = 'yyyy-MM-dd' - Time = 0.464761099538009100 TabOrder = 3 + Text = #38144#21806#20986#24211 + Height = 33 + Width = 136 end - object QtyUnit: TComboBox + object QtyUnit: TcxComboBox Tag = 2 - Left = 761 + Left = 771 Top = 9 - Width = 96 - Height = 20 - Style = csDropDownList - Enabled = False - ItemIndex = 2 - TabOrder = 4 - Text = 'Kg' - Items.Strings = ( + AutoSize = False + ParentFont = False + Properties.Items.Strings = ( 'M' 'Y' 'Kg') + TabOrder = 4 + Text = 'M' + Height = 33 + Width = 96 end - object DRAddWet: TEdit + object ToCoName: TcxButtonEdit Tag = 1 - Left = 956 + Left = 561 Top = 9 - Width = 100 - Height = 18 + ParentFont = False + Properties.Buttons = < + item + Default = True + Kind = bkEllipsis + end> + Properties.ReadOnly = True + Properties.OnButtonClick = ToCoNameButtonClick + Style.ButtonStyle = btsDefault TabOrder = 5 + OnDblClick = ToCoNameDblClick + Width = 134 end end object ToolBar2: TToolBar Tag = 1 Left = 0 - Top = 113 + Top = 117 Width = 1252 - Height = 38 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 75 + ButtonHeight = 30 + ButtonWidth = 67 Caption = 'ToolBar1' Color = clBtnFace - DisabledImages = DataLink_KnitClothStk.ImageList_new32 + DisabledImages = DataLink_KnitClothStk.cxImageList_bar EdgeInner = esNone EdgeOuter = esNone - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - Images = DataLink_KnitClothStk.ImageList_new32 + Images = DataLink_KnitClothStk.cxImageList_bar List = True ParentColor = False - ParentFont = False ShowCaptions = True TabOrder = 2 object ToolButton3: TToolButton @@ -276,13 +236,14 @@ object frmKnitDRtInPut: TfrmKnitDRtInPut end object cxGrid1: TcxGrid Left = 0 - Top = 151 + Top = 147 Width = 1252 - Height = 292 + Height = 296 Align = alClient TabOrder = 3 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < @@ -317,6 +278,7 @@ object frmKnitDRtInPut: TfrmKnitDRtInPut object v1Column2: TcxGridDBColumn Caption = #21512#21516#21495 DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -324,6 +286,7 @@ object frmKnitDRtInPut: TfrmKnitDRtInPut object Tv1Column8: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'orderno' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 86 @@ -331,24 +294,31 @@ object frmKnitDRtInPut: TfrmKnitDRtInPut object Tv1Column3: TcxGridDBColumn Caption = #23458#25143#35746#21333#21495 DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 94 end object v1Column5: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 88 end object v1Column6: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 71 end object v1Column1: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 73 @@ -356,62 +326,81 @@ object frmKnitDRtInPut: TfrmKnitDRtInPut object v1Column7: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 60 end object Tv1Column6: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 71 end object Tv1Column1: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 72 end object Tv1Column4: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 74 end object Tv1Column5: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 74 end object Tv1Column7: TcxGridDBColumn Caption = #32455#26426#21495 DataBinding.FieldName = 'Loom' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 72 end object Tv1Column2: TcxGridDBColumn Caption = #30003#35831#21305#25968 DataBinding.FieldName = 'Piece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 81 end object cv1Column3: TcxGridDBColumn Caption = #30003#35831#25968#37327 DataBinding.FieldName = 'Qty' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 90 end object Tv1Column9: TcxGridDBColumn Caption = #21333#20215 DataBinding.FieldName = 'Price' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 60 end object Tv1Column10: TcxGridDBColumn Tag = 9 Caption = #35746#21333#25968#37327 DataBinding.FieldName = 'OrdQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -420,6 +409,7 @@ object frmKnitDRtInPut: TfrmKnitDRtInPut Tag = 9 Caption = #35746#21333#21305#25968 DataBinding.FieldName = 'OrdPiece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRtInPut.pas b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRtInPut.pas index 87dea10..7cbcc6d 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRtInPut.pas +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitDRtInPut.pas @@ -11,7 +11,23 @@ uses StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils, cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, - dxDateRanges, dxBarBuiltInMenu, U_BaseList; + dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinBasic, dxSkinBlack, + dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, + dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue, dxScrollbarAnnotations, dxCore, cxDateUtils; type TfrmKnitDRtInPut = class(Tform) @@ -32,11 +48,9 @@ type ADOQuery1: TADOQuery; cxGridPopupMenu2: TcxGridPopupMenu; Label1: TLabel; - OutType: TComboBox; - Note: TEdit; + Note: TcxTextEdit; Label12: TLabel; Label11: TLabel; - ToCoName: TBtnEditC; v1Column1: TcxGridDBColumn; cv1Column3: TcxGridDBColumn; cxStyleRepository1: TcxStyleRepository; @@ -46,14 +60,12 @@ type v1Column6: TcxGridDBColumn; v1Column7: TcxGridDBColumn; Label2: TLabel; - DlyDate: TDateTimePicker; Tv1Column2: TcxGridDBColumn; ToolButton3: TToolButton; Tv1Column3: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn; ToolButton4: TToolButton; Label27: TLabel; - QtyUnit: TComboBox; Tv1Column1: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn; Tv1Column5: TcxGridDBColumn; @@ -61,19 +73,23 @@ type Tv1Column8: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn; Label5: TLabel; - DRAddWet: TEdit; + DRAddWet: TcxTextEdit; Tv1Column10: TcxGridDBColumn; Tv1Column11: TcxGridDBColumn; + DlyDate: TcxDateEdit; + OutType: TcxComboBox; + QtyUnit: TcxComboBox; + ToCoName: TcxButtonEdit; procedure TBCloseClick(Sender: TObject); procedure FormShow(Sender: TObject); procedure TBSaveClick(Sender: TObject); procedure ToolButton1Click(Sender: TObject); procedure ToolButton2Click(Sender: TObject); - procedure ToCoNameBtnUpClick(Sender: TObject); - procedure ToCoNameBtnDnClick(Sender: TObject); procedure JSQtyUnitChange(Sender: TObject); procedure ToolButton3Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject); + procedure ToCoNameDblClick(Sender: TObject); + procedure ToCoNameButtonClick(Sender: TObject; AButtonIndex: Integer); private fuserName: string; procedure InitData(); @@ -109,7 +125,7 @@ var begin if PState = 0 then begin - DlyDate.DateTime := strtodatetime(Trim(FormatDateTime('yyyy-MM-dd', Now))); + DlyDate.Date := strtodatetime(Trim(FormatDateTime('yyyy-MM-dd', Now))); end; with ADOQuery1 do @@ -142,7 +158,7 @@ begin Open; end; SCSHData(ADOQuery1, ScrollBox1, 1); - ToCoName.TxtCode := ADOQuery1.FieldByName('ToCoNo').asstring; + ToCoName.Properties.LookupItems.Text := ADOQuery1.FieldByName('ToCoNo').asstring; end; procedure TfrmKnitDRtInPut.JSQtyUnitChange(Sender: TObject); @@ -204,7 +220,7 @@ begin end; RTSetsavedata(ADOCmd, 'Knit_Cloth_DR_Main', ScrollBox1, 1); FieldByName('DRMID').Value := Trim(MaxMid); - FieldByName('ToCoNo').Value := Trim(ToCoName.TxtCode); + FieldByName('ToCoNo').Value := Trim(ToCoName.Properties.LookupItems.Text); FieldByName('Status').Value := '9'; Post; @@ -447,9 +463,16 @@ begin WriteCxGrid(trim(self.Caption), Tv1, '') end; -procedure TfrmKnitDRtInPut.ToCoNameBtnUpClick(Sender: TObject); -begin +procedure TfrmKnitDRtInPut.ToCoNameDblClick(Sender: TObject); +begin + ToCoName.Text := ''; + ToCoName.Properties.LookupItems.Text := ''; +end; + +procedure TfrmKnitDRtInPut.ToCoNameButtonClick(Sender: TObject; + AButtonIndex: Integer); +begin try frmCompanySel := TfrmCompanySel.Create(Application); with frmCompanySel do @@ -457,7 +480,7 @@ begin FCoType := 'ͻ'; if ShowModal = 1 then begin - self.ToCoName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); + self.ToCoName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); self.ToCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); end; end; @@ -465,12 +488,6 @@ begin finally frmCompanySel.Free; end; - -end; - -procedure TfrmKnitDRtInPut.ToCoNameBtnDnClick(Sender: TObject); -begin - ToCoName.Text := ''; end; end. diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitPlanSel.dfm b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitPlanSel.dfm index 8207579..f81090d 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitPlanSel.dfm +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitPlanSel.dfm @@ -6,34 +6,28 @@ inherited frmKnitPlanSel: TfrmKnitPlanSel ClientWidth = 1595 Color = clWhite Font.Charset = GB2312_CHARSET - Font.Height = -12 - Font.Name = #23435#20307 Position = poScreenCenter OnClose = FormClose + ExplicitLeft = -436 ExplicitWidth = 1611 ExplicitHeight = 562 PixelsPerInch = 96 - TextHeight = 12 + TextHeight = 21 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 Top = 0 Width = 1595 - Height = 38 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 99 Caption = 'ToolBar1' Color = clWhite - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - Images = ImageList1 + DisabledImages = DataLink_KnitClothStk.cxImageList_bar + Images = DataLink_KnitClothStk.cxImageList_bar List = True ParentColor = False - ParentFont = False ShowCaptions = True TabOrder = 0 object ToolButton1: TToolButton @@ -53,7 +47,7 @@ inherited frmKnitPlanSel: TfrmKnitPlanSel OnClick = TBSaveClick end object TBClose: TToolButton - Left = 166 + Left = 174 Top = 0 AutoSize = True Caption = #20851#38381 @@ -63,9 +57,9 @@ inherited frmKnitPlanSel: TfrmKnitPlanSel end object Panel1: TPanel [1] Left = 0 - Top = 38 + Top = 30 Width = 1595 - Height = 59 + Height = 83 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered @@ -73,191 +67,136 @@ inherited frmKnitPlanSel: TfrmKnitPlanSel object Label3: TLabel Left = 39 Top = 10 - Width = 52 - Height = 12 + Width = 64 + Height = 21 Caption = #35745#21010#21333#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label2: TLabel Left = 243 Top = 10 - Width = 52 - Height = 12 + Width = 64 + Height = 21 Caption = #20135#21697#21517#31216 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label4: TLabel Left = 447 Top = 10 - Width = 26 - Height = 12 + Width = 32 + Height = 21 Caption = #39068#33394 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label5: TLabel Left = 447 - Top = 37 - Width = 26 - Height = 12 + Top = 49 + Width = 32 + Height = 21 Caption = #33394#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label6: TLabel Left = 620 Top = 10 - Width = 26 - Height = 12 + Width = 32 + Height = 21 Caption = #33457#22411 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label7: TLabel Left = 243 - Top = 37 - Width = 52 - Height = 12 + Top = 49 + Width = 64 + Height = 21 Caption = #20135#21697#32534#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label8: TLabel Left = 38 - Top = 37 - Width = 53 - Height = 12 + Top = 49 + Width = 58 + Height = 21 Caption = #21512' '#21516' '#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label1: TLabel Left = 620 - Top = 37 - Width = 26 - Height = 12 + Top = 49 + Width = 32 + Height = 21 Caption = #23458#25143 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] + end + object OrderNo: TcxTextEdit + Tag = 2 + Left = 102 + Top = 6 ParentFont = False - end - object OrderNo: TEdit - Tag = 2 - Left = 97 - Top = 6 - Width = 120 - Height = 20 TabOrder = 0 - OnChange = OrderNoChange - end - object C_Name: TEdit - Tag = 2 - Left = 301 - Top = 6 Width = 120 - Height = 20 + end + object C_Name: TcxTextEdit + Tag = 2 + Left = 313 + Top = 6 + ParentFont = False TabOrder = 1 - OnChange = OrderNoChange - end - object C_Color: TEdit - Tag = 2 - Left = 476 - Top = 6 Width = 120 - Height = 20 + end + object C_Color: TcxTextEdit + Tag = 2 + Left = 485 + Top = 6 + ParentFont = False TabOrder = 2 - OnChange = OrderNoChange - end - object C_ColorNo: TEdit - Tag = 2 - Left = 476 - Top = 33 Width = 120 - Height = 20 + end + object C_ColorNo: TcxTextEdit + Tag = 2 + Left = 485 + Top = 44 + ParentFont = False TabOrder = 3 - OnChange = OrderNoChange + Width = 120 end - object C_Pattern: TEdit + object C_Pattern: TcxTextEdit Tag = 2 - Left = 649 + Left = 658 Top = 6 - Width = 120 - Height = 20 + ParentFont = False TabOrder = 4 - OnChange = OrderNoChange - end - object C_Code: TEdit - Tag = 2 - Left = 300 - Top = 33 Width = 120 - Height = 20 + end + object C_Code: TcxTextEdit + Tag = 2 + Left = 313 + Top = 44 + ParentFont = False TabOrder = 5 - OnChange = OrderNoChange - end - object ConNo: TEdit - Tag = 2 - Left = 97 - Top = 33 Width = 120 - Height = 20 + end + object ConNo: TcxTextEdit + Tag = 2 + Left = 102 + Top = 44 + ParentFont = False TabOrder = 6 - OnChange = OrderNoChange - end - object CustName: TEdit - Tag = 2 - Left = 649 - Top = 33 Width = 120 - Height = 20 + end + object CustName: TcxTextEdit + Tag = 2 + Left = 658 + Top = 44 + ParentFont = False TabOrder = 7 - OnChange = OrderNoChange + Width = 120 end end object cxGrid1: TcxGrid [2] Left = 0 - Top = 97 + Top = 113 Width = 1595 - Height = 426 + Height = 410 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 object Tv1: TcxGridDBTableView OnDblClick = TV1DblClick Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] @@ -273,14 +212,17 @@ inherited frmKnitPlanSel: TfrmKnitPlanSel object v1Column7: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'Ssel' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 56 end object Tv1Column11: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'CustName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 @@ -288,32 +230,33 @@ inherited frmKnitPlanSel: TfrmKnitPlanSel object v1OrderNo: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'OrderNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Options.Focusing = False Width = 72 end object v1ConNo: TcxGridDBColumn Caption = #21512#21516#21495 DataBinding.FieldName = 'ConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Options.Focusing = False Width = 68 end object v1DeliveryDate: TcxGridDBColumn Caption = #20132#36135#26085#26399 DataBinding.FieldName = 'DlyDate' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxDateEditProperties' Properties.ShowTime = False HeaderAlignmentHorz = taCenter Options.Editing = False - Options.Focusing = False Width = 66 end object Tv1Column10: TcxGridDBColumn Caption = #35745#21010#21333#21495 DataBinding.FieldName = 'orderno' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 79 @@ -321,6 +264,7 @@ inherited frmKnitPlanSel: TfrmKnitPlanSel object Tv1Column4: TcxGridDBColumn Caption = #23458#25143#21333#21495 DataBinding.FieldName = 'BuyConNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 80 @@ -328,41 +272,46 @@ inherited frmKnitPlanSel: TfrmKnitPlanSel object Tv1Column5: TcxGridDBColumn Caption = #24037#33402 DataBinding.FieldName = 'Technics' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False end object Tv1Column2: TcxGridDBColumn Caption = #21152#24037#21378 DataBinding.FieldName = 'FtyName' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 138 end object v1OrdDefStr1: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Options.Focusing = False Width = 90 end object v1MPRTCodeName: TcxGridDBColumn Caption = #20135#21697#21517#31216 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Options.Focusing = False Width = 70 end object v1MPRTSpec: TcxGridDBColumn Caption = #35268#26684 DataBinding.FieldName = 'C_Spec' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Options.Focusing = False Width = 68 end object Tv1Column1: TcxGridDBColumn Caption = #25104#20998 DataBinding.FieldName = 'C_Composition' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -370,68 +319,71 @@ inherited frmKnitPlanSel: TfrmKnitPlanSel object v1MPRTMF: TcxGridDBColumn Caption = #38376#24133 DataBinding.FieldName = 'C_Width' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Options.Focusing = False Width = 70 end object v1MPRTKZ: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'C_GramWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Options.Focusing = False Width = 54 end object v1PRTColor: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'C_Color' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Options.Focusing = False Width = 63 end object v1Column1: TcxGridDBColumn Caption = #33394#21495 DataBinding.FieldName = 'C_ColorNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Options.Focusing = False Width = 56 end object v1Column6: TcxGridDBColumn Caption = #33457#22411 DataBinding.FieldName = 'C_Pattern' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Options.Focusing = False Width = 80 end object v1Column4: TcxGridDBColumn Caption = #35745#21010#21305#25968 DataBinding.FieldName = 'OrdPiece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 87 end object v1PRTOrderQty: TcxGridDBColumn Caption = #35745#21010#25968#37327 DataBinding.FieldName = 'OrdQty' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Options.Focusing = False Width = 75 end object v1Column5: TcxGridDBColumn Caption = #25968#37327#21333#20301 DataBinding.FieldName = 'OrdUnit' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Options.Focusing = False Width = 62 end object v1Column3: TcxGridDBColumn Caption = #20844#26020#25968 DataBinding.FieldName = 'PRTOrderKgQty' + DataBinding.IsNullValueType = True Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False @@ -440,6 +392,7 @@ inherited frmKnitPlanSel: TfrmKnitPlanSel object Tv1Column3: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'OrdSNote' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 @@ -447,24 +400,31 @@ inherited frmKnitPlanSel: TfrmKnitPlanSel object Tv1Column6: TcxGridDBColumn Caption = #24211#23384#21305#25968 DataBinding.FieldName = 'SumPiece' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 66 end object Tv1Column8: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 80 end object Tv1Column7: TcxGridDBColumn Caption = #24211#23384#25968#37327 DataBinding.FieldName = 'SumStkGrossWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter + Options.Editing = False Width = 66 end object Tv1Column9: TcxGridDBColumn Caption = #32455#26426#21495 DataBinding.FieldName = 'Loom' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 68 diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitPlanSel.pas b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitPlanSel.pas index c677f6e..9589693 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitPlanSel.pas +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitPlanSel.pas @@ -11,7 +11,23 @@ uses cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, cxCheckBox, - cxCalendar, Vcl.Menus; + cxCalendar, Vcl.Menus, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, + dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue, dxScrollbarAnnotations, cxContainer; type TfrmKnitPlanSel = class(TfrmBaseHelp) @@ -62,15 +78,15 @@ type Label6: TLabel; Label7: TLabel; Label8: TLabel; - OrderNo: TEdit; - C_Name: TEdit; - C_Color: TEdit; - C_ColorNo: TEdit; - C_Pattern: TEdit; - C_Code: TEdit; - ConNo: TEdit; + OrderNo: TcxTextEdit; + C_Name: TcxTextEdit; + C_Color: TcxTextEdit; + C_ColorNo: TcxTextEdit; + C_Pattern: TcxTextEdit; + C_Code: TcxTextEdit; + ConNo: TcxTextEdit; Label1: TLabel; - CustName: TEdit; + CustName: TcxTextEdit; Tv1Column6: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn; diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitStockTakinglist.dfm b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitStockTakinglist.dfm index c26c9f9..0cf3ba8 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitStockTakinglist.dfm +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitStockTakinglist.dfm @@ -4,32 +4,30 @@ inherited frmKnitStockTakinglist: TfrmKnitStockTakinglist Caption = #30424#24211#21015#34920 ClientHeight = 592 ClientWidth = 1366 + ParentFont = False + Font.Charset = ANSI_CHARSET + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 Position = poScreenCenter ExplicitWidth = 1382 ExplicitHeight = 631 PixelsPerInch = 96 - TextHeight = 12 + TextHeight = 21 object ToolBar1: TToolBar [0] Tag = 1 Left = 0 Top = 0 Width = 1366 - Height = 38 + Height = 30 AutoSize = True - ButtonHeight = 38 - ButtonWidth = 91 + ButtonHeight = 30 + ButtonWidth = 99 Caption = 'ToolBar1' Color = clSkyBlue - DisabledImages = DataLink_KnitClothStk.ImageList_new32 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [] - Images = DataLink_KnitClothStk.ImageList_new32 + DisabledImages = DataLink_KnitClothStk.cxImageList_bar + Images = DataLink_KnitClothStk.cxImageList_bar List = True ParentColor = False - ParentFont = False ShowCaptions = True TabOrder = 0 object TBRafresh: TToolButton @@ -57,7 +55,7 @@ inherited frmKnitStockTakinglist: TfrmKnitStockTakinglist OnClick = TchkClick end object Tnochk: TToolButton - Left = 237 + Left = 245 Top = 0 AutoSize = True Caption = #30424#28857#32467#26463 @@ -65,7 +63,7 @@ inherited frmKnitStockTakinglist: TfrmKnitStockTakinglist OnClick = TnochkClick end object TBExport: TToolButton - Left = 332 + Left = 348 Top = 0 AutoSize = True Caption = #23548#20986 @@ -73,7 +71,7 @@ inherited frmKnitStockTakinglist: TfrmKnitStockTakinglist OnClick = TBExportClick end object ToolButton1: TToolButton - Left = 403 + Left = 419 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 @@ -81,7 +79,7 @@ inherited frmKnitStockTakinglist: TfrmKnitStockTakinglist OnClick = ToolButton1Click end object TBClose: TToolButton - Left = 498 + Left = 522 Top = 0 AutoSize = True Caption = #20851#38381 @@ -91,9 +89,9 @@ inherited frmKnitStockTakinglist: TfrmKnitStockTakinglist end object Panel1: TPanel [1] Left = 0 - Top = 38 + Top = 30 Width = 1366 - Height = 47 + Height = 83 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered @@ -101,30 +99,18 @@ inherited frmKnitStockTakinglist: TfrmKnitStockTakinglist ParentBackground = False TabOrder = 1 object Label1: TLabel - Left = 23 - Top = 15 - Width = 52 - Height = 12 + Left = 663 + Top = 127 + Width = 64 + Height = 21 Caption = #30003#35831#26085#26399 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label3: TLabel - Left = 463 - Top = 15 - Width = 26 - Height = 12 + Left = 197 + Top = 48 + Width = 32 + Height = 21 Caption = #21697#21517 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label4: TLabel Left = 440 @@ -142,8 +128,8 @@ inherited frmKnitStockTakinglist: TfrmKnitStockTakinglist object Label6: TLabel Left = 320 Top = 108 - Width = 24 - Height = 12 + Width = 32 + Height = 21 Caption = #20179#24211 end object Label8: TLabel @@ -173,81 +159,67 @@ inherited frmKnitStockTakinglist: TfrmKnitStockTakinglist ParentFont = False end object Label5: TLabel - Left = 177 - Top = 15 - Width = 6 - Height = 12 + Left = 817 + Top = 127 + Width = 7 + Height = 21 Caption = '-' end object Label10: TLabel - Left = 292 - Top = 15 - Width = 52 - Height = 12 + Left = 25 + Top = 48 + Width = 64 + Height = 21 Caption = #30424#28857#21333#21495 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -12 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object Label7: TLabel - Left = 630 - Top = 13 - Width = 68 - Height = 16 + Left = 337 + Top = 48 + Width = 64 + Height = 21 Caption = #25195#25551#20837#21475 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False end object BegDate: TDateTimePicker - Left = 81 - Top = 11 + Left = 721 + Top = 123 Width = 90 - Height = 20 + Height = 29 Date = 40675.000000000000000000 Format = 'yyyy-MM-dd' Time = 0.464742650459811600 TabOrder = 0 end object EndDate: TDateTimePicker - Left = 189 - Top = 11 + Left = 829 + Top = 123 Width = 90 - Height = 20 + Height = 29 Date = 40675.000000000000000000 Format = 'yyyy-MM-dd' Time = 0.464761099538009100 TabOrder = 1 end - object C_Name: TEdit + object C_Name: TcxTextEdit Tag = 2 - Left = 495 - Top = 11 - Width = 100 - Height = 20 + Left = 233 + Top = 42 + ParentFont = False TabOrder = 2 - OnChange = C_NameChange + Width = 100 end - object P_Code: TEdit + object P_Code: TcxTextEdit Tag = 2 Left = 496 Top = 111 - Width = 100 - Height = 20 + ParentFont = False TabOrder = 3 - OnChange = C_NameChange + Width = 100 end object ckName: TComboBox Left = 348 Top = 104 Width = 100 - Height = 20 + Height = 29 Style = csDropDownList ItemIndex = 0 TabOrder = 4 @@ -255,58 +227,70 @@ inherited frmKnitStockTakinglist: TfrmKnitStockTakinglist Items.Strings = ( #26679#21697#20179#24211) end - object kuwei: TEdit + object kuwei: TcxTextEdit Tag = 2 Left = 996 Top = 108 - Width = 100 - Height = 20 + ParentFont = False TabOrder = 5 - OnChange = C_NameChange + Width = 100 end - object custName: TEdit + object custName: TcxTextEdit Tag = 2 Left = 236 Top = 111 - Width = 100 - Height = 20 + ParentFont = False TabOrder = 6 - OnChange = C_NameChange - end - object KCSTMID: TEdit - Tag = 2 - Left = 350 - Top = 11 Width = 100 - Height = 20 - TabOrder = 7 - OnChange = C_NameChange end - object Edit1: TEdit + object KCSTMID: TcxTextEdit + Tag = 2 + Left = 93 + Top = 42 + ParentFont = False + TabOrder = 7 + Width = 100 + end + object Edit1: TcxTextEdit Tag = 9 - Left = 704 - Top = 9 - Width = 151 - Height = 24 - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = #23435#20307 - Font.Style = [fsBold] + Left = 405 + Top = 42 ParentFont = False TabOrder = 8 OnKeyPress = Edit1KeyPress + Width = 151 + end + inline frmFrameDateSel: TfrmFrameDateSel + Left = 2 + Top = 2 + Width = 1362 + Height = 37 + Align = alTop + TabOrder = 9 + ExplicitLeft = 2 + ExplicitTop = 2 + ExplicitWidth = 1362 + inherited BegDate: TcxDateEdit + ExplicitHeight = 33 + end + inherited EndDate: TcxDateEdit + ExplicitHeight = 33 + end + inherited cbbType: TcxComboBox + ExplicitHeight = 33 + end end end object cxGrid1: TcxGrid [2] Left = 0 - Top = 147 + Top = 175 Width = 1366 - Height = 445 + Height = 417 Align = alClient TabOrder = 2 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> + ScrollbarAnnotations.CustomAnnotations = <> DataController.DataSource = DS_1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < @@ -322,10 +306,10 @@ inherited frmKnitStockTakinglist: TfrmKnitStockTakinglist OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False - Styles.Header = DataLink_KnitClothStk.Default object v1inoutNO: TcxGridDBColumn Caption = #30424#28857#21333#21495 DataBinding.FieldName = 'KCSTMID' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 88 @@ -333,6 +317,7 @@ inherited frmKnitStockTakinglist: TfrmKnitStockTakinglist object v1CRTime: TcxGridDBColumn Caption = #24320#22987#30424#28857#26085#26399 DataBinding.FieldName = 'begTime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 120 @@ -340,6 +325,7 @@ inherited frmKnitStockTakinglist: TfrmKnitStockTakinglist object v1Column3: TcxGridDBColumn Caption = #32467#26463#30424#28857#26102#38388 DataBinding.FieldName = 'endTime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 126 @@ -347,12 +333,14 @@ inherited frmKnitStockTakinglist: TfrmKnitStockTakinglist object Tv1Column1: TcxGridDBColumn Caption = #26465#30721 DataBinding.FieldName = 'StkId' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Width = 78 end object v1P_Color: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'C_Code' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 68 @@ -360,6 +348,7 @@ inherited frmKnitStockTakinglist: TfrmKnitStockTakinglist object v1P_CodeName: TcxGridDBColumn Caption = #21697#21517 DataBinding.FieldName = 'C_Name' + DataBinding.IsNullValueType = True PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item @@ -373,64 +362,49 @@ inherited frmKnitStockTakinglist: TfrmKnitStockTakinglist object v1Column1: TcxGridDBColumn Caption = #26465#30721 DataBinding.FieldName = 'StkId' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Content = DataLink_KnitClothStk.FontBlue - Styles.Footer = DataLink_KnitClothStk.FontBlue - Styles.Header = DataLink_KnitClothStk.FontBlue Width = 115 end object Tv1Column3: TcxGridDBColumn Caption = #31859#25968 DataBinding.FieldName = 'StkMeter' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Content = DataLink_KnitClothStk.FontBlue - Styles.Footer = DataLink_KnitClothStk.FontBlue - Styles.Header = DataLink_KnitClothStk.FontBlue Width = 72 end object Tv1Column5: TcxGridDBColumn Caption = #37325#37327 DataBinding.FieldName = 'StkGrossWeight' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Content = DataLink_KnitClothStk.FontBlue - Styles.Footer = DataLink_KnitClothStk.FontBlue - Styles.Header = DataLink_KnitClothStk.FontBlue Width = 66 end object Tv1Column6: TcxGridDBColumn Caption = #30424#28857#26102#38388 DataBinding.FieldName = 'STTime' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Content = DataLink_KnitClothStk.FonePurple - Styles.Footer = DataLink_KnitClothStk.FonePurple - Styles.GroupSummary = DataLink_KnitClothStk.FonePurple - Styles.Header = DataLink_KnitClothStk.FonePurple Width = 79 end object Tv1Column8: TcxGridDBColumn Caption = #30424#28857#20154 DataBinding.FieldName = 'STer' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Content = DataLink_KnitClothStk.FonePurple - Styles.Footer = DataLink_KnitClothStk.FonePurple - Styles.GroupSummary = DataLink_KnitClothStk.FonePurple - Styles.Header = DataLink_KnitClothStk.FonePurple Width = 71 end object Tv1Column9: TcxGridDBColumn Caption = #30424#28857#32467#26524 DataBinding.FieldName = 'STResult' + DataBinding.IsNullValueType = True HeaderAlignmentHorz = taCenter Options.Editing = False - Styles.Content = DataLink_KnitClothStk.FonePurple - Styles.Footer = DataLink_KnitClothStk.FonePurple - Styles.GroupSummary = DataLink_KnitClothStk.FonePurple - Styles.Header = DataLink_KnitClothStk.FonePurple Width = 80 end end @@ -438,62 +412,39 @@ inherited frmKnitStockTakinglist: TfrmKnitStockTakinglist GridView = Tv1 end end - object MovePanel2: TMovePanel [3] - Left = 544 - Top = 244 - Width = 289 - Height = 49 - BevelInner = bvLowered - Caption = #27491#22312#25191#34892#25968#25454#25805#20316#65292#35831#31245#21518#12290#12290#12290 - Color = clSkyBlue - Font.Charset = GB2312_CHARSET - Font.Color = clRed - Font.Height = -14 - Font.Name = #23435#20307 - Font.Style = [fsBold] - ParentFont = False - TabOrder = 3 - Visible = False - end - object cxTabControl1: TcxTabControl [4] + object cxTabControl1: TcxTabControl [3] Left = 0 - Top = 120 + Top = 148 Width = 1366 Height = 27 Align = alTop - Font.Charset = GB2312_CHARSET - Font.Color = clWindowText - Font.Height = -19 - Font.Name = #40657#20307 - Font.Style = [fsBold] - ParentFont = False TabOrder = 4 Properties.CustomButtons.Buttons = <> - Properties.Style = 6 - Properties.TabIndex = 0 + Properties.Style = 9 + Properties.TabIndex = 1 Properties.Tabs.Strings = ( #30424#28857#20013 #30424#28857#23436 #20840#37096) + LookAndFeel.SkinName = 'WXI' OnChange = cxTabControl1Change - ClientRectBottom = 29 - ClientRectRight = 1366 - ClientRectTop = 29 + ClientRectRight = 0 + ClientRectTop = 0 end - object Pnl_msg: TPanel [5] + object Pnl_msg: TPanel [4] Left = 0 - Top = 85 + Top = 113 Width = 1366 Height = 35 Align = alTop Caption = 'msg' Font.Charset = GB2312_CHARSET Font.Color = clRed - Font.Height = -24 - Font.Name = #23435#20307 + Font.Height = -16 + Font.Name = #24494#36719#38597#40657 Font.Style = [] ParentFont = False - TabOrder = 5 + TabOrder = 3 Visible = False end inherited ADOQueryBaseCmd: TADOQuery diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitStockTakinglist.pas b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitStockTakinglist.pas index 9f3cae1..1f329db 100644 --- a/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitStockTakinglist.pas +++ b/项目代码/RTBasicsV1/D03针织坯布仓库/U_KnitStockTakinglist.pas @@ -12,7 +12,24 @@ uses RM_Class, RM_e_Xls, RM_GridReport, RM_System, RM_Dataset, cxPC, MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, cxCheckBox, cxSplitter, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, - U_BaseList, Winapi.MMSystem; + U_BaseList, Winapi.MMSystem, dxSkinBasic, dxSkinBlack, dxSkinBlue, + dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, + dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy, + dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, + dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, + dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, + dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark, + dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, + dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, + dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, + dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, + dxSkinXmas2008Blue, dxScrollbarAnnotations, cxContainer, cxTextEdit, + FrameDateSel; type TfrmKnitStockTakinglist = class(TfrmBaseList) @@ -32,8 +49,8 @@ type v1CRTime: TcxGridDBColumn; Label3: TLabel; Label4: TLabel; - C_Name: TEdit; - P_Code: TEdit; + C_Name: TcxTextEdit; + P_Code: TcxTextEdit; ADOQueryCmd: TADOQuery; ADOQueryTmp: TADOQuery; DS_1: TDataSource; @@ -43,16 +60,15 @@ type Label6: TLabel; v1P_Color: TcxGridDBColumn; v1inoutNO: TcxGridDBColumn; - kuwei: TEdit; + kuwei: TcxTextEdit; Label8: TLabel; - custName: TEdit; + custName: TcxTextEdit; Label2: TLabel; Tchk: TToolButton; Tnochk: TToolButton; Label5: TLabel; v1Column1: TcxGridDBColumn; v1Column3: TcxGridDBColumn; - MovePanel2: TMovePanel; Tv1Column3: TcxGridDBColumn; ADOQueryMain: TADOQuery; Tv1Column5: TcxGridDBColumn; @@ -61,12 +77,13 @@ type Tv1Column8: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn; Label10: TLabel; - KCSTMID: TEdit; + KCSTMID: TcxTextEdit; ToolButton1: TToolButton; Tv1Column1: TcxGridDBColumn; Label7: TLabel; - Edit1: TEdit; + Edit1: TcxTextEdit; Pnl_msg: TPanel; + frmFrameDateSel: TfrmFrameDateSel; procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormDestroy(Sender: TObject); procedure C_NameChange(Sender: TObject); @@ -140,8 +157,8 @@ begin 1: begin sql.Add('and isnull(A.Status,''0'') =''1'' '); - sql.Add('and A.begTime>=''' + formatdateTime('yyyy-MM-dd', begdate.Date) + ''' '); - sql.Add('and A.begTime<''' + formatdateTime('yyyy-MM-dd', enddate.Date + 1) + ''' '); + sql.Add('and A.begTime>=''' + formatdateTime('yyyy-MM-dd', frmFrameDateSel.begdate.Date) + ''' '); + sql.Add('and A.begTime<''' + formatdateTime('yyyy-MM-dd', frmFrameDateSel.enddate.Date + 1) + ''' '); end; 2: begin @@ -222,8 +239,8 @@ end; procedure TfrmKnitStockTakinglist.FormCreate(Sender: TObject); begin inherited; - EndDate.DateTime := SGetServerDateTime(ADOQueryTmp); - BegDate.DateTime := EndDate.DateTime - 20; + frmFrameDateSel.EndDate.Date := SGetServerDateTime(ADOQueryTmp); + frmFrameDateSel.BegDate.Date := frmFrameDateSel.EndDate.Date - 20; end; @@ -271,9 +288,9 @@ begin Application.MessageBox('ȡӦʧ!', 'ʾ', 0); Exit; end; - MovePanel2.Left := (self.Width - MovePanel2.Width) div 2; - MovePanel2.Visible := True; - MovePanel2.Refresh; +// MovePanel2.Left := (self.Width - MovePanel2.Width) div 2; +// MovePanel2.Visible := True; +// MovePanel2.Refresh; ADOQueryCmd.Connection.BeginTrans; try ////////////////////̵///////////////////////////// @@ -291,11 +308,11 @@ begin execsql; end; - MovePanel2.Visible := false; +// MovePanel2.Visible := false; ADOQueryCmd.Connection.CommitTrans; TBRafresh.Click; except - MovePanel2.Visible := false; +// MovePanel2.Visible := false; ADOQueryCmd.Connection.RollbackTrans; application.MessageBox('̵ݴ!', 'ʾϢ', MB_ICONERROR); end; @@ -324,6 +341,8 @@ begin end; end; + + procedure TfrmKnitStockTakinglist.ToolButton1Click(Sender: TObject); begin writeCxGrid(self.Caption, Tv1, 'Ʒֿ'); diff --git a/项目代码/RTBasicsV1/D03针织坯布仓库/testDll.identcache b/项目代码/RTBasicsV1/D03针织坯布仓库/testDll.identcache index 1d784b5886e05ce67286772913f2cd0a98266992..7f5ed94f5579178e4603d8a93352c1881d311b3d 100644 GIT binary patch literal 174 zcmZQ#U|{fcv5E-_amz2tEzd8?j(NFo=kwX?p6p)yd_f~n+$pg*Gr2g-Fvi8e_~oRI z=eygV&Rzd>NAr{2lb`OI91|K}l3HAnl9QuXkXQ^f3=Z5WF%@K{3((Azf+DzqKn4Ij CN=hLB delta 83 zcmZ3-xQJ1OiGhK^(ZwpprNGc2D77Fz=H