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

修复样品目录抖动

Browse Source
This commit is contained in:
“ddf” 2025-02-25 12:17:25 +08:00
parent f494e14a9c
commit 28f20e2612
4 changed files with 96 additions and 86 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9,7 +9,6 @@ inherited frmClothInfo: TfrmClothInfo
Font.Height = -16 Font.Height = -16
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 884 ExplicitHeight = 884
PixelsPerInch = 96 PixelsPerInch = 96
@ -19,10 +18,10 @@ inherited frmClothInfo: TfrmClothInfo
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1540 Width = 1540
Height = 30 Height = 60
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 83 ButtonWidth = 99
Caption = 'ToolBar1' Caption = 'ToolBar1'
DisabledImages = DataLink_ClothInfo.cxImageList_bar DisabledImages = DataLink_ClothInfo.cxImageList_bar
Images = DataLink_ClothInfo.cxImageList_bar Images = DataLink_ClothInfo.cxImageList_bar
@ -38,7 +37,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = TBRafreshClick OnClick = TBRafreshClick
end end
object TBAdd: TToolButton object TBAdd: TToolButton
Left = 63 Left = 71
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26032#22686 Caption = #26032#22686
@ -46,7 +45,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = TBAddClick OnClick = TBAddClick
end end
object TBCopy: TToolButton object TBCopy: TToolButton
Left = 126 Left = 142
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #22797#21046 Caption = #22797#21046
@ -54,7 +53,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = TBCopyClick OnClick = TBCopyClick
end end
object TBEdit: TToolButton object TBEdit: TToolButton
Left = 189 Left = 213
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #20462#25913 Caption = #20462#25913
@ -62,7 +61,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = TBEditClick OnClick = TBEditClick
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 252 Left = 284
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #26597#30475 Caption = #26597#30475
@ -70,7 +69,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TBMLEdit: TToolButton object TBMLEdit: TToolButton
Left = 315 Left = 355
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #30446#24405#20462#25913 Caption = #30446#24405#20462#25913
@ -78,7 +77,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = TBMLEditClick OnClick = TBMLEditClick
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 402 Left = 458
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #35774#20026#28909#38144 Caption = #35774#20026#28909#38144
@ -86,7 +85,7 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 489 Left = 561
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21462#28040#28909#38144 Caption = #21462#28040#28909#38144
@ -94,80 +93,81 @@ inherited frmClothInfo: TfrmClothInfo
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object TBDel: TToolButton object TBDel: TToolButton
Left = 576 Left = 664
Top = 0 Top = 0
AutoSize = True AutoSize = True
Caption = #21024#38500 Caption = #21024#38500
ImageIndex = 5 ImageIndex = 5
Wrap = True
OnClick = TBDelClick OnClick = TBDelClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 639 Left = 0
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #26631#31614#25171#21360 Caption = #26631#31614#25171#21360
ImageIndex = 21 ImageIndex = 21
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton7: TToolButton object ToolButton7: TToolButton
Left = 726 Left = 103
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25209#37327#23548#20986 Caption = #25209#37327#23548#20986
ImageIndex = 21 ImageIndex = 21
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 813 Left = 206
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #23548#20837 Caption = #23548#20837
ImageIndex = 18 ImageIndex = 18
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 876 Left = 277
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 20 ImageIndex = 20
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBUP: TToolButton object TBUP: TToolButton
Left = 939 Left = 348
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #22270#29255#19978#20256 Caption = #22270#29255#19978#20256
ImageIndex = 19 ImageIndex = 19
OnClick = TBUPClick OnClick = TBUPClick
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 1026 Left = 451
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25805#20316#26085#24535 Caption = #25805#20316#26085#24535
ImageIndex = 15 ImageIndex = 15
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object ToolButton6: TToolButton object ToolButton6: TToolButton
Left = 1113 Left = 554
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #20462#25913#21382#21490 Caption = #20462#25913#21382#21490
ImageIndex = 15 ImageIndex = 15
OnClick = ToolButton6Click OnClick = ToolButton6Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 1200 Left = 657
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #20445#23384#26684#24335 Caption = #20445#23384#26684#24335
ImageIndex = 16 ImageIndex = 16
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1287 Left = 760
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 7 ImageIndex = 7
@ -176,15 +176,15 @@ inherited frmClothInfo: TfrmClothInfo
end end
object cxSplitter1: TcxSplitter [1] object cxSplitter1: TcxSplitter [1]
Left = 220 Left = 220
Top = 145 Top = 175
Width = 8 Width = 8
Height = 700 Height = 670
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
Control = Panel5 Control = Panel5
end end
object Panel1: TPanel [2] object Panel1: TPanel [2]
Left = 0 Left = 0
Top = 30 Top = 60
Width = 1540 Width = 1540
Height = 115 Height = 115
Align = alTop Align = alTop
@ -399,9 +399,9 @@ inherited frmClothInfo: TfrmClothInfo
end end
object Panel5: TPanel [4] object Panel5: TPanel [4]
Left = 0 Left = 0
Top = 145 Top = 175
Width = 220 Width = 220
Height = 700 Height = 670
Align = alLeft Align = alLeft
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -410,7 +410,7 @@ inherited frmClothInfo: TfrmClothInfo
Left = 2 Left = 2
Top = 2 Top = 2
Width = 216 Width = 216
Height = 696 Height = 666
Align = alClient Align = alClient
Bands = < Bands = <
item item
@ -441,9 +441,9 @@ inherited frmClothInfo: TfrmClothInfo
end end
object Panel3: TPanel [5] object Panel3: TPanel [5]
Left = 228 Left = 228
Top = 145 Top = 175
Width = 1312 Width = 1312
Height = 700 Height = 670
Align = alClient Align = alClient
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
@ -533,14 +533,12 @@ inherited frmClothInfo: TfrmClothInfo
end end
object Panel9: TPanel object Panel9: TPanel
Left = 2 Left = 2
Top = 493 Top = 463
Width = 1308 Width = 1308
Height = 205 Height = 205
Align = alBottom Align = alBottom
Caption = 'Panel9' Caption = 'Panel9'
TabOrder = 1 TabOrder = 1
ExplicitLeft = -267
ExplicitTop = 512
object Panel10: TPanel object Panel10: TPanel
Left = 1 Left = 1
Top = 1 Top = 1
@ -574,11 +572,10 @@ inherited frmClothInfo: TfrmClothInfo
Left = 10 Left = 10
Top = 42 Top = 42
Width = 1088 Width = 1088
Height = 451 Height = 421
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitLeft = 9
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -824,7 +821,7 @@ inherited frmClothInfo: TfrmClothInfo
Left = 1106 Left = 1106
Top = 42 Top = 42
Width = 204 Width = 204
Height = 451 Height = 421
Align = alRight Align = alRight
TabOrder = 3 TabOrder = 3
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
@ -873,14 +870,14 @@ inherited frmClothInfo: TfrmClothInfo
Left = 2 Left = 2
Top = 42 Top = 42
Width = 8 Width = 8
Height = 451 Height = 421
HotZoneClassName = 'TcxMediaPlayer9Style' HotZoneClassName = 'TcxMediaPlayer9Style'
end end
object cxSplitter3: TcxSplitter object cxSplitter3: TcxSplitter
Left = 1098 Left = 1098
Top = 42 Top = 42
Width = 8 Width = 8
Height = 451 Height = 421
AlignSplitter = salRight AlignSplitter = salRight
Control = cxGrid2 Control = cxGrid2
end end

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

