sss
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
95fa3bf810
commit
0d592fe1f6
|
|
@ -2,6 +2,6 @@
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<Transactions/>
|
<Transactions/>
|
||||||
<Default.Personality>
|
<Default.Personality>
|
||||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10szXiangying\E01梭织生产计划\TatPlan.dproj"/>
|
<Projects ActiveProject="D:\D10W\项目代码\D10szXIANGYING\E01梭织生产计划\TatPlan.dproj"/>
|
||||||
</Default.Personality>
|
</Default.Personality>
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|
|
||||||
|
|
@ -1,53 +1,81 @@
|
||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<Transactions>
|
<Transactions>
|
||||||
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.189,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatOutputList.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.827,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachHistoryList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.637,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.695,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.827,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachHistoryList.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.561,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatCardInPut.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatOutputList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.552,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatPlanCard.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.079,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecEditSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.297,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_YarnStkSel.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.297,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_YarnStkSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.806,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecInPut.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.806,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecInPut.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.079,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecEditSel.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.125,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachList.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.354,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.pas=</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.637,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
</Transactions>
|
</Transactions>
|
||||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||||
|
<File Path="android-support-v4.dex.jar"/>
|
||||||
|
<File Path="cloud-messaging.dex.jar"/>
|
||||||
|
<File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
|
||||||
|
<File Path="com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar"/>
|
||||||
|
<File Path="com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar"/>
|
||||||
|
<File Path="com-google-android-gms.play-services-ads.17.2.0.dex.jar"/>
|
||||||
|
<File Path="com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar"/>
|
||||||
|
<File Path="com-google-android-gms.play-services-analytics.16.0.8.dex.jar"/>
|
||||||
|
<File Path="com-google-android-gms.play-services-base.16.0.1.dex.jar"/>
|
||||||
|
<File Path="com-google-android-gms.play-services-basement.16.2.0.dex.jar"/>
|
||||||
|
<File Path="com-google-android-gms.play-services-gass.17.2.0.dex.jar"/>
|
||||||
|
<File Path="com-google-android-gms.play-services-identity.16.0.0.dex.jar"/>
|
||||||
|
<File Path="com-google-android-gms.play-services-maps.16.1.0.dex.jar"/>
|
||||||
|
<File Path="com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar"/>
|
||||||
|
<File Path="com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar"/>
|
||||||
|
<File Path="com-google-android-gms.play-services-stats.16.0.1.dex.jar"/>
|
||||||
|
<File Path="com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar"/>
|
||||||
|
<File Path="com-google-android-gms.play-services-tasks.16.0.1.dex.jar"/>
|
||||||
|
<File Path="com-google-android-gms.play-services-wallet.16.0.1.dex.jar"/>
|
||||||
|
<File Path="com-google-firebase.firebase-analytics.16.4.0.dex.jar"/>
|
||||||
|
<File Path="com-google-firebase.firebase-common.16.1.0.dex.jar"/>
|
||||||
|
<File Path="com-google-firebase.firebase-iid-interop.16.0.1.dex.jar"/>
|
||||||
|
<File Path="com-google-firebase.firebase-iid.17.1.1.dex.jar"/>
|
||||||
|
<File Path="com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar"/>
|
||||||
|
<File Path="com-google-firebase.firebase-messaging.17.5.0.dex.jar"/>
|
||||||
|
<File Path="fmx.dex.jar"/>
|
||||||
|
<File Path="google-play-billing.dex.jar"/>
|
||||||
|
<File Path="google-play-licensing.dex.jar"/>
|
||||||
<File Path="..\..\D10szXIANGYING"/>
|
<File Path="..\..\D10szXIANGYING"/>
|
||||||
<File Path="..\A00通用窗体"/>
|
<File Path="..\A00通用窗体"/>
|
||||||
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
|
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
|
||||||
|
|
@ -69,7 +97,7 @@
|
||||||
<File Path="..\E00梭织通用窗体"/>
|
<File Path="..\E00梭织通用窗体"/>
|
||||||
<File Path="..\E00梭织通用窗体\U_TatPlanSel.pas"/>
|
<File Path="..\E00梭织通用窗体\U_TatPlanSel.pas"/>
|
||||||
<File Path="..\E00梭织通用窗体\U_TatPlanSel.dfm"/>
|
<File Path="..\E00梭织通用窗体\U_TatPlanSel.dfm"/>
|
||||||
<File Path="D:\Dp10Repo"/>
|
<File Path="D:\D10W"/>
|
||||||
<File Path="..\..\..\public10"/>
|
<File Path="..\..\..\public10"/>
|
||||||
<File Path="..\..\..\public10\design"/>
|
<File Path="..\..\..\public10\design"/>
|
||||||
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
|
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
|
||||||
|
|
|
||||||
Binary file not shown.
Binary file not shown.
|
|
@ -2,6 +2,6 @@
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<Transactions/>
|
<Transactions/>
|
||||||
<Default.Personality>
|
<Default.Personality>
|
||||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\TatInsp.dproj"/>
|
<Projects ActiveProject="D:\D10W\项目代码\D10szXIANGYING\E03梭织坯布检验\TatInsp.dproj"/>
|
||||||
</Default.Personality>
|
</Default.Personality>
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|
|
||||||
|
|
@ -80,7 +80,7 @@
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||||
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
||||||
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\testDll.exe</Debugger_HostApplication>
|
<Debugger_HostApplication>D:\D10W\项目代码\D10szXIANGYING\E03梭织坯布检验\testDll.exe</Debugger_HostApplication>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
<DelphiCompile Include="$(MainSource)">
|
<DelphiCompile Include="$(MainSource)">
|
||||||
|
|
|
||||||
|
|
@ -1,52 +1,52 @@
|
||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<Transactions>
|
<Transactions>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.367,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.367,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.060,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatInspSHHZ.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.060,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatInspSHHZ.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.995,=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatClothInspList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.809,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatMachCutHZList.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.809,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatMachCutHZList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.117,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\KnitInsp.dproj</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.013,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatClothInspHZList.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.013,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatClothInspHZList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
|
||||||
</Transactions>
|
</Transactions>
|
||||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||||
<File Path="..\..\D10szXIANGYING"/>
|
<File Path="..\..\D10szXIANGYING"/>
|
||||||
|
|
@ -65,7 +65,7 @@
|
||||||
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
|
<File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
|
||||||
<File Path="..\A00通用窗体\U_TatClothInfoSel.pas"/>
|
<File Path="..\A00通用窗体\U_TatClothInfoSel.pas"/>
|
||||||
<File Path="..\A00通用窗体\U_TatClothInfoSel.dfm"/>
|
<File Path="..\A00通用窗体\U_TatClothInfoSel.dfm"/>
|
||||||
<File Path="D:\Dp10Repo"/>
|
<File Path="D:\D10W"/>
|
||||||
<File Path="..\..\..\public10"/>
|
<File Path="..\..\..\public10"/>
|
||||||
<File Path="..\..\..\public10\design"/>
|
<File Path="..\..\..\public10\design"/>
|
||||||
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
|
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
|
||||||
|
|
|
||||||
Binary file not shown.
|
|
@ -49,7 +49,7 @@
|
||||||
<File Path="JDAESExtend.pas"/>
|
<File Path="JDAESExtend.pas"/>
|
||||||
</ProjectSortOrder>
|
</ProjectSortOrder>
|
||||||
<Transactions>
|
<Transactions>
|
||||||
<Transaction>1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj</Transaction>
|
||||||
</Transactions>
|
</Transactions>
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|
|
||||||
Binary file not shown.
|
|
@ -7,6 +7,7 @@ inherited frmTatMachCutHZList: TfrmTatMachCutHZList
|
||||||
FormStyle = fsMDIChild
|
FormStyle = fsMDIChild
|
||||||
Position = poScreenCenter
|
Position = poScreenCenter
|
||||||
Visible = True
|
Visible = True
|
||||||
|
ExplicitLeft = -359
|
||||||
ExplicitWidth = 1556
|
ExplicitWidth = 1556
|
||||||
ExplicitHeight = 639
|
ExplicitHeight = 639
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
|
|
@ -502,6 +503,20 @@ inherited frmTatMachCutHZList: TfrmTatMachCutHZList
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 80
|
Width = 80
|
||||||
end
|
end
|
||||||
|
object Tv1Column2: TcxGridDBColumn
|
||||||
|
Caption = #20004#23544#32440#31649#29992#37327
|
||||||
|
DataBinding.FieldName = 'EZG'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 92
|
||||||
|
end
|
||||||
|
object Tv1Column3: TcxGridDBColumn
|
||||||
|
Caption = #19977#23544#32440#31649#29992#37327
|
||||||
|
DataBinding.FieldName = 'SZG'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 94
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxGrid1Level1: TcxGridLevel
|
object cxGrid1Level1: TcxGridLevel
|
||||||
GridView = Tv1
|
GridView = Tv1
|
||||||
|
|
|
||||||
|
|
@ -66,6 +66,8 @@ type
|
||||||
N2: TMenuItem;
|
N2: TMenuItem;
|
||||||
N3: TMenuItem;
|
N3: TMenuItem;
|
||||||
Tv1SHGJ: TcxGridDBColumn;
|
Tv1SHGJ: TcxGridDBColumn;
|
||||||
|
Tv1Column2: TcxGridDBColumn;
|
||||||
|
Tv1Column3: TcxGridDBColumn;
|
||||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
procedure TBRafreshClick(Sender: TObject);
|
procedure TBRafreshClick(Sender: TObject);
|
||||||
|
|
|
||||||
Binary file not shown.
|
|
@ -2,6 +2,6 @@
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<Transactions/>
|
<Transactions/>
|
||||||
<Default.Personality>
|
<Default.Personality>
|
||||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\TatClothStk.dproj"/>
|
<Projects ActiveProject="D:\D10W\项目代码\D10szXIANGYING\E04梭织坯布仓库\TatClothStk.dproj"/>
|
||||||
</Default.Personality>
|
</Default.Personality>
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|
|
||||||
|
|
@ -80,7 +80,7 @@
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||||
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
||||||
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\testDll.exe</Debugger_HostApplication>
|
<Debugger_HostApplication>D:\D10W\项目代码\D10szXIANGYING\E04梭织坯布仓库\testDll.exe</Debugger_HostApplication>
|
||||||
</PropertyGroup>
|
</PropertyGroup>
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
<DelphiCompile Include="$(MainSource)">
|
<DelphiCompile Include="$(MainSource)">
|
||||||
|
|
|
||||||
|
|
@ -1,9 +1,9 @@
|
||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<Transactions>
|
<Transactions>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.554,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList2.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.554,=D:\Dp10Repo\项目代码\D10szXIANGYING\E04梭织坯布仓库\U_TatClothStkHZList2.pas</Transaction>
|
||||||
|
|
@ -94,7 +94,7 @@
|
||||||
<File Path="..\E00梭织通用窗体"/>
|
<File Path="..\E00梭织通用窗体"/>
|
||||||
<File Path="..\E00梭织通用窗体\U_TatPlanSel.pas"/>
|
<File Path="..\E00梭织通用窗体\U_TatPlanSel.pas"/>
|
||||||
<File Path="..\E00梭织通用窗体\U_TatPlanSel.dfm"/>
|
<File Path="..\E00梭织通用窗体\U_TatPlanSel.dfm"/>
|
||||||
<File Path="D:\Dp10Repo"/>
|
<File Path="D:\D10W"/>
|
||||||
<File Path="..\..\..\public10"/>
|
<File Path="..\..\..\public10"/>
|
||||||
<File Path="..\..\..\public10\design"/>
|
<File Path="..\..\..\public10\design"/>
|
||||||
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
|
<File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
|
||||||
|
|
|
||||||
Binary file not shown.
493
E04梭织坯布仓库/U_CPXSList.dfm
Normal file
493
E04梭织坯布仓库/U_CPXSList.dfm
Normal file
|
|
@ -0,0 +1,493 @@
|
||||||
|
inherited frmCPXSList: TfrmCPXSList
|
||||||
|
Left = 184
|
||||||
|
Top = 138
|
||||||
|
Caption = #20135#21697#38144#21806#21015#34920
|
||||||
|
ClientHeight = 600
|
||||||
|
ClientWidth = 1540
|
||||||
|
FormStyle = fsMDIChild
|
||||||
|
Position = poScreenCenter
|
||||||
|
Visible = True
|
||||||
|
ExplicitWidth = 1556
|
||||||
|
ExplicitHeight = 639
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 12
|
||||||
|
object ToolBar1: TToolBar [0]
|
||||||
|
Tag = 1
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 1540
|
||||||
|
Height = 38
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 38
|
||||||
|
ButtonWidth = 91
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
Images = DataLink_TatClothStk.ImageList_new32
|
||||||
|
List = True
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 0
|
||||||
|
object TBRafresh: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21047#26032
|
||||||
|
ImageIndex = 1
|
||||||
|
OnClick = TBRafreshClick
|
||||||
|
end
|
||||||
|
object TBExport: TToolButton
|
||||||
|
Left = 71
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #23548#20986
|
||||||
|
ImageIndex = 20
|
||||||
|
OnClick = TBExportClick
|
||||||
|
end
|
||||||
|
object ToolButton4: TToolButton
|
||||||
|
Left = 142
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20445#23384#26684#24335
|
||||||
|
ImageIndex = 16
|
||||||
|
OnClick = ToolButton4Click
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 237
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 7
|
||||||
|
OnClick = TBCloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel1: TPanel [1]
|
||||||
|
Left = 0
|
||||||
|
Top = 38
|
||||||
|
Width = 1540
|
||||||
|
Height = 67
|
||||||
|
Align = alTop
|
||||||
|
BevelInner = bvRaised
|
||||||
|
BevelOuter = bvLowered
|
||||||
|
Color = clWhite
|
||||||
|
ParentBackground = False
|
||||||
|
TabOrder = 1
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 70
|
||||||
|
Top = 36
|
||||||
|
Width = 12
|
||||||
|
Height = 12
|
||||||
|
Caption = #33267
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 190
|
||||||
|
Top = 10
|
||||||
|
Width = 52
|
||||||
|
Height = 12
|
||||||
|
Hint = '0'
|
||||||
|
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 BegDate: TDateTimePicker
|
||||||
|
Left = 88
|
||||||
|
Top = 6
|
||||||
|
Width = 87
|
||||||
|
Height = 20
|
||||||
|
Date = 40768.000000000000000000
|
||||||
|
Time = 0.458268587972270300
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object EndDate: TDateTimePicker
|
||||||
|
Left = 88
|
||||||
|
Top = 32
|
||||||
|
Width = 87
|
||||||
|
Height = 20
|
||||||
|
Date = 40768.000000000000000000
|
||||||
|
Time = 0.458268587972270300
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object begtime: TDateTimePicker
|
||||||
|
Left = 137
|
||||||
|
Top = 132
|
||||||
|
Width = 55
|
||||||
|
Height = 20
|
||||||
|
Date = 39780.000000000000000000
|
||||||
|
Format = 'HH:mm'
|
||||||
|
Time = 39780.000000000000000000
|
||||||
|
Kind = dtkTime
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object endTime: TDateTimePicker
|
||||||
|
Left = 137
|
||||||
|
Top = 156
|
||||||
|
Width = 55
|
||||||
|
Height = 20
|
||||||
|
Date = 39780.000000000000000000
|
||||||
|
Format = 'HH:mm'
|
||||||
|
Time = 0.999317129630071600
|
||||||
|
Kind = dtkTime
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object IsJYTime: TCheckBox
|
||||||
|
Left = 14
|
||||||
|
Top = 8
|
||||||
|
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 = 0
|
||||||
|
OnClick = IsJYTimeClick
|
||||||
|
end
|
||||||
|
object C_Name: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 248
|
||||||
|
Top = 6
|
||||||
|
Width = 100
|
||||||
|
Height = 20
|
||||||
|
Hint = '0'
|
||||||
|
TabOrder = 5
|
||||||
|
OnKeyPress = C_NameKeyPress
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel2: TPanel [2]
|
||||||
|
Left = 0
|
||||||
|
Top = 105
|
||||||
|
Width = 1540
|
||||||
|
Height = 495
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 2
|
||||||
|
object cxGrid1: TcxGrid
|
||||||
|
Left = 1
|
||||||
|
Top = 1
|
||||||
|
Width = 1538
|
||||||
|
Height = 493
|
||||||
|
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 = 0
|
||||||
|
object Tv1: TcxGridDBTableView
|
||||||
|
OnDblClick = Tv1DblClick
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
DataController.DataSource = DS_1
|
||||||
|
DataController.Filter.AutoDataSetFilter = True
|
||||||
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skCount
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Format = #26816#39564#31995#25968'=#.##'
|
||||||
|
Kind = skAverage
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Format = #25442#31639#31995#25968'=#.##'
|
||||||
|
Kind = skAverage
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = Tv1Column1
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = Tv1Column2
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = Tv1Column4
|
||||||
|
end>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
OptionsView.IndicatorWidth = 30
|
||||||
|
Styles.IncSearch = DataLink_TatClothStk.SHuangSe
|
||||||
|
Styles.Footer = DataLink_TatClothStk.Default
|
||||||
|
Styles.Header = DataLink_TatClothStk.Default
|
||||||
|
Styles.Inactive = DataLink_TatClothStk.SHuangSe
|
||||||
|
Styles.Selection = DataLink_TatClothStk.SHuangSe
|
||||||
|
object v1Column22: TcxGridDBColumn
|
||||||
|
Caption = #36873#25321
|
||||||
|
DataBinding.FieldName = 'SSel'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.NullStyle = nssUnchecked
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Sorting = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column3: TcxGridDBColumn
|
||||||
|
Caption = #20135#21697#21517#31216
|
||||||
|
DataBinding.FieldName = 'C_Name'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column5: TcxGridDBColumn
|
||||||
|
Caption = #38376#24133
|
||||||
|
DataBinding.FieldName = 'C_width'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 68
|
||||||
|
end
|
||||||
|
object Tv1Column6: TcxGridDBColumn
|
||||||
|
Caption = #20811#37325
|
||||||
|
DataBinding.FieldName = 'C_GramWeight'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 68
|
||||||
|
end
|
||||||
|
object Tv1Column1: TcxGridDBColumn
|
||||||
|
Caption = #21305#25968
|
||||||
|
DataBinding.FieldName = 'ps'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 76
|
||||||
|
end
|
||||||
|
object Tv1Column2: TcxGridDBColumn
|
||||||
|
Caption = #25968#37327
|
||||||
|
DataBinding.FieldName = 'meter'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 74
|
||||||
|
end
|
||||||
|
object Tv1Column4: TcxGridDBColumn
|
||||||
|
Caption = #37329#39069
|
||||||
|
DataBinding.FieldName = 'ckmoney'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 68
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid1Level1: TcxGridLevel
|
||||||
|
GridView = Tv1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseCmd: TADOQuery
|
||||||
|
Connection = DataLink_TatClothStk.ADOLink
|
||||||
|
Left = 553
|
||||||
|
Top = 200
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseTemp: TADOQuery
|
||||||
|
Connection = DataLink_TatClothStk.ADOLink
|
||||||
|
Left = 425
|
||||||
|
Top = 201
|
||||||
|
end
|
||||||
|
object ADOQueryCmd: TADOQuery
|
||||||
|
Connection = DataLink_TatClothStk.ADOLink
|
||||||
|
CommandTimeout = 600
|
||||||
|
Parameters = <>
|
||||||
|
Left = 148
|
||||||
|
Top = 280
|
||||||
|
end
|
||||||
|
object ADOQueryMain: TADOQuery
|
||||||
|
Connection = DataLink_TatClothStk.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 252
|
||||||
|
Top = 260
|
||||||
|
end
|
||||||
|
object ADOQueryTemp: TADOQuery
|
||||||
|
Connection = DataLink_TatClothStk.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
CommandTimeout = 600
|
||||||
|
Parameters = <>
|
||||||
|
Left = 112
|
||||||
|
Top = 204
|
||||||
|
end
|
||||||
|
object DS_1: TDataSource
|
||||||
|
DataSet = CDS_1
|
||||||
|
Left = 708
|
||||||
|
Top = 156
|
||||||
|
end
|
||||||
|
object GPM_1: TcxGridPopupMenu
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 608
|
||||||
|
Top = 136
|
||||||
|
end
|
||||||
|
object CDS_1: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
BeforeOpen = CDS_1BeforeOpen
|
||||||
|
Left = 552
|
||||||
|
Top = 140
|
||||||
|
end
|
||||||
|
object PM_1: TPopupMenu
|
||||||
|
Left = 368
|
||||||
|
Top = 248
|
||||||
|
object N1: TMenuItem
|
||||||
|
Caption = #20840#36873
|
||||||
|
OnClick = N1Click
|
||||||
|
end
|
||||||
|
object PM11: TMenuItem
|
||||||
|
Caption = #20840#24323
|
||||||
|
OnClick = PM11Click
|
||||||
|
end
|
||||||
|
object N2: TMenuItem
|
||||||
|
Caption = #22797#21046
|
||||||
|
OnClick = N2Click
|
||||||
|
end
|
||||||
|
object N3: TMenuItem
|
||||||
|
Caption = #22797#21046#27880#33050
|
||||||
|
OnClick = N3Click
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object CDS_2: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 461
|
||||||
|
Top = 322
|
||||||
|
end
|
||||||
|
object DS_2: TDataSource
|
||||||
|
DataSet = CDS_2
|
||||||
|
Left = 557
|
||||||
|
Top = 330
|
||||||
|
end
|
||||||
|
object PM_2: TPopupMenu
|
||||||
|
Left = 469
|
||||||
|
Top = 386
|
||||||
|
object N4: TMenuItem
|
||||||
|
Caption = #20840#36873
|
||||||
|
OnClick = N4Click
|
||||||
|
end
|
||||||
|
object N5: TMenuItem
|
||||||
|
Caption = #20840#24323
|
||||||
|
OnClick = N5Click
|
||||||
|
end
|
||||||
|
object N6: TMenuItem
|
||||||
|
Caption = #22797#21046
|
||||||
|
end
|
||||||
|
object N7: TMenuItem
|
||||||
|
Caption = #22797#21046#27880#33050
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object GPM_2: TcxGridPopupMenu
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 565
|
||||||
|
Top = 386
|
||||||
|
end
|
||||||
|
end
|
||||||
507
E04梭织坯布仓库/U_CPXSList.pas
Normal file
507
E04梭织坯布仓库/U_CPXSList.pas
Normal file
|
|
@ -0,0 +1,507 @@
|
||||||
|
unit U_CPXSList;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||||||
|
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
|
||||||
|
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
|
||||||
|
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
|
||||||
|
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
|
||||||
|
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
|
||||||
|
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
|
||||||
|
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
|
||||||
|
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC,
|
||||||
|
System.StrUtils, dxScrollbarAnnotations;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmCPXSList = class(TfrmBaseList)
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
TBRafresh: TToolButton;
|
||||||
|
TBExport: TToolButton;
|
||||||
|
TBClose: TToolButton;
|
||||||
|
Panel1: TPanel;
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
ADOQueryMain: TADOQuery;
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
DS_1: TDataSource;
|
||||||
|
GPM_1: TcxGridPopupMenu;
|
||||||
|
Label2: TLabel;
|
||||||
|
BegDate: TDateTimePicker;
|
||||||
|
EndDate: TDateTimePicker;
|
||||||
|
CDS_1: TClientDataSet;
|
||||||
|
begtime: TDateTimePicker;
|
||||||
|
endTime: TDateTimePicker;
|
||||||
|
IsJYTime: TCheckBox;
|
||||||
|
ToolButton4: TToolButton;
|
||||||
|
Label5: TLabel;
|
||||||
|
C_Name: TEdit;
|
||||||
|
PM_1: TPopupMenu;
|
||||||
|
PM11: TMenuItem;
|
||||||
|
N1: TMenuItem;
|
||||||
|
Panel2: TPanel;
|
||||||
|
N2: TMenuItem;
|
||||||
|
N3: TMenuItem;
|
||||||
|
CDS_2: TClientDataSet;
|
||||||
|
DS_2: TDataSource;
|
||||||
|
PM_2: TPopupMenu;
|
||||||
|
GPM_2: TcxGridPopupMenu;
|
||||||
|
N4: TMenuItem;
|
||||||
|
N5: TMenuItem;
|
||||||
|
N6: TMenuItem;
|
||||||
|
N7: TMenuItem;
|
||||||
|
cxGrid1: TcxGrid;
|
||||||
|
Tv1: TcxGridDBTableView;
|
||||||
|
v1Column22: TcxGridDBColumn;
|
||||||
|
Tv1Column3: TcxGridDBColumn;
|
||||||
|
cxGrid1Level1: TcxGridLevel;
|
||||||
|
Tv1Column1: TcxGridDBColumn;
|
||||||
|
Tv1Column2: TcxGridDBColumn;
|
||||||
|
Tv1Column4: TcxGridDBColumn;
|
||||||
|
Tv1Column5: TcxGridDBColumn;
|
||||||
|
Tv1Column6: TcxGridDBColumn;
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure TBRafreshClick(Sender: TObject);
|
||||||
|
procedure ConNoMChange(Sender: TObject);
|
||||||
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure TBExportClick(Sender: TObject);
|
||||||
|
procedure orderNoKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
procedure BTNPClick(Sender: TObject);
|
||||||
|
procedure BTLPClick(Sender: TObject);
|
||||||
|
procedure TCBNORChange(Sender: TObject);
|
||||||
|
procedure JYTypeChange(Sender: TObject);
|
||||||
|
procedure ToolButton2Click(Sender: TObject);
|
||||||
|
procedure cxPageControl1Change(Sender: TObject);
|
||||||
|
procedure CDS_1BeforeOpen(DataSet: TDataSet);
|
||||||
|
procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
|
||||||
|
|
||||||
|
procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
|
||||||
|
procedure ToolButton4Click(Sender: TObject);
|
||||||
|
procedure PM11Click(Sender: TObject);
|
||||||
|
procedure N1Click(Sender: TObject);
|
||||||
|
procedure IsJYTimeClick(Sender: TObject);
|
||||||
|
procedure C_NameKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
|
||||||
|
procedure N2Click(Sender: TObject);
|
||||||
|
procedure Tv1DblClick(Sender: TObject);
|
||||||
|
procedure N3Click(Sender: TObject);
|
||||||
|
procedure N4Click(Sender: TObject);
|
||||||
|
procedure N5Click(Sender: TObject);
|
||||||
|
|
||||||
|
private
|
||||||
|
CurrentPage, RecordsNumber: Integer;
|
||||||
|
lstCust: TStringList;
|
||||||
|
procedure InitGrid();
|
||||||
|
procedure InitGrid2();
|
||||||
|
procedure SetStatus();
|
||||||
|
procedure CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn);
|
||||||
|
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
canshu1: string;
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_RTFun, U_LabelPrint, U_TatClothStkHZList2;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.SetStatus();
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FreeAndNil(lstCust);
|
||||||
|
Action := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
lstCust := TStringList.Create;
|
||||||
|
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
|
||||||
|
BegDate.DateTime := EndDate.DateTime - 20;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.InitGrid();
|
||||||
|
var
|
||||||
|
WSql: string;
|
||||||
|
begin
|
||||||
|
|
||||||
|
WSql := SGetFilters(Panel1, 1, 2);
|
||||||
|
if Trim(WSql) <> '' then
|
||||||
|
WSql := ' and ' + WSql;
|
||||||
|
if IsJYTime.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));
|
||||||
|
end;
|
||||||
|
|
||||||
|
try
|
||||||
|
ADOQueryMain.DisableControls;
|
||||||
|
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
Filtered := False;
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
|
||||||
|
sql.Add('select C_Name,C_GramWeight,c_width,sum(meter)meter,count(*)ps,sum(ckmoney)ckmoney ');
|
||||||
|
|
||||||
|
SQL.Add('from V_Tat_Cloth_IO A where 1=1 ' + WSql);
|
||||||
|
SQL.Add(' and Grade <> ''废布'' ');
|
||||||
|
SQL.Add(' and Grade <> ''循环布'' ');
|
||||||
|
SQL.Add(' and iotype = ''销售出库'' ');
|
||||||
|
|
||||||
|
sql.Add(' group by C_Name,C_GramWeight,c_width ORDER BY count(*) DESC');
|
||||||
|
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS(ADOQueryMain, CDS_1);
|
||||||
|
SInitCDSData(ADOQueryMain, CDS_1);
|
||||||
|
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
TV1.DataController.Filter.Clear;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.InitGrid2();
|
||||||
|
var
|
||||||
|
WSql: string;
|
||||||
|
begin
|
||||||
|
|
||||||
|
WSql := SGetFilters(Panel1, 1, 2);
|
||||||
|
if Trim(WSql) <> '' then
|
||||||
|
WSql := ' and ' + WSql;
|
||||||
|
if IsJYTime.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));
|
||||||
|
end;
|
||||||
|
|
||||||
|
try
|
||||||
|
ADOQueryMain.DisableControls;
|
||||||
|
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
Filtered := False;
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
|
||||||
|
sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight ');
|
||||||
|
SQL.Add(',pf=SUM(CASE WHEN (GRADE=''优等品'' or GRADE=''二等品'' or GRADE=''小卷'' or GRADE=''分切'' or GRADE=''测试'') THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) else 0 end )');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )AS Ydqty');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS YdPF');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END )AS edJS');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter ELSE 0 END )AS edqty');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS edPF');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END )AS xjJS');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter ELSE 0 END )AS xjqty');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS xjPF');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''废布'' THEN 1 ELSE 0 END )AS fbJS');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''废布'' THEN A.meter ELSE 0 END )AS fbqty');
|
||||||
|
// SQL.Add(',SUM(CASE WHEN GRADE=''废布'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fbPF');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END )AS fqJS');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter ELSE 0 END )AS fqqty');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fqPF');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN 1 ELSE 0 END )AS xhJS');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN A.meter ELSE 0 END )AS xhqty');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END )AS csJS');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )AS csqty');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF');
|
||||||
|
sql.Add(', issp=isnull(A.issp,'''') ');
|
||||||
|
|
||||||
|
SQL.Add('from V_Tat_Cloth_stk A where 1=1 ');
|
||||||
|
SQL.Add(' and Grade <> ''废布'' ');
|
||||||
|
SQL.Add(' and Grade <> ''循环布'' ');
|
||||||
|
|
||||||
|
SQL.Add(WSql);
|
||||||
|
sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,isnull(A.issp,'''') ');
|
||||||
|
SQL.Add(' order by A.C_NAME, CAST(A.C_Width AS DECIMAL(10,2)),A.C_GramWeight');
|
||||||
|
|
||||||
|
// showmessage(sql.text);
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS(ADOQueryMain, CDS_2);
|
||||||
|
SInitCDSData(ADOQueryMain, CDS_2);
|
||||||
|
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.IsJYTimeClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.TBRafreshClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
CurrentPage := 1;
|
||||||
|
InitGrid();
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.CDS_1BeforeOpen(DataSet: TDataSet);
|
||||||
|
begin
|
||||||
|
|
||||||
|
lstCust.Clear;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.ConNoMChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.Active then
|
||||||
|
begin
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.cxPageControl1Change(Sender: TObject);
|
||||||
|
begin
|
||||||
|
CurrentPage := 1;
|
||||||
|
SetStatus();
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.C_NameKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if Key = #13 then
|
||||||
|
begin
|
||||||
|
InitGrid();
|
||||||
|
InitGrid2();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
ReadCxGrid(trim(self.Caption) + 'Tv11', Tv1, '销售报表');
|
||||||
|
|
||||||
|
CurrentPage := 1;
|
||||||
|
RecordsNumber := 500;
|
||||||
|
canshu1 := Trim(Self.fParameters1);
|
||||||
|
|
||||||
|
SetStatus();
|
||||||
|
InitGrid();
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.TBExportClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
if CDS_1.IsEmpty then
|
||||||
|
Exit;
|
||||||
|
with CDS_1 do
|
||||||
|
begin
|
||||||
|
Filtered := false;
|
||||||
|
Filter := ' ssel = 1';
|
||||||
|
Filtered := true;
|
||||||
|
end;
|
||||||
|
TcxGridToExcel(Self.Caption, cxGrid1);
|
||||||
|
InitGrid();
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.orderNoKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
begin
|
||||||
|
if Key = #13 then
|
||||||
|
begin
|
||||||
|
CurrentPage := 1;
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.PM11Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SelOKNo(CDS_1, false);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
|
||||||
|
begin
|
||||||
|
lstCust.Clear;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.Tv1DblClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if CDS_1.IsEmpty then
|
||||||
|
Exit;
|
||||||
|
try
|
||||||
|
frmTatClothStkHZList2 := TfrmTatClothStkHZList2.Create(Application);
|
||||||
|
with frmTatClothStkHZList2 do
|
||||||
|
begin
|
||||||
|
fEndDateTime := self.EndDate.DateTime;
|
||||||
|
fBegDateTime := Self.BegDate.DateTime;
|
||||||
|
|
||||||
|
fC_Name := Self.CDS_1.FieldByName('C_Name').AsString;
|
||||||
|
fC_GramWeight := Self.CDS_1.FieldByName('C_GramWeight').AsString;
|
||||||
|
fissp := Self.CDS_1.FieldByName('issp').AsString;
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmTatClothStkHZList2.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
|
||||||
|
begin
|
||||||
|
if lstCust <> nil then
|
||||||
|
AText := IntToStr(lstCust.Count);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.BTNPClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
|
||||||
|
CurrentPage := CurrentPage + 1;
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.BTLPClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if CurrentPage > 1 then
|
||||||
|
CurrentPage := CurrentPage - 1;
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.TCBNORChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
CurrentPage := 1;
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.JYTypeChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
CurrentPage := 1;
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.N1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
SelOKNo(CDS_1, true);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.N2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.N3Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
CopyColumnSummaryToClipboard(TV1, TV1.Controller.FocusedColumn);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.N4Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
SelOKNo(CDS_2, true);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.N5Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
SelOKNo(CDS_2, false);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn);
|
||||||
|
var
|
||||||
|
SummaryIndex: Integer;
|
||||||
|
SummaryText: string;
|
||||||
|
begin
|
||||||
|
// 查找指定列的汇总项
|
||||||
|
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
|
||||||
|
if SummaryIndex <> -1 then
|
||||||
|
begin
|
||||||
|
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
|
||||||
|
Clipboard.AsText := SummaryText;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
ShowMessage('未找到该列的汇总数据');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.ToolButton2Click(Sender: TObject);
|
||||||
|
var
|
||||||
|
WSql: string;
|
||||||
|
begin
|
||||||
|
if CDS_1.IsEmpty then
|
||||||
|
Exit;
|
||||||
|
if not CDS_1.Locate('SSel', True, []) then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
WSql := '';
|
||||||
|
CDS_1.DisableControls;
|
||||||
|
with CDS_1 do
|
||||||
|
begin
|
||||||
|
First;
|
||||||
|
while not Eof do
|
||||||
|
begin
|
||||||
|
if CDS_1.fieldbyname('SSel').AsBoolean then
|
||||||
|
begin
|
||||||
|
if WSql <> '' then
|
||||||
|
begin
|
||||||
|
WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
Next;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
CDS_1.Locate('SSel', True, []);
|
||||||
|
CDS_1.EnableControls;
|
||||||
|
try
|
||||||
|
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
||||||
|
with frmLabelPrint do
|
||||||
|
begin
|
||||||
|
FLMType := 'TradeClothStk';
|
||||||
|
FFiltration1 := WSql;
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmLabelPrint.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmCPXSList.ToolButton4Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WriteCxGrid(trim(self.Caption) + 'Tv11', Tv1, '销售报表');
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
|
|
@ -18,7 +18,7 @@ uses
|
||||||
U_DataLink, U_iniParam, U_TatClothInEdit, U_TatClothInList, U_TatDRList,
|
U_DataLink, U_iniParam, U_TatClothInEdit, U_TatClothInList, U_TatDRList,
|
||||||
U_TatClothDROutEdit, U_TatClothOutEdit, U_TatClothOutList, U_TatClothStkList,
|
U_TatClothDROutEdit, U_TatClothOutEdit, U_TatClothOutList, U_TatClothStkList,
|
||||||
U_TatClothStkHZList, U_TatClothCKHZList, U_TatClothRKHZList,
|
U_TatClothStkHZList, U_TatClothCKHZList, U_TatClothRKHZList,
|
||||||
U_TatClothStkListPH, U_TatClothCRStkHZList;
|
U_TatClothStkListPH, U_TatClothCRStkHZList, U_KHXSList, U_CPXSList;
|
||||||
|
|
||||||
/////////////////////////////////////////////////////////////////
|
/////////////////////////////////////////////////////////////////
|
||||||
// 功能说明:取Dll中得窗体 //
|
// 功能说明:取Dll中得窗体 //
|
||||||
|
|
@ -272,6 +272,29 @@ begin
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
611: //¿Í»§ÏúÊÛ±í
|
||||||
|
begin
|
||||||
|
with TfrmKHXSList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||||
|
begin
|
||||||
|
fFormID := FormID;
|
||||||
|
FormStyle := mstyle;
|
||||||
|
WindowState := mstate;
|
||||||
|
BorderStyle := mborderstyle;
|
||||||
|
mnewHandle := Handle;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
612: //²úÆ·ÏúÊÛ±í
|
||||||
|
begin
|
||||||
|
with TfrmCPXSList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||||
|
begin
|
||||||
|
fFormID := FormID;
|
||||||
|
FormStyle := mstyle;
|
||||||
|
WindowState := mstate;
|
||||||
|
BorderStyle := mborderstyle;
|
||||||
|
mnewHandle := Handle;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
10000:
|
10000:
|
||||||
begin
|
begin
|
||||||
for i := 0 to application.MainForm.MDIChildCount - 1 do
|
for i := 0 to application.MainForm.MDIChildCount - 1 do
|
||||||
|
|
|
||||||
479
E04梭织坯布仓库/U_KHXSList.dfm
Normal file
479
E04梭织坯布仓库/U_KHXSList.dfm
Normal file
|
|
@ -0,0 +1,479 @@
|
||||||
|
inherited frmKHXSList: TfrmKHXSList
|
||||||
|
Left = 184
|
||||||
|
Top = 138
|
||||||
|
Caption = #23458#25143#38144#21806#21015#34920
|
||||||
|
ClientHeight = 600
|
||||||
|
ClientWidth = 1540
|
||||||
|
FormStyle = fsMDIChild
|
||||||
|
Position = poScreenCenter
|
||||||
|
Visible = True
|
||||||
|
ExplicitWidth = 1556
|
||||||
|
ExplicitHeight = 639
|
||||||
|
PixelsPerInch = 96
|
||||||
|
TextHeight = 12
|
||||||
|
object ToolBar1: TToolBar [0]
|
||||||
|
Tag = 1
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
Width = 1540
|
||||||
|
Height = 38
|
||||||
|
AutoSize = True
|
||||||
|
ButtonHeight = 38
|
||||||
|
ButtonWidth = 91
|
||||||
|
Caption = 'ToolBar1'
|
||||||
|
Color = clWhite
|
||||||
|
Font.Charset = GB2312_CHARSET
|
||||||
|
Font.Color = clWindowText
|
||||||
|
Font.Height = -12
|
||||||
|
Font.Name = #23435#20307
|
||||||
|
Font.Style = []
|
||||||
|
Images = DataLink_TatClothStk.ImageList_new32
|
||||||
|
List = True
|
||||||
|
ParentColor = False
|
||||||
|
ParentFont = False
|
||||||
|
ShowCaptions = True
|
||||||
|
TabOrder = 0
|
||||||
|
object TBRafresh: TToolButton
|
||||||
|
Left = 0
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #21047#26032
|
||||||
|
ImageIndex = 1
|
||||||
|
OnClick = TBRafreshClick
|
||||||
|
end
|
||||||
|
object TBExport: TToolButton
|
||||||
|
Left = 71
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #23548#20986
|
||||||
|
ImageIndex = 20
|
||||||
|
OnClick = TBExportClick
|
||||||
|
end
|
||||||
|
object ToolButton4: TToolButton
|
||||||
|
Left = 142
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20445#23384#26684#24335
|
||||||
|
ImageIndex = 16
|
||||||
|
OnClick = ToolButton4Click
|
||||||
|
end
|
||||||
|
object TBClose: TToolButton
|
||||||
|
Left = 237
|
||||||
|
Top = 0
|
||||||
|
AutoSize = True
|
||||||
|
Caption = #20851#38381
|
||||||
|
ImageIndex = 7
|
||||||
|
OnClick = TBCloseClick
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel1: TPanel [1]
|
||||||
|
Left = 0
|
||||||
|
Top = 38
|
||||||
|
Width = 1540
|
||||||
|
Height = 67
|
||||||
|
Align = alTop
|
||||||
|
BevelInner = bvRaised
|
||||||
|
BevelOuter = bvLowered
|
||||||
|
Color = clWhite
|
||||||
|
ParentBackground = False
|
||||||
|
TabOrder = 1
|
||||||
|
object Label2: TLabel
|
||||||
|
Left = 70
|
||||||
|
Top = 36
|
||||||
|
Width = 12
|
||||||
|
Height = 12
|
||||||
|
Caption = #33267
|
||||||
|
end
|
||||||
|
object Label5: TLabel
|
||||||
|
Left = 190
|
||||||
|
Top = 10
|
||||||
|
Width = 26
|
||||||
|
Height = 12
|
||||||
|
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 BegDate: TDateTimePicker
|
||||||
|
Left = 88
|
||||||
|
Top = 6
|
||||||
|
Width = 87
|
||||||
|
Height = 20
|
||||||
|
Date = 40768.000000000000000000
|
||||||
|
Time = 0.458268587972270300
|
||||||
|
TabOrder = 1
|
||||||
|
end
|
||||||
|
object EndDate: TDateTimePicker
|
||||||
|
Left = 88
|
||||||
|
Top = 32
|
||||||
|
Width = 87
|
||||||
|
Height = 20
|
||||||
|
Date = 40768.000000000000000000
|
||||||
|
Time = 0.458268587972270300
|
||||||
|
TabOrder = 2
|
||||||
|
end
|
||||||
|
object begtime: TDateTimePicker
|
||||||
|
Left = 137
|
||||||
|
Top = 132
|
||||||
|
Width = 55
|
||||||
|
Height = 20
|
||||||
|
Date = 39780.000000000000000000
|
||||||
|
Format = 'HH:mm'
|
||||||
|
Time = 39780.000000000000000000
|
||||||
|
Kind = dtkTime
|
||||||
|
TabOrder = 3
|
||||||
|
end
|
||||||
|
object endTime: TDateTimePicker
|
||||||
|
Left = 137
|
||||||
|
Top = 156
|
||||||
|
Width = 55
|
||||||
|
Height = 20
|
||||||
|
Date = 39780.000000000000000000
|
||||||
|
Format = 'HH:mm'
|
||||||
|
Time = 0.999317129630071600
|
||||||
|
Kind = dtkTime
|
||||||
|
TabOrder = 4
|
||||||
|
end
|
||||||
|
object IsJYTime: TCheckBox
|
||||||
|
Left = 14
|
||||||
|
Top = 8
|
||||||
|
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 = 0
|
||||||
|
OnClick = IsJYTimeClick
|
||||||
|
end
|
||||||
|
object ToCoName2: TEdit
|
||||||
|
Tag = 2
|
||||||
|
Left = 237
|
||||||
|
Top = 6
|
||||||
|
Width = 100
|
||||||
|
Height = 20
|
||||||
|
Hint = '0'
|
||||||
|
TabOrder = 5
|
||||||
|
OnKeyPress = ToCoName2KeyPress
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object Panel2: TPanel [2]
|
||||||
|
Left = 0
|
||||||
|
Top = 105
|
||||||
|
Width = 1540
|
||||||
|
Height = 495
|
||||||
|
Align = alClient
|
||||||
|
TabOrder = 2
|
||||||
|
object cxGrid1: TcxGrid
|
||||||
|
Left = 1
|
||||||
|
Top = 1
|
||||||
|
Width = 1538
|
||||||
|
Height = 493
|
||||||
|
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 = 0
|
||||||
|
object Tv1: TcxGridDBTableView
|
||||||
|
OnDblClick = Tv1DblClick
|
||||||
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
DataController.DataSource = DS_1
|
||||||
|
DataController.Filter.AutoDataSetFilter = True
|
||||||
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||||
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||||
|
DataController.Summary.FooterSummaryItems = <
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skCount
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Format = #26816#39564#31995#25968'=#.##'
|
||||||
|
Kind = skAverage
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Format = #25442#31639#31995#25968'=#.##'
|
||||||
|
Kind = skAverage
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = Tv1Column4
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = Tv1Column2
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Kind = skSum
|
||||||
|
Column = Tv1Column1
|
||||||
|
end>
|
||||||
|
DataController.Summary.SummaryGroups = <>
|
||||||
|
OptionsCustomize.ColumnFiltering = False
|
||||||
|
OptionsView.Footer = True
|
||||||
|
OptionsView.GroupByBox = False
|
||||||
|
OptionsView.IndicatorWidth = 30
|
||||||
|
Styles.IncSearch = DataLink_TatClothStk.SHuangSe
|
||||||
|
Styles.Footer = DataLink_TatClothStk.Default
|
||||||
|
Styles.Header = DataLink_TatClothStk.Default
|
||||||
|
Styles.Inactive = DataLink_TatClothStk.SHuangSe
|
||||||
|
Styles.Selection = DataLink_TatClothStk.SHuangSe
|
||||||
|
object v1Column22: TcxGridDBColumn
|
||||||
|
Caption = #36873#25321
|
||||||
|
DataBinding.FieldName = 'SSel'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.NullStyle = nssUnchecked
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Sorting = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column3: TcxGridDBColumn
|
||||||
|
Caption = #23458#25143
|
||||||
|
DataBinding.FieldName = 'ToCoName2'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Options.Editing = False
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
|
object Tv1Column1: TcxGridDBColumn
|
||||||
|
Caption = #21305#25968
|
||||||
|
DataBinding.FieldName = 'ps'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 76
|
||||||
|
end
|
||||||
|
object Tv1Column2: TcxGridDBColumn
|
||||||
|
Caption = #25968#37327
|
||||||
|
DataBinding.FieldName = 'meter'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 74
|
||||||
|
end
|
||||||
|
object Tv1Column4: TcxGridDBColumn
|
||||||
|
Caption = #37329#39069
|
||||||
|
DataBinding.FieldName = 'ckmoney'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 75
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object cxGrid1Level1: TcxGridLevel
|
||||||
|
GridView = Tv1
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseCmd: TADOQuery
|
||||||
|
Connection = DataLink_TatClothStk.ADOLink
|
||||||
|
Left = 553
|
||||||
|
Top = 200
|
||||||
|
end
|
||||||
|
inherited ADOQueryBaseTemp: TADOQuery
|
||||||
|
Connection = DataLink_TatClothStk.ADOLink
|
||||||
|
Left = 425
|
||||||
|
Top = 201
|
||||||
|
end
|
||||||
|
object ADOQueryCmd: TADOQuery
|
||||||
|
Connection = DataLink_TatClothStk.ADOLink
|
||||||
|
CommandTimeout = 600
|
||||||
|
Parameters = <>
|
||||||
|
Left = 148
|
||||||
|
Top = 280
|
||||||
|
end
|
||||||
|
object ADOQueryMain: TADOQuery
|
||||||
|
Connection = DataLink_TatClothStk.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
Parameters = <>
|
||||||
|
Left = 252
|
||||||
|
Top = 260
|
||||||
|
end
|
||||||
|
object ADOQueryTemp: TADOQuery
|
||||||
|
Connection = DataLink_TatClothStk.ADOLink
|
||||||
|
LockType = ltReadOnly
|
||||||
|
CommandTimeout = 600
|
||||||
|
Parameters = <>
|
||||||
|
Left = 112
|
||||||
|
Top = 204
|
||||||
|
end
|
||||||
|
object DS_1: TDataSource
|
||||||
|
DataSet = CDS_1
|
||||||
|
Left = 708
|
||||||
|
Top = 156
|
||||||
|
end
|
||||||
|
object GPM_1: TcxGridPopupMenu
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 608
|
||||||
|
Top = 136
|
||||||
|
end
|
||||||
|
object CDS_1: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
BeforeOpen = CDS_1BeforeOpen
|
||||||
|
Left = 552
|
||||||
|
Top = 140
|
||||||
|
end
|
||||||
|
object PM_1: TPopupMenu
|
||||||
|
Left = 368
|
||||||
|
Top = 248
|
||||||
|
object N1: TMenuItem
|
||||||
|
Caption = #20840#36873
|
||||||
|
OnClick = N1Click
|
||||||
|
end
|
||||||
|
object PM11: TMenuItem
|
||||||
|
Caption = #20840#24323
|
||||||
|
OnClick = PM11Click
|
||||||
|
end
|
||||||
|
object N2: TMenuItem
|
||||||
|
Caption = #22797#21046
|
||||||
|
OnClick = N2Click
|
||||||
|
end
|
||||||
|
object N3: TMenuItem
|
||||||
|
Caption = #22797#21046#27880#33050
|
||||||
|
OnClick = N3Click
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object CDS_2: TClientDataSet
|
||||||
|
Aggregates = <>
|
||||||
|
Params = <>
|
||||||
|
Left = 461
|
||||||
|
Top = 322
|
||||||
|
end
|
||||||
|
object DS_2: TDataSource
|
||||||
|
DataSet = CDS_2
|
||||||
|
Left = 557
|
||||||
|
Top = 330
|
||||||
|
end
|
||||||
|
object PM_2: TPopupMenu
|
||||||
|
Left = 469
|
||||||
|
Top = 386
|
||||||
|
object N4: TMenuItem
|
||||||
|
Caption = #20840#36873
|
||||||
|
OnClick = N4Click
|
||||||
|
end
|
||||||
|
object N5: TMenuItem
|
||||||
|
Caption = #20840#24323
|
||||||
|
OnClick = N5Click
|
||||||
|
end
|
||||||
|
object N6: TMenuItem
|
||||||
|
Caption = #22797#21046
|
||||||
|
end
|
||||||
|
object N7: TMenuItem
|
||||||
|
Caption = #22797#21046#27880#33050
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object GPM_2: TcxGridPopupMenu
|
||||||
|
PopupMenus = <>
|
||||||
|
Left = 565
|
||||||
|
Top = 386
|
||||||
|
end
|
||||||
|
end
|
||||||
505
E04梭织坯布仓库/U_KHXSList.pas
Normal file
505
E04梭织坯布仓库/U_KHXSList.pas
Normal file
|
|
@ -0,0 +1,505 @@
|
||||||
|
unit U_KHXSList;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
|
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
|
||||||
|
cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
|
||||||
|
cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
|
||||||
|
cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
|
||||||
|
ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
|
||||||
|
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
|
||||||
|
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
|
||||||
|
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
|
||||||
|
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC,
|
||||||
|
System.StrUtils, dxScrollbarAnnotations;
|
||||||
|
|
||||||
|
type
|
||||||
|
TfrmKHXSList = class(TfrmBaseList)
|
||||||
|
ToolBar1: TToolBar;
|
||||||
|
TBRafresh: TToolButton;
|
||||||
|
TBExport: TToolButton;
|
||||||
|
TBClose: TToolButton;
|
||||||
|
Panel1: TPanel;
|
||||||
|
ADOQueryCmd: TADOQuery;
|
||||||
|
ADOQueryMain: TADOQuery;
|
||||||
|
ADOQueryTemp: TADOQuery;
|
||||||
|
DS_1: TDataSource;
|
||||||
|
GPM_1: TcxGridPopupMenu;
|
||||||
|
Label2: TLabel;
|
||||||
|
BegDate: TDateTimePicker;
|
||||||
|
EndDate: TDateTimePicker;
|
||||||
|
CDS_1: TClientDataSet;
|
||||||
|
begtime: TDateTimePicker;
|
||||||
|
endTime: TDateTimePicker;
|
||||||
|
IsJYTime: TCheckBox;
|
||||||
|
ToolButton4: TToolButton;
|
||||||
|
Label5: TLabel;
|
||||||
|
ToCoName2: TEdit;
|
||||||
|
PM_1: TPopupMenu;
|
||||||
|
PM11: TMenuItem;
|
||||||
|
N1: TMenuItem;
|
||||||
|
Panel2: TPanel;
|
||||||
|
N2: TMenuItem;
|
||||||
|
N3: TMenuItem;
|
||||||
|
CDS_2: TClientDataSet;
|
||||||
|
DS_2: TDataSource;
|
||||||
|
PM_2: TPopupMenu;
|
||||||
|
GPM_2: TcxGridPopupMenu;
|
||||||
|
N4: TMenuItem;
|
||||||
|
N5: TMenuItem;
|
||||||
|
N6: TMenuItem;
|
||||||
|
N7: TMenuItem;
|
||||||
|
cxGrid1: TcxGrid;
|
||||||
|
Tv1: TcxGridDBTableView;
|
||||||
|
v1Column22: TcxGridDBColumn;
|
||||||
|
Tv1Column3: TcxGridDBColumn;
|
||||||
|
cxGrid1Level1: TcxGridLevel;
|
||||||
|
Tv1Column1: TcxGridDBColumn;
|
||||||
|
Tv1Column2: TcxGridDBColumn;
|
||||||
|
Tv1Column4: TcxGridDBColumn;
|
||||||
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
procedure FormCreate(Sender: TObject);
|
||||||
|
procedure TBRafreshClick(Sender: TObject);
|
||||||
|
procedure ConNoMChange(Sender: TObject);
|
||||||
|
procedure TBCloseClick(Sender: TObject);
|
||||||
|
procedure FormShow(Sender: TObject);
|
||||||
|
procedure TBExportClick(Sender: TObject);
|
||||||
|
procedure orderNoKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
procedure BTNPClick(Sender: TObject);
|
||||||
|
procedure BTLPClick(Sender: TObject);
|
||||||
|
procedure TCBNORChange(Sender: TObject);
|
||||||
|
procedure JYTypeChange(Sender: TObject);
|
||||||
|
procedure ToolButton2Click(Sender: TObject);
|
||||||
|
procedure cxPageControl1Change(Sender: TObject);
|
||||||
|
procedure CDS_1BeforeOpen(DataSet: TDataSet);
|
||||||
|
procedure Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
|
||||||
|
|
||||||
|
procedure Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
|
||||||
|
procedure ToolButton4Click(Sender: TObject);
|
||||||
|
procedure PM11Click(Sender: TObject);
|
||||||
|
procedure N1Click(Sender: TObject);
|
||||||
|
procedure IsJYTimeClick(Sender: TObject);
|
||||||
|
procedure ToCoName2KeyPress(Sender: TObject; var Key: Char);
|
||||||
|
|
||||||
|
procedure N2Click(Sender: TObject);
|
||||||
|
procedure Tv1DblClick(Sender: TObject);
|
||||||
|
procedure N3Click(Sender: TObject);
|
||||||
|
procedure N4Click(Sender: TObject);
|
||||||
|
procedure N5Click(Sender: TObject);
|
||||||
|
|
||||||
|
private
|
||||||
|
CurrentPage, RecordsNumber: Integer;
|
||||||
|
lstCust: TStringList;
|
||||||
|
procedure InitGrid();
|
||||||
|
procedure InitGrid2();
|
||||||
|
procedure SetStatus();
|
||||||
|
procedure CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn);
|
||||||
|
|
||||||
|
{ Private declarations }
|
||||||
|
public
|
||||||
|
canshu1: string;
|
||||||
|
{ Public declarations }
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
U_DataLink, U_RTFun, U_LabelPrint, U_TatClothStkHZList2;
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.SetStatus();
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FreeAndNil(lstCust);
|
||||||
|
Action := caFree;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.FormCreate(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
lstCust := TStringList.Create;
|
||||||
|
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
|
||||||
|
BegDate.DateTime := EndDate.DateTime - 20;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.InitGrid();
|
||||||
|
var
|
||||||
|
WSql: string;
|
||||||
|
begin
|
||||||
|
|
||||||
|
WSql := SGetFilters(Panel1, 1, 2);
|
||||||
|
if Trim(WSql) <> '' then
|
||||||
|
WSql := ' and ' + WSql;
|
||||||
|
if IsJYTime.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));
|
||||||
|
end;
|
||||||
|
|
||||||
|
try
|
||||||
|
ADOQueryMain.DisableControls;
|
||||||
|
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
Filtered := False;
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
|
||||||
|
sql.Add('select ToCoName2,sum(meter)meter,count(*)ps,sum(ckmoney)ckmoney ');
|
||||||
|
|
||||||
|
SQL.Add('from V_Tat_Cloth_IO A where 1=1 ' + WSql);
|
||||||
|
SQL.Add(' and Grade <> ''废布'' ');
|
||||||
|
SQL.Add(' and Grade <> ''循环布'' ');
|
||||||
|
SQL.Add(' and iotype = ''销售出库'' ');
|
||||||
|
|
||||||
|
sql.Add(' group by ToCoName2 ORDER BY count(*) DESC');
|
||||||
|
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS(ADOQueryMain, CDS_1);
|
||||||
|
SInitCDSData(ADOQueryMain, CDS_1);
|
||||||
|
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
TV1.DataController.Filter.Clear;
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.InitGrid2();
|
||||||
|
var
|
||||||
|
WSql: string;
|
||||||
|
begin
|
||||||
|
|
||||||
|
WSql := SGetFilters(Panel1, 1, 2);
|
||||||
|
if Trim(WSql) <> '' then
|
||||||
|
WSql := ' and ' + WSql;
|
||||||
|
if IsJYTime.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));
|
||||||
|
end;
|
||||||
|
|
||||||
|
try
|
||||||
|
ADOQueryMain.DisableControls;
|
||||||
|
|
||||||
|
with ADOQueryMain do
|
||||||
|
begin
|
||||||
|
Filtered := False;
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
|
||||||
|
sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight ');
|
||||||
|
SQL.Add(',pf=SUM(CASE WHEN (GRADE=''优等品'' or GRADE=''二等品'' or GRADE=''小卷'' or GRADE=''分切'' or GRADE=''测试'') THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) else 0 end )');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )AS Ydqty');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS YdPF');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END )AS edJS');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter ELSE 0 END )AS edqty');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''二等品'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS edPF');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END )AS xjJS');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter ELSE 0 END )AS xjqty');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''小卷'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS xjPF');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''废布'' THEN 1 ELSE 0 END )AS fbJS');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''废布'' THEN A.meter ELSE 0 END )AS fbqty');
|
||||||
|
// SQL.Add(',SUM(CASE WHEN GRADE=''废布'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fbPF');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END )AS fqJS');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter ELSE 0 END )AS fqqty');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''分切'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS fqPF');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN 1 ELSE 0 END )AS xhJS');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''循环布'' THEN A.meter ELSE 0 END )AS xhqty');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END )AS csJS');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter ELSE 0 END )AS csqty');
|
||||||
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''测试'' THEN A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)) ELSE 0 END )AS csPF');
|
||||||
|
sql.Add(', issp=isnull(A.issp,'''') ');
|
||||||
|
|
||||||
|
SQL.Add('from V_Tat_Cloth_stk A where 1=1 ');
|
||||||
|
SQL.Add(' and Grade <> ''废布'' ');
|
||||||
|
SQL.Add(' and Grade <> ''循环布'' ');
|
||||||
|
|
||||||
|
SQL.Add(WSql);
|
||||||
|
sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,isnull(A.issp,'''') ');
|
||||||
|
SQL.Add(' order by A.C_NAME, CAST(A.C_Width AS DECIMAL(10,2)),A.C_GramWeight');
|
||||||
|
|
||||||
|
// showmessage(sql.text);
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
SCreateCDS(ADOQueryMain, CDS_2);
|
||||||
|
SInitCDSData(ADOQueryMain, CDS_2);
|
||||||
|
|
||||||
|
finally
|
||||||
|
ADOQueryMain.EnableControls;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.IsJYTimeClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.TBRafreshClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
CurrentPage := 1;
|
||||||
|
InitGrid();
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.CDS_1BeforeOpen(DataSet: TDataSet);
|
||||||
|
begin
|
||||||
|
|
||||||
|
lstCust.Clear;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.ConNoMChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if ADOQueryMain.Active then
|
||||||
|
begin
|
||||||
|
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.cxPageControl1Change(Sender: TObject);
|
||||||
|
begin
|
||||||
|
CurrentPage := 1;
|
||||||
|
SetStatus();
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.ToCoName2KeyPress(Sender: TObject; var Key: Char);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
if Key = #13 then
|
||||||
|
begin
|
||||||
|
InitGrid();
|
||||||
|
InitGrid2();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.TBCloseClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
Close;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.FormShow(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
ReadCxGrid(trim(self.Caption) + 'Tv11', Tv1, '销售报表');
|
||||||
|
|
||||||
|
CurrentPage := 1;
|
||||||
|
RecordsNumber := 500;
|
||||||
|
canshu1 := Trim(Self.fParameters1);
|
||||||
|
|
||||||
|
SetStatus();
|
||||||
|
InitGrid();
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.TBExportClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
if CDS_1.IsEmpty then
|
||||||
|
Exit;
|
||||||
|
with CDS_1 do
|
||||||
|
begin
|
||||||
|
Filtered := false;
|
||||||
|
Filter := ' ssel = 1';
|
||||||
|
Filtered := true;
|
||||||
|
end;
|
||||||
|
TcxGridToExcel(Self.Caption, cxGrid1);
|
||||||
|
InitGrid();
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.orderNoKeyPress(Sender: TObject; var Key: Char);
|
||||||
|
begin
|
||||||
|
if Key = #13 then
|
||||||
|
begin
|
||||||
|
CurrentPage := 1;
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.PM11Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
SelOKNo(CDS_1, false);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
|
||||||
|
begin
|
||||||
|
lstCust.Clear;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.Tv1DblClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if CDS_1.IsEmpty then
|
||||||
|
Exit;
|
||||||
|
try
|
||||||
|
frmTatClothStkHZList2 := TfrmTatClothStkHZList2.Create(Application);
|
||||||
|
with frmTatClothStkHZList2 do
|
||||||
|
begin
|
||||||
|
fEndDateTime := self.EndDate.DateTime;
|
||||||
|
fBegDateTime := Self.BegDate.DateTime;
|
||||||
|
|
||||||
|
fC_Name := Self.CDS_1.FieldByName('C_Name').AsString;
|
||||||
|
fC_GramWeight := Self.CDS_1.FieldByName('C_GramWeight').AsString;
|
||||||
|
fissp := Self.CDS_1.FieldByName('issp').AsString;
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmTatClothStkHZList2.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
|
||||||
|
begin
|
||||||
|
if lstCust <> nil then
|
||||||
|
AText := IntToStr(lstCust.Count);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.BTNPClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
|
||||||
|
CurrentPage := CurrentPage + 1;
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.BTLPClick(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if CurrentPage > 1 then
|
||||||
|
CurrentPage := CurrentPage - 1;
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.TCBNORChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
CurrentPage := 1;
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.JYTypeChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
CurrentPage := 1;
|
||||||
|
InitGrid();
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.N1Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
SelOKNo(CDS_1, true);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.N2Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
Clipboard.SetTextBuf(PChar(Trim(CDS_1.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.N3Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
CopyColumnSummaryToClipboard(TV1, TV1.Controller.FocusedColumn);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.N4Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
SelOKNo(CDS_2, true);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.N5Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
|
||||||
|
SelOKNo(CDS_2, false);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn);
|
||||||
|
var
|
||||||
|
SummaryIndex: Integer;
|
||||||
|
SummaryText: string;
|
||||||
|
begin
|
||||||
|
// 查找指定列的汇总项
|
||||||
|
SummaryIndex := AView.DataController.Summary.FooterSummaryItems.IndexOfItemLink(AColumn);
|
||||||
|
if SummaryIndex <> -1 then
|
||||||
|
begin
|
||||||
|
SummaryText := AView.DataController.Summary.FooterSummaryTexts[SummaryIndex];
|
||||||
|
Clipboard.AsText := SummaryText;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
ShowMessage('未找到该列的汇总数据');
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.ToolButton2Click(Sender: TObject);
|
||||||
|
var
|
||||||
|
WSql: string;
|
||||||
|
begin
|
||||||
|
if CDS_1.IsEmpty then
|
||||||
|
Exit;
|
||||||
|
if not CDS_1.Locate('SSel', True, []) then
|
||||||
|
begin
|
||||||
|
Application.MessageBox('没有选择数据!', '提示', 0);
|
||||||
|
Exit;
|
||||||
|
end;
|
||||||
|
WSql := '';
|
||||||
|
CDS_1.DisableControls;
|
||||||
|
with CDS_1 do
|
||||||
|
begin
|
||||||
|
First;
|
||||||
|
while not Eof do
|
||||||
|
begin
|
||||||
|
if CDS_1.fieldbyname('SSel').AsBoolean then
|
||||||
|
begin
|
||||||
|
if WSql <> '' then
|
||||||
|
begin
|
||||||
|
WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
|
||||||
|
end
|
||||||
|
else
|
||||||
|
begin
|
||||||
|
WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
Next;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
CDS_1.Locate('SSel', True, []);
|
||||||
|
CDS_1.EnableControls;
|
||||||
|
try
|
||||||
|
frmLabelPrint := TfrmLabelPrint.Create(Application);
|
||||||
|
with frmLabelPrint do
|
||||||
|
begin
|
||||||
|
FLMType := 'TradeClothStk';
|
||||||
|
FFiltration1 := WSql;
|
||||||
|
if ShowModal = 1 then
|
||||||
|
begin
|
||||||
|
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
frmLabelPrint.Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrmKHXSList.ToolButton4Click(Sender: TObject);
|
||||||
|
begin
|
||||||
|
WriteCxGrid(trim(self.Caption) + 'Tv11', Tv1, '销售报表');
|
||||||
|
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
|
|
||||||
|
|
@ -267,7 +267,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
||||||
Top = 105
|
Top = 105
|
||||||
Width = 1540
|
Width = 1540
|
||||||
Height = 516
|
Height = 516
|
||||||
ActivePage = TabSheet4
|
ActivePage = TabSheet1
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Font.Charset = GB2312_CHARSET
|
Font.Charset = GB2312_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
|
|
@ -428,6 +428,13 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 80
|
Width = 80
|
||||||
end
|
end
|
||||||
|
object Tv1Column1: TcxGridDBColumn
|
||||||
|
Caption = #36192#36865
|
||||||
|
DataBinding.FieldName = 'ISZS'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxGrid1Level1: TcxGridLevel
|
object cxGrid1Level1: TcxGridLevel
|
||||||
GridView = Tv1
|
GridView = Tv1
|
||||||
|
|
@ -452,6 +459,8 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
PopupMenu = PM_4
|
PopupMenu = PM_4
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
|
ExplicitLeft = 40
|
||||||
|
ExplicitTop = 3
|
||||||
object Tv4: TcxGridDBTableView
|
object Tv4: TcxGridDBTableView
|
||||||
Navigator.Buttons.CustomButtons = <>
|
Navigator.Buttons.CustomButtons = <>
|
||||||
ScrollbarAnnotations.CustomAnnotations = <>
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
|
@ -699,6 +708,13 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 80
|
Width = 80
|
||||||
end
|
end
|
||||||
|
object Tv4Column1: TcxGridDBColumn
|
||||||
|
Caption = #36192#36865
|
||||||
|
DataBinding.FieldName = 'ISZS'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 67
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxGridLevel3: TcxGridLevel
|
object cxGridLevel3: TcxGridLevel
|
||||||
GridView = Tv4
|
GridView = Tv4
|
||||||
|
|
@ -850,6 +866,13 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 80
|
Width = 80
|
||||||
end
|
end
|
||||||
|
object Tv2Column1: TcxGridDBColumn
|
||||||
|
Caption = #36192#36865
|
||||||
|
DataBinding.FieldName = 'ISZS'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 66
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxGridLevel1: TcxGridLevel
|
object cxGridLevel1: TcxGridLevel
|
||||||
GridView = Tv2
|
GridView = Tv2
|
||||||
|
|
@ -992,6 +1015,13 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 80
|
Width = 80
|
||||||
end
|
end
|
||||||
|
object Tv3Column1: TcxGridDBColumn
|
||||||
|
Caption = #36192#36865
|
||||||
|
DataBinding.FieldName = 'ISZS'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 69
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxGridLevel2: TcxGridLevel
|
object cxGridLevel2: TcxGridLevel
|
||||||
GridView = Tv3
|
GridView = Tv3
|
||||||
|
|
|
||||||
|
|
@ -131,6 +131,10 @@ type
|
||||||
Tv4isIncludeTax: TcxGridDBColumn;
|
Tv4isIncludeTax: TcxGridDBColumn;
|
||||||
Tv4Grade: TcxGridDBColumn;
|
Tv4Grade: TcxGridDBColumn;
|
||||||
Tv4FHDH: TcxGridDBColumn;
|
Tv4FHDH: TcxGridDBColumn;
|
||||||
|
Tv1Column1: TcxGridDBColumn;
|
||||||
|
Tv4Column1: TcxGridDBColumn;
|
||||||
|
Tv2Column1: TcxGridDBColumn;
|
||||||
|
Tv3Column1: TcxGridDBColumn;
|
||||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
procedure TBRafreshClick(Sender: TObject);
|
procedure TBRafreshClick(Sender: TObject);
|
||||||
|
|
@ -239,7 +243,7 @@ begin
|
||||||
Close;
|
Close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
|
|
||||||
sql.Add('SELECT A.C_CODE,A.C_Name,A.C_GramWeight,DRMID = '''' ');
|
sql.Add('SELECT A.C_CODE,A.C_Name,A.C_GramWeight,DRMID = '''',ISZS ');
|
||||||
// sql.Add(',B.ToCoID ');
|
// sql.Add(',B.ToCoID ');
|
||||||
// sql.Add(',COName = '''' ');
|
// sql.Add(',COName = '''' ');
|
||||||
sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) ');
|
sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) ');
|
||||||
|
|
@ -254,9 +258,9 @@ begin
|
||||||
begin
|
begin
|
||||||
sql.Add(' and EXISTS ( select * from BS_Company X where X.COID = B.ToCoID and X.Saleser = ' + quotedStr(Trim(DName)) + ')');
|
sql.Add(' and EXISTS ( select * from BS_Company X where X.COID = B.ToCoID and X.Saleser = ' + quotedStr(Trim(DName)) + ')');
|
||||||
end;
|
end;
|
||||||
SQL.Add(' group by A.C_CODE ,A.C_GramWeight,A.C_Name,isnull(A.issp,'''')');
|
SQL.Add(' group by A.C_CODE ,A.C_GramWeight,A.C_Name,isnull(A.issp,''''),ISZS');
|
||||||
// ,B.ToCoID
|
// ,B.ToCoID
|
||||||
SQL.Add(' order by A.C_CODE ,A.C_GramWeight');
|
SQL.Add(' order by A.C_CODE ,A.C_GramWeight,ISZS');
|
||||||
|
|
||||||
// showmessage(sql.text);
|
// showmessage(sql.text);
|
||||||
Open;
|
Open;
|
||||||
|
|
@ -293,7 +297,7 @@ begin
|
||||||
Filtered := False;
|
Filtered := False;
|
||||||
Close;
|
Close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.Add('SELECT A.C_CODE,A.C_Name,A.C_GramWeight ');
|
sql.Add('SELECT A.C_CODE,A.C_Name,A.C_GramWeight,ISZS ');
|
||||||
// sql.Add(',ioType=max(A.ioType) ');
|
// sql.Add(',ioType=max(A.ioType) ');
|
||||||
sql.Add(',COName = '''' ');
|
sql.Add(',COName = '''' ');
|
||||||
sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) ');
|
sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) ');
|
||||||
|
|
@ -308,7 +312,7 @@ begin
|
||||||
sql.Add(' and EXISTS ( select * from BS_Company X where X.COID = B.ToCoID and X.Saleser = ' + quotedStr(Trim(DName)) + ')');
|
sql.Add(' and EXISTS ( select * from BS_Company X where X.COID = B.ToCoID and X.Saleser = ' + quotedStr(Trim(DName)) + ')');
|
||||||
end;
|
end;
|
||||||
|
|
||||||
SQL.Add(' group by A.C_CODE ,A.C_GramWeight,A.C_Name,ISNULL(A.issp, '''')');
|
SQL.Add(' group by A.C_CODE ,A.C_GramWeight,A.C_Name,ISNULL(A.issp, ''''),ISZS');
|
||||||
SQL.Add(' order By A.C_CODE ,A.C_GramWeight');
|
SQL.Add(' order By A.C_CODE ,A.C_GramWeight');
|
||||||
// SQL.Add(' order by B.DRMID');
|
// SQL.Add(' order by B.DRMID');
|
||||||
// showmessage(sql.text);
|
// showmessage(sql.text);
|
||||||
|
|
@ -350,7 +354,7 @@ begin
|
||||||
sql.Add('SELECT ');
|
sql.Add('SELECT ');
|
||||||
sql.Add(' B.ToCoID,DRMID = '''' ');
|
sql.Add(' B.ToCoID,DRMID = '''' ');
|
||||||
sql.Add(',COName = (select COName from BS_Company X where X.CoID = B.ToCoID)');
|
sql.Add(',COName = (select COName from BS_Company X where X.CoID = B.ToCoID)');
|
||||||
sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) ');
|
sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight),ISZS ');
|
||||||
// sql.Add(',pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) ');
|
// sql.Add(',pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) ');
|
||||||
// SQL.Add(',issp=isnull(A.issp,'''') ');
|
// SQL.Add(',issp=isnull(A.issp,'''') ');
|
||||||
sql.Add(' FROM V_Tat_Cloth_IO A ');
|
sql.Add(' FROM V_Tat_Cloth_IO A ');
|
||||||
|
|
@ -362,7 +366,7 @@ begin
|
||||||
begin
|
begin
|
||||||
sql.Add(' and EXISTS ( select * from BS_Company X where X.COID = B.ToCoID and X.Saleser = ' + quotedStr(Trim(DName)) + ')');
|
sql.Add(' and EXISTS ( select * from BS_Company X where X.COID = B.ToCoID and X.Saleser = ' + quotedStr(Trim(DName)) + ')');
|
||||||
end;
|
end;
|
||||||
SQL.Add(' group by B.ToCoID');
|
SQL.Add(' group by B.ToCoID,ISZS');
|
||||||
|
|
||||||
// showmessage(sql.text);
|
// showmessage(sql.text);
|
||||||
Open;
|
Open;
|
||||||
|
|
@ -400,7 +404,7 @@ begin
|
||||||
Close;
|
Close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
|
|
||||||
sql.Add('SELECT A.C_CODE,A.C_Name,A.C_width,A.C_GramWeight,A.IONO as DRMID,A.Grade,A.FHDH ');
|
sql.Add('SELECT ISZS,A.C_CODE,A.C_Name,A.C_width,A.C_GramWeight,A.IONO as DRMID,A.Grade,A.FHDH ');
|
||||||
sql.Add(',CAST(ioTime AS DATE) as ioTime, C.PFPrice, (CAST(A.C_Width AS DECIMAL(18,2))/100 * SUM(A.meter) * C.PFPrice) as amount');
|
sql.Add(',CAST(ioTime AS DATE) as ioTime, C.PFPrice, (CAST(A.C_Width AS DECIMAL(18,2))/100 * SUM(A.meter) * C.PFPrice) as amount');
|
||||||
// sql.Add(', (SELECT COName FROM BS_Company X WHERE X.CoID = B.ToCoID) as COName');
|
// sql.Add(', (SELECT COName FROM BS_Company X WHERE X.CoID = B.ToCoID) as COName');
|
||||||
sql.Add(', D.COName,D.Saleser,D.dept,B.CompanyName,C.note,C.isIncludeTax ');
|
sql.Add(', D.COName,D.Saleser,D.dept,B.CompanyName,C.note,C.isIncludeTax ');
|
||||||
|
|
@ -443,7 +447,7 @@ begin
|
||||||
SQL.Add(' and A.C_GramWeight like ' + QuotedStr('%' + Trim(C_GramWeight.text) + '%'));
|
SQL.Add(' and A.C_GramWeight like ' + QuotedStr('%' + Trim(C_GramWeight.text) + '%'));
|
||||||
end;
|
end;
|
||||||
|
|
||||||
SQL.Add(' group by A.C_CODE,A.C_width,A.C_GramWeight,A.IONO,A.C_Name,isnull(A.issp,''''),B.ToCoID, D.COName,CAST(ioTime AS DATE),C.PFPrice,D.Saleser,D.dept,B.CompanyName,C.note,C.isIncludeTax,A.Grade,A.FHDH');
|
SQL.Add(' group by ISZS,A.C_CODE,A.C_width,A.C_GramWeight,A.IONO,A.C_Name,isnull(A.issp,''''),B.ToCoID, D.COName,CAST(ioTime AS DATE),C.PFPrice,D.Saleser,D.dept,B.CompanyName,C.note,C.isIncludeTax,A.Grade,A.FHDH');
|
||||||
// sql.Add(' HAVING(select COName from BS_Company X where X.CoAbbrName = max(B.ToCoName))= ' + QuotedStr(Trim(fconame)));
|
// sql.Add(' HAVING(select COName from BS_Company X where X.CoAbbrName = max(B.ToCoName))= ' + QuotedStr(Trim(fconame)));
|
||||||
SQL.Add(' order by A.IONO,A.C_CODE,CAST(A.C_width AS INT),A.C_GramWeight,CAST(ioTime AS DATE),A.Grade,A.FHDH');
|
SQL.Add(' order by A.IONO,A.C_CODE,CAST(A.C_width AS INT),A.C_GramWeight,CAST(ioTime AS DATE),A.Grade,A.FHDH');
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -71,7 +71,6 @@ inherited frmTatClothOutList: TfrmTatClothOutList
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
Caption = #21246#36873#25171#21360
|
Caption = #21246#36873#25171#21360
|
||||||
ImageIndex = 21
|
ImageIndex = 21
|
||||||
Visible = False
|
|
||||||
OnClick = ToolButton2Click
|
OnClick = ToolButton2Click
|
||||||
end
|
end
|
||||||
object TBExport: TToolButton
|
object TBExport: TToolButton
|
||||||
|
|
|
||||||
|
|
@ -643,11 +643,11 @@ begin
|
||||||
begin
|
begin
|
||||||
if WSql <> '' then
|
if WSql <> '' then
|
||||||
begin
|
begin
|
||||||
WSql := WSql + ',' + QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
|
WSql := WSql + ',' + (Trim(CDS_1.fieldbyname('CIID').AsString));
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
begin
|
begin
|
||||||
WSql := QuotedStr(Trim(CDS_1.fieldbyname('CIID').AsString));
|
WSql := (Trim(CDS_1.fieldbyname('CIID').AsString));
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
Next;
|
Next;
|
||||||
|
|
|
||||||
|
|
@ -566,6 +566,20 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
|
||||||
Options.Editing = False
|
Options.Editing = False
|
||||||
Width = 80
|
Width = 80
|
||||||
end
|
end
|
||||||
|
object Tv1Column2: TcxGridDBColumn
|
||||||
|
Caption = #32440#31649
|
||||||
|
DataBinding.FieldName = 'tube'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object Tv1Column5: TcxGridDBColumn
|
||||||
|
Caption = #21253#35013#34955
|
||||||
|
DataBinding.FieldName = 'Packaging'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxGrid1Level1: TcxGridLevel
|
object cxGrid1Level1: TcxGridLevel
|
||||||
GridView = Tv1
|
GridView = Tv1
|
||||||
|
|
@ -901,6 +915,20 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 71
|
Width = 71
|
||||||
end
|
end
|
||||||
|
object Tv2Column1: TcxGridDBColumn
|
||||||
|
Caption = #32440#31649
|
||||||
|
DataBinding.FieldName = 'tube'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
|
object Tv2Column2: TcxGridDBColumn
|
||||||
|
Caption = #21253#35013#34955
|
||||||
|
DataBinding.FieldName = 'Packaging'
|
||||||
|
DataBinding.IsNullValueType = True
|
||||||
|
HeaderAlignmentHorz = taCenter
|
||||||
|
Width = 70
|
||||||
|
end
|
||||||
end
|
end
|
||||||
object cxGridLevel1: TcxGridLevel
|
object cxGridLevel1: TcxGridLevel
|
||||||
GridView = Tv2
|
GridView = Tv2
|
||||||
|
|
|
||||||
|
|
@ -106,6 +106,10 @@ type
|
||||||
N7: TMenuItem;
|
N7: TMenuItem;
|
||||||
label12: TLabel;
|
label12: TLabel;
|
||||||
C_width: TEdit;
|
C_width: TEdit;
|
||||||
|
Tv1Column2: TcxGridDBColumn;
|
||||||
|
Tv1Column5: TcxGridDBColumn;
|
||||||
|
Tv2Column1: TcxGridDBColumn;
|
||||||
|
Tv2Column2: TcxGridDBColumn;
|
||||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
procedure TBRafreshClick(Sender: TObject);
|
procedure TBRafreshClick(Sender: TObject);
|
||||||
|
|
@ -201,7 +205,7 @@ begin
|
||||||
Close;
|
Close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
|
|
||||||
sql.Add('select A.C_NAME ,A.C_GramWeight');
|
sql.Add('select A.C_NAME ,A.C_GramWeight,tube,Packaging');
|
||||||
// SQL.Add(',pf=SUM(A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)))');
|
// SQL.Add(',pf=SUM(A.meter/100*CAST(A.C_WIDTH AS DECIMAL(18,2)))');
|
||||||
SQL.Add(',pf=SUM(CASE WHEN GRADE=''优等品'' or GRADE=''二等品'' or GRADE=''小卷'' or GRADE=''分切'' or GRADE=''测试'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) else 0 end )');
|
SQL.Add(',pf=SUM(CASE WHEN GRADE=''优等品'' or GRADE=''二等品'' or GRADE=''小卷'' or GRADE=''分切'' or GRADE=''测试'' THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) else 0 end )');
|
||||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS');
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS');
|
||||||
|
|
@ -230,7 +234,7 @@ begin
|
||||||
SQL.Add(' and Grade <> ''废布'' ');
|
SQL.Add(' and Grade <> ''废布'' ');
|
||||||
SQL.Add(' and Grade <> ''循环布'' ');
|
SQL.Add(' and Grade <> ''循环布'' ');
|
||||||
|
|
||||||
sql.Add(' group by A.C_NAME,A.C_GramWeight,isnull(A.issp,'''') ');
|
sql.Add(' group by A.C_NAME,A.C_GramWeight,isnull(A.issp,'''') ,tube,Packaging');
|
||||||
SQL.Add(' order by A.C_NAME,A.C_GramWeight,isnull(A.issp,'''') ');
|
SQL.Add(' order by A.C_NAME,A.C_GramWeight,isnull(A.issp,'''') ');
|
||||||
|
|
||||||
// showmessage(sql.text);
|
// showmessage(sql.text);
|
||||||
|
|
@ -269,7 +273,7 @@ begin
|
||||||
Close;
|
Close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
|
|
||||||
sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight ');
|
sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight,tube,Packaging ');
|
||||||
SQL.Add(',pf=SUM(CASE WHEN (GRADE=''优等品'' or GRADE=''二等品'' or GRADE=''小卷'' or GRADE=''分切'' or GRADE=''测试'') THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) else 0 end )');
|
SQL.Add(',pf=SUM(CASE WHEN (GRADE=''优等品'' or GRADE=''二等品'' or GRADE=''小卷'' or GRADE=''分切'' or GRADE=''测试'') THEN meter/100*CAST(C_WIDTH AS DECIMAL(18,2)) else 0 end )');
|
||||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS');
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS');
|
||||||
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )AS Ydqty');
|
SQL.Add(',SUM(CASE WHEN A.GRADE=''优等品'' THEN A.meter ELSE 0 END )AS Ydqty');
|
||||||
|
|
@ -297,9 +301,8 @@ begin
|
||||||
SQL.Add(' and Grade <> ''废布'' ');
|
SQL.Add(' and Grade <> ''废布'' ');
|
||||||
SQL.Add(' and Grade <> ''循环布'' ');
|
SQL.Add(' and Grade <> ''循环布'' ');
|
||||||
|
|
||||||
|
|
||||||
SQL.Add(WSql);
|
SQL.Add(WSql);
|
||||||
sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,isnull(A.issp,'''') ');
|
sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,isnull(A.issp,''''),tube,Packaging ');
|
||||||
SQL.Add(' order by A.C_NAME, CAST(A.C_Width AS DECIMAL(10,2)),A.C_GramWeight');
|
SQL.Add(' order by A.C_NAME, CAST(A.C_Width AS DECIMAL(10,2)),A.C_GramWeight');
|
||||||
|
|
||||||
// showmessage(sql.text);
|
// showmessage(sql.text);
|
||||||
|
|
@ -502,7 +505,7 @@ end;
|
||||||
procedure TfrmTatClothStkHZList.N3Click(Sender: TObject);
|
procedure TfrmTatClothStkHZList.N3Click(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
|
|
||||||
CopyColumnSummaryToClipboard(TV1,TV1.Controller.FocusedColumn);
|
CopyColumnSummaryToClipboard(TV1, TV1.Controller.FocusedColumn);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmTatClothStkHZList.N4Click(Sender: TObject);
|
procedure TfrmTatClothStkHZList.N4Click(Sender: TObject);
|
||||||
|
|
@ -526,7 +529,7 @@ end;
|
||||||
procedure TfrmTatClothStkHZList.N7Click(Sender: TObject);
|
procedure TfrmTatClothStkHZList.N7Click(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
|
|
||||||
CopyColumnSummaryToClipboard(TV2,TV2.Controller.FocusedColumn);
|
CopyColumnSummaryToClipboard(TV2, TV2.Controller.FocusedColumn);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrmTatClothStkHZList.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn);
|
procedure TfrmTatClothStkHZList.CopyColumnSummaryToClipboard(AView: TcxGridDBTableView; AColumn: TcxGridColumn);
|
||||||
|
|
|
||||||
|
|
@ -7,7 +7,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
|
||||||
FormStyle = fsMDIChild
|
FormStyle = fsMDIChild
|
||||||
Position = poScreenCenter
|
Position = poScreenCenter
|
||||||
Visible = True
|
Visible = True
|
||||||
ExplicitTop = -14
|
ExplicitLeft = -350
|
||||||
ExplicitWidth = 1556
|
ExplicitWidth = 1556
|
||||||
ExplicitHeight = 639
|
ExplicitHeight = 639
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
|
|
@ -535,7 +535,8 @@ inherited frmTatClothStkList: TfrmTatClothStkList
|
||||||
'500'
|
'500'
|
||||||
'1000'
|
'1000'
|
||||||
'5000'
|
'5000'
|
||||||
'10000')
|
'10000'
|
||||||
|
'20000')
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object cxGrid1: TcxGrid [3]
|
object cxGrid1: TcxGrid [3]
|
||||||
|
|
@ -553,7 +554,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
PopupMenu = PM_1
|
PopupMenu = PM_1
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
ExplicitTop = 133
|
|
||||||
object Tv1: TcxGridDBTableView
|
object Tv1: TcxGridDBTableView
|
||||||
Navigator.Buttons.CustomButtons = <>
|
Navigator.Buttons.CustomButtons = <>
|
||||||
ScrollbarAnnotations.CustomAnnotations = <>
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
|
@ -863,6 +863,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
|
||||||
end
|
end
|
||||||
object Tv1Column1: TcxGridDBColumn
|
object Tv1Column1: TcxGridDBColumn
|
||||||
Caption = #32440#31649
|
Caption = #32440#31649
|
||||||
|
DataBinding.FieldName = 'tube'
|
||||||
DataBinding.IsNullValueType = True
|
DataBinding.IsNullValueType = True
|
||||||
HeaderAlignmentHorz = taCenter
|
HeaderAlignmentHorz = taCenter
|
||||||
Width = 70
|
Width = 70
|
||||||
|
|
|
||||||
|
|
@ -504,7 +504,7 @@ end;
|
||||||
procedure TfrmTatClothStkListPH.ToolButton3Click(Sender: TObject);
|
procedure TfrmTatClothStkListPH.ToolButton3Click(Sender: TObject);
|
||||||
var
|
var
|
||||||
MIOIDS, MStkIds, MOutNos: string;
|
MIOIDS, MStkIds, MOutNos: string;
|
||||||
mFHDH: string;
|
mFHDH, sQZ: string;
|
||||||
begin
|
begin
|
||||||
if CDS_1.IsEmpty then
|
if CDS_1.IsEmpty then
|
||||||
Exit;
|
Exit;
|
||||||
|
|
@ -543,24 +543,41 @@ begin
|
||||||
|
|
||||||
try
|
try
|
||||||
ADOQueryCmd.Connection.BeginTrans;
|
ADOQueryCmd.Connection.BeginTrans;
|
||||||
|
|
||||||
|
begin
|
||||||
with ADOQueryCmd do
|
with ADOQueryCmd do
|
||||||
begin
|
begin
|
||||||
Close;
|
Close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
SQL.Add(' select FHDH from tat_cloth_io_FHDH where CompanyName = '+ quotedstr(trim(CDS_1.fieldbyname('CompanyName').AsString)));
|
//SQL同时查询FHDH和QZ前缀
|
||||||
|
SQL.Add(' exec Update_Tat_Cloth_IO_MaxFHDH @CompanyName = ' + quotedstr(trim(CDS_1.fieldbyname('CompanyName').AsString)));
|
||||||
Open;
|
Open;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
//SQL同时查询FHDH和QZ前缀
|
||||||
|
SQL.Add(' select FHDH=FHDH+1,QZ from tat_cloth_io_FHDH where CompanyName = ' + quotedstr(trim(CDS_1.fieldbyname('CompanyName').AsString)));
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
|
||||||
mFHDH := ADOQueryCmd.FieldByName('FHDH').AsString;
|
mFHDH := ADOQueryCmd.FieldByName('FHDH').AsString;
|
||||||
mFHDH := FormatDateTime('yy', Date) + Format('%.6d', [(StrToIntDef(mFHDH, 0) + 1000000) mod 1000000]);
|
sQZ := ADOQueryCmd.FieldByName('QZ').AsString; //从数据库QZ字段拿前缀
|
||||||
|
|
||||||
|
//前缀 + 年份后两位 + 6位流水号
|
||||||
|
mFHDH := sQZ + FormatDateTime('yy', Date) + Format('%.6d', [(StrToIntDef(mFHDH, 0) + 1000000) mod 1000000]);
|
||||||
|
|
||||||
with ADOQueryCmd do
|
with ADOQueryCmd do
|
||||||
begin
|
begin
|
||||||
Close;
|
Close;
|
||||||
Sql.Clear;
|
Sql.Clear;
|
||||||
sql.Add(' update tat_cloth_io_FHDH SET FHDH = FHDH+1,ioFHDH=''' + mFHDH + ''' ');
|
sql.Add(' update tat_cloth_io_FHDH SET FHDH = FHDH+1,ioFHDH=''' + mFHDH + ''' ');
|
||||||
SQL.Add(' where CompanyName = '+ quotedstr(trim(CDS_1.fieldbyname('CompanyName').AsString)));
|
SQL.Add(' where CompanyName = ' + quotedstr(trim(CDS_1.fieldbyname('CompanyName').AsString)));
|
||||||
EXECSQL;
|
EXECSQL;
|
||||||
end;
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
with ADOQueryCmd do
|
with ADOQueryCmd do
|
||||||
begin
|
begin
|
||||||
|
|
|
||||||
|
|
@ -35,7 +35,6 @@ inherited frmTatDRList: TfrmTatDRList
|
||||||
ParentFont = False
|
ParentFont = False
|
||||||
ShowCaptions = True
|
ShowCaptions = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ExplicitWidth = 1465
|
|
||||||
object TBRafresh: TToolButton
|
object TBRafresh: TToolButton
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
|
|
@ -273,7 +272,6 @@ inherited frmTatDRList: TfrmTatDRList
|
||||||
Color = clWhite
|
Color = clWhite
|
||||||
ParentBackground = False
|
ParentBackground = False
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
ExplicitWidth = 1465
|
|
||||||
object Label4: TLabel
|
object Label4: TLabel
|
||||||
Left = 520
|
Left = 520
|
||||||
Top = 15
|
Top = 15
|
||||||
|
|
@ -497,7 +495,6 @@ inherited frmTatDRList: TfrmTatDRList
|
||||||
#24050#21462#28040
|
#24050#21462#28040
|
||||||
#20840#37096)
|
#20840#37096)
|
||||||
OnChange = cxTabControl1Change
|
OnChange = cxTabControl1Change
|
||||||
ExplicitWidth = 1465
|
|
||||||
ClientRectRight = 0
|
ClientRectRight = 0
|
||||||
ClientRectTop = 0
|
ClientRectTop = 0
|
||||||
end
|
end
|
||||||
|
|
@ -508,7 +505,6 @@ inherited frmTatDRList: TfrmTatDRList
|
||||||
Height = 8
|
Height = 8
|
||||||
HotZoneClassName = 'TcxMediaPlayer9Style'
|
HotZoneClassName = 'TcxMediaPlayer9Style'
|
||||||
AlignSplitter = salBottom
|
AlignSplitter = salBottom
|
||||||
ExplicitWidth = 1465
|
|
||||||
end
|
end
|
||||||
object PageControl1: TPageControl [4]
|
object PageControl1: TPageControl [4]
|
||||||
Left = 0
|
Left = 0
|
||||||
|
|
@ -519,7 +515,6 @@ inherited frmTatDRList: TfrmTatDRList
|
||||||
Align = alClient
|
Align = alClient
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
OnChange = PageControl1Change
|
OnChange = PageControl1Change
|
||||||
ExplicitWidth = 1465
|
|
||||||
object TabSheet1: TTabSheet
|
object TabSheet1: TTabSheet
|
||||||
Caption = ' '#27719#24635
|
Caption = ' '#27719#24635
|
||||||
object cxGrid1: TcxGrid
|
object cxGrid1: TcxGrid
|
||||||
|
|
@ -530,7 +525,6 @@ inherited frmTatDRList: TfrmTatDRList
|
||||||
Align = alClient
|
Align = alClient
|
||||||
PopupMenu = PM_1
|
PopupMenu = PM_1
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ExplicitTop = -6
|
|
||||||
object TV1: TcxGridDBTableView
|
object TV1: TcxGridDBTableView
|
||||||
Navigator.Buttons.CustomButtons = <>
|
Navigator.Buttons.CustomButtons = <>
|
||||||
ScrollbarAnnotations.CustomAnnotations = <>
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
|
@ -795,9 +789,6 @@ inherited frmTatDRList: TfrmTatDRList
|
||||||
Align = alBottom
|
Align = alBottom
|
||||||
PopupMenu = PM_2
|
PopupMenu = PM_2
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
ExplicitLeft = 112
|
|
||||||
ExplicitTop = 343
|
|
||||||
ExplicitWidth = 1457
|
|
||||||
object TV2: TcxGridDBTableView
|
object TV2: TcxGridDBTableView
|
||||||
Navigator.Buttons.CustomButtons = <>
|
Navigator.Buttons.CustomButtons = <>
|
||||||
ScrollbarAnnotations.CustomAnnotations = <>
|
ScrollbarAnnotations.CustomAnnotations = <>
|
||||||
|
|
@ -1026,7 +1017,7 @@ inherited frmTatDRList: TfrmTatDRList
|
||||||
OnBtnUpClick = CompanyNameBtnUpClick
|
OnBtnUpClick = CompanyNameBtnUpClick
|
||||||
end
|
end
|
||||||
object Button1: TButton
|
object Button1: TButton
|
||||||
Left = 56
|
Left = 57
|
||||||
Top = 64
|
Top = 64
|
||||||
Width = 75
|
Width = 75
|
||||||
Height = 25
|
Height = 25
|
||||||
|
|
@ -1056,7 +1047,6 @@ inherited frmTatDRList: TfrmTatDRList
|
||||||
Align = alClient
|
Align = alClient
|
||||||
PopupMenu = pm_3
|
PopupMenu = pm_3
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ExplicitWidth = 1457
|
|
||||||
object TV3: TcxGridDBTableView
|
object TV3: TcxGridDBTableView
|
||||||
OnDblClick = TV3DblClick
|
OnDblClick = TV3DblClick
|
||||||
Navigator.Buttons.CustomButtons = <>
|
Navigator.Buttons.CustomButtons = <>
|
||||||
|
|
|
||||||
|
|
@ -750,6 +750,16 @@ begin
|
||||||
Close;
|
Close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
sql.Add('delete Tat_Cloth_DR_Main where DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + '''');
|
sql.Add('delete Tat_Cloth_DR_Main where DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + '''');
|
||||||
|
|
||||||
|
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
|
||||||
|
sql.Add(' ' + quotedstr(trim(DName)));
|
||||||
|
sql.Add(',getdate() ');
|
||||||
|
sql.Add(',' + quotedstr(trim(self.Caption)));
|
||||||
|
sql.Add(',' + quotedstr(trim('发货申请删除')));
|
||||||
|
sql.Add(',' + quotedstr(trim('DRMID：' + trim(Order_Main.fieldbyname('DRMID').AsString))));
|
||||||
|
sql.Add(',' + quotedstr(trim('成功')));
|
||||||
|
sql.Add(')');
|
||||||
|
ExecSQL;
|
||||||
ExecSQL;
|
ExecSQL;
|
||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
@ -1575,30 +1585,48 @@ end;
|
||||||
procedure TfrmTatDRList.ToolButton7Click(Sender: TObject);
|
procedure TfrmTatDRList.ToolButton7Click(Sender: TObject);
|
||||||
var
|
var
|
||||||
mFHDH: string;
|
mFHDH: string;
|
||||||
|
sQZ: string;
|
||||||
begin
|
begin
|
||||||
try
|
try
|
||||||
ADOQueryCmd.Connection.BeginTrans;
|
ADOQueryCmd.Connection.BeginTrans;
|
||||||
with Order_Main do
|
with Order_Main do
|
||||||
|
begin
|
||||||
|
|
||||||
begin
|
begin
|
||||||
|
|
||||||
with ADOQueryCmd do
|
with ADOQueryCmd do
|
||||||
begin
|
begin
|
||||||
Close;
|
Close;
|
||||||
sql.Clear;
|
sql.Clear;
|
||||||
SQL.Add(' select FHDH from tat_cloth_io_FHDH where CompanyName = '+ quotedstr(trim(Order_Main.fieldbyname('CompanyName').AsString)));
|
//SQL同时查询FHDH和QZ前缀
|
||||||
|
SQL.Add(' exec Update_Tat_Cloth_IO_MaxFHDH @CompanyName = ' + quotedstr(trim(Order_Main.fieldbyname('CompanyName').AsString)));
|
||||||
Open;
|
Open;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
with ADOQueryCmd do
|
||||||
|
begin
|
||||||
|
Close;
|
||||||
|
sql.Clear;
|
||||||
|
//SQL同时查询FHDH和QZ前缀
|
||||||
|
SQL.Add(' select FHDH=FHDH+1,QZ from tat_cloth_io_FHDH where CompanyName = ' + quotedstr(trim(Order_Main.fieldbyname('CompanyName').AsString)));
|
||||||
|
Open;
|
||||||
|
end;
|
||||||
|
|
||||||
mFHDH := ADOQueryCmd.FieldByName('FHDH').AsString;
|
mFHDH := ADOQueryCmd.FieldByName('FHDH').AsString;
|
||||||
mFHDH := FormatDateTime('yy', Date) + Format('%.6d', [(StrToIntDef(mFHDH, 0) + 1000000) mod 1000000]);
|
sQZ := ADOQueryCmd.FieldByName('QZ').AsString; //从数据库QZ字段拿前缀
|
||||||
|
|
||||||
|
//前缀 + 年份后两位 + 6位流水号
|
||||||
|
mFHDH := sQZ + FormatDateTime('yy', Date) + Format('%.6d', [(StrToIntDef(mFHDH, 0) + 1000000) mod 1000000]);
|
||||||
|
|
||||||
with ADOQueryCmd do
|
with ADOQueryCmd do
|
||||||
begin
|
begin
|
||||||
Close;
|
Close;
|
||||||
Sql.Clear;
|
Sql.Clear;
|
||||||
sql.Add(' update tat_cloth_io_FHDH SET FHDH = FHDH+1,ioFHDH=''' + mFHDH + ''' ');
|
sql.Add(' update tat_cloth_io_FHDH SET FHDH = FHDH+1,ioFHDH=''' + mFHDH + ''' ');
|
||||||
SQL.Add(' where CompanyName = '+ quotedstr(trim(Order_Main.fieldbyname('CompanyName').AsString)));
|
SQL.Add(' where CompanyName = ' + quotedstr(trim(Order_Main.fieldbyname('CompanyName').AsString)));
|
||||||
EXECSQL;
|
EXECSQL;
|
||||||
end;
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
with ADOQueryCmd do
|
with ADOQueryCmd do
|
||||||
begin
|
begin
|
||||||
|
|
|
||||||
Binary file not shown.
|
|
@ -1,46 +1,46 @@
|
||||||
<?xml version="1.0" encoding="utf-8"?>
|
<?xml version="1.0" encoding="utf-8"?>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<Transactions>
|
<Transactions>
|
||||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.865,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.865,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.796,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.817,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.440,=D:\Dp10Repo\项目代码\RTBasics\F00染色通用窗体\U_DyePlanCardSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.951,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\InformationBase.dproj</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.791,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.791,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.070,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMacStkSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.492,=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothStkSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.398,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachInEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothInEdit.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
|
||||||
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||||
<Transaction>1899-12-30 00:00:00.000.270,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
<Transaction>1899-12-30 00:00:00.000.270,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.394,D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\U_DyeGreyClothOutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\B03基础物料仓库\U_BSPrtMachOutEdit.dfm</Transaction>
|
||||||
|
<Transaction>1899-12-30 00:00:00.000.069,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||||
</Transactions>
|
</Transactions>
|
||||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||||
<File Path="android-support-v4.dex.jar"/>
|
<File Path="android-support-v4.dex.jar"/>
|
||||||
|
|
@ -88,7 +88,7 @@
|
||||||
<File Path="..\F00染色通用窗体"/>
|
<File Path="..\F00染色通用窗体"/>
|
||||||
<File Path="..\F00染色通用窗体\U_DyePlanCardSel.pas"/>
|
<File Path="..\F00染色通用窗体\U_DyePlanCardSel.pas"/>
|
||||||
<File Path="..\F00染色通用窗体\U_DyePlanCardSel.dfm"/>
|
<File Path="..\F00染色通用窗体\U_DyePlanCardSel.dfm"/>
|
||||||
<File Path="D:\Dp10Repo"/>
|
<File Path="D:\D10W"/>
|
||||||
<File Path="..\..\..\public10"/>
|
<File Path="..\..\..\public10"/>
|
||||||
<File Path="..\..\..\public10\design"/>
|
<File Path="..\..\..\public10\design"/>
|
||||||
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
|
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
|
||||||
|
|
|
||||||
Binary file not shown.
|
|
@ -2,6 +2,6 @@
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<Transactions/>
|
<Transactions/>
|
||||||
<Default.Personality>
|
<Default.Personality>
|
||||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10szXiangying\F01染色坯布仓库\DyeGreyClothStk.dproj"/>
|
<Projects ActiveProject="D:\D10W\项目代码\D10szXIANGYING\F01染色坯布仓库\DyeGreyClothStk.dproj"/>
|
||||||
</Default.Personality>
|
</Default.Personality>
|
||||||
</BorlandProject>
|
</BorlandProject>
|
||||||
|
|
|
||||||
Binary file not shown.
Loading…
Reference in New Issue
Block a user