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

0429

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-04-29 16:36:38 +08:00
parent cddfa57f45
commit e50e2a2845
47 changed files with 5535 additions and 173 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
A01基础公司管理/U_Customer.dfm
View File

@ -178,6 +178,8 @@ inherited frmCustomer: TfrmCustomer
Color = 16242829
ParentBackground = False
TabOrder = 1
ExplicitLeft = -1
ExplicitTop = 44
object Label3: TLabel
Left = 190
Top = 13
@ -193,19 +195,26 @@ inherited frmCustomer: TfrmCustomer
Caption = #23458#25143#32534#21495
end
object Label2: TLabel
Left = 350
Left = 526
Top = 13
Width = 36
Height = 12
Caption = #19994#21153#21592
end
object Label4: TLabel
Left = 502
Left = 678
Top = 13
Width = 24
Height = 12
Caption = #22269#23478
end
object Label5: TLabel
Left = 353
Top = 13
Width = 48
Height = 12
Caption = #20844#21496#31616#31216
end
object CoName: TEdit
Tag = 2
Left = 242
@ -228,7 +237,7 @@ inherited frmCustomer: TfrmCustomer
end
object Saleser: TEdit
Tag = 2
Left = 390
Left = 566
Top = 9
Width = 90
Height = 20
@ -238,7 +247,7 @@ inherited frmCustomer: TfrmCustomer
end
object country: TEdit
Tag = 2
Left = 529
Left = 705
Top = 9
Width = 90
Height = 20
@ -246,6 +255,16 @@ inherited frmCustomer: TfrmCustomer
OnChange = CoCodeChange
OnKeyPress = CoCodeKeyPress
end
object CoAbbrName: TEdit
Tag = 2
Left = 407
Top = 9
Width = 90
Height = 20
TabOrder = 4
OnChange = CoCodeChange
OnKeyPress = CoCodeKeyPress
end
end
object cxGrid1: TcxGrid [2]
Left = 0

2
A01基础公司管理/U_Customer.pas
View File

@ -113,6 +113,8 @@ type
TV3Column11: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
ADOQuery2: TADOQuery;
Label5: TLabel;
CoAbbrName: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);

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

Binary file not shown.

5
A03基础价格管理/MarketValue.dpr
View File

@ -20,7 +20,6 @@ uses
U_RTFun in '..\..\..\public10\ThreeFun\Fun\U_RTFun.pas',
U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
U_ClothInfoSel in '..\A00通用窗体\U_ClothInfoSel.pas' {frmClothInfoSel},
U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel},
U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload},
U_AttachmentUpload in '..\A00通用窗体\U_AttachmentUpload.pas' {frmAttachmentUpload},
U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
@ -28,7 +27,9 @@ uses
U_ClothInquiryInPut in 'U_ClothInquiryInPut.pas' {frmClothInquiryInPut},
U_PriceFileUp in 'U_PriceFileUp.pas' {frmPriceFileUp},
U_SLT in 'U_SLT.pas' {frmSLT: TFrame},
U_UserSel in '..\A00通用窗体\U_UserSel.pas' {frmUserSel};
U_UserSel in '..\A00通用窗体\U_UserSel.pas' {frmUserSel},
U_QuiryCompanySel in 'U_QuiryCompanySel.pas' {frmQuiryCompanySel},
U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel};
{$R *.res}

14
A03基础价格管理/MarketValue.dproj
View File

@ -124,7 +124,7 @@
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\骉骐\A03基础价格管理\testDll.exe</Debugger_HostApplication>
<Debugger_HostApplication>D:\Dp10Repo\项目代码\D10myBiaoqi\A03基础价格管理\testDll.exe</Debugger_HostApplication>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
@ -161,10 +161,6 @@
<Form>frmClothInfoSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_CompanySel.pas">
<Form>frmCompanySel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_PictureUpload.pas">
<Form>frmPictureUpload</Form>
<FormType>dfm</FormType>
@ -198,6 +194,14 @@
<Form>frmUserSel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_QuiryCompanySel.pas">
<Form>frmQuiryCompanySel</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="..\A00通用窗体\U_CompanySel.pas">
<Form>frmCompanySel</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug">
<Key>Cfg_2</Key>
<CfgParent>Base</CfgParent>

41
A03基础价格管理/MarketValue.dproj.local
View File

@ -9,14 +9,14 @@
<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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.332,D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\U_ClothQuotationInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\U_ClothInquiryInPut.dfm</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.376,=D:\Dp10Repo\项目代码\骉骐\A03基础价格管理\U_SLT.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.067,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.444,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.575,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.376,=D:\Dp10Repo\项目代码\骉骐\A03基础价格管理\U_SLT.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.875,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\PictureUpload.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.695,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_UserSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.272,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.pas=</Transaction>
@ -34,15 +34,16 @@
<Transaction>1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.009,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.709,D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.603,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.041,=D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\U_ClothQuotationInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.332,D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\U_ClothQuotationInPut.pas=D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\U_ClothInquiryInPut.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.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</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.620,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理1\Contract.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.024,=D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.pas=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.522,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.dfm</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.806,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LableMapSet.dfm</Transaction>
@ -51,23 +52,25 @@
<Transaction>1899-12-30 00:00:00.000.348,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.321,D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\Contract.dproj=D:\Dp10Repo\项目代码\RTBasics\A03基础价格管理\MarketValue.dproj</Transaction>
<Transaction>1899-12-30 00:00:00.000.726,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesContractList.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanList.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.074,D:\Dp10Repo\项目代码\RTBasics\B01基础合同管理\U_SalesConInPut.dfm=D:\Dp10Repo\项目代码\RTBasics\B02基础纱线仓库\U_YarnPurchasePlanPut.dfm</Transaction>
<Transaction>1899-12-30 00:00:00.000.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.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.582,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.519,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.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.425,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.441,=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.520,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.634,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.575,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.242,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
<Transaction>1899-12-30 00:00:00.000.441,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>1899-12-30 00:00:00.000.569,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=</Transaction>
<Transaction>2025-02-08 10:16:46.590,D:\Dp10Repo\项目代码\D10myBiaoqi\A03基础价格管理\U_QuiryCompanySel.dfm=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_CompanySel.dfm</Transaction>
<Transaction>2025-02-08 10:16:46.590,D:\Dp10Repo\项目代码\D10myBiaoqi\A03基础价格管理\U_QuiryCompanySel.pas=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_CompanySel.pas</Transaction>
<Transaction>2025-02-08 10:22:03.401,=D:\Dp10Repo\项目代码\D10myBiaoqi\A00通用窗体\U_CompanySel.pas</Transaction>
</Transactions>
<ProjectSortOrder AutoSort="0" SortType="0">
<File Path="android-support-v4.dex.jar"/>
@ -104,8 +107,6 @@
<File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
<File Path="..\A00通用窗体\U_ClothInfoSel.pas"/>
<File Path="..\A00通用窗体\U_ClothInfoSel.dfm"/>
<File Path="..\A00通用窗体\U_CompanySel.pas"/>
<File Path="..\A00通用窗体\U_CompanySel.dfm"/>
<File Path="..\A00通用窗体\U_LabelMapSet.pas"/>
<File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
<File Path="..\A00通用窗体\U_LabelPrint.pas"/>
@ -114,6 +115,8 @@
<File Path="..\A00通用窗体\U_PictureUpload.dfm"/>
<File Path="..\A00通用窗体\U_UserSel.pas"/>
<File Path="..\A00通用窗体\U_UserSel.dfm"/>
<File Path="..\A00通用窗体\U_CompanySel.pas"/>
<File Path="..\A00通用窗体\U_CompanySel.dfm"/>
<File Path="D:\Dp10Repo"/>
<File Path="..\..\..\public10"/>
<File Path="..\..\..\public10\design"/>
@ -143,5 +146,7 @@
<File Path="U_PriceFileUp.dfm"/>
<File Path="U_SLT.pas"/>
<File Path="U_SLT.dfm"/>
<File Path="U_QuiryCompanySel.pas"/>
<File Path="U_QuiryCompanySel.dfm"/>
</ProjectSortOrder>
</BorlandProject>

BIN
A03基础价格管理/MarketValue.identcache
View File

Binary file not shown.

2
A03基础价格管理/MarketValue.skincfg
View File

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

20
A03基础价格管理/ProjectGroup1.groupproj
View File

