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

1021

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2024-10-21 17:19:42 +08:00
parent 6c5be1a5d7
commit bda12ab00a
57 changed files with 1137 additions and 202 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
A00通用窗体/U_UserSel.dfm
View File

@ -24,7 +24,7 @@ inherited frmUserSel: TfrmUserSel
ButtonWidth = 75 ButtonWidth = 75
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
Images = DataLink_Financial.ImageList_new32 Images = DataLink_Company.ImageList_new32
List = True List = True
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
@ -170,30 +170,30 @@ inherited frmUserSel: TfrmUserSel
end end
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = ADOConnection1
Left = 473 Left = 473
Top = 184 Top = 184
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = ADOConnection1
Left = 465 Left = 465
Top = 105 Top = 105
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = ADOConnection1
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 68 Left = 68
Top = 136 Top = 136
end end
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = ADOConnection1
Parameters = <> Parameters = <>
Left = 188 Left = 188
Top = 224 Top = 224
end end
object ADOQueryMain: TADOQuery object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink Connection = ADOConnection1
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 54 Left = 54

3
A01基础公司管理/Company.dpr
View File

@ -35,7 +35,8 @@ uses
U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint}, U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload}, U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload},
U_EmpFileUp in 'U_EmpFileUp.pas' {frmEmpFileUp}, U_EmpFileUp in 'U_EmpFileUp.pas' {frmEmpFileUp},
U_CoBankSel in 'U_CoBankSel.pas' {frmCoBankSel}; U_CoBankSel in 'U_CoBankSel.pas' {frmCoBankSel},
U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule};
{$R *.res} {$R *.res}

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

@ -220,6 +220,11 @@
<Form>frmCoBankSel</Form> <Form>frmCoBankSel</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\..\..\public10\design\U_BaseDataLink.pas">
<Form>BaseDataLink</Form>
<FormType>dfm</FormType>
<DesignClass>TDataModule</DesignClass>
</DCCReference>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>

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

@ -5,9 +5,9 @@
<Transaction>1899-12-30 00:00:00.000.212,=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_PictureUpload.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.212,=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_PictureUpload.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.921,D:\Dp10Repo\项目代码\鹏华\员工管理(StaffManage.dll)\U_CompanySel.pas=D:\Dp10Repo\项目代码\鹏华\客户供应商管理(Company.dll)\U_Company.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.670,=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_YGDJInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.670,=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_YGDJInput.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.956,=D:\Dp10Repo\项目代码\RTBasics\A01基础公司管理\U_EmployeeList.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.333,=D:\Dp10Repo\public10\design\U_BaseHelp.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.342,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.167,=D:\Dp10Repo\项目代码\D10myBiaoqi\A01基础公司管理\U_BankSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.167,=D:\Dp10Repo\项目代码\D10myBiaoqi\A01基础公司管理\U_BankSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.432,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_YGDJInput.pas=</Transaction> <Transaction>1899-12-30 00:00:00.000.432,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_YGDJInput.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.033,D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_YGSel.dfm=D:\Dp10Repo\项目代码\瑜量\客户供应商管理(Company.dll)\U_ZDYHelp.dfm</Transaction>
@ -33,8 +33,9 @@
<Transaction>1899-12-30 00:00:00.000.328,=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_YGRZInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.328,=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_YGRZInput.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.592,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_CustFileUp.dfm=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_EmpFileUp.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_CustFileUp.dfm=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_EmpFileUp.dfm</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.433,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_ZDYHelpSelX.dfm=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_ZDYHelpSel.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.433,D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_ZDYHelpSelX.dfm=D:\Dp10Repo\项目代码\骉骐\A01基础公司管理\U_ZDYHelpSel.dfm</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>2024-10-17 14:14:49.543,=D:\Dp10Repo\public10\design\U_BaseDataLink.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -93,6 +94,8 @@
<File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/> <File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
<File Path="..\..\..\public10\design\U_globalVar.pas"/> <File Path="..\..\..\public10\design\U_globalVar.pas"/>
<File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/> <File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
<File Path="..\..\..\public10\design\U_BaseDataLink.dfm"/>
<File Path="..\..\..\public10\ThreeFun"/> <File Path="..\..\..\public10\ThreeFun"/>
<File Path="..\..\..\public10\ThreeFun\Fun"/> <File Path="..\..\..\public10\ThreeFun\Fun"/>
<File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/> <File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>

BIN
A01基础公司管理/Company.identcache
View File

Binary file not shown.

9
A01基础公司管理/U_DataLink.dfm
View File

@ -1,9 +1,10 @@
object DataLink_Company: TDataLink_Company inherited DataLink_Company: TDataLink_Company
OldCreateOrder = False
OnCreate = DataModuleCreate
OnDestroy = DataModuleDestroy OnDestroy = DataModuleDestroy
Height = 349 Height = 349
Width = 482 Width = 482
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
end
object AdoDataLink: TADOQuery object AdoDataLink: TADOQuery
Connection = ADOLink Connection = ADOLink
Parameters = <> Parameters = <>
@ -10426,6 +10427,8 @@ object DataLink_Company: TDataLink_Company
object ThreeLookAndFeelCol: TcxLookAndFeelController object ThreeLookAndFeelCol: TcxLookAndFeelController
Kind = lfStandard Kind = lfStandard
NativeStyle = False NativeStyle = False
ScrollbarMode = sbmHybrid
SkinName = 'WXI'
Left = 253 Left = 253
Top = 12 Top = 12
end end

7
A01基础公司管理/U_DataLink.pas
View File

@ -5,7 +5,8 @@ interface
uses uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, dxSkinsCore, Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, dxSkinsCore,
dxSkinsDefaultPainters, System.ImageList, Vcl.ExtCtrls, SyncObjs, dxSkinWXI; dxSkinsDefaultPainters, System.ImageList, Vcl.ExtCtrls, SyncObjs, dxSkinWXI,
U_BaseDataLink, dxCore, cxLocalization, cxImageList, cxGraphics, dxSkinsForm;
type type
TMyThread = class(TThread) TMyThread = class(TThread)
@ -35,7 +36,7 @@ var
UserDataFlag: string; UserDataFlag: string;
type type
TDataLink_Company = class(TDataModule) TDataLink_Company = class(TBaseDataLink)
AdoDataLink: TADOQuery; AdoDataLink: TADOQuery;
ADOLink: TADOConnection; ADOLink: TADOConnection;
ThreeImgList: TImageList; ThreeImgList: TImageList;
@ -107,11 +108,13 @@ end;
procedure TDataLink_Company.DataModuleCreate(Sender: TObject); procedure TDataLink_Company.DataModuleCreate(Sender: TObject);
begin begin
inherited;
CriticalSection := TCriticalSection.Create; CriticalSection := TCriticalSection.Create;
end; end;
procedure TDataLink_Company.DataModuleDestroy(Sender: TObject); procedure TDataLink_Company.DataModuleDestroy(Sender: TObject);
begin begin
inherited;
CriticalSection.Free; CriticalSection.Free;
DataLink_Company := nil; DataLink_Company := nil;
end; end;

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

Binary file not shown.

4
A09财务通用管理/Financial.dpr
View File

@ -34,11 +34,11 @@ uses
U_handPayableList in 'U_handPayableList.pas' {frmhandPayableList}, U_handPayableList in 'U_handPayableList.pas' {frmhandPayableList},
U_HandPayableInPut in 'U_HandPayableInPut.pas' {frmHandPayableInPut}, U_HandPayableInPut in 'U_HandPayableInPut.pas' {frmHandPayableInPut},
U_HandPayableImport in 'U_HandPayableImport.pas' {frmHandPayableImport}, U_HandPayableImport in 'U_HandPayableImport.pas' {frmHandPayableImport},
U_UserSel in '..\A00通用窗体\U_UserSel.pas' {frmUserSel},
U_ProductInfoSel in '..\A00通用窗体\U_ProductInfoSel.pas' {frmProductInfoSel}, U_ProductInfoSel in '..\A00通用窗体\U_ProductInfoSel.pas' {frmProductInfoSel},
U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload}, U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload},
U_FinFileUp in 'U_FinFileUp.pas' {frmFinFileUp}, U_FinFileUp in 'U_FinFileUp.pas' {frmFinFileUp},
U_PayableEdit in 'U_PayableEdit.pas' {frmPayableEdit}; U_PayableEdit in 'U_PayableEdit.pas' {frmPayableEdit},
U_UserSel in 'U_UserSel.pas' {frmUserSel};
{$R *.res} {$R *.res}

8
A09财务通用管理/Financial.dproj
View File

@ -218,10 +218,6 @@
<Form>frmHandPayableImport</Form> <Form>frmHandPayableImport</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="..\A00通用窗体\U_UserSel.pas">
<Form>frmUserSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_ProductInfoSel.pas"> <DCCReference Include="..\A00通用窗体\U_ProductInfoSel.pas">
<Form>frmProductInfoSel</Form> <Form>frmProductInfoSel</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
@ -238,6 +234,10 @@
<Form>frmPayableEdit</Form> <Form>frmPayableEdit</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_UserSel.pas">
<Form>frmUserSel</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>

100
A09财务通用管理/Financial.dproj.local
View File

@ -1,58 +1,62 @@
<?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.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.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.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.487,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.349,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj</Transaction> <Transaction>1899-12-30 00:00:00.000.927,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableList.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.095,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableImport.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.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.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.064,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.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.318,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_ProductInfoSel.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=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.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.dfm</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.868,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\Financial.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.715,=D:\Dp10Repo\public10\design\U_BaseDataLink.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.646,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_PayableEdit.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.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.753,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.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.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.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.823,D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.dfm=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.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.823,D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.753,=D:\Dp10Repo\项目代码\骉骐\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.103,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_BankSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.715,=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.095,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableImport.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.552,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.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.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.402,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.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.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.061,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.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.040,=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.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.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.072,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_FinFileUp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.072,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_FinFileUp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.672,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_HandPayableInPut.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInInPut.dfm</Transaction> <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.040,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.345,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_FtyStatement.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.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.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.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.061,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.551,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_InvoiceInList.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_handPayableList.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.871,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.927,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableList.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.487,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_OtherPayableInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.621,D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutList.dfm=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceInList.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.318,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_ProductInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.308,D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_UserSel.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_UserSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.823,D:\Dp10Repo\项目代码\骉骐\A09财务通用管理\U_CompanySel.pas=D:\Dp10Repo\项目代码\骉骐\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.307,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.646,=D:\Dp10Repo\项目代码\D10myBiaoqi\A09财务通用管理\U_PayableEdit.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.076,=D:\Dp10Repo\项目代码\RTBasics\A09财务通用管理\U_InvoiceOutInPut.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.349,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
</Transactions> </Transactions>
<ProjectSortOrder AutoSort="0" SortType="0"> <ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/> <File Path="android-support-v4.dex.jar"/>
@ -101,8 +105,6 @@
<File Path="..\A00通用窗体\U_PictureUpload.dfm"/> <File Path="..\A00通用窗体\U_PictureUpload.dfm"/>
<File Path="..\A00通用窗体\U_ProductInfoSel.pas"/> <File Path="..\A00通用窗体\U_ProductInfoSel.pas"/>
<File Path="..\A00通用窗体\U_ProductInfoSel.dfm"/> <File Path="..\A00通用窗体\U_ProductInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_UserSel.pas"/>
<File Path="..\A00通用窗体\U_UserSel.dfm"/>
<File Path="..\T00贸易通用窗体"/> <File Path="..\T00贸易通用窗体"/>
<File Path="..\T00贸易通用窗体\U_TradePlanSel.pas"/> <File Path="..\T00贸易通用窗体\U_TradePlanSel.pas"/>
<File Path="..\T00贸易通用窗体\U_TradePlanSel.dfm"/> <File Path="..\T00贸易通用窗体\U_TradePlanSel.dfm"/>
@ -149,5 +151,7 @@
<File Path="U_FinFileUp.dfm"/> <File Path="U_FinFileUp.dfm"/>
<File Path="U_PayableEdit.pas"/> <File Path="U_PayableEdit.pas"/>
<File Path="U_PayableEdit.dfm"/> <File Path="U_PayableEdit.dfm"/>
<File Path="U_UserSel.pas"/>
<File Path="U_UserSel.dfm"/>
</ProjectSortOrder> </ProjectSortOrder>
</BorlandProject> </BorlandProject>

BIN
A09财务通用管理/Financial.identcache
View File

Binary file not shown.

4
A09财务通用管理/U_CollectInput.dfm
View File

@ -34,7 +34,6 @@ object frmCollectInput: TfrmCollectInput
ParentColor = False ParentColor = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
ExplicitWidth = 919
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -72,9 +71,6 @@ object frmCollectInput: TfrmCollectInput
ParentCtl3D = False ParentCtl3D = False
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 44
ExplicitWidth = 919
ExplicitHeight = 305
object Label2: TLabel object Label2: TLabel
Left = 245 Left = 245
Top = 20 Top = 20

14
A09财务通用管理/U_CollectInput.pas
View File

@ -76,7 +76,7 @@ type
function SaveData(): Boolean; function SaveData(): Boolean;
public public
{ Public declarations } { Public declarations }
FFFID: string; FFFID,PState: string;
end; end;
var var
@ -116,6 +116,14 @@ begin
FFTime.DateTime := SGetServerDateTime(ADOQueryTemp); FFTime.DateTime := SGetServerDateTime(ADOQueryTemp);
end; end;
if PState='¸´ÖÆ' then
begin
FFFID:='';
DKAmount.text:='';
Amount.text:='';
end;
finally finally
ADOQueryMain.EnableControls; ADOQueryMain.EnableControls;
end; end;
@ -285,7 +293,7 @@ begin
if Currency.text = 'USD' then if Currency.text = 'USD' then
begin begin
if MDKAmount / MHL >= 0 then if MDKAmount / MHL <> 0 then
begin begin
MAmount := RoundFloat((MDKAmount / MHL), 2); MAmount := RoundFloat((MDKAmount / MHL), 2);
end; end;
@ -293,7 +301,7 @@ begin
else if Currency.text = 'CNY' then else if Currency.text = 'CNY' then
begin begin
if MDKAmount * MHL >= 0 then if MDKAmount * MHL <> 0 then
begin begin
MAmount := RoundFloat((MDKAmount * MHL), 2); MAmount := RoundFloat((MDKAmount * MHL), 2);
end; end;

