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
@ -87,7 +87,7 @@ type
procedure InitGrid();
{ Private declarations }
public
FCoType, FAuthority, FStores: string;
FCoType, FAuthority, FStores, FsqlStr: string;
{ Public declarations }
end;
@ -159,6 +159,10 @@ 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)) + '))');
end;
if Trim(FsqlStr) <> '' then
begin
sql.add(FsqlStr);
end;
// if FStores = 'ÐÂÓà' then
// sql.Add(' and A.Stores=''' + Trim(FStores) + '''');
// ShowMessage(sql.Text);

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

@ -3,13 +3,13 @@ inherited frmCustomer: TfrmCustomer
Top = 169
Caption = #23458#25143#36164#26009#31649#29702
ClientHeight = 737
ClientWidth = 1589
ClientWidth = 1540
Color = clBtnFace
Font.Height = -16
FormStyle = fsMDIChild
Position = poScreenCenter
Visible = True
ExplicitWidth = 1605
ExplicitWidth = 1556
ExplicitHeight = 776
PixelsPerInch = 96
TextHeight = 21
@ -17,7 +17,7 @@ inherited frmCustomer: TfrmCustomer
Tag = 1
Left = 0
Top = 0
Width = 1589
Width = 1540
Height = 30
AutoSize = True
ButtonHeight = 30
@ -139,7 +139,7 @@ inherited frmCustomer: TfrmCustomer
object Panel1: TPanel [1]
Left = 0
Top = 30
Width = 1589
Width = 1540
Height = 62
Align = alTop
BevelInner = bvRaised
@ -231,7 +231,7 @@ inherited frmCustomer: TfrmCustomer
object Panel2: TPanel [2]
Left = 0
Top = 534
Width = 1589
Width = 1540
Height = 203
Align = alBottom
Caption = 'Panel2'
@ -239,7 +239,7 @@ inherited frmCustomer: TfrmCustomer
object cxGrid2: TcxGrid
Left = 1
Top = 1
Width = 1020
Width = 971
Height = 201
Align = alClient
TabOrder = 0
@ -352,7 +352,7 @@ inherited frmCustomer: TfrmCustomer
end
end
object cxGrid3: TcxGrid
Left = 1021
Left = 972
Top = 1
Width = 567
Height = 201
@ -398,7 +398,7 @@ inherited frmCustomer: TfrmCustomer
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 92
Width = 1589
Width = 1540
Height = 28
Align = alTop
TabOrder = 3
@ -424,7 +424,7 @@ inherited frmCustomer: TfrmCustomer
object cxGrid1: TcxGrid [6]
Left = 0
Top = 120
Width = 1589
Width = 1540
Height = 414
Align = alClient
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.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.Client, cxContainer,
dxScrollbarAnnotations, Vcl.Menus, cxProgressBar, dxSkinsCore,
dxSkinsDefaultPainters;
dxSkinsDefaultPainters, dxSkinWXI;
type
TfrmCustomer = class(TfrmBaseList)

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

@ -49,7 +49,9 @@ uses
uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
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}

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

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

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

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

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

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

@ -12,7 +12,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxDateRanges,
dxBarBuiltInMenu, cxCheckBox, cxDropDownEdit, cxContainer, cxMaskEdit,
dxScrollbarAnnotations, cxMemo, dxSkinsCore, dxSkinsDefaultPainters, cxMRUEdit,
ComObj, dxSkinWXI;
ComObj, dxSkinWXI, dxCoreGraphics;
type
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)));
Open;
end;
Tv1.BeginUpdate();
with ADOQueryTemp do
begin
DisableControls;
First;
while not Eof do
begin
@ -312,9 +312,8 @@ begin
end;
Next;
end;
EnableControls;
end;
Tv1.EndUpdate();
end;
procedure TfrmClothInfoInput.setName();

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

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

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
Width = 482
inherited cxEditStyleController1: TcxEditStyleController
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
StyleReadOnly.LookAndFeel.SkinName = ''
PixelsPerInch = 96
end
inherited cxImageList_bar: TcxImageList

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

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

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

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

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

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

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

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

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

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

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

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

