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:
“ddf” 2025-01-14 16:18:44 +08:00
parent 6e71fa50ac
commit f786431198
52 changed files with 750 additions and 8495 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
A01基础公司管理/U_EmployeeList.dfm
View File

@ -4,7 +4,7 @@ inherited frmEmployeeList: TfrmEmployeeList
ClientHeight = 509
ClientWidth = 1523
Font.Height = -16
Font.Name = #24494#36719#38597#40657
FormStyle = fsMDIChild
ExplicitWidth = 1539
ExplicitHeight = 548
PixelsPerInch = 96
@ -31,7 +31,7 @@ inherited frmEmployeeList: TfrmEmployeeList
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
TabOrder = 3
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -164,7 +164,7 @@ inherited frmEmployeeList: TfrmEmployeeList
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
TabOrder = 5
object Label1: TLabel
Left = 31
Top = 43
@ -330,8 +330,6 @@ inherited frmEmployeeList: TfrmEmployeeList
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 1
ExplicitLeft = -2
ExplicitTop = 37
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -495,6 +493,9 @@ inherited frmEmployeeList: TfrmEmployeeList
end
end
end
inherited cxProgressBar2: TcxProgressBar
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Company.ADOLink
Left = 272

20
A01基础公司管理/U_EmployeeList.pas
View File

@ -12,24 +12,8 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
cxDropDownEdit, cxPC, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL, cxTLData,
cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, dxBarBuiltInMenu,
cxNavigator, U_BaseList, dxDateRanges,
cxContainer, cxTextEdit,
dxScrollbarAnnotations;
cxNavigator, U_BaseList, dxDateRanges, cxContainer, cxTextEdit,
dxScrollbarAnnotations, cxProgressBar;
type
TfrmEmployeeList = class(TfrmBaseList)

14
A01基础公司管理/U_SYDept.dfm
View File

@ -5,7 +5,7 @@ inherited frmSYDept: TfrmSYDept
ClientHeight = 470
ClientWidth = 988
Font.Height = -16
Font.Name = #24494#36719#38597#40657
FormStyle = fsMDIChild
ExplicitWidth = 1004
ExplicitHeight = 509
PixelsPerInch = 96
@ -26,7 +26,7 @@ inherited frmSYDept: TfrmSYDept
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
TabOrder = 3
object TBRafresh: TToolButton
Left = 0
Top = 0
@ -94,10 +94,9 @@ inherited frmSYDept: TfrmSYDept
OptionsView.CellAutoHeight = True
OptionsView.Headers = False
RootValue = -1
TabOrder = 1
ScrollbarAnnotations.CustomAnnotations = <>
TabOrder = 4
OnClick = cxDBTreeList1Click
ExplicitTop = 38
ExplicitHeight = 432
object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
DataBinding.FieldName = 'DPName'
Width = 210
@ -119,8 +118,6 @@ inherited frmSYDept: TfrmSYDept
Color = clWhite
ParentBackground = False
TabOrder = 2
ExplicitTop = 38
ExplicitHeight = 432
object Label1: TLabel
Left = 42
Top = 54
@ -193,6 +190,9 @@ inherited frmSYDept: TfrmSYDept
TabOrder = 3
end
end
inherited cxProgressBar2: TcxProgressBar
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Company.ADOLink
Left = 313

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

@ -10,7 +10,7 @@ uses
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxClasses, cxGridCustomView, cxGrid, cxTextEdit, cxLookAndFeels,
cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, cxNavigator, U_BaseList,
dxDateRanges;
dxDateRanges, cxContainer, dxScrollbarAnnotations, cxProgressBar;
type
TfrmSYDept = class(TfrmBaseList)

8
A02基础产品管理/U_CloInfoFileUp.dfm
View File

@ -63,7 +63,7 @@ object frmCloInfoFileUp: TfrmCloInfoFileUp
Height = 30
BevelInner = bvRaised
Caption = #27491#22312#19978#20256#12290#12290#12290
Color = clSkyBlue
Color = clBtnFace
TabOrder = 1
Visible = False
end
@ -77,7 +77,7 @@ object frmCloInfoFileUp: TfrmCloInfoFileUp
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Images = DataLink_ClothInfo.ImageList_new32
Images = DataLink_ClothInfo.cxImageList_bar
List = True
ShowCaptions = True
TabOrder = 2
@ -120,7 +120,7 @@ object frmCloInfoFileUp: TfrmCloInfoFileUp
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
end
object Image2: TImage
Left = 773
@ -146,7 +146,7 @@ object frmCloInfoFileUp: TfrmCloInfoFileUp
Font.Height = -17
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
ReadOnly = True
TabOrder = 0
end

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

@ -24,11 +24,11 @@ inherited frmClothInfo: TfrmClothInfo
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_ClothInfo.ImageList_new32
Color = clBtnFace
DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar
List = True
ParentColor = False
ParentColor = True
ShowCaptions = True
TabOrder = 3
object TBRafresh: TToolButton
@ -181,7 +181,7 @@ inherited frmClothInfo: TfrmClothInfo
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
end
object Label12: TLabel
Left = 626
@ -193,7 +193,7 @@ inherited frmClothInfo: TfrmClothInfo
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
end
object Label3: TLabel
Left = 553
@ -384,13 +384,13 @@ inherited frmClothInfo: TfrmClothInfo
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 5
Visible = False
end
@ -638,7 +638,6 @@ inherited frmClothInfo: TfrmClothInfo
Align = alClient
PopupMenu = PM_1
TabOrder = 2
ExplicitLeft = 4
object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <>

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

@ -189,7 +189,7 @@ type
CurrentPage, RecordsNumber: Integer;
CTID: string;
PState: Integer;
FCTID, FTopID, FJurisdiction, FCTType, CTID1, CTID2: string;
FCTID, FTopID, FJurisdiction, FCTType, canshu3, CTID1, CTID2: string;
procedure SetStatus();
procedure setpage();
procedure InitTree();
@ -377,6 +377,7 @@ begin
inherited;
FJurisdiction := Trim(Self.fParameters1);
FCTType := Trim(self.fParameters2);
canshu3 := Trim(self.fParameters3);
end;
procedure TfrmClothInfo.TBCloseClick(Sender: TObject);
@ -599,53 +600,13 @@ procedure TfrmClothInfo.TBCopyClick(Sender: TObject);
begin
if Self.CDS_Tree.locate('CTName', Self.CDS_1.fieldbyname('CTName').AsString, []) then
begin
if (Self.CDS_Tree.fieldbyname('CTParent').AsString = CTID1) then
begin
try
frmClothInfoInput1 := TfrmClothInfoInput1.Create(Application);
with frmClothInfoInput1 do
begin
TypeInt := 1;
TempCTName := Trim(Self.CDS_Tree.fieldbyname('CTName').AsString);
FBCIID := Trim(Self.CDS_1.fieldbyname('BCIID').AsString);
FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
if ShowModal = 1 then
begin
Self.InitGrid();
end;
end;
finally
frmClothInfoInput1.Free;
end;
end
else if (Self.CDS_Tree.fieldbyname('CTParent').AsString = CTID2) then
begin
try
frmClothInfoInput2 := TfrmClothInfoInput2.Create(Application);
with frmClothInfoInput2 do
begin
TypeInt := 1;
TempCTName := Trim(Self.CDS_Tree.fieldbyname('CTName').AsString);
FBCIID := Trim(Self.CDS_1.fieldbyname('BCIID').AsString);
FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
if ShowModal = 1 then
begin
Self.InitGrid();
end;
end;
finally
frmClothInfoInput2.Free;
end;
end
else
begin
try
frmClothInfoInput := TfrmClothInfoInput.Create(Application);
with frmClothInfoInput do
begin
TypeInt := 1;
canshu3 := Self.canshu3;
FBCIID := Trim(Self.CDS_1.fieldbyname('BCIID').AsString);
FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
@ -658,12 +619,7 @@ begin
frmClothInfoInput.Free;
end;
end;
end
else
begin
Application.MessageBox('产品类型不存在!', '提示', 0);
Exit;
end;
end;
procedure TfrmClothInfo.TBAddClick(Sender: TObject);
@ -681,10 +637,10 @@ begin
frmClothInfoInput := TfrmClothInfoInput.Create(Application);
with frmClothInfoInput do
begin
canshu3 := Self.canshu3;
TypeInt := 0;
FBCIID := '';
FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
if ShowModal = 1 then
begin
Self.InitGrid();
@ -704,7 +660,7 @@ begin
frmClothInfoInput := TfrmClothInfoInput.Create(Application);
with frmClothInfoInput do
begin
canshu3 := Self.canshu3;
TypeInt := 2;
FBCIID := Trim(Self.CDS_1.fieldbyname('BCIID').AsString);
FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
@ -886,53 +842,12 @@ begin
end;
procedure TfrmClothInfo.ToolButton1Click(Sender: TObject);
begin
if Self.CDS_Tree.locate('CTName', Self.CDS_1.fieldbyname('CTName').AsString, []) then
begin
if (Self.CDS_Tree.fieldbyname('CTParent').AsString = CTID1) then
begin
try
frmClothInfoInput1 := TfrmClothInfoInput1.Create(Application);
with frmClothInfoInput1 do
begin
TempCTName := Trim(Self.CDS_Tree.fieldbyname('CTName').AsString);
FBCIID := Trim(Self.CDS_1.fieldbyname('BCIID').AsString);
FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
ToolButton1.Visible := False;
if ShowModal = 1 then
begin
Self.InitGrid();
end;
end;
finally
frmClothInfoInput1.Free;
end;
end
else if (Self.CDS_Tree.fieldbyname('CTParent').AsString = CTID2) then
begin
try
frmClothInfoInput2 := TfrmClothInfoInput2.Create(Application);
with frmClothInfoInput2 do
begin
TempCTName := Trim(Self.CDS_Tree.fieldbyname('CTName').AsString);
FBCIID := Trim(Self.CDS_1.fieldbyname('BCIID').AsString);
FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
ToolButton1.Visible := False;
if ShowModal = 1 then
begin
Self.InitGrid();
end;
end;
finally
frmClothInfoInput2.Free;
end;
end
else
begin
try
frmClothInfoInput := TfrmClothInfoInput.Create(Application);
with frmClothInfoInput do
begin
canshu3 := Self.canshu3;
FBCIID := Trim(Self.CDS_1.fieldbyname('BCIID').AsString);
FCTID := Trim(Self.CDS_Tree.fieldbyname('CTID').AsString);
ToolButton1.Visible := False;
@ -945,14 +860,6 @@ begin
frmClothInfoInput.Free;
end;
end;
end
else
begin
Application.MessageBox('产品类型不存在!', '提示', 0);
Exit;
end;
end;
procedure TfrmClothInfo.ToolButton2Click(Sender: TObject);
begin

8
A02基础产品管理/U_ClothInfoImport.dfm
View File

@ -4,7 +4,7 @@ inherited frmClothInfoImport: TfrmClothInfoImport
Caption = #26679#21697#23548#20837
ClientHeight = 562
ClientWidth = 1484
Color = clWhite
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Height = -16
Font.Name = #24494#36719#38597#40657
@ -23,11 +23,11 @@ inherited frmClothInfoImport: TfrmClothInfoImport
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clSkyBlue
Color = clBtnFace
DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar
List = True
ParentColor = False
ParentColor = True
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
@ -292,7 +292,7 @@ inherited frmClothInfoImport: TfrmClothInfoImport
Left = 249
Top = 161
end
inherited ImageList_new32: TImageList
inherited cxImageList_bar: TImageList
Left = 528
Top = 144
end

111
A02基础产品管理/U_ClothInfoInput.dfm
View File

