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

123

Browse Source
This commit is contained in:
acer 2026-04-10 17:30:29 +08:00
parent e6b38b8e07
commit 20fac9d391
50 changed files with 571 additions and 504 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,4 +1,4 @@
unit U_CompanySel ; unit U_CompanySel;
interface interface
@ -87,7 +87,7 @@ type
procedure InitGrid(); procedure InitGrid();
{ Private declarations } { Private declarations }
public public
FCoType, FAuthority, FStores: string; FCoType, FAuthority, FStores, FsqlStr: string;
{ Public declarations } { Public declarations }
end; end;
@ -159,6 +159,10 @@ begin
begin begin
sql.Add(' and ( SalesId=' + quotedstr(trim(DCode)) + ' or exists (select * from [dbo].[F_Tool_SplitString](TallyId,'','') X where X.RTValue =' + quotedstr(trim(DCode)) + '))'); sql.Add(' and ( SalesId=' + quotedstr(trim(DCode)) + ' or exists (select * from [dbo].[F_Tool_SplitString](TallyId,'','') X where X.RTValue =' + quotedstr(trim(DCode)) + '))');
end; end;
if Trim(FsqlStr) <> '' then
begin
sql.add(FsqlStr);
end;
// if FStores = 'ÐÂÓà' then // if FStores = 'ÐÂÓà' then
// sql.Add(' and A.Stores=''' + Trim(FStores) + ''''); // sql.Add(' and A.Stores=''' + Trim(FStores) + '''');
// ShowMessage(sql.Text); // ShowMessage(sql.Text);

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

@ -3,13 +3,13 @@ inherited frmCustomer: TfrmCustomer
Top = 169 Top = 169
Caption = #23458#25143#36164#26009#31649#29702 Caption = #23458#25143#36164#26009#31649#29702
ClientHeight = 737 ClientHeight = 737
ClientWidth = 1589 ClientWidth = 1540
Color = clBtnFace Color = clBtnFace
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitWidth = 1605 ExplicitWidth = 1556
ExplicitHeight = 776 ExplicitHeight = 776
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -17,7 +17,7 @@ inherited frmCustomer: TfrmCustomer
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1589 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -139,7 +139,7 @@ inherited frmCustomer: TfrmCustomer
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1589 Width = 1540
Height = 62 Height = 62
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -231,7 +231,7 @@ inherited frmCustomer: TfrmCustomer
object Panel2: TPanel [2] object Panel2: TPanel [2]
Left = 0 Left = 0
Top = 534 Top = 534
Width = 1589 Width = 1540
Height = 203 Height = 203
Align = alBottom Align = alBottom
Caption = 'Panel2' Caption = 'Panel2'
@ -239,7 +239,7 @@ inherited frmCustomer: TfrmCustomer
object cxGrid2: TcxGrid object cxGrid2: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1020 Width = 971
Height = 201 Height = 201
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
@ -352,7 +352,7 @@ inherited frmCustomer: TfrmCustomer
end end
end end
object cxGrid3: TcxGrid object cxGrid3: TcxGrid
Left = 1021 Left = 972
Top = 1 Top = 1
Width = 567 Width = 567
Height = 201 Height = 201
@ -398,7 +398,7 @@ inherited frmCustomer: TfrmCustomer
object cxTabControl1: TcxTabControl [3] object cxTabControl1: TcxTabControl [3]
Left = 0 Left = 0
Top = 92 Top = 92
Width = 1589 Width = 1540
Height = 28 Height = 28
Align = alTop Align = alTop
TabOrder = 3 TabOrder = 3
@ -424,7 +424,7 @@ inherited frmCustomer: TfrmCustomer
object cxGrid1: TcxGrid [6] object cxGrid1: TcxGrid [6]
Left = 0 Left = 0
Top = 120 Top = 120
Width = 1589 Width = 1540
Height = 414 Height = 414
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1

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

@ -18,7 +18,7 @@ uses
FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf, FireDAC.Stan.Async,
FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, cxContainer, FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, cxContainer,
dxScrollbarAnnotations, Vcl.Menus, cxProgressBar, dxSkinsCore, dxScrollbarAnnotations, Vcl.Menus, cxProgressBar, dxSkinsCore,
dxSkinsDefaultPainters; dxSkinsDefaultPainters, dxSkinWXI;
type type
TfrmCustomer = class(TfrmBaseList) TfrmCustomer = class(TfrmBaseList)

4
A02基础产品管理/ClothInfo.dpr
View File

@ -49,7 +49,9 @@ uses
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas', uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp}, U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel}, U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel},
U_Edit in 'U_Edit.pas' {frmEdit}; U_Edit in 'U_Edit.pas' {frmEdit},
U_SelectStore in 'U_SelectStore.pas' {frmSelectStore},
U_SelectQtyUnit in 'U_SelectQtyUnit.pas' {frmSelectQtyUnit};
{$R *.res} {$R *.res}

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

@ -4,7 +4,7 @@
<MainSource>ClothInfo.dpr</MainSource> <MainSource>ClothInfo.dpr</MainSource>
<Base>True</Base> <Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config> <Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>38017</TargetedPlatforms> <TargetedPlatforms>1</TargetedPlatforms>
<AppType>Library</AppType> <AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType> <FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.2</ProjectVersion> <ProjectVersion>19.2</ProjectVersion>
@ -13,16 +13,6 @@
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base> <Base>true</Base>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
<Base_Android64>true</Base_Android64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
<Base_iOSDevice64>true</Base_iOSDevice64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''"> <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32> <Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
@ -43,24 +33,6 @@
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
<Base>true</Base> <Base>true</Base>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
<Cfg_2_Android64>true</Cfg_2_Android64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
<Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
<Cfg_2_OSX64>true</Cfg_2_OSX64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32> <Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent> <CfgParent>Cfg_2</CfgParent>
@ -84,13 +56,6 @@
<VerInfo_Locale>2052</VerInfo_Locale> <VerInfo_Locale>2052</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Base_Android64)'!=''">
<Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''"> <PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> <DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType> <BT_BuildType>Debug</BT_BuildType>
@ -113,18 +78,9 @@
<DCC_Optimize>false</DCC_Optimize> <DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10xhGemei\A02基础产品管理\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>E:\rtgit\trade\D10xhGemei\A02基础产品管理\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">
@ -250,6 +206,14 @@
<Form>frmEdit</Form> <Form>frmEdit</Form>
<FormType>dfm</FormType> <FormType>dfm</FormType>
</DCCReference> </DCCReference>
<DCCReference Include="U_SelectStore.pas">
<Form>frmSelectStore</Form>
<FormType>dfm</FormType>
</DCCReference>
<DCCReference Include="U_SelectQtyUnit.pas">
<Form>frmSelectQtyUnit</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Debug"> <BuildConfiguration Include="Debug">
<Key>Cfg_2</Key> <Key>Cfg_2</Key>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
@ -272,10 +236,6 @@
</Source> </Source>
</Delphi.Personality> </Delphi.Personality>
<Platforms> <Platforms>
<Platform value="Android64">True</Platform>
<Platform value="iOSDevice64">True</Platform>
<Platform value="Linux64">True</Platform>
<Platform value="OSX64">True</Platform>
<Platform value="Win32">True</Platform> <Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform> <Platform value="Win64">False</Platform>
</Platforms> </Platforms>

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

Binary file not shown.

36
A02基础产品管理/U_ClothInfo.dfm
View File

@ -10,7 +10,7 @@ inherited frmClothInfo: TfrmClothInfo
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -87 ExplicitLeft = 0
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 847 ExplicitHeight = 847
PixelsPerInch = 96 PixelsPerInch = 96
@ -23,7 +23,7 @@ inherited frmClothInfo: TfrmClothInfo
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 131 ButtonWidth = 163
Caption = 'ToolBar1' Caption = 'ToolBar1'
DisabledImages = DataLink_ClothInfo.cxImageList_bar DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar Images = DataLink_ClothInfo.cxImageList_bar
@ -39,7 +39,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object TBAdd: TToolButton object TBAdd: TToolButton
Left = 63 Left = 71
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686 Caption = #26032#22686
@ -47,7 +47,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = TBAddClick OnClick = TBAddClick
end end
object TBCopy: TToolButton object TBCopy: TToolButton
Left = 126 Left = 142
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #22797#21046 Caption = #22797#21046
@ -55,7 +55,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = TBCopyClick OnClick = TBCopyClick
end end
object TBEdit: TToolButton object TBEdit: TToolButton
Left = 189 Left = 213
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913 Caption = #20462#25913
@ -63,7 +63,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = TBEditClick OnClick = TBEditClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 252 Left = 284
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26597#30475 Caption = #26597#30475
@ -71,7 +71,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBMLEdit: TToolButton object TBMLEdit: TToolButton
Left = 315 Left = 355
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #30446#24405#20462#25913 Caption = #30446#24405#20462#25913
@ -79,7 +79,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = TBMLEditClick OnClick = TBMLEditClick
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 402 Left = 458
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -87,7 +87,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = TBDelClick OnClick = TBDelClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 465 Left = 529
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26631#31614#25171#21360 Caption = #26631#31614#25171#21360
@ -95,7 +95,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 552 Left = 632
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25209#37327#23548#20986 Caption = #25209#37327#23548#20986
@ -103,7 +103,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 639 Left = 735
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20837 Caption = #23548#20837
@ -111,7 +111,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 702 Left = 806
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -119,7 +119,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBUP: TToolButton object TBUP: TToolButton
Left = 765 Left = 877
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #22270#29255#19978#20256 Caption = #22270#29255#19978#20256
@ -127,7 +127,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = TBUPClick OnClick = TBUPClick
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 852 Left = 980
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25805#20316#26085#24535 Caption = #25805#20316#26085#24535
@ -135,7 +135,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 939 Left = 1083
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913#21382#21490 Caption = #20462#25913#21382#21490
@ -143,7 +143,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = ToolButton6Click OnClick = ToolButton6Click
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 1026 Left = 1186
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #19968#38190#35774#32622#35745#20215#21333#20301 Caption = #19968#38190#35774#32622#35745#20215#21333#20301
@ -151,7 +151,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 1161 Left = 1353
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -159,7 +159,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1248 Left = 1456
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381

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