@ -310,27 +310,35 @@ end;
procedure TfrmClothInfo.InitTree(); procedure TfrmClothInfo.InitTree();
begin begin
with ADOQueryTree do try
begin cxDBTreeList1.BeginUpdate;
Close; CDS_Tree.DisableControls;
SQL.Clear; with ADOQueryTree do
SQL.Add('select * from BS_Cloth_Type where CTType=' + quotedstr(FCTType)); begin
SQL.Add('order by CTName'); Close;
Open; SQL.Clear;
end; SQL.Add('select * from BS_Cloth_Type where CTType=' + quotedstr(FCTType));
SCreateCDS(ADOQueryTree, CDS_Tree); SQL.Add('order by CTName');
SInitCDSData(ADOQueryTree, CDS_Tree); Open;
cxDBTreeList1.Items[0].Expand(false); end;
SCreateCDS(ADOQueryTree, CDS_Tree);
SInitCDSData(ADOQueryTree, CDS_Tree);
if Self.cds_tree.Locate('CTName', '底布编号', []) then finally
begin CDS_Tree.EnableControls;
CTID2 := Self.cds_tree.FieldByName('CTID').AsString; cxDBTreeList1.EndUpdate;
cxDBTreeList1.Items[0].Expand(false);
end; end;
if Self.cds_tree.Locate('CTName', '布种花型编号', []) then
begin // if Self.cds_tree.Locate('CTName', '底布编号', []) then
CTID1 := Self.cds_tree.FieldByName('CTID').AsString; // begin
end; // CTID2 := Self.cds_tree.FieldByName('CTID').AsString;
Self.cds_tree.Locate('CTName', '成品', []); // end;
// if Self.cds_tree.Locate('CTName', '布种花型编号', []) then
// begin
// CTID1 := Self.cds_tree.FieldByName('CTID').AsString;
// end;
// Self.cds_tree.Locate('CTName', '成品', []);
end; end;
procedure TfrmClothInfo.InitGrid(); procedure TfrmClothInfo.InitGrid();

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