@ -3,7 +3,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Top = 231
Anchors = []
Caption = #20135#21697#20449#24687#24405#20837
ClientHeight = 565
ClientHeight = 523
ClientWidth = 1284
Color = clBtnFace
Font.Charset = GB2312_CHARSET
@ -25,11 +25,9 @@ object frmClothInfoInput: TfrmClothInfoInput
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
@ -69,23 +67,20 @@ object frmClothInfoInput: TfrmClothInfoInput
object ScrollBox1: TScrollBox
Left = 0
Top = 30
Width = 761
Height = 535
Width = 751
Height = 493
Align = alLeft
BevelInner = bvNone
BevelOuter = bvNone
Ctl3D = False
ParentCtl3D = False
TabOrder = 1
ExplicitHeight = 649
object Label1: TLabel
Left = 37
Top = 18
Width = 64
Height = 21
Caption = #20135#21697#32534#21495
Color = clWhite
ParentColor = False
end
object Label5: TLabel
Left = 421
@ -93,8 +88,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 64
Height = 21
Caption = #20013#25991#21697#21517
Color = clWhite
ParentColor = False
end
object Label15: TLabel
Left = 37
@ -102,8 +95,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 64
Height = 21
Caption = #26377#25928#38376#24133
Color = clWhite
ParentColor = False
end
object Label22: TLabel
Left = 421
@ -111,8 +102,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 64
Height = 21
Caption = #25104#21697#20811#37325
Color = clWhite
ParentColor = False
end
object Label4: TLabel
Left = 37
@ -120,21 +109,13 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 64
Height = 21
Caption = #33457#22411#32534#21495
Color = clWhite
ParentColor = False
end
object Label3: TLabel
Left = 999
Top = 181
Width = 51
Height = 16
Width = 48
Height = 21
Caption = #26465#30721#65306
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label7: TLabel
@ -143,8 +124,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 64
Height = 21
Caption = #20013#25991#25104#20998
Color = clWhite
ParentColor = False
end
object Label6: TLabel
Left = 37
@ -152,8 +131,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 32
Height = 21
Caption = #35268#26684
Color = clWhite
ParentColor = False
end
object Label9: TLabel
Left = 37
@ -161,8 +138,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 32
Height = 21
Caption = #22791#27880
Color = clWhite
ParentColor = False
end
object Label11: TLabel
Left = 37
@ -170,8 +145,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 32
Height = 21
Caption = #24067#31181
Color = clWhite
ParentColor = False
end
object Label10: TLabel
Left = 421
@ -179,8 +152,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 64
Height = 21
Caption = #33521#25991#25104#20998
Color = clWhite
ParentColor = False
end
object Label12: TLabel
Left = 37
@ -188,8 +159,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 64
Height = 21
Caption = #32433#32447#24418#24577
Color = clWhite
ParentColor = False
end
object Label16: TLabel
Left = 421
@ -197,8 +166,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 32
Height = 21
Caption = #24037#33402
Color = clWhite
ParentColor = False
end
object Label18: TLabel
Left = 37
@ -206,8 +173,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 80
Height = 21
Caption = #20379#24212#21830#20195#21495
Color = clWhite
ParentColor = False
end
object Label19: TLabel
Left = 421
@ -215,8 +180,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 48
Height = 21
Caption = #20379#24212#21830
Color = clWhite
ParentColor = False
end
object Label21: TLabel
Left = 421
@ -224,8 +187,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 64
Height = 21
Caption = #33521#25991#21697#21517
Color = clWhite
ParentColor = False
end
object Label23: TLabel
Left = 421
@ -233,17 +194,13 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 64
Height = 21
Caption = #26579#33394#26041#24335
Color = clWhite
ParentColor = False
end
object Label2: TLabel
Left = 37
Top = 351
Top = 353
Width = 64
Height = 21
Caption = #26631#20934#25253#20215
Color = clWhite
ParentColor = False
end
object Label8: TLabel
Left = 37
@ -251,8 +208,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 64
Height = 21
Caption = #37197#36135#31995#25968
Color = clWhite
ParentColor = False
end
object Label13: TLabel
Left = 421
@ -260,8 +215,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 64
Height = 21
Caption = #37197#39069#38480#21046
Color = clWhite
ParentColor = False
end
object Label14: TLabel
Left = 727
@ -269,8 +222,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 14
Height = 21
Caption = '%'
Color = clWhite
ParentColor = False
end
object Label20: TLabel
Left = 421
@ -278,17 +229,13 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 32
Height = 21
Caption = #24211#20301
Color = clWhite
ParentColor = False
end
object Label17: TLabel
Left = 39
Left = 37
Top = 456
Width = 41
Height = 21
Caption = #21697#21517'1'
Color = clWhite
ParentColor = False
end
object Label24: TLabel
Left = 433
@ -296,13 +243,11 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 41
Height = 21
Caption = #21697#21517'2'
Color = clWhite
ParentColor = False
end
object C_Code: TcxTextEdit
Tag = 2
Left = 119
Top = 14
Top = 12
Enabled = False
TabOrder = 0
OnKeyPress = CYColorKeyPress
@ -311,7 +256,7 @@ object frmClothInfoInput: TfrmClothInfoInput
object C_Name: TcxTextEdit
Tag = 2
Left = 507
Top = 14
Top = 12
TabOrder = 1
OnKeyPress = CYColorKeyPress
Width = 234
@ -320,7 +265,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Left = 1048
Top = 172
Enabled = False
ParentFont = False
TabOrder = 2
Visible = False
Width = 218
@ -508,6 +452,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 234
end
object CostPrice: TcxCurrencyEdit
Tag = 2
Left = 119
Top = 347
Properties.AssignedValues.DisplayFormat = True
@ -515,6 +460,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 234
end
object distributionCoefficient: TcxCurrencyEdit
Tag = 2
Left = 119
Top = 199
Properties.AssignedValues.DisplayFormat = True
@ -522,6 +468,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Width = 234
end
object quota: TcxCurrencyEdit
Tag = 2
Left = 507
Top = 199
EditValue = 10.000000000000000000
@ -548,8 +495,8 @@ object frmClothInfoInput: TfrmClothInfoInput
end
object C_FromName2: TcxButtonEdit
Tag = 7
Left = 506
Top = 450
Left = 505
Top = 452
Properties.Buttons = <
item
Default = True
@ -564,32 +511,26 @@ object frmClothInfoInput: TfrmClothInfoInput
end
end
object Panel1: TPanel
Left = 761
Left = 751
Top = 30
Width = 523
Height = 535
Width = 533
Height = 493
Align = alClient
TabOrder = 2
ExplicitLeft = 775
ExplicitWidth = 509
ExplicitHeight = 623
object ToolBar2: TToolBar
Left = 1
Top = 1
Width = 521
Width = 531
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 67
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_ClothInfo.ImageList_new32
DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
ExplicitWidth = 507
object ToolButton3: TToolButton
Left = 0
Top = 0
@ -599,7 +540,7 @@ object frmClothInfoInput: TfrmClothInfoInput
OnClick = ToolButton3Click
end
object ToolButton4: TToolButton
Left = 63
Left = 71
Top = 0
AutoSize = True
Caption = #21024#34892
@ -610,12 +551,10 @@ object frmClothInfoInput: TfrmClothInfoInput
object cxGrid1: TcxGrid
Left = 1
Top = 31
Width = 521
Height = 503
Width = 531
Height = 461
Align = alClient
TabOrder = 1
ExplicitWidth = 507
ExplicitHeight = 591
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -648,21 +587,21 @@ object frmClothInfoInput: TfrmClothInfoInput
DataBinding.FieldName = 'C_ColorNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 26
Width = 80
end
object TV1Column3: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 39
Width = 77
end
object TV1Column4: TcxGridDBColumn
Caption = #27454#21495
DataBinding.FieldName = 'C_StyleNo'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 43
Width = 103
end
object TV1Column5: TcxGridDBColumn
Caption = #28014#21160#20215

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