@ -1,8 +1,11 @@
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{76689978-4774-4309-BBA8-DBF8D8CDBA6C}</ProjectGuid>
<ProjectGuid>{6ABEB7CC-9757-466A-B058-84D538D40D61}</ProjectGuid>
</PropertyGroup>
<ItemGroup>
<Projects Include="MarketValue.dproj">
<Dependencies/>
</Projects>
<Projects Include="testDll.dproj">
<Dependencies/>
</Projects>
@ -14,6 +17,15 @@
<Default.Personality/>
</BorlandProject>
</ProjectExtensions>
<Target Name="MarketValue">
<MSBuild Projects="MarketValue.dproj"/>
</Target>
<Target Name="MarketValue:Clean">
<MSBuild Projects="MarketValue.dproj" Targets="Clean"/>
</Target>
<Target Name="MarketValue:Make">
<MSBuild Projects="MarketValue.dproj" Targets="Make"/>
</Target>
<Target Name="testDll">
<MSBuild Projects="testDll.dproj"/>
</Target>
@ -24,13 +36,13 @@
<MSBuild Projects="testDll.dproj" Targets="Make"/>
</Target>
<Target Name="Build">
<CallTarget Targets="testDll"/>
<CallTarget Targets="MarketValue;testDll"/>
</Target>
<Target Name="Clean">
<CallTarget Targets="testDll:Clean"/>
<CallTarget Targets="MarketValue:Clean;testDll:Clean"/>
</Target>
<Target Name="Make">
<CallTarget Targets="testDll:Make"/>
<CallTarget Targets="MarketValue:Make;testDll:Make"/>
</Target>
<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
</Project>

3
A03基础价格管理/ProjectGroup1.groupproj.local
View File

@ -1,6 +1,7 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions/>
<Default.Personality>
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10myBiaoqi\A03基础价格管理\testDll.dproj"/>
<Projects ActiveProject="D:\Dp10Repo\项目代码\D10myBiaoqi\A03基础价格管理\MarketValue.dproj"/>
</Default.Personality>
</BorlandProject>

32
A03基础价格管理/U_ClothQuotationInPut.dfm
View File

@ -11,8 +11,6 @@ inherited frmClothQuotationInPut: TfrmClothQuotationInPut
OldCreateOrder = True
Position = poScreenCenter
WindowState = wsMaximized
ExplicitLeft = -272
ExplicitTop = -45
ExplicitWidth = 1522
ExplicitHeight = 654
PixelsPerInch = 96
@ -79,8 +77,6 @@ inherited frmClothQuotationInPut: TfrmClothQuotationInPut
ParentCtl3D = False
ParentFont = False
TabOrder = 1
ExplicitLeft = -1
ExplicitTop = 37
object Label3: TLabel
Left = 41
Top = 33
@ -661,9 +657,9 @@ inherited frmClothQuotationInPut: TfrmClothQuotationInPut
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 1
ExplicitLeft = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnFocusedRecordChanged = Tv1FocusedRecordChanged
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
@ -708,6 +704,7 @@ inherited frmClothQuotationInPut: TfrmClothQuotationInPut
Tag = 9
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
@ -717,6 +714,7 @@ inherited frmClothQuotationInPut: TfrmClothQuotationInPut
object v1XHNo: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'SerialNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
SortIndex = 0
SortOrder = soAscending
@ -726,6 +724,7 @@ inherited frmClothQuotationInPut: TfrmClothQuotationInPut
object VC_SCSCode: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -740,12 +739,14 @@ inherited frmClothQuotationInPut: TfrmClothQuotationInPut
object v1Column4: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column3: TcxGridDBColumn
Caption = #20135#21697#33521#25991#21517
DataBinding.FieldName = 'C_EName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -759,36 +760,42 @@ inherited frmClothQuotationInPut: TfrmClothQuotationInPut
object v1Column5: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
object v1Column1: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column5: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1Column8: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 57
end
object Tv1Column1: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 77
end
object Tv1Column8: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -802,6 +809,7 @@ inherited frmClothQuotationInPut: TfrmClothQuotationInPut
object v1Column6: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -816,6 +824,7 @@ inherited frmClothQuotationInPut: TfrmClothQuotationInPut
object v1Column7: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -830,6 +839,7 @@ inherited frmClothQuotationInPut: TfrmClothQuotationInPut
object v1PRTPrice: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Sorting = False
@ -839,6 +849,7 @@ inherited frmClothQuotationInPut: TfrmClothQuotationInPut
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
@ -852,11 +863,13 @@ inherited frmClothQuotationInPut: TfrmClothQuotationInPut
object Tv1Column2: TcxGridDBColumn
Caption = #23458#25143#32534#21495
DataBinding.FieldName = 'inputcode'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object v1Column2: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'MVCSNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
@ -889,6 +902,7 @@ inherited frmClothQuotationInPut: TfrmClothQuotationInPut
TabOrder = 0
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -916,6 +930,7 @@ inherited frmClothQuotationInPut: TfrmClothQuotationInPut
object TV2Column4: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'BuyName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -923,6 +938,7 @@ inherited frmClothQuotationInPut: TfrmClothQuotationInPut
object TV2Column2: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 50
@ -930,11 +946,13 @@ inherited frmClothQuotationInPut: TfrmClothQuotationInPut
object TV2Column8: TcxGridDBColumn
Caption = #26159#21542#21547#31246
DataBinding.FieldName = 'IsTax'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object TV2Column1: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
@ -942,6 +960,7 @@ inherited frmClothQuotationInPut: TfrmClothQuotationInPut
object TV2Column3: TcxGridDBColumn
Caption = #25253#20215#26085#26399
DataBinding.FieldName = 'MVCDate'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 84
@ -949,16 +968,19 @@ inherited frmClothQuotationInPut: TfrmClothQuotationInPut
object TV2Column5: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object TV2Column6: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object TV2Column7: TcxGridDBColumn
Caption = #20215#26684#26415#35821
DataBinding.FieldName = 'jiagesy'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 94
end

36
A03基础价格管理/U_ClothQuotationInPut.pas
View File