@ -201,7 +201,7 @@ implementation
uses uses
U_DataLink, U_RTFun, U_ClothInfoInput, U_CloInfoFileUp, U_ClothTypeSel, U_DataLink, U_RTFun, U_ClothInfoInput, U_CloInfoFileUp, U_ClothTypeSel,
U_ZDYHelp, U_LabelPrint, U_ClothInfoImport, U_SysLogHelp, U_ClothInfoInput1, U_ZDYHelp, U_LabelPrint, U_ClothInfoImport, U_SysLogHelp, U_ClothInfoInput1,
U_ClothInfoInput2, U_ClothInfoLog, U_SelectStore; U_ClothInfoInput2, U_ClothInfoLog, U_SelectQtyUnit;
{$R *.dfm} {$R *.dfm}
procedure TfrmClothInfo.InitGrid2(); procedure TfrmClothInfo.InitGrid2();
@ -1099,8 +1099,8 @@ end;
procedure TfrmClothInfo.ToolButton8Click(Sender: TObject); procedure TfrmClothInfo.ToolButton8Click(Sender: TObject);
var var
RTValues: TArray<string>; RTValues: TArray<string>;
StoreName: string; Pqtyunit: string;
frmSelectStore: TfrmSelectStore; frmSelectQtyUnit: TfrmSelectQtyUnit;
begin begin
if CDS_1.IsEmpty then if CDS_1.IsEmpty then
exit; exit;
@ -1110,17 +1110,17 @@ begin
Application.MessageBox('ÇëÑ¡ÔñÊý¾Ý!', 'Ìáʾ', 0); Application.MessageBox('ÇëÑ¡ÔñÊý¾Ý!', 'Ìáʾ', 0);
Exit; Exit;
end; end;
frmSelectStore := TfrmSelectStore.Create(nil); frmSelectQtyUnit := TfrmSelectQtyUnit.Create(nil);
try try
if frmSelectStore.ShowModal = mrOk then if frmSelectQtyUnit.ShowModal = mrOk then
begin begin
StoreName := frmSelectStore.SelectedStore; Pqtyunit := frmSelectQtyUnit.SelectedQtyUnit;
if StoreName = '' then if Pqtyunit = '' then
Exit; Exit;
ADOQueryCmd.Close; ADOQueryCmd.Close;
ADOQueryCmd.SQL.Text := 'UPDATE BS_Cloth_Info SET qtyunit = :StoreName ' + 'WHERE EXISTS(SELECT X.RTValue ' + ' FROM [dbo].[F_Tool_SplitString](:COIDList,'','') X ' + ' WHERE BS_Cloth_Info.BCIID = X.RTValue)'; ADOQueryCmd.SQL.Text := 'UPDATE BS_Cloth_Info SET qtyunit = :qtyunit ' + 'WHERE EXISTS(SELECT X.RTValue ' + ' FROM [dbo].[F_Tool_SplitString](:COIDList,'','') X ' + ' WHERE BS_Cloth_Info.BCIID = X.RTValue)';
ADOQueryCmd.Parameters.ParamByName('qtyunit').Value := StoreName; ADOQueryCmd.Parameters.ParamByName('qtyunit').Value := Pqtyunit;
ADOQueryCmd.Parameters.ParamByName('COIDList').Value := RTValues[0]; ADOQueryCmd.Parameters.ParamByName('COIDList').Value := RTValues[0];
ADOQueryCmd.ExecSQL; ADOQueryCmd.ExecSQL;
@ -1128,7 +1128,7 @@ begin
TBRafresh.Click; TBRafresh.Click;
end; end;
finally finally
frmSelectStore.Free; frmSelectQtyUnit.Free;
end; end;
end; end;

7
A02基础产品管理/U_ClothInfoInput.pas
View File

@ -12,7 +12,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, cxCheckBox, cxDropDownEdit, cxContainer, cxMaskEdit, dxBarBuiltInMenu, cxCheckBox, cxDropDownEdit, cxContainer, cxMaskEdit,
dxScrollbarAnnotations, cxMemo, dxSkinsCore, dxSkinsDefaultPainters, cxMRUEdit, dxScrollbarAnnotations, cxMemo, dxSkinsCore, dxSkinsDefaultPainters, cxMRUEdit,
ComObj, dxSkinWXI; ComObj, dxSkinWXI, dxCoreGraphics;
type type
TfrmClothInfoInput = class(TForm) TfrmClothInfoInput = class(TForm)
@ -295,9 +295,9 @@ begin
sql.Add('select A.* from BS_Cloth_Info_Sub A where A.BCIID=' + QuotedStr(Trim(C_FromName.Properties.LookupItems.Text))); sql.Add('select A.* from BS_Cloth_Info_Sub A where A.BCIID=' + QuotedStr(Trim(C_FromName.Properties.LookupItems.Text)));
Open; Open;
end; end;
Tv1.BeginUpdate();
with ADOQueryTemp do with ADOQueryTemp do
begin begin
DisableControls;
First; First;
while not Eof do while not Eof do
begin begin
@ -312,9 +312,8 @@ begin
end; end;
Next; Next;
end; end;
EnableControls;
end; end;
Tv1.EndUpdate();
end; end;
procedure TfrmClothInfoInput.setName(); procedure TfrmClothInfoInput.setName();

2
A02基础产品管理/U_GetDllForm.pas
View File

@ -82,7 +82,7 @@ begin
// Parameters3 := 'µÍȨÏÞ'; // Parameters3 := 'µÍȨÏÞ';
DName := 'ADMIN'; DName := 'ADMIN';
dcode := 'Íõ¼ª»Ô'; dcode := 'ADMIN';
end end
else else
begin begin

50
A02基础产品管理/U_SelectQtyUnit.dfm Normal file
View File

@ -0,0 +1,50 @@
inherited frmSelectQtyUnit: TfrmSelectQtyUnit
Caption = #36873#25321#38376#24215
ClientHeight = 121
ClientWidth = 509
Position = poScreenCenter
ExplicitWidth = 525
ExplicitHeight = 160
PixelsPerInch = 96
TextHeight = 17
object btnOK: TButton [0]
Left = 308
Top = 42
Width = 75
Height = 25
Caption = #30830#23450
ModalResult = 1
TabOrder = 0
end
object cbQtyunit: TComboBox [1]
Left = 47
Top = 42
Width = 216
Height = 25
TabOrder = 1
Items.Strings = (
'M'
'Y'
'Kg'
#20214
#21452
#24352
#25552
#20010
#21253
#26020
#30424)
end
object btnCancel: TButton [2]
Left = 389
Top = 42
Width = 75
Height = 25
Caption = #21462#28040
ModalResult = 2
TabOrder = 2
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
end
end

40
A02基础产品管理/U_SelectQtyUnit.pas Normal file
View File

@ -0,0 +1,40 @@
unit U_SelectQtyUnit;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, U_BaseInput, cxImageList, cxGraphics,
System.ImageList, Vcl.ImgList, Data.DB, Data.Win.ADODB, Vcl.StdCtrls;
type
TfrmSelectQtyUnit = class(TfrmBaseInput)
btnOK: TButton;
cbQtyunit: TComboBox;
btnCancel: TButton;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function SelectedQtyUnit: string;
end;
var
frmSelectQtyUnit: TfrmSelectQtyUnit;
implementation
{$R *.dfm}
procedure TfrmSelectQtyUnit.FormCreate(Sender: TObject);
begin
inherited;
cbQtyunit.ItemIndex := 0;
end;
function TfrmSelectQtyUnit.SelectedQtyUnit: string;
begin
Result := Trim(cbQtyunit.Text);
end;
end.

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

Binary file not shown.

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

@ -4,7 +4,7 @@
<MainSource>Financial.dpr</MainSource> <MainSource>Financial.dpr</MainSource>
<Base>True</Base> <Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config> <Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>38017</TargetedPlatforms> <TargetedPlatforms>1</TargetedPlatforms>
<AppType>Library</AppType> <AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType> <FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.2</ProjectVersion> <ProjectVersion>19.2</ProjectVersion>
@ -13,16 +13,6 @@
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base> <Base>true</Base>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
<Base_Android64>true</Base_Android64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
<Base_iOSDevice64>true</Base_iOSDevice64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''"> <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32> <Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
@ -43,24 +33,6 @@
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
<Base>true</Base> <Base>true</Base>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
<Cfg_2_Android64>true</Cfg_2_Android64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
<Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
<Cfg_2_OSX64>true</Cfg_2_OSX64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32> <Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent> <CfgParent>Cfg_2</CfgParent>
@ -84,13 +56,6 @@
<VerInfo_Locale>2052</VerInfo_Locale> <VerInfo_Locale>2052</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Base_Android64)'!=''">
<Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''"> <PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> <DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType> <BT_BuildType>Debug</BT_BuildType>
@ -113,18 +78,9 @@
<DCC_Optimize>false</DCC_Optimize> <DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10xhGemei\A09财务通用管理\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>E:\rtgit\trade\D10xhGemei\A09财务通用管理\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">
@ -338,10 +294,6 @@
</Source> </Source>
</Delphi.Personality> </Delphi.Personality>
<Platforms> <Platforms>
<Platform value="Android64">True</Platform>
<Platform value="iOSDevice64">True</Platform>
<Platform value="Linux64">True</Platform>
<Platform value="OSX64">True</Platform>
<Platform value="Win32">True</Platform> <Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform> <Platform value="Win64">False</Platform>
</Platforms> </Platforms>

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

Binary file not shown.

5
A09财务通用管理/U_DataLink.dfm
View File

@ -4,6 +4,11 @@ inherited DataLink_Financial: TDataLink_Financial
Height = 349 Height = 349
Width = 482 Width = 482
inherited cxEditStyleController1: TcxEditStyleController inherited cxEditStyleController1: TcxEditStyleController
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
StyleReadOnly.LookAndFeel.SkinName = ''
PixelsPerInch = 96 PixelsPerInch = 96
end end
inherited cxImageList_bar: TcxImageList inherited cxImageList_bar: TcxImageList

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

@ -23,7 +23,7 @@ uses
dxCore, cxLocalization, dxCore, cxLocalization,
dxLayoutLookAndFeels, dxSkinsCore, dxSkinsDefaultPainters; dxLayoutLookAndFeels, dxSkinsCore, dxSkinsDefaultPainters, dxSkinWXI;
type type
TMyThread = class(TThread) TMyThread = class(TThread)

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

@ -60,10 +60,10 @@ object frmReceivableInput: TfrmReceivableInput
Height = 447 Height = 447
Width = 1353 Width = 1353
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 2 Left = 4
Top = 26 Top = 23
Width = 1349 Width = 1345
Height = 419 Height = 408
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView

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