@ -105,11 +105,12 @@ type
procedure InitGrid();
procedure InitGrid1();
function SaveData(): Boolean;
procedure setName();
{ Private declarations }
public
FBCIID, FCTID: string;
TypeInt: Integer; //0新增_1复制_2修改
fbuzhongedit: string;
fbuzhongedit, canshu3: string;
{ Public declarations }
end;
@ -122,6 +123,13 @@ uses
U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload, U_ClothInfoSel;
{$R *.dfm}
procedure TfrmClothInfoInput.setName();
begin
if (Trim(C_FromName.Text) <> '') and (Trim(C_FromName2.Text) <> '') then
C_Name.Text := Trim(C_FromName.Text) + '+' + Trim(C_FromName2.Text);
end;
procedure TfrmClothInfoInput.InitGrid1();
begin
with ADOQueryTemp do
@ -190,6 +198,7 @@ begin
begin
C_FromName2.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString);
C_FromName2.Text := Trim(CDS_1.fieldbyname('C_Name').AsString);
setName();
end;
end;
finally
@ -208,6 +217,7 @@ begin
begin
C_FromName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString);
C_FromName.Text := Trim(CDS_1.fieldbyname('C_Name').AsString);
setName();
end;
end;
finally
@ -247,15 +257,25 @@ end;
procedure TfrmClothInfoInput.FormShow(Sender: TObject);
begin
readCxGrid(self.Caption + 'TV1', Tv1, '样品管理');
InitGrid();
InitGrid1();
if TypeInt = 1 then
begin
FBCIID := '';
BCIID.text := '';
C_Code.text := '';
end;
if canshu3 = '低权限' then
begin
HiddenTVColumn(TV1, 'floatPrice');
HiddenTVColumn(TV1, 'referencePrice');
// CostPrice.Enabled := False;
// CostPrice.ParentFont := False;
CostPrice.Properties.ReadOnly := True;
CostPrice.Properties.EchoMode := eemPassword;
end;
end;
procedure TfrmClothInfoInput.TBCloseClick(Sender: TObject);
@ -330,7 +350,8 @@ begin
sql.Add('delete BS_Cloth_Info_Link where ToID=''' + Trim(MaxBCIID) + '''');
ExecSQL;
end;
if Trim(C_FromName.Properties.LookupItems.Text) <> '' then
begin
with ADOQueryCmd do
begin
Close;
@ -346,7 +367,9 @@ begin
FieldByName('FromID').Value := Trim(C_FromName.Properties.LookupItems.Text); // 坯布编号
Post;
end;
end;
if Trim(C_FromName2.Properties.LookupItems.Text) <> '' then
begin
with ADOQueryCmd do
begin
Close;
@ -362,7 +385,7 @@ begin
FieldByName('FromID').Value := Trim(C_FromName2.Properties.LookupItems.Text); // 坯布编号
Post;
end;
end;
with ADOQueryTemp do
begin
Close;
@ -492,7 +515,28 @@ begin
end;
C_Code.Text := MC_Code;
end;
C_Name.Text := Trim(C_FromName.Text) + '+' + Trim(C_FromName2.Text);
if CDS_1.IsEmpty then
begin
Application.MessageBox('请输入产品颜色明细!', '提示', 0);
Exit;
end;
if Trim(C_Name.Text) = '' then
begin
Application.MessageBox('请输入中文品名!', '提示', 0);
Exit;
end;
if CDS_1.Locate('C_Color', null, []) = True then
begin
Application.MessageBox('请输入色号!', '提示', 0);
Exit;
end;
if CDS_1.Locate('C_ColorNo', null, []) = True then
begin
Application.MessageBox('请输入颜色!', '提示', 0);
Exit;
end;
setName();
if SaveData() then
begin
Application.MessageBox('保存成功！', '提示', 0);
@ -522,6 +566,7 @@ begin
begin
Edit;
fieldbyname('BCISID').Value := trim(maxno);
fieldbyname('floatPrice').Value := 0;
Post;
end;

42
A02基础产品管理/U_ClothInfoInput1.dfm
View File

@ -25,11 +25,11 @@ object frmClothInfoInput1: TfrmClothInfoInput1
ButtonHeight = 30
ButtonWidth = 67
Caption = 'ToolBar1'
Color = clWhite
Color = clBtnFace
DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar
List = True
ParentColor = False
ParentColor = True
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
@ -75,8 +75,8 @@ object frmClothInfoInput1: TfrmClothInfoInput1
Width = 64
Height = 21
Caption = #20135#21697#32534#21495
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
end
object Label3: TLabel
Left = 879
@ -89,7 +89,7 @@ object frmClothInfoInput1: TfrmClothInfoInput1
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
Visible = False
end
object Label9: TLabel
@ -98,8 +98,8 @@ object frmClothInfoInput1: TfrmClothInfoInput1
Width = 128
Height = 21
Caption = #20027#39068#33394#21450#22270#26696#25551#36848
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
end
object Label18: TLabel
Left = 33
@ -107,8 +107,8 @@ object frmClothInfoInput1: TfrmClothInfoInput1
Width = 80
Height = 21
Caption = #20379#24212#21830#20195#21495
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
end
object Label19: TLabel
Left = 416
@ -116,8 +116,8 @@ object frmClothInfoInput1: TfrmClothInfoInput1
Width = 48
Height = 21
Caption = #20379#24212#21830
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
end
object Label2: TLabel
Left = 33
@ -125,8 +125,8 @@ object frmClothInfoInput1: TfrmClothInfoInput1
Width = 144
Height = 21
Caption = #38754#26009#25104#20221#21450#21360#33457#24037#33402
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
end
object Label4: TLabel
Left = 33
@ -134,8 +134,8 @@ object frmClothInfoInput1: TfrmClothInfoInput1
Width = 142
Height = 21
Caption = #21360#33457'/'#21387#33457'/'#20854#23427#25551#36848
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
end
object lbl5: TLabel
Left = 33
@ -152,8 +152,8 @@ object frmClothInfoInput1: TfrmClothInfoInput1
Alignment = taRightJustify
AutoSize = False
Caption = #27969#27700#21495
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
Visible = False
end
object Label20: TLabel
@ -162,8 +162,8 @@ object frmClothInfoInput1: TfrmClothInfoInput1
Width = 32
Height = 21
Caption = #39118#26684
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
Visible = False
end
object C_Code: TcxTextEdit
@ -179,7 +179,7 @@ object frmClothInfoInput1: TfrmClothInfoInput1
Left = 928
Top = 156
Enabled = False
ParentFont = False
ParentFont = True
TabOrder = 1
Visible = False
Width = 218
@ -188,7 +188,7 @@ object frmClothInfoInput1: TfrmClothInfoInput1
Tag = 7
Left = 928
Top = 210
ParentFont = False
ParentFont = True
Properties.Buttons = <
item
Default = True

62
A02基础产品管理/U_ClothInfoInput2.dfm
View File

@ -25,11 +25,11 @@ object frmClothInfoInput2: TfrmClothInfoInput2
ButtonHeight = 30
ButtonWidth = 67
Caption = 'ToolBar1'
Color = clWhite
Color = clBtnFace
DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar
List = True
ParentColor = False
ParentColor = True
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
@ -75,8 +75,8 @@ object frmClothInfoInput2: TfrmClothInfoInput2
Width = 64
Height = 21
Caption = #20135#21697#32534#21495
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
end
object Label5: TLabel
Left = 33
@ -84,8 +84,8 @@ object frmClothInfoInput2: TfrmClothInfoInput2
Width = 64
Height = 21
Caption = #22270#26696#32534#21495
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
end
object Label15: TLabel
Left = 33
@ -93,8 +93,8 @@ object frmClothInfoInput2: TfrmClothInfoInput2
Width = 32
Height = 21
Caption = #24133#23485
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
end
object Label22: TLabel
Left = 429
@ -102,8 +102,8 @@ object frmClothInfoInput2: TfrmClothInfoInput2
Width = 32
Height = 21
Caption = #20811#37325
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
end
object Label3: TLabel
Left = 999
@ -116,7 +116,7 @@ object frmClothInfoInput2: TfrmClothInfoInput2
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
Visible = False
end
object Label7: TLabel
@ -125,8 +125,8 @@ object frmClothInfoInput2: TfrmClothInfoInput2
Width = 32
Height = 21
Caption = #25104#20998
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
end
object Label6: TLabel
Left = 33
@ -134,8 +134,8 @@ object frmClothInfoInput2: TfrmClothInfoInput2
Width = 32
Height = 21
Caption = #35268#26684
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
end
object Label12: TLabel
Left = 425
@ -143,8 +143,8 @@ object frmClothInfoInput2: TfrmClothInfoInput2
Width = 64
Height = 21
Caption = #32433#32447#24418#24577
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
end
object Label14: TLabel
Left = 37
@ -152,8 +152,8 @@ object frmClothInfoInput2: TfrmClothInfoInput2
Width = 48
Height = 21
Caption = #21518#25972#29702
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
end
object Label18: TLabel
Left = 33
@ -161,8 +161,8 @@ object frmClothInfoInput2: TfrmClothInfoInput2
Width = 80
Height = 21
Caption = #20379#24212#21830#20195#21495
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
end
object Label19: TLabel
Left = 429
@ -170,8 +170,8 @@ object frmClothInfoInput2: TfrmClothInfoInput2
Width = 48
Height = 21
Caption = #20379#24212#21830
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
end
object Label21: TLabel
Left = 429
@ -179,8 +179,8 @@ object frmClothInfoInput2: TfrmClothInfoInput2
Width = 64
Height = 21
Caption = #21518#25972#27969#27700
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
end
object Label20: TLabel
Left = 429
@ -188,8 +188,8 @@ object frmClothInfoInput2: TfrmClothInfoInput2
Width = 32
Height = 21
Caption = #39118#26684
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
end
object Label2: TLabel
Left = 33
@ -197,8 +197,8 @@ object frmClothInfoInput2: TfrmClothInfoInput2
Width = 80
Height = 21
Caption = #22383#24067#27969#27700#21495
Color = clWhite
ParentColor = False
Color = clBtnFace
ParentColor = True
end
object C_Code: TcxTextEdit
Tag = 2
@ -220,7 +220,7 @@ object frmClothInfoInput2: TfrmClothInfoInput2
Left = 1048
Top = 172
Enabled = False
ParentFont = False
ParentFont = True
TabOrder = 2
Visible = False
Width = 218
@ -280,7 +280,7 @@ object frmClothInfoInput2: TfrmClothInfoInput2
Tag = 7
Left = 1048
Top = 226
ParentFont = False
ParentFont = True
Properties.Buttons = <
item
Default = True

10
A02基础产品管理/U_ClothInfoLog.dfm
View File

@ -4,7 +4,7 @@ inherited frmClothInfoLog: TfrmClothInfoLog
Caption = #20135#21697#20462#25913#26085#24535
ClientHeight = 634
ClientWidth = 1891
Color = clWhite
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Height = -16
Position = poScreenCenter
@ -24,7 +24,7 @@ inherited frmClothInfoLog: TfrmClothInfoLog
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clSkyBlue
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@ -32,8 +32,8 @@ inherited frmClothInfoLog: TfrmClothInfoLog
Font.Style = []
Images = DataLink_ClothInfo.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ParentColor = True
ParentFont = True
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
@ -329,7 +329,7 @@ inherited frmClothInfoLog: TfrmClothInfoLog
Left = 230
Top = 100
end
inherited ImageList_new32: TImageList
inherited cxImageList_bar: TImageList
Left = 104
Top = 144
end

10
A02基础产品管理/U_ClothInfoProcessInput.dfm
View File

@ -4,7 +4,7 @@ object frmClothInfoProcessInput: TfrmClothInfoProcessInput
Caption = #24037#24207#24405#20837
ClientHeight = 596
ClientWidth = 1313
Color = clWhite
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@ -26,11 +26,11 @@ object frmClothInfoProcessInput: TfrmClothInfoProcessInput
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_ClothInfo.ImageList_new32
Images = DataLink_ClothInfo.ImageList_new32
Color = clBtnFace
DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar
List = True
ParentColor = False
ParentColor = True
ShowCaptions = True
TabOrder = 0
object ToolButton3: TToolButton

10
A02基础产品管理/U_ClothInfoProcessList.dfm
View File

@ -17,11 +17,11 @@ inherited frmClothInfoProcessList: TfrmClothInfoProcessList
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_ClothInfo.ImageList_new32
Images = DataLink_ClothInfo.ImageList_new32
Color = clBtnFace
DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar
List = True
ParentColor = False
ParentColor = True
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
@ -88,7 +88,7 @@ inherited frmClothInfoProcessList: TfrmClothInfoProcessList
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
Color = clBtnFace
TabOrder = 1
object Label5: TLabel
Left = 191

10
A02基础产品管理/U_ClothInfoTechnicsList.dfm
View File

@ -18,11 +18,11 @@ inherited frmClothInfoTechnicsList: TfrmClothInfoTechnicsList
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_ClothInfo.ImageList_new32
Images = DataLink_ClothInfo.ImageList_new32
Color = clBtnFace
DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar
List = True
ParentColor = False
ParentColor = True
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
@ -106,7 +106,7 @@ inherited frmClothInfoTechnicsList: TfrmClothInfoTechnicsList
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
Color = clBtnFace
TabOrder = 1
object Label1: TLabel
Left = 186

12
A02基础产品管理/U_ClothInfoTechnicsSel.dfm
View File

@ -4,7 +4,7 @@ object frmClothInfoTechnicsSel: TfrmClothInfoTechnicsSel
Caption = #24037#33402#36873#25321
ClientHeight = 593
ClientWidth = 1244
Color = clWhite
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@ -28,11 +28,11 @@ object frmClothInfoTechnicsSel: TfrmClothInfoTechnicsSel
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_ClothInfo.ImageList_new32
Images = DataLink_ClothInfo.ImageList_new32
Color = clBtnFace
DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar
List = True
ParentColor = False
ParentColor = True
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
@ -76,7 +76,7 @@ object frmClothInfoTechnicsSel: TfrmClothInfoTechnicsSel
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
Color = clBtnFace
TabOrder = 1
ExplicitTop = 18
object Label1: TLabel

14
A02基础产品管理/U_ClothInfoTechnicsinput.dfm
View File

@ -4,7 +4,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Caption = #24037#33402#30331#35760
ClientHeight = 593
ClientWidth = 1455
Color = clWhite
Color = clBtnFace
ExplicitWidth = 1471
ExplicitHeight = 632
PixelsPerInch = 96
@ -103,7 +103,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
Color = clBtnFace
TabOrder = 1
object Label5: TLabel
Left = 191
@ -204,11 +204,11 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_ClothInfo.ImageList_new32
Images = DataLink_ClothInfo.ImageList_new32
Color = clBtnFace
DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar
List = True
ParentColor = False
ParentColor = True
ShowCaptions = True
TabOrder = 1
object TBRafresh: TToolButton
@ -252,7 +252,7 @@ inherited frmDyeTechnicsinput: TfrmDyeTechnicsinput
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
Color = clBtnFace
TabOrder = 2
ExplicitTop = 20
object Label2: TLabel

6
A02基础产品管理/U_ClothType.dfm
View File

@ -21,11 +21,11 @@ inherited frmClothType: TfrmClothType
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clSkyBlue
Color = clBtnFace
DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar
List = True
ParentColor = False
ParentColor = True
ShowCaptions = True
TabOrder = 3
object TBRafresh: TToolButton
@ -109,7 +109,7 @@ inherited frmClothType: TfrmClothType
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
Color = clBtnFace
TabOrder = 2
object Label1: TLabel
Left = 66

3714
A02基础产品管理/U_DataLink.dfm
View File

File diff suppressed because it is too large Load Diff

1
A02基础产品管理/U_DataLink.pas
View File

@ -45,7 +45,6 @@ type
ADOLink: TADOConnection;
ThreeImgList: TImageList;
Timer_link: TTimer;
ImageList_new32: TImageList;
procedure DataModuleDestroy(Sender: TObject);
procedure Timer_linkTimer(Sender: TObject);
procedure DataModuleCreate(Sender: TObject);

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

@ -78,6 +78,9 @@ begin
// DParameters1:='高权限';
// Parameters2 := '梭织';
Parameters2 := '通用';
// Parameters3 := 'µÍȨÏÞ';
DName := 'ADMIN';
dcode := '王吉辉';
end

54
A02基础产品管理/U_KnitClothInfoInput.dfm
View File

@ -5,7 +5,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Caption = #20135#21697#20449#24687#24405#20837
ClientHeight = 208
ClientWidth = 735
Color = clWhite
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
@ -25,11 +25,11 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_ClothInfo.ImageList_new32
Images = DataLink_ClothInfo.ImageList_new32
Color = clBtnFace
DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar
List = True
ParentColor = False
ParentColor = True
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
@ -67,9 +67,9 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
AutoSize = True
BevelInner = bvNone
BevelOuter = bvNone
Color = clWhite
Color = clBtnFace
Ctl3D = False
ParentColor = False
ParentColor = True
ParentCtl3D = False
TabOrder = 1
object Label1: TLabel
@ -83,7 +83,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
end
object Label5: TLabel
Left = 362
@ -96,7 +96,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
end
object Label15: TLabel
Left = 29
@ -109,7 +109,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
end
object Label22: TLabel
Left = 360
@ -122,7 +122,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
end
object Label2: TLabel
Left = 29
@ -135,7 +135,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
end
object Label4: TLabel
Left = 360
@ -148,7 +148,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
end
object Label3: TLabel
Left = 46
@ -161,7 +161,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
Visible = False
end
object Label7: TLabel
@ -175,7 +175,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
end
object Label12: TLabel
Left = 31
@ -188,7 +188,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
end
object Label6: TLabel
Left = 29
@ -201,7 +201,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
end
object C_Code: TEdit
Tag = 2
@ -214,7 +214,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 0
OnKeyPress = CYColorKeyPress
end
@ -229,7 +229,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 1
OnKeyPress = CYColorKeyPress
end
@ -244,7 +244,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 5
end
object C_Pattern: TEdit
@ -258,7 +258,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 6
end
object C_Width: TBtnEditC
@ -273,7 +273,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 3
OnBtnUpClick = C_WidthBtnUpClick
OnBtnDnClick = C_WidthBtnDnClick
@ -290,7 +290,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 4
OnBtnUpClick = C_WidthBtnUpClick
OnBtnDnClick = C_WidthBtnDnClick
@ -307,7 +307,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 2
OnBtnUpClick = C_WidthBtnUpClick
OnBtnDnClick = C_WidthBtnDnClick
@ -323,7 +323,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 7
OnKeyPress = CYColorKeyPress
end
@ -338,7 +338,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 8
Visible = False
end
@ -354,7 +354,7 @@ object frmKnitClothInfoInput: TfrmKnitClothInfoInput
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 9
OnBtnUpClick = C_WidthBtnUpClick
OnBtnDnClick = C_WidthBtnDnClick

28
A02基础产品管理/U_KnitClothInfoList.dfm
View File

@ -21,11 +21,11 @@ inherited frmKnitClothInfoList: TfrmKnitClothInfoList
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_ClothInfo.ImageList_new32
Images = DataLink_ClothInfo.ImageList_new32
Color = clBtnFace
DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar
List = True
ParentColor = False
ParentColor = True
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
@ -157,7 +157,7 @@ inherited frmKnitClothInfoList: TfrmKnitClothInfoList
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
Color = clBtnFace
ParentBackground = False
TabOrder = 1
object Label3: TLabel
@ -177,7 +177,7 @@ inherited frmKnitClothInfoList: TfrmKnitClothInfoList
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
end
object Label12: TLabel
Left = 1120
@ -189,7 +189,7 @@ inherited frmKnitClothInfoList: TfrmKnitClothInfoList
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
end
object Label4: TLabel
Left = 199
@ -257,13 +257,13 @@ inherited frmKnitClothInfoList: TfrmKnitClothInfoList
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 5
Visible = False
end
@ -503,7 +503,7 @@ inherited frmKnitClothInfoList: TfrmKnitClothInfoList
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
Layout = tlCenter
end
object LBCPAP1: TLabel
@ -520,7 +520,7 @@ inherited frmKnitClothInfoList: TfrmKnitClothInfoList
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
Layout = tlCenter
end
object Button1: TButton
@ -535,7 +535,7 @@ inherited frmKnitClothInfoList: TfrmKnitClothInfoList
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 0
OnClick = Button1Click
end
@ -551,7 +551,7 @@ inherited frmKnitClothInfoList: TfrmKnitClothInfoList
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 1
OnClick = Button2Click
end
@ -568,7 +568,7 @@ inherited frmKnitClothInfoList: TfrmKnitClothInfoList
Font.Name = #23435#20307
Font.Style = [fsBold]
ItemIndex = 2
ParentFont = False
ParentFont = True
TabOrder = 2
Text = '500'
OnChange = TCBNOR1Change

2
A02基础产品管理/U_SLT.dfm
View File

@ -18,7 +18,7 @@ object frmSLT: TfrmSLT
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ParentFont = True
TabOrder = 0
end
object cxImage1: TcxImage

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

@ -23,11 +23,11 @@ inherited frmTatClothInfo: TfrmTatClothInfo
ButtonHeight = 30
ButtonWidth = 95
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_ClothInfo.ImageList_new32
Color = clBtnFace
DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar
List = True
ParentColor = False
ParentColor = True
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
@ -159,7 +159,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
Color = clBtnFace
ParentBackground = False
TabOrder = 1
object Label11: TLabel
@ -172,7 +172,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
end
object Label12: TLabel
Left = 1120
@ -184,7 +184,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
end
object Label3: TLabel
Left = 31
@ -204,7 +204,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Tag = 2
Left = 314
Top = 5
ParentFont = False
ParentFont = True
TabOrder = 0
OnKeyPress = C_CodeKeyPress
Width = 121
@ -213,7 +213,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Tag = 2
Left = 97
Top = 5
ParentFont = False
ParentFont = True
TabOrder = 1
OnKeyPress = C_CodeKeyPress
Width = 121
@ -227,13 +227,13 @@ inherited frmTatClothInfo: TfrmTatClothInfo
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 5
Visible = False
end
@ -502,7 +502,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
Layout = tlCenter
end
object LBCPAP1: TLabel
@ -519,7 +519,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
Layout = tlCenter
end
object Button1: TButton
@ -534,7 +534,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 0
OnClick = Button1Click
end
@ -550,7 +550,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 1
OnClick = Button2Click
end
@ -567,7 +567,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Font.Name = #23435#20307
Font.Style = [fsBold]
ItemIndex = 2
ParentFont = False
ParentFont = True
TabOrder = 2
Text = '500'
OnChange = TCBNOR1Change
@ -613,15 +613,15 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Width = 1257
Height = 273
Align = alClient
Color = clWhite
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
ParentColor = True
ParentFont = True
TabOrder = 0
Visible = False
Properties.CustomButtons.Buttons = <>

62
A02基础产品管理/U_TatClothInfoInput.dfm
View File

@ -5,7 +5,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Caption = #26797#32455#20135#21697#20449#24687#24405#20837
ClientHeight = 801
ClientWidth = 1442
Color = clWhite
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Height = -16
Font.Name = #24494#36719#38597#40657
@ -24,10 +24,10 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clWhite
Color = clBtnFace
Images = DataLink_ClothInfo.cxImageList_bar
List = True
ParentColor = False
ParentColor = True
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
@ -72,9 +72,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
Color = clWhite
Color = clBtnFace
Ctl3D = False
ParentColor = False
ParentColor = True
ParentCtl3D = False
TabOrder = 1
object Label1: TLabel
@ -102,7 +102,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
Visible = False
end
object Label16: TLabel
@ -193,7 +193,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 0
Visible = False
end
@ -202,7 +202,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 133
Top = 279
ParentColor = True
ParentFont = False
ParentFont = True
TabOrder = 1
Height = 57
Width = 589
@ -212,7 +212,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 133
Top = 216
ParentColor = True
ParentFont = False
ParentFont = True
TabOrder = 2
Height = 57
Width = 589
@ -222,7 +222,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 133
Top = 21
ParentColor = True
ParentFont = False
ParentFont = True
TabOrder = 3
OnKeyPress = CYColorKeyPress
Width = 234
@ -232,7 +232,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 133
Top = 60
ParentColor = True
ParentFont = False
ParentFont = True
TabOrder = 4
Width = 234
end
@ -241,7 +241,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 488
Top = 21
ParentColor = True
ParentFont = False
ParentFont = True
TabOrder = 5
OnKeyPress = CYColorKeyPress
Width = 234
@ -251,7 +251,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 488
Top = 60
ParentColor = True
ParentFont = False
ParentFont = True
TabOrder = 6
Width = 234
end
@ -260,7 +260,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 488
Top = 99
ParentColor = True
ParentFont = False
ParentFont = True
TabOrder = 7
Width = 234
end
@ -269,7 +269,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 133
Top = 99
ParentColor = True
ParentFont = False
ParentFont = True
TabOrder = 8
Width = 234
end
@ -278,7 +278,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 133
Top = 138
ParentColor = True
ParentFont = False
ParentFont = True
TabOrder = 9
Width = 234
end
@ -287,7 +287,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 133
Top = 177
ParentColor = True
ParentFont = False
ParentFont = True
TabOrder = 10
Width = 234
end
@ -296,7 +296,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 488
Top = 138
ParentColor = True
ParentFont = False
ParentFont = True
TabOrder = 11
Width = 234
end
@ -305,7 +305,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 866
Top = 21
ParentColor = True
ParentFont = False
ParentFont = True
Properties.Buttons = <
item
Default = True
@ -323,7 +323,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Top = 60
Enabled = False
ParentColor = True
ParentFont = False
ParentFont = True
TabOrder = 13
Width = 150
end
@ -356,7 +356,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 0
object Y_Note_PLJ: TMemo
Tag = 2
@ -370,7 +370,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 0
end
end
@ -387,15 +387,15 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Width = 929
Height = 394
Align = alClient
Color = clWhite
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
ParentColor = True
ParentFont = True
TabOrder = 0
Visible = False
Properties.CustomButtons.Buttons = <>
@ -564,7 +564,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 0
object Y_Note_PLW: TMemo
Tag = 2
@ -578,7 +578,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 0
end
end
@ -595,15 +595,15 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Width = 959
Height = 394
Align = alClient
Color = clWhite
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
ParentColor = True
ParentFont = True
TabOrder = 0
Visible = False
Properties.CustomButtons.Buttons = <>
@ -925,7 +925,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 784
Top = 270
end
inherited ImageList_new32: TImageList
inherited cxImageList_bar: TImageList
Left = 409
Top = 514
end

22
T02贸易汇总仓库/U_ClothScheduleList.dfm
View File

@ -198,8 +198,6 @@ inherited frmClothScheduleList: TfrmClothScheduleList
Align = alClient
BorderStyle = cxcbsNone
TabOrder = 2
ExplicitLeft = -113
ExplicitTop = 247
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -457,7 +455,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
Align = alBottom
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clSkyBlue
DisabledImages = DataLink_TradeTotalClothStk.cxImageList_bar
@ -466,7 +464,6 @@ inherited frmClothScheduleList: TfrmClothScheduleList
ParentColor = False
ShowCaptions = True
TabOrder = 3
ExplicitTop = 316
object ToolButton5: TToolButton
Left = 0
Top = 0
@ -476,7 +473,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
OnClick = ToolButton5Click
end
object ToolButton11: TToolButton
Left = 87
Left = 103
Top = 0
AutoSize = True
Caption = #35746#21333#23436#24037
@ -484,7 +481,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
OnClick = ToolButton11Click
end
object ToolButton3: TToolButton
Left = 174
Left = 206
Top = 0
AutoSize = True
Caption = #38754#26009#20986#24211
@ -492,7 +489,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
OnClick = ToolButton3Click
end
object ToolButton12: TToolButton
Left = 261
Left = 309
Top = 0
AutoSize = True
Caption = #29983#20135#22791#27880
@ -500,7 +497,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
OnClick = ToolButton12Click
end
object ToolButton4: TToolButton
Left = 348
Left = 412
Top = 0
AutoSize = True
Caption = #21024#38500
@ -508,7 +505,7 @@ inherited frmClothScheduleList: TfrmClothScheduleList
OnClick = ToolButton4Click
end
object ToolButton2: TToolButton
Left = 411
Left = 483
Top = 0
AutoSize = True
Caption = #22383#24067#39044#25237
@ -528,13 +525,15 @@ inherited frmClothScheduleList: TfrmClothScheduleList
Properties.CustomButtons.Buttons = <>
Properties.Style = 5
OnChange = cxPageControl1Change
ExplicitTop = 346
ClientRectBottom = 239
ClientRectRight = 1520
ClientRectTop = 32
object cxTabSheet2: TcxTabSheet
Caption = ' '#37197#24067#25968#25454' '
ImageIndex = 1
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cxGrid2: TcxGrid
Left = 0
Top = 0
@ -895,6 +894,9 @@ inherited frmClothScheduleList: TfrmClothScheduleList
object cxTabSheet1: TcxTabSheet
Caption = ' '#23436#24037#21450#25220#30721#25968#25454' '
ImageIndex = 2
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
object cxGrid4: TcxGrid
Left = 0
Top = 0

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

@ -221,6 +221,10 @@ begin
FieldByName('Fillid').Value := Trim(Dcode);
FieldByName('Filler').Value := Trim(DName);
FieldByName('BCIONO').Value := Trim(Maxno);
FieldByName('BCIOID').Value := Trim(Maxno);
FieldByName('BCIONO').Value := Trim(Maxno);
FieldByName('STKID').Value := Trim(Maxno);
FieldByName('CIID').Value := Trim(Maxno);
end
else
begin
@ -243,9 +247,7 @@ begin
FieldByName('FromPurSId').Value := CDS_Sub.fieldbyname('FromPurSId').Value;
FieldByName('FromTPNID').Value := CDS_Sub.fieldbyname('FromTPNID').Value;
FieldByName('BCIOID').Value := Trim(Maxno);
FieldByName('BCIONO').Value := Trim(Maxno);
FieldByName('STKID').Value := Trim(Maxno);
FieldByName('STKName').Value := FSTKName;
FieldByName('IOFlag').Value := 'Èë¿â';
FieldByName('IOQtyFlag').Value := 1;

23
T02贸易汇总仓库/U_TradeClothTotalInInput1.dfm
View File

@ -405,7 +405,6 @@ inherited frmTradeClothTotalInInput1: TfrmTradeClothTotalInInput1
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = Tv1Column1
end
item
Kind = skSum
@ -429,13 +428,6 @@ inherited frmTradeClothTotalInInput1: TfrmTradeClothTotalInInput1
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
object Tv1Column1: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'Qty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 65
end
object Tv1Column2: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'GrossWeight'
@ -564,8 +556,8 @@ inherited frmTradeClothTotalInInput1: TfrmTradeClothTotalInInput1
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Left = 241
Top = 280
Left = 407
Top = 402
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
@ -578,6 +570,9 @@ inherited frmTradeClothTotalInInput1: TfrmTradeClothTotalInInput1
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 326
Top = 395
DesignInfo = 25887046
end
object DataSource3: TDataSource
DataSet = CDS_Sub
@ -593,8 +588,8 @@ inherited frmTradeClothTotalInInput1: TfrmTradeClothTotalInInput1
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
Parameters = <>
Left = 224
Top = 208
Left = 68
Top = 378
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeTotalClothStk.ADOLink
@ -607,8 +602,8 @@ inherited frmTradeClothTotalInInput1: TfrmTradeClothTotalInInput1
Connection = DataLink_TradeTotalClothStk.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 317
Top = 303
Left = 279
Top = 393
end
object GPM_1: TcxGridPopupMenu
PopupMenus = <>

61
T02贸易汇总仓库/U_TradeClothTotalInInput1.pas
View File

@ -65,7 +65,6 @@ type
pnl1: TPanel;
cxGrid1: TcxGrid;
Tv1: TcxGridDBTableView;
Tv1Column1: TcxGridDBColumn;
cxGrid1Level1: TcxGridLevel;
tlb1: TToolBar;
btn1: TToolButton;
@ -109,6 +108,7 @@ type
private
{ Private declarations }
function SaveCKData(): Boolean;
procedure JSKC();
public
{ Public declarations }
FBCId, canshu3, FSTKName, FKHName: string;
@ -123,6 +123,38 @@ uses
U_DataLink, U_RTFun, U_ZDYHelp, U_CompanySel, U_TradePlanSel, U_ClothInfoSel;
{$R *.dfm}
procedure TfrmTradeClothTotalInInput1.JSKC();
begin
with CDS_Sub do
begin
DisableControls;
First;
while not Eof do
begin
Edit;
FieldByName('Qty').Value := StrTofloatDef(inQty.Text, 0);
if QtyUnit.Text = 'M' then
begin
FieldByName('Qty').Value := FieldByName('Meter').Value;
end
else if QtyUnit.Text = 'Y' then
begin
FieldByName('Qty').Value := FieldByName('Yardage').Value;
end
else
begin
FieldByName('Qty').Value := FieldByName('NetWeight').Value;
end;
Post;
Next;
end;
EnableControls;
end;
end;
procedure TfrmTradeClothTotalInInput1.btndaoruClick(Sender: TObject);
var
@ -315,6 +347,9 @@ begin
Append;
FieldByName('Fillid').Value := Trim(Dcode);
FieldByName('Filler').Value := Trim(DName);
FieldByName('BCIOID').Value := Trim(Maxno);
FieldByName('STKID').Value := Trim(Maxno);
FieldByName('CIID').Value := Trim(Maxno);
end
else
begin
@ -329,12 +364,8 @@ begin
FieldByName('CustNo').Value := CDS_Sub.fieldbyname('CustNo').Value;
FieldByName('FromCoNo').Value := CDS_Sub.fieldbyname('FromCoNo').Value;
FieldByName('StkCoNo').Value := Trim(StkCoName.Properties.LookupItems.Text);
FieldByName('FromMainId').Value := CDS_Sub.fieldbyname('FromMainId').Value;
FieldByName('FromSubId').Value := CDS_Sub.fieldbyname('FromSubId').Value;
FieldByName('BCIOID').Value := Trim(Maxno);
FieldByName('STKID').Value := Trim(Maxno);
FieldByName('STKName').Value := FSTKName;
FieldByName('IOFlag').Value := '入库';
FieldByName('IOQtyFlag').Value := 1;
@ -497,6 +528,20 @@ begin
begin
Append;
FieldByName('Qty').Value := StrTofloatDef(inQty.Text, 0);
if QtyUnit.Text = 'M' then
begin
FieldByName('Meter').Value := StrTofloatDef(inQty.Text, 0);
end
else if QtyUnit.Text = 'Y' then
begin
FieldByName('Yardage').Value := StrTofloatDef(inQty.Text, 0);
end
else
begin
FieldByName('NetWeight').Value := StrTofloatDef(inQty.Text, 0);
end;
Post;
end;
EnableControls;
@ -585,7 +630,11 @@ begin
Application.MessageBox('入库类型不能为空!', '提示', 0);
Exit;
end;
if trim(C_Code.text) = '' then
begin
Application.MessageBox('²úÆ·±àºÅ²»ÄÜΪ¿Õ!', 'Ìáʾ', 0);
Exit;
end;
if CDS_Sub.Locate('Qty', null, []) = True then
begin
Application.MessageBox('数量不能为空!', '提示', 0);

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

@ -364,7 +364,6 @@ inherited frmTradeClothTotalInList: TfrmTradeClothTotalInList
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 2
ExplicitLeft = 2
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>

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

@ -147,7 +147,7 @@ type
procedure IOTypePropertiesChange(Sender: TObject);
procedure btn1Click(Sender: TObject);
private
canshu1, canshu2, canshu3: string;
canshu1, canshu2, canshu3, canshu4: string;
procedure InitGrid();
procedure setStatus();
{ Private declarations }
@ -182,6 +182,8 @@ begin
canshu1 := Trim(self.fParameters1);
canshu2 := Trim(self.fParameters2);
canshu3 := Trim(self.fParameters3);
canshu4 := Trim(self.fParameters4);
end;
procedure TfrmTradeClothTotalInList.InitGrid();
@ -196,6 +198,10 @@ begin
SqlStr := SqlStr + ' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
SqlStr := SqlStr + ' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''';
SqlStr := SqlStr + ' and IOFlag=''Èë¿â'' ';
if Trim(canshu4) <> '' then
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
SqlStr := SqlStr + ' order by IOTime desc';
InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID');

2
T02贸易汇总仓库/U_TradeClothTotalOutList.dfm
View File

@ -269,7 +269,9 @@ inherited frmTradeClothTotalOutList: TfrmTradeClothTotalOutList
Width = 1593
Height = 36
Align = alTop
Color = clWhite
ParentBackground = False
ParentColor = False
TabOrder = 7
ExplicitLeft = 2
ExplicitTop = 2

39
T02贸易汇总仓库/U_TradeClothTotalOutList.pas
View File

@ -152,7 +152,7 @@ type
procedure IOTypePropertiesChange(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
private
canshu1, canshu2: string;
canshu1, canshu2, canshu4: string;
procedure InitGrid();
{ Private declarations }
public
@ -182,35 +182,28 @@ begin
inherited;
canshu1 := Trim(DParameters1);
canshu2 := Trim(DParameters2);
canshu4 := Trim(self.fParameters4);
frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
frmFrameDateSel1.BegDate.Date := frmFrameDateSel1.EndDate.Date - 90;
end;
procedure TfrmTradeClothTotalOutList.InitGrid();
var
SqlStr: string;
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.Add(' select A.* ,Pieceint=CEILING(A.Piece)');
sql.Add(',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''óÒ×»ã×ܲ¼'' and X.WBID=A.BCIOID)>0 THEN 1 ELSE 0 END) AS BIT) ');
sql.Add(' from BS_Cloth_IO A');
sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''');
sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''');
sql.Add(' and isnull(stkName,'''')=''' + Trim(FstkName) + '''');
SQL.Add(' and ioFlag=''³ö¿â'' ');
SqlStr := ' select A.* ,Pieceint=CEILING(A.Piece)';
SqlStr := SqlStr + ',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''óÒ×»ã×ܲ¼'' and X.WBID=A.BCIOID)>0 THEN 1 ELSE 0 END) AS BIT) ';
Open;
end;
SCreateCDS(ADOQueryMain, CDS_Main);
SInitCDSData(ADOQueryMain, CDS_Main);
finally
ADOQueryMain.EnableControls;
end;
SqlStr := SqlStr + 'from BS_Cloth_IO A';
SqlStr := SqlStr + 'where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''';
SqlStr := SqlStr + ' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + '''';
SqlStr := SqlStr + ' and ioFlag=''³ö¿â'' ';
if Trim(canshu4) <> '' then
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
InitCDSData(ADOQueryMain, CDS_Main, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID');
end;
procedure TfrmTradeClothTotalOutList.IOTypePropertiesChange(Sender: TObject);
@ -220,7 +213,7 @@ end;
procedure TfrmTradeClothTotalOutList.TBRafreshClick(Sender: TObject);
begin
frmFrameDateSel1.BegDate.SetFocus;
ToolBar1.SetFocus;
InitGrid();
end;

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

@ -137,7 +137,7 @@ type
procedure InitGrid();
{ Private declarations }
public
FstkName, FC_Degree, FC_Pack: string;
FstkName, FC_Degree, FC_Pack, canshu4: string;
{ Public declarations }
end;
@ -209,7 +209,8 @@ begin
if FC_Pack <> '' then
SqlStr := SqlStr + ' and isnull(C_Pack,'''')=''' + Trim(FC_Pack) + '''';
SqlStr := SqlStr + ' order by IOTime desc';
if Trim(canshu4) <> '' then
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID');
end;
@ -238,6 +239,7 @@ begin
inherited;
ReadCxGrid(trim(Self.Caption), Tv1, 'óÒ×»ã×ֿܲâ');
ComboBox_Print.Properties.Items.Assign(printer.Printers);
canshu4 := Trim(self.fParameters4);
InitGrid();
end;

3711
T05贸易门市管理/U_DataLink.dfm
View File

File diff suppressed because it is too large Load Diff

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

@ -5,7 +5,7 @@ interface
uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, U_BaseDataLink, dxCore,
System.ImageList, U_BaseDataLink, dxCore,
cxLocalization, dxLayoutLookAndFeels, cxImageList, cxGraphics, cxContainer,
cxEdit, dxSkinsForm;
@ -44,7 +44,6 @@ type
ADOLink: TADOConnection;
ThreeImgList: TImageList;
Timer_link: TTimer;
ImageList_new32: TImageList;
procedure DataModuleDestroy(Sender: TObject);
procedure Timer_linkTimer(Sender: TObject);
procedure DataModuleCreate(Sender: TObject);

104
T05贸易门市管理/U_TradeDispatchedList.dfm
View File

@ -20,18 +20,10 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 95
ButtonWidth = 115
Caption = 'ToolBar1'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeMarket.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 5
object TBRafresh: TToolButton
@ -43,15 +35,16 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = TBRafreshClick
end
object ToolButton1: TToolButton
Left = 63
Left = 71
Top = 0
AutoSize = True
Caption = #25195#25551#37197#36135
ImageIndex = 8
Visible = False
OnClick = ToolButton1Click
end
object TBPrint: TToolButton
Left = 150
Left = 174
Top = 0
AutoSize = True
Caption = #25171#21360
@ -59,7 +52,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = TBPrintClick
end
object TBPrint1: TToolButton
Left = 213
Left = 245
Top = 0
AutoSize = True
Caption = #25171#21360#20986#24211#21333
@ -67,7 +60,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = TBPrint1Click
end
object TBCK: TToolButton
Left = 312
Left = 364
Top = 0
AutoSize = True
Caption = #26597#30475
@ -75,7 +68,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = TBCKClick
end
object TBFJ: TToolButton
Left = 375
Left = 435
Top = 0
AutoSize = True
Caption = #38468#20214
@ -83,7 +76,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = TBFJClick
end
object ToolButton2: TToolButton
Left = 438
Left = 506
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -91,7 +84,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 525
Left = 609
Top = 0
AutoSize = True
Caption = #20851#38381
@ -107,57 +100,52 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 6
ExplicitTop = 38
object Label3: TLabel
Left = 35
Left = 25
Top = 48
Width = 64
Height = 21
Caption = #22823#36135#21333#21495
end
object Label1: TLabel
Left = 419
Left = 409
Top = 48
Width = 32
Height = 21
Caption = #23458#25143
end
object Label2: TLabel
Left = 227
Left = 217
Top = 48
Width = 64
Height = 21
Caption = #20135#21697#21517#31216
end
object TMMNo: TEdit
object TMMNo: TcxTextEdit
Tag = 2
Left = 103
Left = 93
Top = 44
Width = 120
Height = 29
TabOrder = 0
OnKeyPress = TMMNoKeyPress
end
object CustName: TEdit
Tag = 2
Left = 455
Top = 44
Width = 120
Height = 29
end
object CustName: TcxTextEdit
Tag = 2
Left = 445
Top = 44
TabOrder = 1
OnKeyPress = TMMNoKeyPress
end
object C_Name: TEdit
Tag = 2
Left = 295
Top = 44
Width = 120
Height = 29
end
object C_Name: TcxTextEdit
Tag = 2
Left = 285
Top = 44
TabOrder = 2
OnKeyPress = TMMNoKeyPress
Width = 120
end
inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2
@ -165,13 +153,11 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
Width = 1536
Height = 37
Align = alTop
Color = clWhite
ParentBackground = False
ParentColor = False
TabOrder = 3
ExplicitLeft = -380
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1920
ExplicitWidth = 1536
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
@ -189,8 +175,6 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
Align = alTop
PopupMenu = PM_1
TabOrder = 2
ExplicitWidth = 1431
ExplicitHeight = 381
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -370,8 +354,6 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
BevelOuter = bvNone
Caption = 'Panel2'
TabOrder = 3
ExplicitTop = 366
ExplicitHeight = 196
object cxGrid2: TcxGrid
Left = 0
Top = 30
@ -379,8 +361,6 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
Height = 299
Align = alClient
TabOrder = 0
ExplicitLeft = -2
ExplicitWidth = 1431
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -577,22 +557,15 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
Width = 1540
Height = 30
ButtonHeight = 30
ButtonWidth = 83
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clWhite
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeMarket.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 1
Visible = False
object ToolButton4: TToolButton
Left = 0
Top = 0
@ -602,7 +575,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = ToolButton4Click
end
object phwc: TToolButton
Left = 87
Left = 103
Top = 0
AutoSize = True
Caption = #37197#36135#23436#25104
@ -610,7 +583,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = phwcClick
end
object ToolButton6: TToolButton
Left = 174
Left = 206
Top = 0
AutoSize = True
Caption = #20462#25913#37197#36135
@ -618,7 +591,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = ToolButton6Click
end
object phok: TToolButton
Left = 261
Left = 309
Top = 0
AutoSize = True
Caption = #37197#36135#30830#35748
@ -626,7 +599,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = phokClick
end
object fh: TToolButton
Left = 348
Left = 412
Top = 0
AutoSize = True
Caption = #25104#21697#21457#36135
@ -634,7 +607,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = fhClick
end
object ToolButton9: TToolButton
Left = 435
Left = 515
Top = 0
AutoSize = True
Caption = #25171#21360#26631#31614
@ -642,7 +615,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = ToolButton9Click
end
object del: TToolButton
Left = 522
Left = 618
Top = 0
AutoSize = True
Caption = #21024#38500
@ -650,7 +623,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = delClick
end
object ToolButton5: TToolButton
Left = 585
Left = 689
Top = 0
AutoSize = True
Caption = #25972#21333#25764#38144
@ -658,7 +631,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = ToolButton5Click
end
object Tdbchexiao: TToolButton
Left = 672
Left = 792
Top = 0
AutoSize = True
Caption = #25972#31508#25764#38144
@ -666,7 +639,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
OnClick = TdbchexiaoClick
end
object ToolButton3: TToolButton
Left = 759
Left = 895
Top = 0
AutoSize = True
Caption = #25764#38144#21457#36135
@ -691,7 +664,6 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
#24050#21457#36135
#20840#37096)
OnChange = cxTabControl1Change
ExplicitTop = 121
ClientRectRight = 0
ClientRectTop = 0
end

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

@ -14,9 +14,8 @@ uses
cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, dxScrollbarAnnotations,
cxProgressBar, FrameDateSel;
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd,
dxScrollbarAnnotations, cxProgressBar, FrameDateSel;
type
TfrmTradeDispatchedList = class(TfrmBaseList)
@ -34,7 +33,7 @@ type
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
TMMNo: TEdit;
TMMNo: TcxTextEdit;
v1OrdDate: TcxGridDBColumn;
v1DeliveryDate: TcxGridDBColumn;
Order_Main: TClientDataSet;
@ -53,7 +52,7 @@ type
N3: TMenuItem;
N4: TMenuItem;
Label1: TLabel;
CustName: TEdit;
CustName: TcxTextEdit;
Tv1Column6: TcxGridDBColumn;
cxgrdpmn2: TcxGridPopupMenu;
Tv1Column2: TcxGridDBColumn;
@ -61,7 +60,7 @@ type
Tv1Column11: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Label2: TLabel;
C_Name: TEdit;
C_Name: TcxTextEdit;
CDS_WXTS: TClientDataSet;
ToolButton2: TToolButton;
PM_1: TPopupMenu;

240
T05贸易门市管理/U_TradeDispatchedSel.dfm
View File

@ -4,32 +4,26 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
Caption = #37197#36135#31649#29702
ClientHeight = 562
ClientWidth = 1540
Font.Charset = ANSI_CHARSET
Font.Height = -16
Font.Name = #24494#36719#38597#40657
Position = poScreenCenter
ExplicitLeft = -70
ExplicitWidth = 1556
ExplicitHeight = 601
PixelsPerInch = 96
TextHeight = 13
TextHeight = 21
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1540
Height = 38
Height = 30
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
ButtonHeight = 30
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeMarket.ImageList_new32
Images = DataLink_TradeMarket.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
@ -49,7 +43,7 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 166
Left = 174
Top = 0
AutoSize = True
Caption = #20851#38381
@ -59,163 +53,102 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
end
object Panel1: TPanel [1]
Left = 0
Top = 38
Top = 30
Width = 1540
Height = 51
Height = 89
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 1
object Label3: TLabel
Left = 317
Top = 20
Width = 52
Height = 12
Left = 27
Top = 49
Width = 64
Height = 21
Caption = #22823#36135#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 613
Top = 119
Width = 26
Height = 12
Caption = #20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 637
Top = 20
Width = 26
Height = 12
Left = 411
Top = 49
Width = 32
Height = 21
Caption = #23458#25143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 478
Top = 20
Width = 52
Height = 12
Caption = #20135#21697#21517#31216
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BegDate: TDateTimePicker
Left = 128
Top = 16
Width = 85
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464742650459811600
TabOrder = 0
end
object EndDate: TDateTimePicker
Left = 219
Top = 16
Width = 86
Height = 20
Date = 40675.000000000000000000
Format = 'yyyy-MM-dd'
Time = 0.464761099538009200
TabOrder = 2
end
object TMMNo: TEdit
Tag = 2
Left = 375
Top = 16
Width = 77
Top = 49
Width = 64
Height = 21
Caption = #20135#21697#21517#31216
end
object TMMNo: TcxTextEdit
Tag = 2
Left = 95
Top = 45
Width = 120
Height = 29
TabOrder = 0
OnKeyPress = TMMNoKeyPress
end
object CustName: TcxTextEdit
Tag = 2
Left = 447
Top = 45
Width = 120
Height = 29
TabOrder = 1
OnKeyPress = TMMNoKeyPress
end
object MPRTKZ: TEdit
object C_Name: TcxTextEdit
Tag = 2
Left = 654
Top = 99
Width = 56
Height = 21
Left = 287
Top = 45
Width = 120
Height = 29
TabOrder = 2
OnKeyPress = TMMNoKeyPress
end
inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2
Top = 2
Width = 1536
Height = 37
Align = alTop
Color = clBtnFace
ParentBackground = False
ParentColor = True
TabOrder = 3
end
object ComboBox1: TComboBox
Left = 49
Top = 16
Width = 71
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1731
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
Height = 21
Enabled = False
TabOrder = 4
Text = #21046#21333#26085#26399
OnChange = ComboBox1Change
Items.Strings = (
#21046#21333#26085#26399
#20132#36135#26085#26399)
ExplicitWidth = 16
ExplicitHeight = 21
end
object CustName: TEdit
Tag = 2
Left = 669
Top = 16
Width = 80
Height = 21
inherited cxButton3: TcxButton
TabOrder = 5
OnKeyPress = TMMNoKeyPress
end
object C_Name: TEdit
Tag = 2
Left = 533
Top = 16
Width = 77
Height = 21
TabOrder = 6
OnKeyPress = TMMNoKeyPress
inherited cbbType: TcxComboBox
TabOrder = 4
end
object CheckBox1: TCheckBox
Left = 28
Top = 18
Width = 19
Height = 17
Checked = True
State = cbChecked
TabOrder = 7
end
object CheckBox3: TCheckBox
Left = 776
Top = 16
Width = 99
Height = 19
Caption = #20840#36873
TabOrder = 8
OnClick = CheckBox3Click
end
end
object cxGrid1: TcxGrid [2]
Left = 0
Top = 111
Top = 141
Width = 1540
Height = 451
Height = 421
Align = alClient
TabOrder = 2
ExplicitTop = 103
ExplicitHeight = 459
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DataSource1
DataController.Filter.AutoDataSetFilter = True
@ -235,78 +168,78 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.IndicatorWidth = 30
Styles.Content = DataLink_TradeMarket.Default
Styles.IncSearch = DataLink_TradeMarket.SHuangSe
Styles.Footer = DataLink_TradeMarket.Default
Styles.Header = DataLink_TradeMarket.Default
Styles.Inactive = DataLink_TradeMarket.SHuangSe
Styles.Selection = DataLink_TradeMarket.SHuangSe
object Tv1Column14: TcxGridDBColumn
Caption = #22823#36135#21333#21495
DataBinding.FieldName = 'TMMNO'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object v1OrdDate: TcxGridDBColumn
Caption = #21046#21333#26085#26399
DataBinding.FieldName = 'OrdDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 66
end
object Tv1Column2: TcxGridDBColumn
Caption = #32463#33829#21333#20301
DataBinding.FieldName = 'OurCoName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.FontBlue
Width = 66
end
object Tv1Column4: TcxGridDBColumn
Caption = #23458#25143
DataBinding.FieldName = 'CustName'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.FoneClMaroon
Width = 66
end
object v1DeliveryDate: TcxGridDBColumn
Caption = #20132#36135#26085#26399
DataBinding.FieldName = 'DlyDate'
DataBinding.IsNullValueType = True
PropertiesClassName = 'TcxDateEditProperties'
Properties.ShowTime = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_TradeMarket.Default
Width = 66
end
object Tv1Column9: TcxGridDBColumn
Caption = #32534#21495
DataBinding.FieldName = 'C_Code'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object Tv1Column12: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object Tv1Column13: TcxGridDBColumn
Caption = #20013#25991#39068#33394
DataBinding.FieldName = 'C_Color'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
end
object Tv1Column15: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'C_Pattern'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 70
end
object Tv1Column11: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'TMSPiece'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -314,6 +247,7 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
object Tv1Column10: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'TMSQty'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
@ -322,14 +256,17 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
object Tv1Column7: TcxGridDBColumn
Caption = #37197#36135#21305#25968
DataBinding.FieldName = 'PHRollNum'
DataBinding.IsNullValueType = True
end
object Tv1Column8: TcxGridDBColumn
Caption = #37197#36135#25968#37327
DataBinding.FieldName = 'PHQty'
DataBinding.IsNullValueType = True
end
object v1Column11: TcxGridDBColumn
Caption = #21333#20301
DataBinding.FieldName = 'OrdUnit'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
HeaderGlyphAlignmentHorz = taCenter
Options.Editing = False
@ -338,6 +275,7 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
object Tv1Column6: TcxGridDBColumn
Caption = #21046#21333#20154
DataBinding.FieldName = 'FILLER'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -345,6 +283,7 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
object Tv1Column1: TcxGridDBColumn
Caption = #22791#27880
DataBinding.FieldName = 'Note'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
@ -352,12 +291,14 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
object Tv1Column3: TcxGridDBColumn
Caption = #21457#36135#22320#22336
DataBinding.FieldName = 'ShippingAddress'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 134
end
object Tv1Column5: TcxGridDBColumn
Caption = #32852#31995#26041#24335
DataBinding.FieldName = 'CONTACT'
DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter
Width = 80
end
@ -368,7 +309,7 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
end
object cxTabControl1: TcxTabControl [3]
Left = 0
Top = 89
Top = 119
Width = 1540
Height = 22
Align = alTop
@ -383,6 +324,7 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
#24050#21457#36135
#20840#37096)
OnChange = cxTabControl1Change
ExplicitTop = 81
ClientRectRight = 0
ClientRectTop = 0
end

71
T05贸易门市管理/U_TradeDispatchedSel.pas
View File

@ -14,9 +14,9 @@ uses
cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
IdExplicitTLSClientServerBase, U_BaseHelp, Vcl.Clipbrd, U_BaseList,
System.ImageList, Vcl.ImgList;
dxDateRanges, IdExplicitTLSClientServerBase, U_BaseHelp, Vcl.Clipbrd,
U_BaseList, System.ImageList, Vcl.ImgList, dxScrollbarAnnotations,
FrameDateSel;
type
TfrmTradeDispatchedSel = class(TfrmBaseHelp)
@ -24,8 +24,6 @@ type
TBRafresh: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
@ -34,28 +32,24 @@ type
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
TMMNo: TEdit;
TMMNo: TcxTextEdit;
v1OrdDate: TcxGridDBColumn;
v1DeliveryDate: TcxGridDBColumn;
Order_Main: TClientDataSet;
Label12: TLabel;
MPRTKZ: TEdit;
ADOQuerySub: TADOQuery;
DataSource2: TDataSource;
IdFTP1: TIdFTP;
v1Column11: TcxGridDBColumn;
ORDER_SUB: TClientDataSet;
ComboBox1: TComboBox;
Label1: TLabel;
CustName: TEdit;
CustName: TcxTextEdit;
Tv1Column6: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Label2: TLabel;
C_Name: TEdit;
CheckBox1: TCheckBox;
C_Name: TcxTextEdit;
ToolButton2: TToolButton;
Tv1Column4: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
@ -68,7 +62,7 @@ type
Tv1Column13: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
Tv1Column15: TcxGridDBColumn;
CheckBox3: TCheckBox;
frmFrameDateSel1: TfrmFrameDateSel;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@ -88,7 +82,6 @@ type
procedure ToolButton2Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure fhClick(Sender: TObject);
procedure CheckBox3Click(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
private
DQdate: TDateTime;
@ -209,27 +202,8 @@ begin
sql.add(' from Trade_Market_Sub B');
sql.add(' inner join Trade_Market_Main A on B.TMMID=A.TMMID ');
if (ComboBox1.Text = '制单日期') and (CheckBox1.Checked = True) then
begin
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
end;
if (ComboBox1.Text = '制单日期') and (CheckBox1.Checked = False) then
begin
sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime - 39999))));
sql.add(' and A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
end;
if (ComboBox1.Text = '交货日期') and (CheckBox1.Checked = True) then
begin
sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
sql.add(' and A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
end;
if (ComboBox1.Text = '交货日期') and (CheckBox1.Checked = False) then
begin
sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime - 39999))));
sql.add(' and A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
end;
sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date))));
sql.add(' and A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.EndDate.Date + 1))));
if canshu1 = '录入' then
begin
@ -268,7 +242,7 @@ begin
Close;
sql.Clear;
sql.Add('exec Order_QryList :TMMId,:WSql');
Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''';
Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.EndDate.Date + 1)) + '''';
Open;
end;
SCreateCDS(ADOQueryMain, Order_Main);
@ -281,8 +255,8 @@ end;
procedure TfrmTradeDispatchedSel.InitForm();
begin
ReadCxGrid('指示单列表FF1', Tv1, '生产指示单管理');
BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 180;
EndDate.DateTime := SGetServerDate(ADOQueryTemp);
frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 180;
frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
SetStatus();
InitGrid();
@ -352,27 +326,6 @@ begin
InitGrid();
end;
procedure TfrmTradeDispatchedSel.CheckBox3Click(Sender: TObject);
begin
inherited;
if Order_Main.IsEmpty then
exit;
with Order_Main do
begin
DisableControls;
first;
while not eof do
begin
edit;
fieldbyname('ssel').Value := checkbox1.Checked;
post;
next;
end;
First;
EnableControls;
end;
end;
procedure TfrmTradeDispatchedSel.TMMNoKeyPress(Sender: TObject; var Key: Char);
begin

115
T05贸易门市管理/U_TradeMarketDisScan.dfm
View File

@ -4,7 +4,6 @@ inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
Caption = #25195#25551#37197#36135
ClientHeight = 650
ClientWidth = 1540
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307
Position = poMainFormCenter
@ -18,23 +17,15 @@ inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
Left = 0
Top = 0
Width = 1540
Height = 38
Height = 30
AutoSize = True
ButtonHeight = 38
ButtonWidth = 91
ButtonHeight = 30
ButtonWidth = 83
Caption = 'ToolBar1'
Color = clWhite
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeMarket.ImageList_new32
Images = DataLink_TradeMarket.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object TBSave: TToolButton
@ -46,14 +37,14 @@ inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
OnClick = TBSaveClick
end
object ToolButton3: TToolButton
Left = 71
Left = 63
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
ImageIndex = 16
end
object TBClose: TToolButton
Left = 166
Left = 150
Top = 0
AutoSize = True
Caption = #20851#38381
@ -68,79 +59,45 @@ inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
Height = 49
BevelInner = bvLowered
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
Visible = False
end
object Panel1: TPanel [2]
Left = 0
Top = 38
Top = 30
Width = 1540
Height = 75
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 2
object Label1: TLabel
Left = 24
Top = 24
Width = 100
Height = 24
Width = 48
Height = 12
Caption = #26465#30721#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 428
Top = 28
Width = 80
Height = 20
Width = 48
Height = 12
Caption = #37197#36135#20154#21592
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object SmNO: TEdit
object SmNO: TcxTextEdit
Left = 130
Top = 20
Width = 153
Height = 32
CharCase = ecUpperCase
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnKeyPress = SmNOKeyPress
Width = 153
end
object PHYG: TBtnEditA
Left = 514
Top = 24
Width = 149
Height = 29
Height = 20
Hint = 'PHYG/'#37197#36135#21592
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnBtnClick = PHYGBtnClick
end
@ -150,21 +107,15 @@ inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
Width = 75
Height = 33
Caption = #36873#25321
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = Button1Click
end
end
object cxGrid1: TcxGrid [3]
Left = 0
Top = 113
Top = 105
Width = 713
Height = 537
Height = 545
Align = alLeft
TabOrder = 3
object Tv1: TcxGridDBTableView
@ -280,9 +231,9 @@ inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
end
object cxGrid2: TcxGrid [4]
Left = 713
Top = 113
Top = 105
Width = 827
Height = 537
Height = 545
Align = alClient
TabOrder = 4
object TV2: TcxGridDBTableView
@ -424,37 +375,22 @@ inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
Width = 561
Height = 305
BevelInner = bvLowered
Color = clSkyBlue
TabOrder = 5
Visible = False
object Label2: TLabel
Left = 48
Top = 160
Width = 150
Height = 48
Width = 36
Height = 12
Caption = 'Label2'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -48
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Edit2: TEdit
object Edit2: TcxTextEdit
Left = 85
Top = 35
Width = 386
Height = 72
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -64
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 0
Text = '91209120001'
Width = 386
end
object Button4: TButton
Left = 224
@ -476,12 +412,11 @@ inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
Left = 353
Top = 505
end
inherited ImageList_new32: TImageList
Left = 1480
Top = 32
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 1480
Top = 32
DesignInfo = 2098632
end
object GPM_1: TcxGridPopupMenu
PopupMenus = <>

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

@ -12,7 +12,7 @@ uses
cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus,
cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC,
dxDateRanges, dxBarBuiltInMenu, cxPC,
System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
IdFTP, ShellAPI, MovePanel, RM_e_Xls, MMSystem, dxScrollbarAnnotations,
@ -54,10 +54,10 @@ type
cxGridLevel1: TcxGridLevel;
MovePanel1: TMovePanel;
Label2: TLabel;
Edit2: TEdit;
Edit2: TcxTextEdit;
Button4: TButton;
Label1: TLabel;
SmNO: TEdit;
SmNO: TcxTextEdit;
Label15: TLabel;
PHYG: TBtnEditA;
cxStyleRepository1: TcxStyleRepository;
@ -389,7 +389,7 @@ var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
fsj := Trim(TcxTextEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
@ -399,7 +399,7 @@ begin
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TEdit(Sender).Text := ReturnStr;
TcxTextEdit(Sender).Text := ReturnStr;
end;
end;
finally

32
T05贸易门市管理/U_TradeMarketDisSel.dfm
View File

@ -4,7 +4,7 @@ inherited frmTradeMarketDisSel: TfrmTradeMarketDisSel
Caption = #35746#21333#24405#20837
ClientHeight = 650
ClientWidth = 1540
Color = clWhite
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Name = #23435#20307
Position = poMainFormCenter
@ -23,7 +23,7 @@ inherited frmTradeMarketDisSel: TfrmTradeMarketDisSel
ButtonHeight = 38
ButtonWidth = 91
Caption = 'ToolBar1'
Color = clWhite
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
@ -31,10 +31,10 @@ inherited frmTradeMarketDisSel: TfrmTradeMarketDisSel
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeMarket.ImageList_new32
Images = DataLink_TradeMarket.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ParentColor = True
ParentFont = True
ShowCaptions = True
TabOrder = 0
object TBRafresh: TToolButton
@ -611,13 +611,13 @@ inherited frmTradeMarketDisSel: TfrmTradeMarketDisSel
Height = 49
BevelInner = bvLowered
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ParentFont = True
TabOrder = 3
Visible = False
end
@ -629,7 +629,7 @@ inherited frmTradeMarketDisSel: TfrmTradeMarketDisSel
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
Color = clBtnFace
TabOrder = 4
object Label3: TLabel
Left = 55
@ -663,7 +663,7 @@ inherited frmTradeMarketDisSel: TfrmTradeMarketDisSel
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ParentFont = True
Visible = False
end
object Label1: TLabel
@ -680,7 +680,7 @@ inherited frmTradeMarketDisSel: TfrmTradeMarketDisSel
Height = 12
Caption = #33457#22411
end
object c_code: TEdit
object c_code: TcxTextEdit
Tag = 2
Left = 83
Top = 11
@ -689,7 +689,7 @@ inherited frmTradeMarketDisSel: TfrmTradeMarketDisSel
ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
TabOrder = 1
end
object C_color: TEdit
object C_color: TcxTextEdit
Tag = 2
Left = 228
Top = 11
@ -698,7 +698,7 @@ inherited frmTradeMarketDisSel: TfrmTradeMarketDisSel
ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
TabOrder = 2
end
object CPType: TComboBox
object CPType: TcxComboBox
Tag = 2
Left = 518
Top = 64
@ -743,11 +743,11 @@ inherited frmTradeMarketDisSel: TfrmTradeMarketDisSel
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ParentFont = True
TabOrder = 5
OnClick = CheckBox1Click
end
object batchno: TEdit
object batchno: TcxTextEdit
Tag = 2
Left = 368
Top = 11
@ -756,7 +756,7 @@ inherited frmTradeMarketDisSel: TfrmTradeMarketDisSel
ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
TabOrder = 3
end
object C_Pattern: TEdit
object C_Pattern: TcxTextEdit
Tag = 2
Left = 498
Top = 11
@ -776,7 +776,7 @@ inherited frmTradeMarketDisSel: TfrmTradeMarketDisSel
Left = 353
Top = 505
end
inherited ImageList_new32: TImageList
inherited cxImageList_bar: TImageList
Left = 1480
Top = 32
end

12
T05贸易门市管理/U_TradeMarketDisSel.pas
View File

@ -12,7 +12,7 @@ uses
cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus,
cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC,
dxDateRanges, dxBarBuiltInMenu, cxPC,
System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
IdFTP, ShellAPI, MovePanel, dxScrollbarAnnotations, cxImageList;
@ -100,15 +100,15 @@ type
Label7: TLabel;
Label15: TLabel;
Label1: TLabel;
c_code: TEdit;
C_color: TEdit;
CPType: TComboBox;
c_code: TcxTextEdit;
C_color: TcxTextEdit;
CPType: TcxComboBox;
Button1: TButton;
PHYG: TBtnEditA;
CheckBox1: TCheckBox;
batchno: TEdit;
batchno: TcxTextEdit;
Label2: TLabel;
C_Pattern: TEdit;
C_Pattern: TcxTextEdit;
procedure TBCloseClick(Sender: TObject);
procedure CustomerNoNameBtnDnClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);

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

@ -2,14 +2,14 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Left = 143
Top = 4
Caption = #35746#21333#24405#20837
ClientHeight = 865
ClientHeight = 823
ClientWidth = 1360
Font.Charset = GB2312_CHARSET
Font.Height = -16
Position = poMainFormCenter
WindowState = wsMaximized
ExplicitWidth = 1376
ExplicitHeight = 904
ExplicitHeight = 862
PixelsPerInch = 96
TextHeight = 21
object ToolBar1: TToolBar [0]
@ -20,23 +20,14 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clWhite
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
ExplicitWidth = 1692
object TBSave: TToolButton
Left = 0
Top = 0
@ -46,7 +37,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
OnClick = TBSaveClick
end
object ToolButton3: TToolButton
Left = 63
Left = 71
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -54,7 +45,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 150
Left = 174
Top = 0
AutoSize = True
Caption = #20851#38381
@ -64,26 +55,19 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
end
object ToolBar2: TToolBar [1]
Left = 0
Top = 254
Top = 224
Width = 1360
Height = 30
ButtonHeight = 30
ButtonWidth = 83
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 1
ExplicitTop = 254
object ToolButton4: TToolButton
Left = 0
Top = 0
@ -93,7 +77,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
OnClick = ToolButton4Click
end
object ToolButton1: TToolButton
Left = 87
Left = 103
Top = 0
AutoSize = True
Caption = #22686#34892
@ -101,7 +85,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
OnClick = ToolButton1Click
end
object ToolButton2: TToolButton
Left = 150
Left = 174
Top = 0
AutoSize = True
Caption = #21024#34892
@ -109,7 +93,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
OnClick = ToolButton2Click
end
object ToolButton5: TToolButton
Left = 213
Left = 245
Top = 0
Caption = #19968#38190#26367#25442
ImageIndex = 17
@ -118,35 +102,31 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
end
object Panel2: TPanel [2]
Left = 0
Top = 284
Top = 254
Width = 1360
Height = 581
Height = 569
Align = alClient
Caption = 'Panel2'
TabOrder = 2
ExplicitTop = 251
ExplicitWidth = 1540
ExplicitHeight = 399
ExplicitTop = 284
ExplicitHeight = 581
object Panel3: TPanel
Left = 1
Top = 1
Width = 1072
Height = 579
Height = 567
Align = alClient
Caption = 'Panel2'
TabOrder = 0
ExplicitWidth = 900
ExplicitHeight = 397
ExplicitHeight = 579
object cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 1070
Height = 577
Height = 565
Align = alClient
TabOrder = 0
ExplicitLeft = 0
ExplicitWidth = 1392
ExplicitHeight = 573
ExplicitHeight = 577
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -345,10 +325,11 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Left = 1073
Top = 1
Width = 286
Height = 579
Height = 567
Align = alRight
Caption = 'Panel4'
TabOrder = 1
ExplicitHeight = 579
object Panel5: TPanel
Left = 1
Top = 1
@ -356,64 +337,45 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Height = 41
Align = alTop
TabOrder = 0
ExplicitLeft = 215
ExplicitTop = 393
ExplicitWidth = 421
object Label33: TLabel
Left = 113
Top = 10
Width = 44
Width = 32
Height = 21
Caption = #25968#37327
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label38: TLabel
Left = 20
Top = 10
Width = 44
Width = 32
Height = 21
Caption = #24207#21495
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object QtyMX: TEdit
object QtyMX: TcxTextEdit
Left = 163
Top = 6
Width = 89
Height = 29
TabOrder = 0
OnKeyPress = QtyMXKeyPress
Width = 89
end
end
object GroupBox2: TGroupBox
Left = 1
Top = 42
Width = 284
Height = 536
Height = 524
Align = alClient
Caption = #21452#20987#21024#38500#26126#32454#20449#24687
TabOrder = 1
ExplicitWidth = 636
ExplicitHeight = 354
ExplicitHeight = 536
object cxGrid2: TcxGrid
Left = 2
Top = 23
Width = 280
Height = 511
Height = 499
Align = alClient
TabOrder = 0
ExplicitLeft = -2
ExplicitWidth = 784
ExplicitHeight = 507
ExplicitHeight = 511
object TvMX: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
@ -477,19 +439,15 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Left = 0
Top = 30
Width = 1360
Height = 224
Height = 194
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 3
OnClick = ScrollBox1Click
ExplicitTop = 72
ExplicitWidth = 1692
object Label3: TLabel
Left = 722
Top = 13
@ -553,13 +511,12 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Height = 21
Caption = #21457#36135#22320#22336
end
object TMMNo: TEdit
object TMMNo: TcxTextEdit
Tag = 2
Left = 114
Top = 10
Width = 150
Height = 27
Top = 7
TabOrder = 0
Width = 150
end
object TMMDate: TDateTimePicker
Tag = 2
@ -589,7 +546,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
object OrdNote: TMemo
Tag = 2
Left = 112
Top = 131
Top = 126
Width = 842
Height = 58
Hint = 'OrdNote/'#22791#27880
@ -663,11 +620,14 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
Top = 505
end
inherited ImageList_new32: TImageList
Left = 1480
Top = 32
Left = 132
Top = 426
end
inherited cxImageList_bar: TcxImageList
FormatVersion = 1
Left = 1480
Top = 32
DesignInfo = 2098632
end
object ADOTemp: TADOQuery
Connection = DataLink_TradeMarket.ADOLink

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

@ -12,7 +12,7 @@ uses
cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus,
cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC,
dxDateRanges, dxBarBuiltInMenu, cxPC,
System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
IdFTP, ShellAPI, dxScrollbarAnnotations, cxImageList;
@ -61,7 +61,7 @@ type
Panel5: TPanel;
Label33: TLabel;
Label38: TLabel;
QtyMX: TEdit;
QtyMX: TcxTextEdit;
GroupBox2: TGroupBox;
cxGrid2: TcxGrid;
TvMX: TcxGridDBTableView;
@ -83,7 +83,7 @@ type
Label19: TLabel;
Label37: TLabel;
Label18: TLabel;
TMMNo: TEdit;
TMMNo: TcxTextEdit;
TMMDate: TDateTimePicker;
DLYDate: TDateTimePicker;
OrdNote: TMemo;
@ -746,7 +746,7 @@ var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
fsj := Trim(TcxTextEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -756,7 +756,7 @@ begin
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
@ -968,7 +968,7 @@ var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
fsj := Trim(TcxTextEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -978,7 +978,7 @@ begin
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
@ -1126,7 +1126,7 @@ var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
fsj := Trim(TcxTextEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -1137,7 +1137,7 @@ begin
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
@ -1293,7 +1293,7 @@ var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
fsj := Trim(TcxTextEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -1303,7 +1303,7 @@ begin
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
@ -1316,7 +1316,7 @@ var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
fsj := Trim(TcxTextEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
@ -1332,7 +1332,7 @@ begin
end;
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;

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

@ -21,18 +21,10 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Height = 30
AutoSize = True
ButtonHeight = 30
ButtonWidth = 83
ButtonWidth = 99
Caption = 'ToolBar1'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeMarket.cxImageList_bar
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 4
object TBRafresh: TToolButton
@ -44,7 +36,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBRafreshClick
end
object TBAdd: TToolButton
Left = 63
Left = 71
Top = 0
AutoSize = True
Caption = #26032#22686
@ -52,7 +44,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBAddClick
end
object btnCopy: TToolButton
Left = 126
Left = 142
Top = 0
AutoSize = True
Caption = #22797#21046
@ -60,7 +52,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = btnCopyClick
end
object TBEdit: TToolButton
Left = 189
Left = 213
Top = 0
AutoSize = True
Caption = #20462#25913
@ -68,7 +60,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBEditClick
end
object TBDel: TToolButton
Left = 252
Left = 284
Top = 0
AutoSize = True
Caption = #21024#38500
@ -76,7 +68,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBDelClick
end
object TBPrint: TToolButton
Left = 315
Left = 355
Top = 0
AutoSize = True
Caption = #25171#21360
@ -84,7 +76,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBPrintClick
end
object TBCK: TToolButton
Left = 378
Left = 426
Top = 0
AutoSize = True
Caption = #26597#30475
@ -92,7 +84,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBCKClick
end
object ToolButton4: TToolButton
Left = 441
Left = 497
Top = 0
AutoSize = True
Caption = #38468#20214
@ -100,7 +92,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = ToolButton4Click
end
object TBTJ: TToolButton
Left = 504
Left = 568
Top = 0
AutoSize = True
Caption = #25552#20132
@ -108,7 +100,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBTJClick
end
object TBTJCX: TToolButton
Left = 567
Left = 639
Top = 0
AutoSize = True
Caption = #25552#20132#25764#38144
@ -116,7 +108,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TBTJCXClick
end
object Tchk: TToolButton
Left = 654
Left = 742
Top = 0
AutoSize = True
Caption = #23457#26680
@ -124,7 +116,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TchkClick
end
object Tnochk: TToolButton
Left = 717
Left = 813
Top = 0
AutoSize = True
Caption = #25764#38144#23457#26680
@ -132,7 +124,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TnochkClick
end
object TWC: TToolButton
Left = 804
Left = 916
Top = 0
AutoSize = True
Caption = #23436#25104
@ -140,7 +132,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TWCClick
end
object TNowc: TToolButton
Left = 867
Left = 987
Top = 0
AutoSize = True
Caption = #25764#38144#23436#25104
@ -148,7 +140,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = TNowcClick
end
object ToolButton2: TToolButton
Left = 954
Left = 1090
Top = 0
AutoSize = True
Caption = #20445#23384#26684#24335
@ -156,7 +148,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
OnClick = ToolButton2Click
end
object TBClose: TToolButton
Left = 1041
Left = 1193
Top = 0
AutoSize = True
Caption = #20851#38381
@ -172,10 +164,8 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clWhite
ParentBackground = False
TabOrder = 6
ExplicitTop = 38
object Label3: TLabel
Left = 24
Top = 51
@ -204,41 +194,37 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Height = 21
Caption = #21512#21516#21495
end
object TMMNo: TEdit
object TMMNo: TcxTextEdit
Tag = 2
Left = 92
Top = 47
Width = 120
Height = 29
TabOrder = 0
OnKeyPress = TMMNoKeyPress
Width = 120
end
object CustName: TEdit
object CustName: TcxTextEdit
Tag = 2
Left = 444
Top = 47
Width = 120
Height = 29
TabOrder = 1
OnKeyPress = TMMNoKeyPress
Width = 120
end
object C_Name: TEdit
object C_Name: TcxTextEdit
Tag = 2
Left = 284
Top = 47
Width = 120
Height = 29
TabOrder = 2
OnKeyPress = TMMNoKeyPress
Width = 120
end
object ConNo: TEdit
object ConNo: TcxTextEdit
Tag = 2
Left = 620
Top = 47
Width = 120
Height = 29
TabOrder = 3
OnKeyPress = TMMNoKeyPress
Width = 120
end
inline frmFrameDateSel1: TfrmFrameDateSel
Left = 2
@ -248,9 +234,9 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Align = alTop
ParentBackground = False
TabOrder = 4
ExplicitLeft = -380
ExplicitLeft = 2
ExplicitTop = 2
ExplicitWidth = 1920
ExplicitWidth = 1536
ExplicitHeight = 37
inherited lbl2: TLabel
Width = 16
@ -268,8 +254,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
Align = alClient
PopupMenu = PM_1
TabOrder = 3
ExplicitTop = 120
ExplicitHeight = 436
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <>
@ -426,7 +410,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
' '#24050#23436#25104' '
' '#20840#37096' ')
OnChange = cxTabControl1Change
ExplicitTop = 89
ClientRectBottom = 31
ClientRectRight = 1540
ClientRectTop = 28

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

@ -14,7 +14,7 @@ uses
cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
dxDateRanges,
IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, dxScrollbarAnnotations,
cxProgressBar, FrameDateSel;
@ -37,7 +37,7 @@ type
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
Label3: TLabel;
TMMNo: TEdit;
TMMNo: TcxTextEdit;
v1OrdDate: TcxGridDBColumn;
v1DeliveryDate: TcxGridDBColumn;
Order_Main: TClientDataSet;
@ -65,7 +65,7 @@ type
N3: TMenuItem;
N4: TMenuItem;
Label1: TLabel;
CustName: TEdit;
CustName: TcxTextEdit;
Tv1Column6: TcxGridDBColumn;
cxgrdpmn2: TcxGridPopupMenu;
cxGrid2: TcxGrid;
@ -82,10 +82,10 @@ type
Tv1Column11: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Label2: TLabel;
C_Name: TEdit;
C_Name: TcxTextEdit;
CDS_WXTS: TClientDataSet;
Label4: TLabel;
ConNo: TEdit;
ConNo: TcxTextEdit;
ToolButton2: TToolButton;
PM_1: TPopupMenu;
N1: TMenuItem;

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

@ -27,7 +27,7 @@ object Form1: TForm1
Caption = 'ToolBar1'
Images = ImageList1
TabOrder = 0
object Edit1: TEdit
object Edit1: TcxTextEdit
Left = 0
Top = 0
Width = 81
@ -49,7 +49,7 @@ object Form1: TForm1
Height = 22
Caption = ' DllName'#65306
end
object DllName: TEdit
object DllName: TcxTextEdit
Left = 217
Top = 0
Width = 135

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

@ -12,11 +12,11 @@ type
MainMenu1: TMainMenu;
test1: TMenuItem;
ToolBar1: TToolBar;
Edit1: TEdit;
Edit1: TcxTextEdit;
ToolButton1: TToolButton;
ImageList1: TImageList;
ADOConnection1: TADOConnection;
DllName: TEdit;
DllName: TcxTextEdit;
Label1: TLabel;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure test1Click(Sender: TObject);