@ -16,7 +16,8 @@ uses
U_BaseInput, cxImage, cxDBEdit, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdExplicitTLSClientServerBase, IdFTP, ShellAPI,
dxScrollbarAnnotations, cxImageList, dxSkinsCore, dxSkinsDefaultPainters,
dxCore, cxDateUtils, Clipbrd, cxDBLookupComboBox, System.JSON, uSZHN_JSON;
dxCore, cxDateUtils, Clipbrd, cxDBLookupComboBox, System.JSON, uSZHN_JSON,
dxCoreGraphics;
type
TfrmItemizedListInPut = class(TfrmBaseInput)
@ -45,8 +46,8 @@ type
Tv1: TcxGridDBTableView;
v1Column11: TcxGridDBColumn;
v1PRTColor: TcxGridDBColumn;
VC_PRTPs: TcxGridDBColumn;
v1PRTOrderQty: TcxGridDBColumn;
Tv1TISPiece: TcxGridDBColumn;
Tv1TISQty: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
Tv1Column1: TcxGridDBColumn;
@ -114,6 +115,8 @@ type
procedure Tv1Column6PropertiesEditValueChanged(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure Tv1Column8PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure FormDestroy(Sender: TObject);
private
FSCXDH: string;
FShowKeyid: integer;
@ -344,6 +347,18 @@ var
begin
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);
var
i: Integer;
@ -536,6 +551,7 @@ begin
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
Open;
end;
if ADOCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOCmd.FieldByName('ShowMsg').AsString)));
@ -695,9 +711,14 @@ begin
Application.MessageBox('匹数不能为空!', '提示', 0);
Exit;
end;
if CDS_1.Locate('TISQty', null, []) then
if CDS_1.Locate('TISPiece', 0, []) then
begin
Application.MessageBox('数量不能为空!', '提示', 0);
Application.MessageBox('匹数不能0!', '提示', 0);
Exit;
end;
if CDS_1.Locate('TISQty', 0, []) then
begin
Application.MessageBox('数量不能0!', '提示', 0);
Exit;
end;
if CDS_1.Locate('C_ColorNo', null, []) then
@ -721,13 +742,13 @@ begin
begin
Application.MessageBox('保存成功！', '提示', 0);
with ADOCmd do
begin
Close;
sql.Clear;
sql.Add('delete Trade_ItemizedList_Sub where ISNULL(TISPiece, 0)+ISNULL(TISQty, 0) =0 and TIMID=' + QuotedStr(Trim(FTIMID)));
ExecSQL;
end;
// with ADOCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('delete Trade_ItemizedList_Sub where ISNULL(TISPiece, 0)+ISNULL(TISQty, 0) =0 and TIMID=' + QuotedStr(Trim(FTIMID)));
// ExecSQL;
// end;
// CDS_1.EmptyDataSet;
// PState := 0;
@ -1254,6 +1275,84 @@ begin
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);
begin
inherited;

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

@ -382,7 +382,8 @@ begin
Order_Main.Delete;
end;
ADOQueryCmd.Connection.CommitTrans;
InitGrid();
// InitGrid();
except
ADOQueryCmd.Connection.RollbackTrans;
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 + '" } ] } ';
FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson));
// FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson));
JSONObject := TJSONObject.ParseJSONValue(FromPrintFr3(Application, PChar(DConString), PChar(MPrintJson))) as TJSONObject;
if JSONObject.B['succsee'] then
begin
@ -640,7 +641,7 @@ begin
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;
if JSONObject.B['succsee'] then
begin
@ -807,7 +808,7 @@ begin
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;
if JSONObject.B['succsee'] then
begin

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

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

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

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

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

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

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

