Group_99/D10szXIANGYING
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

12.9

Browse Source
This commit is contained in:
LAPTOP-8NOV8MVQ\cai 2025-12-09 17:30:02 +08:00
parent dc16f304de
commit 3a5cea8769
59 changed files with 3594 additions and 642 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
A00通用窗体/U_CompanySel.dfm
View File

@ -10,6 +10,7 @@ inherited frmCompanySel: TfrmCompanySel
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -42
ExplicitWidth = 909 ExplicitWidth = 909
ExplicitHeight = 597 ExplicitHeight = 597
PixelsPerInch = 96 PixelsPerInch = 96
@ -59,6 +60,13 @@ inherited frmCompanySel: TfrmCompanySel
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 159 Width = 159
end end
object TV1Column4: TcxGridDBColumn
Caption = #23458#25143#22320#22336
DataBinding.FieldName = 'CoAddress'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 547
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = TV1 GridView = TV1

1
A00通用窗体/U_CompanySel.pas
View File

@ -51,6 +51,7 @@ type
handBlack: TcxStyle; handBlack: TcxStyle;
cxBlue: TcxStyle; cxBlue: TcxStyle;
SHuangSeCu: TcxStyle; SHuangSeCu: TcxStyle;
TV1Column4: TcxGridDBColumn;
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);

76
A01基础公司管理/Company.dproj.local
View File

@ -1,60 +1,32 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.411,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_YGSel.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.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.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.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.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.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.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.693,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</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\项目代码\恒燕\A00通用窗体\U_UserSel.dfm=D:\Dp10Repo\项目代码\恒燕\A01基础公司管理\U_wechatSel.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.311,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.744,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Customer.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.921,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.dfm=D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.dfm</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.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.pas=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.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.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.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.967,D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_CustInput.dfm=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_FactoryInput.dfm</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.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm</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.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.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.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.076,D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_ZdyAttachGYS.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.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.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.525,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_BankList.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\项目代码\恒燕\A01基础公司管理\U_wechatSel.dfm=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.dfm</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.368,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_UserSel.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.333,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="..\..\D10szXIANGYING"/>
<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="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>

120
A02基础产品管理/ClothInfo.dproj.local
View File

@ -1,82 +1,54 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.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.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.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.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.472,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.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.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.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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_KnitClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</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.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.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.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.290,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_TatClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.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.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.340,=D:\Dp10Repo\项目代码\RTBasics\A02基础产品管理\U_CloInfoFileUp.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.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.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.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.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.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.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.305,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_KnitClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.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.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.743,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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通用模板\ClothInfo.dproj=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\InformationBase.dproj</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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.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.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>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="..\..\D10szXIANGYING"/>
<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="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>

BIN
A02基础产品管理/ClothInfo.identcache
View File

Binary file not shown.

BIN
A02基础产品管理/ClothInfo.res
View File

Binary file not shown.

16
A02基础产品管理/U_ClothInfo.pas
View File

@ -344,6 +344,22 @@ procedure TfrmClothInfo.TBDelClick(Sender: TObject);
begin begin
if CDS_1.IsEmpty then if CDS_1.IsEmpty then
Exit; 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 if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
Exit; Exit;

1
A02基础产品管理/U_ClothInfoInput.dfm
View File

@ -32,6 +32,7 @@ object frmClothInfoInput: TfrmClothInfoInput
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitTop = 1
object ToolButton1: TToolButton object ToolButton1: TToolButton
Tag = 1 Tag = 1
Left = 0 Left = 0

BIN
A02基础产品管理/testDll.identcache
View File

Binary file not shown.

BIN
A02基础产品管理/testDll.res
View File

Binary file not shown.

120
E01梭织生产计划/TatPlan.dproj.local
View File

@ -1,82 +1,54 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</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.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj</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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.806,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\Unit1.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.637,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.827,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachHistoryList.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.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.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.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.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.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.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.pas=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.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.189,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatOutputList.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</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.779,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachInput.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.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.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.079,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecEditSel.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.297,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_YarnStkSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.467,=D:\Dp10Repo\项目代码\RTBasics\E00梭织通用窗体\U_TatPlanSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.806,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_WBSpecInPut.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.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.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.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.306,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\千圣\E01梭织生产计划\U_TatPlanMachList.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.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.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.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.812,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_PlanWBList.dfm=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\U_TatWBCardInPut.dfm</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.452,D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\E01梭织生产计划\TatPlan.dproj</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.422,=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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="..\..\D10szXIANGYING"/>
<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="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>

BIN
E01梭织生产计划/TatPlan.identcache
View File

Binary file not shown.

BIN
E01梭织生产计划/TatPlan.res
View File

Binary file not shown.

BIN
E01梭织生产计划/testDll.identcache
View File

Binary file not shown.

BIN
E01梭织生产计划/testDll.res
View File

Binary file not shown.

2
E03梭织坯布检验/ProjectGroup1.groupproj.local
View File

@ -2,6 +2,6 @@
<BorlandProject> <BorlandProject>
<Transactions/> <Transactions/>
<Default.Personality> <Default.Personality>
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10szXIANGYIN\E03梭织坯布检验\TatInsp.dproj"/> <Projects ActiveProject="D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\TatInsp.dproj"/>
</Default.Personality> </Default.Personality>
</BorlandProject> </BorlandProject>

4
E03梭织坯布检验/TatInsp.dpr
View File

@ -29,7 +29,9 @@ uses
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint}, U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
U_TatClothInfoSel in '..\A00通用窗体\U_TatClothInfoSel.pas' {frmTatClothInfoSel}, U_TatClothInfoSel in '..\A00通用窗体\U_TatClothInfoSel.pas' {frmTatClothInfoSel},
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', 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} {$R *.res}

60
E03梭织坯布检验/TatInsp.dproj
View File

@ -4,7 +4,7 @@
<MainSource>TatInsp.dpr</MainSource> <MainSource>TatInsp.dpr</MainSource>
<Base>True</Base> <Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config> <Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>38017</TargetedPlatforms> <TargetedPlatforms>1</TargetedPlatforms>
<AppType>Library</AppType> <AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType> <FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.2</ProjectVersion> <ProjectVersion>19.2</ProjectVersion>
@ -13,16 +13,6 @@
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base> <Base>true</Base>
</PropertyGroup> </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)'!=''"> <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32> <Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
@ -43,24 +33,6 @@
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
<Base>true</Base> <Base>true</Base>
</PropertyGroup> </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)'!=''"> <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32> <Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent> <CfgParent>Cfg_2</CfgParent>
@ -84,13 +56,6 @@
<VerInfo_Locale>2052</VerInfo_Locale> <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> <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup> </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)'!=''"> <PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> <DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType> <BT_BuildType>Debug</BT_BuildType>
@ -113,18 +78,9 @@
<DCC_Optimize>false</DCC_Optimize> <DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup> </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)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10szXIANGYIN\E03梭织坯布检验\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>D:\Dp10Repo\项目代码\D10szXIANGYING\E03梭织坯布检验\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">
@ -199,6 +155,14 @@
<FormType>dfm</FormType> <FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
</DCCReference> </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"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
@ -221,10 +185,6 @@
</Source> </Source>
</Delphi.Personality> </Delphi.Personality>
<Platforms> <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="Win32">True</Platform>
<Platform value="Win64">False</Platform> <Platform value="Win64">False</Platform>
</Platforms> </Platforms>

122
E03梭织坯布检验/TatInsp.dproj.local
View File

@ -1,80 +1,54 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899-12-30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.183,=D:\Dp10Repo\项目代码\恒燕\A00通用窗体\U_TatClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.638,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.630,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj</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.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.802,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitClothInspList.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeClothInspList.dfm</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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.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.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.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.293,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_TatMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\U_KnitMachInsp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.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.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.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.099,=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.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.pas=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.dfm</Transaction> <Transaction>1899/12/30 00:00:00.000.099,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction> <Transaction>1899/12/30 00:00:00.000.963,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_KnitMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\U_DyeMachInsp.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.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.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.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>
<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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.017,D:\Dp10Repo\项目代码\RTBasics\D02针织检验\KnitInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\D02针织检验\DyeInsp.dproj</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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.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.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.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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="..\..\D10szXIANGYING"/>
<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="..\A00通用窗体"/> <File Path="..\A00通用窗体"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.pas"/> <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/> <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
@ -120,5 +94,9 @@
<File Path="U_TatMachInsp.dfm"/> <File Path="U_TatMachInsp.dfm"/>
<File Path="U_TatClothInspList.pas"/> <File Path="U_TatClothInspList.pas"/>
<File Path="U_TatClothInspList.dfm"/> <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> </ProjectSortOrder>
</BorlandProject> </BorlandProject>

BIN
E03梭织坯布检验/TatInsp.identcache
View File

Binary file not shown.

BIN
E03梭织坯布检验/TatInsp.res
View File

Binary file not shown.

5
E03梭织坯布检验/TatInsp.skincfg Normal file
View File

@ -0,0 +1,5 @@
[ExpressSkins]
Default=1
ShowNotifications=1
Enabled=1
dxSkinsDefaultPainters=1

32
E03梭织坯布检验/TatInspLogin.dproj.local
View File