@ -14,7 +14,23 @@ uses
dxDateRanges, dxBarBuiltInMenu, dxDateTimeWheelPicker, dxGDIPlusClasses,
Vcl.Menus, MovePanel, cxCheckBox, cxImage, cxDBEdit, Vcl.DBCtrls, U_BaseInput,
System.ImageList, Vcl.ImgList, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, cxSplitter;
IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, cxSplitter,
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
TfrmClothQuotationInPut = class(TfrmBaseInput)
@ -163,8 +179,8 @@ var
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel
, U_ClothInfoSel, U_PictureUpload, U_UserSel;
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_ClothInfoSel,
U_PictureUpload, U_UserSel ,U_QuiryCompanySel;
{$R *.dfm}
procedure TfrmClothQuotationInPut.InitHistoricalPrice();
@ -627,23 +643,23 @@ end;
procedure TfrmClothQuotationInPut.BuyNameBtnUpClick(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
frmQuiryCompanySel := TfrmQuiryCompanySel.Create(Application);
with frmQuiryCompanySel do
begin
FCoType := '¿Í»§';
if Self.FAuthority = '¼Èë' then
FAuthority := 'Àíµ¥ÒµÎñ';
if ShowModal = 1 then
begin
self.BuyName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.BuyName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
self.SalesId.Text := Trim(frmCompanySel.CDS_1.fieldbyname('SalesId').AsString);
self.Saleser.Text := Trim(frmCompanySel.CDS_1.fieldbyname('Saleser').AsString);
self.BuyName.TxtCode := Trim(frmQuiryCompanySel.CDS_1.fieldbyname('CoCode').AsString);
self.BuyName.Text := Trim(frmQuiryCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
self.SalesId.Text := Trim(frmQuiryCompanySel.CDS_1.fieldbyname('SalesId').AsString);
self.Saleser.Text := Trim(frmQuiryCompanySel.CDS_1.fieldbyname('Saleser').AsString);
end;
end;
finally
frmCompanySel.Free;
frmQuiryCompanySel.Free;
end;
end;

40
A03基础价格管理/U_ClothQuotationList.dfm
View File

@ -179,8 +179,11 @@ inherited frmClothQuotationList: TfrmClothQuotationList
Align = alClient
PopupMenu = pm1
TabOrder = 3
ExplicitLeft = -3
ExplicitTop = 123
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick
OnCustomDrawCell = Tv1CustomDrawCell
OnFocusedRecordChanged = Tv1FocusedRecordChanged
@ -208,6 +211,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object v1Column4: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
@ -218,6 +222,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object v1OrdDate: TcxGridDBColumn
Caption = #25253#20215#26085#26399
DataBinding.FieldName = 'MVCDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
@ -229,6 +234,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object v1DeliveryDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
@ -240,6 +246,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object v1ConNo: TcxGridDBColumn
Caption = #25253#20215#21333#21495
DataBinding.FieldName = 'MVCNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -249,6 +256,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object v1Column1: TcxGridDBColumn
Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'SellName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -258,6 +266,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object v1CustomerNoName: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'BuyName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -267,11 +276,13 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object Tv1Column1: TcxGridDBColumn
Caption = #38468#20214
DataBinding.FieldName = 'IsFJ'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object Tv1Column19: TcxGridDBColumn
Caption = #20132#26399#35828#26126
DataBinding.FieldName = 'ShippMent'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 271
@ -279,6 +290,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object v1Column9: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -286,6 +298,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object Tv1Column14: TcxGridDBColumn
Caption = #20215#26684#26415#35821
DataBinding.FieldName = 'JiaGeSY'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -293,6 +306,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object Tv1Column7: TcxGridDBColumn
Caption = #24065#31181
DataBinding.FieldName = 'Currency'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -300,6 +314,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object v1Column8: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 86
@ -307,6 +322,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object v1OrdPerson1: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
@ -315,6 +331,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
end
object v1Column10: TcxGridDBColumn
DataBinding.FieldName = 'status'
DataBinding.IsNullValueType = True
Visible = False
Options.Editing = False
VisibleForCustomization = False
@ -322,6 +339,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object v1Column13: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
@ -329,12 +347,14 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object Tv1Column2: TcxGridDBColumn
Caption = #26159#21542#21547#31246
DataBinding.FieldName = 'IsTax'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object Tv1Column3: TcxGridDBColumn
Caption = #36215#36816#28207
DataBinding.FieldName = 'QiYun'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -342,6 +362,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object Tv1Column4: TcxGridDBColumn
Caption = #30446#30340#28207
DataBinding.FieldName = 'MuDi'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
@ -518,7 +539,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
TabOrder = 2
Properties.CustomButtons.Buttons = <>
Properties.Style = 9
Properties.TabIndex = 4
Properties.TabIndex = 2
Properties.Tabs.Strings = (
#26410#25552#20132
#24050#25552#20132
@ -548,6 +569,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
TabOrder = 5
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_2
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -590,6 +612,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object v1XHNo: TcxGridDBColumn
Caption = #24207#21495
DataBinding.FieldName = 'SerialNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
SortIndex = 0
@ -600,6 +623,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object VC_SCSCode: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -614,6 +638,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object cxGridDBColumn2: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
@ -621,6 +646,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object cxGridDBColumn3: TcxGridDBColumn
Caption = #20135#21697#33521#25991#21517
DataBinding.FieldName = 'C_EName'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -635,6 +661,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object v1Column5: TcxGridDBColumn
Caption = #35268#26684
DataBinding.FieldName = 'C_Spec'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
@ -642,6 +669,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object cxGridDBColumn4: TcxGridDBColumn
Caption = #25104#20998
DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
@ -649,6 +677,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object cxGridDBColumn5: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
@ -656,6 +685,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object cxGridDBColumn6: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 57
@ -663,6 +693,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object cxGridDBColumn7: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
@ -670,6 +701,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object cxGridDBColumn8: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -684,6 +716,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object v1Column6: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -697,6 +730,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object v1Column7: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
@ -710,6 +744,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object v1OrderUnit: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'QtyUnit'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxComboBoxProperties'
Properties.DropDownListStyle = lsEditFixedList
Properties.Items.Strings = (
@ -724,6 +759,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object v1PRTPrice: TcxGridDBColumn
Caption = #21333#20215
DataBinding.FieldName = 'Price'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -734,6 +770,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object v1Column2: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'MVCSNote'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
@ -741,6 +778,7 @@ inherited frmClothQuotationList: TfrmClothQuotationList
object TV2Column1: TcxGridDBColumn
Caption = #23458#25143#32534#21495
DataBinding.FieldName = 'inputcode'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 82
end

35
A03基础价格管理/U_ClothQuotationList.pas
View File

@ -12,7 +12,23 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
U_BaseList, RM_e_Graphic, RM_e_Jpeg, RM_E_llPDF, Vcl.Clipbrd, jpeg, U_Slt;
U_BaseList, RM_e_Graphic, RM_e_Jpeg, RM_E_llPDF, Vcl.Clipbrd, jpeg, U_Slt,
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;
var
Mach: array of TfrmSlt;
@ -322,12 +338,12 @@ begin
end;
1:
begin
tbedit.Enabled := True;
// tbedit.Enabled := True;
btnCXTijiao.Enabled := True;
end;
2:
begin
tbedit.Enabled := True;
// tbedit.Enabled := True;
end;
3:
@ -350,13 +366,13 @@ begin
end;
1:
begin
tbedit.Enabled := True;
// tbedit.Enabled := True;
btnCXTijiao.Enabled := True;
tchk.Enabled := True;
end;
2:
begin
tbedit.Enabled := True;
// tbedit.Enabled := True;
tnochk.Enabled := True;
end;
@ -503,10 +519,13 @@ begin
Exit;
// ShowMessage(Trim(CDS_1.fieldbyname('Filler').AsString));
// ShowMessage(Trim(DName));
if Trim(CDS_1.fieldbyname('Filler').AsString) <> Trim(DName) then
if Trim(FAuthority) <> '管理' then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
if Trim(CDS_1.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('不能操作他人的数据!', '提示', 0);
Exit;
end;
end;
try
frmClothQuotationInPut := TfrmClothQuotationInPut.Create(Application);

18
A03基础价格管理/U_DataLink.pas
View File

@ -5,7 +5,23 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
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
TMyThread = class(TThread)

2
A03基础价格管理/U_GetDllForm.pas
View File

@ -75,7 +75,7 @@ begin
pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// Parameters1 := '¼Èë';
Parameters1 := '¼Èë';
Parameters1 := '¹ÜÀí';
// DCode :='002';
// DName :='SELINAÁõ';

4626
A03基础价格管理/U_QuiryCompanySel.dfm Normal file
View File

File diff suppressed because it is too large Load Diff

213
A03基础价格管理/U_QuiryCompanySel.pas Normal file
View File

@ -0,0 +1,213 @@
unit U_QuiryCompanySel;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ToolWin, ComCtrls, U_BaseHelp, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters, cxNavigator,
dxDateRanges, dxBarBuiltInMenu, System.ImageList, U_BaseInput, dxSkinWXI,
dxScrollbarAnnotations, 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,
dxSkinXmas2008Blue;
type
TfrmQuiryCompanySel = class(TfrmBaseHelp)
TV1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
ToolBar1: TToolBar;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
DS_1: TDataSource;
CDS_1: TClientDataSet;
TBSave: TToolButton;
TBClose: TToolButton;
ToolButton1: TToolButton;
ADOConnection1: TADOConnection;
Panel1: TPanel;
Label1: TLabel;
CoName: TEdit;
GPM_1: TcxGridPopupMenu;
ImageList1: TImageList;
TV1Column1: TcxGridDBColumn;
TV1Column2: TcxGridDBColumn;
TV1Column3: TcxGridDBColumn;
ThreeColorBase: TcxStyleRepository;
SHuangSe: TcxStyle;
SkyBlue: TcxStyle;
Default: TcxStyle;
QHuangSe: TcxStyle;
Red: TcxStyle;
FontBlue: TcxStyle;
TextSHuangSe: TcxStyle;
FonePurple: TcxStyle;
FoneClMaroon: TcxStyle;
FoneRed: TcxStyle;
RowColor: TcxStyle;
handBlack: TcxStyle;
cxBlue: TcxStyle;
SHuangSeCu: TcxStyle;
TV1Column4: TcxGridDBColumn;
Label2: TLabel;
CoBusinessType: TEdit;
Label3: TLabel;
CoAbbrName: TEdit;
Label4: TLabel;
CoCode: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure TBSaveClick(Sender: TObject);
procedure TV1DblClick(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure CoNameChange(Sender: TObject);
private
procedure InitGrid();
{ Private declarations }
public
FCoType, FAuthority: string;
{ Public declarations }
end;
var
frmQuiryCompanySel: TfrmQuiryCompanySel;
implementation
uses
U_DataLink, U_RTFun;
{$R *.dfm}
procedure TfrmQuiryCompanySel.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 TfrmQuiryCompanySel.CoNameChange(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 TfrmQuiryCompanySel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
CoName.SetFocus;
Action := cahide;
end;
procedure TfrmQuiryCompanySel.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Close;
sql.Clear;
sql.Add('select A.*,B.Contacts from BS_Company A left join Bs_Company_contact B on A.CoId=B.CoID ');
sql.Add('where Valid =''Y''');
if Trim(FCoType) <> '我司' then
begin
sql.Add(' and isnull(B.IsDefault,1)=1');
end;
if Trim(FCoType) <> '' then
begin
sql.Add(' and A.CoType=''' + Trim(FCoType) + '''');
end;
if Trim(FAuthority) = '理单业务' then
begin
sql.Add(' and ( SalesId=' + quotedstr(trim(DCode)) + ' or exists (select * from [dbo].[F_Tool_SplitString](TallyId,'','') X where X.RTValue =' + quotedstr(trim(DCode)) + '))');
end;
// ShowMessage(sql.text);
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmQuiryCompanySel.FormShow(Sender: TObject);
begin
inherited;
InitGrid();
ReadCxGrid('单位名称' + Trim(FCoType), TV1, '自定义数据');
end;
procedure TfrmQuiryCompanySel.TBCloseClick(Sender: TObject);
begin
inherited;
Close;
end;
procedure TfrmQuiryCompanySel.TBSaveClick(Sender: TObject);
begin
WriteCxGrid('单位名称' + Trim(FCoType), TV1, '自定义数据');
end;
procedure TfrmQuiryCompanySel.ToolButton1Click(Sender: TObject);
begin
CoName.SetFocus;
ModalResult := 1;
end;
procedure TfrmQuiryCompanySel.TV1DblClick(Sender: TObject);
begin
ModalResult := 1;
end;
procedure TfrmQuiryCompanySel.FormDestroy(Sender: TObject);
begin
inherited;
frmQuiryCompanySel := nil;
end;
end.

3
A03基础价格管理/testDll.dproj
View File

@ -95,7 +95,7 @@
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<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>
@ -139,6 +139,7 @@
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
<AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
<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\项目代码\D10myBiaoqi\A03基础价格管理\testDll.exe</Debugger_HostApplication>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">

62
A03基础价格管理/testDll.skincfg Normal file
View File

@ -0,0 +1,62 @@
[ExpressSkins]
Default=1
ShowNotifications=1
Enabled=1
dxSkinBasic=1
dxSkinBlack=1
dxSkinBlue=1
dxSkinBlueprint=1
dxSkinCaramel=1
dxSkinCoffee=1
dxSkinDarkroom=1
dxSkinDarkSide=1
dxSkinDevExpressDarkStyle=1
dxSkinDevExpressStyle=1
dxSkinFoggy=1
dxSkinGlassOceans=1
dxSkinHighContrast=1
dxSkiniMaginary=1
dxSkinLilian=1
dxSkinLiquidSky=1
dxSkinLondonLiquidSky=1
dxSkinMcSkin=1
dxSkinMetropolis=1
dxSkinMetropolisDark=1
dxSkinMoneyTwins=1
dxSkinOffice2007Black=1
dxSkinOffice2007Blue=1
dxSkinOffice2007Green=1
dxSkinOffice2007Pink=1
dxSkinOffice2007Silver=1
dxSkinOffice2010Black=1
dxSkinOffice2010Blue=1
dxSkinOffice2010Silver=1
dxSkinOffice2013DarkGray=1
dxSkinOffice2013LightGray=1
dxSkinOffice2013White=1
dxSkinOffice2016Colorful=1
dxSkinOffice2016Dark=1
dxSkinOffice2019Black=1
dxSkinOffice2019Colorful=1
dxSkinOffice2019DarkGray=1
dxSkinOffice2019White=1
dxSkinPumpkin=1
dxSkinSeven=1
dxSkinSevenClassic=1
dxSkinSharp=1
dxSkinSharpPlus=1
dxSkinSilver=1
dxSkinSpringtime=1
dxSkinStardust=1
dxSkinSummer2008=1
dxSkinTheAsphaltWorld=1
dxSkinTheBezier=1
dxSkinsDefaultPainters=1
dxSkinValentine=1
dxSkinVisualStudio2013Blue=1
dxSkinVisualStudio2013Dark=1
dxSkinVisualStudio2013Light=1
dxSkinVS2010=1
dxSkinWhiteprint=1
dxSkinWXI=1
dxSkinXmas2008Blue=1

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

Binary file not shown.

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

@ -362,7 +362,7 @@ inherited frmCustStatement: TfrmCustStatement
TabOrder = 3
Properties.CustomButtons.Buttons = <>
Properties.Style = 2
Properties.TabIndex = 0
Properties.TabIndex = 1
Properties.Tabs.Strings = (
' USD '
' CNY ')

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

@ -214,6 +214,7 @@ begin
enddate.DateTime := self.Enddate.DateTime;
OppCoName.Text := self.CDS_HZ.fieldbyname('OppCoName').AsString;
FOppCoNo := self.CDS_HZ.fieldbyname('OppCoNo').AsString;
FOurCoNo := self.CDS_HZ.fieldbyname('OurCoNo').AsString;
FZKType := Self.FZKType;
case cxTabControl1.TabIndex of
0:

10
A09财务通用管理/U_SingleCustStatement.dfm
View File

@ -768,6 +768,13 @@ object frmSingleCustStatement: TfrmSingleCustStatement
HeaderAlignmentHorz = taCenter
Width = 74
end
object TV11Column5: TcxGridDBColumn
Caption = #25105#26041#21333#20301
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 69
end
object Tv1Column6: TcxGridDBColumn
Caption = #25688#35201
DataBinding.FieldName = 'FFAbstract'
@ -866,6 +873,9 @@ object frmSingleCustStatement: TfrmSingleCustStatement
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object TV11Column4: TcxGridDBColumn
DataBinding.IsNullValueType = True
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV11

5
A09财务通用管理/U_SingleCustStatement.pas
View File

@ -108,6 +108,8 @@ type
TV11Column1: TcxGridDBColumn;
TV11Column2: TcxGridDBColumn;
TV11Column3: TcxGridDBColumn;
TV11Column4: TcxGridDBColumn;
TV11Column5: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -124,7 +126,7 @@ type
procedure InitGrid();
public
{ Public declarations }
FOppCoNo, FCurrency: string;
FOppCoNo, FOurCoNo, FCurrency: string;
end;
var
@ -149,6 +151,7 @@ begin
sql.Add(' @Begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime))));
sql.Add(' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1))));
sql.Add(' ,@OppCoNo=' + QuotedStr(Trim(FOppCoNo)));
sql.Add(' ,@OurCoNo=' + QuotedStr(Trim(FOurCoNo)));
sql.Add(' ,@Currency=' + QuotedStr(Trim(FCurrency)));
// showmessage(sql.text);
Open;

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

@ -1006,11 +1006,11 @@ var
begin
if CDS_1.IsEmpty then
exit;
if CDS_1.FieldByName('ISFJ').AsBoolean = False then
begin
application.MessageBox('请上传附件后完成合同', '提示');
Exit;
end;
// if CDS_1.FieldByName('ISFJ').AsBoolean = False then
// begin
// application.MessageBox('请上传附件后完成合同', '提示');
// Exit;
// end;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('请选择数据', '提示');

113
B01基础合同管理/U_ContractList.dfm
View File

@ -6,6 +6,7 @@ inherited frmContractList: TfrmContractList
ClientWidth = 1525
FormStyle = fsMDIChild
Visible = True
ExplicitLeft = -383
ExplicitWidth = 1541
ExplicitHeight = 775
PixelsPerInch = 96
@ -210,12 +211,14 @@ inherited frmContractList: TfrmContractList
end
object cxGrid1: TcxGrid [1]
Left = 0
Top = 159
Top = 181
Width = 1525
Height = 305
Height = 283
Align = alClient
PopupMenu = pm1
TabOrder = 3
ExplicitTop = 161
ExplicitHeight = 305
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -232,6 +235,22 @@ inherited frmContractList: TfrmContractList
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1Column28
end
item
Kind = skSum
Column = Tv1Column29
end
item
Kind = skSum
Column = Tv1Column30
end
item
Kind = skSum
Column = Tv1Column31
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -551,6 +570,26 @@ inherited frmContractList: TfrmContractList
HeaderAlignmentHorz = taCenter
Width = 59
end
object Tv1Column28: TcxGridDBColumn
DataBinding.FieldName = 'HZMQty'
DataBinding.IsNullValueType = True
Visible = False
end
object Tv1Column29: TcxGridDBColumn
DataBinding.FieldName = 'HZKg'
DataBinding.IsNullValueType = True
Visible = False
end
object Tv1Column30: TcxGridDBColumn
DataBinding.FieldName = 'CNYAmount'
DataBinding.IsNullValueType = True
Visible = False
end
object Tv1Column31: TcxGridDBColumn
DataBinding.FieldName = 'USDAmount'
DataBinding.IsNullValueType = True
Visible = False
end
object Tv1Column23: TcxGridDBColumn
Caption = #39044#20272#25104#26412#35814#24773
DataBinding.FieldName = 'EstimatedCD'
@ -567,16 +606,17 @@ inherited frmContractList: TfrmContractList
Left = 0
Top = 76
Width = 1525
Height = 61
Height = 83
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = 16242829
ParentBackground = False
TabOrder = 1
ExplicitTop = 82
object Label4: TLabel
Left = 621
Top = 23
Left = 435
Top = 18
Width = 40
Height = 12
Caption = #23458' '#25143
@ -588,8 +628,8 @@ inherited frmContractList: TfrmContractList
ParentFont = False
end
object Label5: TLabel
Left = 926
Top = 23
Left = 435
Top = 52
Width = 52
Height = 12
Caption = #20135#21697#21517#31216
@ -615,7 +655,7 @@ inherited frmContractList: TfrmContractList
end
object Label9: TLabel
Left = 306
Top = 23
Top = 18
Width = 39
Height = 12
Caption = #21512#21516#21495
@ -654,14 +694,14 @@ inherited frmContractList: TfrmContractList
end
object Label2: TLabel
Left = 194
Top = 23
Top = 18
Width = 6
Height = 12
Caption = '-'
end
object Label3: TLabel
Left = 453
Top = 23
Left = 293
Top = 52
Width = 52
Height = 12
Caption = #23458#25143#21333#21495
@ -673,8 +713,8 @@ inherited frmContractList: TfrmContractList
ParentFont = False
end
object Label6: TLabel
Left = 1094
Top = 23
Left = 593
Top = 52
Width = 65
Height = 12
Caption = #20135#21697#33521#25991#21517
@ -687,8 +727,8 @@ inherited frmContractList: TfrmContractList
Visible = False
end
object Label7: TLabel
Left = 772
Top = 23
Left = 599
Top = 18
Width = 39
Height = 12
Caption = #20013#38388#21830
@ -699,9 +739,21 @@ inherited frmContractList: TfrmContractList
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 784
Top = 24
Width = 9
Height = 16
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 111
Top = 19
Top = 14
Width = 85
Height = 20
Date = 40675.000000000000000000
@ -711,7 +763,7 @@ inherited frmContractList: TfrmContractList
end
object EndDate: TDateTimePicker
Left = 202
Top = 19
Top = 14
Width = 86
Height = 20
Date = 40675.000000000000000000
@ -721,8 +773,8 @@ inherited frmContractList: TfrmContractList
end
object BuyName: TEdit
Tag = 2
Left = 664
Top = 19
Left = 491
Top = 14
Width = 78
Height = 20
TabOrder = 2
@ -730,8 +782,8 @@ inherited frmContractList: TfrmContractList
end
object C_Name: TEdit
Tag = 2
Left = 982
Top = 18
Left = 491
Top = 48
Width = 76
Height = 20
TabOrder = 3
@ -749,7 +801,7 @@ inherited frmContractList: TfrmContractList
object ConNo: TEdit
Tag = 2
Left = 347
Top = 19
Top = 14
Width = 77
Height = 20
TabOrder = 4
@ -775,8 +827,8 @@ inherited frmContractList: TfrmContractList
end
object BuyConNo: TEdit
Tag = 2
Left = 508
Top = 21
Left = 347
Top = 48
Width = 77
Height = 20
TabOrder = 5
@ -784,8 +836,8 @@ inherited frmContractList: TfrmContractList
end
object HZSCSEName: TEdit
Tag = 2
Left = 1165
Top = 19
Left = 664
Top = 48
Width = 76
Height = 20
TabOrder = 9
@ -795,8 +847,8 @@ inherited frmContractList: TfrmContractList
end
object MiddleName: TEdit
Tag = 2
Left = 814
Top = 19
Left = 641
Top = 14
Width = 78
Height = 20
TabOrder = 10
@ -804,7 +856,7 @@ inherited frmContractList: TfrmContractList
end
object IsJYTime: TCheckBox
Left = 31
Top = 20
Top = 15
Width = 74
Height = 17
Caption = #19979#21333#26085#26399
@ -821,7 +873,7 @@ inherited frmContractList: TfrmContractList
end
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 137
Top = 159
Width = 1525
Height = 22
Align = alTop
@ -837,6 +889,7 @@ inherited frmContractList: TfrmContractList
#24050#21462#28040
#20840#37096)
OnChange = cxTabControl1Change
ExplicitTop = 137
ClientRectBottom = 22
ClientRectRight = 1525
ClientRectTop = 19

26
B01基础合同管理/U_ContractList.pas
View File

@ -146,6 +146,11 @@ type
ToolButton4: TToolButton;
Tv1Column24: TcxGridDBColumn;
Tv1Column26: TcxGridDBColumn;
Tv1Column28: TcxGridDBColumn;
Tv1Column29: TcxGridDBColumn;
Tv1Column30: TcxGridDBColumn;
Tv1Column31: TcxGridDBColumn;
Label1: TLabel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
@ -444,6 +449,7 @@ end;
procedure TfrmContractList.InitGrid();
var
WSql: string;
FZMQty,FZKg,FUSDAmount,FCNYAmount: Double;
begin
WSql := SGetFilters(Panel1, 1, 2);
if trim(WSql) <> '' then
@ -478,10 +484,12 @@ begin
sql.Add('where FF.TFType = ''ºÏͬ'' and FF.WBID=AA.ConMID)=0 then 0 else 1 end) as bit ) ');
SQL.Add(',STUFF( (SELECT '';'' +X.CB_Name+X.CB_Price FROM Bs_Contract_Sub_CB X ');
sql.Add('where X.ConSid= B.ConSid ORDER BY X.SerialNo FOR XML PATH('''')),1, 1, '''') AS EstimatedCD ');
sql.Add(',AA.*,B.* from (select A.* ');
sql.Add(',(Case A.Status when ''0'' then ''未提交'' when ''1'' then ''已提交''');
sql.Add('when ''9'' then ''已审核'' when ''10'' then ''已完成'' ');
SQL.Add('when ''-1'' then ''已取消'' end) AS ZT');
sql.Add(',Cast((Case ConUnit when ''M'' then B.ConQty when ''Y'' then B.ConQty*0.9144 else 0 end ) AS DECIMAL(18,2)) AS HZMQty');
sql.Add(',Cast((Case ConUnit when ''Kg'' then B.ConQty else 0 end ) AS DECIMAL(18,2)) AS HZKg');
sql.Add(',Cast((Case Currency when ''CNY'' then B.ConTotalAmount else 0 end ) AS DECIMAL(18,2)) AS CNYAmount');
sql.Add(',Cast((Case Currency when ''USD'' then B.ConTotalAmount else 0 end ) AS DECIMAL(18,2)) AS USDAmount');
sql.Add(',AA.*,B.* from (select A.*,(Case A.Status when ''0'' then ''未提交'' when ''1'' then ''已提交''');
sql.Add('when ''9'' then ''已审核'' when ''10'' then ''已完成'' when ''-1'' then ''已取消'' end) AS ZT');
sql.Add('from BS_Contract_Main A ) AA left join BS_Contract_Sub B on AA.ConMid=B.ConMid');
sql.Add('where 1=1 ' + (WSql));
sql.Add(' and AA.ConType in (''ÄÚÏú'',''ÍâÏú'') ');
@ -523,6 +531,16 @@ begin
TV1.DataController.Filter.Clear;
end;
if ADOQueryMain.IsEmpty = False then
begin
FZMQty := tv1.DataController.Summary.FooterSummaryValues[2];
FZKg := tv1.DataController.Summary.FooterSummaryValues[3];
FCNYAmount := tv1.DataController.Summary.FooterSummaryValues[4];
FUSDAmount := tv1.DataController.Summary.FooterSummaryValues[5];
Label1.Caption := '总米数：' + FloatToStr(FZMQty) + ' 总公斤数：' + FloattoStr(FZKg) + ' CNY金额：' + FloattoStr(FCNYAmount)+ ' USD金额：' + FloattoStr(FUSDAmount);
end;
end;
procedure TfrmContractList.TBFindClick(Sender: TObject);

8
T01贸易生产计划/U_GetDllForm.pas
View File

@ -77,8 +77,8 @@ begin
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// Parameters1 := '¼Èë';
// Parameters2 := '理单';
Parameters1 := '管理';
// Parameters2 := '业务';
Parameters1 := '管理';
// DName:='ADMIN';
end
else
@ -152,7 +152,7 @@ begin
end;
end;
131: //工艺备注 查询
131: //工艺备注 查询
begin
with TfrmPlanTecList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
begin
@ -164,7 +164,6 @@ begin
end;
end;
211: //Éú²ú½ø¶È²éѯ
begin
with TfrmTradePlanSchedule.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do //
@ -189,7 +188,6 @@ begin
end;
end;
10000:
begin
for i := 0 to application.MainForm.MDIChildCount - 1 do

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

@ -7,7 +7,7 @@ inherited frmTradePlanList: TfrmTradePlanList
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitTop = -214
ExplicitLeft = -185
ExplicitWidth = 1556
ExplicitHeight = 799
PixelsPerInch = 96
@ -224,13 +224,14 @@ inherited frmTradePlanList: TfrmTradePlanList
Left = 0
Top = 76
Width = 1540
Height = 51
Height = 77
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = 16242829
ParentBackground = False
TabOrder = 1
ExplicitTop = 70
object Label3: TLabel
Left = 345
Top = 20
@ -258,8 +259,8 @@ inherited frmTradePlanList: TfrmTradePlanList
ParentFont = False
end
object Label1: TLabel
Left = 665
Top = 20
Left = 368
Top = 50
Width = 26
Height = 12
Caption = #23458#25143
@ -271,7 +272,7 @@ inherited frmTradePlanList: TfrmTradePlanList
ParentFont = False
end
object Label2: TLabel
Left = 506
Left = 651
Top = 20
Width = 52
Height = 12
@ -284,8 +285,8 @@ inherited frmTradePlanList: TfrmTradePlanList
ParentFont = False
end
object Label4: TLabel
Left = 813
Top = 21
Left = 496
Top = 50
Width = 52
Height = 12
Caption = #23458#25143#21333#21495
@ -297,7 +298,7 @@ inherited frmTradePlanList: TfrmTradePlanList
ParentFont = False
end
object Label5: TLabel
Left = 977
Left = 993
Top = 12
Width = 11
Height = 19
@ -308,6 +309,19 @@ inherited frmTradePlanList: TfrmTradePlanList
Font.Style = [fsBold]
ParentFont = False
end
object Label25: TLabel
Left = 509
Top = 21
Width = 39
Height = 12
Caption = #21512#21516#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 128
Top = 16
@ -360,8 +374,8 @@ inherited frmTradePlanList: TfrmTradePlanList
end
object CustName: TEdit
Tag = 2
Left = 697
Top = 16
Left = 400
Top = 46
Width = 80
Height = 20
TabOrder = 5
@ -369,7 +383,7 @@ inherited frmTradePlanList: TfrmTradePlanList
end
object C_Name: TEdit
Tag = 2
Left = 561
Left = 706
Top = 16
Width = 77
Height = 20
@ -378,8 +392,8 @@ inherited frmTradePlanList: TfrmTradePlanList
end
object BuyConNo: TEdit
Tag = 2
Left = 869
Top = 17
Left = 554
Top = 46
Width = 80
Height = 20
TabOrder = 7
@ -394,15 +408,26 @@ inherited frmTradePlanList: TfrmTradePlanList
State = cbChecked
TabOrder = 8
end
object ConNo: TEdit
Tag = 2
Left = 554
Top = 17
Width = 77
Height = 20
TabOrder = 9
OnKeyPress = OrderNoKeyPress
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 145
Top = 171
Width = 1540
Height = 411
Height = 385
Align = alClient
PopupMenu = PM_1
TabOrder = 3
ExplicitTop = 145
ExplicitHeight = 411
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -683,7 +708,7 @@ inherited frmTradePlanList: TfrmTradePlanList
end
object cxTabControl1: TcxTabControl [4]
Left = 0
Top = 127
Top = 153
Width = 1540
Height = 18
Align = alTop
@ -700,6 +725,7 @@ inherited frmTradePlanList: TfrmTradePlanList
' '#24050#23436#25104' '
' '#20840#37096' ')
OnChange = cxTabControl1Change
ExplicitTop = 127
ClientRectRight = 0
ClientRectTop = 0
end
@ -1517,7 +1543,6 @@ inherited frmTradePlanList: TfrmTradePlanList
ParentFont = False
TabOrder = 0
Zoom = 100
ExplicitHeight = 663
end
object BGComposition: TEdit
Tag = 2

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

@ -204,6 +204,8 @@ type
Tv1Column25: TcxGridDBColumn;
BGNote: TMemo;
Label24: TLabel;
Label25: TLabel;
ConNo: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);

3
T01贸易生产计划/U_TradePlanSchedule.dfm
View File

@ -6,6 +6,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
ClientWidth = 1540
Position = poScreenCenter
WindowState = wsMaximized
ExplicitLeft = -398
ExplicitWidth = 1556
ExplicitHeight = 663
PixelsPerInch = 96
@ -703,6 +704,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'RZAPS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradePlan.FontBlue
Position.BandIndex = 2
Position.ColIndex = 0
Position.RowIndex = 0
@ -781,6 +783,7 @@ inherited frmTradePlanSchedule: TfrmTradePlanSchedule
DataBinding.FieldName = 'CGAPS'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Styles.Header = DataLink_TradePlan.FontBlue
Width = 58
Position.BandIndex = 1
Position.ColIndex = 0

6
T01贸易生产计划/U_TradePlanSchedule.pas
View File

@ -143,7 +143,7 @@ type
public
{ Public declarations }
RKFlag, FCYID, FZKType, FBZType: string;
fType: string;
fType,Canshu2: string;
end;
var
@ -176,6 +176,9 @@ begin
sql.Add(' exec P_Trade_Plan_Schedule_1 ');
sql.Add(' @begdate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', begdate.DateTime))));
sql.Add(' ,@Enddate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', Enddate.DateTime + 1))));
if canshu2='业务' then
sql.Add(' ,@Saleser=' + QuotedStr(Trim(DName)));
case cxTabControl1.TabIndex of
0:
begin
@ -262,6 +265,7 @@ procedure TfrmTradePlanSchedule.FormShow(Sender: TObject);
begin
inherited;
readCxBandedGrid(self.Caption + '3', Tv1, '½ø¶Èͳ¼Æ²éѯ');
canshu2 := self.fParameters2;
InitGrid();
end;