@ -131,7 +131,6 @@ type
Tv1Column38: TcxGridDBColumn;
Tv1Column39: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
TV2Column1: TcxGridDBColumn;
Panel6: TPanel;
Label31: TLabel;
LBCPAP: TLabel;
@ -229,7 +228,7 @@ begin
end
else
begin
WSqlStr := CommonFiltersByTv(Tv2, '{"RemovalNull":true,"Fields":"BCIONO"}');
WSqlStr := CommonFiltersByTv(Tv2, '{"RemovalNull":true,"Fields":"BCIOID"}');
end;
if TRIM(WSqlStr) <> '' then
SqlStr := SqlStr + ' and ' + WSqlStr;
@ -316,16 +315,11 @@ begin
else
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 + ' where 1=1 ' + (WSql);
SqlStr := SqlStr + ' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''';
SqlStr := SqlStr + ' and IOFlag=''Èë¿â'' ';
if Trim(canshu4) <> '' then
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);
SqlStr := SqlStr + ' group by C_Code,C_Name,C_Color,C_ColorNo,C_Degree,C_Pattern,QtyUnit';
InitCDSData(ADO_2, CDS_2, Tv2, SqlStr, SGetFilters(Panel1, 1, 2), 'C_Code');
end;
@ -415,7 +409,8 @@ end;
procedure TfrmTradeClothTotalInList.TV2DblClick(Sender: TObject);
begin
cxPageControl1.ActivePageIndex := 1;
FMXflag := '·ñ';
FMXflag := 'ĘÇ';
// FMXflag := 'ˇń';
end;
procedure TfrmTradeClothTotalInList.BCIONoKeyPress(Sender: TObject; var Key: Char);
@ -724,12 +719,12 @@ end;
procedure TfrmTradeClothTotalInList.cxPageControl1Change(Sender: TObject);
begin
case cxPageControl1.ActivePageIndex of
1:
begin
FMXflag := '';
InitGrid1();
FMXflag := 'ĘÇ';
// InitGrid1();
InitGrid('');
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>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<TargetedPlatforms>38017</TargetedPlatforms>
<TargetedPlatforms>1</TargetedPlatforms>
<AppType>Library</AppType>
<FrameworkType>VCL</FrameworkType>
<ProjectVersion>19.2</ProjectVersion>
@ -13,16 +13,6 @@
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
<Base_Android64>true</Base_Android64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
<Base_iOSDevice64>true</Base_iOSDevice64>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
<Base_Win32>true</Base_Win32>
<CfgParent>Base</CfgParent>
@ -43,24 +33,6 @@
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
<Cfg_2_Android64>true</Cfg_2_Android64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
<Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
<Cfg_2_OSX64>true</Cfg_2_OSX64>
<CfgParent>Cfg_2</CfgParent>
<Cfg_2>true</Cfg_2>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
<Cfg_2_Win32>true</Cfg_2_Win32>
<CfgParent>Cfg_2</CfgParent>
@ -84,13 +56,6 @@
<VerInfo_Locale>2052</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Android64)'!=''">
<Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
<iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
</PropertyGroup>
<PropertyGroup Condition="'$(Base_Win32)'!=''">
<DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
<BT_BuildType>Debug</BT_BuildType>
@ -113,18 +78,9 @@
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
<BT_BuildType>Debug</BT_BuildType>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
<Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10xhGemei\T05贸易门市管理\testDll.exe</Debugger_HostApplication>
<Debugger_HostApplication>E:\rtgit\trade\D10xhGemei\T05贸易门市管理\testDll.exe</Debugger_HostApplication>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="$(MainSource)">
@ -264,10 +220,6 @@
</Source>
</Delphi.Personality>
<Platforms>
<Platform value="Android64">True</Platform>
<Platform value="iOSDevice64">True</Platform>
<Platform value="Linux64">True</Platform>
<Platform value="OSX64">True</Platform>
<Platform value="Win32">True</Platform>
<Platform value="Win64">False</Platform>
</Platforms>

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';
DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
// DParameters1:='高权限';
//Parameters1 := '管理';
Parameters1 := '管理';
// Parameters1 := '查询';
// Parameters2 := '梭织';
// Parameters4 := '新余';
Parameters4 := '新余';
DCode := 'ADMIN';
DName := 'ADMIN';
end

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

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

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