@ -1,34 +1,6 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
<File Path="cloud-messaging.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-ads.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-analytics.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-base.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-basement.16.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-gass.17.2.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-identity.16.0.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-maps.16.1.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar"/>
<File Path="com-google-android-gms.play-services-stats.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar"/>
<File Path="com-google-android-gms.play-services-tasks.16.0.1.dex.jar"/>
<File Path="com-google-android-gms.play-services-wallet.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-analytics.16.4.0.dex.jar"/>
<File Path="com-google-firebase.firebase-common.16.1.0.dex.jar"/>
<File Path="com-google-firebase.firebase-iid-interop.16.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-iid.17.1.1.dex.jar"/>
<File Path="com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar"/>
<File Path="com-google-firebase.firebase-messaging.17.5.0.dex.jar"/>
<File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/>
<File Path="DbPanel"/> <File Path="DbPanel"/>
<File Path="DbPanel\MovePanel.pas"/> <File Path="DbPanel\MovePanel.pas"/>
<File Path="delphitwain"/> <File Path="delphitwain"/>
@ -49,7 +21,7 @@
<File Path="U_upPassword.dfm"/> <File Path="U_upPassword.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
<Transactions> <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.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.976,D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\E02梭织坯布检验\TatInspLogin.dproj</Transaction>
</Transactions> </Transactions>
</BorlandProject> </BorlandProject>

BIN
E03梭织坯布检验/TatInspLogin.identcache
View File

Binary file not shown.

BIN
E03梭织坯布检验/TatInspLogin.res
View File

Binary file not shown.

26
E03梭织坯布检验/U_GetDllForm.pas
View File

@ -15,7 +15,8 @@ function GetsysParam(muserId: pchar; fparam1: pchar): Boolean;
implementation implementation
uses 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中得窗体 // // 功能说明:取Dll中得窗体 //
@ -150,6 +151,29 @@ begin
mnewHandle := Handle; mnewHandle := Handle;
end; end;
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: 10000:
begin begin

43
E03梭织坯布检验/U_SCPersonColor.pas
View File

@ -46,6 +46,7 @@ type
public public
FlagStr: string; FlagStr: string;
FName, FSJZL, FType, FBCIOID, FHINT: string; FName, FSJZL, FType, FBCIOID, FHINT: string;
FC_Code,fMFflag: string;
{ Public declarations } { Public declarations }
end; end;
@ -79,15 +80,43 @@ begin
begin begin
end; end;
with ADOTmp do
if FMFFlag = '·ÖÇÐ' then
begin begin
Close; with ADOTmp do
sql.Clear; begin
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 '); Close;
SQL.Add('WHERE BCIOID=' + QuotedStr(Trim(FBCIOID))); sql.Clear;
SQL.Add(')AA'); // 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); // showmessage(sql.text);
Open; 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; end;
if ADOTmp.IsEmpty then if ADOTmp.IsEmpty then

670
E03梭织坯布检验/U_TatClothInspHZList.dfm Normal file
View 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
View 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.

36
E03梭织坯布检验/U_TatClothInspList.dfm
View File

@ -185,7 +185,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
object ComboBox2: TComboBox object ComboBox2: TComboBox
Tag = 2 Tag = 2
Left = 510 Left = 510
Top = 1 Top = 0
Width = 69 Width = 69
Height = 35 Height = 35
Hint = '1' Hint = '1'
@ -420,6 +420,20 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end 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 object BegDate: TDateTimePicker
Left = 96 Left = 96
Top = 10 Top = 10
@ -596,6 +610,15 @@ inherited frmTatClothInspList: TfrmTatClothInspList
TabOrder = 14 TabOrder = 14
OnKeyPress = conNOKeyPress OnKeyPress = conNOKeyPress
end end
object dept: TEdit
Left = 1177
Top = 10
Width = 100
Height = 20
Hint = '0'
TabOrder = 15
OnKeyPress = conNOKeyPress
end
end end
object cxTabControl1: TcxTabControl [3] object cxTabControl1: TcxTabControl [3]
Left = 0 Left = 0
@ -617,7 +640,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
' '#27491#24335#25968#25454' ' ' '#27491#24335#25968#25454' '
' '#21024#38500#25968#25454' ') ' '#21024#38500#25968#25454' ')
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ExplicitTop = 136
ClientRectBottom = 445 ClientRectBottom = 445
ClientRectLeft = 2 ClientRectLeft = 2
ClientRectRight = 1465 ClientRectRight = 1465
@ -637,8 +659,6 @@ inherited frmTatClothInspList: TfrmTatClothInspList
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 0 TabOrder = 0
ExplicitLeft = 4
ExplicitTop = 31
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseUp = Tv1MouseUp OnMouseUp = Tv1MouseUp
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -1025,6 +1045,13 @@ inherited frmTatClothInspList: TfrmTatClothInspList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 68 Width = 68
end end
object Tv1C_MXSHWidth: TcxGridDBColumn
Caption = #25439#32791#38376#24133
DataBinding.FieldName = 'C_MXSHWidth'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -1278,6 +1305,7 @@ inherited frmTatClothInspList: TfrmTatClothInspList
Top = 225 Top = 225
end end
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 860 Left = 860
Top = 470 Top = 470

39
E03梭织坯布检验/U_TatClothInspList.pas
View File