35
A09财务通用管理/U_CollectList.dfm
View File

@ -6,6 +6,7 @@ inherited frmCollectList: TfrmCollectList
ClientWidth = 1540 ClientWidth = 1540
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitLeft = -16
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 629 ExplicitHeight = 629
PixelsPerInch = 96 PixelsPerInch = 96
@ -51,16 +52,24 @@ inherited frmCollectList: TfrmCollectList
ImageIndex = 3 ImageIndex = 3
OnClick = btnEditClick OnClick = btnEditClick
end end
object btnDel: TToolButton object ToolButton1: TToolButton
Left = 213 Left = 213
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #22797#21046
ImageIndex = 9
OnClick = ToolButton1Click
end
object btnDel: TToolButton
Left = 284
Top = 0
AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
ImageIndex = 5 ImageIndex = 5
OnClick = btnDelClick OnClick = btnDelClick
end end
object btnChk: TToolButton object btnChk: TToolButton
Left = 284 Left = 355
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23457#26680 Caption = #23457#26680
@ -68,7 +77,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = btnChkClick OnClick = btnChkClick
end end
object btnReChk: TToolButton object btnReChk: TToolButton
Left = 355 Left = 426
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25764#38144#23457#26680 Caption = #25764#38144#23457#26680
@ -76,7 +85,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = btnReChkClick OnClick = btnReChkClick
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 450 Left = 521
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26680#38144 Caption = #26680#38144
@ -84,7 +93,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 521 Left = 592
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26680#38144#26085#24535 Caption = #26680#38144#26085#24535
@ -92,7 +101,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 616 Left = 687
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #38468#20214#19978#20256 Caption = #38468#20214#19978#20256
@ -100,7 +109,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 711 Left = 782
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -108,7 +117,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 782 Left = 853
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -116,7 +125,7 @@ inherited frmCollectList: TfrmCollectList
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 877 Left = 948
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -274,6 +283,7 @@ inherited frmCollectList: TfrmCollectList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 142
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -460,6 +470,13 @@ inherited frmCollectList: TfrmCollectList
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
end end
object Tv1Column9: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 84
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = Tv1 GridView = Tv1

22
A09财务通用管理/U_CollectList.pas
View File

@ -82,6 +82,8 @@ type
Tv1Column6: TcxGridDBColumn; Tv1Column6: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn; Tv1Column7: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn; Tv1Column8: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
ToolButton1: TToolButton;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure btnDelClick(Sender: TObject); procedure btnDelClick(Sender: TObject);
@ -102,6 +104,7 @@ type
procedure ToolButton8Click(Sender: TObject); procedure ToolButton8Click(Sender: TObject);
procedure ToolButton9Click(Sender: TObject); procedure ToolButton9Click(Sender: TObject);
procedure N3Click(Sender: TObject); procedure N3Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
private private
procedure InitGrid(); procedure InitGrid();
procedure SetStatus(); procedure SetStatus();
@ -477,6 +480,25 @@ begin
end; end;
end; end;
procedure TfrmCollectList.ToolButton1Click(Sender: TObject);
begin
try
frmCollectInput := TfrmCollectInput.Create(Application);
with frmCollectInput do
begin
FFFID := Trim(SELF.CDS_1.fieldbyname('FFID').AsString);
PState:='¸´ÖÆ';
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmCollectInput.Free;
end;
end;
procedure TfrmCollectList.ToolButton4Click(Sender: TObject); procedure TfrmCollectList.ToolButton4Click(Sender: TObject);
begin begin
if ADOQueryMain.IsEmpty then if ADOQueryMain.IsEmpty then

16
A09财务通用管理/U_CustStatement.dfm
View File

@ -270,7 +270,21 @@ inherited frmCustStatement: TfrmCustStatement
Properties.Alignment.Horz = taCenter Properties.Alignment.Horz = taCenter
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Width = 281 Width = 271
end
object Tv2Column3: TcxGridDBColumn
Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 93
end
object Tv2Column4: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 61
end end
object v2Column5: TcxGridDBColumn object v2Column5: TcxGridDBColumn
Caption = #19978#26399#27424#27454 Caption = #19978#26399#27424#27454

2
A09财务通用管理/U_CustStatement.pas
View File

@ -57,6 +57,8 @@ type
N1: TMenuItem; N1: TMenuItem;
Tv2Column1: TcxGridDBColumn; Tv2Column1: TcxGridDBColumn;
Tv2Column2: TcxGridDBColumn; Tv2Column2: TcxGridDBColumn;
Tv2Column3: TcxGridDBColumn;
Tv2Column4: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);

1
A09财务通用管理/U_ReceivableInput.dfm
View File

@ -72,7 +72,6 @@ object frmReceivableInput: TfrmReceivableInput
ParentFont = False ParentFont = False
TabOrder = 1 TabOrder = 1
OnClick = ScrollBox1Click OnClick = ScrollBox1Click
ExplicitTop = 44
object Label2: TLabel object Label2: TLabel
Left = 245 Left = 245
Top = 20 Top = 20

2
A09财务通用管理/U_ReceivableInput.pas
View File

@ -124,7 +124,7 @@ begin
MAmount := Strtofloatdef(Amount.Text, 0); MAmount := Strtofloatdef(Amount.Text, 0);
MYJ := Strtofloatdef(YJ.Text, 0); MYJ := Strtofloatdef(YJ.Text, 0);
if MQty * MPrice >= 0 then if MQty * MPrice <> 0 then
begin begin
MAmount := RoundFloat((MQty * MPrice * ((100-MYJ)/100) + MOtherFee - MDeduction), 2); MAmount := RoundFloat((MQty * MPrice * ((100-MYJ)/100) + MOtherFee - MDeduction), 2);
end; end;

7
A09财务通用管理/U_ReceivableList.dfm
View File

@ -6,6 +6,8 @@ inherited frmReceivableList: TfrmReceivableList
ClientWidth = 1540 ClientWidth = 1540
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitLeft = -398
ExplicitTop = -20
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 629 ExplicitHeight = 629
PixelsPerInch = 96 PixelsPerInch = 96
@ -274,6 +276,7 @@ inherited frmReceivableList: TfrmReceivableList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 2 TabOrder = 2
ExplicitTop = 142
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False Navigator.Buttons.Delete.Enabled = False
@ -307,6 +310,10 @@ inherited frmReceivableList: TfrmReceivableList
item item
Kind = skSum Kind = skSum
Column = Tv1Column25 Column = Tv1Column25
end
item
Kind = skSum
Column = Tv1Column30
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.GoToNextCellOnEnter = True

2
A09财务通用管理/U_ReceivableList.pas
View File

@ -177,7 +177,7 @@ begin
Close; Close;
SQL.Clear; SQL.Clear;
Filtered := False; Filtered := False;
sql.Add(' select A.*,Saleser=(select Saleser from BS_Company X where X.CoAbbrName=A.OppCoName) '); sql.Add(' select CONVERT(varchar,A.SailingSchedule,23) SailingSchedule,A.*,Saleser=(select Saleser from BS_Company X where X.CoAbbrName=A.OppCoName) ');
sql.Add(' from Finance_Flow A where A.FFType=''壇澗운되션'' '); sql.Add(' from Finance_Flow A where A.FFType=''壇澗운되션'' ');
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:

224
A09财务通用管理/U_UserSel.dfm Normal file
View File

@ -0,0 +1,224 @@
inherited frmUserSel: TfrmUserSel
Left = 770
Top = 211
Caption = #29992#25143#36873#25321
ClientHeight = 522
ClientWidth = 604
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307
OnClose = FormClose
ExplicitWidth = 620
ExplicitHeight = 561
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 604
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clSkyBlue
Images = DataLink_Financial.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #21047#26032
ImageIndex = 1
OnClick = TBRafreshClick
end
object ToolButton2: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #36807#28388
ImageIndex = 0
OnClick = ToolButton2Click
end
object btnOK: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #30830#35748
ImageIndex = 12
OnClick = btnOKClick
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 = 38
Width = 604
Height = 39
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
ExplicitTop = 18
object Label3: TLabel
Left = 202
Top = 13
Width = 24
Height = 12
Caption = #21517#31216
end
object Label1: TLabel
Left = 22
Top = 13
Width = 24
Height = 12
Caption = #32534#21495
end
object UserName: TEdit
Tag = 2
Left = 232
Top = 9
Width = 89
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 1
OnChange = UserNameChange
end
object UserID: TEdit
Tag = 2
Left = 52
Top = 9
Width = 89
Height = 20
ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
TabOrder = 0
OnChange = UserNameChange
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 77
Width = 604
Height = 445
Align = alClient
TabOrder = 2
ExplicitTop = 57
ExplicitHeight = 465
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True
OptionsCustomize.ColumnFiltering = False
OptionsView.GroupByBox = False
object VC_SSel: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
HeaderAlignmentHorz = taCenter
Width = 48
end
object v2Column1: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'UserID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
end
object v2Column2: TcxGridDBColumn
Caption = #21517#31216
DataBinding.FieldName = 'UserName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 171
end
object v2Column3: TcxGridDBColumn
Caption = #37096#38376
DataBinding.FieldName = 'Udept'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
end
end
object cxGridLevel1: TcxGridLevel
GridView = Tv1
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 473
Top = 184
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
Left = 465
Top = 105
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 68
Top = 136
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_Financial.ADOLink
Parameters = <>
Left = 188
Top = 224
end
object ADOQueryMain: TADOQuery
Connection = DataLink_Financial.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 54
Top = 224
end
object cxGridPopupMenu2: TcxGridPopupMenu
Grid = cxGrid1
PopupMenus = <>
Left = 211
Top = 124
end
object DS_1: TDataSource
DataSet = CDS_1
Left = 262
Top = 320
end
object CDS_1: TClientDataSet
Aggregates = <>
Params = <>
Left = 158
Top = 304
end
object ADOConnection1: TADOConnection
LoginPrompt = False
Left = 336
Top = 176
end
end

190
A09财务通用管理/U_UserSel.pas Normal file
View File