39
T02贸易汇总仓库/U_TradeSampleClothStkList.dfm
View File

@ -76,10 +76,9 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
Color = clWhite
ParentBackground = False
TabOrder = 1
ExplicitLeft = -1
ExplicitTop = 34
object Label3: TLabel
Left = 227
Left = 207
Top = 11
Width = 24
Height = 12
@ -93,30 +92,37 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
Caption = #26469#33258#21333#20301
end
object Label8: TLabel
Left = 369
Left = 486
Top = 11
Width = 24
Height = 12
Caption = #35268#26684
end
object Label2: TLabel
Left = 507
Left = 624
Top = 11
Width = 36
Height = 12
Caption = #25209' '#21495
end
object Label1: TLabel
Left = 646
Top = 10
Left = 750
Top = 11
Width = 36
Height = 12
Caption = #25195' '#25551
end
object Label5: TLabel
Left = 350
Top = 11
Width = 24
Height = 12
Caption = #32534#21495
end
object C_name: TEdit
Tag = 2
Left = 257
Top = 6
Left = 237
Top = 7
Width = 100
Height = 20
TabOrder = 0
@ -133,7 +139,7 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
end
object C_spec: TEdit
Tag = 2
Left = 396
Left = 513
Top = 7
Width = 100
Height = 20
@ -142,7 +148,7 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
end
object BatchNo: TEdit
Tag = 2
Left = 549
Left = 666
Top = 7
Width = 78
Height = 20
@ -150,13 +156,22 @@ inherited frmTradeSampleClothStkList: TfrmTradeSampleClothStkList
OnChange = FromCoNameChange
end
object BCIID: TEdit
Left = 688
Top = 6
Left = 792
Top = 7
Width = 106
Height = 20
TabOrder = 4
OnKeyPress = BCIIDKeyPress
end
object C_Code: TEdit
Tag = 2
Left = 380
Top = 7
Width = 100
Height = 20
TabOrder = 5
OnChange = TBFindClick
end
end
object cxGrid1: TcxGrid [2]
Left = 0

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