@ -15,7 +15,7 @@ uses
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters, cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, cxContainer,
cxCurrencyEdit, dxCore, cxDateUtils, cxMemo, dxSkinsCore, cxCurrencyEdit, dxCore, cxDateUtils, cxMemo, dxSkinsCore,
dxSkinsDefaultPainters, dxScrollbarAnnotations, cxGroupBox; dxSkinsDefaultPainters, dxScrollbarAnnotations, cxGroupBox, dxCoreGraphics;
type type
TfrmReceivableInput = class(TForm) TfrmReceivableInput = class(TForm)
@ -265,8 +265,8 @@ begin
self.ConNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConNo').AsString); self.ConNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('ConNo').AsString);
self.OrderNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString); self.OrderNo.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('OrderNo').AsString);
self.F_Code.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Code').AsString); self.F_Code.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('C_Code').AsString);
self.OppCoName.Text := Trim(frmFinTradePlanSel.CDS_1.fieldbyname('CustName').AsString);
// ¶àѡָʾµ¥ÐÅÏ¢ // ¶àѡָʾµ¥ÐÅÏ¢
First; First;
while Locate('SSel', True, []) do while Locate('SSel', True, []) do
@ -343,6 +343,7 @@ begin
begin begin
OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString); OurCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
OurCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString); OurCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoCode').AsString);
OppCoName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
end; end;
end; end;
finally finally
@ -586,12 +587,12 @@ begin
Close; Close;
SQL.Clear; SQL.Clear;
// sql.Add('select * from Finance_Flow where FFID=''' + Trim(FFFID) + ''''); // sql.Add('select * from Finance_Flow where FFID=''' + Trim(FFFID) + '''');
sql.Add('select * from Finance_Flow where FFID=''' +Trim(CDS_1.fieldbyname('FFID').AsString)+ ''''); sql.Add('select * from Finance_Flow where FFID=''' + Trim(CDS_1.fieldbyname('FFID').AsString) + '''');
Open; Open;
end; end;
with ADOQueryCmd do with ADOQueryCmd do
begin begin
if Trim(CDS_1.fieldbyname('FFID').AsString)='' then //Trim(FFFID) = '' if Trim(CDS_1.fieldbyname('FFID').AsString) = '' then //Trim(FFFID) = ''
begin begin
Append; Append;
FieldByName('FillId').Value := Trim(DCode); FieldByName('FillId').Value := Trim(DCode);

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

@ -16,7 +16,7 @@ uses
cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, Vcl.Menus, cxNavigator, dxBarBuiltInMenu, dxDateRanges, U_BaseList, Vcl.Menus,
Vcl.Clipbrd, cxContainer, dxCore, cxDateUtils, dxScrollbarAnnotations, Vcl.Clipbrd, cxContainer, dxCore, cxDateUtils, dxScrollbarAnnotations,
FrameDateSel, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar, FrameDateSel, dxSkinsCore, dxSkinsDefaultPainters, cxProgressBar,
cxCurrencyEdit; cxCurrencyEdit, dxSkinWXI;
type type
TfrmReceivableList = class(TfrmBaseList) TfrmReceivableList = class(TfrmBaseList)
@ -232,7 +232,7 @@ begin
end; end;
end; end;
SqlStr := SqlStr + ' and isnull(A.Store,'''')=' + QuotedStr(Trim(canshu4)); SqlStr := SqlStr + ' and isnull(A.store,'''')=' + QuotedStr(Trim(canshu4));
// ShowMessage(SqlStr); // ShowMessage(SqlStr);
InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'FFID'); InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'FFID');

BIN
A09财务通用管理/testDll.res
View File

Binary file not shown.

BIN
T01贸易生产计划/TradePlan.res
View File

Binary file not shown.

BIN
T01贸易生产计划/testDll.res
View File

Binary file not shown.

52
T02贸易汇总仓库/TradeTotalClothStk.dproj
View File

@ -4,7 +4,7 @@
<MainSource>TradeTotalClothStk.dpr</MainSource> <MainSource>TradeTotalClothStk.dpr</MainSource>
<Base>True</Base> <Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config> <Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>38017</TargetedPlatforms> <TargetedPlatforms>1</TargetedPlatforms>
<AppType>Library</AppType> <AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType> <FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.2</ProjectVersion> <ProjectVersion>19.2</ProjectVersion>
@ -13,16 +13,6 @@
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base> <Base>true</Base>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
<Base_Android64>true</Base_Android64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
<Base_iOSDevice64>true</Base_iOSDevice64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''"> <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32> <Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
@ -43,24 +33,6 @@
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
<Base>true</Base> <Base>true</Base>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
<Cfg_2_Android64>true</Cfg_2_Android64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
<Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
<Cfg_2_OSX64>true</Cfg_2_OSX64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32> <Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent> <CfgParent>Cfg_2</CfgParent>
@ -84,13 +56,6 @@
<VerInfo_Locale>2052</VerInfo_Locale> <VerInfo_Locale>2052</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Base_Android64)'!=''">
<Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''"> <PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> <DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType> <BT_BuildType>Debug</BT_BuildType>
@ -113,18 +78,9 @@
<DCC_Optimize>false</DCC_Optimize> <DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10xhGemei\T02贸易汇总仓库\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>E:\rtgit\trade\D10xhGemei\T02贸易汇总仓库\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">
@ -394,10 +350,6 @@
</Source> </Source>
</Delphi.Personality> </Delphi.Personality>
<Platforms> <Platforms>
<Platform value="Android64">True</Platform>
<Platform value="iOSDevice64">True</Platform>
<Platform value="Linux64">True</Platform>
<Platform value="OSX64">True</Platform>
<Platform value="Win32">True</Platform> <Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform> <Platform value="Win64">False</Platform>
</Platforms> </Platforms>

BIN
T02贸易汇总仓库/TradeTotalClothStk.res
View File

Binary file not shown.

7
T02贸易汇总仓库/U_GetDllForm.pas
View File

@ -22,8 +22,8 @@ uses
U_TradePackClothOutList, U_TradePackClothStkList, U_TradeSampleClothInList, U_TradePackClothOutList, U_TradePackClothStkList, U_TradeSampleClothInList,
U_TradeSampleClothOutList, U_TradeSampleClothStkList, U_ClothPurchaseEnterList, U_TradeSampleClothOutList, U_TradeSampleClothStkList, U_ClothPurchaseEnterList,
U_ClothScheduleList, U_TradeClothTotalStkList, U_TradeClothTotalInList, U_ClothScheduleList, U_TradeClothTotalStkList, U_TradeClothTotalInList,
U_TradeClothTotalOutList, U_TradeDeliveryRequest, U_TradeRRList,U_PlanScanInEdit, U_TradeClothTotalOutList, U_TradeDeliveryRequest, U_TradeRRList,
U_ItemizedListList, U_TradeXinYuStkList, U_TradeXinYuOutList; U_PlanScanInEdit, U_ItemizedListList, U_TradeXinYuStkList, U_TradeXinYuOutList;
///////////////////////////////////////////////////////////////// /////////////////////////////////////////////////////////////////
// 功能说明:取Dll中得窗体 // // 功能说明:取Dll中得窗体 //
@ -84,7 +84,7 @@ begin
pswd := 'rightsoft@5740'; pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// Parameters1 := '¹ÜÀí'; Parameters1 := '管理';
// Parameters2 := '贸易布匹'; // Parameters2 := '贸易布匹';
// Parameters2 := '格美门店'; // Parameters2 := '格美门店';
// Parameters2 := '新余'; // Parameters2 := '新余';
@ -170,6 +170,7 @@ begin
921: //贸易布匹入库 921: //贸易布匹入库
begin begin
Parameters2 := '新余';
with TfrmTradeClothTotalInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do // with TfrmTradeClothTotalInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) do //
begin begin
fFormID := FormID; fFormID := FormID;

24
T02贸易汇总仓库/U_ItemizedListInPut.dfm
View File

@ -2,13 +2,13 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Left = 143 Left = 143
Top = 4 Top = 4
Caption = #35746#21333#24405#20837 Caption = #35746#21333#24405#20837
ClientHeight = 593 ClientHeight = 591
ClientWidth = 1240 ClientWidth = 1240
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -16 Font.Height = -16
Position = poMainFormCenter Position = poMainFormCenter
ExplicitWidth = 1256 ExplicitWidth = 1256
ExplicitHeight = 632 ExplicitHeight = 630
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]
@ -113,7 +113,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Left = 0 Left = 0
Top = 223 Top = 223
Width = 1240 Width = 1240
Height = 370 Height = 368
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 2 TabOrder = 2
@ -121,7 +121,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1238 Width = 1238
Height = 368 Height = 366
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
TabOrder = 0 TabOrder = 0
@ -129,15 +129,17 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1236 Width = 1236
Height = 366 Height = 364
Align = alClient Align = alClient
PopupMenu = PopupMenu2 PopupMenu = PopupMenu2
TabOrder = 0 TabOrder = 0
ExplicitLeft = 2
ExplicitTop = 5
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DS_1 DataController.DataSource = DS_1
DataController.Filter.AutoDataSetFilter = True DataController.Filter.AutoDataSetFilter = True
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@ -149,7 +151,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
item item
Format = '0' Format = '0'
Position = spFooter Position = spFooter
Column = v1PRTOrderQty Column = Tv1TISQty
end end
item item
Format = '0' Format = '0'
@ -158,7 +160,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
DataController.Summary.FooterSummaryItems = < DataController.Summary.FooterSummaryItems = <
item item
Kind = skSum Kind = skSum
Column = v1PRTOrderQty Column = Tv1TISQty
end end
item item
Kind = skSum Kind = skSum
@ -168,7 +170,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
end end
item item
Kind = skSum Kind = skSum
Column = VC_PRTPs Column = Tv1TISPiece
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True OptionsBehavior.FocusCellOnTab = True
@ -289,7 +291,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 93 Width = 93
end end
object VC_PRTPs: TcxGridDBColumn object Tv1TISPiece: TcxGridDBColumn
Caption = #21305#25968 Caption = #21305#25968
DataBinding.FieldName = 'TISPiece' DataBinding.FieldName = 'TISPiece'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -297,7 +299,7 @@ inherited frmItemizedListInPut: TfrmItemizedListInPut
Options.Editing = False Options.Editing = False
Width = 67 Width = 67
end end
object v1PRTOrderQty: TcxGridDBColumn object Tv1TISQty: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327
DataBinding.FieldName = 'TISQty' DataBinding.FieldName = 'TISQty'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True

123
T02贸易汇总仓库/U_ItemizedListInPut.pas
View File

@ -16,7 +16,8 @@ uses
U_BaseInput, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI, IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI,
dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters, dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
dxCore, cxDateUtils, Clipbrd, cxDBLookupComboBox, System.JSON, uSZHN_JSON; dxCore, cxDateUtils, Clipbrd, cxDBLookupComboBox, System.JSON, uSZHN_JSON,
dxCoreGraphics;
type type
TfrmItemizedListInPut = class(TfrmBaseInput) TfrmItemizedListInPut = class(TfrmBaseInput)
@ -45,8 +46,8 @@ type
Tv1: TcxGridDBTableView; Tv1: TcxGridDBTableView;
v1Column11: TcxGridDBColumn; v1Column11: TcxGridDBColumn;
v1PRTColor: TcxGridDBColumn; v1PRTColor: TcxGridDBColumn;
VC_PRTPs: TcxGridDBColumn; Tv1TISPiece: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn; Tv1TISQty: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn; Tv1Column2: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
Tv1Column1: TcxGridDBColumn; Tv1Column1: TcxGridDBColumn;
@ -114,6 +115,8 @@ type
procedure Tv1Column6PropertiesEditValueChanged(Sender: TObject); procedure Tv1Column6PropertiesEditValueChanged(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
procedure Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure FormDestroy(Sender: TObject);
private private
FSCXDH: string; FSCXDH: string;
FShowKeyid: integer; FShowKeyid: integer;
@ -344,6 +347,18 @@ var
begin begin
end; end;
procedure TfrmItemizedListInPut.FormDestroy(Sender: TObject);
begin
inherited;
with ADOQueryBaseCmd do
begin
close;
sql.clear;
SQL.add('delete from Bs_Cloth_IO where tisid not in (select tisid from Trade_ItemizedList_Sub) and STKName = ''贸易布匹'' ');
ExecSQL;
end;
end;
procedure TfrmItemizedListInPut.FormShow(Sender: TObject); procedure TfrmItemizedListInPut.FormShow(Sender: TObject);
var var
i: Integer; i: Integer;
@ -536,6 +551,7 @@ begin
Sql.Add(',@DName=' + quotedstr(Trim(DName))); Sql.Add(',@DName=' + quotedstr(Trim(DName)));
Open; Open;
end; end;
if ADOCmd.FieldByName('intReturn').AsInteger = -1 then if ADOCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOCmd.FieldByName('ShowMsg').AsString))); raise Exception.Create(pchar(trim(ADOCmd.FieldByName('ShowMsg').AsString)));
@ -695,9 +711,14 @@ begin
Application.MessageBox('匹数不能为空!', '提示', 0); Application.MessageBox('匹数不能为空!', '提示', 0);
Exit; Exit;
end; end;
if CDS_1.Locate('TISQty', null, []) then if CDS_1.Locate('TISPiece', 0, []) then
begin begin
Application.MessageBox('数量不能为空!', '提示', 0); Application.MessageBox('匹数不能0!', '提示', 0);
Exit;
end;
if CDS_1.Locate('TISQty', 0, []) then
begin
Application.MessageBox('数量不能0!', '提示', 0);
Exit; Exit;
end; end;
if CDS_1.Locate('C_ColorNo', null, []) then if CDS_1.Locate('C_ColorNo', null, []) then
@ -721,13 +742,13 @@ begin
begin begin
Application.MessageBox('保存成功！', '提示', 0); Application.MessageBox('保存成功！', '提示', 0);
with ADOCmd do // with ADOCmd do
begin // begin
Close; // Close;
sql.Clear; // sql.Clear;
sql.Add('delete Trade_ItemizedList_Sub where ISNULL(TISPiece, 0)+ISNULL(TISQty, 0) =0 and TIMID=' + QuotedStr(Trim(FTIMID))); // sql.Add('delete Trade_ItemizedList_Sub where ISNULL(TISPiece, 0)+ISNULL(TISQty, 0) =0 and TIMID=' + QuotedStr(Trim(FTIMID)));
ExecSQL; // ExecSQL;
end; // end;
// CDS_1.EmptyDataSet; // CDS_1.EmptyDataSet;
// PState := 0; // PState := 0;
@ -1254,6 +1275,84 @@ begin
end; end;
end; end;
procedure TfrmItemizedListInPut.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
var
MTISId, MQtyUnit: string;
AColumn: TcxGridColumn;
begin
AColumn := ACellViewInfo.Item as TcxGridColumn;
if (AColumn.Name <> 'Tv1TISPiece') and (AColumn.Name <> 'Tv1TISQty') then
Exit;
if Trim(CDS_1.FieldByName('TISUnit').AsString) = '' then
begin
Application.MessageBox('单位不能为空!', '提示', 0);
Exit;
end;
if CDS_1.Locate('C_Name', null, []) then
begin
Application.MessageBox('品名不能为空!', '提示', 0);
Exit;
end;
if CDS_1.Locate('C_colorNo', null, []) then
begin
Application.MessageBox('色号不能为空!', '提示', 0);
Exit;
end;
if CDS_1.Locate('C_Color', null, []) then
begin
Application.MessageBox('颜色不能为空!', '提示', 0);
Exit;
end;
MTISId := Trim(Self.CDS_1.FieldByName('TISId').AsString);
MQtyUnit := Trim(Self.CDS_1.FieldByName('TISUnit').AsString);
FName := CDS_1.FieldByName('C_Name').ASString;
FColor := CDS_1.FieldByName('C_Color').ASString;
FColorNo := CDS_1.FieldByName('C_colorNo').ASString;
if SavesubData() then
begin
try
frmItemizedListQtyInPut := TfrmItemizedListQtyInPut.Create(Application);
with frmItemizedListQtyInPut do
begin
FTIMId := Self.FTIMId;
FTISId := MTISId;
FQtyUnit := MQtyUnit;
FName := Self.FName;
FColor := Self.FColor;
FColorNo := Self.FColorNo;
if ShowModal = 1 then
begin
// Self.initGrid1(Self.FTIMID);
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select ');
sql.Add('SubOutQty = sum(isnull( A.Qty,0)) ');
sql.Add(',SubOutPS = count(isnull( A.TISId,0)) ');
sql.Add('from BS_Cloth_IO A ');
SQL.Add('where A.TISID =' + QuotedStr(CDS_1.FieldByName('TISId').AsString));
// ShowMessage(sql.Text);
open;
end;
with self.CDS_1 do
begin
edit;
FieldByName('TISPiece').Value := ADOTemp.FieldByName('SubOutPS').Value;
FieldByName('TISQty').Value := ADOTemp.FieldByName('SubOutQty').Value;
post;
end;
end;
end;
finally
frmItemizedListQtyInPut.Free;
end;
end;
end;
procedure TfrmItemizedListInPut.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer); procedure TfrmItemizedListInPut.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin begin
inherited; inherited;

9
T02贸易汇总仓库/U_ItemizedListList.pas
View File

@ -382,7 +382,8 @@ begin
Order_Main.Delete; Order_Main.Delete;
end; end;
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
InitGrid();
// InitGrid();
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0); application.MessageBox(PChar(Exception(ExceptObject).Message), 'ÌáʾÐÅÏ¢', 0);
@ -405,7 +406,7 @@ begin
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, '; MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, '; MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" } ] } '; MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" } ] } ';
FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson)); // FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson));
JSONObject := TJSONObject.ParseJSONValue(FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson))) as TJSONObject; JSONObject := TJSONObject.ParseJSONValue(FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson))) as TJSONObject;
if JSONObject.B['succsee'] then if JSONObject.B['succsee'] then
begin begin
@ -640,7 +641,7 @@ begin
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, '; MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, '; MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" } ] } '; MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" } ] } ';
FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson)); // FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson));
JSONObject := TJSONObject.ParseJSONValue(FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson))) as TJSONObject; JSONObject := TJSONObject.ParseJSONValue(FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson))) as TJSONObject;
if JSONObject.B['succsee'] then if JSONObject.B['succsee'] then
begin begin
@ -807,7 +808,7 @@ begin
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, '; MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, '; MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" }, ';
MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" } ] } '; MPrintJson := MPrintJson + ' { "IsSql": false, "Filtration":" ' + MFiltration + '" } ] } ';
FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson)); // FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson));
JSONObject := TJSONObject.ParseJSONValue(FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson))) as TJSONObject; JSONObject := TJSONObject.ParseJSONValue(FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson))) as TJSONObject;
if JSONObject.B['succsee'] then if JSONObject.B['succsee'] then
begin begin

48
T02贸易汇总仓库/U_ItemizedListQtyInPut.dfm
View File

@ -2,30 +2,30 @@ inherited frmItemizedListQtyInPut: TfrmItemizedListQtyInPut
Left = 67 Left = 67
Top = 126 Top = 126
Caption = #26126#32454#20837#24211#30331#35760 Caption = #26126#32454#20837#24211#30331#35760
ClientHeight = 499 ClientHeight = 350
ClientWidth = 917 ClientWidth = 552
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -16 Font.Height = -16
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitWidth = 933 ExplicitWidth = 568
ExplicitHeight = 538 ExplicitHeight = 389
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object pnl1: TPanel [0] object pnl1: TPanel [0]
Left = 0 Left = 0
Top = 0 Top = 0
Width = 917 Width = 552
Height = 499 Height = 350
Align = alClient Align = alClient
Caption = 'pnl1' Caption = 'pnl1'
TabOrder = 0 TabOrder = 0
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Tag = 2 Tag = 2
Left = 1 Left = 1
Top = 72 Top = 97
Width = 915 Width = 550
Height = 426 Height = 252
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
@ -41,19 +41,19 @@ inherited frmItemizedListQtyInPut: TfrmItemizedListQtyInPut
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column2 Column = Tv1GrossWeight
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column3 Column = Tv1NetWeight
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column4 Column = Tv1Meter
end end
item item
Kind = skSum Kind = skSum
Column = Tv1Column5 Column = Tv1Yardage
end> end>
DataController.Summary.SummaryGroups = <> DataController.Summary.SummaryGroups = <>
OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.GoToNextCellOnEnter = True
@ -65,7 +65,7 @@ inherited frmItemizedListQtyInPut: TfrmItemizedListQtyInPut
OptionsView.Footer = True OptionsView.Footer = True
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.Indicator = True OptionsView.Indicator = True
object Tv1Column2: TcxGridDBColumn object Tv1GrossWeight: TcxGridDBColumn
Caption = #27611#37325 Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight' DataBinding.FieldName = 'GrossWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
@ -73,28 +73,28 @@ inherited frmItemizedListQtyInPut: TfrmItemizedListQtyInPut
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 143 Width = 143
end end
object Tv1Column3: TcxGridDBColumn object Tv1NetWeight: TcxGridDBColumn
Caption = #20928#37325 Caption = #20928#37325
DataBinding.FieldName = 'NetWeight' DataBinding.FieldName = 'NetWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 103 Width = 103
end end
object Tv1Column4: TcxGridDBColumn object Tv1Meter: TcxGridDBColumn
Caption = #31859#25968 Caption = #31859#25968
DataBinding.FieldName = 'Meter' DataBinding.FieldName = 'Meter'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 105 Width = 105
end end
object Tv1Column5: TcxGridDBColumn object Tv1Yardage: TcxGridDBColumn
Caption = #30721#25968 Caption = #30721#25968
DataBinding.FieldName = 'Yardage' DataBinding.FieldName = 'Yardage'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 107 Width = 107
end end
object Tv1Column1: TcxGridDBColumn object Tv1BCIOID: TcxGridDBColumn
Tag = 7 Tag = 7
Caption = #26465#30721 Caption = #26465#30721
DataBinding.FieldName = 'BCIOID' DataBinding.FieldName = 'BCIOID'
@ -112,7 +112,7 @@ inherited frmItemizedListQtyInPut: TfrmItemizedListQtyInPut
Tag = 1 Tag = 1
Left = 1 Left = 1
Top = 1 Top = 1
Width = 915 Width = 550
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -189,8 +189,8 @@ inherited frmItemizedListQtyInPut: TfrmItemizedListQtyInPut
object pnl2: TPanel object pnl2: TPanel
Left = 1 Left = 1
Top = 31 Top = 31
Width = 915 Width = 550
Height = 41 Height = 66
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
object Label9: TLabel object Label9: TLabel
@ -208,8 +208,8 @@ inherited frmItemizedListQtyInPut: TfrmItemizedListQtyInPut
Caption = #25968#37327 Caption = #25968#37327
end end
object Label1: TLabel object Label1: TLabel
Left = 377 Left = 38
Top = 6 Top = 38
Width = 5 Width = 5
Height = 22 Height = 22
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -237,12 +237,10 @@ inherited frmItemizedListQtyInPut: TfrmItemizedListQtyInPut
end end
end end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 407 Left = 407
Top = 402 Top = 402
end end
inherited ADOQueryBaseTemp: TADOQuery inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 201 Left = 201
Top = 297 Top = 297
end end

64
T02贸易汇总仓库/U_ItemizedListQtyInPut.pas
View File

@ -37,17 +37,17 @@ type
Label9: TLabel; Label9: TLabel;
inQty: TcxCurrencyEdit; inQty: TcxCurrencyEdit;
Label13: TLabel; Label13: TLabel;
Tv1Column2: TcxGridDBColumn; Tv1GrossWeight: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn; Tv1NetWeight: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn; Tv1Meter: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn; Tv1Yardage: TcxGridDBColumn;
btndaoru: TToolButton; btndaoru: TToolButton;
PopupMenu1: TPopupMenu; PopupMenu1: TPopupMenu;
N1: TMenuItem; N1: TMenuItem;
ToolButton2: TToolButton; ToolButton2: TToolButton;
TBSave: TToolButton; TBSave: TToolButton;
TBClose: TToolButton; TBClose: TToolButton;
Tv1Column1: TcxGridDBColumn; Tv1BCIOID: TcxGridDBColumn;
ADOQueryBatch: TADOQuery; ADOQueryBatch: TADOQuery;
Label1: TLabel; Label1: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
@ -442,7 +442,7 @@ begin
end; end;
if ADOQueryBatch.FieldByName('intReturn').AsInteger = -1 then if ADOQueryBatch.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryBatch.FieldByName('ShowMsg').AsString))); raise Exception.Create(pchar(trim(ADOQueryBatch.FieldByName('ShowMsg').AsString)));
// ADOQueryBatch.UpdateBatch; ADOQueryBatch.UpdateBatch;
ADOQueryBatch.Connection.CommitTrans; ADOQueryBatch.Connection.CommitTrans;
Result := True; Result := True;
@ -491,23 +491,43 @@ begin
TV1.DataController.Filter.Clear; TV1.DataController.Filter.Clear;
tv1.EndUpdate; tv1.EndUpdate;
end; end;
if CDS_Sub.IsEmpty then // if CDS_Sub.IsEmpty then
begin
// for i := 1 to 50 do
// begin // begin
CopyAddRowCDS(CDS_Sub); //// for i := 1 to 50 do
with CDS_Sub do //// begin
begin // CopyAddRowCDS(CDS_Sub);
Edit; // with CDS_Sub do
FieldByName('BCIOID').Value := null; // begin
FieldByName('StkCoNo').Value := '±¾³§²Ö¿â'; // Edit;
FieldByName('StkCoName').Value := '±¾³§²Ö¿â'; // FieldByName('BCIOID').Value := null;
post; // FieldByName('StkCoNo').Value := '±¾³§²Ö¿â';
end; // FieldByName('StkCoName').Value := '±¾³§²Ö¿â';
// post;
// end; // end;
//
//// end;
// end;
Tv1NetWeight.Visible := False;
Tv1Meter.Visible := False;
Tv1Yardage.Visible := False;
if LowerCase(FQtyUnit) = 'm' then
begin
Tv1Meter.Visible := true;
end
else if LowerCase(FQtyUnit) = 'y' then
begin
Tv1Yardage.Visible := true;
end
else if LowerCase(FQtyUnit) = 'kg' then
begin
Tv1NetWeight.Visible := true;
end
else
begin
Tv1NetWeight.Visible := true;
Tv1Meter.Visible := true;
Tv1Yardage.Visible := true;
end; end;
end; end;
procedure TfrmItemizedListQtyInPut.FromCoNameDblClick(Sender: TObject); procedure TfrmItemizedListQtyInPut.FromCoNameDblClick(Sender: TObject);
@ -530,11 +550,11 @@ begin
begin begin
Append; Append;
if FQtyUnit = 'M' then if LowerCase(FQtyUnit) = 'm' then
begin begin
FieldByName('Meter').Value := StrTofloatDef(inQty.Text, 0); FieldByName('Meter').Value := StrTofloatDef(inQty.Text, 0);
end end
else if FQtyUnit = 'Y' then else if LowerCase(FQtyUnit) = 'y' then
begin begin
FieldByName('Yardage').Value := StrTofloatDef(inQty.Text, 0); FieldByName('Yardage').Value := StrTofloatDef(inQty.Text, 0);
end end

57
T02贸易汇总仓库/U_TradeClothTotalInList.dfm
View File

@ -20,7 +20,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 99
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clSkyBlue
Images = DataLink_TradeTotalClothStk.cxImageList_bar Images = DataLink_TradeTotalClothStk.cxImageList_bar
@ -37,7 +37,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object TBFind: TToolButton object TBFind: TToolButton
Left = 63 Left = 71
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #36807#28388 Caption = #36807#28388
@ -46,7 +46,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = TBFindClick OnClick = TBFindClick
end end
object TBAdd: TToolButton object TBAdd: TToolButton
Left = 126 Left = 142
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20837#24211 Caption = #20837#24211
@ -54,7 +54,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = TBAddClick OnClick = TBAddClick
end end
object TBEdit: TToolButton object TBEdit: TToolButton
Left = 189 Left = 213
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913 Caption = #20462#25913
@ -62,7 +62,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = TBEditClick OnClick = TBEditClick
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 252 Left = 284
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
@ -70,7 +70,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = TBDelClick OnClick = TBDelClick
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 315 Left = 355
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
@ -78,7 +78,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 378 Left = 426
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #38468#20214 Caption = #38468#20214
@ -86,7 +86,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 441 Left = 497
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
@ -94,7 +94,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = TBExportClick OnClick = TBExportClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 504 Left = 568
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
@ -102,7 +102,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 591 Left = 671
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
@ -110,7 +110,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OnClick = TBCloseClick OnClick = TBCloseClick
end end
object btn1: TToolButton object btn1: TToolButton
Left = 654 Left = 742
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26126#32454#20837#24211 Caption = #26126#32454#20837#24211
@ -264,8 +264,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
ParentBackground = False ParentBackground = False
ParentColor = False ParentColor = False
TabOrder = 6 TabOrder = 6
ExplicitLeft = 2 ExplicitLeft = 4
ExplicitTop = 2
ExplicitWidth = 1230 ExplicitWidth = 1230
ExplicitHeight = 37 ExplicitHeight = 37
inherited lbl2: TLabel inherited lbl2: TLabel
@ -340,16 +339,16 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
end end
object cxPageControl1: TcxPageControl [4] object cxPageControl1: TcxPageControl [4]
Left = 0 Left = 0
Top = 186 Top = 190
Width = 1234 Width = 1234
Height = 480 Height = 476
Align = alClient Align = alClient
TabOrder = 4 TabOrder = 4
Properties.ActivePage = cxTabSheet1 Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
Properties.Style = 5 Properties.Style = 5
OnChange = cxPageControl1Change OnChange = cxPageControl1Change
ClientRectBottom = 480 ClientRectBottom = 476
ClientRectRight = 1234 ClientRectRight = 1234
ClientRectTop = 32 ClientRectTop = 32
object cxTabSheet1: TcxTabSheet object cxTabSheet1: TcxTabSheet
@ -359,7 +358,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1234 Width = 1234
Height = 448 Height = 444
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
@ -410,14 +409,6 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
OptionsView.GroupByBox = False OptionsView.GroupByBox = False
OptionsView.GroupFooters = gfAlwaysVisible OptionsView.GroupFooters = gfAlwaysVisible
OptionsView.IndicatorWidth = 40 OptionsView.IndicatorWidth = 40
object TV2Column1: TcxGridDBColumn
Caption = #20837#24211#21333#21495
DataBinding.FieldName = 'BCIONO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 115
end
object cxGridDBColumn14: TcxGridDBColumn object cxGridDBColumn14: TcxGridDBColumn
Caption = #32534#21495 Caption = #32534#21495
DataBinding.FieldName = 'C_Code' DataBinding.FieldName = 'C_Code'
@ -519,7 +510,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1234 Width = 1234
Height = 448 Height = 444
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 0 TabOrder = 0
@ -1021,7 +1012,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Left = 0 Left = 0
Top = 149 Top = 149
Width = 1234 Width = 1234
Height = 37 Height = 41
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BevelInner = bvLowered BevelInner = bvLowered
@ -1029,10 +1020,10 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
TabOrder = 5 TabOrder = 5
DesignSize = ( DesignSize = (
1230 1230
33) 37)
object Label31: TLabel object Label31: TLabel
Left = 14 Left = 14
Top = 7 Top = 9
Width = 96 Width = 96
Height = 21 Height = 21
Alignment = taCenter Alignment = taCenter
@ -1043,7 +1034,7 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
end end
object LBCPAP: TLabel object LBCPAP: TLabel
Left = 478 Left = 478
Top = 6 Top = 8
Width = 100 Width = 100
Height = 20 Height = 20
Alignment = taCenter Alignment = taCenter
@ -1055,21 +1046,23 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
end end
object BTLP: TButton object BTLP: TButton
Left = 391 Left = 391
Top = 4 Top = 6
Width = 78 Width = 78
Height = 27 Height = 27
Anchors = [akLeft] Anchors = [akLeft]
Caption = #19978#19968#39029 Caption = #19978#19968#39029
TabOrder = 0 TabOrder = 0
ExplicitTop = 5
end end
object BTNP: TButton object BTNP: TButton
Left = 585 Left = 585
Top = 3 Top = 5
Width = 78 Width = 78
Height = 28 Height = 28
Anchors = [akLeft] Anchors = [akLeft]
Caption = #19979#19968#39029 Caption = #19979#19968#39029
TabOrder = 1 TabOrder = 1
ExplicitTop = 4
end end
object TCBNOR: TcxComboBox object TCBNOR: TcxComboBox
Tag = 2 Tag = 2

21
T02贸易汇总仓库/U_TradeClothTotalInList.pas
View File

@ -131,7 +131,6 @@ type
Tv1Column38: TcxGridDBColumn; Tv1Column38: TcxGridDBColumn;
Tv1Column39: TcxGridDBColumn; Tv1Column39: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel; cxGrid1Level1: TcxGridLevel;
TV2Column1: TcxGridDBColumn;
Panel6: TPanel; Panel6: TPanel;
Label31: TLabel; Label31: TLabel;
LBCPAP: TLabel; LBCPAP: TLabel;
@ -229,7 +228,7 @@ begin
end end
else else
begin begin
WSqlStr := CommonFiltersByTv(Tv2, '{"RemovalNull":true,"Fields":"BCIONO"}'); WSqlStr := CommonFiltersByTv(Tv2, '{"RemovalNull":true,"Fields":"BCIOID"}');
end; end;
if TRIM(WSqlStr) <> '' then if TRIM(WSqlStr) <> '' then
SqlStr := SqlStr + ' and ' + WSqlStr; SqlStr := SqlStr + ' and ' + WSqlStr;
@ -316,16 +315,11 @@ begin
else else
WSql := WDateSql; WSql := WDateSql;
SqlStr := ' select A.BCIONO,A.C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit,StkPieceint=sum(CEILING(A.Piece)),StkQty=sum(Qty) '; SqlStr := ' select A.C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit,StkPieceint=sum(CEILING(A.Piece)),StkQty=sum(Qty) ';
SqlStr := SqlStr + ' from BS_Cloth_IO A '; SqlStr := SqlStr + ' from BS_Cloth_IO A ';
SqlStr := SqlStr + ' where 1=1 ' + (WSql); SqlStr := SqlStr + ' where 1=1 ' + (WSql);
SqlStr := SqlStr + ' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''';
SqlStr := SqlStr + ' and IOFlag=''Èë¿â'' '; SqlStr := SqlStr + ' and IOFlag=''Èë¿â'' ';
if Trim(canshu4) <> '' then SqlStr := SqlStr + ' group by C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit';
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
SqlStr := SqlStr + ' group by A.BCIONO,C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit';
// showmessage(SqlStr);
InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code'); InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code');
end; end;
@ -415,7 +409,8 @@ end;
procedure TfrmTradeClothTotalInList.TV2DblClick(Sender: TObject); procedure TfrmTradeClothTotalInList.TV2DblClick(Sender: TObject);
begin begin
cxPageControl1.ActivePageIndex := 1; cxPageControl1.ActivePageIndex := 1;
FMXflag := '·ñ'; FMXflag := 'ĘÇ';
// FMXflag := 'ˇń';
end; end;
procedure TfrmTradeClothTotalInList.BCIONoKeyPress(Sender: TObject; var Key: Char); procedure TfrmTradeClothTotalInList.BCIONoKeyPress(Sender: TObject; var Key: Char);
@ -724,12 +719,12 @@ end;
procedure TfrmTradeClothTotalInList.cxPageControl1Change(Sender: TObject); procedure TfrmTradeClothTotalInList.cxPageControl1Change(Sender: TObject);
begin begin
case cxPageControl1.ActivePageIndex of case cxPageControl1.ActivePageIndex of
1: 1:
begin begin
FMXflag := ''; FMXflag := 'ĘÇ';
InitGrid1(); // InitGrid1();
InitGrid('');
end; end;
end; end;
end; end;