@ -138,6 +138,9 @@ type
ComboBox1: TComboBox; ComboBox1: TComboBox;
Button7: TButton; Button7: TButton;
MovePanel2: TMovePanel; MovePanel2: TMovePanel;
Label16: TLabel;
dept: TEdit;
Tv1C_MXSHWidth: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -272,34 +275,34 @@ end;
procedure TfrmTatClothInspList.InitGrid(); procedure TfrmTatClothInspList.InitGrid();
var var
WSql: string; WSql1, WSql2: string;
begin begin
MovePanel2.Left := (self.Width - MovePanel2.Width) div 2; MovePanel2.Left := (self.Width - MovePanel2.Width) div 2;
MovePanel2.Visible := True; MovePanel2.Visible := True;
MovePanel2.Refresh; MovePanel2.Refresh;
WSql := SGetFilters(Panel1, 1, 2); WSql1 := SGetFilters(Panel1, 1, 2);
if trim(WSql) <> '' then if WSql1 <> '' then
begin 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; end;
if trim(FWorkshop) <> '' then if trim(FWorkshop) <> '' then
WSql := WSql + ' and A.Workshop=''' + trim(FWorkshop) + ''''; WSql1 := WSql1 + ' and Workshop=''' + trim(FWorkshop) + '''';
if IsJYTime.Checked then if IsJYTime.Checked then
begin begin
WSql := WSql + ' and A.Filltime>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); WSql1 := WSql1 + ' and A.Filltime>' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime));
WSql := WSql + ' and A.Filltime<=' + quotedstr(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)); WSql1 := WSql1 + ' 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 ';
end; end;
if trim(WSql) = 'and 1=2' then
Application.MessageBox('勾选检验日期或填入搜索条件', '提示', 0); if trim(WSql1) = '' then
Application.MessageBox('¹´Ñ¡¼ìÑéÈÕÆÚ', 'Ìáʾ', 0);
try try
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
@ -320,7 +323,9 @@ begin
sql.Add('@pageIndex=' + inttostr(CurrentPage)); sql.Add('@pageIndex=' + inttostr(CurrentPage));
sql.Add(',@pageSize=' + inttostr(RecordsNumber)); sql.Add(',@pageSize=' + inttostr(RecordsNumber));
sql.Add(',@criteria= ' + quotedstr(WSql)); sql.Add(',@criteria= ' + quotedstr(WSql1));
sql.Add(',@criteria2= ' + quotedstr(WSql2));
// ShowMessage(SQL.Text);
Open; Open;
end; end;
SCreateCDS(ADOQueryMain, Order_Main); SCreateCDS(ADOQueryMain, Order_Main);

513
E03梭织坯布检验/U_TatMachCutHZList.dfm Normal file
View 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
View 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.

49
E03梭织坯布检验/U_TatMachInsp.dfm
View File

@ -2,20 +2,20 @@
Left = 234 Left = 234
Top = 20 Top = 20
Caption = #25104#21697#26816#39564 Caption = #25104#21697#26816#39564
ClientHeight = 772 ClientHeight = 784
ClientWidth = 1540 ClientWidth = 1540
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 811 ExplicitHeight = 823
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 12 TextHeight = 12
object Panel9: TPanel [0] object Panel9: TPanel [0]
Left = 0 Left = 0
Top = 0 Top = 0
Width = 587 Width = 587
Height = 772 Height = 784
Align = alLeft Align = alLeft
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
@ -24,7 +24,7 @@
Left = 1 Left = 1
Top = 279 Top = 279
Width = 585 Width = 585
Height = 492 Height = 504
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -281,7 +281,7 @@
TabOrder = 0 TabOrder = 0
object Label12: TLabel object Label12: TLabel
Left = 11 Left = 11
Top = 6 Top = 8
Width = 62 Width = 62
Height = 34 Height = 34
Caption = #36873#25321 Caption = #36873#25321
@ -295,7 +295,7 @@
end end
object SEL1: TEdit object SEL1: TEdit
Left = 79 Left = 79
Top = 3 Top = 0
Width = 70 Width = 70
Height = 41 Height = 41
Hint = '1' Hint = '1'
@ -618,15 +618,15 @@
end end
end end
object PNL1_2: TPanel object PNL1_2: TPanel
Left = 239 Left = 4
Top = 276 Top = 309
Width = 341 Width = 574
Height = 27 Height = 27
TabOrder = 3 TabOrder = 3
Visible = False Visible = False
object Label37: TLabel object Label37: TLabel
Left = 11 Left = 11
Top = 6 Top = 0
Width = 62 Width = 62
Height = 34 Height = 34
Caption = #32534#21495 Caption = #32534#21495
@ -1269,8 +1269,8 @@
TabOrder = 2 TabOrder = 2
Visible = False Visible = False
object Label43: TLabel object Label43: TLabel
Left = 3 Left = 11
Top = 6 Top = 12
Width = 62 Width = 62
Height = 34 Height = 34
Caption = #32534#21495 Caption = #32534#21495
@ -3375,8 +3375,8 @@
#20998#20999) #20998#20999)
end end
object grade: TcxButtonEdit object grade: TcxButtonEdit
Left = 252 Left = 262
Top = 348 Top = 338
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
@ -3752,8 +3752,8 @@
OnClick = CIFBegClick OnClick = CIFBegClick
end end
object edtScan: TEdit object edtScan: TEdit
Left = 85 Left = 83
Top = 12 Top = 9
Width = 185 Width = 185
Height = 27 Height = 27
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -4023,7 +4023,7 @@
OnClick = tubeClick OnClick = tubeClick
end end
object Packaging: TEdit object Packaging: TEdit
Left = 272 Left = 267
Top = 186 Top = 186
Width = 65 Width = 65
Height = 27 Height = 27
@ -4037,7 +4037,7 @@
OnClick = PackagingClick OnClick = PackagingClick
end end
object Seal: TEdit object Seal: TEdit
Left = 392 Left = 387
Top = 186 Top = 186
Width = 90 Width = 90
Height = 27 Height = 27
@ -4098,7 +4098,7 @@
Left = 787 Left = 787
Top = 0 Top = 0
Width = 332 Width = 332
Height = 772 Height = 784
Align = alLeft Align = alLeft
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
@ -4773,7 +4773,7 @@
Left = 1119 Left = 1119
Top = 0 Top = 0
Width = 421 Width = 421
Height = 772 Height = 784
Align = alClient Align = alClient
Caption = 'Panel4' Caption = 'Panel4'
TabOrder = 1 TabOrder = 1
@ -4781,7 +4781,7 @@
Left = 1 Left = 1
Top = 129 Top = 129
Width = 419 Width = 419
Height = 411 Height = 423
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
@ -4921,7 +4921,7 @@
end end
object cxPageControl1: TcxPageControl object cxPageControl1: TcxPageControl
Left = 1 Left = 1
Top = 540 Top = 552
Width = 419 Width = 419
Height = 231 Height = 231
Align = alBottom Align = alBottom
@ -5329,7 +5329,7 @@
Left = 587 Left = 587
Top = 0 Top = 0
Width = 200 Width = 200
Height = 772 Height = 784
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -5337,7 +5337,6 @@
ParentBackground = False ParentBackground = False
TabOrder = 3 TabOrder = 3
Visible = False Visible = False
ExplicitLeft = 588
object Label35: TLabel object Label35: TLabel
Left = 27 Left = 27
Top = 55 Top = 55
@ -6018,7 +6017,7 @@
end end
object SpeedButton19: TSpeedButton object SpeedButton19: TSpeedButton
Left = 284 Left = 284
Top = -1 Top = 0
Width = 171 Width = 171
Height = 70 Height = 70
Caption = #36873#25321#38376#24133 Caption = #36873#25321#38376#24133

154
E03梭织坯布检验/U_TatMachInsp.pas
View File

@ -554,6 +554,7 @@ type
FLoom, FBatchNO, FLenUnit, FC_Code, FC_Name, FC_Spec, FC_Width, FC_GramWeight: string; 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; FC_Color, FC_ColorNo, FC_StyleNo, FC_Pattern, FC_CustPattern, FC_ColorDepth: string;
FFtyPCId, FGangNo, FBCIOID, fmxid: string; FFtyPCId, FGangNo, FBCIOID, fmxid: string;
FMFFlag: string;
FPieceNo, FXJCount: Integer; FPieceNo, FXJCount: Integer;
IsCommopen: boolean; IsCommopen: boolean;
FNAME, FCODE, FMF, FMETER, FKG, fsunhao, FSHREASON, FYMETER, FYWIDTH, fyciid: string; FNAME, FCODE, FMF, FMETER, FKG, fsunhao, FSHREASON, FYMETER, FYWIDTH, fyciid: string;
@ -1152,10 +1153,47 @@ begin
end; end;
procedure TfrmTatMachInsp.SEL1Click(Sender: TObject); procedure TfrmTatMachInsp.SEL1Click(Sender: TObject);
var
mMFID: string;
mIDNum: Integer;
begin begin
initclearsel(); initclearsel();
TcxTextEdit(Sender).Text := '√'; 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; end;
procedure TfrmTatMachInsp.SetINIFile(); procedure TfrmTatMachInsp.SetINIFile();
@ -1561,7 +1599,7 @@ begin
Application.MessageBox('未入库不能操作!', '提示', 0); Application.MessageBox('未入库不能操作!', '提示', 0);
Exit; Exit;
end; end;
////////状态为待出库才能操作
try try
ADOCMD.Connection.BeginTrans; ADOCMD.Connection.BeginTrans;
@ -1629,6 +1667,7 @@ begin
FOperationStatus := '卷条码'; FOperationStatus := '卷条码';
fyciid := Trim(MCIID); fyciid := Trim(MCIID);
FBCIOID := Trim(ADOTmp.fieldbyname('BCIOID').AsString); FBCIOID := Trim(ADOTmp.fieldbyname('BCIOID').AsString);
// FBCIOID := '';
FC_Code := Trim(ADOTmp.fieldbyname('C_Code').AsString); FC_Code := Trim(ADOTmp.fieldbyname('C_Code').AsString);
FC_Name := Trim(ADOTmp.fieldbyname('C_Name').AsString); FC_Name := Trim(ADOTmp.fieldbyname('C_Name').AsString);
FC_Spec := Trim(ADOTmp.fieldbyname('C_Spec').AsString); FC_Spec := Trim(ADOTmp.fieldbyname('C_Spec').AsString);
@ -1696,6 +1735,7 @@ begin
InitJYGrid(); InitJYGrid();
InitCDGrid(FCIID); InitCDGrid(FCIID);
edtScan.Text := ''; edtScan.Text := '';
end; end;
end; end;
@ -2848,16 +2888,22 @@ begin
MCIID := Trim(maxno); //卷条码 MCIID := Trim(maxno); //卷条码
FCIID := Trim(maxno); FCIID := Trim(maxno);
if fcode <> '' then // if fcode <> '' then
if FMFFlag = '不分切' then
begin begin
with ADOCmd do with ADOCmd do
begin begin
Close; Close;
SQL.Clear; 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) + ''''); sql.Add(' where Tat_Cloth_Inspect.mxid=a.mxid and Tat_Cloth_Inspect.ciid =''' + Trim(maxno) + '''');
// ShowMessage(sql.Text);
execsql; execsql;
end; end;
if grade.Text = '循环布' then if grade.Text = '循环布' then
@ -3077,6 +3123,7 @@ var
fPrintFile: string; fPrintFile: string;
mvalue: Double; mvalue: Double;
i, J, FXJINT: Integer; i, J, FXJINT: Integer;
tempValue: Double; ///验证定型米数为数字
begin begin
CodeName.SetFocus; CodeName.SetFocus;
@ -3095,6 +3142,11 @@ begin
Application.MessageBox('请输入定型米数！', '提示信息', MB_OK); Application.MessageBox('请输入定型米数！', '提示信息', MB_OK);
Exit; Exit;
end; end;
if not TryStrToFloat(DXMETER.Text, tempValue) then
begin
Application.MessageBox('定型米数必须是数字！', '提示信息', MB_OK);
Exit;
end;
J := 0; J := 0;
BTPrint.Enabled := FALSE; BTPrint.Enabled := FALSE;
@ -3466,7 +3518,9 @@ end;
procedure TfrmTatMachInsp.SpeedButton19Click(Sender: TObject); procedure TfrmTatMachInsp.SpeedButton19Click(Sender: TObject);
var var
FXJINT, I, J: Integer; FXJINT, I, J: Integer;
mIDNum: Integer;
FFMF, FFMXID: string; FFMF, FFMXID: string;
mMFID: string;
begin begin
J := 0; J := 0;
@ -3546,41 +3600,89 @@ begin
Exit; Exit;
end; end;
if FBCIOID <> '' then try
begin frmSCPersonColor := TfrmSCPersonColor.Create(self);
try with frmSCPersonColor do
frmSCPersonColor := TfrmSCPersonColor.Create(self); begin
with frmSCPersonColor do FBCIOID := SELF.FBCIOID;
FC_Code := Self.FC_Code;
FMFFlag := Self.FMFFlag;
if ShowModal = 1 then
begin begin
FBCIOID := SELF.FBCIOID; FFMF := Trim(FName);
if ShowModal = 1 then FFMXID := Trim(FHINT);
begin
FFMF := Trim(FName);
FFMXID := Trim(FHINT);
// TEdit(FindComponent('MF' + Trim(IntToStr(FXJINT)))).Text := Trim(FName); // TEdit(FindComponent('MF' + Trim(IntToStr(FXJINT)))).Text := Trim(FName);
// TEdit(FindComponent('CODE' + Trim(IntToStr(FXJINT)))).Text := Trim(FHINT); // TEdit(FindComponent('CODE' + Trim(IntToStr(FXJINT)))).Text := Trim(FHINT);
// TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text := Trim(FName); // TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text := Trim(FName);
end;
end; end;
finally
frmSCPersonColor.close;
end; end;
finally
frmSCPersonColor.close;
end; end;
if FFMF = '' then if FFMF = '' then
EXIT; EXIT;
TEdit(FindComponent('CODE' + Trim(IntToStr(FXJINT)))).Text := Trim(FFMXID); TEdit(FindComponent('CODE' + Trim(IntToStr(FXJINT)))).Text := Trim(FFMXID);
with ADOTmp do // if FBCIOID = '' then
if FMFFlag = '分切' then
begin begin
Close; with ADOTmp do
sql.Clear; begin
sql.Add('SELECT A.* FROM Bs_Cloth_IO_MX A where A.MXID=''' + Trim(FFMXID) + ''''); Close;
Open; 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;
sql.Clear;
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; end;
TEdit(FindComponent('MF' + Trim(IntToStr(FXJINT)))).Text := ADOTmp.FieldByName('C_MXWIDTH').AsString; 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; end;
@ -3794,10 +3896,14 @@ begin
close; close;
sql.Clear; sql.Clear;
sql.Add('select * from Tat_Cloth_Inspect where CIID=''' + Trim(edtScan.Text) + ''' '); sql.Add('select * from Tat_Cloth_Inspect where CIID=''' + Trim(edtScan.Text) + ''' ');
// ShowMessage(sql.Text);
open; open;
end; end;
if ADOTmp.IsEmpty = FALSE then if ADOTmp.IsEmpty = FALSE then
begin 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 if Application.MessageBox('是否分切出库？', '提示', 32 + 4) <> IDYES then
begin begin
edtScan.Text := ''; edtScan.Text := '';
@ -3805,6 +3911,7 @@ begin
end end
else else
begin begin
FMFFlag := '分切';//为了选择门幅时做判断，为空选择产品门幅
InitJTM(edtScan.Text); InitJTM(edtScan.Text);
end; end;
@ -3812,6 +3919,7 @@ begin
else else
begin begin
ClearGlobal(); ClearGlobal();
FMFFlag := '不分切';//为了选择门幅时做判断，为空选择产品门幅
FOperationStatus := '布票'; FOperationStatus := '布票';
InitLCK(edtScan.Text); InitLCK(edtScan.Text);
InitJYGrid(); InitJYGrid();

BIN
E03梭织坯布检验/testDll.identcache
View File

Binary file not shown.

BIN
E03梭织坯布检验/testDll.res
View File

Binary file not shown.

86
E04梭织坯布仓库/TatClothStk.dproj.local
View File

@ -1,71 +1,71 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<BorlandProject> <BorlandProject>
<Transactions> <Transactions>
<Transaction>1899/12/30 00:00:00.000.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.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.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.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.471,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.pas=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.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.875,D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeDRList.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.390,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.dfm</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.538,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRtInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_KnitDRtInPut.dfm</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.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.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.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.463,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas</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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.720,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatDRList.dfm=D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRList.dfm</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.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.dfm=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.dfm</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.376,=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitDRtInPut.pas</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.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.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.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.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.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.930,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInList.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.187,D:\Dp10Repo\项目代码\RTBasics\H05涂层成品仓库\U_CoatDRtInPut.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.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.669,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothInEdit.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.813,=D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothOutList.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction> <Transaction>1899/12/30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899/12/30 00:00:00.000.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.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.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.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.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.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.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.822,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\KnitClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\InformationBase.dproj</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.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.393,D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZList.pas=D:\Dp10Repo\项目代码\恒燕\E04梭织坯布仓库\U_TatClothStkHZListSEL.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899/12/30 00:00:00.000.659,D:\Dp10Repo\项目代码\RTBasics\E04梭织坯布仓库\U_TatClothDROutEdit.pas=D:\Dp10Repo\项目代码\RTBasics\F06染色成品仓库\U_DyeClothDROutEdit.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.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> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="..\..\D10szXIANGYING"/> <File Path="..\..\D10szXIANGYING"/>

3
E04梭织坯布仓库/U_GetDllForm.pas
View File

@ -78,7 +78,8 @@ begin
dtbase := 'xiangyingszdata'; dtbase := 'xiangyingszdata';
user := 'xiangyingsa'; user := 'xiangyingsa';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
Parameters1 := '²éѯ'; // Parameters1 := '查询';
Parameters1 := '管理';
Parameters2 := '±¸»õ'; Parameters2 := '±¸»õ';
end end
else else

61
E04梭织坯布仓库/U_TatClothCKHZList.dfm
View File

@ -181,9 +181,9 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 143
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -251,6 +251,7 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
object v1Column22: TcxGridDBColumn object v1Column22: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked Properties.NullStyle = nssUnchecked
@ -258,27 +259,79 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Options.Sorting = False Options.Sorting = False
Width = 66 Width = 66
end 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 object Tv1Column3: TcxGridDBColumn
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end 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 object v1Column23: TcxGridDBColumn
Caption = #21367#25968 Caption = #21367#25968
DataBinding.FieldName = 'js' DataBinding.FieldName = 'js'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'stkMeter' DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end 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 end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -301,8 +354,8 @@ inherited frmTatClothCKHZList: TfrmTatClothCKHZList
Properties.Style = 9 Properties.Style = 9
Properties.TabIndex = 0 Properties.TabIndex = 0
Properties.Tabs.Strings = ( Properties.Tabs.Strings = (
#26377#26465#30721#20986#24211#27719#24635 #26377#20986#24211#21333#20986#24211
#26080#26465#30721#20986#24211#27719#24635) #26080#20986#24211#21333#20986#24211)
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 32 ClientRectBottom = 32
ClientRectRight = 1540 ClientRectRight = 1540

40
E04梭织坯布仓库/U_TatClothCKHZList.pas
View File

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd, RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC,
System.StrUtils; System.StrUtils, dxScrollbarAnnotations;
type type
TfrmTatClothCKHZList = class(TfrmBaseList) TfrmTatClothCKHZList = class(TfrmBaseList)
@ -48,6 +48,13 @@ type
PM11: TMenuItem; PM11: TMenuItem;
N1: TMenuItem; N1: TMenuItem;
cxTabControl1: TcxTabControl; 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 FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -120,8 +127,8 @@ begin
WSql := ' and ' + WSql; WSql := ' and ' + WSql;
if IsJYTime.Checked then if IsJYTime.Checked then
begin begin
WSql := WSql + ' and IOTime>=' + quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)); WSql := WSql + ' and A.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', enddate.DateTime + 1));
end; end;
try try
@ -133,16 +140,20 @@ begin
Close; Close;
sql.Clear; 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); sql.Add('SELECT A.C_CODE,A.C_Name,A.C_Width,A.C_GramWeight,A.IONo ');
if cxTabControl1.TabIndex = 0 then sql.Add(',ToCoName=max(B.ToCoName),ioTime=min(ioTime) ');
begin sql.Add(' ,js = count(*),Meter=sum(A.meter),NetWeight = sum(A.NetWeight) ');
SQL.Add('AND CHARINDEX(''T'',STKID )>0'); sql.Add(',pf = CAST(A.C_Width AS DECIMAL(18,2))/100*sum(A.meter) ');
end sql.Add(' FROM V_Tat_Cloth_IO A ');
else sql.Add(' left JOIN Tat_Cloth_DR_Main B on A.IONo = B.DRMID ');
begin sql.Add(' where A.IOFlag = ''³ö¿â'' and A.IONo<>'''' and A.IONo is not null ');
SQL.Add('AND CHARINDEX(''S'',STKID )>0'); sql.Add(WSql);
end; SQL.Add(' group by A.C_CODE ,A.C_Width,A.C_GramWeight,A.IONo,A.C_Name');
sql.Add('group by C_NAME'); SQL.Add(' order by A.IONo');
// showmessage(sql.text); // showmessage(sql.text);
Open; Open;
@ -219,7 +230,8 @@ begin
CurrentPage := 1; CurrentPage := 1;
RecordsNumber := 500; RecordsNumber := 500;
canshu1 := Trim(Self.fParameters1); canshu1 := Trim(Self.fParameters1);
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime;
SetStatus(); SetStatus();
InitGrid(); InitGrid();
end; end;