@ -77,6 +77,8 @@ type
adoqueryPicture: TADOQuery;
Tv1Column13: TcxGridDBColumn;
ADOQuery2: TADOQuery;
C_Code: TEdit;
Label5: TLabel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);

18
T02贸易汇总仓库/U_TradeSampleClothStkSel.dfm
View File

@ -200,7 +200,7 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitLeft = -2
ExplicitTop = 80
ExplicitTop = 70
object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <>
@ -482,6 +482,20 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object Tv1Column11: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column12: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 72
end
end
object cxGrid2Level1: TcxGridLevel
GridView = Tv1
@ -520,6 +534,8 @@ inherited frmTradeSampleClothStkSel: TfrmTradeSampleClothStkSel
BevelInner = bvLowered
BorderStyle = bsNone
TabOrder = 0
ExplicitLeft = 4
ExplicitTop = 13
end
end
end

16
T02贸易汇总仓库/U_TradeSampleClothStkSel.pas
View File

@ -82,6 +82,8 @@ type
GroupBox1: TGroupBox;
ScrollBox1: TScrollBox;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBRafreshClick(Sender: TObject);
@ -126,9 +128,20 @@ begin
end;
procedure TfrmTradeSampleClothStkSel.FormClose(Sender: TObject; var Action: TCloseAction);
var
i, j: integer;
begin
inherited;
Action := caFree;
j := length(Mach);
if j > 0 then
begin
for i := 0 to j - 1 do
begin
Mach[i].free;
end;
end;
SetLength(Mach, 0);
Action := cafree;
end;
procedure TfrmTradeSampleClothStkSel.InitGrid();
@ -301,6 +314,7 @@ begin
Exit;
end;
ModalResult := 1;
end;
procedure TfrmTradeSampleClothStkSel.ToolButton2Click(Sender: TObject);

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