BIN
T02贸易汇总仓库/testDll.res
View File

Binary file not shown.

52
T05贸易门市管理/TradeMarket.dproj
View File

@ -4,7 +4,7 @@
<MainSource>TradeMarket.dpr</MainSource> <MainSource>TradeMarket.dpr</MainSource>
<Base>True</Base> <Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config> <Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>38017</TargetedPlatforms> <TargetedPlatforms>1</TargetedPlatforms>
<AppType>Library</AppType> <AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType> <FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.2</ProjectVersion> <ProjectVersion>19.2</ProjectVersion>
@ -13,16 +13,6 @@
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base> <Base>true</Base>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
<Base_Android64>true</Base_Android64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
<Base_iOSDevice64>true</Base_iOSDevice64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''"> <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32> <Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
@ -43,24 +33,6 @@
<CfgParent>Base</CfgParent> <CfgParent>Base</CfgParent>
<Base>true</Base> <Base>true</Base>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
<Cfg_2_Android64>true</Cfg_2_Android64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
<Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
<Cfg_2_OSX64>true</Cfg_2_OSX64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32> <Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent> <CfgParent>Cfg_2</CfgParent>
@ -84,13 +56,6 @@
<VerInfo_Locale>2052</VerInfo_Locale> <VerInfo_Locale>2052</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Base_Android64)'!=''">
<Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''"> <PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> <DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType> <BT_BuildType>Debug</BT_BuildType>
@ -113,18 +78,9 @@
<DCC_Optimize>false</DCC_Optimize> <DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10xhGemei\T05贸易门市管理\testDll.exe</Debugger_HostApplication> <Debugger_HostApplication>E:\rtgit\trade\D10xhGemei\T05贸易门市管理\testDll.exe</Debugger_HostApplication>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<DelphiCompile Include="$(MainSource)"> <DelphiCompile Include="$(MainSource)">
@ -264,10 +220,6 @@
</Source> </Source>
</Delphi.Personality> </Delphi.Personality>
<Platforms> <Platforms>
<Platform value="Android64">True</Platform>
<Platform value="iOSDevice64">True</Platform>
<Platform value="Linux64">True</Platform>
<Platform value="OSX64">True</Platform>
<Platform value="Win32">True</Platform> <Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform> <Platform value="Win64">False</Platform>
</Platforms> </Platforms>