53
E04梭织坯布仓库/U_TatClothInList.dfm
View File

@ -7,7 +7,6 @@ inherited frmTatClothInList: TfrmTatClothInList
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -359
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 650 ExplicitHeight = 650
PixelsPerInch = 96 PixelsPerInch = 96
@ -236,6 +235,34 @@ inherited frmTatClothInList: TfrmTatClothInList
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end 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 object BegDate: TDateTimePicker
Left = 88 Left = 88
Top = 6 Top = 6
@ -382,6 +409,30 @@ inherited frmTatClothInList: TfrmTatClothInList
TabOrder = 13 TabOrder = 13
OnKeyPress = carnoKeyPress OnKeyPress = carnoKeyPress
end 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 end
object Panel6: TPanel [2] object Panel6: TPanel [2]
Left = 0 Left = 0

13
E04梭织坯布仓库/U_TatClothInList.pas
View File

@ -105,6 +105,10 @@ type
Tv1Column13: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn; Tv1Column16: TcxGridDBColumn;
Label4: TLabel;
dept: TEdit;
IOType: TComboBox;
Label8: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -130,6 +134,7 @@ type
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject); procedure N2Click(Sender: TObject);
procedure carnoKeyPress(Sender: TObject; var Key: Char); procedure carnoKeyPress(Sender: TObject; var Key: Char);
procedure IOTypeChange(Sender: TObject);
private private
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
lstCust: TStringList; lstCust: TStringList;
@ -197,7 +202,7 @@ begin
sql.Add(' from '); sql.Add(' from ');
sql.Add('(select rownumber=cast((row_number() over(order by A.IOTime desc)) as int)'); sql.Add('(select rownumber=cast((row_number() over(order by A.IOTime desc)) as int)');
sql.Add(',COUNT(1) OVER() AS TotalCount'); 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(') temp_row');
sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber))); sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber)));
sql.Add(' order by rownumber'); sql.Add(' order by rownumber');
@ -214,6 +219,11 @@ begin
end; end;
procedure TfrmTatClothInList.IOTypeChange(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTatClothInList.TBRafreshClick(Sender: TObject); procedure TfrmTatClothInList.TBRafreshClick(Sender: TObject);
begin begin
CurrentPage := 1; CurrentPage := 1;
@ -258,6 +268,7 @@ begin
RecordsNumber := 500; RecordsNumber := 500;
SetStatus(); SetStatus();
InitGrid();
end; end;
procedure TfrmTatClothInList.TBExportClick(Sender: TObject); procedure TfrmTatClothInList.TBExportClick(Sender: TObject);

33
E04梭织坯布仓库/U_TatClothOutList.dfm
View File

@ -235,6 +235,20 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end 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 object BegDate: TDateTimePicker
Left = 88 Left = 88
Top = 6 Top = 6
@ -309,6 +323,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 6 TabOrder = 6
OnKeyPress = orderNoKeyPress
end end
object STKID: TEdit object STKID: TEdit
Tag = 2 Tag = 2
@ -318,6 +333,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Height = 20 Height = 20
Hint = '1' Hint = '1'
TabOrder = 7 TabOrder = 7
OnKeyPress = orderNoKeyPress
end end
object C_Name: TEdit object C_Name: TEdit
Tag = 2 Tag = 2
@ -327,6 +343,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 8 TabOrder = 8
OnKeyPress = orderNoKeyPress
end end
object C_Color: TEdit object C_Color: TEdit
Tag = 2 Tag = 2
@ -336,6 +353,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 9 TabOrder = 9
OnKeyPress = orderNoKeyPress
end end
object C_Pattern: TEdit object C_Pattern: TEdit
Tag = 2 Tag = 2
@ -345,6 +363,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 10 TabOrder = 10
OnKeyPress = orderNoKeyPress
end end
object C_Code: TEdit object C_Code: TEdit
Tag = 2 Tag = 2
@ -354,6 +373,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 11 TabOrder = 11
OnKeyPress = orderNoKeyPress
end end
object jyg: TEdit object jyg: TEdit
Tag = 2 Tag = 2
@ -363,6 +383,7 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 12 TabOrder = 12
OnKeyPress = orderNoKeyPress
end end
object carno: TEdit object carno: TEdit
Tag = 1 Tag = 1
@ -372,9 +393,21 @@ inherited frmTatClothOutList: TfrmTatClothOutList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 13 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
end end
object Panel6: TPanel [2] object Panel6: TPanel [2]
Tag = 2
Left = 0 Left = 0
Top = 105 Top = 105
Width = 1540 Width = 1540

7
E04梭织坯布仓库/U_TatClothOutList.pas
View File

@ -102,6 +102,8 @@ type
Label4: TLabel; Label4: TLabel;
carno: TEdit; carno: TEdit;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Label6: TLabel;
dept: TEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -193,7 +195,8 @@ begin
sql.Add(' from '); sql.Add(' from ');
sql.Add('(select rownumber=cast((row_number() over(order by A.IOTime desc)) as int)'); sql.Add('(select rownumber=cast((row_number() over(order by A.IOTime desc)) as int)');
sql.Add(',COUNT(1) OVER() AS TotalCount'); 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(') temp_row');
sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber))); sql.Add(' where rownumber> ' + inttostr(((CurrentPage - 1) * RecordsNumber)));
sql.Add(' order by rownumber'); sql.Add(' order by rownumber');
@ -255,6 +258,8 @@ begin
FWorkshop := self.fParameters3; FWorkshop := self.fParameters3;
SetStatus(); SetStatus();
InitGrid();
end; end;
procedure TfrmTatClothOutList.TBExportClick(Sender: TObject); procedure TfrmTatClothOutList.TBExportClick(Sender: TObject);