@ -7,7 +7,6 @@
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitLeft = -180
ExplicitWidth = 1556
ExplicitHeight = 809
PixelsPerInch = 96
@ -213,8 +212,8 @@
OnKeyPress = MJstr3KeyPress
end
object BTPrint: TButton
Left = 283
Top = 249
Left = 290
Top = 241
Width = 120
Height = 57
Caption = #25552#20132

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

Binary file not shown.

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

Binary file not shown.

78
T04贸易明细仓库/U_TradeClothInListNew.dfm
View File

@ -462,8 +462,10 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
ParentFont = False
PopupMenu = PM_2
TabOrder = 1
ExplicitTop = 59
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = TV2CellDblClick
OnCustomDrawCell = TV2CustomDrawCell
DataController.DataSource = DS_2
@ -536,6 +538,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object cxGridDBColumn2: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 103
@ -543,6 +546,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object cxGridDBColumn13: TcxGridDBColumn
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 75
@ -551,6 +555,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
Tag = 11
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 95
@ -558,6 +563,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object cxGridDBColumn4: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
@ -565,12 +571,14 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object cxGridDBColumn5: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #21367#25968
DataBinding.FieldName = 'SumPieceNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -578,6 +586,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object cxGridDBColumn8: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'SumGrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -585,6 +594,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object cxGridDBColumn9: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'SumTare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -592,6 +602,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object cxGridDBColumn10: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'SumNetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -599,6 +610,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object cxGridDBColumn11: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'SumMeter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -606,6 +618,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object cxGridDBColumn12: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'SumYardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -613,6 +626,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object cxGridDBColumn14: TcxGridDBColumn
Caption = #21697#36136
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -620,6 +634,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object cxGridDBColumn15: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -627,6 +642,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object cxGridDBColumn16: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -634,6 +650,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object cxGridDBColumn17: TcxGridDBColumn
Caption = #26816#39564#26426#21488
DataBinding.FieldName = 'CIMachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -641,6 +658,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object TV2Column2: TcxGridDBColumn
Caption = #24211#23384
DataBinding.FieldName = 'IOPosition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -648,6 +666,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object TV2Column3: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -656,12 +675,14 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
Tag = 11
Caption = #26412#21378#32568#21495
DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 73
end
object TV2Column4: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 77
@ -670,6 +691,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
Tag = 11
Caption = 'SubId'
DataBinding.FieldName = 'Subid'
DataBinding.IsNullValueType = True
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
@ -678,28 +700,40 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object TV2Column6: TcxGridDBColumn
Caption = #19994#21153#21592
DataBinding.FieldName = 'Saleser'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object TV2Column7: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object TV2Column8: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object TV2Column9: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object TV2Column10: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object TV2Column11: TcxGridDBColumn
Caption = #25805#20316#21592
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
@ -709,9 +743,6 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object cxTabSheet2: TcxTabSheet
Caption = ' '#20135#21697#26126#32454#20449#24687' '
ImageIndex = 1
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object Panel6: TPanel
Left = 0
Top = 61
@ -1216,6 +1247,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
TabOrder = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -1287,6 +1319,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object v1Column22: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'SSel'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
@ -1297,6 +1330,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object v1Column21: TcxGridDBColumn
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'IONO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 103
@ -1304,17 +1338,20 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object Tv1Column9: TcxGridDBColumn
Caption = #20837#24211#26102#38388
DataBinding.FieldName = 'IOTime'
DataBinding.IsNullValueType = True
Options.Editing = False
Width = 82
end
object Tv1Column11: TcxGridDBColumn
Caption = #20837#24211#31867#22411
DataBinding.FieldName = 'IOType'
DataBinding.IsNullValueType = True
Options.Editing = False
end
object v1Column32: TcxGridDBColumn
Caption = #21512#21516#21495
DataBinding.FieldName = 'ConNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 76
@ -1322,6 +1359,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object v1Column1: TcxGridDBColumn
Caption = #35745#21010#21333#21495
DataBinding.FieldName = 'OrderNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 78
@ -1329,6 +1367,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object Tv1Column4: TcxGridDBColumn
Caption = #20135#21697#32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 74
@ -1336,6 +1375,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object v1Column13: TcxGridDBColumn
Caption = #20135#21697#21517#31216
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1343,6 +1383,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object v1Column4: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1350,6 +1391,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object v1Column18: TcxGridDBColumn
Caption = #21345#21495
DataBinding.FieldName = 'PCId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1357,6 +1399,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object v1Column23: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'PieceNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1364,6 +1407,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object v1Column8: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1371,6 +1415,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object v1Column27: TcxGridDBColumn
Caption = #30382#37325
DataBinding.FieldName = 'Tare'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1378,6 +1423,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object v1Column28: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1385,6 +1431,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object v1Column10: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1392,6 +1439,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object Tv1Column12: TcxGridDBColumn
Caption = #24211#20301
DataBinding.FieldName = 'IOPosition'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 71
@ -1399,6 +1447,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object Tv1Column10: TcxGridDBColumn
Caption = #30721#25968
DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1406,6 +1455,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object v1Column12: TcxGridDBColumn
Caption = #21697#36136
DataBinding.FieldName = 'Grade'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1413,6 +1463,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object v1Column42: TcxGridDBColumn
Caption = #24635#35760#24405#25968
DataBinding.FieldName = 'TotalCount'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1420,6 +1471,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object v1Column6: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'CIID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1427,6 +1479,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object Tv1Column7: TcxGridDBColumn
Caption = #23458#25143#33457#22411
DataBinding.FieldName = 'C_CustPattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1434,6 +1487,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object v1Column3: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1441,6 +1495,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object v1Column5: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1448,6 +1503,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object v1Column34: TcxGridDBColumn
Caption = #32568#26465#30721
DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1455,6 +1511,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object v1Column40: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1462,6 +1519,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object v1Column46: TcxGridDBColumn
Caption = #26816#39564#26426#21488
DataBinding.FieldName = 'CIMachNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1469,6 +1527,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object Tv1Column5: TcxGridDBColumn
Caption = #21253#21495
DataBinding.FieldName = 'PacketNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1476,12 +1535,14 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object VC_BaoID: TcxGridDBColumn
Caption = #21253#26465#30721
DataBinding.FieldName = 'PacketId'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
end
object Tv1Column8: TcxGridDBColumn
Caption = #23458#25143#21333#21495
DataBinding.FieldName = 'BuyConNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1489,6 +1550,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object Tv1Column3: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1496,6 +1558,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object Tv1Column1: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1503,6 +1566,7 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object Tv1Column2: TcxGridDBColumn
Caption = #33521#25991#39068#33394
DataBinding.FieldName = 'C_EColor'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -1510,9 +1574,17 @@ inherited frmTradeClothInListNew: TfrmTradeClothInListNew
object Tv1Column6: TcxGridDBColumn
Caption = #26412#21378#32568#21495
DataBinding.FieldName = 'BatchNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column13: TcxGridDBColumn
Caption = #25805#20316#21592
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 60
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1

