12.9
This commit is contained in:
parent
dc16f304de
commit
3a5cea8769
|
|
@ -10,6 +10,7 @@ inherited frmCompanySel: TfrmCompanySel
|
|||
Font.Name = #23435#20307
|
||||
Position = poScreenCenter
|
||||
OnClose = FormClose
|
||||
ExplicitLeft = -42
|
||||
ExplicitWidth = 909
|
||||
ExplicitHeight = 597
|
||||
PixelsPerInch = 96
|
||||
|
|
@ -59,6 +60,13 @@ inherited frmCompanySel: TfrmCompanySel
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 159
|
||||
end
|
||||
object TV1Column4: TcxGridDBColumn
|
||||
Caption = #23458#25143#22320#22336
|
||||
DataBinding.FieldName = 'CoAddress'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 547
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = TV1
|
||||
|
|
|
|||
|
|
@ -51,6 +51,7 @@ type
|
|||
handBlack: TcxStyle;
|
||||
cxBlue: TcxStyle;
|
||||
SHuangSeCu: TcxStyle;
|
||||
TV1Column4: TcxGridDBColumn;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormShow(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -1,60 +1,32 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<Transaction>1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.693,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.dfm=D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.311,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.368,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas=D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.693,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.pas=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.311,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.294,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.531,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.430,D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.dfm=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.368,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||
</Transactions>
|
||||
<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通用窗体\U_AttachmentUpload.pas"/>
|
||||
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
|
||||
|
|
|
|||
|
|
@ -1,82 +1,54 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<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.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.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.583,=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.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.503,=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.149,=D:\Dp10Repo\public10\ThreeFun\Form\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.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.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.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.217,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.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.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.814,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas</Transaction>
|
||||
<Transaction>1899-12-30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.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.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.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.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.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.518,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.503,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.583,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.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.187,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.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.228,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.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.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.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.431,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo.pas=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.217,=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.504,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothType.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.754,D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_ClothInfo_Tat.dfm=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_TatClothInfo.dfm</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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.814,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.806,D:\Dp10Repo\项目代码\RTBasics\A00通用模板\ClothInfo.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj</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.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>
|
||||
</Transactions>
|
||||
<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通用窗体\U_AttachmentUpload.pas"/>
|
||||
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
|
|
@ -344,6 +344,22 @@ procedure TfrmClothInfo.TBDelClick(Sender: TObject);
|
|||
begin
|
||||
if CDS_1.IsEmpty then
|
||||
Exit;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add(' select * from Tat_Cloth_Inspect A where A.C_Code = ');
|
||||
sql.Add( quotedStr(CDS_1.fieldbyname('C_Code').AsString) );
|
||||
Open;
|
||||
end;
|
||||
if not ADOQueryCmd.IsEmpty then
|
||||
begin
|
||||
Application.MessageBox('已有检验记录,不能删除！','提示信息',MB_OK);
|
||||
exit;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
|
||||
|
|
|
|||
|
|
@ -32,6 +32,7 @@ object frmClothInfoInput: TfrmClothInfoInput
|
|||
ParentColor = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
ExplicitTop = 1
|
||||
object ToolButton1: TToolButton
|
||||
Tag = 1
|
||||
Left = 0
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
|
|
@ -1,82 +1,54 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<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.048,=D:\Dp10Repo\public10\design\U_BaseList.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.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.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.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.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.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.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.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.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.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.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.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.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.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.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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.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.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.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.827,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachHistoryList.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.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.709,=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.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.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.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.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.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.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.806,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecInPut.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.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.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.695,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachList.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.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
|
||||
</Transactions>
|
||||
<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通用窗体\U_AttachmentUpload.pas"/>
|
||||
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
|
@ -2,6 +2,6 @@
|
|||
<BorlandProject>
|
||||
<Transactions/>
|
||||
<Default.Personality>
|
||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10szXIANGYIN\E03梭织坯布检验\TatInsp.dproj"/>
|
||||
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\TatInsp.dproj"/>
|
||||
</Default.Personality>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
|
|
@ -29,7 +29,9 @@ uses
|
|||
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
|
||||
U_TatClothInfoSel in '..\A00通用窗体\U_TatClothInfoSel.pas' {frmTatClothInfoSel},
|
||||
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
|
||||
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule};
|
||||
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
|
||||
U_TatMachCutHZList in 'U_TatMachCutHZList.pas' {frmTatMachCutHZList},
|
||||
U_TatClothInspHZList in 'U_TatClothInspHZList.pas' {frmTatClothInspHZList};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
|
|
|
|||
|
|
@ -4,7 +4,7 @@
|
|||
<MainSource>TatInsp.dpr</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||
<TargetedPlatforms>38017</TargetedPlatforms>
|
||||
<TargetedPlatforms>1</TargetedPlatforms>
|
||||
<AppType>Library</AppType>
|
||||
<FrameworkType>VCL</FrameworkType>
|
||||
<ProjectVersion>19.2</ProjectVersion>
|
||||
|
|
@ -13,16 +13,6 @@
|
|||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
|
||||
<Base_Android64>true</Base_Android64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
|
||||
<Base_iOSDevice64>true</Base_iOSDevice64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
|
|
@ -43,24 +33,6 @@
|
|||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
|
||||
<Cfg_2_Android64>true</Cfg_2_Android64>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
|
||||
<Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
|
||||
<Cfg_2_OSX64>true</Cfg_2_OSX64>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
|
||||
<Cfg_2_Win32>true</Cfg_2_Win32>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
|
|
@ -84,13 +56,6 @@
|
|||
<VerInfo_Locale>2052</VerInfo_Locale>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Android64)'!=''">
|
||||
<Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
|
||||
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
|
||||
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
|
|
@ -113,18 +78,9 @@
|
|||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<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>
|
||||
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10szXIANGYIN\E03梭织坯布检验\testDll.exe</Debugger_HostApplication>
|
||||
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\testDll.exe</Debugger_HostApplication>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
|
|
@ -199,6 +155,14 @@
|
|||
<FormType>dfm</FormType>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_TatMachCutHZList.pas">
|
||||
<Form>frmTatMachCutHZList</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<DCCReference Include="U_TatClothInspHZList.pas">
|
||||
<Form>frmTatClothInspHZList</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
|
|
@ -221,10 +185,6 @@
|
|||
</Source>
|
||||
</Delphi.Personality>
|
||||
<Platforms>
|
||||
<Platform value="Android64">True</Platform>
|
||||
<Platform value="iOSDevice64">True</Platform>
|
||||
<Platform value="Linux64">True</Platform>
|
||||
<Platform value="OSX64">True</Platform>
|
||||
<Platform value="Win32">True</Platform>
|
||||
<Platform value="Win64">False</Platform>
|
||||
</Platforms>
|
||||
|
|
|
|||
|
|
@ -1,80 +1,54 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.367,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.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.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.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.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm</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.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.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.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</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.099,=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.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.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.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.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.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm</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.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.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.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.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.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.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.292,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.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.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.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.734,=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.123,=D:\Dp10Repo\public10\design\U_globalVar.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.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
|
||||
<Transaction>2025/11/24 13:58:34.000.809,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatMachCutHZList.pas</Transaction>
|
||||
<Transaction>2025/11/24 15:19:14.000.013,=D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\U_TatClothInspHZList.pas</Transaction>
|
||||
</Transactions>
|
||||
<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="..\..\D10szXIANGYIN"/>
|
||||
<File Path="..\..\D10szXIANGYING"/>
|
||||
<File Path="..\A00通用窗体"/>
|
||||
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
|
||||
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
|
||||
|
|
@ -120,5 +94,9 @@
|
|||
<File Path="U_TatMachInsp.dfm"/>
|
||||
<File Path="U_TatClothInspList.pas"/>
|
||||
<File Path="U_TatClothInspList.dfm"/>
|
||||
<File Path="U_TatMachCutHZList.pas"/>
|
||||
<File Path="U_TatMachCutHZList.dfm"/>
|
||||
<File Path="U_TatClothInspHZList.pas"/>
|
||||
<File Path="U_TatClothInspHZList.dfm"/>
|
||||
</ProjectSortOrder>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
5
E03梭织坯布检验/TatInsp.skincfg
Normal file
5
E03梭织坯布检验/TatInsp.skincfg
Normal file
|
|
@ -0,0 +1,5 @@
|
|||
[ExpressSkins]
|
||||
Default=1
|
||||
ShowNotifications=1
|
||||
Enabled=1
|
||||
dxSkinsDefaultPainters=1
|
||||
|
|
@ -1,34 +1,6 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<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="DbPanel"/>
|
||||
<File Path="DbPanel\MovePanel.pas"/>
|
||||
<File Path="delphitwain"/>
|
||||
|
|
@ -49,7 +21,7 @@
|
|||
<File Path="U_upPassword.dfm"/>
|
||||
</ProjectSortOrder>
|
||||
<Transactions>
|
||||
<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梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.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梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj</Transaction>
|
||||
</Transactions>
|
||||
</BorlandProject>
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
|
|
@ -15,7 +15,8 @@ function GetsysParam(muserId: pchar; fparam1: pchar): Boolean;
|
|||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_iniParam, U_TatMachInsp, U_TatClothInspList, U_LabelPrint;
|
||||
U_DataLink, U_iniParam, U_TatMachInsp, U_TatClothInspList, U_LabelPrint,
|
||||
U_TatMachCutHZList,U_TatClothInspHZList;
|
||||
|
||||
/////////////////////////////////////////////////////////////////
|
||||
// 功能说明:取Dll中得窗体 //
|
||||
|
|
@ -150,6 +151,29 @@ begin
|
|||
mnewHandle := Handle;
|
||||
end;
|
||||
end;
|
||||
221: //检验信息汇总
|
||||
begin
|
||||
with TfrmTatClothInspHZList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
|
||||
begin
|
||||
fFormID := FormID;
|
||||
FormStyle := mstyle;
|
||||
WindowState := mstate;
|
||||
BorderStyle := mborderstyle;
|
||||
mnewHandle := Handle;
|
||||
end;
|
||||
end;
|
||||
|
||||
311: //机台切割汇总
|
||||
begin
|
||||
with TfrmTatMachCutHZList.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:
|
||||
begin
|
||||
|
|
|
|||
|
|
@ -46,6 +46,7 @@ type
|
|||
public
|
||||
FlagStr: string;
|
||||
FName, FSJZL, FType, FBCIOID, FHINT: string;
|
||||
FC_Code,fMFflag: string;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
|
|
@ -79,16 +80,44 @@ begin
|
|||
begin
|
||||
|
||||
end;
|
||||
|
||||
if FMFFlag = '·ÖÇÐ' then
|
||||
begin
|
||||
with ADOTmp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select AA.*,row_number () over (order by name) as keyNo from(select DISTINCT C_MXWIDTH as name,MXID,tube,Packaging,Seal from BS_CLOTH_IO_MX ');
|
||||
SQL.Add('WHERE BCIOID=' + QuotedStr(Trim(FBCIOID)));
|
||||
// sql.Add('select AA.*,row_number () over (order by name) as keyNo from(select DISTINCT C_MXWIDTH as name,MXID,tube,Packaging,Seal from BS_CLOTH_IO_MX ');
|
||||
// SQL.Add('WHERE BCIOID=' + QuotedStr(Trim(FBCIOID)));
|
||||
sql.Add('select AA.*,row_number () over (order by CAST(name AS NUMERIC)) as keyNo from(select DISTINCT A.C_MXMF as name, min(A.MFID) as MXID,min(B.tube) as tube,min(B.Packaging) as Packaging,min(B.Seal) as Seal from BS_CLOTH_MF A ');
|
||||
SQL.Add(' FULL JOIN BS_CLOTH_IO_MX B on A.C_CODE = B.C_MXCODE ');
|
||||
SQL.Add(' WHERE A.C_CODE =' + QuotedStr(Trim(FC_Code)));
|
||||
SQL.Add(' Group By A.C_CODE,A.C_MXMF ');
|
||||
|
||||
SQL.Add(')AA');
|
||||
SQL.Add(' Order By CAST(AA.name AS NUMERIC) ');
|
||||
// showmessage(sql.text);
|
||||
Open;
|
||||
end;
|
||||
end
|
||||
else if FMFFlag = '²»·ÖÇÐ' then
|
||||
|
||||
begin
|
||||
with ADOTmp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select AA.*,row_number () over (order by CAST(name AS NUMERIC)) as keyNo from(select DISTINCT C_MXWIDTH as name,MXID,tube,Packaging,Seal from BS_CLOTH_IO_MX ');
|
||||
SQL.Add('WHERE BCIOID=' + QuotedStr(Trim(FBCIOID)));
|
||||
// sql.Add('select AA.*,row_number () over (order by name) as keyNo from(select DISTINCT A.C_MXMF as name, B.MXID,B.tube,B.Packaging,B.Seal from BS_CLOTH_MF A ');
|
||||
// SQL.Add(' FULL JOIN BS_CLOTH_IO_MX B on A.C_CODE = B.C_MXCODE ');
|
||||
// SQL.Add(' WHERE A.C_CODE =' + QuotedStr(Trim(FC_Code)));
|
||||
SQL.Add(')AA');
|
||||
SQL.Add(' Order By CAST(AA.name AS NUMERIC) ');
|
||||
// showmessage(sql.text);
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
if ADOTmp.IsEmpty then
|
||||
begin
|
||||
|
|
|
|||
670
E03梭织坯布检验/U_TatClothInspHZList.dfm
Normal file
670
E03梭织坯布检验/U_TatClothInspHZList.dfm
Normal file
|
|
@ -0,0 +1,670 @@
|
|||
inherited frmTatClothInspHZList: TfrmTatClothInspHZList
|
||||
Left = 184
|
||||
Top = 138
|
||||
Caption = #26816#39564#20449#24687#27719#24635
|
||||
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 = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
Caption = 'ToolBar1'
|
||||
Color = clWhite
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TatInsp.cxImageList_bar
|
||||
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 = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 20
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
ImageIndex = 16
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 213
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 7
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel [1]
|
||||
Left = 0
|
||||
Top = 30
|
||||
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 Label1: TLabel
|
||||
Left = 358
|
||||
Top = 10
|
||||
Width = 26
|
||||
Height = 12
|
||||
Hint = '0'
|
||||
Caption = #38376#24133
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 190
|
||||
Top = 36
|
||||
Width = 52
|
||||
Height = 12
|
||||
Hint = '0'
|
||||
Caption = #27969#36716#21345#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 358
|
||||
Top = 36
|
||||
Width = 26
|
||||
Height = 12
|
||||
Hint = '0'
|
||||
Caption = #20811#37325
|
||||
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
|
||||
Checked = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
State = cbChecked
|
||||
TabOrder = 0
|
||||
OnClick = IsJYTimeClick
|
||||
end
|
||||
object C_Name: TEdit
|
||||
Tag = 2
|
||||
Left = 245
|
||||
Top = 6
|
||||
Width = 100
|
||||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 5
|
||||
OnKeyPress = C_NameKeyPress
|
||||
end
|
||||
object C_width: TEdit
|
||||
Tag = 2
|
||||
Left = 384
|
||||
Top = 6
|
||||
Width = 100
|
||||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 6
|
||||
OnKeyPress = C_NameKeyPress
|
||||
end
|
||||
object pcid: TEdit
|
||||
Tag = 2
|
||||
Left = 245
|
||||
Top = 32
|
||||
Width = 100
|
||||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 7
|
||||
OnKeyPress = C_NameKeyPress
|
||||
end
|
||||
object C_GramWeight: TEdit
|
||||
Tag = 2
|
||||
Left = 384
|
||||
Top = 32
|
||||
Width = 100
|
||||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 8
|
||||
OnKeyPress = C_NameKeyPress
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid [2]
|
||||
Left = 0
|
||||
Top = 97
|
||||
Width = 1540
|
||||
Height = 503
|
||||
Align = alClient
|
||||
BorderStyle = cxcbsNone
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TatInsp.cxImageList_bar
|
||||
ParentFont = False
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 2
|
||||
ExplicitTop = 103
|
||||
object Tv1: TcxGridDBTableView
|
||||
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
|
||||
Column = Tv1Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column1
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column7
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column8
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column9
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column10
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column13
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column14
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column17
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column18
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column19
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.IndicatorWidth = 30
|
||||
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 Tv1C_Name: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'C_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Options.CellMerging = True
|
||||
Width = 66
|
||||
OnCompareRowValuesForCellMerging = Tv1C_NameCompareRowValuesForCellMerging
|
||||
end
|
||||
object Tv1DXMF: TcxGridDBColumn
|
||||
Caption = #23450#22411#38376#24133
|
||||
DataBinding.FieldName = 'DXMF'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.CellMerging = True
|
||||
Width = 72
|
||||
OnCompareRowValuesForCellMerging = Tv1DXMFCompareRowValuesForCellMerging
|
||||
end
|
||||
object Tv1dxmeter: TcxGridDBColumn
|
||||
Caption = #23450#22411#31859#25968
|
||||
DataBinding.FieldName = 'dxmeter'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.CellMerging = True
|
||||
Width = 80
|
||||
OnCompareRowValuesForCellMerging = Tv1dxmeterCompareRowValuesForCellMerging
|
||||
end
|
||||
object Tv1Carno: TcxGridDBColumn
|
||||
Caption = #26426#21488#21495
|
||||
DataBinding.FieldName = 'Carno'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.CellMerging = True
|
||||
Width = 90
|
||||
OnCompareRowValuesForCellMerging = Tv1CarnoCompareRowValuesForCellMerging
|
||||
end
|
||||
object Tv1PCID: TcxGridDBColumn
|
||||
Caption = #27969#36716#21345#21495
|
||||
DataBinding.FieldName = 'pcid'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.CellMerging = True
|
||||
Width = 68
|
||||
OnCompareRowValuesForCellMerging = Tv1PCIDCompareRowValuesForCellMerging
|
||||
end
|
||||
object Tv1CIMachNo: TcxGridDBColumn
|
||||
Caption = #20998#20999#26426#21488
|
||||
DataBinding.FieldName = 'CIMachNo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.CellMerging = True
|
||||
Width = 80
|
||||
OnCompareRowValuesForCellMerging = Tv1CIMachNoCompareRowValuesForCellMerging
|
||||
end
|
||||
object Tv1BCIOID: TcxGridDBColumn
|
||||
Caption = #20998#20999#21333#21495
|
||||
DataBinding.FieldName = 'BCIOID'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.CellMerging = True
|
||||
Width = 80
|
||||
OnCompareRowValuesForCellMerging = Tv1BCIOIDCompareRowValuesForCellMerging
|
||||
end
|
||||
object Tv1qgSL: TcxGridDBColumn
|
||||
Caption = #20999#21106#32553#29575
|
||||
DataBinding.FieldName = 'qgSL'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCurrencyEditProperties'
|
||||
Properties.DecimalPlaces = 2
|
||||
Properties.DisplayFormat = '0.00%'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.CellMerging = True
|
||||
Width = 90
|
||||
OnCompareRowValuesForCellMerging = Tv1qgSLCompareRowValuesForCellMerging
|
||||
end
|
||||
object Tv1qgMeter: TcxGridDBColumn
|
||||
Caption = #20999#21106#31859#25968
|
||||
DataBinding.FieldName = 'qgMeter'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.CellMerging = True
|
||||
Width = 90
|
||||
OnCompareRowValuesForCellMerging = Tv1qgMeterCompareRowValuesForCellMerging
|
||||
end
|
||||
object Tv1Column20: TcxGridDBColumn
|
||||
Caption = #20248#31561#29575
|
||||
DataBinding.FieldName = 'YDRate'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCurrencyEditProperties'
|
||||
Properties.DisplayFormat = '0.0%'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 90
|
||||
end
|
||||
object Tv1Column21: TcxGridDBColumn
|
||||
Caption = #24223#24067#29575
|
||||
DataBinding.FieldName = 'FBRate'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCurrencyEditProperties'
|
||||
Properties.DisplayFormat = '0.0%'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 90
|
||||
end
|
||||
object Tv1Column22: TcxGridDBColumn
|
||||
Caption = #20999#21106#38376#24133
|
||||
DataBinding.FieldName = 'C_width'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 90
|
||||
end
|
||||
object Tv1Column4: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'C_GramWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column6: TcxGridDBColumn
|
||||
Caption = #20248#31561#21367#25968
|
||||
DataBinding.FieldName = 'YDJs'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 74
|
||||
end
|
||||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #20248#31561#31859#25968
|
||||
DataBinding.FieldName = 'Ydqty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column9: TcxGridDBColumn
|
||||
Caption = #23567#21367#21367#25968
|
||||
DataBinding.FieldName = 'xjJS'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column10: TcxGridDBColumn
|
||||
Caption = #23567#21367#31859#25968
|
||||
DataBinding.FieldName = 'xjqty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column7: TcxGridDBColumn
|
||||
Caption = #20108#31561#21367#25968
|
||||
DataBinding.FieldName = 'edJS'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column8: TcxGridDBColumn
|
||||
Caption = #20108#31561#31859#25968
|
||||
DataBinding.FieldName = 'edqty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column17: TcxGridDBColumn
|
||||
Caption = #27979#35797#21367#25968
|
||||
DataBinding.FieldName = 'csJS'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column18: TcxGridDBColumn
|
||||
Caption = #27979#35797#31859#25968
|
||||
DataBinding.FieldName = 'csqty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column13: TcxGridDBColumn
|
||||
Caption = #20998#20999#21367#25968
|
||||
DataBinding.FieldName = 'fqJS'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column14: TcxGridDBColumn
|
||||
Caption = #20998#20999#31859#25968
|
||||
DataBinding.FieldName = 'fqqty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1fbJS: TcxGridDBColumn
|
||||
Caption = #24223#24067#21367#25968
|
||||
DataBinding.FieldName = 'fbJS'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1fbqty: TcxGridDBColumn
|
||||
Caption = #24223#24067#31859#25968
|
||||
DataBinding.FieldName = 'fbqty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column19: TcxGridDBColumn
|
||||
Caption = #25439#32791#24179#26041
|
||||
DataBinding.FieldName = 'SHpf'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 71
|
||||
end
|
||||
object Tv1Column15: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'meterall'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
end
|
||||
object Tv1Column23: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'C_Widthall'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_TatInsp.ADOLink
|
||||
Left = 553
|
||||
Top = 200
|
||||
end
|
||||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = DataLink_TatInsp.ADOLink
|
||||
Left = 425
|
||||
Top = 201
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TatInsp.ADOLink
|
||||
CommandTimeout = 600
|
||||
Parameters = <>
|
||||
Left = 148
|
||||
Top = 280
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TatInsp.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 252
|
||||
Top = 260
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TatInsp.ADOLink
|
||||
LockType = ltReadOnly
|
||||
CommandTimeout = 600
|
||||
Parameters = <>
|
||||
Left = 112
|
||||
Top = 204
|
||||
end
|
||||
object DS_1: TDataSource
|
||||
DataSet = CDS_1
|
||||
Left = 828
|
||||
Top = 284
|
||||
end
|
||||
object GPM_1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 728
|
||||
Top = 288
|
||||
end
|
||||
object CDS_1: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
BeforeOpen = CDS_1BeforeOpen
|
||||
Left = 776
|
||||
Top = 284
|
||||
end
|
||||
object PM_1: TPopupMenu
|
||||
Left = 560
|
||||
Top = 384
|
||||
object N1: TMenuItem
|
||||
Caption = #20840#36873
|
||||
OnClick = N1Click
|
||||
end
|
||||
object PM11: TMenuItem
|
||||
Caption = #20840#24323
|
||||
OnClick = PM11Click
|
||||
end
|
||||
end
|
||||
end
|
||||
615
E03梭织坯布检验/U_TatClothInspHZList.pas
Normal file
615
E03梭织坯布检验/U_TatClothInspHZList.pas
Normal file
|
|
@ -0,0 +1,615 @@
|
|||
unit U_TatClothInspHZList;
|
||||
|
||||
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, cxCurrencyEdit;
|
||||
|
||||
type
|
||||
TfrmTatClothInspHZList = 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;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1Column22: TcxGridDBColumn;
|
||||
Tv1C_Name: TcxGridDBColumn;
|
||||
Tv1DXMF: TcxGridDBColumn;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
Tv1PCID: TcxGridDBColumn;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
Tv1Column9: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
Tv1Column13: TcxGridDBColumn;
|
||||
Tv1Column14: TcxGridDBColumn;
|
||||
Tv1Column17: TcxGridDBColumn;
|
||||
Tv1Column18: TcxGridDBColumn;
|
||||
Tv1Column19: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
Tv1dxmeter: TcxGridDBColumn;
|
||||
Tv1Carno: TcxGridDBColumn;
|
||||
Tv1qgSL: TcxGridDBColumn;
|
||||
Tv1qgMeter: TcxGridDBColumn;
|
||||
Tv1Column20: TcxGridDBColumn;
|
||||
Tv1Column21: TcxGridDBColumn;
|
||||
Tv1Column22: TcxGridDBColumn;
|
||||
Tv1fbJS: TcxGridDBColumn;
|
||||
Tv1fbqty: TcxGridDBColumn;
|
||||
Tv1CIMachNo: TcxGridDBColumn;
|
||||
Tv1BCIOID: TcxGridDBColumn;
|
||||
Label1: TLabel;
|
||||
C_width: TEdit;
|
||||
Label3: TLabel;
|
||||
pcid: TEdit;
|
||||
Label4: TLabel;
|
||||
C_GramWeight: TEdit;
|
||||
Tv1Column15: TcxGridDBColumn;
|
||||
Tv1Column23: 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 Tv1PCIDCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
procedure Tv1C_NameCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
procedure Tv1DXMFCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
procedure Tv1dxmeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
procedure Tv1CarnoCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
procedure Tv1CIMachNoCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
procedure Tv1BCIOIDCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
procedure Tv1qgSLCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
procedure Tv1qgMeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
private
|
||||
CurrentPage, RecordsNumber: Integer;
|
||||
lstCust: TStringList;
|
||||
procedure InitGrid();
|
||||
procedure SetStatus();
|
||||
{ Private declarations }
|
||||
public
|
||||
canshu1: string;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_LabelPrint;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmTatClothInspHZList.SetStatus();
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
FreeAndNil(lstCust);
|
||||
Action := caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.FormCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
lstCust := TStringList.Create;
|
||||
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
|
||||
BegDate.DateTime := EndDate.DateTime - 20;
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.InitGrid();
|
||||
var
|
||||
WSql, WSql1: string;
|
||||
begin
|
||||
|
||||
WSql := SGetFilters(Panel1, 1, 2);
|
||||
if Trim(WSql) <> '' then
|
||||
WSql := ' and ' + WSql;
|
||||
if IsJYTime.Checked then
|
||||
begin
|
||||
WSql1 := ' and A.FillTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
|
||||
WSql1 := WSql1 + ' and A.FillTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
|
||||
end;
|
||||
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered := False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from ( ');
|
||||
sql.Add('select A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter ');
|
||||
sql.Add(' ,maX(B.C_Width) AS DXMF,A.CIMachNo,A.BCIOID ');
|
||||
// sql.Add(' ,CAST(isNull(A.dxmeter,''1'') AS DECIMAL(18,2)) ');
|
||||
|
||||
// SQL.Add(' ,qgMeter=sum(meter+SHMeter)/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) ');
|
||||
|
||||
sql.Add(' ,meterall=(select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo )');
|
||||
sql.Add(' ,C_Widthall= ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) ');
|
||||
|
||||
SQL.Add(' ,qgMeter=(select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo )/ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) ');
|
||||
|
||||
// SQL.Add(' ,qgSL = ROUND((select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.BCIOID = A.BCIOID and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo )*100 ');
|
||||
// sql.Add(' / ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1)/CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) , 2) ');
|
||||
|
||||
SQL.Add(' ,qgSL = ROUND((CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) - (select sum(meter+SHMeter) FROM Tat_Cloth_Inspect X WHERE X.pcid = A.pcid and X.GRADE<>''循环布'' and X.CIMachNo=A.CIMachNo )');
|
||||
SQL.Add(' /ISNULL(NULLIF(MAX(ISNULL(B.C_WidthNum, 1)), 0), 1) )*100 ');
|
||||
sql.Add(' /CAST(ISNULL(NULLIF(A.dxmeter, ''''), 1) AS DECIMAL(18,2)) , 3) ');
|
||||
|
||||
SQL.Add(',SHpf=SUM(CASE WHEN ISNUMERIC(A.SHMETER) = 1 AND ISNUMERIC(A.C_WIDTH) = 1 ');
|
||||
SQL.Add(' THEN CAST(A.SHMETER AS DECIMAL(18,2))/100 * CAST(A.C_WIDTH AS DECIMAL(18,2)) ');
|
||||
SQL.Add(' 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 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 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=''废布'' and A.meter>0) 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 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 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');
|
||||
|
||||
|
||||
// 添加优等率字段 - 优等卷数/(优等卷数+小卷卷数+二等卷数+测试卷数+分切卷数+废布卷数(排除米数为0的))
|
||||
SQL.Add(',YDRate=CAST(');
|
||||
SQL.Add(' CASE ');
|
||||
SQL.Add(' WHEN (SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END) + '); // YDJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END) + '); // xjJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END) + '); // edJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END) + '); // csJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END) + '); // fqJS
|
||||
SQL.Add(' SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)) = 0 '); // fbJS（排除米数为0）
|
||||
SQL.Add(' THEN 0 ');
|
||||
SQL.Add(' ELSE ');
|
||||
SQL.Add(' CAST(SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END)*100 AS DECIMAL(18,4)) / '); // 分子：YDJS
|
||||
SQL.Add(' CAST((SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END) + '); // YDJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END) + '); // xjJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END) + '); // edJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END) + '); // csJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END) + '); // fqJS
|
||||
SQL.Add(' SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)) AS DECIMAL(18,4)) '); // fbJS
|
||||
SQL.Add(' END ');
|
||||
SQL.Add('AS DECIMAL(18,4)) ');
|
||||
|
||||
// 添加优等率字段 - 优等卷数/(优等卷数+小卷卷数+二等卷数+测试卷数+分切卷数+废布卷数(排除米数为0的))
|
||||
SQL.Add(',FBRate=CAST(');
|
||||
SQL.Add(' CASE ');
|
||||
SQL.Add(' WHEN (SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END) + '); // YDJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END) + '); // xjJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END) + '); // edJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END) + '); // csJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END) + '); // fqJS
|
||||
SQL.Add(' SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)) = 0 '); // fbJS（排除米数为0）
|
||||
SQL.Add(' THEN 0 ');
|
||||
SQL.Add(' ELSE ');
|
||||
SQL.Add(' CAST(SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)*100 AS DECIMAL(18,4)) / '); // 分子：YDJS
|
||||
SQL.Add(' CAST((SUM(CASE WHEN A.GRADE=''优等品'' THEN 1 ELSE 0 END) + '); // YDJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''小卷'' THEN 1 ELSE 0 END) + '); // xjJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''二等品'' THEN 1 ELSE 0 END) + '); // edJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''测试'' THEN 1 ELSE 0 END) + '); // csJS
|
||||
SQL.Add(' SUM(CASE WHEN A.GRADE=''分切'' THEN 1 ELSE 0 END) + '); // fqJS
|
||||
SQL.Add(' SUM(CASE WHEN (A.GRADE=''废布'' and A.meter>0) THEN 1 ELSE 0 END)) AS DECIMAL(18,4)) '); // fbJS
|
||||
SQL.Add(' END ');
|
||||
SQL.Add('AS DECIMAL(18,4)) ');
|
||||
|
||||
SQL.Add('from Tat_Cloth_Inspect A ');
|
||||
SQL.Add(' left join BS_Cloth_IO B on A.BCIOID = B.BCIOID ');
|
||||
SQL.Add(' where (A.BEFOREC_WIDTH='''' OR A.BEFOREC_WIDTH is null) ');
|
||||
SQL.Add(' and (NOT EXISTS (select * from BS_Cloth_IO_mx X WHERE X.BCIOID = A.BCIOID and X.C_MXSHWidth is not NULL)) ');
|
||||
SQL.Add(' and A.GRADE<>''循环布'' ');
|
||||
SQL.Add(' and A.Carno<>'''' and A.Carno is not NULL ');
|
||||
|
||||
SQL.Add(WSql1);
|
||||
|
||||
sql.Add(' group by A.C_NAME, A.C_width,A.C_GramWeight,A.pcid,A.Carno,A.dxmeter');
|
||||
sql.Add(' ,A.CIMachNo,A.BCIOID');
|
||||
|
||||
sql.add(' ) T where 1=1 ');
|
||||
SQL.Add(WSql);
|
||||
sql.Add(' Order By T.Carno,T.pcid,BCIOID');
|
||||
// showmessage(sql.text);
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADOQueryMain, CDS_1);
|
||||
SInitCDSData(ADOQueryMain, CDS_1);
|
||||
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
TV1.DataController.Filter.Clear;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.IsJYTimeClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
CurrentPage := 1;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.CDS_1BeforeOpen(DataSet: TDataSet);
|
||||
begin
|
||||
|
||||
lstCust.Clear;
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.ConNoMChange(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.cxPageControl1Change(Sender: TObject);
|
||||
begin
|
||||
CurrentPage := 1;
|
||||
SetStatus();
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.C_NameKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
inherited;
|
||||
if Key = #13 then
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
// ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '检验信息汇总');
|
||||
CurrentPage := 1;
|
||||
RecordsNumber := 500;
|
||||
canshu1 := Trim(Self.fParameters1);
|
||||
|
||||
SetStatus();
|
||||
|
||||
BegDate.DateTime := SGetServerDate(ADOQueryCmd);
|
||||
EndDate.DateTime := BegDate.DateTime;
|
||||
InitGrid();
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.TBExportClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then
|
||||
exit;
|
||||
TcxGridToExcel(Self.Caption, cxGrid1);
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.orderNoKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key = #13 then
|
||||
begin
|
||||
CurrentPage := 1;
|
||||
InitGrid();
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.PM11Click(Sender: TObject);
|
||||
begin
|
||||
SelOKNo(CDS_1, false);
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.Tv1PCIDCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
begin
|
||||
if (ARow1.Values[Tv1PCID.Index] = ARow2.Values[Tv1PCID.Index]) and (ARow1.Values[Tv1PCID.Index] <> NULL) then
|
||||
AAreEqual := True
|
||||
else
|
||||
AAreEqual := False;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.Tv1qgMeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
begin
|
||||
|
||||
if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then
|
||||
begin
|
||||
AAreEqual := False;
|
||||
exit;
|
||||
end;
|
||||
|
||||
if (ARow1.Values[Tv1qgMeter.Index] = ARow2.Values[Tv1qgMeter.Index]) and (ARow1.Values[Tv1qgMeter.Index] <> NULL) and (ARow2.Values[Tv1qgMeter.Index] <> NULL) then
|
||||
AAreEqual := True
|
||||
else
|
||||
AAreEqual := False;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.Tv1qgSLCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
begin
|
||||
|
||||
if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then
|
||||
begin
|
||||
AAreEqual := False;
|
||||
exit;
|
||||
end;
|
||||
|
||||
if (ARow1.Values[Tv1qgSL.Index] = ARow2.Values[Tv1qgSL.Index]) and (ARow1.Values[Tv1qgSL.Index] <> NULL) and (ARow2.Values[Tv1qgSL.Index] <> NULL) then
|
||||
AAreEqual := True
|
||||
else
|
||||
AAreEqual := False;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.Tv1DXMFCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
begin
|
||||
if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then
|
||||
begin
|
||||
AAreEqual := False;
|
||||
exit;
|
||||
end;
|
||||
// if (ARow1.Values[Tv1C_Name.Index] <> ARow2.Values[Tv1C_Name.Index]) or (ARow1.Values[Tv1C_Name.Index] = NULL) or (ARow2.Values[Tv1C_Name.Index] = NULL) then
|
||||
// begin
|
||||
// AAreEqual := False;
|
||||
// exit;
|
||||
// end;
|
||||
|
||||
if (ARow1.Values[Tv1DXMF.Index] = ARow2.Values[Tv1DXMF.Index]) and (ARow1.Values[Tv1DXMF.Index] <> NULL) and (ARow2.Values[Tv1DXMF.Index] <> NULL) then
|
||||
AAreEqual := True
|
||||
else
|
||||
AAreEqual := False;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.Tv1BCIOIDCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
begin
|
||||
|
||||
if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then
|
||||
begin
|
||||
AAreEqual := False;
|
||||
exit;
|
||||
end;
|
||||
|
||||
if (ARow1.Values[Tv1BCIOID.Index] = ARow2.Values[Tv1BCIOID.Index]) and (ARow1.Values[Tv1BCIOID.Index] <> NULL) and (ARow2.Values[Tv1BCIOID.Index] <> NULL) then
|
||||
AAreEqual := True
|
||||
else
|
||||
AAreEqual := False;
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.Tv1CarnoCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
begin
|
||||
if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then
|
||||
begin
|
||||
AAreEqual := False;
|
||||
exit;
|
||||
end;
|
||||
// if (ARow1.Values[Tv1C_Name.Index] <> ARow2.Values[Tv1C_Name.Index]) or (ARow1.Values[Tv1C_Name.Index] = NULL) or (ARow2.Values[Tv1C_Name.Index] = NULL) then
|
||||
// begin
|
||||
// AAreEqual := False;
|
||||
// exit;
|
||||
// end;
|
||||
|
||||
if (ARow1.Values[Tv1Carno.Index] = ARow2.Values[Tv1Carno.Index]) and (ARow1.Values[Tv1Carno.Index] <> NULL) and (ARow2.Values[Tv1Carno.Index] <> NULL) then
|
||||
AAreEqual := True
|
||||
else
|
||||
AAreEqual := False;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.Tv1CIMachNoCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
begin
|
||||
|
||||
if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then
|
||||
begin
|
||||
AAreEqual := False;
|
||||
exit;
|
||||
end;
|
||||
|
||||
if (ARow1.Values[Tv1CIMachNo.Index] = ARow2.Values[Tv1CIMachNo.Index]) and (ARow1.Values[Tv1CIMachNo.Index] <> NULL) and (ARow2.Values[Tv1CIMachNo.Index] <> NULL) then
|
||||
AAreEqual := True
|
||||
else
|
||||
AAreEqual := False;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.Tv1C_NameCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
begin
|
||||
|
||||
if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then
|
||||
begin
|
||||
AAreEqual := False;
|
||||
exit;
|
||||
end;
|
||||
|
||||
if (ARow1.Values[Tv1C_Name.Index] = ARow2.Values[Tv1C_Name.Index]) and (ARow1.Values[Tv1C_Name.Index] <> NULL) and (ARow2.Values[Tv1C_Name.Index] <> NULL) then
|
||||
AAreEqual := True
|
||||
else
|
||||
AAreEqual := False;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
|
||||
begin
|
||||
lstCust.Clear;
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.Tv1dxmeterCompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
|
||||
begin
|
||||
if (ARow1.Values[Tv1PCID.Index] <> ARow2.Values[Tv1PCID.Index]) or (ARow1.Values[Tv1PCID.Index] = NULL) or (ARow2.Values[Tv1PCID.Index] = NULL) then
|
||||
begin
|
||||
AAreEqual := False;
|
||||
exit;
|
||||
end;
|
||||
// if (ARow1.Values[Tv1C_Name.Index] <> ARow2.Values[Tv1C_Name.Index]) or (ARow1.Values[Tv1C_Name.Index] = NULL) or (ARow2.Values[Tv1C_Name.Index] = NULL) then
|
||||
// begin
|
||||
// AAreEqual := False;
|
||||
// exit;
|
||||
// end;
|
||||
|
||||
if (ARow1.Values[Tv1dxmeter.Index] = ARow2.Values[Tv1dxmeter.Index]) and (ARow1.Values[Tv1dxmeter.Index] <> NULL) and (ARow2.Values[Tv1dxmeter.Index] <> NULL) then
|
||||
AAreEqual := True
|
||||
else
|
||||
AAreEqual := False;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
|
||||
begin
|
||||
if lstCust <> nil then
|
||||
AText := IntToStr(lstCust.Count);
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.BTNPClick(Sender: TObject);
|
||||
begin
|
||||
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
|
||||
CurrentPage := CurrentPage + 1;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.BTLPClick(Sender: TObject);
|
||||
begin
|
||||
if CurrentPage > 1 then
|
||||
CurrentPage := CurrentPage - 1;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.TCBNORChange(Sender: TObject);
|
||||
begin
|
||||
|
||||
CurrentPage := 1;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.JYTypeChange(Sender: TObject);
|
||||
begin
|
||||
CurrentPage := 1;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.N1Click(Sender: TObject);
|
||||
begin
|
||||
|
||||
SelOKNo(CDS_1, true);
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInspHZList.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 TfrmTatClothInspHZList.ToolButton4Click(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '检验信息汇总');
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
@ -185,7 +185,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
|
|||
object ComboBox2: TComboBox
|
||||
Tag = 2
|
||||
Left = 510
|
||||
Top = 1
|
||||
Top = 0
|
||||
Width = 69
|
||||
Height = 35
|
||||
Hint = '1'
|
||||
|
|
@ -420,6 +420,20 @@ inherited frmTatClothInspList: TfrmTatClothInspList
|
|||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label16: TLabel
|
||||
Left = 1145
|
||||
Top = 14
|
||||
Width = 26
|
||||
Height = 12
|
||||
Hint = '0'
|
||||
Caption = #37096#38376
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 96
|
||||
Top = 10
|
||||
|
|
@ -596,6 +610,15 @@ inherited frmTatClothInspList: TfrmTatClothInspList
|
|||
TabOrder = 14
|
||||
OnKeyPress = conNOKeyPress
|
||||
end
|
||||
object dept: TEdit
|
||||
Left = 1177
|
||||
Top = 10
|
||||
Width = 100
|
||||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 15
|
||||
OnKeyPress = conNOKeyPress
|
||||
end
|
||||
end
|
||||
object cxTabControl1: TcxTabControl [3]
|
||||
Left = 0
|
||||
|
|
@ -617,7 +640,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
|
|||
' '#27491#24335#25968#25454' '
|
||||
' '#21024#38500#25968#25454' ')
|
||||
OnChange = cxTabControl1Change
|
||||
ExplicitTop = 136
|
||||
ClientRectBottom = 445
|
||||
ClientRectLeft = 2
|
||||
ClientRectRight = 1465
|
||||
|
|
@ -637,8 +659,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
|
|||
ParentFont = False
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 31
|
||||
object Tv1: TcxGridDBTableView
|
||||
OnMouseUp = Tv1MouseUp
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
|
|
@ -1025,6 +1045,13 @@ inherited frmTatClothInspList: TfrmTatClothInspList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 68
|
||||
end
|
||||
object Tv1C_MXSHWidth: TcxGridDBColumn
|
||||
Caption = #25439#32791#38376#24133
|
||||
DataBinding.FieldName = 'C_MXSHWidth'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
|
|
@ -1278,6 +1305,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
|
|||
Top = 225
|
||||
end
|
||||
object GPM_1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 860
|
||||
Top = 470
|
||||
|
|
|
|||
|
|
@ -138,6 +138,9 @@ type
|
|||
ComboBox1: TComboBox;
|
||||
Button7: TButton;
|
||||
MovePanel2: TMovePanel;
|
||||
Label16: TLabel;
|
||||
dept: TEdit;
|
||||
Tv1C_MXSHWidth: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
|
|
@ -272,34 +275,34 @@ end;
|
|||
|
||||
procedure TfrmTatClothInspList.InitGrid();
|
||||
var
|
||||
WSql: string;
|
||||
WSql1, WSql2: string;
|
||||
begin
|
||||
MovePanel2.Left := (self.Width - MovePanel2.Width) div 2;
|
||||
MovePanel2.Visible := True;
|
||||
MovePanel2.Refresh;
|
||||
WSql := SGetFilters(Panel1, 1, 2);
|
||||
if trim(WSql) <> '' then
|
||||
WSql1 := SGetFilters(Panel1, 1, 2);
|
||||
if WSql1 <> '' then
|
||||
begin
|
||||
WSql := ' and ' + trim(WSql);
|
||||
WSql1 := ' and ' + Trim(WSql1);
|
||||
end;
|
||||
|
||||
WSql2 := '';
|
||||
if dept.Text <> '' then
|
||||
begin
|
||||
WSql2 := WSql2 + ' and dept like ' + QuotedStr('%' + trim(dept.Text) + '%');
|
||||
end;
|
||||
|
||||
if trim(FWorkshop) <> '' then
|
||||
WSql := WSql + ' and A.Workshop=''' + trim(FWorkshop) + '''';
|
||||
WSql1 := WSql1 + ' and Workshop=''' + trim(FWorkshop) + '''';
|
||||
|
||||
if IsJYTime.Checked then
|
||||
begin
|
||||
WSql := WSql + ' and A.Filltime>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
|
||||
WSql := WSql + ' and A.Filltime<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
|
||||
end
|
||||
else
|
||||
begin
|
||||
if trim(WSql) <> '' then
|
||||
WSql := ' and 1=1' + trim(WSql)
|
||||
else
|
||||
WSql := WSql + ' and 1=2 ';
|
||||
WSql1 := WSql1 + ' and A.Filltime>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
|
||||
WSql1 := WSql1 + ' and A.Filltime<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
|
||||
end;
|
||||
if trim(WSql) = 'and 1=2' then
|
||||
Application.MessageBox('勾选检验日期或填入搜索条件', '提示', 0);
|
||||
|
||||
if trim(WSql1) = '' then
|
||||
Application.MessageBox('¹´Ñ¡¼ìÑéÈÕÆÚ', 'Ìáʾ', 0);
|
||||
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
|
|
@ -320,7 +323,9 @@ begin
|
|||
|
||||
sql.Add('@pageIndex=' + inttostr(CurrentPage));
|
||||
sql.Add(',@pageSize=' + inttostr(RecordsNumber));
|
||||
sql.Add(',@criteria= ' + quotedstr(WSql));
|
||||
sql.Add(',@criteria= ' + quotedstr(WSql1));
|
||||
sql.Add(',@criteria2= ' + quotedstr(WSql2));
|
||||
// ShowMessage(SQL.Text);
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADOQueryMain, Order_Main);
|
||||
|
|
|
|||
513
E03梭织坯布检验/U_TatMachCutHZList.dfm
Normal file
513
E03梭织坯布检验/U_TatMachCutHZList.dfm
Normal file
|
|
@ -0,0 +1,513 @@
|
|||
inherited frmTatMachCutHZList: TfrmTatMachCutHZList
|
||||
Left = 184
|
||||
Top = 138
|
||||
Caption = #26426#21488#20999#21106#27719#24635
|
||||
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 = 30
|
||||
AutoSize = True
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
Caption = 'ToolBar1'
|
||||
Color = clWhite
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
Images = DataLink_TatInsp.cxImageList_bar
|
||||
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 = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #23548#20986
|
||||
ImageIndex = 20
|
||||
OnClick = TBExportClick
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384#26684#24335
|
||||
ImageIndex = 16
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 213
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 7
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel [1]
|
||||
Left = 0
|
||||
Top = 30
|
||||
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 = 39
|
||||
Height = 12
|
||||
Hint = '0'
|
||||
Caption = #20135#21697#21517
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object 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
|
||||
Checked = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
State = cbChecked
|
||||
TabOrder = 0
|
||||
OnClick = IsJYTimeClick
|
||||
end
|
||||
object C_Name: TEdit
|
||||
Tag = 2
|
||||
Left = 237
|
||||
Top = 6
|
||||
Width = 100
|
||||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 5
|
||||
OnKeyPress = C_NameKeyPress
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid [2]
|
||||
Left = 0
|
||||
Top = 97
|
||||
Width = 1540
|
||||
Height = 503
|
||||
Align = alClient
|
||||
BorderStyle = cxcbsNone
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 2
|
||||
object Tv1: TcxGridDBTableView
|
||||
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
|
||||
Column = Tv1Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column1
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column7
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column8
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column9
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column10
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column13
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column14
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column17
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column18
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column19
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
OptionsView.IndicatorWidth = 30
|
||||
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 Tv1Carno: TcxGridDBColumn
|
||||
Caption = #26426#21488#21495
|
||||
DataBinding.FieldName = 'Carno'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column6: TcxGridDBColumn
|
||||
Caption = #20248#31561#21367#25968
|
||||
DataBinding.FieldName = 'YDJs'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 74
|
||||
end
|
||||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #20248#31561#31859#25968
|
||||
DataBinding.FieldName = 'Ydqty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column9: TcxGridDBColumn
|
||||
Caption = #23567#21367#21367#25968
|
||||
DataBinding.FieldName = 'xjJS'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column10: TcxGridDBColumn
|
||||
Caption = #23567#21367#25968#37327
|
||||
DataBinding.FieldName = 'xjqty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column7: TcxGridDBColumn
|
||||
Caption = #20108#31561#21367#25968
|
||||
DataBinding.FieldName = 'edJS'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column8: TcxGridDBColumn
|
||||
Caption = #20108#31561#31859#25968
|
||||
DataBinding.FieldName = 'edqty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column17: TcxGridDBColumn
|
||||
Caption = #27979#35797#21367#25968
|
||||
DataBinding.FieldName = 'csJS'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column18: TcxGridDBColumn
|
||||
Caption = #27979#35797#31859#25968
|
||||
DataBinding.FieldName = 'csqty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column13: TcxGridDBColumn
|
||||
Caption = #20998#20999#21367#25968
|
||||
DataBinding.FieldName = 'fqJS'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column14: TcxGridDBColumn
|
||||
Caption = #20998#20999#31859#25968
|
||||
DataBinding.FieldName = 'fqqty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1fbJS: TcxGridDBColumn
|
||||
Caption = #24223#24067#21367#25968
|
||||
DataBinding.FieldName = 'fbJS'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1fbqty: TcxGridDBColumn
|
||||
Caption = #24223#24067#31859#25968
|
||||
DataBinding.FieldName = 'fbqty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column19: TcxGridDBColumn
|
||||
Caption = #25439#32791#24179#26041
|
||||
DataBinding.FieldName = 'SHpf'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 71
|
||||
end
|
||||
object Tv1qgMeter: TcxGridDBColumn
|
||||
Caption = #20999#21106#31859#25968
|
||||
DataBinding.FieldName = 'qgMeterNoGQ'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCurrencyEditProperties'
|
||||
Properties.DisplayFormat = '0.00'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1qgMeterGQ: TcxGridDBColumn
|
||||
Caption = #25913#20999#31859#25968
|
||||
DataBinding.FieldName = 'qgMeterGQ'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1qgMeterAll: TcxGridDBColumn
|
||||
Caption = #20135#37327#31859#25968
|
||||
DataBinding.FieldName = 'qgMeterAll'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1ZJJS: TcxGridDBColumn
|
||||
Caption = #24635#35745#21367#25968
|
||||
DataBinding.FieldName = 'ZJJS'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1ZJqty: TcxGridDBColumn
|
||||
Caption = #24635#35745#31859#25968
|
||||
DataBinding.FieldName = 'ZJqty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
inherited ADOQueryBaseCmd: TADOQuery
|
||||
Connection = DataLink_TatInsp.ADOLink
|
||||
Left = 553
|
||||
Top = 200
|
||||
end
|
||||
inherited ADOQueryBaseTemp: TADOQuery
|
||||
Connection = DataLink_TatInsp.ADOLink
|
||||
Left = 425
|
||||
Top = 201
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TatInsp.ADOLink
|
||||
CommandTimeout = 600
|
||||
Parameters = <>
|
||||
Left = 148
|
||||
Top = 280
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = DataLink_TatInsp.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 252
|
||||
Top = 260
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = DataLink_TatInsp.ADOLink
|
||||
LockType = ltReadOnly
|
||||
CommandTimeout = 600
|
||||
Parameters = <>
|
||||
Left = 112
|
||||
Top = 204
|
||||
end
|
||||
object DS_1: TDataSource
|
||||
DataSet = CDS_1
|
||||
Left = 828
|
||||
Top = 284
|
||||
end
|
||||
object GPM_1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 728
|
||||
Top = 288
|
||||
end
|
||||
object CDS_1: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
BeforeOpen = CDS_1BeforeOpen
|
||||
Left = 776
|
||||
Top = 284
|
||||
end
|
||||
object PM_1: TPopupMenu
|
||||
Left = 560
|
||||
Top = 384
|
||||
object N1: TMenuItem
|
||||
Caption = #20840#36873
|
||||
OnClick = N1Click
|
||||
end
|
||||
object PM11: TMenuItem
|
||||
Caption = #20840#24323
|
||||
OnClick = PM11Click
|
||||
end
|
||||
end
|
||||
end
|
||||
390
E03梭织坯布检验/U_TatMachCutHZList.pas
Normal file
390
E03梭织坯布检验/U_TatMachCutHZList.pas
Normal file
|
|
@ -0,0 +1,390 @@
|
|||
unit U_TatMachCutHZList;
|
||||
|
||||
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, cxCurrencyEdit;
|
||||
|
||||
type
|
||||
TfrmTatMachCutHZList = 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;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v1Column22: TcxGridDBColumn;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
Tv1Column9: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
Tv1Column13: TcxGridDBColumn;
|
||||
Tv1Column14: TcxGridDBColumn;
|
||||
Tv1Column17: TcxGridDBColumn;
|
||||
Tv1Column18: TcxGridDBColumn;
|
||||
Tv1Column19: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
Tv1fbJS: TcxGridDBColumn;
|
||||
Tv1fbqty: TcxGridDBColumn;
|
||||
Tv1ZJJS: TcxGridDBColumn;
|
||||
Tv1ZJqty: TcxGridDBColumn;
|
||||
Tv1Carno: TcxGridDBColumn;
|
||||
Tv1qgMeter: TcxGridDBColumn;
|
||||
Tv1qgMeterGQ: TcxGridDBColumn;
|
||||
Tv1qgMeterAll: 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);
|
||||
private
|
||||
CurrentPage, RecordsNumber: Integer;
|
||||
lstCust: TStringList;
|
||||
procedure InitGrid();
|
||||
procedure SetStatus();
|
||||
{ Private declarations }
|
||||
public
|
||||
canshu1: string;
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_RTFun, U_LabelPrint;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmTatMachCutHZList.SetStatus();
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
inherited;
|
||||
FreeAndNil(lstCust);
|
||||
Action := caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.FormCreate(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
lstCust := TStringList.Create;
|
||||
EndDate.DateTime := SGetServerDateTime(ADOQueryTemp);
|
||||
BegDate.DateTime := EndDate.DateTime - 20;
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.InitGrid();
|
||||
var
|
||||
WSql,wsql1: string;
|
||||
// 子查询筛选时间
|
||||
begin
|
||||
|
||||
WSql := SGetFilters(Panel1, 1, 2);
|
||||
if Trim(WSql) <> '' then
|
||||
WSql := ' and ' + WSql;
|
||||
if IsJYTime.Checked then
|
||||
begin
|
||||
WSql := WSql + ' and A.FillTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
|
||||
WSql := WSql + ' and A.FillTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
|
||||
WSql1 := ' and X.FillTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
|
||||
WSql1 := WSql1 + ' and X.FillTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
|
||||
end;
|
||||
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered := False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
|
||||
// sql.Add('select max(C_NAME) as C_NAME, max(C_width) as C_width,max(C_GramWeight) as C_GramWeight,max(pcid) as pcid,A.Carno ');
|
||||
//
|
||||
// SQL.Add(' ,qgMeter=sum(meter+SHMeter)/ ISNULL(NULLIF(ISNULL((SELECT SUM(C_WidthNum) AS Total_C_WidthNum FROM ( ');
|
||||
// SQL.Add(' SELECT distinct X.BCIOID,C_WidthNum FROM Bs_Cloth_IO X left join Tat_Cloth_Inspect Y on X.BCIOID = Y.BCIOID WHERE Y.Carno = A.Carno and X.C_WidthNum is not null ' + wsql1 + ' ) T), 0), 0), 1)');
|
||||
//
|
||||
//
|
||||
// SQL.Add(' ,qgC_WidthAll= ISNULL(NULLIF(ISNULL((SELECT SUM(C_WidthNum) AS Total_C_WidthNum FROM ( ');
|
||||
// SQL.Add(' SELECT distinct X.BCIOID,C_WidthNum FROM Bs_Cloth_IO X left join Tat_Cloth_Inspect Y on X.BCIOID = Y.BCIOID WHERE Y.Carno = A.Carno and X.C_WidthNum is not null ' + wsql1 + ' ) T), 0), 0), 1)');
|
||||
//
|
||||
// SQL.Add(',SHpf=SUM(CASE WHEN ISNUMERIC(SHMETER) = 1 AND ISNUMERIC(C_WIDTH) = 1 ');
|
||||
// SQL.Add(' THEN CAST(SHMETER AS DECIMAL(18,2))/100 * CAST(C_WIDTH AS DECIMAL(18,2)) ');
|
||||
// SQL.Add(' ELSE 0 END)');
|
||||
// SQL.Add(',SUM(CASE WHEN GRADE=''优等品'' THEN 1 ELSE 0 END )AS YDJS');
|
||||
// SQL.Add(',SUM(CASE WHEN GRADE=''优等品'' THEN meter ELSE 0 END )AS Ydqty');
|
||||
// SQL.Add(',SUM(CASE WHEN GRADE=''二等品'' THEN 1 ELSE 0 END )AS edJS');
|
||||
// SQL.Add(',SUM(CASE WHEN GRADE=''二等品'' THEN meter ELSE 0 END )AS edqty');
|
||||
// SQL.Add(',SUM(CASE WHEN GRADE=''小卷'' THEN 1 ELSE 0 END )AS xjJS');
|
||||
// SQL.Add(',SUM(CASE WHEN GRADE=''小卷'' THEN meter ELSE 0 END )AS xjqty');
|
||||
// SQL.Add(',SUM(CASE WHEN GRADE=''废布'' THEN 1 ELSE 0 END )AS fbJS');
|
||||
// SQL.Add(',SUM(CASE WHEN GRADE=''废布'' THEN meter ELSE 0 END )AS fbqty');
|
||||
// SQL.Add(',SUM(CASE WHEN GRADE=''分切'' THEN 1 ELSE 0 END )AS fqJS');
|
||||
// SQL.Add(',SUM(CASE WHEN GRADE=''分切'' THEN meter ELSE 0 END )AS fqqty');
|
||||
// SQL.Add(',SUM(CASE WHEN GRADE=''循环布'' THEN 1 ELSE 0 END )AS xhJS');
|
||||
// SQL.Add(',SUM(CASE WHEN GRADE=''循环布'' THEN meter ELSE 0 END )AS xhqty');
|
||||
// SQL.Add(',SUM(CASE WHEN GRADE=''测试'' THEN 1 ELSE 0 END )AS csJS');
|
||||
// SQL.Add(',SUM(CASE WHEN GRADE=''测试'' THEN meter ELSE 0 END )AS csqty');
|
||||
//// sql.add(',count(*) as ZJJS,sum(Meter) as ZJqty');
|
||||
//// ZJJS不包括循环布
|
||||
// SQL.Add(', SUM(CASE WHEN GRADE IN (''优等品'',''二等品'',''小卷'',''废布'',''分切'',''测试'') THEN 1 ELSE 0 END) as ZJJS');
|
||||
//// ZJqty不包括循环布
|
||||
// SQL.Add(', SUM(CASE WHEN GRADE IN (''优等品'',''二等品'',''小卷'',''废布'',''分切'',''测试'') THEN Meter ELSE 0 END) as ZJqty');
|
||||
// SQL.Add('from Tat_Cloth_Inspect A ');
|
||||
// SQL.Add('where Carno <>'''' and Carno is not NULL ');
|
||||
// SQL.Add(WSql);
|
||||
// sql.Add(' group by Carno');
|
||||
sql.Add(' ExEC P_Select_TatMachCutHZ ');
|
||||
sql.Add(' @wsql = ' + quotedStr(wsql));
|
||||
sql.Add(' ,@wsql1 = ' + quotedStr(wsql1));
|
||||
|
||||
// showmessage(sql.text);
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADOQueryMain, CDS_1);
|
||||
SInitCDSData(ADOQueryMain, CDS_1);
|
||||
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
TV1.DataController.Filter.Clear;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.IsJYTimeClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
CurrentPage := 1;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.CDS_1BeforeOpen(DataSet: TDataSet);
|
||||
begin
|
||||
|
||||
lstCust.Clear;
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.ConNoMChange(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.Active then
|
||||
begin
|
||||
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.cxPageControl1Change(Sender: TObject);
|
||||
begin
|
||||
CurrentPage := 1;
|
||||
SetStatus();
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.C_NameKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
inherited;
|
||||
if Key = #13 then
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.FormShow(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
||||
// ReadCxGrid(trim(self.Caption) + 'Tv1', Tv1, '机台切割汇总');
|
||||
CurrentPage := 1;
|
||||
RecordsNumber := 500;
|
||||
canshu1 := Trim(Self.fParameters1);
|
||||
BegDate.DateTime := SGetServerDate(ADOQueryCmd);
|
||||
EndDate.DateTime := BegDate.DateTime;
|
||||
|
||||
SetStatus();
|
||||
InitGrid();
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.TBExportClick(Sender: TObject);
|
||||
begin
|
||||
if ADOQueryMain.IsEmpty then
|
||||
exit;
|
||||
TcxGridToExcel(Self.Caption, cxGrid1);
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.orderNoKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
if Key = #13 then
|
||||
begin
|
||||
CurrentPage := 1;
|
||||
InitGrid();
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.PM11Click(Sender: TObject);
|
||||
begin
|
||||
SelOKNo(CDS_1, false);
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.Tv1DataControllerFilterBeforeChange(Sender: TcxDBDataFilterCriteria; ADataSet: TDataSet; const AFilterText: string);
|
||||
begin
|
||||
lstCust.Clear;
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.Tv1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems6GetText(Sender: TcxDataSummaryItem; const AValue: Variant; AIsFooter: Boolean; var AText: string);
|
||||
begin
|
||||
if lstCust <> nil then
|
||||
AText := IntToStr(lstCust.Count);
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.BTNPClick(Sender: TObject);
|
||||
begin
|
||||
if CurrentPage < CDS_1.FieldByName('TotalCount').AsInteger / RecordsNumber then
|
||||
CurrentPage := CurrentPage + 1;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.BTLPClick(Sender: TObject);
|
||||
begin
|
||||
if CurrentPage > 1 then
|
||||
CurrentPage := CurrentPage - 1;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.TCBNORChange(Sender: TObject);
|
||||
begin
|
||||
|
||||
CurrentPage := 1;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.JYTypeChange(Sender: TObject);
|
||||
begin
|
||||
CurrentPage := 1;
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.N1Click(Sender: TObject);
|
||||
begin
|
||||
|
||||
SelOKNo(CDS_1, true);
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachCutHZList.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 TfrmTatMachCutHZList.ToolButton4Click(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid(trim(self.Caption) + 'Tv1', Tv1, '机台切割汇总');
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
@ -2,20 +2,20 @@
|
|||
Left = 234
|
||||
Top = 20
|
||||
Caption = #25104#21697#26816#39564
|
||||
ClientHeight = 772
|
||||
ClientHeight = 784
|
||||
ClientWidth = 1540
|
||||
FormStyle = fsMDIChild
|
||||
Position = poScreenCenter
|
||||
Visible = True
|
||||
ExplicitWidth = 1556
|
||||
ExplicitHeight = 811
|
||||
ExplicitHeight = 823
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object Panel9: TPanel [0]
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 587
|
||||
Height = 772
|
||||
Height = 784
|
||||
Align = alLeft
|
||||
Color = clWhite
|
||||
ParentBackground = False
|
||||
|
|
@ -24,7 +24,7 @@
|
|||
Left = 1
|
||||
Top = 279
|
||||
Width = 585
|
||||
Height = 492
|
||||
Height = 504
|
||||
Align = alClient
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
|
|
@ -281,7 +281,7 @@
|
|||
TabOrder = 0
|
||||
object Label12: TLabel
|
||||
Left = 11
|
||||
Top = 6
|
||||
Top = 8
|
||||
Width = 62
|
||||
Height = 34
|
||||
Caption = #36873#25321
|
||||
|
|
@ -295,7 +295,7 @@
|
|||
end
|
||||
object SEL1: TEdit
|
||||
Left = 79
|
||||
Top = 3
|
||||
Top = 0
|
||||
Width = 70
|
||||
Height = 41
|
||||
Hint = '1'
|
||||
|
|
@ -618,15 +618,15 @@
|
|||
end
|
||||
end
|
||||
object PNL1_2: TPanel
|
||||
Left = 239
|
||||
Top = 276
|
||||
Width = 341
|
||||
Left = 4
|
||||
Top = 309
|
||||
Width = 574
|
||||
Height = 27
|
||||
TabOrder = 3
|
||||
Visible = False
|
||||
object Label37: TLabel
|
||||
Left = 11
|
||||
Top = 6
|
||||
Top = 0
|
||||
Width = 62
|
||||
Height = 34
|
||||
Caption = #32534#21495
|
||||
|
|
@ -1269,8 +1269,8 @@
|
|||
TabOrder = 2
|
||||
Visible = False
|
||||
object Label43: TLabel
|
||||
Left = 3
|
||||
Top = 6
|
||||
Left = 11
|
||||
Top = 12
|
||||
Width = 62
|
||||
Height = 34
|
||||
Caption = #32534#21495
|
||||
|
|
@ -3375,8 +3375,8 @@
|
|||
#20998#20999)
|
||||
end
|
||||
object grade: TcxButtonEdit
|
||||
Left = 252
|
||||
Top = 348
|
||||
Left = 262
|
||||
Top = 338
|
||||
Properties.Buttons = <
|
||||
item
|
||||
Default = True
|
||||
|
|
@ -3752,8 +3752,8 @@
|
|||
OnClick = CIFBegClick
|
||||
end
|
||||
object edtScan: TEdit
|
||||
Left = 85
|
||||
Top = 12
|
||||
Left = 83
|
||||
Top = 9
|
||||
Width = 185
|
||||
Height = 27
|
||||
Font.Charset = GB2312_CHARSET
|
||||
|
|
@ -4023,7 +4023,7 @@
|
|||
OnClick = tubeClick
|
||||
end
|
||||
object Packaging: TEdit
|
||||
Left = 272
|
||||
Left = 267
|
||||
Top = 186
|
||||
Width = 65
|
||||
Height = 27
|
||||
|
|
@ -4037,7 +4037,7 @@
|
|||
OnClick = PackagingClick
|
||||
end
|
||||
object Seal: TEdit
|
||||
Left = 392
|
||||
Left = 387
|
||||
Top = 186
|
||||
Width = 90
|
||||
Height = 27
|
||||
|
|
@ -4098,7 +4098,7 @@
|
|||
Left = 787
|
||||
Top = 0
|
||||
Width = 332
|
||||
Height = 772
|
||||
Height = 784
|
||||
Align = alLeft
|
||||
TabOrder = 0
|
||||
Visible = False
|
||||
|
|
@ -4773,7 +4773,7 @@
|
|||
Left = 1119
|
||||
Top = 0
|
||||
Width = 421
|
||||
Height = 772
|
||||
Height = 784
|
||||
Align = alClient
|
||||
Caption = 'Panel4'
|
||||
TabOrder = 1
|
||||
|
|
@ -4781,7 +4781,7 @@
|
|||
Left = 1
|
||||
Top = 129
|
||||
Width = 419
|
||||
Height = 411
|
||||
Height = 423
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
object Tv3: TcxGridDBTableView
|
||||
|
|
@ -4921,7 +4921,7 @@
|
|||
end
|
||||
object cxPageControl1: TcxPageControl
|
||||
Left = 1
|
||||
Top = 540
|
||||
Top = 552
|
||||
Width = 419
|
||||
Height = 231
|
||||
Align = alBottom
|
||||
|
|
@ -5329,7 +5329,7 @@
|
|||
Left = 587
|
||||
Top = 0
|
||||
Width = 200
|
||||
Height = 772
|
||||
Height = 784
|
||||
Align = alLeft
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
|
|
@ -5337,7 +5337,6 @@
|
|||
ParentBackground = False
|
||||
TabOrder = 3
|
||||
Visible = False
|
||||
ExplicitLeft = 588
|
||||
object Label35: TLabel
|
||||
Left = 27
|
||||
Top = 55
|
||||
|
|
@ -6018,7 +6017,7 @@
|
|||
end
|
||||
object SpeedButton19: TSpeedButton
|
||||
Left = 284
|
||||
Top = -1
|
||||
Top = 0
|
||||
Width = 171
|
||||
Height = 70
|
||||
Caption = #36873#25321#38376#24133
|
||||
|
|
|
|||
|
|
@ -554,6 +554,7 @@ type
|
|||
FLoom, FBatchNO, FLenUnit, FC_Code, FC_Name, FC_Spec, FC_Width, FC_GramWeight: string;
|
||||
FC_Color, FC_ColorNo, FC_StyleNo, FC_Pattern, FC_CustPattern, FC_ColorDepth: string;
|
||||
FFtyPCId, FGangNo, FBCIOID, fmxid: string;
|
||||
FMFFlag: string;
|
||||
FPieceNo, FXJCount: Integer;
|
||||
IsCommopen: boolean;
|
||||
FNAME, FCODE, FMF, FMETER, FKG, fsunhao, FSHREASON, FYMETER, FYWIDTH, fyciid: string;
|
||||
|
|
@ -1152,10 +1153,47 @@ begin
|
|||
end;
|
||||
|
||||
procedure TfrmTatMachInsp.SEL1Click(Sender: TObject);
|
||||
var
|
||||
mMFID: string;
|
||||
mIDNum: Integer;
|
||||
begin
|
||||
initclearsel();
|
||||
|
||||
TcxTextEdit(Sender).Text := '√';
|
||||
|
||||
mIDNum := StrToInt(TEdit(Sender).Hint);
|
||||
// mIDNum := StrToIntDef(TEdit(Sender).Hint, 0);
|
||||
mMFID := TEdit(FindComponent('CODE' + Trim(IntToStr(mIDNum)))).Text;
|
||||
if FMFFlag = '分切' then
|
||||
begin
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('select DISTINCT max(B.tube) as tube,max(B.Packaging) as Packaging,max(B.Seal) as Seal from BS_CLOTH_MF A ');
|
||||
SQL.Add(' FULL JOIN BS_CLOTH_IO_MX B on A.C_CODE = B.C_MXCODE ');
|
||||
SQL.Add(' WHERE A.MFID =' + QuotedStr(Trim(mMFID)));
|
||||
SQL.Add(' Group By A.C_CODE,A.C_MXMF ');
|
||||
|
||||
// SQL.Add(' select * from BS_CLOTH_MF where MFID = ' + QuotedStr(Trim(mMFID)));
|
||||
Open;
|
||||
end;
|
||||
end
|
||||
else if FMFFlag = '不分切' then
|
||||
begin
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
SQL.Add(' select * from BS_CLOTH_IO_MX where MXID = ' + QuotedStr(Trim(mMFID)));
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
tube.Text := ADOQueryMain.FieldByName('tube').AsString; // 纸管
|
||||
Packaging.Text := ADOQueryMain.FieldByName('Packaging').AsString; //包装袋
|
||||
Seal.Text := ADOQueryMain.FieldByName('Seal').AsString; //腰封
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatMachInsp.SetINIFile();
|
||||
|
|
@ -1561,7 +1599,7 @@ begin
|
|||
Application.MessageBox('未入库不能操作!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
////////状态为待出库才能操作
|
||||
try
|
||||
ADOCMD.Connection.BeginTrans;
|
||||
|
||||
|
|
@ -1629,6 +1667,7 @@ begin
|
|||
FOperationStatus := '卷条码';
|
||||
fyciid := Trim(MCIID);
|
||||
FBCIOID := Trim(ADOTmp.fieldbyname('BCIOID').AsString);
|
||||
// FBCIOID := '';
|
||||
FC_Code := Trim(ADOTmp.fieldbyname('C_Code').AsString);
|
||||
FC_Name := Trim(ADOTmp.fieldbyname('C_Name').AsString);
|
||||
FC_Spec := Trim(ADOTmp.fieldbyname('C_Spec').AsString);
|
||||
|
|
@ -1696,6 +1735,7 @@ begin
|
|||
InitJYGrid();
|
||||
InitCDGrid(FCIID);
|
||||
edtScan.Text := '';
|
||||
|
||||
end;
|
||||
|
||||
end;
|
||||
|
|
@ -2848,16 +2888,22 @@ begin
|
|||
|
||||
MCIID := Trim(maxno); //卷条码
|
||||
FCIID := Trim(maxno);
|
||||
if fcode <> '' then
|
||||
// if fcode <> '' then
|
||||
if FMFFlag = '不分切' then
|
||||
begin
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('update Tat_Cloth_Inspect set tube=a.tube,Packaging=a.Packaging,Seal=a.Seal,ISSP=A.ISSP from Bs_Cloth_IO_mx a');
|
||||
// sql.Add('update Tat_Cloth_Inspect set tube=a.tube,Packaging=a.Packaging,Seal=a.Seal,ISSP=A.ISSP from Bs_Cloth_IO_mx a');
|
||||
// sql.Add(' where Tat_Cloth_Inspect.mxid=a.mxid and Tat_Cloth_Inspect.ciid =''' + Trim(maxno) + '''');
|
||||
sql.Add('update Tat_Cloth_Inspect set tube= ' + QuotedStr(tube.Text));
|
||||
sql.Add(',Packaging= ' + QuotedStr(Packaging.Text));
|
||||
sql.Add(',Seal= ' + QuotedStr(Seal.Text));
|
||||
sql.Add(' ,ISSP=A.ISSP from Bs_Cloth_IO_mx a');
|
||||
sql.Add(' where Tat_Cloth_Inspect.mxid=a.mxid and Tat_Cloth_Inspect.ciid =''' + Trim(maxno) + '''');
|
||||
// ShowMessage(sql.Text);
|
||||
execsql;
|
||||
|
||||
end;
|
||||
|
||||
if grade.Text = '循环布' then
|
||||
|
|
@ -3077,6 +3123,7 @@ var
|
|||
fPrintFile: string;
|
||||
mvalue: Double;
|
||||
i, J, FXJINT: Integer;
|
||||
tempValue: Double; ///验证定型米数为数字
|
||||
begin
|
||||
CodeName.SetFocus;
|
||||
|
||||
|
|
@ -3095,6 +3142,11 @@ begin
|
|||
Application.MessageBox('请输入定型米数！', '提示信息', MB_OK);
|
||||
Exit;
|
||||
end;
|
||||
if not TryStrToFloat(DXMETER.Text, tempValue) then
|
||||
begin
|
||||
Application.MessageBox('定型米数必须是数字！', '提示信息', MB_OK);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
J := 0;
|
||||
BTPrint.Enabled := FALSE;
|
||||
|
|
@ -3466,7 +3518,9 @@ end;
|
|||
procedure TfrmTatMachInsp.SpeedButton19Click(Sender: TObject);
|
||||
var
|
||||
FXJINT, I, J: Integer;
|
||||
mIDNum: Integer;
|
||||
FFMF, FFMXID: string;
|
||||
mMFID: string;
|
||||
begin
|
||||
J := 0;
|
||||
|
||||
|
|
@ -3546,13 +3600,13 @@ begin
|
|||
Exit;
|
||||
end;
|
||||
|
||||
if FBCIOID <> '' then
|
||||
begin
|
||||
try
|
||||
frmSCPersonColor := TfrmSCPersonColor.Create(self);
|
||||
with frmSCPersonColor do
|
||||
begin
|
||||
FBCIOID := SELF.FBCIOID;
|
||||
FC_Code := Self.FC_Code;
|
||||
FMFFlag := Self.FMFFlag;
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
FFMF := Trim(FName);
|
||||
|
|
@ -3567,11 +3621,25 @@ begin
|
|||
finally
|
||||
frmSCPersonColor.close;
|
||||
end;
|
||||
end;
|
||||
|
||||
if FFMF = '' then
|
||||
EXIT;
|
||||
TEdit(FindComponent('CODE' + Trim(IntToStr(FXJINT)))).Text := Trim(FFMXID);
|
||||
|
||||
// if FBCIOID = '' then
|
||||
if FMFFlag = '分切' then
|
||||
begin
|
||||
with ADOTmp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('SELECT A.* FROM Bs_Cloth_MF A where A.MFID=''' + Trim(FFMXID) + '''');
|
||||
Open;
|
||||
end;
|
||||
TEdit(FindComponent('MF' + Trim(IntToStr(FXJINT)))).Text := ADOTmp.FieldByName('C_MXMF').AsString;
|
||||
end
|
||||
else
|
||||
begin
|
||||
with ADOTmp do
|
||||
begin
|
||||
Close;
|
||||
|
|
@ -3579,8 +3647,42 @@ begin
|
|||
sql.Add('SELECT A.* FROM Bs_Cloth_IO_MX A where A.MXID=''' + Trim(FFMXID) + '''');
|
||||
Open;
|
||||
end;
|
||||
|
||||
TEdit(FindComponent('MF' + Trim(IntToStr(FXJINT)))).Text := ADOTmp.FieldByName('C_MXWIDTH').AsString;
|
||||
end;
|
||||
|
||||
mIDNum := FXJINT;
|
||||
// mIDNum := StrToIntDef(TEdit(Sender).Hint, 0);
|
||||
mMFID := TEdit(FindComponent('CODE' + Trim(IntToStr(mIDNum)))).Text;
|
||||
if FMFFlag = '分切' then
|
||||
begin
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('select DISTINCT max(B.tube) as tube,max(B.Packaging) as Packaging,max(B.Seal) as Seal from BS_CLOTH_MF A ');
|
||||
SQL.Add(' FULL JOIN BS_CLOTH_IO_MX B on A.C_CODE = B.C_MXCODE ');
|
||||
SQL.Add(' WHERE A.MFID =' + QuotedStr(Trim(mMFID)));
|
||||
SQL.Add(' Group By A.C_CODE,A.C_MXMF ');
|
||||
|
||||
// SQL.Add(' select * from BS_CLOTH_MF where MFID = ' + QuotedStr(Trim(mMFID)));
|
||||
Open;
|
||||
end;
|
||||
end
|
||||
else if FMFFlag = '不分切' then
|
||||
begin
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
SQL.Add(' select * from BS_CLOTH_IO_MX where MXID = ' + QuotedStr(Trim(mMFID)));
|
||||
Open;
|
||||
end;
|
||||
end;
|
||||
|
||||
tube.Text := ADOQueryMain.FieldByName('tube').AsString; // 纸管
|
||||
Packaging.Text := ADOQueryMain.FieldByName('Packaging').AsString; //包装袋
|
||||
Seal.Text := ADOQueryMain.FieldByName('Seal').AsString; //腰封
|
||||
|
||||
|
||||
end;
|
||||
|
||||
|
|
@ -3794,10 +3896,14 @@ begin
|
|||
close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from Tat_Cloth_Inspect where CIID=''' + Trim(edtScan.Text) + ''' ');
|
||||
// ShowMessage(sql.Text);
|
||||
open;
|
||||
end;
|
||||
if ADOTmp.IsEmpty = FALSE then
|
||||
begin
|
||||
batchno.Text := ADOTmp.FieldByName('batchno').AsString;
|
||||
PCID.Text := ADOTmp.FieldByName('PCID').AsString;
|
||||
DXMETER.Text := ADOTmp.FieldByName('DXMETER').AsString;
|
||||
if Application.MessageBox('是否分切出库？', '提示', 32 + 4) <> IDYES then
|
||||
begin
|
||||
edtScan.Text := '';
|
||||
|
|
@ -3805,6 +3911,7 @@ begin
|
|||
end
|
||||
else
|
||||
begin
|
||||
FMFFlag := '分切';//为了选择门幅时做判断，为空选择产品门幅
|
||||
InitJTM(edtScan.Text);
|
||||
end;
|
||||
|
||||
|
|
@ -3812,6 +3919,7 @@ begin
|
|||
else
|
||||
begin
|
||||
ClearGlobal();
|
||||
FMFFlag := '不分切';//为了选择门幅时做判断，为空选择产品门幅
|
||||
FOperationStatus := '布票';
|
||||
InitLCK(edtScan.Text);
|
||||
InitJYGrid();
|
||||
|
|
|
|||
Binary file not shown.
Binary file not shown.
|
|
@ -1,71 +1,71 @@
|
|||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<BorlandProject>
|
||||
<Transactions>
|
||||
<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.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.782,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.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.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.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.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.506,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.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.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.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.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.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.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.999,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothStkList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.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_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.057,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.680,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.752,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitPlanSel.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.094,D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\E03梭织坯布仓库\TatClothStk.dproj</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.390,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.439,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.471,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.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.442,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.189,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutEdit.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.231,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.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.038,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\Unit1.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.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.720,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.132,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.663,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj</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.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.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.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj</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.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.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.267,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.231,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.378,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.pas=</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.dfm</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
|
||||
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
|
||||
</Transactions>
|
||||
<ProjectSortOrder AutoSort="0" SortType="0">
|
||||
<File Path="..\..\D10szXIANGYING"/>
|
||||
|
|
|
|||
|
|
@ -78,7 +78,8 @@ begin
|
|||
dtbase := 'xiangyingszdata';
|
||||
user := 'xiangyingsa';
|
||||
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
|
||||
Parameters1 := '²éѯ';
|
||||
// Parameters1 := '查询';
|
||||
Parameters1 := '管理';
|
||||
Parameters2 := '±¸»õ';
|
||||
end
|
||||
else
|
||||
|
|
|
|||
|
|
@ -181,9 +181,9 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
|||
ParentFont = False
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 2
|
||||
ExplicitTop = 143
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
DataController.DataSource = DS_1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
|
|
@ -251,6 +251,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
|||
object v1Column22: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'SSel'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
Properties.NullStyle = nssUnchecked
|
||||
|
|
@ -258,27 +259,79 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
|||
Options.Sorting = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1IOTime: TcxGridDBColumn
|
||||
Caption = #20986#24211#26102#38388
|
||||
DataBinding.FieldName = 'IOTime'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 100
|
||||
end
|
||||
object Tv1DRMID: TcxGridDBColumn
|
||||
Caption = #21457#36135#30003#35831
|
||||
DataBinding.FieldName = 'IONo'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 92
|
||||
end
|
||||
object Tv1ToCoName: TcxGridDBColumn
|
||||
Caption = #23458#25143
|
||||
DataBinding.FieldName = 'ToCoName'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column3: TcxGridDBColumn
|
||||
Caption = #21697#21517
|
||||
DataBinding.FieldName = 'C_Name'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1C_Width: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_Width'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 90
|
||||
end
|
||||
object Tv1C_GramWeight: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'C_GramWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 90
|
||||
end
|
||||
object v1Column23: TcxGridDBColumn
|
||||
Caption = #21367#25968
|
||||
DataBinding.FieldName = 'js'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object v1Column10: TcxGridDBColumn
|
||||
Caption = #31859#25968
|
||||
DataBinding.FieldName = 'stkMeter'
|
||||
DataBinding.FieldName = 'Meter'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1NetWeight: TcxGridDBColumn
|
||||
Caption = #20844#26020
|
||||
DataBinding.FieldName = 'NetWeight'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1PF: TcxGridDBColumn
|
||||
Caption = #24179#26041
|
||||
DataBinding.FieldName = 'PF'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
|
|
@ -301,8 +354,8 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
|
|||
Properties.Style = 9
|
||||
Properties.TabIndex = 0
|
||||
Properties.Tabs.Strings = (
|
||||
#26377#26465#30721#20986#24211#27719#24635
|
||||
#26080#26465#30721#20986#24211#27719#24635)
|
||||
#26377#20986#24211#21333#20986#24211
|
||||
#26080#20986#24211#21333#20986#24211)
|
||||
OnChange = cxTabControl1Change
|
||||
ClientRectBottom = 32
|
||||
ClientRectRight = 1540
|
||||
|
|
|
|||
|
|
@ -13,7 +13,7 @@ uses
|
|||
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
|
||||
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
|
||||
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC,
|
||||
System.StrUtils;
|
||||
System.StrUtils, dxScrollbarAnnotations;
|
||||
|
||||
type
|
||||
TfrmTatClothCKHZList = class(TfrmBaseList)
|
||||
|
|
@ -48,6 +48,13 @@ type
|
|||
PM11: TMenuItem;
|
||||
N1: TMenuItem;
|
||||
cxTabControl1: TcxTabControl;
|
||||
Tv1DRMID: TcxGridDBColumn;
|
||||
Tv1ToCoName: TcxGridDBColumn;
|
||||
Tv1C_Width: TcxGridDBColumn;
|
||||
Tv1C_GramWeight: TcxGridDBColumn;
|
||||
Tv1NetWeight: TcxGridDBColumn;
|
||||
Tv1PF: TcxGridDBColumn;
|
||||
Tv1IOTime: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -120,8 +127,8 @@ begin
|
|||
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));
|
||||
WSql := WSql + ' and A.IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
|
||||
WSql := WSql + ' and A.IOTime<' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1));
|
||||
end;
|
||||
|
||||
try
|
||||
|
|
@ -133,16 +140,20 @@ begin
|
|||
Close;
|
||||
sql.Clear;
|
||||
|
||||
sql.Add('select C_NAME,COUNT(*)JS,SUM(Meter)stkMeter,SUM(Yardage)StkYardage FROM V_Tat_Cloth_IO A where A.IOFlag = ''³ö¿â'' ' + WSql);
|
||||
if cxTabControl1.TabIndex = 0 then
|
||||
begin
|
||||
SQL.Add('AND CHARINDEX(''T'',STKID )>0');
|
||||
end
|
||||
else
|
||||
begin
|
||||
SQL.Add('AND CHARINDEX(''S'',STKID )>0');
|
||||
end;
|
||||
sql.Add('group by C_NAME');
|
||||
sql.Add('SELECT A.C_CODE,A.C_Name,A.C_Width,A.C_GramWeight,A.IONo ');
|
||||
sql.Add(',ToCoName=max(B.ToCoName),ioTime=min(ioTime) ');
|
||||
sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) ');
|
||||
sql.Add(',pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) ');
|
||||
sql.Add(' FROM V_Tat_Cloth_IO A ');
|
||||
sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID ');
|
||||
sql.Add(' where A.IOFlag = ''³ö¿â'' and A.IONo<>'''' and A.IONo is not null ');
|
||||
sql.Add(WSql);
|
||||
SQL.Add(' group by A.C_CODE ,A.C_Width,A.C_GramWeight,A.IONo,A.C_Name');
|
||||
SQL.Add(' order by A.IONo');
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
// showmessage(sql.text);
|
||||
Open;
|
||||
|
|
@ -219,7 +230,8 @@ begin
|
|||
CurrentPage := 1;
|
||||
RecordsNumber := 500;
|
||||
canshu1 := Trim(Self.fParameters1);
|
||||
|
||||
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
|
||||
BegDate.DateTime := EndDate.DateTime;
|
||||
SetStatus();
|
||||
InitGrid();
|
||||
end;
|
||||
|
|
|
|||
|
|
@ -7,7 +7,6 @@ inherited frmTatClothInList: TfrmTatClothInList
|
|||
FormStyle = fsMDIChild
|
||||
Position = poScreenCenter
|
||||
Visible = True
|
||||
ExplicitLeft = -359
|
||||
ExplicitWidth = 1556
|
||||
ExplicitHeight = 650
|
||||
PixelsPerInch = 96
|
||||
|
|
@ -236,6 +235,34 @@ inherited frmTatClothInList: TfrmTatClothInList
|
|||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 847
|
||||
Top = 36
|
||||
Width = 26
|
||||
Height = 12
|
||||
Hint = '0'
|
||||
Caption = #37096#38376
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label8: TLabel
|
||||
Left = 1012
|
||||
Top = 9
|
||||
Width = 52
|
||||
Height = 12
|
||||
Hint = '0'
|
||||
Caption = #20837#24211#31867#22411
|
||||
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
|
||||
|
|
@ -382,6 +409,30 @@ inherited frmTatClothInList: TfrmTatClothInList
|
|||
TabOrder = 13
|
||||
OnKeyPress = carnoKeyPress
|
||||
end
|
||||
object dept: TEdit
|
||||
Tag = 2
|
||||
Left = 892
|
||||
Top = 32
|
||||
Width = 100
|
||||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 14
|
||||
OnKeyPress = carnoKeyPress
|
||||
end
|
||||
object IOType: TComboBox
|
||||
Tag = 1
|
||||
Left = 1070
|
||||
Top = 6
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 15
|
||||
OnChange = IOTypeChange
|
||||
Items.Strings = (
|
||||
''
|
||||
#26816#39564#20837#24211
|
||||
#38144#21806#20986#24211
|
||||
#26399#21021#20837#24211)
|
||||
end
|
||||
end
|
||||
object Panel6: TPanel [2]
|
||||
Left = 0
|
||||
|
|
|
|||
|
|
@ -105,6 +105,10 @@ type
|
|||
Tv1Column13: TcxGridDBColumn;
|
||||
Tv1Column14: TcxGridDBColumn;
|
||||
Tv1Column16: TcxGridDBColumn;
|
||||
Label4: TLabel;
|
||||
dept: TEdit;
|
||||
IOType: TComboBox;
|
||||
Label8: TLabel;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -130,6 +134,7 @@ type
|
|||
procedure N1Click(Sender: TObject);
|
||||
procedure N2Click(Sender: TObject);
|
||||
procedure carnoKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure IOTypeChange(Sender: TObject);
|
||||
private
|
||||
CurrentPage, RecordsNumber: Integer;
|
||||
lstCust: TStringList;
|
||||
|
|
@ -197,7 +202,7 @@ begin
|
|||
sql.Add(' from ');
|
||||
sql.Add('(select rownumber=cast((row_number() over(order by A.IOTime desc)) as int)');
|
||||
sql.Add(',COUNT(1) OVER() AS TotalCount');
|
||||
sql.Add(',* from V_Tat_Cloth_IO A where A.IOFlag = ''Èë¿â'' ' + WSql);
|
||||
sql.Add(',* from V_Tat_Cloth_IO A where (A.IOFlag = ''Èë¿â'' ) ' + WSql);
|
||||
sql.Add(') temp_row');
|
||||
sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber)));
|
||||
sql.Add(' order by rownumber');
|
||||
|
|
@ -214,6 +219,11 @@ begin
|
|||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInList.IOTypeChange(Sender: TObject);
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInList.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
CurrentPage := 1;
|
||||
|
|
@ -258,6 +268,7 @@ begin
|
|||
RecordsNumber := 500;
|
||||
|
||||
SetStatus();
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothInList.TBExportClick(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -235,6 +235,20 @@ inherited frmTatClothOutList: TfrmTatClothOutList
|
|||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 831
|
||||
Top = 36
|
||||
Width = 26
|
||||
Height = 12
|
||||
Hint = '0'
|
||||
Caption = #37096#38376
|
||||
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
|
||||
|
|
@ -309,6 +323,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
|
|||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 6
|
||||
OnKeyPress = orderNoKeyPress
|
||||
end
|
||||
object STKID: TEdit
|
||||
Tag = 2
|
||||
|
|
@ -318,6 +333,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
|
|||
Height = 20
|
||||
Hint = '1'
|
||||
TabOrder = 7
|
||||
OnKeyPress = orderNoKeyPress
|
||||
end
|
||||
object C_Name: TEdit
|
||||
Tag = 2
|
||||
|
|
@ -327,6 +343,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
|
|||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 8
|
||||
OnKeyPress = orderNoKeyPress
|
||||
end
|
||||
object C_Color: TEdit
|
||||
Tag = 2
|
||||
|
|
@ -336,6 +353,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
|
|||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 9
|
||||
OnKeyPress = orderNoKeyPress
|
||||
end
|
||||
object C_Pattern: TEdit
|
||||
Tag = 2
|
||||
|
|
@ -345,6 +363,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
|
|||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 10
|
||||
OnKeyPress = orderNoKeyPress
|
||||
end
|
||||
object C_Code: TEdit
|
||||
Tag = 2
|
||||
|
|
@ -354,6 +373,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
|
|||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 11
|
||||
OnKeyPress = orderNoKeyPress
|
||||
end
|
||||
object jyg: TEdit
|
||||
Tag = 2
|
||||
|
|
@ -363,6 +383,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
|
|||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 12
|
||||
OnKeyPress = orderNoKeyPress
|
||||
end
|
||||
object carno: TEdit
|
||||
Tag = 1
|
||||
|
|
@ -372,9 +393,21 @@ inherited frmTatClothOutList: TfrmTatClothOutList
|
|||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 13
|
||||
OnKeyPress = orderNoKeyPress
|
||||
end
|
||||
object dept: TEdit
|
||||
Tag = 2
|
||||
Left = 871
|
||||
Top = 32
|
||||
Width = 100
|
||||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 14
|
||||
OnKeyPress = orderNoKeyPress
|
||||
end
|
||||
end
|
||||
object Panel6: TPanel [2]
|
||||
Tag = 2
|
||||
Left = 0
|
||||
Top = 105
|
||||
Width = 1540
|
||||
|
|
|
|||
|
|
@ -102,6 +102,8 @@ type
|
|||
Label4: TLabel;
|
||||
carno: TEdit;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
Label6: TLabel;
|
||||
dept: TEdit;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -193,7 +195,8 @@ begin
|
|||
sql.Add(' from ');
|
||||
sql.Add('(select rownumber=cast((row_number() over(order by A.IOTime desc)) as int)');
|
||||
sql.Add(',COUNT(1) OVER() AS TotalCount');
|
||||
sql.Add(',* from V_Tat_Cloth_IO A where A.IOFlag = ''出库'' ' + WSql);
|
||||
sql.Add(',ToCoName = ( select ToCoName from Tat_Cloth_DR_Main X where X.DRMID = A.IONo )');
|
||||
sql.Add(',A.* from V_Tat_Cloth_IO A where A.IOFlag = ''³ö¿â'' ' + WSql);
|
||||
sql.Add(') temp_row');
|
||||
sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber)));
|
||||
sql.Add(' order by rownumber');
|
||||
|
|
@ -255,6 +258,8 @@ begin
|
|||
FWorkshop := self.fParameters3;
|
||||
|
||||
SetStatus();
|
||||
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothOutList.TBExportClick(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -77,7 +77,6 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
|
|||
Color = clWhite
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
ExplicitTop = 44
|
||||
object Label2: TLabel
|
||||
Left = 70
|
||||
Top = 36
|
||||
|
|
@ -99,6 +98,62 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
|
|||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 358
|
||||
Top = 10
|
||||
Width = 26
|
||||
Height = 12
|
||||
Hint = '0'
|
||||
Caption = #38376#24133
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 190
|
||||
Top = 36
|
||||
Width = 26
|
||||
Height = 12
|
||||
Hint = '0'
|
||||
Caption = #20811#37325
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 534
|
||||
Top = 10
|
||||
Width = 52
|
||||
Height = 12
|
||||
Hint = '0'
|
||||
Caption = #20837#24211#31867#22411
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label6: TLabel
|
||||
Left = 358
|
||||
Top = 36
|
||||
Width = 52
|
||||
Height = 12
|
||||
Hint = '0'
|
||||
Caption = #27969#36716#21345#21495
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 88
|
||||
Top = 6
|
||||
|
|
@ -145,12 +200,14 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
|
|||
Width = 73
|
||||
Height = 17
|
||||
Caption = #26597#35810#26085#26399
|
||||
Checked = True
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
State = cbChecked
|
||||
TabOrder = 0
|
||||
OnClick = IsJYTimeClick
|
||||
end
|
||||
|
|
@ -164,6 +221,50 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
|
|||
TabOrder = 5
|
||||
OnKeyPress = C_NameKeyPress
|
||||
end
|
||||
object C_Width: TEdit
|
||||
Tag = 2
|
||||
Left = 415
|
||||
Top = 6
|
||||
Width = 100
|
||||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 6
|
||||
OnKeyPress = C_NameKeyPress
|
||||
end
|
||||
object C_GramWeight: TEdit
|
||||
Tag = 2
|
||||
Left = 237
|
||||
Top = 32
|
||||
Width = 100
|
||||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 7
|
||||
OnKeyPress = C_NameKeyPress
|
||||
end
|
||||
object IOType: TComboBox
|
||||
Tag = 2
|
||||
Left = 591
|
||||
Top = 6
|
||||
Width = 100
|
||||
Height = 20
|
||||
TabOrder = 8
|
||||
OnChange = IOTypeChange
|
||||
Items.Strings = (
|
||||
#26816#39564#20837#24211
|
||||
#26399#21021#20837#24211
|
||||
#27979#35797#20837#24211
|
||||
#36864#36135#20837#24211)
|
||||
end
|
||||
object PCID: TEdit
|
||||
Tag = 2
|
||||
Left = 415
|
||||
Top = 32
|
||||
Width = 100
|
||||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 9
|
||||
OnKeyPress = C_NameKeyPress
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid [2]
|
||||
Left = 0
|
||||
|
|
@ -180,7 +281,6 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
|
|||
ParentFont = False
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 2
|
||||
ExplicitTop = 111
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -235,6 +335,50 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
|
|||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column6
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column1
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column7
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column8
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column9
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column10
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column13
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column14
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column17
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column18
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column19
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
|
|
@ -265,6 +409,13 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
|
|||
Options.Editing = False
|
||||
Width = 66
|
||||
end
|
||||
object Tv1IOType: TcxGridDBColumn
|
||||
Caption = #20837#24211#31867#22411
|
||||
DataBinding.FieldName = 'IOType'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'C_width'
|
||||
|
|
@ -328,20 +479,6 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column11: TcxGridDBColumn
|
||||
Caption = #24223#24067#21367#25968
|
||||
DataBinding.FieldName = 'fbJS'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column12: TcxGridDBColumn
|
||||
Caption = #24223#24067#25968#37327
|
||||
DataBinding.FieldName = 'fbqty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column13: TcxGridDBColumn
|
||||
Caption = #20998#20999#21367#25968
|
||||
DataBinding.FieldName = 'fqJS'
|
||||
|
|
@ -356,20 +493,6 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column15: TcxGridDBColumn
|
||||
Caption = #24490#29615#24067#21367#25968
|
||||
DataBinding.FieldName = 'xhJS'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 76
|
||||
end
|
||||
object Tv1Column16: TcxGridDBColumn
|
||||
Caption = #24490#29615#24067#25968#37327
|
||||
DataBinding.FieldName = 'xhqty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 79
|
||||
end
|
||||
object Tv1Column17: TcxGridDBColumn
|
||||
Caption = #27979#35797#21367#25968
|
||||
DataBinding.FieldName = 'csJS'
|
||||
|
|
|
|||
|
|
@ -54,15 +54,20 @@ type
|
|||
Tv1Column8: TcxGridDBColumn;
|
||||
Tv1Column9: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
Tv1Column11: TcxGridDBColumn;
|
||||
Tv1Column12: TcxGridDBColumn;
|
||||
Tv1Column13: TcxGridDBColumn;
|
||||
Tv1Column14: TcxGridDBColumn;
|
||||
Tv1Column15: TcxGridDBColumn;
|
||||
Tv1Column16: TcxGridDBColumn;
|
||||
Tv1Column17: TcxGridDBColumn;
|
||||
Tv1Column18: TcxGridDBColumn;
|
||||
Tv1Column19: TcxGridDBColumn;
|
||||
Label1: TLabel;
|
||||
C_Width: TEdit;
|
||||
Label3: TLabel;
|
||||
C_GramWeight: TEdit;
|
||||
Tv1IOType: TcxGridDBColumn;
|
||||
IOType: TComboBox;
|
||||
Label4: TLabel;
|
||||
Label6: TLabel;
|
||||
PCID: TEdit;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -86,6 +91,7 @@ type
|
|||
procedure N1Click(Sender: TObject);
|
||||
procedure IsJYTimeClick(Sender: TObject);
|
||||
procedure C_NameKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure IOTypeChange(Sender: TObject);
|
||||
private
|
||||
CurrentPage, RecordsNumber: Integer;
|
||||
lstCust: TStringList;
|
||||
|
|
@ -147,7 +153,7 @@ begin
|
|||
Close;
|
||||
sql.Clear;
|
||||
|
||||
sql.Add('select C_NAME, C_width,C_GramWeight,pcid ');
|
||||
sql.Add('select C_NAME, C_width,C_GramWeight,pcid,max(IOType) as IOType ');
|
||||
SQL.Add(',pf=SUM(meter/100*CAST(C_WIDTH AS DECIMAL(18,2)))');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''ÓŵÈÆ·'' THEN 1 ELSE 0 END )AS YDJS');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''ÓŵÈÆ·'' THEN meter ELSE 0 END )AS Ydqty');
|
||||
|
|
@ -164,7 +170,7 @@ begin
|
|||
SQL.Add(',SUM(CASE WHEN GRADE=''²âÊÔ'' THEN 1 ELSE 0 END )AS csJS');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''²âÊÔ'' THEN meter ELSE 0 END )AS csqty');
|
||||
|
||||
SQL.Add('from V_Tat_Cloth_IO A where A.IOFlag = ''Èë¿â'' ' + WSql);
|
||||
SQL.Add('from V_Tat_Cloth_IO A where (A.IOFlag = ''Èë¿â'' ) ' + WSql);
|
||||
|
||||
sql.Add('group by C_NAME, C_width,C_GramWeight,pcid');
|
||||
|
||||
|
|
@ -181,6 +187,12 @@ begin
|
|||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothRKHZList.IOTypeChange(Sender: TObject);
|
||||
begin
|
||||
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothRKHZList.IsJYTimeClick(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
|
|
@ -238,8 +250,12 @@ begin
|
|||
RecordsNumber := 500;
|
||||
canshu1 := Trim(Self.fParameters1);
|
||||
|
||||
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
|
||||
BegDate.DateTime := EndDate.DateTime;
|
||||
SetStatus();
|
||||
|
||||
InitGrid();
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothRKHZList.TBExportClick(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -7,7 +7,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
|
|||
FormStyle = fsMDIChild
|
||||
Position = poScreenCenter
|
||||
Visible = True
|
||||
ExplicitLeft = -359
|
||||
ExplicitWidth = 1556
|
||||
ExplicitHeight = 639
|
||||
PixelsPerInch = 96
|
||||
|
|
@ -99,6 +98,34 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
|
|||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object label11: TLabel
|
||||
Left = 358
|
||||
Top = 10
|
||||
Width = 26
|
||||
Height = 12
|
||||
Hint = '0'
|
||||
Caption = #20811#37325
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object label12: TLabel
|
||||
Left = 190
|
||||
Top = 35
|
||||
Width = 26
|
||||
Height = 12
|
||||
Hint = '0'
|
||||
Caption = #38376#24133
|
||||
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
|
||||
|
|
@ -164,6 +191,26 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
|
|||
TabOrder = 5
|
||||
OnKeyPress = C_NameKeyPress
|
||||
end
|
||||
object C_GramWeight: TEdit
|
||||
Tag = 2
|
||||
Left = 390
|
||||
Top = 6
|
||||
Width = 100
|
||||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 6
|
||||
OnKeyPress = C_NameKeyPress
|
||||
end
|
||||
object C_width: TEdit
|
||||
Tag = 2
|
||||
Left = 237
|
||||
Top = 32
|
||||
Width = 100
|
||||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 7
|
||||
OnKeyPress = C_NameKeyPress
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid [2]
|
||||
Left = 0
|
||||
|
|
@ -180,6 +227,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
|
|||
ParentFont = False
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 2
|
||||
ExplicitTop = 111
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -261,11 +309,9 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
|
|||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column11
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column12
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
|
|
@ -277,11 +323,9 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
|
|||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column15
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
Column = Tv1Column16
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
|
|
@ -338,13 +382,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 66
|
||||
end
|
||||
object Tv1Column5: TcxGridDBColumn
|
||||
Caption = #27969#36716#21345#21495
|
||||
DataBinding.FieldName = 'pcid'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 68
|
||||
end
|
||||
object Tv1Column6: TcxGridDBColumn
|
||||
Caption = #20248#31561#21367#25968
|
||||
DataBinding.FieldName = 'YDJs'
|
||||
|
|
@ -387,20 +424,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column11: TcxGridDBColumn
|
||||
Caption = #24223#24067#21367#25968
|
||||
DataBinding.FieldName = 'fbJS'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column12: TcxGridDBColumn
|
||||
Caption = #24223#24067#25968#37327
|
||||
DataBinding.FieldName = 'fbqty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column13: TcxGridDBColumn
|
||||
Caption = #20998#20999#21367#25968
|
||||
DataBinding.FieldName = 'fqJS'
|
||||
|
|
@ -415,20 +438,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
object Tv1Column15: TcxGridDBColumn
|
||||
Caption = #24490#29615#24067#21367#25968
|
||||
DataBinding.FieldName = 'xhJS'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 76
|
||||
end
|
||||
object Tv1Column16: TcxGridDBColumn
|
||||
Caption = #24490#29615#24067#25968#37327
|
||||
DataBinding.FieldName = 'xhqty'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 79
|
||||
end
|
||||
object Tv1Column17: TcxGridDBColumn
|
||||
Caption = #27979#35797#21367#25968
|
||||
DataBinding.FieldName = 'csJS'
|
||||
|
|
@ -493,6 +502,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
|
|||
Top = 284
|
||||
end
|
||||
object GPM_1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 728
|
||||
Top = 288
|
||||
|
|
|
|||
|
|
@ -46,23 +46,22 @@ type
|
|||
Tv1Column3: TcxGridDBColumn;
|
||||
Tv1Column2: TcxGridDBColumn;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
Tv1Column5: TcxGridDBColumn;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
Tv1Column9: TcxGridDBColumn;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
Tv1Column11: TcxGridDBColumn;
|
||||
Tv1Column12: TcxGridDBColumn;
|
||||
Tv1Column13: TcxGridDBColumn;
|
||||
Tv1Column14: TcxGridDBColumn;
|
||||
Tv1Column15: TcxGridDBColumn;
|
||||
Tv1Column16: TcxGridDBColumn;
|
||||
Tv1Column17: TcxGridDBColumn;
|
||||
Tv1Column18: TcxGridDBColumn;
|
||||
Tv1Column19: TcxGridDBColumn;
|
||||
cxGrid1Level1: TcxGridLevel;
|
||||
C_GramWeight: TEdit;
|
||||
label12: TLabel;
|
||||
C_width: TEdit;
|
||||
label11: TLabel;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -147,7 +146,7 @@ begin
|
|||
Close;
|
||||
sql.Clear;
|
||||
|
||||
sql.Add('select C_NAME, C_width,C_GramWeight,pcid ');
|
||||
sql.Add('select C_NAME, C_width,C_GramWeight ');
|
||||
SQL.Add(',pf=SUM(meter/100*CAST(C_WIDTH AS DECIMAL(18,2)))');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''ÓŵÈÆ·'' THEN 1 ELSE 0 END )AS YDJS');
|
||||
SQL.Add(',SUM(CASE WHEN GRADE=''ÓŵÈÆ·'' THEN meter ELSE 0 END )AS Ydqty');
|
||||
|
|
@ -166,7 +165,7 @@ begin
|
|||
|
||||
SQL.Add('from V_Tat_Cloth_stk A where 1=1 ' + WSql);
|
||||
|
||||
sql.Add(' group by C_NAME, C_width,C_GramWeight,pcid');
|
||||
sql.Add(' group by C_NAME, C_width,C_GramWeight');
|
||||
|
||||
// showmessage(sql.text);
|
||||
Open;
|
||||
|
|
@ -239,7 +238,7 @@ begin
|
|||
canshu1 := Trim(Self.fParameters1);
|
||||
|
||||
SetStatus();
|
||||
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothStkHZList.TBExportClick(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -204,6 +204,20 @@ inherited frmTatClothStkList: TfrmTatClothStkList
|
|||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 829
|
||||
Top = 10
|
||||
Width = 26
|
||||
Height = 12
|
||||
Hint = '0'
|
||||
Caption = #37096#38376
|
||||
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
|
||||
|
|
@ -276,6 +290,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
|
|||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 6
|
||||
OnKeyPress = orderNoKeyPress
|
||||
end
|
||||
object STKID: TEdit
|
||||
Tag = 2
|
||||
|
|
@ -285,6 +300,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
|
|||
Height = 20
|
||||
Hint = '1'
|
||||
TabOrder = 7
|
||||
OnKeyPress = orderNoKeyPress
|
||||
end
|
||||
object C_Name: TEdit
|
||||
Tag = 2
|
||||
|
|
@ -294,6 +310,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
|
|||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 8
|
||||
OnKeyPress = orderNoKeyPress
|
||||
end
|
||||
object C_Color: TEdit
|
||||
Tag = 2
|
||||
|
|
@ -303,6 +320,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
|
|||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 9
|
||||
OnKeyPress = orderNoKeyPress
|
||||
end
|
||||
object jyg: TEdit
|
||||
Tag = 2
|
||||
|
|
@ -312,6 +330,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
|
|||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 10
|
||||
OnKeyPress = orderNoKeyPress
|
||||
end
|
||||
object C_Pattern: TEdit
|
||||
Tag = 2
|
||||
|
|
@ -321,6 +340,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
|
|||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 11
|
||||
OnKeyPress = orderNoKeyPress
|
||||
end
|
||||
object C_Code: TEdit
|
||||
Tag = 2
|
||||
|
|
@ -330,6 +350,17 @@ inherited frmTatClothStkList: TfrmTatClothStkList
|
|||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 12
|
||||
OnKeyPress = orderNoKeyPress
|
||||
end
|
||||
object dept: TEdit
|
||||
Tag = 2
|
||||
Left = 857
|
||||
Top = 6
|
||||
Width = 100
|
||||
Height = 20
|
||||
Hint = '0'
|
||||
TabOrder = 13
|
||||
OnKeyPress = orderNoKeyPress
|
||||
end
|
||||
end
|
||||
object Panel6: TPanel [2]
|
||||
|
|
@ -341,7 +372,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList
|
|||
AutoSize = True
|
||||
BorderStyle = bsSingle
|
||||
TabOrder = 2
|
||||
ExplicitTop = 111
|
||||
DesignSize = (
|
||||
1536
|
||||
23)
|
||||
|
|
@ -450,7 +480,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList
|
|||
ParentFont = False
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 3
|
||||
ExplicitTop = 133
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
|
|||
|
|
@ -93,6 +93,8 @@ type
|
|||
Tv1Column7: TcxGridDBColumn;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
Tv1FlawList: TcxGridDBColumn;
|
||||
Label1: TLabel;
|
||||
dept: TEdit;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
@ -245,6 +247,8 @@ begin
|
|||
SetStatus();
|
||||
v1Column4.Visible := false;
|
||||
v1Column4.Hidden := true;
|
||||
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatClothStkList.TBExportClick(Sender: TObject);
|
||||
|
|
|
|||
|
|
@ -199,17 +199,19 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
end
|
||||
object cxGrid1: TcxGrid [1]
|
||||
Left = 0
|
||||
Top = 140
|
||||
Top = 142
|
||||
Width = 1453
|
||||
Height = 224
|
||||
Height = 222
|
||||
Align = alClient
|
||||
PopupMenu = PM_1
|
||||
TabOrder = 3
|
||||
ExplicitTop = 142
|
||||
ExplicitTop = 144
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
OnFocusedRecordChanged = Tv1FocusedRecordChanged
|
||||
DataController.DataSource = DataSource1
|
||||
DataController.Filter.AutoDataSetFilter = True
|
||||
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
||||
DataController.Summary.DefaultGroupSummaryItems = <
|
||||
item
|
||||
|
|
@ -271,6 +273,7 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
Properties.ImmediatePost = True
|
||||
Properties.MultiLine = True
|
||||
Properties.NullStyle = nssUnchecked
|
||||
Properties.OnChange = v1Column4PropertiesChange
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 49
|
||||
end
|
||||
|
|
@ -309,6 +312,13 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
Options.Editing = False
|
||||
Width = 124
|
||||
end
|
||||
object Tv1Telephone: TcxGridDBColumn
|
||||
Caption = #32852#31995#30005#35805
|
||||
DataBinding.FieldName = 'Telephone'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 91
|
||||
end
|
||||
object v1Column1: TcxGridDBColumn
|
||||
Caption = #30003#35831#20154
|
||||
DataBinding.FieldName = 'Filler'
|
||||
|
|
@ -350,6 +360,13 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 154
|
||||
end
|
||||
object Tv1CoAddress: TcxGridDBColumn
|
||||
Caption = #25910#36135#22320#22336
|
||||
DataBinding.FieldName = 'CoAddress'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 384
|
||||
end
|
||||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #23436#25104#22791#27880
|
||||
DataBinding.FieldName = 'wcnote'
|
||||
|
|
@ -385,6 +402,13 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 70
|
||||
end
|
||||
object Tv1Column7: TcxGridDBColumn
|
||||
DataBinding.FieldName = 'sselJS'
|
||||
DataBinding.IsNullValueType = True
|
||||
Visible = False
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
end
|
||||
object cxGrid1Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
|
|
@ -394,7 +418,7 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
Left = 0
|
||||
Top = 76
|
||||
Width = 1453
|
||||
Height = 43
|
||||
Height = 45
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
|
|
@ -486,6 +510,31 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object Label5: TLabel
|
||||
Left = 870
|
||||
Top = 15
|
||||
Width = 54
|
||||
Height = 12
|
||||
Caption = #36873#25321#21367#25968':'
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object SSelJS: TLabel
|
||||
Left = 927
|
||||
Top = 6
|
||||
Width = 12
|
||||
Height = 24
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clRed
|
||||
Font.Height = -24
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object BegDate: TDateTimePicker
|
||||
Left = 76
|
||||
Top = 11
|
||||
|
|
@ -573,7 +622,7 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
end
|
||||
object cxTabControl1: TcxTabControl [3]
|
||||
Left = 0
|
||||
Top = 119
|
||||
Top = 121
|
||||
Width = 1453
|
||||
Height = 21
|
||||
Align = alTop
|
||||
|
|
@ -688,7 +737,7 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
Width = 81
|
||||
end
|
||||
object cv1Column3: TcxGridDBColumn
|
||||
Caption = #30003#35831#31859#25968
|
||||
Caption = #27599#21367#31859#25968
|
||||
DataBinding.FieldName = 'Qty'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
|
|
@ -771,8 +820,8 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
object cxGridPopupMenu1: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 1000
|
||||
Top = 184
|
||||
Left = 592
|
||||
Top = 208
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = DataLink_TatClothStk.ADOLink
|
||||
|
|
@ -838,4 +887,22 @@ inherited frmTatDRList: TfrmTatDRList
|
|||
Left = 687
|
||||
Top = 238
|
||||
end
|
||||
object PM_1: TPopupMenu
|
||||
Left = 392
|
||||
Top = 232
|
||||
object N1: TMenuItem
|
||||
Caption = #20840#36873
|
||||
OnClick = N1Click
|
||||
end
|
||||
object PM11: TMenuItem
|
||||
Caption = #20840#24323
|
||||
OnClick = PM11Click
|
||||
end
|
||||
end
|
||||
object cxGridPopupMenu2: TcxGridPopupMenu
|
||||
Grid = cxGrid2
|
||||
PopupMenus = <>
|
||||
Left = 513
|
||||
Top = 208
|
||||
end
|
||||
end
|
||||
|
|
|
|||
|
|
@ -102,6 +102,15 @@ type
|
|||
TV2Volume: TcxGridDBColumn;
|
||||
TV2Applicant: TcxGridDBColumn;
|
||||
TV2ApplicationReaon: TcxGridDBColumn;
|
||||
Tv1CoAddress: TcxGridDBColumn;
|
||||
Label5: TLabel;
|
||||
SSelJS: TLabel;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
PM_1: TPopupMenu;
|
||||
N1: TMenuItem;
|
||||
PM11: TMenuItem;
|
||||
Tv1Telephone: TcxGridDBColumn;
|
||||
cxGridPopupMenu2: TcxGridPopupMenu;
|
||||
//RMllPDFExport1: TRMllPDFExport;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
|
|
@ -133,6 +142,9 @@ type
|
|||
procedure ToolButton5Click(Sender: TObject);
|
||||
procedure ToolButton7Click(Sender: TObject);
|
||||
procedure TbGoodsEditClick(Sender: TObject);
|
||||
procedure v1Column4PropertiesChange(Sender: TObject);
|
||||
procedure N1Click(Sender: TObject);
|
||||
procedure PM11Click(Sender: TObject);
|
||||
private
|
||||
procedure InitGrid();
|
||||
procedure InitSubGrid();
|
||||
|
|
@ -166,6 +178,8 @@ begin
|
|||
ToolButton3.Enabled := False;
|
||||
ToolButton5.Enabled := False;
|
||||
TbGoodsEdit.Enabled := False;
|
||||
|
||||
TBDel.Enabled := False;
|
||||
if CANSHU1 = '查询' then
|
||||
begin
|
||||
ToolButton1.Enabled := True;
|
||||
|
|
@ -178,7 +192,7 @@ begin
|
|||
|
||||
TBAdd.Enabled := True;
|
||||
TBEdit.Enabled := True;
|
||||
TBDel.Enabled := True;
|
||||
// TBDel.Enabled := True;
|
||||
case cxTabControl1.TabIndex of
|
||||
1:
|
||||
begin
|
||||
|
|
@ -196,11 +210,14 @@ begin
|
|||
ToolButton3.Enabled := true;
|
||||
// TbGoodsEdit.Enabled := True;
|
||||
tchk.Enabled := true;
|
||||
|
||||
TBDel.Enabled := True;
|
||||
end;
|
||||
1:
|
||||
begin
|
||||
Tnochk.Enabled := true;
|
||||
btnWC.Enabled := true;
|
||||
TBDel.Enabled := True;
|
||||
end;
|
||||
2:
|
||||
begin
|
||||
|
|
@ -219,6 +236,8 @@ begin
|
|||
begin
|
||||
|
||||
btnWC.Enabled := true;
|
||||
|
||||
// TBDel.Enabled := True;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
|
@ -246,17 +265,21 @@ procedure TfrmTatDRList.InitGrid();
|
|||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
|
||||
sselJS.Caption := '0';
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered := False;
|
||||
Close;
|
||||
sql.Clear;
|
||||
Sql.Add(' select A.* ');
|
||||
sql.Add(' from Tat_Cloth_DR_Main A where 1=1');
|
||||
Sql.Add(' select A.*,B.CoAddress ');
|
||||
Sql.Add(', sselJS=(select isnull(sum(Piece), 0) from Tat_Cloth_DR_Sub X where X.DRMID=A.DRMID ) ');
|
||||
Sql.Add(', Telephone=(select Telephone from Bs_Company_contact X where X.CoID=A.ToCoID ) ');
|
||||
sql.Add(' from Tat_Cloth_DR_Main A left join BS_Company B on A.ToCoID = B.COID where 1=1');
|
||||
if CheckBox1.Checked then
|
||||
begin
|
||||
sql.Add(' and Filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
|
||||
sql.Add(' and Filltime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
|
||||
sql.Add(' and A.Filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' ');
|
||||
sql.Add(' and A.Filltime<''' + FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1) + ''' ');
|
||||
end;
|
||||
case cxTabControl1.TabIndex of
|
||||
0:
|
||||
|
|
@ -285,7 +308,7 @@ begin
|
|||
begin
|
||||
sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + '''');
|
||||
end;
|
||||
sql.Add(' order by Filltime desc ');
|
||||
sql.Add(' order by A.Filltime desc ');
|
||||
// ShowMessage(sql.Text);
|
||||
Open;
|
||||
end;
|
||||
|
|
@ -293,7 +316,6 @@ begin
|
|||
SCreateCDS(ADOQueryMain, Order_Main);
|
||||
SInitCDSData(ADOQueryMain, Order_Main);
|
||||
|
||||
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
TV1.DataController.Filter.Clear;
|
||||
|
|
@ -371,7 +393,8 @@ begin
|
|||
with frmTatDRtInPut do
|
||||
begin
|
||||
PState := 1;
|
||||
|
||||
Tv1Volume.Options.Editing := False;
|
||||
Tv1ApplicationReaon.Options.Editing := False;
|
||||
FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
|
|
@ -387,15 +410,15 @@ procedure TfrmTatDRList.TBDelClick(Sender: TObject);
|
|||
begin
|
||||
if Order_Main.IsEmpty then
|
||||
Exit;
|
||||
if cxTabControl1.TabIndex <> 0 then
|
||||
if (cxTabControl1.TabIndex <> 0) and (cxTabControl1.TabIndex <> 1) then
|
||||
Exit;
|
||||
// if canshu1 <> '管理' then
|
||||
// begin
|
||||
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
|
||||
begin
|
||||
Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
// if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
|
||||
// begin
|
||||
// Application.MessageBox('不能操作他人的数据!', '提示', 0);
|
||||
// Exit;
|
||||
// end;
|
||||
// end;
|
||||
|
||||
with ADOQueryTemp do
|
||||
|
|
@ -461,17 +484,19 @@ end;
|
|||
|
||||
function TfrmTatDRList.DelData(): Boolean;
|
||||
begin
|
||||
|
||||
try
|
||||
with Order_Main do
|
||||
begin
|
||||
DisableControls;
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
First;
|
||||
while not eof do
|
||||
begin
|
||||
if fieldbyname('SSel').AsBoolean then
|
||||
begin
|
||||
Result := false;
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
|
|
@ -649,7 +674,7 @@ begin
|
|||
EnableControls;
|
||||
end;
|
||||
|
||||
Order_Main.Delete;
|
||||
InitGrid();
|
||||
InitSubGrid();
|
||||
application.MessageBox('取消成功！', '提示信息');
|
||||
except
|
||||
|
|
@ -710,7 +735,7 @@ begin
|
|||
EnableControls;
|
||||
end;
|
||||
|
||||
Order_Main.Delete;
|
||||
InitGrid();
|
||||
InitSubGrid();
|
||||
application.MessageBox('撤销取消成功！', '提示信息');
|
||||
except
|
||||
|
|
@ -751,13 +776,15 @@ begin
|
|||
execsql;
|
||||
end;
|
||||
end;
|
||||
|
||||
next;
|
||||
end;
|
||||
|
||||
First;
|
||||
EnableControls;
|
||||
end;
|
||||
|
||||
Order_Main.Delete;
|
||||
InitGrid();
|
||||
InitSubGrid();
|
||||
application.MessageBox('审核成功！', '提示信息');
|
||||
except
|
||||
|
|
@ -774,12 +801,35 @@ begin
|
|||
sql.Clear;
|
||||
sql.Add('select A.* ');
|
||||
sql.Add('from Tat_Cloth_DR_Sub A where A.DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + '''');
|
||||
// ShowMessage(SQL.Text);
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS(ADOQueryTemp, ClientDataSet2);
|
||||
SInitCDSData(ADOQueryTemp, ClientDataSet2);
|
||||
end;
|
||||
|
||||
procedure TfrmTatDRList.N1Click(Sender: TObject);
|
||||
var
|
||||
msumJS: Currency;
|
||||
begin
|
||||
SelOKNo(Order_Main, true);
|
||||
msumJS := 0;
|
||||
Order_Main.First;
|
||||
while not Order_Main.Eof do
|
||||
begin
|
||||
msumJS := msumJS + Order_Main.FieldByName('sselJS').AsCurrency;
|
||||
Order_Main.Next;
|
||||
end;
|
||||
|
||||
SSelJS.Caption := CurrToStr(msumJS);
|
||||
end;
|
||||
|
||||
procedure TfrmTatDRList.PM11Click(Sender: TObject);
|
||||
begin
|
||||
SelOKNo(Order_Main, false);
|
||||
SSelJS.Caption := '0';
|
||||
end;
|
||||
|
||||
procedure TfrmTatDRList.TnochkClick(Sender: TObject);
|
||||
begin
|
||||
if Order_Main.IsEmpty then
|
||||
|
|
@ -809,7 +859,7 @@ begin
|
|||
First;
|
||||
EnableControls;
|
||||
end;
|
||||
Order_Main.Delete;
|
||||
InitGrid();
|
||||
application.MessageBox('撤销成功！', '提示信息');
|
||||
except
|
||||
application.MessageBox('撤销失败！', '提示信息', 0);
|
||||
|
|
@ -1048,6 +1098,132 @@ begin
|
|||
InitSubGrid();
|
||||
end;
|
||||
|
||||
procedure TfrmTatDRList.v1Column4PropertiesChange(Sender: TObject);
|
||||
var
|
||||
mDRMIDList: string;
|
||||
TotalPiece: Variant;
|
||||
mDRMID: string; //定位作用
|
||||
begin
|
||||
// mDRMIDList := '';
|
||||
// 保存当前记录的 BCIID
|
||||
// if not Order_Main.IsEmpty then
|
||||
// mDRMID := Trim(Order_Main.FieldByName('DRMID').AsString)
|
||||
// else
|
||||
// mDRMID := '';
|
||||
//
|
||||
// try
|
||||
// // 确保数据集状态正常
|
||||
// Order_Main.DisableControls;
|
||||
// try
|
||||
// Order_Main.First;
|
||||
// while not Order_Main.Eof do
|
||||
// begin
|
||||
// if Order_Main.FieldByName('ssel').AsBoolean then
|
||||
// begin
|
||||
// if mDRMIDList = '' then
|
||||
// mDRMIDList := QuotedStr(Trim(Order_Main.FieldByName('DRMID').AsString))
|
||||
// else
|
||||
// mDRMIDList := mDRMIDList + ',' + QuotedStr(Trim(Order_Main.FieldByName('DRMID').AsString));
|
||||
// end;
|
||||
// Order_Main.Next;
|
||||
// end;
|
||||
// finally
|
||||
// Order_Main.EnableControls;
|
||||
// end;
|
||||
//
|
||||
// // 如果没有选择任何记录
|
||||
// if mDRMIDList = '' then
|
||||
// begin
|
||||
//
|
||||
// if mDRMID <> '' then
|
||||
// Order_Main.Locate('DRMID', mDRMID, []);
|
||||
// sselJS.Caption := '0';
|
||||
// Exit;
|
||||
// end;
|
||||
//
|
||||
// // 执行查询
|
||||
// with ADOQueryCmd do
|
||||
// begin
|
||||
// Close;
|
||||
// SQL.Clear;
|
||||
// SQL.Add('select isnull(sum(Piece), 0) as sselJS from Tat_Cloth_DR_Sub');
|
||||
// SQL.Add('where DRMID in (' + mDRMIDList + ')');
|
||||
//
|
||||
// // 调试时可以显示SQL语句
|
||||
//// ShowMessage('SQL: ' + SQL.Text);
|
||||
//
|
||||
// Open;
|
||||
//
|
||||
// // 处理结果（更安全的方式）
|
||||
// if not IsEmpty then
|
||||
// begin
|
||||
// TotalPiece := FieldByName('sselJS').Value;
|
||||
// // 处理NULL值和空值
|
||||
// if VarIsNull(TotalPiece) or VarIsEmpty(TotalPiece) then
|
||||
// sselJS.Caption := '0'
|
||||
// else
|
||||
// sselJS.Caption := VarToStr(TotalPiece);
|
||||
// end
|
||||
// else
|
||||
// begin
|
||||
// sselJS.Caption := '0';
|
||||
// end;
|
||||
// end;
|
||||
//
|
||||
//
|
||||
// // 最后尝试定位回原记录
|
||||
// if mDRMID <> '' then
|
||||
// Order_Main.Locate('DRMID', mDRMID, []);
|
||||
//// sselJS.Text := '0';
|
||||
//// sselJS.Text := ADOQueryCmd.FieldByName('sselJS').Value
|
||||
// except
|
||||
// on E: Exception do
|
||||
// begin
|
||||
// // 记录错误信息
|
||||
// sselJS.Caption := '0';
|
||||
// ShowMessage('查询失败: ' + E.Message + #13#10 + 'SQL语句: ' + ADOQueryCmd.SQL.Text);
|
||||
// end;
|
||||
// end;
|
||||
|
||||
|
||||
try
|
||||
|
||||
mDRMID := Trim(Order_Main.FieldByName('DRMID').AsString);
|
||||
// 确保数据集状态正常
|
||||
Order_Main.DisableControls;
|
||||
// with ADOQueryCmd do
|
||||
// begin
|
||||
// Close;
|
||||
// SQL.Clear;
|
||||
// SQL.Add('select isnull(sum(Piece), 0) as sselJS from Tat_Cloth_DR_Sub ');
|
||||
// SQL.Add(' where DRMID = ' + QuotedStr(Trim(mDRMID)));
|
||||
// Open;
|
||||
// end;
|
||||
|
||||
// 如果没有选择任何记录
|
||||
|
||||
if Order_Main.IsEmpty then
|
||||
exit;
|
||||
with Order_Main do
|
||||
begin
|
||||
if fieldbyname('Ssel').AsBoolean = true then
|
||||
sselJS.Caption := currtostr(strtoCurr(sselJS.Caption) + Order_Main.FieldByName('sselJS').AsCurrency)
|
||||
else
|
||||
sselJS.Caption := currtostr(strtoCurr(sselJS.Caption) - Order_Main.FieldByName('sselJS').AsCurrency);
|
||||
end;
|
||||
|
||||
Order_Main.EnableControls;
|
||||
|
||||
except
|
||||
on E: Exception do
|
||||
begin
|
||||
// 记录错误信息
|
||||
sselJS.Caption := '0';
|
||||
ShowMessage('查询失败: ' + E.Message + #13#10 + 'SQL语句: ' + ADOQueryCmd.SQL.Text);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTatDRList.v1Column7PropertiesEditValueChanged(Sender: TObject);
|
||||
var
|
||||
mvalue, FFieldName: string;
|
||||
|
|
|
|||
|
|
@ -78,7 +78,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
|
|||
Left = 0
|
||||
Top = 38
|
||||
Width = 1252
|
||||
Height = 98
|
||||
Height = 99
|
||||
Align = alTop
|
||||
BevelInner = bvNone
|
||||
BevelOuter = bvNone
|
||||
|
|
@ -204,6 +204,20 @@ object frmTatDRtInPut: TfrmTatDRtInPut
|
|||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
end
|
||||
object Label7: TLabel
|
||||
Left = 693
|
||||
Top = 38
|
||||
Width = 53
|
||||
Height = 12
|
||||
Caption = #23458#25143'ID'#65306
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = [fsBold]
|
||||
ParentFont = False
|
||||
Visible = False
|
||||
end
|
||||
object OutType: TComboBox
|
||||
Tag = 1
|
||||
Left = 306
|
||||
|
|
@ -230,6 +244,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
|
|||
Top = 9
|
||||
Width = 138
|
||||
Height = 20
|
||||
ReadOnly = True
|
||||
TabOrder = 1
|
||||
OnBtnUpClick = ToCoNameBtnUpClick
|
||||
OnBtnDnClick = ToCoNameBtnDnClick
|
||||
|
|
@ -294,11 +309,20 @@ object frmTatDRtInPut: TfrmTatDRtInPut
|
|||
Height = 18
|
||||
TabOrder = 8
|
||||
end
|
||||
object ToCoID: TEdit
|
||||
Tag = 1
|
||||
Left = 758
|
||||
Top = 35
|
||||
Width = 96
|
||||
Height = 18
|
||||
TabOrder = 9
|
||||
Visible = False
|
||||
end
|
||||
end
|
||||
object ToolBar2: TToolBar
|
||||
Tag = 1
|
||||
Left = 0
|
||||
Top = 136
|
||||
Top = 137
|
||||
Width = 1252
|
||||
Height = 38
|
||||
AutoSize = True
|
||||
|
|
@ -364,9 +388,9 @@ object frmTatDRtInPut: TfrmTatDRtInPut
|
|||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 174
|
||||
Top = 175
|
||||
Width = 1252
|
||||
Height = 470
|
||||
Height = 469
|
||||
Align = alClient
|
||||
TabOrder = 3
|
||||
object Tv1: TcxGridDBTableView
|
||||
|
|
@ -451,7 +475,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
|
|||
Width = 81
|
||||
end
|
||||
object Tv1Qty: TcxGridDBColumn
|
||||
Caption = #30003#35831#31859#25968
|
||||
Caption = #27599#21367#31859#25968
|
||||
DataBinding.FieldName = 'Qty'
|
||||
DataBinding.IsNullValueType = True
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
|
|
|
|||
|
|
@ -67,6 +67,8 @@ type
|
|||
Tv1Applicant: TcxGridDBColumn;
|
||||
Tv1ApplicationReaon: TcxGridDBColumn;
|
||||
TbPHSave: TToolButton;
|
||||
Label7: TLabel;
|
||||
ToCoID: TEdit;
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBSaveClick(Sender: TObject);
|
||||
|
|
@ -83,11 +85,13 @@ type
|
|||
procedure ToolButton6Click(Sender: TObject);
|
||||
procedure TbPHSaveClick(Sender: TObject);
|
||||
procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
|
||||
|
||||
private
|
||||
fuserName: string;
|
||||
procedure InitData();
|
||||
function SaveData(): Boolean;
|
||||
function SavePHData(): Boolean;
|
||||
procedure C_NumHB();
|
||||
{ Private declarations }
|
||||
public
|
||||
PState, CopyInt: Integer;
|
||||
|
|
@ -286,6 +290,82 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmTatDRtInPut.C_NumHB();
|
||||
var
|
||||
LocateValues: variant;
|
||||
TempTable: TClientDataSet;
|
||||
begin
|
||||
// 创建临时表存储合并结果
|
||||
TempTable := TClientDataSet.Create(nil);
|
||||
try
|
||||
// 复制原表结构
|
||||
TempTable.CloneCursor(Order_Sub, False);
|
||||
TempTable.Close;
|
||||
TempTable.FieldDefs.Assign(Order_Sub.FieldDefs);
|
||||
TempTable.CreateDataSet;
|
||||
|
||||
Order_Sub.First;
|
||||
|
||||
while not Order_Sub.Eof do
|
||||
begin
|
||||
// 只处理 DRSID 为空的记录
|
||||
// if Order_Sub.FieldByName('DRSID').IsNull or (trim(Order_Sub.FieldByName('DRSID').AsString) = '') then
|
||||
// begin
|
||||
LocateValues := VarArrayOf([trim(Order_Sub.FieldByName('C_Name').AsString), trim(Order_Sub.FieldByName('C_width').AsString), trim(Order_Sub.FieldByName('C_GramWeight').AsString)]);
|
||||
|
||||
// 在临时表中查找是否已存在相同规格的记录
|
||||
if TempTable.Locate('C_Name;C_width;C_GramWeight', LocateValues, []) then
|
||||
begin
|
||||
// 存在则累加 Piece 值
|
||||
TempTable.Edit;
|
||||
TempTable.FieldByName('Piece').AsFloat := TempTable.FieldByName('Piece').AsFloat + Order_Sub.FieldByName('Piece').AsFloat;
|
||||
TempTable.FieldByName('Qty').AsFloat := TempTable.FieldByName('Qty').AsFloat + Order_Sub.FieldByName('Qty').AsFloat;
|
||||
TempTable.Post;
|
||||
if (not Order_Sub.FieldByName('DRSID').IsNull) and (trim(Order_Sub.FieldByName('DRSID').AsString) <> '') then
|
||||
begin
|
||||
with ADOCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('delete Tat_Cloth_DR_Sub where DRSID=''' + Trim(Order_Sub.fieldbyname('DRSID').AsString) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
end;
|
||||
|
||||
end
|
||||
else
|
||||
begin
|
||||
// 不存在则添加新记录
|
||||
TempTable.Append;
|
||||
TempTable.CopyFields(Order_Sub); // 复制所有字段值
|
||||
TempTable.Post;
|
||||
end;
|
||||
// end;
|
||||
|
||||
Order_Sub.Next;
|
||||
end;
|
||||
|
||||
// 用临时表替换原数据集
|
||||
Order_Sub.DisableControls;
|
||||
try
|
||||
Order_Sub.EmptyDataSet;
|
||||
TempTable.First;
|
||||
while not TempTable.Eof do
|
||||
begin
|
||||
Order_Sub.Append;
|
||||
Order_Sub.CopyFields(TempTable);
|
||||
Order_Sub.Post;
|
||||
TempTable.Next;
|
||||
end;
|
||||
finally
|
||||
Order_Sub.EnableControls;
|
||||
end;
|
||||
|
||||
finally
|
||||
TempTable.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfrmTatDRtInPut.SaveData(): Boolean;
|
||||
var
|
||||
MaxMid, MaxSid: string;
|
||||
|
|
@ -397,6 +477,7 @@ procedure TfrmTatDRtInPut.TBSaveClick(Sender: TObject);
|
|||
var
|
||||
Freal: Double;
|
||||
begin
|
||||
//ShowMessage(Order_Sub.FieldByName('Piece').AsString);
|
||||
ToolBar1.SetFocus;
|
||||
|
||||
if Trim(OutType.Text) = '' then
|
||||
|
|
@ -409,11 +490,14 @@ begin
|
|||
Application.MessageBox('客户不能为空！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
if (Order_Sub.Locate('Piece', null, [])) and (Order_Sub.Locate('Qty', null, [])) = True then
|
||||
begin
|
||||
Application.MessageBox('细码申请匹数和数量不能全为空！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
// ShowMessage(Order_Sub.FieldByName('Piece').AsString);
|
||||
C_NumHB();
|
||||
if SaveData() then
|
||||
begin
|
||||
Application.MessageBox('保存成功！', '提示', 0);
|
||||
|
|
@ -558,16 +642,6 @@ begin
|
|||
begin
|
||||
while cds_sub.locate('SSel', true, []) do
|
||||
begin
|
||||
LocateValues := VarArrayOf([trim(frmTatClothInfoSel.CDS_1.Fieldbyname('C_Name').AsString), trim(frmTatClothInfoSel.cds_sub.Fieldbyname('C_MXMF').AsString), trim(frmTatClothInfoSel.CDS_1.Fieldbyname('C_GramWeight').AsString)]);
|
||||
|
||||
if self.Order_Sub.locate('C_name;C_width;C_GramWeight', LocateValues, []) then
|
||||
begin
|
||||
// 三个字段都匹配，执行编辑 - 这里已经定位到相同记录的那一条数据
|
||||
|
||||
end
|
||||
else
|
||||
begin
|
||||
// 三个字段不完全匹配，添加新记录
|
||||
with Self.Order_Sub do
|
||||
begin
|
||||
Append;
|
||||
|
|
@ -580,8 +654,6 @@ begin
|
|||
// FieldByName('C_ColorNo').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_ColorNo').Value;
|
||||
// FieldByName('C_Pattern').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Pattern').Value;
|
||||
end;
|
||||
end;
|
||||
|
||||
cds_sub.Edit;
|
||||
cds_sub.fieldbyname('SSel').value := false;
|
||||
end;
|
||||
|
|
@ -744,6 +816,7 @@ begin
|
|||
begin
|
||||
self.ToCoName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
|
||||
self.ToCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
|
||||
self.ToCoID.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoID').AsString);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
|
|
|||
|
|
@ -10,6 +10,7 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
|
|||
Font.Name = #23435#20307
|
||||
Position = poScreenCenter
|
||||
OnClose = FormClose
|
||||
ExplicitLeft = -489
|
||||
ExplicitWidth = 1356
|
||||
ExplicitHeight = 620
|
||||
PixelsPerInch = 96
|
||||
|
|
@ -22,6 +23,8 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
|
|||
Height = 268
|
||||
Align = alClient
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 1
|
||||
ExplicitTop = 33
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
@ -238,6 +241,13 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 66
|
||||
end
|
||||
object Tv1C_WidthNum: TcxGridDBColumn
|
||||
Caption = #38376#24133#20010#25968
|
||||
DataBinding.FieldName = 'C_WidthNum'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
|
|
@ -344,6 +354,8 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
|
|||
ParentFont = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
ExplicitLeft = 0
|
||||
ExplicitTop = -5
|
||||
object ToolButton4: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
|
|
@ -369,8 +381,6 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
|
|||
Height = 235
|
||||
Align = alClient
|
||||
TabOrder = 1
|
||||
ExplicitLeft = 2
|
||||
ExplicitTop = 45
|
||||
object TV2: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
ScrollbarAnnotations.CustomAnnotations = <>
|
||||
|
|
|
|||
|
|
@ -81,6 +81,7 @@ type
|
|||
TV2Column7: TcxGridDBColumn;
|
||||
TV2C_MXSHWidth: TcxGridDBColumn;
|
||||
TV2C_MXSHReason: TcxGridDBColumn;
|
||||
Tv1C_WidthNum: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBAddClick(Sender: TObject);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
|
|
@ -443,6 +444,12 @@ begin
|
|||
Application.MessageBox('数量单位不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
if CDS_Sub.Locate('C_WidthNum', null, []) = True then
|
||||
begin
|
||||
Application.MessageBox('门幅个数不能为空!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
{if CDS_Sub.Locate('CRType;LCKNO', VarArrayOf(['回仓', Null]), [loPartialKey]) then
|
||||
begin
|
||||
Application.MessageBox('回仓的数据流程卡号不能为空!','提示',0);
|
||||
|
|
|
|||
|
|
@ -607,6 +607,13 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 67
|
||||
end
|
||||
object Tv1C_WidthNum: TcxGridDBColumn
|
||||
Caption = #38376#24133#20010#25968
|
||||
DataBinding.FieldName = 'C_WidthNum'
|
||||
DataBinding.IsNullValueType = True
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 80
|
||||
end
|
||||
end
|
||||
object cxGrid2Level1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
|
|
@ -745,8 +752,8 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
|
|||
end
|
||||
end
|
||||
object Panel2: TPanel [4]
|
||||
Left = 284
|
||||
Top = 109
|
||||
Left = 246
|
||||
Top = 110
|
||||
Width = 336
|
||||
Height = 240
|
||||
TabOrder = 4
|
||||
|
|
|
|||
|
|
@ -122,6 +122,7 @@ type
|
|||
TV2Column8: TcxGridDBColumn;
|
||||
TV2C_MXSHWidth: TcxGridDBColumn;
|
||||
TV2C_MXSHReason: TcxGridDBColumn;
|
||||
Tv1C_WidthNum: TcxGridDBColumn;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user