183
E04梭织坯布仓库/U_TatClothRKHZList.dfm
View File

@ -77,7 +77,6 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 44
object Label2: TLabel object Label2: TLabel
Left = 70 Left = 70
Top = 36 Top = 36
@ -99,6 +98,62 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end 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 object BegDate: TDateTimePicker
Left = 88 Left = 88
Top = 6 Top = 6
@ -145,12 +200,14 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
Width = 73 Width = 73
Height = 17 Height = 17
Caption = #26597#35810#26085#26399 Caption = #26597#35810#26085#26399
Checked = True
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
State = cbChecked
TabOrder = 0 TabOrder = 0
OnClick = IsJYTimeClick OnClick = IsJYTimeClick
end end
@ -164,6 +221,50 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
TabOrder = 5 TabOrder = 5
OnKeyPress = C_NameKeyPress OnKeyPress = C_NameKeyPress
end 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 end
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
@ -180,7 +281,6 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 111
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -235,6 +335,50 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
end end
item item
Kind = skSum 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> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -265,6 +409,13 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object Tv1IOType: TcxGridDBColumn
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_width' DataBinding.FieldName = 'C_width'
@ -328,20 +479,6 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end 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 object Tv1Column13: TcxGridDBColumn
Caption = #20998#20999#21367#25968 Caption = #20998#20999#21367#25968
DataBinding.FieldName = 'fqJS' DataBinding.FieldName = 'fqJS'
@ -356,20 +493,6 @@ inherited frmTatClothRKHZList: TfrmTatClothRKHZList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end 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 object Tv1Column17: TcxGridDBColumn
Caption = #27979#35797#21367#25968 Caption = #27979#35797#21367#25968
DataBinding.FieldName = 'csJS' DataBinding.FieldName = 'csJS'

28
E04梭织坯布仓库/U_TatClothRKHZList.pas
View File