BIN
T05贸易门市管理/TradeMarket.res
View File

Binary file not shown.

4
T05贸易门市管理/U_GetDllForm.pas
View File

@ -76,10 +76,10 @@ begin
pswd := 'rightsoft@5740'; pswd := 'rightsoft@5740';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server; DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// DParameters1:='高权限'; // DParameters1:='高权限';
//Parameters1 := '管理'; Parameters1 := '管理';
// Parameters1 := '查询'; // Parameters1 := '查询';
// Parameters2 := '梭织'; // Parameters2 := '梭织';
// Parameters4 := '新余'; Parameters4 := '新余';
DCode := 'ADMIN'; DCode := 'ADMIN';
DName := 'ADMIN'; DName := 'ADMIN';
end end

18
T05贸易门市管理/U_TradeMarketInPut.dfm
View File

@ -3,13 +3,13 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Top = 4 Top = 4
Caption = #35746#21333#24405#20837 Caption = #35746#21333#24405#20837
ClientHeight = 736 ClientHeight = 736
ClientWidth = 1921 ClientWidth = 1540
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -16 Font.Height = -16
Position = poMainFormCenter Position = poMainFormCenter
WindowState = wsMaximized WindowState = wsMaximized
OnClose = FormClose OnClose = FormClose
ExplicitWidth = 1937 ExplicitWidth = 1556
ExplicitHeight = 775 ExplicitHeight = 775
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -17,7 +17,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1921 Width = 1540
Height = 38 Height = 38
AutoSize = True AutoSize = True
ButtonHeight = 38 ButtonHeight = 38
@ -83,7 +83,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 193 Top = 193
Width = 1921 Width = 1540
Height = 30 Height = 30
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 99 ButtonWidth = 99
@ -120,7 +120,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
object Panel2: TPanel [2] object Panel2: TPanel [2]
Left = 0 Left = 0
Top = 223 Top = 223
Width = 1921 Width = 1540
Height = 513 Height = 513
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
@ -128,7 +128,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
object Panel3: TPanel object Panel3: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1633 Width = 1252
Height = 511 Height = 511
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
@ -136,7 +136,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1631 Width = 1250
Height = 509 Height = 509
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
@ -430,7 +430,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
end end
end end
object Panel4: TPanel object Panel4: TPanel
Left = 1634 Left = 1253
Top = 1 Top = 1
Width = 286 Width = 286
Height = 511 Height = 511
@ -544,7 +544,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
object ScrollBox1: TScrollBox [3] object ScrollBox1: TScrollBox [3]
Left = 0 Left = 0
Top = 38 Top = 38
Width = 1921 Width = 1540
Height = 155 Height = 155
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone

16
T05贸易门市管理/U_TradeMarketInPut.pas
View File

@ -32,7 +32,7 @@ uses
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinXmas2008Blue; dxSkinXmas2008Blue, dxCoreGraphics;
type type
TfrmTradeMarketInPut = class(TfrmBaseInput) TfrmTradeMarketInPut = class(TfrmBaseInput)
@ -457,13 +457,13 @@ begin
Open; Open;
CustName.Properties.LookupItems.Clear; // CustName.Properties.LookupItems.Clear;
while not Eof do // while not Eof do
begin // begin
CustName.Properties.LookupItems.Add(Trim(ADO_KH.fieldByName('CoName').AsString)); // CustName.Properties.LookupItems.Add(Trim(ADO_KH.fieldByName('CoName').AsString));
Next; // Next;
end; // end;
CustName.ItemIndex := -1; // CustName.ItemIndex := -1;
SCreateCDS(ADO_KH, CDS_KH); SCreateCDS(ADO_KH, CDS_KH);
SInitCDSData(ADO_KH, CDS_KH); SInitCDSData(ADO_KH, CDS_KH);

20
T05贸易门市管理/U_TradeMarketInPut_XY.dfm
View File

@ -9,7 +9,6 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
Position = poMainFormCenter Position = poMainFormCenter
WindowState = wsMaximized WindowState = wsMaximized
OnClose = FormClose OnClose = FormClose
ExplicitLeft = -2
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 775 ExplicitHeight = 775
PixelsPerInch = 96 PixelsPerInch = 96
@ -129,7 +128,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
object Panel3: TPanel object Panel3: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1252 Width = 1538
Height = 511 Height = 511
Align = alClient Align = alClient
Caption = 'Panel2' Caption = 'Panel2'
@ -137,12 +136,10 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1250 Width = 1536
Height = 509 Height = 509
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
ExplicitLeft = -1
ExplicitTop = 5
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
@ -442,10 +439,9 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
end end
object Panel4: TPanel object Panel4: TPanel
Left = 1253 Left = 1253
Top = 1 Top = 216
Width = 286 Width = 286
Height = 511 Height = 296
Align = alRight
Caption = 'Panel4' Caption = 'Panel4'
TabOrder = 1 TabOrder = 1
Visible = False Visible = False
@ -453,7 +449,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
Left = 1 Left = 1
Top = 1 Top = 1
Width = 284 Width = 284
Height = 41 Height = 42
Align = alTop Align = alTop
TabOrder = 0 TabOrder = 0
object Label33: TLabel object Label33: TLabel
@ -480,9 +476,9 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
end end
object GroupBox2: TGroupBox object GroupBox2: TGroupBox
Left = 1 Left = 1
Top = 42 Top = 43
Width = 284 Width = 284
Height = 468 Height = 252
Align = alClient Align = alClient
Caption = #21452#20987#21024#38500#26126#32454#20449#24687 Caption = #21452#20987#21024#38500#26126#32454#20449#24687
TabOrder = 1 TabOrder = 1
@ -490,7 +486,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
Left = 2 Left = 2
Top = 23 Top = 23
Width = 280 Width = 280
Height = 443 Height = 227
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object TvMX: TcxGridDBTableView object TvMX: TcxGridDBTableView