@ -32,7 +32,7 @@ uses
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinXmas2008Blue;
dxSkinXmas2008Blue, dxCoreGraphics;
type
TfrmTradeMarketInPut = class(TfrmBaseInput)
@ -457,13 +457,13 @@ begin
Open;
CustName.Properties.LookupItems.Clear;
while not Eof do
begin
CustName.Properties.LookupItems.Add(Trim(ADO_KH.fieldByName('CoName').AsString));
Next;
end;
CustName.ItemIndex := -1;
// CustName.Properties.LookupItems.Clear;
// while not Eof do
// begin
// CustName.Properties.LookupItems.Add(Trim(ADO_KH.fieldByName('CoName').AsString));
// Next;
// end;
// CustName.ItemIndex := -1;
SCreateCDS(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
WindowState = wsMaximized
OnClose = FormClose
ExplicitLeft = -2
ExplicitWidth = 1556
ExplicitHeight = 775
PixelsPerInch = 96
@ -129,7 +128,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
object Panel3: TPanel
Left = 1
Top = 1
Width = 1252
Width = 1538
Height = 511
Align = alClient
Caption = 'Panel2'
@ -137,12 +136,10 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
object cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 1250
Width = 1536
Height = 509
Align = alClient
TabOrder = 0
ExplicitLeft = -1
ExplicitTop = 5
object Tv1: TcxGridDBTableView
OnDblClick = Tv1DblClick
OnMouseDown = Tv1MouseDown
@ -442,10 +439,9 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
end
object Panel4: TPanel
Left = 1253
Top = 1
Top = 216
Width = 286
Height = 511
Align = alRight
Height = 296
Caption = 'Panel4'
TabOrder = 1
Visible = False
@ -453,7 +449,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
Left = 1
Top = 1
Width = 284
Height = 41
Height = 42
Align = alTop
TabOrder = 0
object Label33: TLabel
@ -480,9 +476,9 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
end
object GroupBox2: TGroupBox
Left = 1
Top = 42
Top = 43
Width = 284
Height = 468
Height = 252
Align = alClient
Caption = #21452#20987#21024#38500#26126#32454#20449#24687
TabOrder = 1
@ -490,7 +486,7 @@ inherited frmTradeMarketInPut_XY: TfrmTradeMarketInPut_XY
Left = 2
Top = 23
Width = 280
Height = 443
Height = 227
Align = alClient
TabOrder = 0
object TvMX: TcxGridDBTableView

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

@ -32,7 +32,7 @@ uses
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinXmas2008Blue;
dxSkinXmas2008Blue, dxCoreGraphics;
type
TfrmTradeMarketInPut_XY = class(TfrmBaseInput)
@ -185,6 +185,7 @@ type
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure TBAddClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
FSCXDH: string;
procedure InitData();
@ -438,6 +439,18 @@ begin
OurCoName.Text := '格美';
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);
var
i: Integer;
@ -448,10 +461,11 @@ begin
begin
close;
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
sql.Add(' and Stores=''新余'' ');
// sql.Add(' and Stores=''新余'' ');
sql.Add(' and mxarea=''新余'' ');
Open;
@ -499,7 +513,6 @@ begin
sql.Add(' and isnull(STKNAME,'''')=''新余'' ');
SQL.add('group by A.C_Code,A.C_Name,A.qtyunit,A.HotQty');
SQL.ADD('order by A.C_Code ');
// showmessage(SQL.text);
Open;
end;
with ADO_YS do
@ -756,16 +769,16 @@ begin
Application.MessageBox('颜色不能为空!', '提示', 0);
Exit;
end;
if CDS_1.Locate('OrderQty', null, []) then
begin
Application.MessageBox('报单数量不能为空!', '提示', 0);
Exit;
end;
if CDS_1.Locate('OrderUnit', null, []) then
begin
Application.MessageBox('报单单位不能为空!', '提示', 0);
Exit;
end;
// if CDS_1.Locate('OrderQty', null, []) then
// begin
// Application.MessageBox('报单数量不能为空!', '提示', 0);
// Exit;
// end;
// if CDS_1.Locate('OrderUnit', null, []) then
// begin
// Application.MessageBox('报单单位不能为空!', '提示', 0);
// Exit;
// end;
if CDS_1.Locate('Price', null, []) then
begin
Application.MessageBox('单价不能为空!', '提示', 0);
@ -1350,6 +1363,7 @@ begin
begin
FCoType := '客户';
FStores := Trim(canshu4);
FsqlStr := ' and mxarea = ' + QuotedStr(Trim(canshu4));
if ShowModal = 1 then
begin
self.CustName.Hint := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
@ -1496,8 +1510,26 @@ begin
canshu4 := self.canshu4;
if ShowModal = 1 then
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;
finally

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

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

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

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

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

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

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

@ -16,7 +16,7 @@ uses
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd,
dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore,
dxSkinsDefaultPainters;
dxSkinsDefaultPainters, dxSkinWXI;
type
TfrmTradeMarketList_XY = class(TfrmBaseList)
@ -263,7 +263,7 @@ procedure TfrmTradeMarketList_XY.InitGrid();
var
SqlStr, FilterStr: string;
begin
FilterStr := SGetFilters(Panel1, 1, 2);
FilterStr := SGetFilters(Panel1, 1, 2);
SqlStr := ' exec P_Trade_Market_View ';
SqlStr := SqlStr + ' @BegDate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)));
@ -284,7 +284,6 @@ begin
end;
end;
// ShowMessage(SqlStr);
InitCDSData(ADOQueryMain, Order_Main, Tv1, SqlStr, FilterStr, 'TMMId');
end;

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

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

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

@ -13,7 +13,7 @@ uses
cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseInput, System.ImageList,
Vcl.ImgList, ComObj, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils,
cxMaskEdit, cxImageList, cxCurrencyEdit, Vcl.Menus, Clipbrd, dxSkinsCore,
dxSkinsDefaultPainters;
dxSkinsDefaultPainters, dxSkinWXI;
type
TfrmTradeMarketQtyInPut = class(TfrmBaseInput)
@ -227,6 +227,14 @@ begin
// Sql.Add(',@DName=' + quotedstr(Trim(DName)));
// Open;
// 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;
Result := True;
@ -313,6 +321,7 @@ begin
end;
end;
procedure TfrmTradeMarketQtyInPut.TBSaveClick(Sender: TObject);
var
Maxno: string;

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

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

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

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

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

Binary file not shown.