@ -54,15 +54,20 @@ type
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn; Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn;
Tv1Column19: 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 FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -86,6 +91,7 @@ type
procedure N1Click(Sender: TObject); procedure N1Click(Sender: TObject);
procedure IsJYTimeClick(Sender: TObject); procedure IsJYTimeClick(Sender: TObject);
procedure C_NameKeyPress(Sender: TObject; var Key: Char); procedure C_NameKeyPress(Sender: TObject; var Key: Char);
procedure IOTypeChange(Sender: TObject);
private private
CurrentPage, RecordsNumber: Integer; CurrentPage, RecordsNumber: Integer;
lstCust: TStringList; lstCust: TStringList;
@ -147,7 +153,7 @@ begin
Close; Close;
sql.Clear; 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(',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 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 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 1 ELSE 0 END )AS csJS');
SQL.Add(',SUM(CASE WHEN GRADE=''²âÊÔ'' THEN meter ELSE 0 END )AS csqty'); 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'); sql.Add('group by C_NAME, C_width,C_GramWeight,pcid');
@ -181,6 +187,12 @@ begin
end; end;
procedure TfrmTatClothRKHZList.IOTypeChange(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmTatClothRKHZList.IsJYTimeClick(Sender: TObject); procedure TfrmTatClothRKHZList.IsJYTimeClick(Sender: TObject);
begin begin
inherited; inherited;
@ -238,8 +250,12 @@ begin
RecordsNumber := 500; RecordsNumber := 500;
canshu1 := Trim(Self.fParameters1); canshu1 := Trim(Self.fParameters1);
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
BegDate.DateTime := EndDate.DateTime;
SetStatus(); SetStatus();
InitGrid();
end; end;
procedure TfrmTatClothRKHZList.TBExportClick(Sender: TObject); procedure TfrmTatClothRKHZList.TBExportClick(Sender: TObject);

90
E04梭织坯布仓库/U_TatClothStkHZList.dfm
View File

@ -7,7 +7,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -359
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 639 ExplicitHeight = 639
PixelsPerInch = 96 PixelsPerInch = 96
@ -99,6 +98,34 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end 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 object BegDate: TDateTimePicker
Left = 88 Left = 88
Top = 6 Top = 6
@ -164,6 +191,26 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
TabOrder = 5 TabOrder = 5
OnKeyPress = C_NameKeyPress OnKeyPress = C_NameKeyPress
end 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 end
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
@ -180,6 +227,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 111
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -261,11 +309,9 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column11
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column12
end end
item item
Kind = skSum Kind = skSum
@ -277,11 +323,9 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column15
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column16
end end
item item
Kind = skSum Kind = skSum
@ -338,13 +382,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object Tv1Column5: TcxGridDBColumn
Caption = #27969#36716#21345#21495
DataBinding.FieldName = 'pcid'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 68
end
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #20248#31561#21367#25968 Caption = #20248#31561#21367#25968
DataBinding.FieldName = 'YDJs' DataBinding.FieldName = 'YDJs'
@ -387,20 +424,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end 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 object Tv1Column13: TcxGridDBColumn
Caption = #20998#20999#21367#25968 Caption = #20998#20999#21367#25968
DataBinding.FieldName = 'fqJS' DataBinding.FieldName = 'fqJS'
@ -415,20 +438,6 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 80 Width = 80
end 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 object Tv1Column17: TcxGridDBColumn
Caption = #27979#35797#21367#25968 Caption = #27979#35797#21367#25968
DataBinding.FieldName = 'csJS' DataBinding.FieldName = 'csJS'
@ -493,6 +502,7 @@ inherited frmTatClothStkHZList: TfrmTatClothStkHZList
Top = 284 Top = 284
end end
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 728 Left = 728
Top = 288 Top = 288

15
E04梭织坯布仓库/U_TatClothStkHZList.pas
View File

@ -46,23 +46,22 @@ type
Tv1Column3: TcxGridDBColumn; Tv1Column3: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn; Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn; Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn; Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn; Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn; Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
Tv1Column17: TcxGridDBColumn; Tv1Column17: TcxGridDBColumn;
Tv1Column18: TcxGridDBColumn; Tv1Column18: TcxGridDBColumn;
Tv1Column19: TcxGridDBColumn; Tv1Column19: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
C_GramWeight: TEdit;
label12: TLabel;
C_width: TEdit;
label11: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -147,7 +146,7 @@ begin
Close; Close;
sql.Clear; 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(',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 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 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('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); // showmessage(sql.text);
Open; Open;
@ -239,7 +238,7 @@ begin
canshu1 := Trim(Self.fParameters1); canshu1 := Trim(Self.fParameters1);
SetStatus(); SetStatus();
InitGrid();
end; end;
procedure TfrmTatClothStkHZList.TBExportClick(Sender: TObject); procedure TfrmTatClothStkHZList.TBExportClick(Sender: TObject);

33
E04梭织坯布仓库/U_TatClothStkList.dfm
View File

@ -204,6 +204,20 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end 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 object BegDate: TDateTimePicker
Left = 88 Left = 88
Top = 6 Top = 6
@ -276,6 +290,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 6 TabOrder = 6
OnKeyPress = orderNoKeyPress
end end
object STKID: TEdit object STKID: TEdit
Tag = 2 Tag = 2
@ -285,6 +300,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Height = 20 Height = 20
Hint = '1' Hint = '1'
TabOrder = 7 TabOrder = 7
OnKeyPress = orderNoKeyPress
end end
object C_Name: TEdit object C_Name: TEdit
Tag = 2 Tag = 2
@ -294,6 +310,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 8 TabOrder = 8
OnKeyPress = orderNoKeyPress
end end
object C_Color: TEdit object C_Color: TEdit
Tag = 2 Tag = 2
@ -303,6 +320,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 9 TabOrder = 9
OnKeyPress = orderNoKeyPress
end end
object jyg: TEdit object jyg: TEdit
Tag = 2 Tag = 2
@ -312,6 +330,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 10 TabOrder = 10
OnKeyPress = orderNoKeyPress
end end
object C_Pattern: TEdit object C_Pattern: TEdit
Tag = 2 Tag = 2
@ -321,6 +340,7 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 11 TabOrder = 11
OnKeyPress = orderNoKeyPress
end end
object C_Code: TEdit object C_Code: TEdit
Tag = 2 Tag = 2
@ -330,6 +350,17 @@ inherited frmTatClothStkList: TfrmTatClothStkList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 12 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
end end
object Panel6: TPanel [2] object Panel6: TPanel [2]
@ -341,7 +372,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList
AutoSize = True AutoSize = True
BorderStyle = bsSingle BorderStyle = bsSingle
TabOrder = 2 TabOrder = 2
ExplicitTop = 111
DesignSize = ( DesignSize = (
1536 1536
23) 23)
@ -450,7 +480,6 @@ inherited frmTatClothStkList: TfrmTatClothStkList
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 3 TabOrder = 3
ExplicitTop = 133
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

4
E04梭织坯布仓库/U_TatClothStkList.pas
View File

@ -93,6 +93,8 @@ type
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
Tv1FlawList: TcxGridDBColumn; Tv1FlawList: TcxGridDBColumn;
Label1: TLabel;
dept: TEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);
@ -245,6 +247,8 @@ begin
SetStatus(); SetStatus();
v1Column4.Visible := false; v1Column4.Visible := false;
v1Column4.Hidden := true; v1Column4.Hidden := true;
InitGrid();
end; end;
procedure TfrmTatClothStkList.TBExportClick(Sender: TObject); procedure TfrmTatClothStkList.TBExportClick(Sender: TObject);

83
E04梭织坯布仓库/U_TatDRList.dfm
View File

@ -199,17 +199,19 @@ inherited frmTatDRList: TfrmTatDRList
end end
object cxGrid1: TcxGrid [1] object cxGrid1: TcxGrid [1]
Left = 0 Left = 0
Top = 140 Top = 142
Width = 1453 Width = 1453
Height = 224 Height = 222
Align = alClient Align = alClient
PopupMenu = PM_1
TabOrder = 3 TabOrder = 3
ExplicitTop = 142 ExplicitTop = 144
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
item item
@ -271,6 +273,7 @@ inherited frmTatDRList: TfrmTatDRList
Properties.ImmediatePost = True Properties.ImmediatePost = True
Properties.MultiLine = True Properties.MultiLine = True
Properties.NullStyle = nssUnchecked Properties.NullStyle = nssUnchecked
Properties.OnChange = v1Column4PropertiesChange
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 49 Width = 49
end end
@ -309,6 +312,13 @@ inherited frmTatDRList: TfrmTatDRList
Options.Editing = False Options.Editing = False
Width = 124 Width = 124
end end
object Tv1Telephone: TcxGridDBColumn
Caption = #32852#31995#30005#35805
DataBinding.FieldName = 'Telephone'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 91
end
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #30003#35831#20154 Caption = #30003#35831#20154
DataBinding.FieldName = 'Filler' DataBinding.FieldName = 'Filler'
@ -350,6 +360,13 @@ inherited frmTatDRList: TfrmTatDRList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 154 Width = 154
end end
object Tv1CoAddress: TcxGridDBColumn
Caption = #25910#36135#22320#22336
DataBinding.FieldName = 'CoAddress'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 384
end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #23436#25104#22791#27880 Caption = #23436#25104#22791#27880
DataBinding.FieldName = 'wcnote' DataBinding.FieldName = 'wcnote'
@ -385,6 +402,13 @@ inherited frmTatDRList: TfrmTatDRList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 70 Width = 70
end end
object Tv1Column7: TcxGridDBColumn
DataBinding.FieldName = 'sselJS'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -394,7 +418,7 @@ inherited frmTatDRList: TfrmTatDRList
Left = 0 Left = 0
Top = 76 Top = 76
Width = 1453 Width = 1453
Height = 43 Height = 45
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -486,6 +510,31 @@ inherited frmTatDRList: TfrmTatDRList
Font.Style = [] Font.Style = []
ParentFont = False ParentFont = False
end 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 object BegDate: TDateTimePicker
Left = 76 Left = 76
Top = 11 Top = 11
@ -573,7 +622,7 @@ inherited frmTatDRList: TfrmTatDRList
end end
object cxTabControl1: TcxTabControl [3] object cxTabControl1: TcxTabControl [3]
Left = 0 Left = 0
Top = 119 Top = 121
Width = 1453 Width = 1453
Height = 21 Height = 21
Align = alTop Align = alTop
@ -688,7 +737,7 @@ inherited frmTatDRList: TfrmTatDRList
Width = 81 Width = 81
end end
object cv1Column3: TcxGridDBColumn object cv1Column3: TcxGridDBColumn
Caption = #30003#35831#31859#25968 Caption = #27599#21367#31859#25968
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
@ -771,8 +820,8 @@ inherited frmTatDRList: TfrmTatDRList
object cxGridPopupMenu1: TcxGridPopupMenu object cxGridPopupMenu1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 1000 Left = 592
Top = 184 Top = 208
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_TatClothStk.ADOLink Connection = DataLink_TatClothStk.ADOLink
@ -838,4 +887,22 @@ inherited frmTatDRList: TfrmTatDRList
Left = 687 Left = 687
Top = 238 Top = 238
end 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 end