64
T05贸易门市管理/U_TradeMarketInPut_XY.pas
View File

@ -32,7 +32,7 @@ uses
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI, dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinXmas2008Blue; dxSkinXmas2008Blue, dxCoreGraphics;
type type
TfrmTradeMarketInPut_XY = class(TfrmBaseInput) TfrmTradeMarketInPut_XY = class(TfrmBaseInput)
@ -185,6 +185,7 @@ type
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean); procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure TBAddClick(Sender: TObject); procedure TBAddClick(Sender: TObject);
procedure TBEditClick(Sender: TObject); procedure TBEditClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private private
FSCXDH: string; FSCXDH: string;
procedure InitData(); procedure InitData();
@ -438,6 +439,18 @@ begin
OurCoName.Text := '格美'; OurCoName.Text := '格美';
end; end;
procedure TfrmTradeMarketInPut_XY.FormDestroy(Sender: TObject);
begin
inherited;
with ADOQueryBaseCmd do
begin
close;
sql.clear;
SQL.add('delete from Trade_Market_Sub_Qty where TMSID not in (select TMSID from Trade_Market_Sub)');
ExecSQL;
end;
end;
procedure TfrmTradeMarketInPut_XY.FormShow(Sender: TObject); procedure TfrmTradeMarketInPut_XY.FormShow(Sender: TObject);
var var
i: Integer; i: Integer;
@ -448,10 +461,11 @@ begin
begin begin
close; close;
sql.Clear; sql.Clear;
sql.Add(' select CoCode,CoAbbrName from BS_Company where CoType=''客户'' '); sql.Add(' select CoCode,CoAbbrName from BS_Company A left join BS_Company_contact B on A.COID = B.COID where CoType=''客户'' ');
if Trim(canshu4) = '新余' then if Trim(canshu4) = '新余' then
sql.Add(' and Stores=''新余'' '); // sql.Add(' and Stores=''新余'' ');
sql.Add(' and mxarea=''新余'' ');
Open; Open;
@ -499,7 +513,6 @@ begin
sql.Add(' and isnull(STKNAME,'''')=''新余'' '); sql.Add(' and isnull(STKNAME,'''')=''新余'' ');
SQL.add('group by A.C_Code,A.C_Name,A.qtyunit,A.HotQty'); SQL.add('group by A.C_Code,A.C_Name,A.qtyunit,A.HotQty');
SQL.ADD('order by A.C_Code '); SQL.ADD('order by A.C_Code ');
// showmessage(SQL.text);
Open; Open;
end; end;
with ADO_YS do with ADO_YS do
@ -756,16 +769,16 @@ begin
Application.MessageBox('颜色不能为空!', '提示', 0); Application.MessageBox('颜色不能为空!', '提示', 0);
Exit; Exit;
end; end;
if CDS_1.Locate('OrderQty', null, []) then // if CDS_1.Locate('OrderQty', null, []) then
begin // begin
Application.MessageBox('报单数量不能为空!', '提示', 0); // Application.MessageBox('报单数量不能为空!', '提示', 0);
Exit; // Exit;
end; // end;
if CDS_1.Locate('OrderUnit', null, []) then // if CDS_1.Locate('OrderUnit', null, []) then
begin // begin
Application.MessageBox('报单单位不能为空!', '提示', 0); // Application.MessageBox('报单单位不能为空!', '提示', 0);
Exit; // Exit;
end; // end;
if CDS_1.Locate('Price', null, []) then if CDS_1.Locate('Price', null, []) then
begin begin
Application.MessageBox('单价不能为空!', '提示', 0); Application.MessageBox('单价不能为空!', '提示', 0);
@ -1350,6 +1363,7 @@ begin
begin begin
FCoType := '客户'; FCoType := '客户';
FStores := Trim(canshu4); FStores := Trim(canshu4);
FsqlStr := ' and mxarea = ' + QuotedStr(Trim(canshu4));
if ShowModal = 1 then if ShowModal = 1 then
begin begin
self.CustName.Hint := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString); self.CustName.Hint := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
@ -1496,8 +1510,26 @@ begin
canshu4 := self.canshu4; canshu4 := self.canshu4;
if ShowModal = 1 then if ShowModal = 1 then
begin begin
Self.InitMXGrid(Self.MTMSID); // Self.InitMXGrid(Self.MTMSID);
with ADOTemp do
begin
Close;
SQL.Clear;
sql.Add('select ');
sql.Add('SubOutQty = sum(isnull( A.Qty,0)) ');
sql.Add(',SubOutPS = count(isnull( A.TMSQID,0)) ');
sql.Add('from Trade_Market_Sub_Qty A ');
SQL.Add('where A.TMSID =' + QuotedStr(CDS_1.FieldByName('TMSId').AsString));
// ShowMessage(sql.Text);
open;
end;
with self.CDS_1 do
begin
edit;
FieldByName('SubOutPS').Value := ADOTemp.FieldByName('SubOutPS').Value;
FieldByName('SubOutQty').Value := ADOTemp.FieldByName('SubOutQty').Value;
post;
end;
end; end;
end; end;
finally finally

18
T05贸易门市管理/U_TradeMarketList.dfm
View File

@ -3,13 +3,13 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Top = 13 Top = 13
Caption = #22823#36135#21333 Caption = #22823#36135#21333
ClientHeight = 594 ClientHeight = 594
ClientWidth = 1924 ClientWidth = 1540
Color = clBtnFace Color = clBtnFace
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitWidth = 1940 ExplicitWidth = 1556
ExplicitHeight = 633 ExplicitHeight = 633
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -17,7 +17,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1924 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -167,7 +167,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1924 Width = 1540
Height = 91 Height = 91
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -237,7 +237,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
inline frmFrameDateSel1: TfrmFrameDateSel inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 1920 Width = 1536
Height = 37 Height = 37
Align = alTop Align = alTop
Color = clWhite Color = clWhite
@ -246,7 +246,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
TabOrder = 4 TabOrder = 4
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1920 ExplicitWidth = 1536
ExplicitHeight = 37 ExplicitHeight = 37
inherited lbl2: TLabel inherited lbl2: TLabel
Width = 16 Width = 16
@ -259,7 +259,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 152 Top = 152
Width = 1924 Width = 1540
Height = 442 Height = 442
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
@ -520,7 +520,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
object cxTabControl1: TcxTabControl [3] object cxTabControl1: TcxTabControl [3]
Left = 0 Left = 0
Top = 121 Top = 121
Width = 1924 Width = 1540
Height = 31 Height = 31
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -536,7 +536,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
' '#20840#37096' ') ' '#20840#37096' ')
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 31 ClientRectBottom = 31
ClientRectRight = 1924 ClientRectRight = 1540
ClientRectTop = 28 ClientRectTop = 28
end end
inherited loadProcess: TPanel inherited loadProcess: TPanel

2
T05贸易门市管理/U_TradeMarketList.pas
View File

@ -16,7 +16,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd,
dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore, dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore,
dxSkinsDefaultPainters; dxSkinsDefaultPainters, dxSkinWXI;
type type
TfrmTradeMarketList = class(TfrmBaseList) TfrmTradeMarketList = class(TfrmBaseList)

18
T05贸易门市管理/U_TradeMarketList_XY.dfm
View File

@ -3,13 +3,13 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
Top = 13 Top = 13
Caption = #26032#20313#22823#36135#21333 Caption = #26032#20313#22823#36135#21333
ClientHeight = 594 ClientHeight = 594
ClientWidth = 1924 ClientWidth = 1540
Color = clBtnFace Color = clBtnFace
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitWidth = 1940 ExplicitWidth = 1556
ExplicitHeight = 633 ExplicitHeight = 633
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -17,7 +17,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1924 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -169,7 +169,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1924 Width = 1540
Height = 91 Height = 91
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -239,7 +239,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
inline frmFrameDateSel1: TfrmFrameDateSel inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 1920 Width = 1536
Height = 37 Height = 37
Align = alTop Align = alTop
Color = clWhite Color = clWhite
@ -248,7 +248,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
TabOrder = 4 TabOrder = 4
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1920 ExplicitWidth = 1536
ExplicitHeight = 37 ExplicitHeight = 37
inherited lbl2: TLabel inherited lbl2: TLabel
Width = 16 Width = 16
@ -261,7 +261,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 152 Top = 152
Width = 1924 Width = 1540
Height = 442 Height = 442
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
@ -516,7 +516,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
object cxTabControl1: TcxTabControl [3] object cxTabControl1: TcxTabControl [3]
Left = 0 Left = 0
Top = 121 Top = 121
Width = 1924 Width = 1540
Height = 31 Height = 31
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -529,7 +529,7 @@ inherited frmTradeMarketList_XY: TfrmTradeMarketList_XY
' '#20840#37096' ') ' '#20840#37096' ')
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 31 ClientRectBottom = 31
ClientRectRight = 1924 ClientRectRight = 1540
ClientRectTop = 28 ClientRectTop = 28
end end
inherited loadProcess: TPanel inherited loadProcess: TPanel

3
T05贸易门市管理/U_TradeMarketList_XY.pas
View File

