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 ClientHeight = 509
ClientWidth = 1523 ClientWidth = 1523
Font.Height = -16 Font.Height = -16
Font.Name = #24494#36719#38597#40657 FormStyle = fsMDIChild
ExplicitWidth = 1539 ExplicitWidth = 1539
ExplicitHeight = 548 ExplicitHeight = 548
PixelsPerInch = 96 PixelsPerInch = 96
@ -31,7 +31,7 @@ inherited frmEmployeeList: TfrmEmployeeList
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 3
object TBRafresh: TToolButton object TBRafresh: TToolButton
Left = 0 Left = 0
Top = 0 Top = 0
@ -164,7 +164,7 @@ inherited frmEmployeeList: TfrmEmployeeList
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clWhite Color = clWhite
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 5
object Label1: TLabel object Label1: TLabel
Left = 31 Left = 31
Top = 43 Top = 43
@ -330,8 +330,6 @@ inherited frmEmployeeList: TfrmEmployeeList
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 1 TabOrder = 1
ExplicitLeft = -2
ExplicitTop = 37
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -495,6 +493,9 @@ inherited frmEmployeeList: TfrmEmployeeList
end end
end end
end end
inherited cxProgressBar2: TcxProgressBar
ExplicitHeight = 29
end
inherited ADOQueryBaseCmd: TADOQuery inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_Company.ADOLink Connection = DataLink_Company.ADOLink
Left = 272 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, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
cxDropDownEdit, cxPC, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL, cxTLData, cxDropDownEdit, cxPC, cxTL, cxMaskEdit, cxInplaceContainer, cxDBTL, cxTLData,
cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, dxBarBuiltInMenu, cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, dxBarBuiltInMenu,
cxNavigator, U_BaseList, dxDateRanges, cxNavigator, U_BaseList, dxDateRanges, cxContainer, cxTextEdit,
cxContainer, cxTextEdit, dxScrollbarAnnotations, cxProgressBar;
dxScrollbarAnnotations;
type type
TfrmEmployeeList = class(TfrmBaseList) TfrmEmployeeList = class(TfrmBaseList)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -105,11 +105,12 @@ type
procedure InitGrid(); procedure InitGrid();
procedure InitGrid1(); procedure InitGrid1();
function SaveData(): Boolean; function SaveData(): Boolean;
procedure setName();
{ Private declarations } { Private declarations }
public public
FBCIID, FCTID: string; FBCIID, FCTID: string;
TypeInt: Integer; //0新增_1复制_2修改 TypeInt: Integer; //0新增_1复制_2修改
fbuzhongedit: string; fbuzhongedit, canshu3: string;
{ Public declarations } { Public declarations }
end; end;
@ -122,6 +123,13 @@ uses
U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload, U_ClothInfoSel; U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload, U_ClothInfoSel;
{$R *.dfm} {$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(); procedure TfrmClothInfoInput.InitGrid1();
begin begin
with ADOQueryTemp do with ADOQueryTemp do
@ -190,6 +198,7 @@ begin
begin begin
C_FromName2.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString); C_FromName2.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString);
C_FromName2.Text := Trim(CDS_1.fieldbyname('C_Name').AsString); C_FromName2.Text := Trim(CDS_1.fieldbyname('C_Name').AsString);
setName();
end; end;
end; end;
finally finally
@ -208,6 +217,7 @@ begin
begin begin
C_FromName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString); C_FromName.Properties.LookupItems.Text := Trim(CDS_1.fieldbyname('BCIID').AsString);
C_FromName.Text := Trim(CDS_1.fieldbyname('C_Name').AsString); C_FromName.Text := Trim(CDS_1.fieldbyname('C_Name').AsString);
setName();
end; end;
end; end;
finally finally
@ -247,15 +257,25 @@ end;
procedure TfrmClothInfoInput.FormShow(Sender: TObject); procedure TfrmClothInfoInput.FormShow(Sender: TObject);
begin begin
readCxGrid(self.Caption + 'TV1', Tv1, '样品管理'); readCxGrid(self.Caption + 'TV1', Tv1, '样品管理');
InitGrid(); InitGrid();
InitGrid1(); InitGrid1();
if TypeInt = 1 then if TypeInt = 1 then
begin begin
FBCIID := ''; FBCIID := '';
BCIID.text := ''; BCIID.text := '';
C_Code.text := ''; C_Code.text := '';
end; 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; end;
procedure TfrmClothInfoInput.TBCloseClick(Sender: TObject); procedure TfrmClothInfoInput.TBCloseClick(Sender: TObject);
@ -330,39 +350,42 @@ begin
sql.Add('delete BS_Cloth_Info_Link where ToID=''' + Trim(MaxBCIID) + ''''); sql.Add('delete BS_Cloth_Info_Link where ToID=''' + Trim(MaxBCIID) + '''');
ExecSQL; ExecSQL;
end; end;
if Trim(C_FromName.Properties.LookupItems.Text) <> '' then
with ADOQueryCmd do
begin begin
Close; with ADOQueryCmd do
SQL.Clear; begin
sql.Add('select * from BS_Cloth_Info_Link where 1=2'); Close;
Open; SQL.Clear;
sql.Add('select * from BS_Cloth_Info_Link where 1=2');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('ToID').Value := Trim(MaxBCIID);
FieldByName('SerialNo').Value := 1;
FieldByName('FromID').Value := Trim(C_FromName.Properties.LookupItems.Text); // 坯布编号
Post;
end;
end; end;
with ADOQueryCmd do if Trim(C_FromName2.Properties.LookupItems.Text) <> '' then
begin begin
Append; with ADOQueryCmd do
FieldByName('ToID').Value := Trim(MaxBCIID); begin
FieldByName('SerialNo').Value := 1; Close;
FieldByName('FromID').Value := Trim(C_FromName.Properties.LookupItems.Text); // Å÷²¼±àºÅ SQL.Clear;
Post; sql.Add('select * from BS_Cloth_Info_Link where 1=2');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('ToID').Value := Trim(MaxBCIID);
FieldByName('SerialNo').Value := 2;
FieldByName('FromID').Value := Trim(C_FromName2.Properties.LookupItems.Text); // 坯布编号
Post;
end;
end; end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from BS_Cloth_Info_Link where 1=2');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('ToID').Value := Trim(MaxBCIID);
FieldByName('SerialNo').Value := 2;
FieldByName('FromID').Value := Trim(C_FromName2.Properties.LookupItems.Text); // Å÷²¼±àºÅ
Post;
end;
with ADOQueryTemp do with ADOQueryTemp do
begin begin
Close; Close;
@ -492,7 +515,28 @@ begin
end; end;
C_Code.Text := MC_Code; C_Code.Text := MC_Code;
end; 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 if SaveData() then
begin begin
Application.MessageBox('保存成功！', '提示', 0); Application.MessageBox('保存成功！', '提示', 0);
@ -522,6 +566,7 @@ begin
begin begin
Edit; Edit;
fieldbyname('BCISID').Value := trim(maxno); fieldbyname('BCISID').Value := trim(maxno);
fieldbyname('floatPrice').Value := 0;
Post; Post;
end; end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -21,11 +21,11 @@ inherited frmClothType: TfrmClothType
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 99 ButtonWidth = 99
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clBtnFace
DisabledImages = DataLink_ClothInfo.cxImageList_bar DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar Images = DataLink_ClothInfo.cxImageList_bar
List = True List = True
ParentColor = False ParentColor = True
ShowCaptions = True ShowCaptions = True
TabOrder = 3 TabOrder = 3
object TBRafresh: TToolButton object TBRafresh: TToolButton
@ -109,7 +109,7 @@ inherited frmClothType: TfrmClothType
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clSkyBlue Color = clBtnFace
TabOrder = 2 TabOrder = 2
object Label1: TLabel object Label1: TLabel
Left = 66 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; ADOLink: TADOConnection;
ThreeImgList: TImageList; ThreeImgList: TImageList;
Timer_link: TTimer; Timer_link: TTimer;
ImageList_new32: TImageList;
procedure DataModuleDestroy(Sender: TObject); procedure DataModuleDestroy(Sender: TObject);
procedure Timer_linkTimer(Sender: TObject); procedure Timer_linkTimer(Sender: TObject);
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);

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

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

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

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

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

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

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

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

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

@ -23,11 +23,11 @@ inherited frmTatClothInfo: TfrmTatClothInfo
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 95 ButtonWidth = 95
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clSkyBlue Color = clBtnFace
DisabledImages = DataLink_ClothInfo.ImageList_new32 DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar Images = DataLink_ClothInfo.cxImageList_bar
List = True List = True
ParentColor = False ParentColor = True
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
object TBRafresh: TToolButton object TBRafresh: TToolButton
@ -159,7 +159,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Align = alTop Align = alTop
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Color = clWhite Color = clBtnFace
ParentBackground = False ParentBackground = False
TabOrder = 1 TabOrder = 1
object Label11: TLabel object Label11: TLabel
@ -172,7 +172,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = True
end end
object Label12: TLabel object Label12: TLabel
Left = 1120 Left = 1120
@ -184,7 +184,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = True
end end
object Label3: TLabel object Label3: TLabel
Left = 31 Left = 31
@ -204,7 +204,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Tag = 2 Tag = 2
Left = 314 Left = 314
Top = 5 Top = 5
ParentFont = False ParentFont = True
TabOrder = 0 TabOrder = 0
OnKeyPress = C_CodeKeyPress OnKeyPress = C_CodeKeyPress
Width = 121 Width = 121
@ -213,7 +213,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Tag = 2 Tag = 2
Left = 97 Left = 97
Top = 5 Top = 5
ParentFont = False ParentFont = True
TabOrder = 1 TabOrder = 1
OnKeyPress = C_CodeKeyPress OnKeyPress = C_CodeKeyPress
Width = 121 Width = 121
@ -227,13 +227,13 @@ inherited frmTatClothInfo: TfrmTatClothInfo
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290 Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
Color = clSkyBlue Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clRed Font.Color = clRed
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = True
TabOrder = 5 TabOrder = 5
Visible = False Visible = False
end end
@ -502,7 +502,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Font.Height = -13 Font.Height = -13
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = True
Layout = tlCenter Layout = tlCenter
end end
object LBCPAP1: TLabel object LBCPAP1: TLabel
@ -519,7 +519,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = True
Layout = tlCenter Layout = tlCenter
end end
object Button1: TButton object Button1: TButton
@ -534,7 +534,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = True
TabOrder = 0 TabOrder = 0
OnClick = Button1Click OnClick = Button1Click
end end
@ -550,7 +550,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Font.Height = -12 Font.Height = -12
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = True
TabOrder = 1 TabOrder = 1
OnClick = Button2Click OnClick = Button2Click
end end
@ -567,7 +567,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ItemIndex = 2 ItemIndex = 2
ParentFont = False ParentFont = True
TabOrder = 2 TabOrder = 2
Text = '500' Text = '500'
OnChange = TCBNOR1Change OnChange = TCBNOR1Change
@ -613,15 +613,15 @@ inherited frmTatClothInfo: TfrmTatClothInfo
Width = 1257 Width = 1257
Height = 273 Height = 273
Align = alClient Align = alClient
Color = clWhite Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -21 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ParentBackground = False ParentBackground = False
ParentColor = False ParentColor = True
ParentFont = False ParentFont = True
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
Properties.CustomButtons.Buttons = <> 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 Caption = #26797#32455#20135#21697#20449#24687#24405#20837
ClientHeight = 801 ClientHeight = 801
ClientWidth = 1442 ClientWidth = 1442
Color = clWhite Color = clBtnFace
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
Font.Height = -16 Font.Height = -16
Font.Name = #24494#36719#38597#40657 Font.Name = #24494#36719#38597#40657
@ -24,10 +24,10 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 99 ButtonWidth = 99
Caption = 'ToolBar1' Caption = 'ToolBar1'
Color = clWhite Color = clBtnFace
Images = DataLink_ClothInfo.cxImageList_bar Images = DataLink_ClothInfo.cxImageList_bar
List = True List = True
ParentColor = False ParentColor = True
ShowCaptions = True ShowCaptions = True
TabOrder = 0 TabOrder = 0
object ToolButton1: TToolButton object ToolButton1: TToolButton
@ -72,9 +72,9 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Align = alTop Align = alTop
BevelInner = bvNone BevelInner = bvNone
BevelOuter = bvNone BevelOuter = bvNone
Color = clWhite Color = clBtnFace
Ctl3D = False Ctl3D = False
ParentColor = False ParentColor = True
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
object Label1: TLabel object Label1: TLabel
@ -102,7 +102,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Height = -16 Font.Height = -16
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = True
Visible = False Visible = False
end end
object Label16: TLabel object Label16: TLabel
@ -193,7 +193,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Height = -16 Font.Height = -16
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = True
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
end end
@ -202,7 +202,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 133 Left = 133
Top = 279 Top = 279
ParentColor = True ParentColor = True
ParentFont = False ParentFont = True
TabOrder = 1 TabOrder = 1
Height = 57 Height = 57
Width = 589 Width = 589
@ -212,7 +212,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 133 Left = 133
Top = 216 Top = 216
ParentColor = True ParentColor = True
ParentFont = False ParentFont = True
TabOrder = 2 TabOrder = 2
Height = 57 Height = 57
Width = 589 Width = 589
@ -222,7 +222,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 133 Left = 133
Top = 21 Top = 21
ParentColor = True ParentColor = True
ParentFont = False ParentFont = True
TabOrder = 3 TabOrder = 3
OnKeyPress = CYColorKeyPress OnKeyPress = CYColorKeyPress
Width = 234 Width = 234
@ -232,7 +232,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 133 Left = 133
Top = 60 Top = 60
ParentColor = True ParentColor = True
ParentFont = False ParentFont = True
TabOrder = 4 TabOrder = 4
Width = 234 Width = 234
end end
@ -241,7 +241,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 488 Left = 488
Top = 21 Top = 21
ParentColor = True ParentColor = True
ParentFont = False ParentFont = True
TabOrder = 5 TabOrder = 5
OnKeyPress = CYColorKeyPress OnKeyPress = CYColorKeyPress
Width = 234 Width = 234
@ -251,7 +251,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 488 Left = 488
Top = 60 Top = 60
ParentColor = True ParentColor = True
ParentFont = False ParentFont = True
TabOrder = 6 TabOrder = 6
Width = 234 Width = 234
end end
@ -260,7 +260,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 488 Left = 488
Top = 99 Top = 99
ParentColor = True ParentColor = True
ParentFont = False ParentFont = True
TabOrder = 7 TabOrder = 7
Width = 234 Width = 234
end end
@ -269,7 +269,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 133 Left = 133
Top = 99 Top = 99
ParentColor = True ParentColor = True
ParentFont = False ParentFont = True
TabOrder = 8 TabOrder = 8
Width = 234 Width = 234
end end
@ -278,7 +278,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 133 Left = 133
Top = 138 Top = 138
ParentColor = True ParentColor = True
ParentFont = False ParentFont = True
TabOrder = 9 TabOrder = 9
Width = 234 Width = 234
end end
@ -287,7 +287,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 133 Left = 133
Top = 177 Top = 177
ParentColor = True ParentColor = True
ParentFont = False ParentFont = True
TabOrder = 10 TabOrder = 10
Width = 234 Width = 234
end end
@ -296,7 +296,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 488 Left = 488
Top = 138 Top = 138
ParentColor = True ParentColor = True
ParentFont = False ParentFont = True
TabOrder = 11 TabOrder = 11
Width = 234 Width = 234
end end
@ -305,7 +305,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 866 Left = 866
Top = 21 Top = 21
ParentColor = True ParentColor = True
ParentFont = False ParentFont = True
Properties.Buttons = < Properties.Buttons = <
item item
Default = True Default = True
@ -323,7 +323,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Top = 60 Top = 60
Enabled = False Enabled = False
ParentColor = True ParentColor = True
ParentFont = False ParentFont = True
TabOrder = 13 TabOrder = 13
Width = 150 Width = 150
end end
@ -356,7 +356,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Height = -29 Font.Height = -29
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = True
TabOrder = 0 TabOrder = 0
object Y_Note_PLJ: TMemo object Y_Note_PLJ: TMemo
Tag = 2 Tag = 2
@ -370,7 +370,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Height = -16 Font.Height = -16
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = True
TabOrder = 0 TabOrder = 0
end end
end end
@ -387,15 +387,15 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Width = 929 Width = 929
Height = 394 Height = 394
Align = alClient Align = alClient
Color = clWhite Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -21 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ParentBackground = False ParentBackground = False
ParentColor = False ParentColor = True
ParentFont = False ParentFont = True
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
@ -564,7 +564,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Height = -29 Font.Height = -29
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = True
TabOrder = 0 TabOrder = 0
object Y_Note_PLW: TMemo object Y_Note_PLW: TMemo
Tag = 2 Tag = 2
@ -578,7 +578,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Font.Height = -16 Font.Height = -16
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = True
TabOrder = 0 TabOrder = 0
end end
end end
@ -595,15 +595,15 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Width = 959 Width = 959
Height = 394 Height = 394
Align = alClient Align = alClient
Color = clWhite Color = clBtnFace
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -21 Font.Height = -21
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [] Font.Style = []
ParentBackground = False ParentBackground = False
ParentColor = False ParentColor = True
ParentFont = False ParentFont = True
TabOrder = 0 TabOrder = 0
Visible = False Visible = False
Properties.CustomButtons.Buttons = <> Properties.CustomButtons.Buttons = <>
@ -925,7 +925,7 @@ inherited frmTatClothInfoInput: TfrmTatClothInfoInput
Left = 784 Left = 784
Top = 270 Top = 270
end end
inherited ImageList_new32: TImageList inherited cxImageList_bar: TImageList
Left = 409 Left = 409
Top = 514 Top = 514
end end

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

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

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

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

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

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

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

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

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

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

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

@ -147,7 +147,7 @@ type
procedure IOTypePropertiesChange(Sender: TObject); procedure IOTypePropertiesChange(Sender: TObject);
procedure btn1Click(Sender: TObject); procedure btn1Click(Sender: TObject);
private private
canshu1, canshu2, canshu3: string; canshu1, canshu2, canshu3, canshu4: string;
procedure InitGrid(); procedure InitGrid();
procedure setStatus(); procedure setStatus();
{ Private declarations } { Private declarations }
@ -182,6 +182,8 @@ begin
canshu1 := Trim(self.fParameters1); canshu1 := Trim(self.fParameters1);
canshu2 := Trim(self.fParameters2); canshu2 := Trim(self.fParameters2);
canshu3 := Trim(self.fParameters3); canshu3 := Trim(self.fParameters3);
canshu4 := Trim(self.fParameters4);
end; end;
procedure TfrmTradeClothTotalInList.InitGrid(); 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 A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
SqlStr := SqlStr + ' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + ''''; SqlStr := SqlStr + ' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''';
SqlStr := SqlStr + ' and IOFlag=''Èë¿â'' '; SqlStr := SqlStr + ' and IOFlag=''Èë¿â'' ';
if Trim(canshu4) <> '' then
SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
SqlStr := SqlStr + ' order by IOTime desc'; SqlStr := SqlStr + ' order by IOTime desc';
InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID'); 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 Width = 1593
Height = 36 Height = 36
Align = alTop Align = alTop
Color = clWhite
ParentBackground = False ParentBackground = False
ParentColor = False
TabOrder = 7 TabOrder = 7
ExplicitLeft = 2 ExplicitLeft = 2
ExplicitTop = 2 ExplicitTop = 2

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

@ -152,7 +152,7 @@ type
procedure IOTypePropertiesChange(Sender: TObject); procedure IOTypePropertiesChange(Sender: TObject);
procedure ToolButton4Click(Sender: TObject); procedure ToolButton4Click(Sender: TObject);
private private
canshu1, canshu2: string; canshu1, canshu2, canshu4: string;
procedure InitGrid(); procedure InitGrid();
{ Private declarations } { Private declarations }
public public
@ -182,35 +182,28 @@ begin
inherited; inherited;
canshu1 := Trim(DParameters1); canshu1 := Trim(DParameters1);
canshu2 := Trim(DParameters2); canshu2 := Trim(DParameters2);
canshu4 := Trim(self.fParameters4);
frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp); frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
frmFrameDateSel1.BegDate.Date := frmFrameDateSel1.EndDate.Date - 90; frmFrameDateSel1.BegDate.Date := frmFrameDateSel1.EndDate.Date - 90;
end; end;
procedure TfrmTradeClothTotalOutList.InitGrid(); procedure TfrmTradeClothTotalOutList.InitGrid();
var
SqlStr: string;
begin 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'); SqlStr := ' select A.* ,Pieceint=CEILING(A.Piece)';
sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + ''''); 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) ';
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=''³ö¿â'' ');
Open; SqlStr := SqlStr + 'from BS_Cloth_IO A';
end; SqlStr := SqlStr + 'where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''';
SCreateCDS(ADOQueryMain, CDS_Main); SqlStr := SqlStr + ' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1)) + '''';
SInitCDSData(ADOQueryMain, CDS_Main); SqlStr := SqlStr + ' and isnull(stkName,'''')=''' + Trim(FstkName) + '''';
finally SqlStr := SqlStr + ' and ioFlag=''³ö¿â'' ';
ADOQueryMain.EnableControls; if Trim(canshu4) <> '' then
end; SqlStr := SqlStr + ' and isnull(StkCoName,'''')=''' + Trim(canshu4) + '''';
InitCDSData(ADOQueryMain, CDS_Main, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID');
end; end;
procedure TfrmTradeClothTotalOutList.IOTypePropertiesChange(Sender: TObject); procedure TfrmTradeClothTotalOutList.IOTypePropertiesChange(Sender: TObject);
@ -220,7 +213,7 @@ end;
procedure TfrmTradeClothTotalOutList.TBRafreshClick(Sender: TObject); procedure TfrmTradeClothTotalOutList.TBRafreshClick(Sender: TObject);
begin begin
frmFrameDateSel1.BegDate.SetFocus; ToolBar1.SetFocus;
InitGrid(); InitGrid();
end; end;

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

@ -137,7 +137,7 @@ type
procedure InitGrid(); procedure InitGrid();
{ Private declarations } { Private declarations }
public public
FstkName, FC_Degree, FC_Pack: string; FstkName, FC_Degree, FC_Pack, canshu4: string;
{ Public declarations } { Public declarations }
end; end;
@ -209,7 +209,8 @@ begin
if FC_Pack <> '' then if FC_Pack <> '' then
SqlStr := SqlStr + ' and isnull(C_Pack,'''')=''' + Trim(FC_Pack) + ''''; SqlStr := SqlStr + ' and isnull(C_Pack,'''')=''' + Trim(FC_Pack) + '''';
SqlStr := SqlStr + ' order by IOTime desc'; 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'); InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, SGetFilters(Panel1, 1, 2), 'BCIOID');
end; end;
@ -238,6 +239,7 @@ begin
inherited; inherited;
ReadCxGrid(trim(Self.Caption), Tv1, 'óÒ×»ã×ֿܲâ'); ReadCxGrid(trim(Self.Caption), Tv1, 'óÒ×»ã×ֿܲâ');
ComboBox_Print.Properties.Items.Assign(printer.Printers); ComboBox_Print.Properties.Items.Assign(printer.Printers);
canshu4 := Trim(self.fParameters4);
InitGrid(); InitGrid();
end; 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 uses
SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses, 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, cxLocalization, dxLayoutLookAndFeels, cxImageList, cxGraphics, cxContainer,
cxEdit, dxSkinsForm; cxEdit, dxSkinsForm;
@ -44,7 +44,6 @@ type
ADOLink: TADOConnection; ADOLink: TADOConnection;
ThreeImgList: TImageList; ThreeImgList: TImageList;
Timer_link: TTimer; Timer_link: TTimer;
ImageList_new32: TImageList;
procedure DataModuleDestroy(Sender: TObject); procedure DataModuleDestroy(Sender: TObject);
procedure Timer_linkTimer(Sender: TObject); procedure Timer_linkTimer(Sender: TObject);
procedure DataModuleCreate(Sender: TObject); procedure DataModuleCreate(Sender: TObject);

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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