@ -0,0 +1,190 @@
unit U_UserSel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDBLookupComboBox, ComObj, cxLookAndFeels, cxLookAndFeelPainters,
dxSkinsCore, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, U_BaseHelp,
dxBarBuiltInMenu, System.ImageList, Vcl.ImgList, dxSkinWXI,
dxScrollbarAnnotations;
type
FdDy = record
inc: integer; //客户端套接字句柄
FDdys: string[32]; //客户端套接字
FdDysName: string[32]; //客户端套接字
end;
TfrmUserSel = class(TfrmBaseHelp)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
Panel1: TPanel;
ToolButton2: TToolButton;
ADOQueryMain: TADOQuery;
Label3: TLabel;
UserName: TEdit;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
cxGridLevel1: TcxGridLevel;
cxGridPopupMenu2: TcxGridPopupMenu;
DS_1: TDataSource;
CDS_1: TClientDataSet;
Label1: TLabel;
UserID: TEdit;
btnOK: TToolButton;
v2Column1: TcxGridDBColumn;
v2Column2: TcxGridDBColumn;
v2Column3: TcxGridDBColumn;
VC_SSel: TcxGridDBColumn;
ADOConnection1: TADOConnection;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure UserNameChange(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Tv1DblClick(Sender: TObject);
private
{ Private declarations }
procedure InitGrid();
public
Fdept: string;
FMultiple: Boolean;
end;
var
frmUserSel: TfrmUserSel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmUserSel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
SQL.Clear;
sql.Add(' select * from SY_User where 1=1 ');
if Trim(Fdept) <> '' then
begin
sql.Add('and Udept=' + QuotedStr(Trim(Fdept)));
end;
Open;
end;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmUserSel.FormCreate(Sender: TObject);
begin
inherited;
try
with ADOConnection1 do
begin
Connected := false;
ConnectionString := DConString;
Connected := true;
end;
ADOQueryBaseCmd.Connection := ADOConnection1;
ADOQueryBaseTemp.Connection := ADOConnection1;
except
application.MessageBox('网络连接失败！', '提示信息');
end;
end;
procedure TfrmUserSel.FormDestroy(Sender: TObject);
begin
inherited;
frmUserSel := nil;
end;
procedure TfrmUserSel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmUserSel.TBCloseClick(Sender: TObject);
begin
WriteCxGrid(trim(self.caption), Tv1, '账户选择');
Close;
end;
procedure TfrmUserSel.FormShow(Sender: TObject);
begin
inherited;
ReadCxGrid(trim(self.Caption), Tv1, '账户选择');
if FMultiple then
begin
VC_SSel.Visible := True;
VC_SSel.Hidden := False;
end
else
begin
VC_SSel.Visible := False;
VC_SSel.Hidden := True;
end;
InitGrid();
end;
procedure TfrmUserSel.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmUserSel.ToolButton2Click(Sender: TObject);
begin
if ADOQueryMain.Active then
begin
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
end;
procedure TfrmUserSel.Tv1DblClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmUserSel.UserNameChange(Sender: TObject);
begin
ToolButton2.Click;
end;
procedure TfrmUserSel.btnOKClick(Sender: TObject);
begin
ModalResult := 1;
end;
end.

BIN
B01基础合同管理/Contract.identcache
View File

Binary file not shown.

2
B01基础合同管理/U_SalesConInPut.dfm
View File

@ -11,8 +11,6 @@ inherited frmSalesConInPut: TfrmSalesConInPut
OldCreateOrder = True OldCreateOrder = True
Position = poScreenCenter Position = poScreenCenter
WindowState = wsMaximized WindowState = wsMaximized
ExplicitLeft = -326
ExplicitTop = -2
ExplicitWidth = 1533 ExplicitWidth = 1533
ExplicitHeight = 734 ExplicitHeight = 734
PixelsPerInch = 96 PixelsPerInch = 96

10
B01基础合同管理/U_SalesConInPut.pas
View File

@ -1341,6 +1341,16 @@ begin
First; First;
while not Eof do while not Eof do
begin begin
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from BS_Cloth_Info where C_Code=''' + Trim(Order_Sub.fieldbyname('C_Code').AsString) + '''');
Open;
end;
if ADOCmd.IsEmpty then
raise Exception.Create('产品编号不存在，不能保存！');
maxno := Trim(Order_Sub.fieldbyname('ConSId').AsString); maxno := Trim(Order_Sub.fieldbyname('ConSId').AsString);
with ADOCmd do with ADOCmd do
begin begin

1
T01贸易生产计划/U_TradePlanInPut.dfm
View File

@ -112,7 +112,6 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
OnClick = ScrollBox1Click OnClick = ScrollBox1Click
ExplicitTop = 32
object Label3: TLabel object Label3: TLabel
Left = 399 Left = 399
Top = 49 Top = 49

12
T01贸易生产计划/U_TradePlanInPut.pas
View File

@ -597,6 +597,8 @@ begin
First; First;
while not Eof do while not Eof do
begin begin
if Trim(CDS_1.fieldbyname('SubId').AsString) = '' then if Trim(CDS_1.fieldbyname('SubId').AsString) = '' then
begin begin
if GetLSNo(ADOCmd, Smaxno, 'JS', 'Trade_Plan_Sub', 4, 1) = False then if GetLSNo(ADOCmd, Smaxno, 'JS', 'Trade_Plan_Sub', 4, 1) = False then
@ -699,6 +701,16 @@ begin
if ADOCmd.RecordCount > 1 then if ADOCmd.RecordCount > 1 then
raise Exception.Create('¶©µ¥ºÅÖظ´!'); raise Exception.Create('¶©µ¥ºÅÖظ´!');
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('select * from BS_Cloth_Info where C_Code=''' + Trim(C_Code.Text) + '''');
Open;
end;
if ADOCmd.IsEmpty then
raise Exception.Create('产品编号不存在，不能保存！');
FMainId := Trim(maxno); FMainId := Trim(maxno);
ADOCmd.Connection.CommitTrans; ADOCmd.Connection.CommitTrans;

28
T01贸易生产计划/U_TradePlanList.dfm
View File

@ -411,6 +411,14 @@ inherited frmTradePlanList: TfrmTradePlanList
item item
Kind = skSum Kind = skSum
Column = Tv1Column10 Column = Tv1Column10
end
item
Kind = skSum
Column = Tv1Column20
end
item
Kind = skSum
Column = Tv1Column21
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -604,6 +612,20 @@ inherited frmTradePlanList: TfrmTradePlanList
DataBinding.FieldName = 'FtyName' DataBinding.FieldName = 'FtyName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
end end
object Tv1Column20: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'Length'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column21: TcxGridDBColumn
Caption = #37325#37327
DataBinding.FieldName = 'Weight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
Caption = #36319#21333#21592 Caption = #36319#21333#21592
DataBinding.FieldName = 'FollowMan' DataBinding.FieldName = 'FollowMan'
@ -643,7 +665,7 @@ inherited frmTradePlanList: TfrmTradePlanList
' '#24453#25552#20132' ' ' '#24453#25552#20132' '
' '#24453#23457#26680' ' ' '#24453#23457#26680' '
' '#24050#23457#26680' ' ' '#24050#23457#26680' '
' '#26242#23384' ' ' '#26242#23384#21306' '
' '#29983#20135#23436#25104' ' ' '#29983#20135#23436#25104' '
' '#24050#23436#25104' ' ' '#24050#23436#25104' '
' '#20840#37096' ') ' '#20840#37096' ')
@ -856,8 +878,8 @@ inherited frmTradePlanList: TfrmTradePlanList
end end
end end
object Panel3: TPanel [6] object Panel3: TPanel [6]
Left = 71 Left = -49
Top = 195 Top = 201
Width = 1177 Width = 1177
Height = 634 Height = 634
Color = clBtnHighlight Color = clBtnHighlight

56
T01贸易生产计划/U_TradePlanList.pas
View File

@ -161,6 +161,8 @@ type
DBFS: TBtnEditC; DBFS: TBtnEditC;
ToolButton7: TToolButton; ToolButton7: TToolButton;
ToolButton8: TToolButton; ToolButton8: TToolButton;
Tv1Column20: TcxGridDBColumn;
Tv1Column21: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -275,7 +277,7 @@ begin
ToolButton7.Enabled := False; ToolButton7.Enabled := False;
ToolButton8.Enabled := False; ToolButton8.Enabled := False;
if (canshu1 = '¼Èë') or (canshu1='¹ÜÀí') then if (canshu1 = '¼Èë') or (canshu1 = '¹ÜÀí') then
begin begin
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
@ -422,28 +424,28 @@ begin
exit; exit;
end; end;
MMeter := 0; MMeter := tv1.DataController.Summary.FooterSummaryValues[2];
MKG := 0; MKG := tv1.DataController.Summary.FooterSummaryValues[3];
with Order_Main do // with Order_Main do
begin // begin
First; // First;
while not Eof do // while not Eof do
begin // begin
if FieldByName('OrdUnit').ASString = 'Kg' then // if FieldByName('OrdUnit').ASString = 'Kg' then
begin // begin
MKG := MKG + StrToFloat(FieldByName('OrdQty').AsString); // MKG := MKG + StrToFloat(FieldByName('OrdQty').AsString);
end // end
else if FieldByName('OrdUnit').ASString = 'M' then // else if FieldByName('OrdUnit').ASString = 'M' then
begin // begin
MMeter := MMeter + StrToFloat(FieldByName('OrdQty').AsString); // MMeter := MMeter + StrToFloat(FieldByName('OrdQty').AsString);
end // end
else if FieldByName('OrdUnit').ASString = 'Y' then // else if FieldByName('OrdUnit').ASString = 'Y' then
begin // begin
MMeter := MMeter + RoundFloat(StrToFloat(FieldByName('OrdQty').AsString) * 0.9144, 2); // MMeter := MMeter + RoundFloat(StrToFloat(FieldByName('OrdQty').AsString) * 0.9144, 2);
end; // end;
Next; // Next;
end; // end;
end; // end;
Label5.Caption := '×ÜÃ×Êý£º' + FloattoStr(MMeter) + ' ×ÜÖØÁ¿£º' + FloattoStr(MKG) Label5.Caption := '×ÜÃ×Êý£º' + FloattoStr(MMeter) + ' ×ÜÖØÁ¿£º' + FloattoStr(MKG)
end; end;
@ -530,9 +532,13 @@ begin
end; end;
3: 3:
begin begin
STRwhere := STRwhere + ' and isnull(A.status,''0'')=''11'' '; STRwhere := STRwhere + ' and isnull(A.status,''0'')=''7'' ';
end; end;
4: 4:
begin
STRwhere := STRwhere + ' and isnull(A.status,''0'')=''11'' ';
end;
5:
begin begin
STRwhere := STRwhere + ' and isnull(A.status,''0'')=''10'' '; STRwhere := STRwhere + ' and isnull(A.status,''0'')=''10'' ';
end; end;
@ -1533,7 +1539,7 @@ begin
begin begin
close; close;
sql.Clear; sql.Clear;
sql.Add('update Trade_Plan_Main SET status=''9'' '); sql.Add('update Trade_Plan_Main SET status=''11'' ');
sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString))); sql.Add('where mainID=' + quotedstr(trim(Order_Main.fieldbyname('mainID').AsString)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( '); sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName))); sql.Add(' ' + quotedstr(trim(DName)));

3
T02贸易汇总仓库/U_TradeFinishClothInEdit.dfm
View File

@ -85,7 +85,8 @@ inherited frmTradeFinishClothInEdit: TfrmTradeFinishClothInEdit
#29983#20135#36864#22238 #29983#20135#36864#22238
#30424#30408#20837#24211 #30424#30408#20837#24211
#38144#21806#36864#22238 #38144#21806#36864#22238
#26399#21021#20837#24211) #26399#21021#20837#24211
#22238#20462#20837#24211)
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 87 Width = 87
end end

37
T02贸易汇总仓库/U_TradeFinishClothInEdit.pas
View File

@ -216,20 +216,20 @@ begin
// if CDS_Sub.fieldbyname('IOType').Value = '²É¹ºÈë¿â' then // if CDS_Sub.fieldbyname('IOType').Value = '²É¹ºÈë¿â' then
// begin // begin
with ADOQueryCmd do with ADOQueryCmd do
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) '); sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails) ');
sql.Add('values(''´ý¼ì²¼Èë¿â'' '); sql.Add('values(''待检布入库'' ');
sql.Add(',' + quotedstr(Maxno)); sql.Add(',' + quotedstr(Maxno));
sql.Add(',''±£´æ'' '); sql.Add(',''保存'' ');
sql.Add(',' + quotedstr(DName)); sql.Add(',' + quotedstr(DName));
sql.Add(',' + quotedstr(trim(self.Caption))); sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(Maxno)); sql.Add(',' + quotedstr(Maxno));
sql.Add(') '); sql.Add(') ');
ExecSQL; ExecSQL;
end; end;
// end; // end;
Edit; Edit;
@ -559,7 +559,14 @@ begin
frmCompanySel := TfrmCompanySel.Create(Application); frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do with frmCompanySel do
begin begin
FCoType := '¹©Ó¦ÉÌ'; if CDS_Sub.FieldByName('IOType').value = '销售退回' then
begin
FCoType := '客户';
end
else
begin
FCoType := '供应商';
end;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
with Self.CDS_Sub do with Self.CDS_Sub do

3
T02贸易汇总仓库/U_TradeFinishClothInList.dfm
View File

@ -241,7 +241,8 @@ inherited frmTradeFinishClothInList: TfrmTradeFinishClothInList
#21152#24037#20837#24211 #21152#24037#20837#24211
#29983#20135#36864#22238 #29983#20135#36864#22238
#30424#30408#20837#24211 #30424#30408#20837#24211
#38144#21806#36864#22238) #38144#21806#36864#22238
#22238#20462#20837#24211)
end end
object BatchNo: TEdit object BatchNo: TEdit
Tag = 2 Tag = 2

30
T02贸易汇总仓库/U_TradeFinishClothOutEdit.dfm
View File

@ -87,6 +87,7 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource3 DataController.DataSource = DataSource3
DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
@ -121,11 +122,13 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object Tv1Column11: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = #35745#21010#21333#21495 Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'FromOrdNo' DataBinding.FieldName = 'FromOrdNo'
DataBinding.IsNullValueType = True
Options.Editing = False Options.Editing = False
end end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #20986#24211#21333#21495 Caption = #20986#24211#21333#21495
DataBinding.FieldName = 'BCIOID' DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 91 Width = 91
@ -133,6 +136,7 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object v1Column2: TcxGridDBColumn object v1Column2: TcxGridDBColumn
Caption = #20986#24211#26102#38388 Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False Properties.SaveTime = False
Properties.ShowTime = False Properties.ShowTime = False
@ -142,6 +146,7 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object v1CRType: TcxGridDBColumn object v1CRType: TcxGridDBColumn
Caption = #20986#24211#31867#22411 Caption = #20986#24211#31867#22411
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.DropDownRows = 20 Properties.DropDownRows = 20
@ -152,13 +157,14 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
#36864#36135#20986#24211 #36864#36135#20986#24211
#35843#25320#20986#24211 #35843#25320#20986#24211
#30424#20111#20986#24211 #30424#20111#20986#24211
'') #22238#20462#20986#24211)
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 79 Width = 79
end end
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #37319#36141#21152#24037#21512#21516#21495 Caption = #37319#36141#21152#24037#21512#21516#21495
DataBinding.FieldName = 'ConNo' DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -175,6 +181,7 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #20986#21040#21333#20301 Caption = #20986#21040#21333#20301
DataBinding.FieldName = 'ToCoName' DataBinding.FieldName = 'ToCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -189,6 +196,7 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object v1Column13: TcxGridDBColumn object v1Column13: TcxGridDBColumn
Caption = #20986#21040#35745#21010#21333 Caption = #20986#21040#35745#21010#21333
DataBinding.FieldName = 'ToOrdNo' DataBinding.FieldName = 'ToOrdNo'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -203,6 +211,7 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #23384#25918#21333#20301 Caption = #23384#25918#21333#20301
DataBinding.FieldName = 'StkCoName' DataBinding.FieldName = 'StkCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 78 Width = 78
@ -210,6 +219,7 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #26469#33258#21333#20301 Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName' DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 82 Width = 82
@ -217,6 +227,7 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object v2Column1: TcxGridDBColumn object v2Column1: TcxGridDBColumn
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'C_name' DataBinding.FieldName = 'C_name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -230,6 +241,7 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn
Caption = #35268#26684 Caption = #35268#26684
DataBinding.FieldName = 'C_Spec' DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -238,6 +250,7 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 67 Width = 67
@ -245,12 +258,14 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 57 Width = 57
end end
object v1Column11: TcxGridDBColumn object v1Column11: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 73 Width = 73
@ -258,6 +273,7 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object v1Column7: TcxGridDBColumn object v1Column7: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 77 Width = 77
@ -265,6 +281,7 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object v1CheJian: TcxGridDBColumn object v1CheJian: TcxGridDBColumn
Caption = #36710#38388 Caption = #36710#38388
DataBinding.FieldName = 'Workshop' DataBinding.FieldName = 'Workshop'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 69 Width = 69
@ -272,6 +289,7 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object v1Column14: TcxGridDBColumn object v1Column14: TcxGridDBColumn
Caption = #21305#25968 Caption = #21305#25968
DataBinding.FieldName = 'Piece' DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged Properties.OnEditValueChanged = v1Column14PropertiesEditValueChanged
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -280,6 +298,7 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object v2Column6: TcxGridDBColumn object v2Column6: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 85 Width = 85
@ -287,6 +306,7 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -294,17 +314,20 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
Width = 79 Width = 79
end end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #33394#21035 Caption = #33394#21035
DataBinding.FieldName = 'C_ColorDepth' DataBinding.FieldName = 'C_ColorDepth'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 76 Width = 76
@ -312,6 +335,7 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 74 Width = 74
@ -319,12 +343,14 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #26579#21378#32568#21495 Caption = #26579#21378#32568#21495
DataBinding.FieldName = 'FtyPCId' DataBinding.FieldName = 'FtyPCId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -332,6 +358,7 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'C_Composition' DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -339,6 +366,7 @@ inherited frmTradeFinishClothOutEdit: TfrmTradeFinishClothOutEdit
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
Caption = #27454#21495 Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo' DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66

2
T02贸易汇总仓库/U_TradeFinishClothOutEdit.pas
View File

@ -11,7 +11,7 @@ uses
cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, cxSpinEdit, cxGridPopupMenu, ADODB, DBClient, cxButtonEdit, cxTextEdit, cxSpinEdit,
StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, StdCtrls, ExtCtrls, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
U_BaseInput, System.ImageList, Vcl.ImgList; U_BaseInput, System.ImageList, Vcl.ImgList, dxSkinWXI, dxScrollbarAnnotations;
type type
TfrmTradeFinishClothOutEdit = class(TfrmBaseInput) TfrmTradeFinishClothOutEdit = class(TfrmBaseInput)

38
T02贸易汇总仓库/U_TradeFinishClothOutList.dfm
View File

@ -241,7 +241,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
end end
object IOType: TComboBox object IOType: TComboBox
Tag = 2 Tag = 2
Left = 228 Left = 233
Top = 35 Top = 35
Width = 80 Width = 80
Height = 20 Height = 20
@ -256,7 +256,8 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
#38144#21806#20986#24211 #38144#21806#20986#24211
#36864#36135#20986#24211 #36864#36135#20986#24211
#35843#25320#20986#24211 #35843#25320#20986#24211
#30424#20111#20986#24211) #30424#20111#20986#24211
#22238#20462#20986#24211)
end end
object CheJian: TEdit object CheJian: TEdit
Tag = 2 Tag = 2
@ -296,6 +297,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
TabOrder = 2 TabOrder = 2
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DataSource1 DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = < DataController.Summary.DefaultGroupSummaryItems = <
@ -343,6 +345,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
object Tv1Column5: TcxGridDBColumn object Tv1Column5: 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
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -351,6 +354,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #36710#38388 Caption = #36710#38388
DataBinding.FieldName = 'Workshop' DataBinding.FieldName = 'Workshop'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 86 Width = 86
@ -358,6 +362,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #20986#24211#21333#21495 Caption = #20986#24211#21333#21495
DataBinding.FieldName = 'BCIOID' DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 83 Width = 83
@ -366,6 +371,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
Tag = 2 Tag = 2
Caption = #20986#24211#26102#38388 Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties' PropertiesClassName = 'TcxDateEditProperties'
Properties.SaveTime = False Properties.SaveTime = False
Properties.ShowTime = False Properties.ShowTime = False
@ -377,6 +383,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
Tag = 2 Tag = 2
Caption = #20986#24211#31867#22411 Caption = #20986#24211#31867#22411
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
@ -391,6 +398,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
Tag = 2 Tag = 2
Caption = #25152#23646#31867#22411 Caption = #25152#23646#31867#22411
DataBinding.FieldName = 'SSType' DataBinding.FieldName = 'SSType'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties' PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsFixedList Properties.DropDownListStyle = lsFixedList
Properties.Items.Strings = ( Properties.Items.Strings = (
@ -405,6 +413,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #37319#36141#21333#21495 Caption = #37319#36141#21333#21495
DataBinding.FieldName = 'ConNo' DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -415,6 +424,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
Tag = 2 Tag = 2
Caption = #26469#33258#21333#20301 Caption = #26469#33258#21333#20301
DataBinding.FieldName = 'FromCoName' DataBinding.FieldName = 'FromCoName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Alignment.Horz = taLeftJustify Properties.Alignment.Horz = taLeftJustify
Properties.Buttons = < Properties.Buttons = <
@ -430,6 +440,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
object v1Column13: TcxGridDBColumn object v1Column13: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 71 Width = 71
@ -437,12 +448,14 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
object v1Column16: TcxGridDBColumn object v1Column16: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
end end
object v1Column17: TcxGridDBColumn object v1Column17: TcxGridDBColumn
Caption = #21697#29260 Caption = #21697#29260
DataBinding.FieldName = 'SXPinPai' DataBinding.FieldName = 'SXPinPai'
DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -453,6 +466,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
Tag = 2 Tag = 2
Caption = #21697#21517 Caption = #21697#21517
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties' PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = < Properties.Buttons = <
item item
@ -466,6 +480,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
object v1Column20: TcxGridDBColumn object v1Column20: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'SPCode' DataBinding.FieldName = 'SPCode'
DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -476,6 +491,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
Tag = 2 Tag = 2
Caption = #35268#26684 Caption = #35268#26684
DataBinding.FieldName = 'C_Spec' DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -484,6 +500,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -493,12 +510,14 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 73 Width = 73
end end
object v1Column7: TcxGridDBColumn object v1Column7: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 68 Width = 68
@ -506,12 +525,14 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #26579#21378#32568#21495 Caption = #26579#21378#32568#21495
DataBinding.FieldName = 'FtyPCId' DataBinding.FieldName = 'FtyPCId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 78 Width = 78
end end
object v1Column18: TcxGridDBColumn object v1Column18: TcxGridDBColumn
Caption = #20986#21040#35745#21010#21333 Caption = #20986#21040#35745#21010#21333
DataBinding.FieldName = 'ToOrdNo' DataBinding.FieldName = 'ToOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 82 Width = 82
@ -519,12 +540,14 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
object Tv1Column12: TcxGridDBColumn object Tv1Column12: TcxGridDBColumn
Caption = #20986#21040#21333#20301 Caption = #20986#21040#21333#20301
DataBinding.FieldName = 'ToCoName' DataBinding.FieldName = 'ToCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 78 Width = 78
end end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #26469#33258#35745#21010#21333 Caption = #26469#33258#35745#21010#21333
DataBinding.FieldName = 'FromOrdNo' DataBinding.FieldName = 'FromOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 96 Width = 96
@ -532,6 +555,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
object v1Column19: TcxGridDBColumn object v1Column19: TcxGridDBColumn
Caption = #21305#25968 Caption = #21305#25968
DataBinding.FieldName = 'Piece' DataBinding.FieldName = 'Piece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 51 Width = 51
@ -540,6 +564,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
Tag = 2 Tag = 2
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'Qty' DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -549,6 +574,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
Tag = 2 Tag = 2
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit' DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 58 Width = 58
@ -556,12 +582,14 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 52 Width = 52
end end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #21305#37325 Caption = #21305#37325
DataBinding.FieldName = 'PieceWeight' DataBinding.FieldName = 'PieceWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -570,12 +598,14 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
Tag = 2 Tag = 2
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
Options.Editing = False Options.Editing = False
Width = 79 Width = 79
end end
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 78 Width = 78
@ -583,6 +613,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #33394#21035 Caption = #33394#21035
DataBinding.FieldName = 'C_ColorDepth' DataBinding.FieldName = 'C_ColorDepth'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 73 Width = 73
@ -590,6 +621,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -597,6 +629,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'C_Composition' DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -604,6 +637,7 @@ inherited frmTradeFinishClothOutList: TfrmTradeFinishClothOutList
object Tv1Column11: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = #27454#21495 Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo' DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66

3
T02贸易汇总仓库/U_TradeFinishClothOutList.pas
View File

@ -12,7 +12,8 @@ uses
cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset, cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC, RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList; cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, dxSkinWXI,
dxScrollbarAnnotations;
type type
TfrmTradeFinishClothOutList = class(TfrmBaseList) TfrmTradeFinishClothOutList = class(TfrmBaseList)

2
T03贸易布匹检验/TradeInsp.dproj
View File

@ -124,7 +124,7 @@
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\骉骐\T03贸易布匹检验\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>D:\Dp10Repo\项目代码\D10myBiaoqi\T03贸易布匹检验\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">

22
T03贸易布匹检验/TradeInsp.dproj.local
View File

@ -1,30 +1,30 @@
<?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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.966,=D:\Dp10Repo\项目代码\骉骐\T03贸易布匹检验\U_TradePack.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.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.582,=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.048,=D:\Dp10Repo\public10\design\U_BaseList.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\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.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.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.966,=D:\Dp10Repo\项目代码\骉骐\T03贸易布匹检验\U_TradePack.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj</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.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.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.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.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.589,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.589,=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.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj</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.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.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.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>
@ -33,7 +33,7 @@
<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.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.174,=D:\Dp10Repo\项目代码\骉骐\T03贸易布匹检验\U_TradeClothWaitPack.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.174,=D:\Dp10Repo\项目代码\骉骐\T03贸易布匹检验\U_TradeClothWaitPack.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction> <Transaction>1899-12-30 00:00:00.000.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions> </Transactions>
@ -66,7 +66,7 @@
<File Path="fmx.dex.jar"/> <File Path="fmx.dex.jar"/>
<File Path="google-play-billing.dex.jar"/> <File Path="google-play-billing.dex.jar"/>
<File Path="google-play-licensing.dex.jar"/> <File Path="google-play-licensing.dex.jar"/>
<File Path="..\..\骉骐"/> <File Path="..\..\D10myBiaoqi"/>
<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"/>

18
T03贸易布匹检验/U_DataLink.pas
View File

@ -5,7 +5,23 @@ interface
uses uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
dxSkinsCore, dxSkinsDefaultPainters, System.ImageList; dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinBasic,
dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue;
type type
TMyThread = class(TThread) TMyThread = class(TThread)

60
T03贸易布匹检验/U_TradeClothInspList.dfm
View File

@ -130,6 +130,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseUp = Tv1MouseUp OnMouseUp = Tv1MouseUp
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
@ -206,6 +207,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
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
@ -216,6 +218,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column21: TcxGridDBColumn object v1Column21: TcxGridDBColumn
Caption = #25171#30721#26102#38388 Caption = #25171#30721#26102#38388
DataBinding.FieldName = 'FillTime' DataBinding.FieldName = 'FillTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -223,6 +226,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column32: TcxGridDBColumn object v1Column32: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #21512#21516#21495
DataBinding.FieldName = 'conNO' DataBinding.FieldName = 'conNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -230,6 +234,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #35745#21010#21333#21495 Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo' DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -237,6 +242,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -244,6 +250,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column13: TcxGridDBColumn object v1Column13: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
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
@ -251,6 +258,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -258,6 +266,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column9: TcxGridDBColumn object v1Column9: TcxGridDBColumn
Caption = #30133#28857#25968#37327 Caption = #30133#28857#25968#37327
DataBinding.FieldName = 'CIFNumber' DataBinding.FieldName = 'CIFNumber'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -265,6 +274,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column7: TcxGridDBColumn object v1Column7: TcxGridDBColumn
Caption = #30133#28857#24773#20917 Caption = #30133#28857#24773#20917
DataBinding.FieldName = 'FlawList' DataBinding.FieldName = 'FlawList'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 122 Width = 122
@ -272,12 +282,14 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
Caption = #30133#28857#22791#27880 Caption = #30133#28857#22791#27880
DataBinding.FieldName = 'FwNote' DataBinding.FieldName = 'FwNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 108 Width = 108
end end
object v1Column17: TcxGridDBColumn object v1Column17: TcxGridDBColumn
Caption = #29366#24577 Caption = #29366#24577
DataBinding.FieldName = 'CIIOFlag' DataBinding.FieldName = 'CIIOFlag'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -285,6 +297,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column18: TcxGridDBColumn object v1Column18: TcxGridDBColumn
Caption = #26579#21378#32568#21495 Caption = #26579#21378#32568#21495
DataBinding.FieldName = 'FtyPCId' DataBinding.FieldName = 'FtyPCId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -292,6 +305,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column23: TcxGridDBColumn object v1Column23: TcxGridDBColumn
Caption = #21367#21495 Caption = #21367#21495
DataBinding.FieldName = 'PieceNo' DataBinding.FieldName = 'PieceNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -299,6 +313,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn
Caption = #27611#37325 Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight' DataBinding.FieldName = 'GrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -306,6 +321,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column27: TcxGridDBColumn object v1Column27: TcxGridDBColumn
Caption = #30382#37325 Caption = #30382#37325
DataBinding.FieldName = 'Tare' DataBinding.FieldName = 'Tare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -313,6 +329,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column28: TcxGridDBColumn object v1Column28: TcxGridDBColumn
Caption = #20928#37325 Caption = #20928#37325
DataBinding.FieldName = 'NetWeight' DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -320,6 +337,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'Meter' DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -327,6 +345,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
Caption = #30721#25968 Caption = #30721#25968
DataBinding.FieldName = 'Yardage' DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -334,6 +353,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column20: TcxGridDBColumn object v1Column20: TcxGridDBColumn
Caption = #25171#30721#20154 Caption = #25171#30721#20154
DataBinding.FieldName = 'Filler' DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -341,6 +361,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column14: TcxGridDBColumn object v1Column14: TcxGridDBColumn
Caption = #25187#20998 Caption = #25187#20998
DataBinding.FieldName = 'KouFenQty' DataBinding.FieldName = 'KouFenQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
VisibleForCustomization = False VisibleForCustomization = False
@ -349,6 +370,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #21697#36136 Caption = #21697#36136
DataBinding.FieldName = 'Grade' DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -356,6 +378,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column42: TcxGridDBColumn object v1Column42: TcxGridDBColumn
Caption = #24635#35760#24405#25968 Caption = #24635#35760#24405#25968
DataBinding.FieldName = 'TotalCount' DataBinding.FieldName = 'TotalCount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -363,6 +386,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #21367#26465#30721 Caption = #21367#26465#30721
DataBinding.FieldName = 'CIID' DataBinding.FieldName = 'CIID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -370,6 +394,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #23458#25143#33457#22411 Caption = #23458#25143#33457#22411
DataBinding.FieldName = 'C_CustPattern' DataBinding.FieldName = 'C_CustPattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -377,6 +402,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -384,6 +410,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -391,6 +418,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1MKXS: TcxGridDBColumn object v1MKXS: TcxGridDBColumn
Caption = #25442#31639#31995#25968 Caption = #25442#31639#31995#25968
DataBinding.FieldName = 'Coefficient' DataBinding.FieldName = 'Coefficient'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -398,6 +426,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column34: TcxGridDBColumn object v1Column34: TcxGridDBColumn
Caption = #32568#26465#30721 Caption = #32568#26465#30721
DataBinding.FieldName = 'BCIOID' DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -405,6 +434,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column40: TcxGridDBColumn object v1Column40: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -412,6 +442,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object v1Column46: TcxGridDBColumn object v1Column46: TcxGridDBColumn
Caption = #26816#39564#26426#21488 Caption = #26816#39564#26426#21488
DataBinding.FieldName = 'CIMachNo' DataBinding.FieldName = 'CIMachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -419,6 +450,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #21253#21495 Caption = #21253#21495
DataBinding.FieldName = 'PacketNo' DataBinding.FieldName = 'PacketNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -426,6 +458,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #23458#25143#21333#21495 Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -433,6 +466,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -440,6 +474,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #27454#21495 Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo' DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -447,6 +482,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #33521#25991#39068#33394 Caption = #33521#25991#39068#33394
DataBinding.FieldName = 'C_EColor' DataBinding.FieldName = 'C_EColor'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -454,6 +490,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNO' DataBinding.FieldName = 'BatchNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 59 Width = 59
end end
@ -568,6 +605,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Color = 16242829 Color = 16242829
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 39
object Label3: TLabel object Label3: TLabel
Left = 195 Left = 195
Top = 10 Top = 10
@ -583,12 +621,12 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
ParentFont = False ParentFont = False
end end
object TLabel object TLabel
Left = 362 Left = 356
Top = 10 Top = 10
Width = 39 Width = 52
Height = 12 Height = 12
Hint = '0' Hint = '0'
Caption = #21512#21516#21495 Caption = #23458#25143#21333#21495
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -12 Font.Height = -12
@ -653,7 +691,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
ParentFont = False ParentFont = False
end end
object Label5: TLabel object Label5: TLabel
Left = 362 Left = 356
Top = 40 Top = 40
Width = 39 Width = 39
Height = 12 Height = 12
@ -772,7 +810,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
end end
object OrderNo: TEdit object OrderNo: TEdit
Tag = 2 Tag = 2
Left = 248 Left = 250
Top = 6 Top = 6
Width = 100 Width = 100
Height = 20 Height = 20
@ -780,7 +818,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
TabOrder = 1 TabOrder = 1
OnKeyPress = OrderNoKeyPress OnKeyPress = OrderNoKeyPress
end end
object conNO: TEdit object BuyConNo: TEdit
Tag = 2 Tag = 2
Left = 406 Left = 406
Top = 6 Top = 6
@ -788,7 +826,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 7 TabOrder = 7
OnKeyPress = conNOKeyPress OnKeyPress = BuyConNoKeyPress
end end
object CIID: TEdit object CIID: TEdit
Tag = 2 Tag = 2
@ -826,7 +864,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 2 TabOrder = 2
OnKeyPress = conNOKeyPress OnKeyPress = BuyConNoKeyPress
end end
object CIIOFlag: TComboBox object CIIOFlag: TComboBox
Tag = 2 Tag = 2
@ -864,7 +902,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
Height = 20 Height = 20
Hint = '0' Hint = '0'
TabOrder = 8 TabOrder = 8
OnKeyPress = conNOKeyPress OnKeyPress = BuyConNoKeyPress
end end
object IsJYTime: TCheckBox object IsJYTime: TCheckBox
Left = 9 Left = 9
@ -914,8 +952,8 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
end end
object C_Code: TEdit object C_Code: TEdit
Tag = 2 Tag = 2
Left = 248 Left = 250
Top = 36 Top = 32
Width = 100 Width = 100
Height = 20 Height = 20
Hint = '0' Hint = '0'

24
T03贸易布匹检验/U_TradeClothInspList.pas
View File

@ -14,7 +14,23 @@ uses
RM_e_Jpeg, RM_e_txt, RM_e_csv, Math, Clipbrd, cxPC, cxLookAndFeels, RM_e_Jpeg, RM_e_txt, RM_e_csv, Math, Clipbrd, cxPC, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, U_BaseList, dxDateTimeWheelPicker, dxSkinsDefaultPainters, dxDateRanges, U_BaseList, dxDateTimeWheelPicker,
RM_RichEdit; RM_RichEdit, dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinXmas2008Blue, dxScrollbarAnnotations;
type type
TfrmTradeClothInspList = class(TfrmBaseList) TfrmTradeClothInspList = class(TfrmBaseList)
@ -33,7 +49,7 @@ type
OrderNo: TEdit; OrderNo: TEdit;
TBExport: TToolButton; TBExport: TToolButton;
Order_Main: TClientDataSet; Order_Main: TClientDataSet;
conNO: TEdit; BuyConNo: TEdit;
Label7: TLabel; Label7: TLabel;
Label8: TLabel; Label8: TLabel;
Label10: TLabel; Label10: TLabel;
@ -131,7 +147,7 @@ type
procedure BTNPClick(Sender: TObject); procedure BTNPClick(Sender: TObject);
procedure TCBNORChange(Sender: TObject); procedure TCBNORChange(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure conNOKeyPress(Sender: TObject; var Key: Char); procedure BuyConNoKeyPress(Sender: TObject; var Key: Char);
procedure CIIOFlagChange(Sender: TObject); procedure CIIOFlagChange(Sender: TObject);
procedure GradeChange(Sender: TObject); procedure GradeChange(Sender: TObject);
procedure KHConNOKeyPress(Sender: TObject; var Key: Char); procedure KHConNOKeyPress(Sender: TObject; var Key: Char);
@ -629,7 +645,7 @@ begin
InitGrid(); InitGrid();
end; end;
procedure TfrmTradeClothInspList.conNOKeyPress(Sender: TObject; var Key: Char); procedure TfrmTradeClothInspList.BuyConNoKeyPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = #13 then
begin begin

39
T03贸易布匹检验/U_TradeMachInsp.dfm
View File

@ -7,6 +7,7 @@
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -180
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 809 ExplicitHeight = 809
PixelsPerInch = 96 PixelsPerInch = 96
@ -1810,8 +1811,8 @@
OnClick = CIFBegClick OnClick = CIFBegClick
end end
object Button1: TButton object Button1: TButton
Left = 166 Left = 171
Top = 306 Top = 307
Width = 66 Width = 66
Height = 43 Height = 43
Caption = #30830#23450 Caption = #30830#23450
@ -2084,6 +2085,7 @@
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
OnMouseDown = Tv3MouseDown OnMouseDown = Tv3MouseDown
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCustomDrawCell = Tv3CustomDrawCell OnCustomDrawCell = Tv3CustomDrawCell
DataController.DataSource = DS_3 DataController.DataSource = DS_3
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
@ -2135,6 +2137,7 @@
object v3Column1: TcxGridDBColumn object v3Column1: TcxGridDBColumn
Caption = #21367#21495 Caption = #21367#21495
DataBinding.FieldName = 'PieceNo' DataBinding.FieldName = 'PieceNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 40 Width = 40
@ -2142,6 +2145,7 @@
object Tv3Column3: TcxGridDBColumn object Tv3Column3: TcxGridDBColumn
Caption = #30721#25968 Caption = #30721#25968
DataBinding.FieldName = 'Yardage' DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 62 Width = 62
@ -2149,6 +2153,7 @@
object Tv3Column1: TcxGridDBColumn object Tv3Column1: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'Meter' DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 62 Width = 62
@ -2156,6 +2161,7 @@
object v3Column5: TcxGridDBColumn object v3Column5: TcxGridDBColumn
Caption = #20928#37325 Caption = #20928#37325
DataBinding.FieldName = 'NetWeight' DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Sorting = False Options.Sorting = False
@ -2164,6 +2170,7 @@
object v3Column4: TcxGridDBColumn object v3Column4: TcxGridDBColumn
Caption = #27611#37325 Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight' DataBinding.FieldName = 'GrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Sorting = False Options.Sorting = False
@ -2172,6 +2179,7 @@
object Tv3Column4: TcxGridDBColumn object Tv3Column4: TcxGridDBColumn
Caption = #31561#32423 Caption = #31561#32423
DataBinding.FieldName = 'Grade' DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 54 Width = 54
@ -2179,6 +2187,7 @@
object cxGridDBColumn1: TcxGridDBColumn object cxGridDBColumn1: TcxGridDBColumn
Caption = #21367#26465#30721 Caption = #21367#26465#30721
DataBinding.FieldName = 'CIID' DataBinding.FieldName = 'CIID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Sorting = False Options.Sorting = False
@ -2187,6 +2196,7 @@
object Tv3Column2: TcxGridDBColumn object Tv3Column2: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNO' DataBinding.FieldName = 'BatchNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 56 Width = 56
end end
@ -2211,10 +2221,6 @@
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
Caption = #24405#20837 Caption = #24405#20837
ImageIndex = 0 ImageIndex = 0
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 0 Left = 0
Top = 0 Top = 0
@ -2222,9 +2228,9 @@
Height = 169 Height = 169
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitTop = 1
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv2CellDblClick OnCellDblClick = Tv2CellDblClick
DataController.DataSource = DS_2 DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
@ -2253,6 +2259,7 @@
object tv2CDType: TcxGridDBColumn object tv2CDType: TcxGridDBColumn
Caption = #30133#28857#21517#31216 Caption = #30133#28857#21517#31216
DataBinding.FieldName = 'CIFName' DataBinding.FieldName = 'CIFName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Options.Sorting = False Options.Sorting = False
@ -2261,6 +2268,7 @@
object tv2CDWZ: TcxGridDBColumn object tv2CDWZ: TcxGridDBColumn
Caption = #20301#32622#36215 Caption = #20301#32622#36215
DataBinding.FieldName = 'CIFbeg' DataBinding.FieldName = 'CIFbeg'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
@ -2272,6 +2280,7 @@
object v2Column2: TcxGridDBColumn object v2Column2: TcxGridDBColumn
Caption = #20301#32622#27490 Caption = #20301#32622#27490
DataBinding.FieldName = 'CIFend' DataBinding.FieldName = 'CIFend'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Styles.Content = cxStyle1 Styles.Content = cxStyle1
@ -2281,6 +2290,7 @@
object Tv2CDQty: TcxGridDBColumn object Tv2CDQty: TcxGridDBColumn
Caption = #38271#24230 Caption = #38271#24230
DataBinding.FieldName = 'CIFQty' DataBinding.FieldName = 'CIFQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Sorting = False Options.Sorting = False
@ -2289,6 +2299,7 @@
object Tv2CDReason: TcxGridDBColumn object Tv2CDReason: TcxGridDBColumn
Caption = #21407#22240 Caption = #21407#22240
DataBinding.FieldName = 'CDReason' DataBinding.FieldName = 'CDReason'
DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Sorting = False Options.Sorting = False
@ -2298,12 +2309,14 @@
end end
object v2Column1: TcxGridDBColumn object v2Column1: TcxGridDBColumn
DataBinding.FieldName = 'CDQty' DataBinding.FieldName = 'CDQty'
DataBinding.IsNullValueType = True
Visible = False Visible = False
Width = 60 Width = 60
end end
object v2Column3: TcxGridDBColumn object v2Column3: TcxGridDBColumn
Caption = #25187#20998 Caption = #25187#20998
DataBinding.FieldName = 'CIFPoints' DataBinding.FieldName = 'CIFPoints'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 54 Width = 54
@ -2311,6 +2324,7 @@
object v2Column4: TcxGridDBColumn object v2Column4: TcxGridDBColumn
Caption = #20010#25968 Caption = #20010#25968
DataBinding.FieldName = 'CIFNumber' DataBinding.FieldName = 'CIFNumber'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 36 Width = 36
@ -2318,6 +2332,7 @@
object Tv2Column1: TcxGridDBColumn object Tv2Column1: TcxGridDBColumn
Caption = #30133#28857#22791#27880 Caption = #30133#28857#22791#27880
DataBinding.FieldName = 'FwNote' DataBinding.FieldName = 'FwNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 114 Width = 114
end end
@ -2339,6 +2354,7 @@
TabOrder = 0 TabOrder = 0
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]
@ -2366,6 +2382,7 @@
object cxGridDBColumn2: TcxGridDBColumn object cxGridDBColumn2: TcxGridDBColumn
Caption = #30133#28857#21517#31216 Caption = #30133#28857#21517#31216
DataBinding.FieldName = 'CIFName' DataBinding.FieldName = 'CIFName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Options.Sorting = False Options.Sorting = False
@ -2374,6 +2391,7 @@
object cxGridDBColumn3: TcxGridDBColumn object cxGridDBColumn3: TcxGridDBColumn
Caption = #20301#32622#36215 Caption = #20301#32622#36215
DataBinding.FieldName = 'CIFbeg' DataBinding.FieldName = 'CIFbeg'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
@ -2385,6 +2403,7 @@
object cxGridDBColumn4: TcxGridDBColumn object cxGridDBColumn4: TcxGridDBColumn
Caption = #20301#32622#27490 Caption = #20301#32622#27490
DataBinding.FieldName = 'CIFend' DataBinding.FieldName = 'CIFend'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Styles.Content = cxStyle1 Styles.Content = cxStyle1
@ -2394,6 +2413,7 @@
object cxGridDBColumn5: TcxGridDBColumn object cxGridDBColumn5: TcxGridDBColumn
Caption = #38271#24230 Caption = #38271#24230
DataBinding.FieldName = 'CIFQty' DataBinding.FieldName = 'CIFQty'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Sorting = False Options.Sorting = False
@ -2402,6 +2422,7 @@
object cxGridDBColumn6: TcxGridDBColumn object cxGridDBColumn6: TcxGridDBColumn
Caption = #21407#22240 Caption = #21407#22240
DataBinding.FieldName = 'CDReason' DataBinding.FieldName = 'CDReason'
DataBinding.IsNullValueType = True
Visible = False Visible = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Sorting = False Options.Sorting = False
@ -2411,12 +2432,14 @@
end end
object cxGridDBColumn7: TcxGridDBColumn object cxGridDBColumn7: TcxGridDBColumn
DataBinding.FieldName = 'CDQty' DataBinding.FieldName = 'CDQty'
DataBinding.IsNullValueType = True
Visible = False Visible = False
Width = 60 Width = 60
end end
object cxGridDBColumn8: TcxGridDBColumn object cxGridDBColumn8: TcxGridDBColumn
Caption = #25187#20998 Caption = #25187#20998
DataBinding.FieldName = 'CIFPoints' DataBinding.FieldName = 'CIFPoints'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 54 Width = 54
@ -2424,6 +2447,7 @@
object cxGridDBColumn9: TcxGridDBColumn object cxGridDBColumn9: TcxGridDBColumn
Caption = #20010#25968 Caption = #20010#25968
DataBinding.FieldName = 'CIFNumber' DataBinding.FieldName = 'CIFNumber'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 36 Width = 36
@ -2431,6 +2455,7 @@
object TV1Column1: TcxGridDBColumn object TV1Column1: TcxGridDBColumn
Caption = #30133#28857#22791#27880 Caption = #30133#28857#22791#27880
DataBinding.FieldName = 'FwNote' DataBinding.FieldName = 'FwNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 122 Width = 122
end end

28
T03贸易布匹检验/U_TradeMachInsp.pas
View File

@ -14,7 +14,23 @@ uses
U_BaseList, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, U_BaseList, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
dxBarBuiltInMenu, cxContainer, cxImage, cxDBEdit, IdBaseComponent, IdComponent, dxBarBuiltInMenu, cxContainer, cxImage, cxDBEdit, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, ShellAPI, IdFTP, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase, ShellAPI, IdFTP,
FireDAC.Stan.StorageXML, cxPC, RM_RichEdit; FireDAC.Stan.StorageXML, cxPC, RM_RichEdit, dxSkinBasic, dxSkinBlack,
dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinXmas2008Blue, dxScrollbarAnnotations;
type type
TfrmTradeMachInsp = class(TfrmBaseList) TfrmTradeMachInsp = class(TfrmBaseList)
@ -1728,7 +1744,15 @@ begin
FieldByName('CIFName').Value := Trim(FCIFName); FieldByName('CIFName').Value := Trim(FCIFName);
FieldByName('CIFbeg').Value := Trim(CIFBeg.Text); FieldByName('CIFbeg').Value := Trim(CIFBeg.Text);
FieldByName('CIFEnd').Value := Trim(CIFEnd.Text); FieldByName('CIFEnd').Value := Trim(CIFEnd.Text);
FieldByName('FwNote').Value := Trim(FwNote.Text); // FieldByName('FwNote').Value := Trim(FwNote.Text);
if RadioGroup1.ItemIndex = 5 then
begin
FieldByName('FwNote').Value := 'Á¬ÐøÐÔ' + Trim(FwNote.text);
end
else if RadioGroup1.ItemIndex = 4 then
begin
FieldByName('FwNote').Value := 'ÕûÆ¥' + Trim(FwNote.Text);
end;
FieldByName('CIFPoints').Value := 0; FieldByName('CIFPoints').Value := 0;
if RadioGroup1.ItemIndex > -1 then if RadioGroup1.ItemIndex > -1 then

BIN
T03贸易布匹检验/testDll.identcache
View File

Binary file not shown.

BIN
T04贸易明细仓库/TradeClothStk.identcache
View File

Binary file not shown.

59
T04贸易明细仓库/U_TradeClothInEdit.dfm
View File

@ -2,7 +2,8 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
Caption = #25104#21697#20837#24211#25195#25551 Caption = #25104#21697#20837#24211#25195#25551
ClientHeight = 632 ClientHeight = 632
ClientWidth = 1350 ClientWidth = 1350
ExplicitLeft = -116 ExplicitLeft = -208
ExplicitTop = -62
ExplicitWidth = 1366 ExplicitWidth = 1366
ExplicitHeight = 671 ExplicitHeight = 671
PixelsPerInch = 96 PixelsPerInch = 96
@ -22,9 +23,9 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
Height = 423 Height = 423
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitWidth = 607
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.Summary.DefaultGroupSummaryItems = <> DataController.Summary.DefaultGroupSummaryItems = <>
@ -63,6 +64,7 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #36873#25321 Caption = #36873#25321
DataBinding.FieldName = 'SSel' DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
Properties.NullStyle = nssUnchecked Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -73,12 +75,14 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object v1Column11: TcxGridDBColumn object v1Column11: TcxGridDBColumn
Caption = #21367#26465#30721 Caption = #21367#26465#30721
DataBinding.FieldName = 'StkId' DataBinding.FieldName = 'StkId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 75 Width = 75
end end
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #21367#21495 Caption = #21367#21495
DataBinding.FieldName = 'PieceNo' DataBinding.FieldName = 'PieceNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Filtering = False Options.Filtering = False
@ -87,6 +91,7 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Filtering = False Options.Filtering = False
@ -95,12 +100,14 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 62 Width = 62
end end
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #21345#21495 Caption = #21345#21495
DataBinding.FieldName = 'PCID' DataBinding.FieldName = 'PCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 41 Width = 41
@ -108,6 +115,7 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object v2Column6: TcxGridDBColumn object v2Column6: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'StkMeter' DataBinding.FieldName = 'StkMeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Filtering = False Options.Filtering = False
@ -116,6 +124,7 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object v2Column5: TcxGridDBColumn object v2Column5: TcxGridDBColumn
Caption = #27611#37325 Caption = #27611#37325
DataBinding.FieldName = 'StkGrossWeight' DataBinding.FieldName = 'StkGrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Filtering = False Options.Filtering = False
@ -124,15 +133,24 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #32568#21495 Caption = #32568#21495
DataBinding.FieldName = 'BatchNO' DataBinding.FieldName = 'BatchNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 59 Width = 59
end end
object Tv1Column4: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 56
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -268,6 +286,7 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
TabOrder = 0 TabOrder = 0
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv2CellDblClick OnCellDblClick = Tv2CellDblClick
DataController.DataSource = DS_2 DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
@ -284,6 +303,7 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object v1OrderNo: TcxGridDBColumn object v1OrderNo: TcxGridDBColumn
Caption = #35745#21010#21333#21495 Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo' DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Options.Sorting = False Options.Sorting = False
@ -292,6 +312,7 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object v2Column2: TcxGridDBColumn object v2Column2: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'CustName' DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Width = 123 Width = 123
@ -299,6 +320,7 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object cxGridDBColumn2: TcxGridDBColumn object cxGridDBColumn2: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Options.Sorting = False Options.Sorting = False
@ -307,6 +329,7 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object cxGridDBColumn3: TcxGridDBColumn object cxGridDBColumn3: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Options.Sorting = False Options.Sorting = False
@ -315,12 +338,14 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object Tv2Column2: TcxGridDBColumn object Tv2Column2: TcxGridDBColumn
Caption = #21305#25968 Caption = #21305#25968
DataBinding.FieldName = 'OrdPiece' DataBinding.FieldName = 'OrdPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 48 Width = 48
end end
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'OrdQty' DataBinding.FieldName = 'OrdQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Width = 51 Width = 51
@ -328,6 +353,7 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object v1Column14: TcxGridDBColumn object v1Column14: TcxGridDBColumn
Caption = #21333#20301 Caption = #21333#20301
DataBinding.FieldName = 'OrdUnit' DataBinding.FieldName = 'OrdUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Width = 42 Width = 42
@ -335,6 +361,7 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object v1PRTMF: TcxGridDBColumn object v1PRTMF: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Options.Sorting = False Options.Sorting = False
@ -343,6 +370,7 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object v1PRTKZ: TcxGridDBColumn object v1PRTKZ: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Focusing = False Options.Focusing = False
Options.Sorting = False Options.Sorting = False
@ -351,12 +379,14 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object Tv2Column1: TcxGridDBColumn object Tv2Column1: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 57 Width = 57
end end
object Tv2Column3: TcxGridDBColumn object Tv2Column3: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 72 Width = 72
end end
@ -372,8 +402,6 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
Height = 165 Height = 165
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitLeft = 609
ExplicitWidth = 739
object Label4: TLabel object Label4: TLabel
Left = 198 Left = 198
Top = 55 Top = 55
@ -460,7 +488,6 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 3 TabOrder = 3
ExplicitWidth = 737
object btnGetOutNo: TToolButton object btnGetOutNo: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -518,8 +545,6 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 1 TabOrder = 1
ExplicitLeft = 609
ExplicitWidth = 741
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 1 Left = 1
Top = 39 Top = 39
@ -527,9 +552,9 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
Height = 423 Height = 423
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitWidth = 739
object Tv3: TcxGridDBTableView object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_3 DataController.DataSource = DS_3
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -561,6 +586,7 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object v3Column5: TcxGridDBColumn object v3Column5: 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
@ -571,6 +597,7 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object cxGridDBColumn4: TcxGridDBColumn object cxGridDBColumn4: TcxGridDBColumn
Caption = #21367#21495 Caption = #21367#21495
DataBinding.FieldName = 'PieceNo' DataBinding.FieldName = 'PieceNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 52 Width = 52
@ -578,6 +605,7 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object v3MJID: TcxGridDBColumn object v3MJID: TcxGridDBColumn
Caption = #21367#26465#30721 Caption = #21367#26465#30721
DataBinding.FieldName = 'StkId' DataBinding.FieldName = 'StkId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 60 Width = 60
@ -585,6 +613,7 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object v3Column3: TcxGridDBColumn object v3Column3: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -592,12 +621,14 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object Tv3Column1: TcxGridDBColumn object Tv3Column1: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 67 Width = 67
end end
object v3Column4: TcxGridDBColumn object v3Column4: TcxGridDBColumn
Caption = #21345#21495 Caption = #21345#21495
DataBinding.FieldName = 'PCID' DataBinding.FieldName = 'PCID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 65 Width = 65
@ -605,6 +636,7 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object cxGridDBColumn6: TcxGridDBColumn object cxGridDBColumn6: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'StkMeter' DataBinding.FieldName = 'StkMeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Options.Focusing = False Options.Focusing = False
@ -613,6 +645,7 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object v3Column1: TcxGridDBColumn object v3Column1: TcxGridDBColumn
Caption = #27611#37325 Caption = #27611#37325
DataBinding.FieldName = 'StkGrossWeight' DataBinding.FieldName = 'StkGrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 59 Width = 59
@ -620,15 +653,24 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
object Tv3Column2: TcxGridDBColumn object Tv3Column2: TcxGridDBColumn
Caption = #32568#21495 Caption = #32568#21495
DataBinding.FieldName = 'BatchNO' DataBinding.FieldName = 'BatchNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object Tv3Column3: TcxGridDBColumn object Tv3Column3: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 53 Width = 53
end end
object Tv3Column4: TcxGridDBColumn
Caption = #31867#22411
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 51
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = Tv3 GridView = Tv3
@ -656,7 +698,6 @@ inherited frmTradeClothInEdit: TfrmTradeClothInEdit
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 1 TabOrder = 1
ExplicitWidth = 739
object ToolButton11: TToolButton object ToolButton11: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0

5
T04贸易明细仓库/U_TradeClothInEdit.pas
View File

@ -11,7 +11,8 @@ uses
cxControls, cxGridCustomView, cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls, cxControls, cxGridCustomView, cxGrid, MovePanel, cxCheckBox, Menus, ComCtrls,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, U_BaseList, dxSkinsCore, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, U_BaseList, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, RM_Common, RM_Class, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, RM_Common, RM_Class,
RM_GridReport, RM_Dataset, Vcl.ToolWin, BtnEdit; RM_GridReport, RM_Dataset, Vcl.ToolWin, BtnEdit, dxSkinWXI,
dxScrollbarAnnotations;
type type
TfrmTradeClothInEdit = class(TfrmBaseList) TfrmTradeClothInEdit = class(TfrmBaseList)
@ -98,6 +99,8 @@ type
Button1: TButton; Button1: TButton;
Button2: TButton; Button2: TButton;
StkType: TBtnEditC; StkType: TBtnEditC;
Tv1Column4: TcxGridDBColumn;
Tv3Column4: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);

31
T04贸易明细仓库/U_TradeClothOutList.dfm
View File

@ -447,6 +447,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
TabOrder = 3 TabOrder = 3
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
@ -519,6 +520,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
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
@ -529,6 +531,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object v1Column21: TcxGridDBColumn object v1Column21: TcxGridDBColumn
Caption = #20986#24211#26102#38388 Caption = #20986#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 103 Width = 103
@ -536,10 +539,12 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object Tv1Column11: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = #20986#24211#31867#22411 Caption = #20986#24211#31867#22411
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
end end
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
Caption = #20986#24211#21333#21495 Caption = #20986#24211#21333#21495
DataBinding.FieldName = 'IONO' DataBinding.FieldName = 'IONO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 82 Width = 82
@ -547,6 +552,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object v1Column32: TcxGridDBColumn object v1Column32: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNO' DataBinding.FieldName = 'ConNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 76 Width = 76
@ -554,6 +560,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #35745#21010#21333#21495 Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo' DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 92 Width = 92
@ -561,6 +568,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 74 Width = 74
@ -568,6 +576,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object v1Column13: TcxGridDBColumn object v1Column13: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
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
@ -575,6 +584,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -582,6 +592,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object v1Column23: TcxGridDBColumn object v1Column23: TcxGridDBColumn
Caption = #21367#21495 Caption = #21367#21495
DataBinding.FieldName = 'PieceNo' DataBinding.FieldName = 'PieceNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -589,6 +600,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn
Caption = #27611#37325 Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight' DataBinding.FieldName = 'GrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -596,6 +608,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object v1Column27: TcxGridDBColumn object v1Column27: TcxGridDBColumn
Caption = #30382#37325 Caption = #30382#37325
DataBinding.FieldName = 'Tare' DataBinding.FieldName = 'Tare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -603,6 +616,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object v1Column28: TcxGridDBColumn object v1Column28: TcxGridDBColumn
Caption = #20928#37325 Caption = #20928#37325
DataBinding.FieldName = 'NetWeight' DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -610,6 +624,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'Meter' DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -617,12 +632,14 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object Tv1Column12: TcxGridDBColumn object Tv1Column12: TcxGridDBColumn
Caption = #24211#20301 Caption = #24211#20301
DataBinding.FieldName = 'IOPosition' DataBinding.FieldName = 'IOPosition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 71 Width = 71
end end
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
Caption = #30721#25968 Caption = #30721#25968
DataBinding.FieldName = 'Yardage' DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -630,6 +647,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #21697#36136 Caption = #21697#36136
DataBinding.FieldName = 'Grade' DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -637,6 +655,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object v1Column42: TcxGridDBColumn object v1Column42: TcxGridDBColumn
Caption = #24635#35760#24405#25968 Caption = #24635#35760#24405#25968
DataBinding.FieldName = 'TotalCount' DataBinding.FieldName = 'TotalCount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -644,6 +663,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #21367#26465#30721 Caption = #21367#26465#30721
DataBinding.FieldName = 'CIID' DataBinding.FieldName = 'CIID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -651,6 +671,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #23458#25143#33457#22411 Caption = #23458#25143#33457#22411
DataBinding.FieldName = 'C_CustPattern' DataBinding.FieldName = 'C_CustPattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -658,6 +679,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -665,6 +687,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -672,6 +695,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object v1Column40: TcxGridDBColumn object v1Column40: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -679,6 +703,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #21253#21495 Caption = #21253#21495
DataBinding.FieldName = 'PacketNo' DataBinding.FieldName = 'PacketNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -686,11 +711,13 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object VC_BaoID: TcxGridDBColumn object VC_BaoID: TcxGridDBColumn
Caption = #21253#26465#30721 Caption = #21253#26465#30721
DataBinding.FieldName = 'PacketId' DataBinding.FieldName = 'PacketId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
end end
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #23458#25143#21333#21495 Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -698,6 +725,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -705,6 +733,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #27454#21495 Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo' DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -712,6 +741,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #33521#25991#39068#33394 Caption = #33521#25991#39068#33394
DataBinding.FieldName = 'C_EColor' DataBinding.FieldName = 'C_EColor'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -719,6 +749,7 @@ inherited frmTradeClothOutList: TfrmTradeClothOutList
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNO' DataBinding.FieldName = 'BatchNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end

2
T04贸易明细仓库/U_TradeClothOutList.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, dxSkinWXI, dxScrollbarAnnotations;
type type
TfrmTradeClothOutList = class(TfrmBaseList) TfrmTradeClothOutList = class(TfrmBaseList)

2
T04贸易明细仓库/U_TradeClothOutListNew.dfm
View File

@ -7,7 +7,6 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -368
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 639 ExplicitHeight = 639
PixelsPerInch = 96 PixelsPerInch = 96
@ -109,7 +108,6 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 5 Properties.Style = 5
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ExplicitTop = 44
ClientRectBottom = 562 ClientRectBottom = 562
ClientRectRight = 1540 ClientRectRight = 1540
ClientRectTop = 32 ClientRectTop = 32

33
T04贸易明细仓库/U_TradeClothOutListNew.pas
View File

@ -314,6 +314,22 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
// sql.Add(' with a as( ');
// sql.Add(' select DISTINCT A.IOID,A.StkId,A.IOCycles,A.IONo,A.IOTime,A.IOFlag,A.IOType,A.IOPosition,A.Tare,A.GrossWeight,A.NetWeight,A.Meter,A.Yardage ');
// sql.Add(',A.FillId,A.Filler,A.Filltime,A.EditId,A.Editer,A.Edittime,A.DelId,A.Deler,A.Deltime,REPLACE(REPLACE(IONote, CHAR(10), ''''), CHAR(13), '''') AS IONote');
// sql.Add(',B.CIID,B.StkCycles,B.StkExists,B.ConMId,B.ConSId,B.OrderNo,B.MainId,B.SubId,B.PCID,B.BCIOID,B.PacketId,B.PacketNo,B.PacketTime,B.PacketName,B.PacketCode,B.PieceNo,B.CoefficientType,B.Coefficient ');
// sql.Add(',B.StkPosition,B.StkGrossWeight,B.StkTare,B.StkNetWeight,B.StkMeter,B.StkYardage,B.Grade,B.BatchNo,B.CIMachNo,B.Loom,B.C_Code,B.C_Name,B.C_EName,B.C_Spec,B.C_Composition,B.C_EComposition,B.C_Color ');
// sql.Add(',B.C_Width,B.C_GramWeight,B.C_Pattern,B.C_ColorNo,B.C_EColor ');
// sql.Add(',B.C_StyleNo,B.C_CustPattern,B.STKName,B.Workshop,B.FtyPCId ');
// sql.Add(',C.CustName,C.Saleser,D.BuyConNo,C.ConNo ');
// sql.Add('from Trade_Cloth_IO A inner join Trade_Cloth_Stock B on A.STKID=B.StkId ');
// sql.Add(' left join Trade_Plan_Main C on B.MainId=C.MainId ');
// sql.Add('left join Trade_Plan_Sub D on D.MainId= C.MainID ');
// sql.Add(' where 1=1');
// sql.Add(WSql);
// sql.Add(')');
sql.Add(' select IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Name,PCId,IOType,Grade,CustName,C_Width,C_GramWeight'); sql.Add(' select IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Name,PCId,IOType,Grade,CustName,C_Width,C_GramWeight');
sql.Add(' ,CIMachNo,Workshop,BatchNo,IOPosition,IONote,C_Color,C_Pattern,Saleser,C_ColorNo,ConNo,BuyConNo,C_Code,IoNo '); sql.Add(' ,CIMachNo,Workshop,BatchNo,IOPosition,IONote,C_Color,C_Pattern,Saleser,C_ColorNo,ConNo,BuyConNo,C_Code,IoNo ');
sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight'); sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight');
@ -344,6 +360,21 @@ begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
// sql.Add(' with a as( ');
// sql.Add(' select DISTINCT A.IOID,A.StkId,A.IOCycles,A.IONo,A.IOTime,A.IOFlag,A.IOType,A.IOPosition,A.Tare,A.GrossWeight,A.NetWeight,A.Meter,A.Yardage ');
// sql.Add(',A.FillId,A.Filler,A.Filltime,A.EditId,A.Editer,A.Edittime,A.DelId,A.Deler,A.Deltime,REPLACE(REPLACE(IONote, CHAR(10), ''''), CHAR(13), '''') AS IONote');
// sql.Add(',B.CIID,B.StkCycles,B.StkExists,B.ConMId,B.ConSId,B.OrderNo,B.MainId,B.SubId,B.PCID,B.BCIOID,B.PacketId,B.PacketNo,B.PacketTime,B.PacketName,B.PacketCode,B.PieceNo,B.CoefficientType,B.Coefficient ');
// sql.Add(',B.StkPosition,B.StkGrossWeight,B.StkTare,B.StkNetWeight,B.StkMeter,B.StkYardage,B.Grade,B.BatchNo,B.CIMachNo,B.Loom,B.C_Code,B.C_Name,B.C_EName,B.C_Spec,B.C_Composition,B.C_EComposition,B.C_Color ');
// sql.Add(',B.C_Width,B.C_GramWeight,B.C_Pattern,B.C_ColorNo,B.C_EColor ');
// sql.Add(',B.C_StyleNo,B.C_CustPattern,B.STKName,B.Workshop,B.FtyPCId ');
// sql.Add(',C.CustName,C.Saleser,D.BuyConNo,C.ConNo ');
// sql.Add('from Trade_Cloth_IO A inner join Trade_Cloth_Stock B on A.STKID=B.StkId ');
// sql.Add(' left join Trade_Plan_Main C on B.MainId=C.MainId ');
// sql.Add('left join Trade_Plan_Sub D on D.MainId= C.MainID ');
// sql.Add(' where 1=1');
// sql.Add(WSql);
// sql.Add(')');
sql.Add(' select top ' + inttostr(RecordsNumber) + ' * '); sql.Add(' select top ' + inttostr(RecordsNumber) + ' * ');
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)');
@ -409,7 +440,7 @@ begin
exit; exit;
if cxPageControl1.ActivePageIndex = 0 then if cxPageControl1.ActivePageIndex = 0 then
begin begin
TcxGridToExcel(Self.Caption, cxGrid2); TcxGridToExcel(Self.Caption, cxGrid2);
end end
else else
begin begin

2
T04贸易明细仓库/U_TradeClothSplit.dfm
View File

@ -35,7 +35,7 @@ object frmTradeClothSplit: TfrmTradeClothSplit
end end
object Button1: TButton object Button1: TButton
Left = 208 Left = 208
Top = 38 Top = 37
Width = 75 Width = 75
Height = 21 Height = 21
Caption = #30830#35748 Caption = #30830#35748

2
T04贸易明细仓库/U_TradeClothSplit.pas
View File

@ -51,7 +51,7 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' exec P_JY_Cloth_CaiPi '); sql.Add(' exec P_Trade_Cloth_Split ');
sql.Add(' @StkID=' + QuotedStr(FStkID)); sql.Add(' @StkID=' + QuotedStr(FStkID));
sql.Add(',@SplitMeter=' + Len.Text); sql.Add(',@SplitMeter=' + Len.Text);
Sql.Add(',@FillId=' + quotedstr(DCode)); Sql.Add(',@FillId=' + quotedstr(DCode));

97
T04贸易明细仓库/U_TradeClothStkListNew.dfm
View File

@ -63,7 +63,6 @@
AutoSize = True AutoSize = True
Caption = #25286#21305 Caption = #25286#21305
ImageIndex = 23 ImageIndex = 23
Visible = False
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBExport: TToolButton object TBExport: TToolButton
@ -524,6 +523,7 @@
TabOrder = 1 TabOrder = 1
object TV2: TcxGridDBTableView object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = TV2CellDblClick OnCellDblClick = TV2CellDblClick
OnCustomDrawCell = TV2CustomDrawCell OnCustomDrawCell = TV2CustomDrawCell
DataController.DataSource = DS_2 DataController.DataSource = DS_2
@ -582,6 +582,10 @@
item item
Kind = skSum Kind = skSum
Column = cxGridDBColumn7 Column = cxGridDBColumn7
end
item
Kind = skSum
Column = TV2Column12
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -596,6 +600,7 @@
object cxGridDBColumn2: TcxGridDBColumn object cxGridDBColumn2: TcxGridDBColumn
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -603,6 +608,7 @@
object cxGridDBColumn13: TcxGridDBColumn object cxGridDBColumn13: TcxGridDBColumn
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 74 Width = 74
@ -611,6 +617,7 @@
Tag = 11 Tag = 11
Caption = #35745#21010#21333#21495 Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo' DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 83 Width = 83
@ -618,6 +625,7 @@
object cxGridDBColumn4: TcxGridDBColumn object cxGridDBColumn4: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
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
@ -625,12 +633,14 @@
object TV2Column9: TcxGridDBColumn object TV2Column9: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 87 Width = 87
end end
object cxGridDBColumn5: TcxGridDBColumn object cxGridDBColumn5: TcxGridDBColumn
Caption = #23458#25143 Caption = #23458#25143
DataBinding.FieldName = 'CustName' DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -638,6 +648,7 @@
object cxGridDBColumn7: TcxGridDBColumn object cxGridDBColumn7: TcxGridDBColumn
Caption = #21367#25968 Caption = #21367#25968
DataBinding.FieldName = 'SumPieceNo' DataBinding.FieldName = 'SumPieceNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -645,6 +656,7 @@
object cxGridDBColumn8: TcxGridDBColumn object cxGridDBColumn8: TcxGridDBColumn
Caption = #27611#37325 Caption = #27611#37325
DataBinding.FieldName = 'SumGrossWeight' DataBinding.FieldName = 'SumGrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -652,6 +664,7 @@
object cxGridDBColumn9: TcxGridDBColumn object cxGridDBColumn9: TcxGridDBColumn
Caption = #30382#37325 Caption = #30382#37325
DataBinding.FieldName = 'SumTare' DataBinding.FieldName = 'SumTare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -659,6 +672,7 @@
object cxGridDBColumn10: TcxGridDBColumn object cxGridDBColumn10: TcxGridDBColumn
Caption = #20928#37325 Caption = #20928#37325
DataBinding.FieldName = 'SumNetWeight' DataBinding.FieldName = 'SumNetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -666,6 +680,7 @@
object cxGridDBColumn11: TcxGridDBColumn object cxGridDBColumn11: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'SumMeter' DataBinding.FieldName = 'SumMeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -673,6 +688,7 @@
object cxGridDBColumn12: TcxGridDBColumn object cxGridDBColumn12: TcxGridDBColumn
Caption = #30721#25968 Caption = #30721#25968
DataBinding.FieldName = 'SumYardage' DataBinding.FieldName = 'SumYardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -680,6 +696,7 @@
object cxGridDBColumn14: TcxGridDBColumn object cxGridDBColumn14: TcxGridDBColumn
Caption = #21697#36136 Caption = #21697#36136
DataBinding.FieldName = 'Grade' DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -687,6 +704,7 @@
object cxGridDBColumn15: TcxGridDBColumn object cxGridDBColumn15: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -694,6 +712,7 @@
object cxGridDBColumn16: TcxGridDBColumn object cxGridDBColumn16: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -701,6 +720,7 @@
object cxGridDBColumn17: TcxGridDBColumn object cxGridDBColumn17: TcxGridDBColumn
Caption = #26816#39564#26426#21488 Caption = #26816#39564#26426#21488
DataBinding.FieldName = 'CIMachNo' DataBinding.FieldName = 'CIMachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -708,6 +728,7 @@
object TV2Column4: TcxGridDBColumn object TV2Column4: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 57 Width = 57
@ -715,6 +736,7 @@
object cxGridDBColumn18: TcxGridDBColumn object cxGridDBColumn18: TcxGridDBColumn
Caption = #26412#21378#32568#21495 Caption = #26412#21378#32568#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -722,6 +744,7 @@
object TV2Column1: TcxGridDBColumn object TV2Column1: TcxGridDBColumn
Caption = #24211#20301 Caption = #24211#20301
DataBinding.FieldName = 'IOPosition' DataBinding.FieldName = 'IOPosition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 71 Width = 71
@ -729,18 +752,21 @@
object TV2Column10: TcxGridDBColumn object TV2Column10: TcxGridDBColumn
Caption = #24211#23384#31867#22411 Caption = #24211#23384#31867#22411
DataBinding.FieldName = 'StkType' DataBinding.FieldName = 'StkType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 92 Width = 92
end end
object TV2Column3: TcxGridDBColumn object TV2Column3: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
end end
object TV2Column2: TcxGridDBColumn object TV2Column2: TcxGridDBColumn
Caption = #24211#40836 Caption = #24211#40836
DataBinding.FieldName = 'kl' DataBinding.FieldName = 'kl'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 67 Width = 67
@ -748,34 +774,46 @@
object TV2Column5: TcxGridDBColumn object TV2Column5: TcxGridDBColumn
Caption = #19994#21153#21592 Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser' DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
end end
object TV2Column6: TcxGridDBColumn object TV2Column6: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
end end
object TV2Column7: TcxGridDBColumn object TV2Column7: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo' DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
end end
object TV2Column8: TcxGridDBColumn object TV2Column8: TcxGridDBColumn
Caption = #23458#25143#21333#21495 Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
end end
object TV2Column11: TcxGridDBColumn object TV2Column11: TcxGridDBColumn
Caption = #21333#20215 Caption = #21333#20215
DataBinding.FieldName = 'Price' DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 58 Width = 58
end end
object TV2Column12: TcxGridDBColumn object TV2Column12: TcxGridDBColumn
Caption = #37329#39069 Caption = #37329#39069
DataBinding.FieldName = 'Amount' DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
end end
object TV2Column13: TcxGridDBColumn
Caption = #22797#21333#21495
DataBinding.FieldName = 'FOrdNo'
DataBinding.IsNullValueType = True
Width = 71
end
end end
object cxGridLevel1: TcxGridLevel object cxGridLevel1: TcxGridLevel
GridView = TV2 GridView = TV2
@ -1292,9 +1330,9 @@
ParentFont = False ParentFont = False
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitTop = 99
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.Filter.OnBeforeChange = Tv1DataControllerFilterBeforeChange DataController.Filter.OnBeforeChange = Tv1DataControllerFilterBeforeChange
@ -1332,6 +1370,10 @@
end end
item item
Column = VC_PacketId Column = VC_PacketId
end
item
Kind = skSum
Column = Tv1Column14
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False OptionsCustomize.ColumnFiltering = False
@ -1346,6 +1388,7 @@
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
@ -1356,6 +1399,7 @@
object v1Column21: TcxGridDBColumn object v1Column21: TcxGridDBColumn
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime' DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1363,12 +1407,14 @@
object Tv1Column11: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType' DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
end end
object v1Column32: TcxGridDBColumn object v1Column32: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNO' DataBinding.FieldName = 'ConNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1376,6 +1422,7 @@
object v1Column1: TcxGridDBColumn object v1Column1: TcxGridDBColumn
Caption = #35745#21010#21333#21495 Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo' DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1383,6 +1430,7 @@
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1390,6 +1438,7 @@
object v1Column13: TcxGridDBColumn object v1Column13: TcxGridDBColumn
Caption = #20135#21697#21517#31216 Caption = #20135#21697#21517#31216
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
@ -1397,6 +1446,7 @@
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1404,6 +1454,7 @@
object v1Column23: TcxGridDBColumn object v1Column23: TcxGridDBColumn
Caption = #21367#21495 Caption = #21367#21495
DataBinding.FieldName = 'PieceNo' DataBinding.FieldName = 'PieceNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1411,6 +1462,7 @@
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn
Caption = #27611#37325 Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight' DataBinding.FieldName = 'GrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1418,6 +1470,7 @@
object v1Column27: TcxGridDBColumn object v1Column27: TcxGridDBColumn
Caption = #30382#37325 Caption = #30382#37325
DataBinding.FieldName = 'Tare' DataBinding.FieldName = 'Tare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1425,6 +1478,7 @@
object v1Column28: TcxGridDBColumn object v1Column28: TcxGridDBColumn
Caption = #20928#37325 Caption = #20928#37325
DataBinding.FieldName = 'NetWeight' DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1432,6 +1486,7 @@
object v1Column10: TcxGridDBColumn object v1Column10: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'Meter' DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1439,6 +1494,7 @@
object Tv1Column12: TcxGridDBColumn object Tv1Column12: TcxGridDBColumn
Caption = #24211#20301 Caption = #24211#20301
DataBinding.FieldName = 'IOPosition' DataBinding.FieldName = 'IOPosition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1446,12 +1502,14 @@
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
Caption = #24211#23384#31867#22411 Caption = #24211#23384#31867#22411
DataBinding.FieldName = 'StkType' DataBinding.FieldName = 'StkType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 73 Width = 73
end end
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
Caption = #30721#25968 Caption = #30721#25968
DataBinding.FieldName = 'Yardage' DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1459,6 +1517,7 @@
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #21697#36136 Caption = #21697#36136
DataBinding.FieldName = 'Grade' DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1466,6 +1525,7 @@
object v1Column42: TcxGridDBColumn object v1Column42: TcxGridDBColumn
Caption = #24635#35760#24405#25968 Caption = #24635#35760#24405#25968
DataBinding.FieldName = 'TotalCount' DataBinding.FieldName = 'TotalCount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1473,6 +1533,7 @@
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Caption = #21367#26465#30721 Caption = #21367#26465#30721
DataBinding.FieldName = 'CIID' DataBinding.FieldName = 'CIID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1480,6 +1541,7 @@
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #23458#25143#33457#22411 Caption = #23458#25143#33457#22411
DataBinding.FieldName = 'C_CustPattern' DataBinding.FieldName = 'C_CustPattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1487,6 +1549,7 @@
object v1Column3: TcxGridDBColumn object v1Column3: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1494,6 +1557,7 @@
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1501,6 +1565,7 @@
object v1Column34: TcxGridDBColumn object v1Column34: TcxGridDBColumn
Caption = #32568#26465#30721 Caption = #32568#26465#30721
DataBinding.FieldName = 'BCIOID' DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1508,6 +1573,7 @@
object v1Column40: TcxGridDBColumn object v1Column40: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1515,6 +1581,7 @@
object v1Column46: TcxGridDBColumn object v1Column46: TcxGridDBColumn
Caption = #26816#39564#26426#21488 Caption = #26816#39564#26426#21488
DataBinding.FieldName = 'CIMachNo' DataBinding.FieldName = 'CIMachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1522,6 +1589,7 @@
object VC_BaoNo: TcxGridDBColumn object VC_BaoNo: TcxGridDBColumn
Caption = #21253#21495 Caption = #21253#21495
DataBinding.FieldName = 'PacketNo' DataBinding.FieldName = 'PacketNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Styles.Footer = DataLink_TradeClothStk.FontBlue Styles.Footer = DataLink_TradeClothStk.FontBlue
@ -1530,6 +1598,7 @@
object VC_PacketId: TcxGridDBColumn object VC_PacketId: TcxGridDBColumn
Caption = #21253#26465#30721 Caption = #21253#26465#30721
DataBinding.FieldName = 'PacketId' DataBinding.FieldName = 'PacketId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1537,6 +1606,7 @@
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #23458#25143#21333#21495 Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo' DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1544,6 +1614,7 @@
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1551,6 +1622,7 @@
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #27454#21495 Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo' DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 66 Width = 66
@ -1558,6 +1630,7 @@
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #33521#25991#39068#33394 Caption = #33521#25991#39068#33394
DataBinding.FieldName = 'C_EColor' DataBinding.FieldName = 'C_EColor'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 70 Width = 70
@ -1565,12 +1638,14 @@
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #26412#21378#32568#21495 Caption = #26412#21378#32568#21495
DataBinding.FieldName = 'BatchNO' DataBinding.FieldName = 'BatchNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 66 Width = 66
end end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #27515#36135 Caption = #27515#36135
DataBinding.FieldName = 'ISDie' DataBinding.FieldName = 'ISDie'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties' PropertiesClassName = 'TcxCheckBoxProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
@ -1579,14 +1654,30 @@
object Tv1Column13: TcxGridDBColumn object Tv1Column13: TcxGridDBColumn
Caption = #21333#20215 Caption = #21333#20215
DataBinding.FieldName = 'Price' DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 57 Width = 57
end end
object Tv1Column14: TcxGridDBColumn object Tv1Column14: TcxGridDBColumn
Caption = #37329#39069 Caption = #37329#39069
DataBinding.FieldName = 'Amount' DataBinding.FieldName = 'Amount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
end end
object Tv1Column15: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
object Tv1Column16: TcxGridDBColumn
Caption = #22797#21333#21495
DataBinding.FieldName = 'FOrdNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 71
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -1609,8 +1700,6 @@
Color = clSkyBlue Color = clSkyBlue
ParentBackground = False ParentBackground = False
TabOrder = 0 TabOrder = 0
ExplicitLeft = -121
ExplicitTop = -6
object BitBtn1: TBitBtn object BitBtn1: TBitBtn
Left = 249 Left = 249
Top = 1 Top = 1

14
T04贸易明细仓库/U_TradeClothStkListNew.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, BtnEdit, Vcl.Buttons; System.StrUtils, BtnEdit, Vcl.Buttons, dxSkinWXI, dxScrollbarAnnotations;
type type
TfrmTradeClothStkListNew = class(TfrmBaseList) TfrmTradeClothStkListNew = class(TfrmBaseList)
@ -181,6 +181,9 @@ type
BitBtn2: TBitBtn; BitBtn2: TBitBtn;
BitBtn3: TBitBtn; BitBtn3: TBitBtn;
BitBtn1: TBitBtn; BitBtn1: TBitBtn;
Tv1Column15: TcxGridDBColumn;
Tv1Column16: TcxGridDBColumn;
TV2Column13: 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);
@ -336,8 +339,9 @@ begin
Filtered := False; Filtered := False;
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' select kl= DATEDIFF(dd,IOTime, GETDATE()), IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Name,PCId,IOType,Grade,CustName,C_Width,C_GramWeight,CIMachNo,Workshop,BatchNo,IOPosition,C_Color,C_Pattern,StkType,Price'); sql.Add(' select kl= DATEDIFF(dd,IOTime, GETDATE()), IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Name,PCId,IOType');
Sql.Add(',Grade,CustName,C_Width,C_GramWeight,CIMachNo,Workshop,BatchNo,IOPosition,C_Color,C_Pattern,StkType,Price');
sql.Add(',C_Code,Saleser,C_ColorNo,ConNo,BuyConNo,FOrdNo');
sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight'); sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight');
sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage,Sum(Amount) Amount'); sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage,Sum(Amount) Amount');
sql.Add(' from V_Trade_Cloth_Stk A where 1=1 '); sql.Add(' from V_Trade_Cloth_Stk A where 1=1 ');
@ -350,7 +354,9 @@ begin
sql.Add(' and Grade=''´ÎÆ·'' '); sql.Add(' and Grade=''´ÎÆ·'' ');
sql.Add(WSql); sql.Add(WSql);
sql.Add(' GROUP BY DATEDIFF(dd,IOTime, GETDATE()), CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Name,PCId,IOType,Grade,CustName,C_Width,C_GramWeight,CIMachNo,Workshop,BatchNo,IOPosition,C_Color,C_Pattern,StkType,Price'); sql.Add(' GROUP BY DATEDIFF(dd,IOTime, GETDATE()), CONVERT(VARCHAR(10),IOTime,120),OrderNo,C_Name,PCId,IOType');
sql.Add(',Grade,CustName,C_Width,C_GramWeight,CIMachNo,Workshop,BatchNo,IOPosition,C_Color,C_Pattern,StkType,Price');
Sql.Add(',C_Code,Saleser,C_ColorNo,ConNo,BuyConNo,FOrdNo');
// showmessage(sql.text); // showmessage(sql.text);
Open; Open;
end; end;