@ -16,7 +16,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd,
dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore, dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore,
dxSkinsDefaultPainters; dxSkinsDefaultPainters, dxSkinWXI;
type type
TfrmTradeMarketList_XY = class(TfrmBaseList) TfrmTradeMarketList_XY = class(TfrmBaseList)
@ -284,7 +284,6 @@ begin
end; end;
end; end;
// ShowMessage(SqlStr);
InitCDSData(ADOQueryMain, Order_Main, Tv1, SqlStr, FilterStr, 'TMMId'); InitCDSData(ADOQueryMain, Order_Main, Tv1, SqlStr, FilterStr, 'TMMId');
end; end;

24
T05贸易门市管理/U_TradeMarketQtyInPut.dfm
View File

@ -2,21 +2,21 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
Left = 67 Left = 67
Top = 126 Top = 126
Caption = #26126#32454#20837#24211#30331#35760 Caption = #26126#32454#20837#24211#30331#35760
ClientHeight = 676 ClientHeight = 427
ClientWidth = 1081 ClientWidth = 505
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Height = -16 Font.Height = -16
Position = poScreenCenter Position = poScreenCenter
OnClose = FormClose OnClose = FormClose
ExplicitWidth = 1097 ExplicitWidth = 521
ExplicitHeight = 715 ExplicitHeight = 466
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object pnl1: TPanel [0] object pnl1: TPanel [0]
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1081 Width = 505
Height = 676 Height = 427
Align = alClient Align = alClient
Caption = 'pnl1' Caption = 'pnl1'
TabOrder = 0 TabOrder = 0
@ -24,7 +24,7 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
Tag = 1 Tag = 1
Left = 1 Left = 1
Top = 1 Top = 1
Width = 1079 Width = 503
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -79,7 +79,7 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
object pnl2: TPanel object pnl2: TPanel
Left = 1 Left = 1
Top = 31 Top = 31
Width = 1079 Width = 503
Height = 41 Height = 41
Align = alTop Align = alTop
TabOrder = 1 TabOrder = 1
@ -129,16 +129,16 @@ inherited frmTradeMarketQtyInPut: TfrmTradeMarketQtyInPut
object GroupBox1: TGroupBox object GroupBox1: TGroupBox
Left = 1 Left = 1
Top = 72 Top = 72
Width = 1079 Width = 503
Height = 603 Height = 354
Align = alClient Align = alClient
Caption = #26126#32454#20449#24687 Caption = #26126#32454#20449#24687
TabOrder = 2 TabOrder = 2
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 2 Left = 2
Top = 23 Top = 23
Width = 1075 Width = 499
Height = 578 Height = 329
Align = alClient Align = alClient
TabOrder = 0 TabOrder = 0
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView

11
T05贸易门市管理/U_TradeMarketQtyInPut.pas
View File

@ -13,7 +13,7 @@ uses
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList, cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList,
Vcl.ImgList, ComObj, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils, Vcl.ImgList, ComObj, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils,
cxMaskEdit, cxImageList, cxCurrencyEdit, Vcl.Menus, Clipbrd, dxSkinsCore, cxMaskEdit, cxImageList, cxCurrencyEdit, Vcl.Menus, Clipbrd, dxSkinsCore,
dxSkinsDefaultPainters; dxSkinsDefaultPainters, dxSkinWXI;
type type
TfrmTradeMarketQtyInPut = class(TfrmBaseInput) TfrmTradeMarketQtyInPut = class(TfrmBaseInput)
@ -227,6 +227,14 @@ begin
// Sql.Add(',@DName=' + quotedstr(Trim(DName))); // Sql.Add(',@DName=' + quotedstr(Trim(DName)));
// Open; // Open;
// end; // end;
with ADOQueryCmd do
begin
close;
SQL.Clear;
sql.Add('update Trade_Market_Sub set outqty = (select sum(qty) from Trade_Market_Sub_Qty X where X.TMSID = Trade_Market_Sub.TMSID) where TMSID = ' + QuotedStr(PMTMSId));
// ShowMessage(sql.Text);
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans; ADOQueryCmd.Connection.CommitTrans;
Result := True; Result := True;
@ -313,6 +321,7 @@ begin
end; end;
end; end;
procedure TfrmTradeMarketQtyInPut.TBSaveClick(Sender: TObject); procedure TfrmTradeMarketQtyInPut.TBSaveClick(Sender: TObject);
var var
Maxno: string; Maxno: string;

22
T05贸易门市管理/U_TradeSampletList.dfm
View File

@ -3,14 +3,13 @@ inherited frmTradeSampleList: TfrmTradeSampleList
Top = 13 Top = 13
Caption = #38376#24215#21098#26679 Caption = #38376#24215#21098#26679
ClientHeight = 594 ClientHeight = 594
ClientWidth = 1924 ClientWidth = 1540
Color = clBtnFace Color = clBtnFace
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitLeft = -454 ExplicitWidth = 1556
ExplicitWidth = 1940
ExplicitHeight = 633 ExplicitHeight = 633
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
@ -18,7 +17,7 @@ inherited frmTradeSampleList: TfrmTradeSampleList
Tag = 1 Tag = 1
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1924 Width = 1540
Height = 30 Height = 30
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
@ -86,7 +85,6 @@ inherited frmTradeSampleList: TfrmTradeSampleList
AutoSize = True AutoSize = True
Caption = #26597#30475 Caption = #26597#30475
ImageIndex = 8 ImageIndex = 8
Visible = False
OnClick = TBCKClick OnClick = TBCKClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
@ -179,7 +177,7 @@ inherited frmTradeSampleList: TfrmTradeSampleList
object Panel1: TPanel [1] object Panel1: TPanel [1]
Left = 0 Left = 0
Top = 30 Top = 30
Width = 1924 Width = 1540
Height = 91 Height = 91
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
@ -249,7 +247,7 @@ inherited frmTradeSampleList: TfrmTradeSampleList
inline frmFrameDateSel1: TfrmFrameDateSel inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2 Left = 2
Top = 2 Top = 2
Width = 1920 Width = 1536
Height = 37 Height = 37
Align = alTop Align = alTop
Color = clWhite Color = clWhite
@ -258,7 +256,7 @@ inherited frmTradeSampleList: TfrmTradeSampleList
TabOrder = 4 TabOrder = 4
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2
ExplicitWidth = 1920 ExplicitWidth = 1536
ExplicitHeight = 37 ExplicitHeight = 37
inherited lbl2: TLabel inherited lbl2: TLabel
Width = 16 Width = 16
@ -271,13 +269,11 @@ inherited frmTradeSampleList: TfrmTradeSampleList
object cxGrid1: TcxGrid [2] object cxGrid1: TcxGrid [2]
Left = 0 Left = 0
Top = 152 Top = 152
Width = 1924 Width = 1540
Height = 442 Height = 442
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 3 TabOrder = 3
ExplicitLeft = -8
ExplicitTop = 158
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick OnDblClick = Tv1DblClick
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -535,7 +531,7 @@ inherited frmTradeSampleList: TfrmTradeSampleList
object cxTabControl1: TcxTabControl [3] object cxTabControl1: TcxTabControl [3]
Left = 0 Left = 0
Top = 121 Top = 121
Width = 1924 Width = 1540
Height = 31 Height = 31
Align = alTop Align = alTop
TabOrder = 2 TabOrder = 2
@ -548,7 +544,7 @@ inherited frmTradeSampleList: TfrmTradeSampleList
' '#20840#37096' ') ' '#20840#37096' ')
OnChange = cxTabControl1Change OnChange = cxTabControl1Change
ClientRectBottom = 31 ClientRectBottom = 31
ClientRectRight = 1924 ClientRectRight = 1540
ClientRectTop = 28 ClientRectTop = 28
end end
inherited loadProcess: TPanel inherited loadProcess: TPanel

65
T05贸易门市管理/U_TradeSampletList.pas
View File

@ -16,7 +16,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd,
dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore, dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore,
dxSkinsDefaultPainters; dxSkinsDefaultPainters, dxSkinWXI;
type type
TfrmTradeSampleList = class(TfrmBaseList) TfrmTradeSampleList = class(TfrmBaseList)
@ -193,46 +193,54 @@ end;
procedure TfrmTradeSampleList.SetStatus(); procedure TfrmTradeSampleList.SetStatus();
begin begin
btnCopy.Enabled := false; btnCopy.Visible := false;
tbadd.Enabled := false; tbadd.Visible := false;
TBEdit.Enabled := False; TBEdit.Visible := False;
TBDel.Enabled := False; TBDel.Visible := False;
TBTJ.Enabled := False; TBTJ.Visible := False;
TBTJCX.Enabled := False; TBTJCX.Visible := False;
// tchk.Enabled := false; // tchk.Enabled := false;
// tnochk.Enabled := false; // tnochk.Enabled := false;
TWC.Enabled := False; TWC.Visible := False;
TNowc.Enabled := False; TNowc.Visible := False;
TBDel.Enabled := False; TBDel.Visible := False;
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
tbadd.Enabled := True; if self.fParameters1 = '¹ÜÀí' then
TBEdit.Enabled := True; begin
TBDel.Enabled := True; // tbadd.Visible := True;
TBTJ.Enabled := True; TBEdit.Visible := True;
btnCopy.Enabled := True; TBDel.Visible := True;
// TBTJ.Visible := True;
// btnCopy.Visible := True;
end;
end; end;
1: 1:
begin begin
TBTJCX.Enabled := True; if self.fParameters1 = '¹ÜÀí' then
btnCopy.Enabled := True; begin
TBDel.Enabled := True; // TBTJCX.Visible := True;
// tbadd.Visible := True;
// btnCopy.Visible := True;
TBEdit.Visible := True;
TBDel.Visible := True;
//tchk.Enabled := True; //tchk.Enabled := True;
TWC.Enabled := True; // TWC.Visible := True;
btnCopy.Enabled := True; end;
end; end;
// 2:
// begin
//
//
// //tnochk.Enabled := True;
// end;
2: 2:
begin begin
TNowc.Enabled := True; if self.fParameters1 = '¹ÜÀí' then
btnCopy.Enabled := True; begin
// TNowc.Enabled := True;
// btnCopy.Enabled := True;
TBEdit.Visible := True;
TBDel.Visible := True;
end;
end; end;
end; end;
@ -810,6 +818,7 @@ procedure TfrmTradeSampleList.cxTabControl1Change(Sender: TObject);
begin begin
// SetStatus(); // SetStatus();
InitGrid(); InitGrid();
SetStatus();
end; end;
//procedure TfrmTradeMarketList.TchkClick(Sender: TObject); //procedure TfrmTradeMarketList.TchkClick(Sender: TObject);

BIN
T05贸易门市管理/testDll.res
View File

Binary file not shown.