@ -669,31 +669,38 @@ object frmClothInfoInput: TfrmClothInfoInput
object ADOQueryCmd: TADOQuery object ADOQueryCmd: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
Parameters = <> Parameters = <>
Left = 156 Left = 440
Top = 634 Top = 200
end end
object ADOQueryTemp: TADOQuery object ADOQueryTemp: TADOQuery
Connection = DataLink_ClothInfo.ADOLink Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly LockType = ltReadOnly
Parameters = <> Parameters = <>
Left = 65 Left = 534
Top = 652 Top = 200
end end
object DS_1: TDataSource object DS_1: TDataSource
DataSet = CDS_1 DataSet = CDS_1
Left = 888 Left = 816
Top = 341 Top = 200
end end
object CDS_1: TClientDataSet object CDS_1: TClientDataSet
Aggregates = <> Aggregates = <>
Params = <> Params = <>
Left = 845 Left = 628
Top = 319 Top = 200
end end
object GPM_1: TcxGridPopupMenu object GPM_1: TcxGridPopupMenu
Grid = cxGrid1 Grid = cxGrid1
PopupMenus = <> PopupMenus = <>
Left = 806 Left = 722
Top = 305 Top = 200
end
object ADO_1: TADOQuery
Connection = DataLink_ClothInfo.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 536
Top = 264
end end
end end

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

@ -87,6 +87,7 @@ type
StkPosition: TcxMRUEdit; StkPosition: TcxMRUEdit;
Label25: TLabel; Label25: TLabel;
qtyunit: TcxMRUEdit; qtyunit: TcxMRUEdit;
ADO_1: TADOQuery;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject); procedure ToolButton1Click(Sender: TObject);
@ -158,19 +159,16 @@ begin
end; end;
procedure TfrmClothInfoInput.InitGrid1(); procedure TfrmClothInfoInput.InitGrid1();
var
SqlStr: string;
begin begin
with ADOQueryTemp do SqlStr := 'select A.* from BS_Cloth_Info_Sub A ';
begin SqlStr := SqlStr + ' where A.BCIID=''' + Trim(FBCIID) + '''';
Close; SqlStr := SqlStr + 'ORDER BY CASE WHEN C_COLORNO NOT LIKE ''%[^0-9]%'' THEN dbo.getNum(C_Colorno) ELSE 9999999999 ';
sql.Clear; SqlStr := SqlStr + ' END ,C_ColorNo';
sql.Add('select A.* from BS_Cloth_Info_Sub A ');
sql.Add(' where A.BCIID=''' + Trim(FBCIID) + ''''); InitCDSData(ADO_1, CDS_1, Tv1, SqlStr, '', '');
sql.Add('ORDER BY CASE WHEN C_COLORNO NOT LIKE ''%[^0-9]%'' THEN dbo.getNum(C_Colorno) ELSE 9999999999 ');
sql.Add(' END ,C_ColorNo');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_1);
SInitCDSData(ADOQueryTemp, CDS_1);
end; end;
procedure TfrmClothInfoInput.InitGrid(); procedure TfrmClothInfoInput.InitGrid();