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

1

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-07-15 16:37:56 +08:00
parent 21681a1008
commit 2d0dc85025
11 changed files with 71 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

0
A00通用方法/U_CustomFun.pas.tmp Normal file
View File

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

@ -71,7 +71,7 @@ type
procedure InitGrid(); procedure InitGrid();
{ Private declarations } { Private declarations }
public public
FCoType, FAuthority: string; FCoType, FAuthority, FStores: string;
{ Public declarations } { Public declarations }
end; end;
@ -143,6 +143,8 @@ 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 FStores = '新余' then
sql.Add(' and A.Stores=''' + Trim(FStores) + '''');
Open; Open;
end; end;
@ -190,7 +192,7 @@ end;
procedure TfrmCompanySel.FormDestroy(Sender: TObject); procedure TfrmCompanySel.FormDestroy(Sender: TObject);
begin begin
inherited; inherited;
frmCompanySel:= nil; frmCompanySel := nil;
end; end;
end. end.

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

@ -131,6 +131,7 @@ type
procedure SetStatus(); procedure SetStatus();
public public
FAuthority: string; FAuthority: string;
canshu4: string;
end; end;
var var
@ -219,6 +220,10 @@ begin
begin begin
SqlStr := SqlStr + ' and ( SalesId=' + quotedstr(trim(DCode)) + ' or exists (select * from [dbo].[F_Tool_SplitString](TallyId,'','') X where X.RTValue =' + quotedstr(trim(DCode)) + '))'; SqlStr := SqlStr + ' 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(canshu4) = '新余' then
SqlStr := SqlStr + ' and Stores=''新余'' ';
SqlStr := SqlStr + ' ORDER BY CoCode '; SqlStr := SqlStr + ' ORDER BY CoCode ';
InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, FilterStr, 'CoCode'); InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, FilterStr, 'CoCode');
end; end;
@ -282,7 +287,10 @@ procedure TfrmCustomer.FormShow(Sender: TObject);
begin begin
inherited; inherited;
fFlileFlag := UserDataFlag + 'HX'; fFlileFlag := UserDataFlag + 'HX';
FAuthority := self.fParameters1;
FAuthority := trim(self.fParameters1);
canshu4 := trim(self.fParameters4);
ReadCxGrid(trim(self.caption) + 'Tv1', Tv1, '¿Í»§¹ÜÀí'); ReadCxGrid(trim(self.caption) + 'Tv1', Tv1, '¿Í»§¹ÜÀí');
ReadCxGrid(trim(self.caption) + 'Tv2', Tv2, '¿Í»§¹ÜÀí'); ReadCxGrid(trim(self.caption) + 'Tv2', Tv2, '¿Í»§¹ÜÀí');
HiddenTVColumn(Tv1, 'COID'); HiddenTVColumn(Tv1, 'COID');

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

@ -86,6 +86,7 @@ begin
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 := '贸易布匹';
Parameters4 := '新余';
DName := 'ADMIN'; DName := 'ADMIN';
DCode := 'ADMIN'; DCode := 'ADMIN';
end end

73
T02贸易汇总仓库/U_TradeClothTotalInInput.dfm
View File

@ -60,15 +60,16 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 101 Width = 77
end end
object v1Column6: TcxGridDBColumn object v1Column6: TcxGridDBColumn
Tag = 7
Caption = #20837#24211#26465#30721 Caption = #20837#24211#26465#30721
DataBinding.FieldName = 'BCIOID' DataBinding.FieldName = 'BCIOID'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 111 Width = 77
end end
object v1Column2: TcxGridDBColumn object v1Column2: TcxGridDBColumn
Caption = #20837#24211#26102#38388 Caption = #20837#24211#26102#38388
@ -78,7 +79,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
Properties.SaveTime = False Properties.SaveTime = False
Properties.ShowTime = False Properties.ShowTime = False
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object v1Column4: TcxGridDBColumn object v1Column4: TcxGridDBColumn
Caption = #20837#24211#31867#22411 Caption = #20837#24211#31867#22411
@ -93,7 +94,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
#30424#30408#20837#24211 #30424#30408#20837#24211
#26399#21021#20837#24211) #26399#21021#20837#24211)
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object v1FactoryName: TcxGridDBColumn object v1FactoryName: TcxGridDBColumn
Caption = #26469#33258#21333#20301 Caption = #26469#33258#21333#20301
@ -109,7 +110,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = v1Column14PropertiesButtonClick Properties.OnButtonClick = v1Column14PropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object Tv1Column1: TcxGridDBColumn object Tv1Column1: TcxGridDBColumn
Caption = #23384#25918#21333#20301 Caption = #23384#25918#21333#20301
@ -124,7 +125,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column1PropertiesButtonClick Properties.OnButtonClick = Tv1Column1PropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object Tv1Column12: TcxGridDBColumn object Tv1Column12: TcxGridDBColumn
Caption = #37319#36141#21333#21495 Caption = #37319#36141#21333#21495
@ -132,7 +133,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 111 Width = 77
end end
object Tv1Column4: TcxGridDBColumn object Tv1Column4: TcxGridDBColumn
Caption = #35745#21010#21333#21495 Caption = #35745#21010#21333#21495
@ -147,7 +148,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column4PropertiesButtonClick Properties.OnButtonClick = Tv1Column4PropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object Tv1Column14: TcxGridDBColumn object Tv1Column14: TcxGridDBColumn
Caption = #21512#21516#21495 Caption = #21512#21516#21495
@ -162,7 +163,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
Properties.ReadOnly = True Properties.ReadOnly = True
Properties.OnButtonClick = Tv1Column14PropertiesButtonClick Properties.OnButtonClick = Tv1Column14PropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object Tv1Column8: TcxGridDBColumn object Tv1Column8: TcxGridDBColumn
Caption = #20135#21697#32534#21495 Caption = #20135#21697#32534#21495
@ -176,7 +177,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
end> end>
Properties.OnButtonClick = Tv1Column8PropertiesButtonClick Properties.OnButtonClick = Tv1Column8PropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object v1SPName: TcxGridDBColumn object v1SPName: TcxGridDBColumn
Caption = #21697#21517 Caption = #21697#21517
@ -190,14 +191,14 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
end> end>
Properties.OnButtonClick = v2Column1PropertiesButtonClick Properties.OnButtonClick = v2Column1PropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object Tv1Column15: TcxGridDBColumn object Tv1Column15: TcxGridDBColumn
Caption = #33521#25991#21697#21517 Caption = #33521#25991#21697#21517
DataBinding.FieldName = 'C_EName' DataBinding.FieldName = 'C_EName'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object v1SPSpec: TcxGridDBColumn object v1SPSpec: TcxGridDBColumn
Caption = #35268#26684 Caption = #35268#26684
@ -212,28 +213,28 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
Properties.OnButtonClick = v1Column8PropertiesButtonClick Properties.OnButtonClick = v1Column8PropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object v1SPMF: TcxGridDBColumn object v1SPMF: TcxGridDBColumn
Caption = #38376#24133 Caption = #38376#24133
DataBinding.FieldName = 'C_Width' DataBinding.FieldName = 'C_Width'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object v1Column8: TcxGridDBColumn object v1Column8: TcxGridDBColumn
Caption = #20811#37325 Caption = #20811#37325
DataBinding.FieldName = 'C_GramWeight' DataBinding.FieldName = 'C_GramWeight'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object Tv1Column7: TcxGridDBColumn object Tv1Column7: TcxGridDBColumn
Caption = #32568#21495 Caption = #32568#21495
DataBinding.FieldName = 'FtyPCId' DataBinding.FieldName = 'FtyPCId'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object v1Column9: TcxGridDBColumn object v1Column9: TcxGridDBColumn
Caption = #21305#25968 Caption = #21305#25968
@ -241,7 +242,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object v2Column6: TcxGridDBColumn object v2Column6: TcxGridDBColumn
Caption = #25968#37327 Caption = #25968#37327
@ -249,7 +250,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxTextEditProperties' PropertiesClassName = 'TcxTextEditProperties'
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object v1QtyUnit: TcxGridDBColumn object v1QtyUnit: TcxGridDBColumn
Caption = #21333#20301 Caption = #21333#20301
@ -262,7 +263,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
'Y' 'Y'
'Kg') 'Kg')
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object v1Column5: TcxGridDBColumn object v1Column5: TcxGridDBColumn
Caption = #24211#20301 Caption = #24211#20301
@ -277,7 +278,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
Properties.ReadOnly = False Properties.ReadOnly = False
Properties.OnButtonClick = v1Column5PropertiesButtonClick Properties.OnButtonClick = v1Column5PropertiesButtonClick
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object v1Column7: TcxGridDBColumn object v1Column7: TcxGridDBColumn
Caption = #36710#38388 Caption = #36710#38388
@ -289,77 +290,77 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
#19968#36710#38388 #19968#36710#38388
#20108#36710#38388) #20108#36710#38388)
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object Tv1Column3: TcxGridDBColumn object Tv1Column3: TcxGridDBColumn
Caption = #33394#21035 Caption = #33394#21035
DataBinding.FieldName = 'C_ColorDepth' DataBinding.FieldName = 'C_ColorDepth'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object Tv1Column5: TcxGridDBColumn object Tv1Column5: TcxGridDBColumn
Caption = #30721#23610 Caption = #30721#23610
DataBinding.FieldName = 'Yardstick' DataBinding.FieldName = 'Yardstick'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object Tv1Column2: TcxGridDBColumn object Tv1Column2: TcxGridDBColumn
Caption = #39068#33394 Caption = #39068#33394
DataBinding.FieldName = 'C_Color' DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object Tv1Column6: TcxGridDBColumn object Tv1Column6: TcxGridDBColumn
Caption = #33394#21495 Caption = #33394#21495
DataBinding.FieldName = 'C_ColorNo' DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object Tv1Column9: TcxGridDBColumn object Tv1Column9: TcxGridDBColumn
Caption = #27454#21495 Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo' DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object Tv1Column10: TcxGridDBColumn object Tv1Column10: TcxGridDBColumn
Caption = #25104#20998 Caption = #25104#20998
DataBinding.FieldName = 'C_Composition' DataBinding.FieldName = 'C_Composition'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object Tv1Column13: TcxGridDBColumn object Tv1Column13: TcxGridDBColumn
Caption = #25209#21495 Caption = #25209#21495
DataBinding.FieldName = 'BatchNo' DataBinding.FieldName = 'BatchNo'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object Tv1Column11: TcxGridDBColumn object Tv1Column11: TcxGridDBColumn
Caption = #33457#22411 Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern' DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object v1Column12: TcxGridDBColumn object v1Column12: TcxGridDBColumn
Caption = #22791#27880 Caption = #22791#27880
DataBinding.FieldName = 'Note' DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object Tv1Column16: TcxGridDBColumn object Tv1Column16: TcxGridDBColumn
Caption = #33521#25991#39068#33394 Caption = #33521#25991#39068#33394
DataBinding.FieldName = 'C_EColor' DataBinding.FieldName = 'C_EColor'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
object Tv1Column17: TcxGridDBColumn object Tv1Column17: TcxGridDBColumn
Caption = #21152#24037#21035 Caption = #21152#24037#21035
@ -367,7 +368,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 111 Width = 77
end end
object Tv1Column18: TcxGridDBColumn object Tv1Column18: TcxGridDBColumn
Caption = #21518#21152#24037#20013#25991 Caption = #21518#21152#24037#20013#25991
@ -375,7 +376,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 111 Width = 77
end end
object Tv1Column19: TcxGridDBColumn object Tv1Column19: TcxGridDBColumn
Caption = #21518#21152#24037#33521#25991 Caption = #21518#21152#24037#33521#25991
@ -383,7 +384,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 111 Width = 77
end end
object Tv1Column20: TcxGridDBColumn object Tv1Column20: TcxGridDBColumn
Caption = #24067#31181 Caption = #24067#31181
@ -391,7 +392,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Options.Editing = False Options.Editing = False
Width = 111 Width = 77
end end
object Tv1Column21: TcxGridDBColumn object Tv1Column21: TcxGridDBColumn
Caption = #31867#22411 Caption = #31867#22411
@ -404,7 +405,7 @@ inherited frmTradeClothTotalInInput: TfrmTradeClothTotalInInput
#21322#25104#21697 #21322#25104#21697
#25104#21697) #25104#21697)
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 111 Width = 77
end end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel

6
T02贸易汇总仓库/U_TradeClothTotalInInput.pas
View File

@ -571,14 +571,16 @@ begin
FieldByName('C_Composition').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Composition').AsString); FieldByName('C_Composition').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Composition').AsString);
FieldByName('C_Width').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Width').AsString); FieldByName('C_Width').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Width').AsString);
FieldByName('C_GramWeight').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_GramWeight').AsString); FieldByName('C_GramWeight').Value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_GramWeight').AsString);
Fieldbyname('C_ColorNo').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_ColorNo').AsString);
Fieldbyname('C_Color').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Color').AsString);
Fieldbyname('C_Pattern').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Pattern').AsString); Fieldbyname('C_Pattern').value := trim(frmClothInfoSel.CDS_1.Fieldbyname('C_Pattern').AsString);
Fieldbyname('CraftCode').value := frmClothInfoSel.CDS_1.Fieldbyname('CraftCode').value; Fieldbyname('CraftCode').value := frmClothInfoSel.CDS_1.Fieldbyname('CraftCode').value;
Fieldbyname('CraftName').value := frmClothInfoSel.CDS_1.Fieldbyname('CraftName').value; Fieldbyname('CraftName').value := frmClothInfoSel.CDS_1.Fieldbyname('CraftName').value;
Fieldbyname('CraftEName').value := frmClothInfoSel.CDS_1.Fieldbyname('CraftEName').value; Fieldbyname('CraftEName').value := frmClothInfoSel.CDS_1.Fieldbyname('CraftEName').value;
Fieldbyname('GC_Name').value := frmClothInfoSel.CDS_1.Fieldbyname('GC_Name').value; Fieldbyname('GC_Name').value := frmClothInfoSel.CDS_1.Fieldbyname('GC_Name').value;
Fieldbyname('C_ColorNo').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_ColorNo').AsString);
Fieldbyname('C_Color').value := trim(frmClothInfoSel.CDS_3.Fieldbyname('C_Color').AsString);
end; end;
end; end;

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

@ -8,8 +8,8 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Visible = True Visible = True
ExplicitWidth = 1303 ExplicitWidth = 1311
ExplicitHeight = 637 ExplicitHeight = 645
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]

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

@ -8,8 +8,8 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Font.Height = -16 Font.Height = -16
Position = poMainFormCenter Position = poMainFormCenter
WindowState = wsMaximized WindowState = wsMaximized
ExplicitWidth = 1921 ExplicitWidth = 1929
ExplicitHeight = 683 ExplicitHeight = 691
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]

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

@ -197,8 +197,6 @@ begin
FieldByName('TMSId').Value := Trim(maxno); FieldByName('TMSId').Value := Trim(maxno);
FieldByName('TMSPiece').Value := 0; FieldByName('TMSPiece').Value := 0;
FieldByName('TMSQty').Value := 0; FieldByName('TMSQty').Value := 0;
Post; Post;
end; end;
@ -358,6 +356,10 @@ 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 where CoType=''¿Í»§'' ');
if Trim(canshu4) = '新余' then
sql.Add(' and Stores=''新余'' ');
Open; Open;
CustName.Properties.LookupItems.Clear; CustName.Properties.LookupItems.Clear;
@ -413,7 +415,7 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add(' SELECT C_GYSNAME FROM BS_Cloth_Info_GYSCP'); sql.Add(' SELECT C_GYSNAME FROM BS_Cloth_Info_GYSCP ');
Open; Open;
end; end;
with ADO_DanWei do with ADO_DanWei do
@ -1081,12 +1083,14 @@ begin
with frmCompanySel do with frmCompanySel do
begin begin
FCoType := '¿Í»§'; FCoType := '¿Í»§';
FStores := 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);
self.CustName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString); self.CustName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
self.ShippingAddress.Text := Trim(frmCompanySel.CDS_1.fieldbyname('mxaddress').AsString); self.ShippingAddress.Text := Trim(frmCompanySel.CDS_1.fieldbyname('mxaddress').AsString);
self.CONTACT.Text := Trim(frmCompanySel.CDS_1.fieldbyname('PhoneNumber').AsString); self.CONTACT.Text := Trim(frmCompanySel.CDS_1.fieldbyname('PhoneNumber').AsString);
end; end;
end; end;

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

@ -9,8 +9,8 @@ inherited frmTradeMarketList: TfrmTradeMarketList
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitWidth = 1799 ExplicitWidth = 1807
ExplicitHeight = 625 ExplicitHeight = 633
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 21 TextHeight = 21
object ToolBar1: TToolBar [0] object ToolBar1: TToolBar [0]

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

@ -266,6 +266,8 @@ begin
SqlStr := SqlStr + ' ,@StkPosition= ' + QuotedStr(Trim(canshu2)); SqlStr := SqlStr + ' ,@StkPosition= ' + QuotedStr(Trim(canshu2));
if canshu1 = '¼Èë' then if canshu1 = '¼Èë' then
SqlStr := SqlStr + ' ,@Filler= ' + QuotedStr(Trim(DName)); SqlStr := SqlStr + ' ,@Filler= ' + QuotedStr(Trim(DName));
SqlStr := SqlStr + ' ,@Stores= ' + QuotedStr(Trim(canshu4));
case cxTabControl1.TabIndex of case cxTabControl1.TabIndex of
0: 0:
begin begin
@ -499,7 +501,7 @@ begin
inherited; inherited;
canshu1 := trim(self.fParameters1); canshu1 := trim(self.fParameters1);
canshu2 := trim(self.fParameters2); canshu2 := trim(self.fParameters2);
canshu4 := trim(self.canshu4); canshu4 := trim(self.fParameters4);
fFlileFlag := UserDataFlag + 'HX'; fFlileFlag := UserDataFlag + 'HX';
cxTabControl1.TabIndex := 0; cxTabControl1.TabIndex := 0;
InitForm(); InitForm();