224
E04梭织坯布仓库/U_TatDRList.pas
View File

@ -102,6 +102,15 @@ type
TV2Volume: TcxGridDBColumn; TV2Volume: TcxGridDBColumn;
TV2Applicant: TcxGridDBColumn; TV2Applicant: TcxGridDBColumn;
TV2ApplicationReaon: TcxGridDBColumn; TV2ApplicationReaon: TcxGridDBColumn;
Tv1CoAddress: TcxGridDBColumn;
Label5: TLabel;
SSelJS: TLabel;
Tv1Column7: TcxGridDBColumn;
PM_1: TPopupMenu;
N1: TMenuItem;
PM11: TMenuItem;
Tv1Telephone: TcxGridDBColumn;
cxGridPopupMenu2: TcxGridPopupMenu;
//RMllPDFExport1: TRMllPDFExport; //RMllPDFExport1: TRMllPDFExport;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
@ -133,6 +142,9 @@ type
procedure ToolButton5Click(Sender: TObject); procedure ToolButton5Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject); procedure ToolButton7Click(Sender: TObject);
procedure TbGoodsEditClick(Sender: TObject); procedure TbGoodsEditClick(Sender: TObject);
procedure v1Column4PropertiesChange(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure PM11Click(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
procedure InitSubGrid(); procedure InitSubGrid();
@ -166,6 +178,8 @@ begin
ToolButton3.Enabled := False; ToolButton3.Enabled := False;
ToolButton5.Enabled := False; ToolButton5.Enabled := False;
TbGoodsEdit.Enabled := False; TbGoodsEdit.Enabled := False;
TBDel.Enabled := False;
if CANSHU1 = '查询' then if CANSHU1 = '查询' then
begin begin
ToolButton1.Enabled := True; ToolButton1.Enabled := True;
@ -178,7 +192,7 @@ begin
TBAdd.Enabled := True; TBAdd.Enabled := True;
TBEdit.Enabled := True; TBEdit.Enabled := True;
TBDel.Enabled := True; // TBDel.Enabled := True;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
1: 1:
begin begin
@ -196,11 +210,14 @@ begin
ToolButton3.Enabled := true; ToolButton3.Enabled := true;
// TbGoodsEdit.Enabled := True; // TbGoodsEdit.Enabled := True;
tchk.Enabled := true; tchk.Enabled := true;
TBDel.Enabled := True;
end; end;
1: 1:
begin begin
Tnochk.Enabled := true; Tnochk.Enabled := true;
btnWC.Enabled := true; btnWC.Enabled := true;
TBDel.Enabled := True;
end; end;
2: 2:
begin begin
@ -219,6 +236,8 @@ begin
begin begin
btnWC.Enabled := true; btnWC.Enabled := true;
// TBDel.Enabled := True;
end; end;
end; end;
end; end;
@ -246,17 +265,21 @@ procedure TfrmTatDRList.InitGrid();
begin begin
try try
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
sselJS.Caption := '0';
with ADOQueryMain do with ADOQueryMain do
begin begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
Sql.Add(' select A.* '); Sql.Add(' select A.*,B.CoAddress ');
sql.Add(' from Tat_Cloth_DR_Main A where 1=1'); 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 if CheckBox1.Checked then
begin begin
sql.Add(' and Filltime>=''' + FormatDateTime('yyyy-MM-dd', begdate.DateTime) + ''' '); sql.Add(' and A.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', Enddate.DateTime + 1) + ''' ');
end; end;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
@ -285,7 +308,7 @@ begin
begin begin
sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + ''''); sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + '''');
end; end;
sql.Add(' order by Filltime desc '); sql.Add(' order by A.Filltime desc ');
// ShowMessage(sql.Text); // ShowMessage(sql.Text);
Open; Open;
end; end;
@ -293,7 +316,6 @@ begin
SCreateCDS(ADOQueryMain, Order_Main); SCreateCDS(ADOQueryMain, Order_Main);
SInitCDSData(ADOQueryMain, Order_Main); SInitCDSData(ADOQueryMain, Order_Main);
finally finally
ADOQueryMain.EnableControls; ADOQueryMain.EnableControls;
TV1.DataController.Filter.Clear; TV1.DataController.Filter.Clear;
@ -347,11 +369,11 @@ begin
// Application.MessageBox('不能操作他人的数据!', '提示', 0); // Application.MessageBox('不能操作他人的数据!', '提示', 0);
// Exit; // Exit;
// end; // end;
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin begin
Application.MessageBox('不能操作他人的数据!', '提示', 0); Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit; Exit;
end; end;
// end; // end;
// with ADOQueryTemp do // with ADOQueryTemp do
// begin // begin
@ -371,7 +393,8 @@ begin
with frmTatDRtInPut do with frmTatDRtInPut do
begin begin
PState := 1; PState := 1;
Tv1Volume.Options.Editing := False;
Tv1ApplicationReaon.Options.Editing := False;
FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString); FDRMID := Trim(Self.Order_Main.fieldbyname('DRMID').AsString);
if ShowModal = 1 then if ShowModal = 1 then
begin begin
@ -387,15 +410,15 @@ procedure TfrmTatDRList.TBDelClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
Exit; Exit;
if cxTabControl1.TabIndex <> 0 then if (cxTabControl1.TabIndex <> 0) and (cxTabControl1.TabIndex <> 1) then
Exit; Exit;
// if canshu1 <> '管理' then // if canshu1 <> '管理' then
// begin // begin
if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then // if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
begin // begin
Application.MessageBox('不能操作他人的数据!', '提示', 0); // Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit; // Exit;
end; // end;
// end; // end;
with ADOQueryTemp do with ADOQueryTemp do
@ -461,17 +484,19 @@ end;
function TfrmTatDRList.DelData(): Boolean; function TfrmTatDRList.DelData(): Boolean;
begin begin
try try
with Order_Main do with Order_Main do
begin begin
DisableControls; DisableControls;
ADOQueryCmd.Connection.BeginTrans;
First; First;
while not eof do while not eof do
begin begin
if fieldbyname('SSel').AsBoolean then if fieldbyname('SSel').AsBoolean then
begin begin
Result := false; Result := false;
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
@ -649,7 +674,7 @@ begin
EnableControls; EnableControls;
end; end;
Order_Main.Delete; InitGrid();
InitSubGrid(); InitSubGrid();
application.MessageBox('取消成功！', '提示信息'); application.MessageBox('取消成功！', '提示信息');
except except
@ -710,7 +735,7 @@ begin
EnableControls; EnableControls;
end; end;
Order_Main.Delete; InitGrid();
InitSubGrid(); InitSubGrid();
application.MessageBox('撤销取消成功！', '提示信息'); application.MessageBox('撤销取消成功！', '提示信息');
except except
@ -751,13 +776,15 @@ begin
execsql; execsql;
end; end;
end; end;
next; next;
end; end;
First; First;
EnableControls; EnableControls;
end; end;
Order_Main.Delete; InitGrid();
InitSubGrid(); InitSubGrid();
application.MessageBox('审核成功！', '提示信息'); application.MessageBox('审核成功！', '提示信息');
except except
@ -774,12 +801,35 @@ begin
sql.Clear; sql.Clear;
sql.Add('select A.* '); sql.Add('select A.* ');
sql.Add('from Tat_Cloth_DR_Sub A where A.DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + ''''); sql.Add('from Tat_Cloth_DR_Sub A where A.DRMID=''' + Trim(Order_Main.fieldbyname('DRMID').AsString) + '''');
// ShowMessage(SQL.Text);
Open; Open;
end; end;
SCreateCDS(ADOQueryTemp, ClientDataSet2); SCreateCDS(ADOQueryTemp, ClientDataSet2);
SInitCDSData(ADOQueryTemp, ClientDataSet2); SInitCDSData(ADOQueryTemp, ClientDataSet2);
end; 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); procedure TfrmTatDRList.TnochkClick(Sender: TObject);
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
@ -809,7 +859,7 @@ begin
First; First;
EnableControls; EnableControls;
end; end;
Order_Main.Delete; InitGrid();
application.MessageBox('撤销成功！', '提示信息'); application.MessageBox('撤销成功！', '提示信息');
except except
application.MessageBox('撤销失败！', '提示信息', 0); application.MessageBox('撤销失败！', '提示信息', 0);
@ -1048,6 +1098,132 @@ begin
InitSubGrid(); InitSubGrid();
end; 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); procedure TfrmTatDRList.v1Column7PropertiesEditValueChanged(Sender: TObject);
var var
mvalue, FFieldName: string; mvalue, FFieldName: string;

34
E04梭织坯布仓库/U_TatDRtInPut.dfm
View File

@ -78,7 +78,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1252 Width = 1252
Height = 98 Height = 99
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
@ -204,6 +204,20 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
end 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 object OutType: TComboBox
Tag = 1 Tag = 1
Left = 306 Left = 306
@ -230,6 +244,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Top = 9 Top = 9
Width = 138 Width = 138
Height = 20 Height = 20
ReadOnly = True
TabOrder = 1 TabOrder = 1
OnBtnUpClick = ToCoNameBtnUpClick OnBtnUpClick = ToCoNameBtnUpClick
OnBtnDnClick = ToCoNameBtnDnClick OnBtnDnClick = ToCoNameBtnDnClick
@ -294,11 +309,20 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Height = 18 Height = 18
TabOrder = 8 TabOrder = 8
end end
object ToCoID: TEdit
Tag = 1
Left = 758
Top = 35
Width = 96
Height = 18
TabOrder = 9
Visible = False
end
end end
object ToolBar2: TToolBar object ToolBar2: TToolBar
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 136 Top = 137
Width = 1252 Width = 1252
Height = 38 Height = 38
AutoSize = True AutoSize = True
@ -364,9 +388,9 @@ object frmTatDRtInPut: TfrmTatDRtInPut
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 174 Top = 175
Width = 1252 Width = 1252
Height = 470 Height = 469
Align = alClient Align = alClient
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
@ -451,7 +475,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
Width = 81 Width = 81
end end
object Tv1Qty: TcxGridDBColumn object Tv1Qty: TcxGridDBColumn
Caption = #30003#35831#31859#25968 Caption = #27599#21367#31859#25968
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'

111
E04梭织坯布仓库/U_TatDRtInPut.pas
View File

@ -67,6 +67,8 @@ type
Tv1Applicant: TcxGridDBColumn; Tv1Applicant: TcxGridDBColumn;
Tv1ApplicationReaon: TcxGridDBColumn; Tv1ApplicationReaon: TcxGridDBColumn;
TbPHSave: TToolButton; TbPHSave: TToolButton;
Label7: TLabel;
ToCoID: TEdit;
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBSaveClick(Sender: TObject); procedure TBSaveClick(Sender: TObject);
@ -83,11 +85,13 @@ type
procedure ToolButton6Click(Sender: TObject); procedure ToolButton6Click(Sender: TObject);
procedure TbPHSaveClick(Sender: TObject); procedure TbPHSaveClick(Sender: TObject);
procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
private private
fuserName: string; fuserName: string;
procedure InitData(); procedure InitData();
function SaveData(): Boolean; function SaveData(): Boolean;
function SavePHData(): Boolean; function SavePHData(): Boolean;
procedure C_NumHB();
{ Private declarations } { Private declarations }
public public
PState, CopyInt: Integer; PState, CopyInt: Integer;
@ -286,6 +290,82 @@ begin
end; end;
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; function TfrmTatDRtInPut.SaveData(): Boolean;
var var
MaxMid, MaxSid: string; MaxMid, MaxSid: string;
@ -397,6 +477,7 @@ procedure TfrmTatDRtInPut.TBSaveClick(Sender: TObject);
var var
Freal: Double; Freal: Double;
begin begin
//ShowMessage(Order_Sub.FieldByName('Piece').AsString);
ToolBar1.SetFocus; ToolBar1.SetFocus;
if Trim(OutType.Text) = '' then if Trim(OutType.Text) = '' then
@ -409,11 +490,14 @@ begin
Application.MessageBox('客户不能为空！', '提示', 0); Application.MessageBox('客户不能为空！', '提示', 0);
Exit; Exit;
end; end;
if (Order_Sub.Locate('Piece', null, [])) and (Order_Sub.Locate('Qty', null, [])) = True then if (Order_Sub.Locate('Piece', null, [])) and (Order_Sub.Locate('Qty', null, [])) = True then
begin begin
Application.MessageBox('细码申请匹数和数量不能全为空！', '提示', 0); Application.MessageBox('细码申请匹数和数量不能全为空！', '提示', 0);
Exit; Exit;
end; end;
// ShowMessage(Order_Sub.FieldByName('Piece').AsString);
C_NumHB();
if SaveData() then if SaveData() then
begin begin
Application.MessageBox('保存成功！', '提示', 0); Application.MessageBox('保存成功！', '提示', 0);
@ -558,30 +642,18 @@ begin
begin begin
while cds_sub.locate('SSel', true, []) do while cds_sub.locate('SSel', true, []) do
begin 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)]); with Self.Order_Sub do
if self.Order_Sub.locate('C_name;C_width;C_GramWeight', LocateValues, []) then
begin begin
// 三个字段都匹配，执行编辑 - 这里已经定位到相同记录的那一条数据 Append;
FieldByName('C_Code').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').Value;
end FieldByName('C_Name').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Name').Value;
else
begin
// 三个字段不完全匹配，添加新记录
with Self.Order_Sub do
begin
Append;
FieldByName('C_Code').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Code').Value;
FieldByName('C_Name').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Name').Value;
// FieldByName('C_Spec').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Spec').Value; // FieldByName('C_Spec').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Spec').Value;
FieldByName('C_Width').Value := frmTatClothInfoSel.cds_sub.fieldbyname('C_MXMF').Value; FieldByName('C_Width').Value := frmTatClothInfoSel.cds_sub.fieldbyname('C_MXMF').Value;
FieldByName('C_GramWeight').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_GramWeight').Value; FieldByName('C_GramWeight').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_GramWeight').Value;
FieldByName('C_Color').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Color').Value; FieldByName('C_Color').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Color').Value;
// FieldByName('C_ColorNo').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_ColorNo').Value; // FieldByName('C_ColorNo').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_ColorNo').Value;
// FieldByName('C_Pattern').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Pattern').Value; // FieldByName('C_Pattern').Value := frmTatClothInfoSel.CDS_1.fieldbyname('C_Pattern').Value;
end;
end; end;
cds_sub.Edit; cds_sub.Edit;
cds_sub.fieldbyname('SSel').value := false; cds_sub.fieldbyname('SSel').value := false;
end; end;
@ -744,6 +816,7 @@ begin
begin begin
self.ToCoName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); self.ToCoName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.ToCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); self.ToCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
self.ToCoID.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoID').AsString);
end; end;
end; end;

14
F01染色坯布仓库/U_DyeGreyClothInEdit.dfm
View File

@ -10,6 +10,7 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
Font.Name = #23435#20307 Font.Name = #23435#20307
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -489
ExplicitWidth = 1356 ExplicitWidth = 1356
ExplicitHeight = 620 ExplicitHeight = 620
PixelsPerInch = 96 PixelsPerInch = 96
@ -22,6 +23,8 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
Height = 268 Height = 268
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = 1
ExplicitTop = 33
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -238,6 +241,13 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object Tv1C_WidthNum: TcxGridDBColumn
Caption = #38376#24133#20010#25968
DataBinding.FieldName = 'C_WidthNum'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -344,6 +354,8 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitLeft = 0
ExplicitTop = -5
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -369,8 +381,6 @@ inherited frmDyeGreyClothInEdit: TfrmDyeGreyClothInEdit
Height = 235 Height = 235
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitLeft = 2
ExplicitTop = 45
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

7
F01染色坯布仓库/U_DyeGreyClothInEdit.pas
View File

@ -81,6 +81,7 @@ type
TV2Column7: TcxGridDBColumn; TV2Column7: TcxGridDBColumn;
TV2C_MXSHWidth: TcxGridDBColumn; TV2C_MXSHWidth: TcxGridDBColumn;
TV2C_MXSHReason: TcxGridDBColumn; TV2C_MXSHReason: TcxGridDBColumn;
Tv1C_WidthNum: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -443,6 +444,12 @@ begin
Application.MessageBox('数量单位不能为空!', '提示', 0); Application.MessageBox('数量单位不能为空!', '提示', 0);
Exit; Exit;
end; 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 {if CDS_Sub.Locate('CRType;LCKNO', VarArrayOf(['回仓', Null]), [loPartialKey]) then
begin begin
Application.MessageBox('回仓的数据流程卡号不能为空!','提示',0); Application.MessageBox('回仓的数据流程卡号不能为空!','提示',0);

11
F01染色坯布仓库/U_DyeGreyClothInList.dfm
View File

@ -607,6 +607,13 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 67 Width = 67
end end
object Tv1C_WidthNum: TcxGridDBColumn
Caption = #38376#24133#20010#25968
DataBinding.FieldName = 'C_WidthNum'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
end end
object cxGrid2Level1: TcxGridLevel object cxGrid2Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -745,8 +752,8 @@ inherited frmDyeGreyClothInList: TfrmDyeGreyClothInList
end end
end end
object Panel2: TPanel [4] object Panel2: TPanel [4]
Left = 284 Left = 246
Top = 109 Top = 110
Width = 336 Width = 336
Height = 240 Height = 240
TabOrder = 4 TabOrder = 4

1
F01染色坯布仓库/U_DyeGreyClothInList.pas
View File

@ -122,6 +122,7 @@ type
TV2Column8: TcxGridDBColumn; TV2Column8: TcxGridDBColumn;
TV2C_MXSHWidth: TcxGridDBColumn; TV2C_MXSHWidth: TcxGridDBColumn;
TV2C_MXSHReason: TcxGridDBColumn; TV2C_MXSHReason: TcxGridDBColumn;
Tv1C_WidthNum: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject); procedure TBRafreshClick(Sender: TObject);