8
T04贸易明细仓库/U_TradeClothInListNew.pas
View File

@ -13,7 +13,7 @@ uses
RM_System, RM_GridReport, Menus, cxCalendar, MovePanel, Math, Clipbrd,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxTextEdit, dxSkinsCore,
dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxPC,
System.StrUtils;
System.StrUtils, dxSkinWXI, dxScrollbarAnnotations;
type
TfrmTradeClothInListNew = class(TfrmBaseList)
@ -161,6 +161,8 @@ type
TV2Column10: TcxGridDBColumn;
Label11: TLabel;
Edit6: TEdit;
TV2Column11: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -275,7 +277,7 @@ begin
Close;
sql.Clear;
sql.Add(' select IOTime=CONVERT(VARCHAR(10),IOTime,120),OrderNo,Subid,C_Name ,IOType,Grade,CustName,C_Width,C_GramWeight');
sql.Add(' ,CIMachNo,Workshop,BatchNo,IOPosition,C_Color,C_Pattern,Saleser,C_ColorNo,ConNo,BuyConNo,C_Code ');
sql.Add(' ,CIMachNo,Workshop,BatchNo,IOPosition,C_Color,C_Pattern,Saleser,C_ColorNo,ConNo,BuyConNo,C_Code,Filler ');
sql.Add(',COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight');
sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage');
sql.Add(' from V_Trade_Cloth_IO A where IOFlag=''Èë¿â'' ');
@ -284,7 +286,7 @@ begin
sql.Add(WSql);
sql.Add(' GROUP BY CONVERT(VARCHAR(10),IOTime,120),OrderNo,Subid,C_Name ,IOType ,Grade,CustName,C_Width,C_GramWeight');
sql.Add(',CIMachNo,Workshop,BatchNo,IOPosition,C_Color,C_Pattern,Saleser,C_ColorNo,ConNo,BuyConNo,C_Code');
sql.Add(',CIMachNo,Workshop,BatchNo,IOPosition,C_Color,C_Pattern,Saleser,C_ColorNo,ConNo,BuyConNo,C_Code,Filler');
// ShowMessage(SQL.Text);
Open;
end;

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

@ -583,6 +583,10 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew
item
Kind = skSum
Column = cxGridDBColumn7
end
item
Kind = skSum
Column = cxGridDBColumn12
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -791,6 +795,12 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew
HeaderAlignmentHorz = taCenter
Width = 123
end
object TV2Column12: TcxGridDBColumn
Caption = #25805#20316#21592
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
@ -1391,6 +1401,10 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew
end
item
Kind = skSum
end
item
Kind = skSum
Column = Tv1Column10
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
@ -1645,6 +1659,12 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew
HeaderAlignmentHorz = taCenter
Width = 66
end
object Tv1Column14: TcxGridDBColumn
Caption = #25805#20316#21592
DataBinding.FieldName = 'Filler'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
@ -1675,6 +1695,8 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew
ParentFont = False
PopupMenu = PM_2
TabOrder = 0
ExplicitLeft = -134
ExplicitTop = 66
object TV3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -1958,6 +1980,8 @@ inherited frmTradeClothOutListNew: TfrmTradeClothOutListNew
Color = clHighlight
ParentBackground = False
TabOrder = 1
ExplicitLeft = -7
ExplicitTop = 2
object Button1: TButton
Left = 769
Top = 1

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

@ -200,6 +200,8 @@ type
TV2Column11: TcxGridDBColumn;
TV3Column1: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
TV2Column12: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -331,7 +333,7 @@ begin
// sql.Add(')');
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,Filler ');
sql.Add(' ,COUNT(PieceNo) SumPieceNo,sum(GrossWeight) SumGrossWeight,sum(Tare) SumTare,sum(NetWeight) SumNetWeight');
sql.Add(' ,Sum(Meter) SumMeter,Sum(Yardage) SumYardage');
sql.Add(' from V_Trade_Cloth_IO A ');
@ -341,7 +343,7 @@ begin
sql.Add(' and Workshop=''' + trim(FWorkshop) + ''' ');
sql.Add(' GROUP BY 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,Filler ');
// showmessage(sql.text);
Open;
end;

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

@ -7,8 +7,6 @@
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitLeft = -348
ExplicitTop = -5
ExplicitWidth = 1556
ExplicitHeight = 631
PixelsPerInch = 96
@ -148,7 +146,7 @@
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
Properties.ActivePage = cxTabSheet1
Properties.ActivePage = cxTabSheet2
Properties.CustomButtons.Buttons = <>
Properties.Style = 5
OnChange = cxPageControl1Change
@ -169,7 +167,6 @@
Color = clWhite
ParentBackground = False
TabOrder = 0
ExplicitTop = 2
object Label4: TLabel
Left = 195
Top = 10
@ -598,7 +595,6 @@
ParentFont = False
PopupMenu = PM_2
TabOrder = 1
ExplicitTop = 73
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -1779,9 +1775,16 @@
Left = 420
Top = 162
Width = 312
Height = 205
Height = 215
TabOrder = 3
Visible = False
object Label21: TLabel
Left = 43
Top = 184
Width = 88
Height = 21
Caption = #35745#20215#21333#20301
end
object Panel2: TPanel
Left = 1
Top = 1
@ -1883,6 +1886,16 @@
#35746#21333
#24211#23384)
end
object JSUnit: TComboBox
Left = 157
Top = 175
Width = 113
Height = 29
TabOrder = 7
Items.Strings = (
'M'
'Kg')
end
end
end
end

61
T04贸易明细仓库/U_TradeClothStkListNew.pas
View File

@ -193,6 +193,8 @@ type
Panel4: TPanel;
Label17: TLabel;
Panel5: TPanel;
Label21: TLabel;
JSUnit: TComboBox;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
@ -487,16 +489,17 @@ begin
canshu4 := Trim(Self.fParameters4);
canshu5 := Trim(Self.fParameters5);
if Canshu5='订单' then
if Canshu5 = '订单' then
begin
Label15.Caption:='库龄超90天';
Label16.Caption:='库龄超12月';
Label17.Caption:='库龄超18月';
end else if Canshu5='库存' then
Label15.Caption := '库龄超90天';
Label16.Caption := '库龄超12月';
Label17.Caption := '库龄超18月';
end
else if Canshu5 = '库存' then
begin
Label15.Caption:='库龄超2年';
Label16.Caption:='库龄超3年';
Label17.Caption:='库龄超5年';
Label15.Caption := '库龄超2年';
Label16.Caption := '库龄超3年';
Label17.Caption := '库龄超5年';
end;
SetStatus();
InitPage();
@ -581,7 +584,8 @@ begin
ACanvas.Brush.Color := $00A5FF;
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 548 then
ACanvas.Brush.Color := $0000FF;
end else if canshu5 = '库存' then
end
else if canshu5 = '库存' then
begin
if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('kl').Index] > 730 then
ACanvas.Brush.Color := $B3DEF5;
@ -913,19 +917,44 @@ begin
FM := CDS_1.FieldByName('Meter').AsFloat;
FY := CDS_1.FieldByName('Yardage').AsFloat;
FZ := CDS_1.FieldByName('NetWeight').AsFloat;
if CDS_1.FieldByName('OrdUnit').AsString = 'M' then
if (FM <> 0) and (FZ <> 0) then
begin
FAmount := RoundFloat(FM * FPrice, 2);
if JSunit.Text = '' then
begin
Application.MessageBox('请先选择计价单位!', '提示', 0);
Exit;
end
else
begin
if JSUnit.Text = 'Kg' then
FAmount := RoundFloat(FZ * FPrice, 2)
else if JSUnit.Text = 'M' then
FAmount := RoundFloat(FM * FPrice, 2);
end;
end
else if CDS_1.FieldByName('OrdUnit').AsString = 'Y' then
begin
FAmount := RoundFloat(FY * FPrice, 2);
end
else if CDS_1.FieldByName('OrdUnit').AsString = 'Kg' then
else if FM = 0 then
begin
FAmount := RoundFloat(FZ * FPrice, 2);
end
else if FZ = 0 then
begin
FAmount := RoundFloat(FM * FPrice, 2);
end;
// if CDS_1.FieldByName('OrdUnit').AsString = 'M' then
// begin
// FAmount := RoundFloat(FM * FPrice, 2);
// end
// else if CDS_1.FieldByName('OrdUnit').AsString = 'Y' then
// begin
// FAmount := RoundFloat(FY * FPrice, 2);
// end
// else if CDS_1.FieldByName('OrdUnit').AsString = 'Kg' then
// begin
// FAmount := RoundFloat(FZ * FPrice, 2);
// end;
MAmount := FloatToStr(FAmount);
with ADOQueryCmd do

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

Binary file not shown.