From 28f20e26129ed46631d568072167c9d54072d2c7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E2=80=9Cddf=E2=80=9D?= <“ddf668490@163.com”> Date: Tue, 25 Feb 2025 12:17:25 +0800 Subject: [PATCH] =?UTF-8?q?=E4=BF=AE=E5=A4=8D=E6=A0=B7=E5=93=81=E7=9B=AE?= =?UTF-8?q?=E5=BD=95=E6=8A=96=E5=8A=A8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- A02基础产品管理/U_ClothInfo.dfm | 87 ++++++++++++++-------------- A02基础产品管理/U_ClothInfo.pas | 46 +++++++++------ A02基础产品管理/U_ClothInfoInput.dfm | 27 +++++---- A02基础产品管理/U_ClothInfoInput.pas | 22 ++++--- 4 files changed, 96 insertions(+), 86 deletions(-) diff --git a/A02基础产品管理/U_ClothInfo.dfm b/A02基础产品管理/U_ClothInfo.dfm index 91c9949..da58ac5 100644 --- a/A02基础产品管理/U_ClothInfo.dfm +++ b/A02基础产品管理/U_ClothInfo.dfm @@ -9,7 +9,6 @@ inherited frmClothInfo: TfrmClothInfo Font.Height = -16 FormStyle = fsMDIChild Position = poScreenCenter - Visible = True ExplicitWidth = 1556 ExplicitHeight = 884 PixelsPerInch = 96 @@ -19,10 +18,10 @@ inherited frmClothInfo: TfrmClothInfo Left = 0 Top = 0 Width = 1540 - Height = 30 + Height = 60 AutoSize = True ButtonHeight = 30 - ButtonWidth = 83 + ButtonWidth = 99 Caption = 'ToolBar1' DisabledImages = DataLink_ClothInfo.cxImageList_bar Images = DataLink_ClothInfo.cxImageList_bar @@ -38,7 +37,7 @@ inherited frmClothInfo: TfrmClothInfo OnClick = TBRafreshClick end object TBAdd: TToolButton - Left = 63 + Left = 71 Top = 0 AutoSize = True Caption = #26032#22686 @@ -46,7 +45,7 @@ inherited frmClothInfo: TfrmClothInfo OnClick = TBAddClick end object TBCopy: TToolButton - Left = 126 + Left = 142 Top = 0 AutoSize = True Caption = #22797#21046 @@ -54,7 +53,7 @@ inherited frmClothInfo: TfrmClothInfo OnClick = TBCopyClick end object TBEdit: TToolButton - Left = 189 + Left = 213 Top = 0 AutoSize = True Caption = #20462#25913 @@ -62,7 +61,7 @@ inherited frmClothInfo: TfrmClothInfo OnClick = TBEditClick end object ToolButton1: TToolButton - Left = 252 + Left = 284 Top = 0 AutoSize = True Caption = #26597#30475 @@ -70,7 +69,7 @@ inherited frmClothInfo: TfrmClothInfo OnClick = ToolButton1Click end object TBMLEdit: TToolButton - Left = 315 + Left = 355 Top = 0 AutoSize = True Caption = #30446#24405#20462#25913 @@ -78,7 +77,7 @@ inherited frmClothInfo: TfrmClothInfo OnClick = TBMLEditClick end object ToolButton8: TToolButton - Left = 402 + Left = 458 Top = 0 AutoSize = True Caption = #35774#20026#28909#38144 @@ -86,7 +85,7 @@ inherited frmClothInfo: TfrmClothInfo OnClick = ToolButton8Click end object ToolButton9: TToolButton - Left = 489 + Left = 561 Top = 0 AutoSize = True Caption = #21462#28040#28909#38144 @@ -94,80 +93,81 @@ inherited frmClothInfo: TfrmClothInfo OnClick = ToolButton9Click end object TBDel: TToolButton - Left = 576 + Left = 664 Top = 0 AutoSize = True Caption = #21024#38500 ImageIndex = 5 + Wrap = True OnClick = TBDelClick end object ToolButton3: TToolButton - Left = 639 - Top = 0 + Left = 0 + Top = 30 AutoSize = True Caption = #26631#31614#25171#21360 ImageIndex = 21 OnClick = ToolButton3Click end object ToolButton7: TToolButton - Left = 726 - Top = 0 + Left = 103 + Top = 30 AutoSize = True Caption = #25209#37327#23548#20986 ImageIndex = 21 OnClick = ToolButton7Click end object ToolButton4: TToolButton - Left = 813 - Top = 0 + Left = 206 + Top = 30 AutoSize = True Caption = #23548#20837 ImageIndex = 18 OnClick = ToolButton4Click end object TBExport: TToolButton - Left = 876 - Top = 0 + Left = 277 + Top = 30 AutoSize = True Caption = #23548#20986 ImageIndex = 20 OnClick = TBExportClick end object TBUP: TToolButton - Left = 939 - Top = 0 + Left = 348 + Top = 30 AutoSize = True Caption = #22270#29255#19978#20256 ImageIndex = 19 OnClick = TBUPClick end object ToolButton5: TToolButton - Left = 1026 - Top = 0 + Left = 451 + Top = 30 AutoSize = True Caption = #25805#20316#26085#24535 ImageIndex = 15 OnClick = ToolButton5Click end object ToolButton6: TToolButton - Left = 1113 - Top = 0 + Left = 554 + Top = 30 AutoSize = True Caption = #20462#25913#21382#21490 ImageIndex = 15 OnClick = ToolButton6Click end object ToolButton2: TToolButton - Left = 1200 - Top = 0 + Left = 657 + Top = 30 AutoSize = True Caption = #20445#23384#26684#24335 ImageIndex = 16 OnClick = ToolButton2Click end object TBClose: TToolButton - Left = 1287 - Top = 0 + Left = 760 + Top = 30 AutoSize = True Caption = #20851#38381 ImageIndex = 7 @@ -176,15 +176,15 @@ inherited frmClothInfo: TfrmClothInfo end object cxSplitter1: TcxSplitter [1] Left = 220 - Top = 145 + Top = 175 Width = 8 - Height = 700 + Height = 670 HotZoneClassName = 'TcxMediaPlayer9Style' Control = Panel5 end object Panel1: TPanel [2] Left = 0 - Top = 30 + Top = 60 Width = 1540 Height = 115 Align = alTop @@ -399,9 +399,9 @@ inherited frmClothInfo: TfrmClothInfo end object Panel5: TPanel [4] Left = 0 - Top = 145 + Top = 175 Width = 220 - Height = 700 + Height = 670 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered @@ -410,7 +410,7 @@ inherited frmClothInfo: TfrmClothInfo Left = 2 Top = 2 Width = 216 - Height = 696 + Height = 666 Align = alClient Bands = < item @@ -441,9 +441,9 @@ inherited frmClothInfo: TfrmClothInfo end object Panel3: TPanel [5] Left = 228 - Top = 145 + Top = 175 Width = 1312 - Height = 700 + Height = 670 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered @@ -533,14 +533,12 @@ inherited frmClothInfo: TfrmClothInfo end object Panel9: TPanel Left = 2 - Top = 493 + Top = 463 Width = 1308 Height = 205 Align = alBottom Caption = 'Panel9' TabOrder = 1 - ExplicitLeft = -267 - ExplicitTop = 512 object Panel10: TPanel Left = 1 Top = 1 @@ -574,11 +572,10 @@ inherited frmClothInfo: TfrmClothInfo Left = 10 Top = 42 Width = 1088 - Height = 451 + Height = 421 Align = alClient PopupMenu = PM_1 TabOrder = 2 - ExplicitLeft = 9 object Tv1: TcxGridDBTableView OnMouseDown = Tv1MouseDown Navigator.Buttons.CustomButtons = <> @@ -824,7 +821,7 @@ inherited frmClothInfo: TfrmClothInfo Left = 1106 Top = 42 Width = 204 - Height = 451 + Height = 421 Align = alRight TabOrder = 3 object Tv2: TcxGridDBTableView @@ -873,14 +870,14 @@ inherited frmClothInfo: TfrmClothInfo Left = 2 Top = 42 Width = 8 - Height = 451 + Height = 421 HotZoneClassName = 'TcxMediaPlayer9Style' end object cxSplitter3: TcxSplitter Left = 1098 Top = 42 Width = 8 - Height = 451 + Height = 421 AlignSplitter = salRight Control = cxGrid2 end diff --git a/A02基础产品管理/U_ClothInfo.pas b/A02基础产品管理/U_ClothInfo.pas index b3a59cc..4b39ce5 100644 --- a/A02基础产品管理/U_ClothInfo.pas +++ b/A02基础产品管理/U_ClothInfo.pas @@ -310,27 +310,35 @@ end; procedure TfrmClothInfo.InitTree(); begin - with ADOQueryTree do - begin - Close; - SQL.Clear; - SQL.Add('select * from BS_Cloth_Type where CTType=' + quotedstr(FCTType)); - SQL.Add('order by CTName'); - Open; - end; - SCreateCDS(ADOQueryTree, CDS_Tree); - SInitCDSData(ADOQueryTree, CDS_Tree); - cxDBTreeList1.Items[0].Expand(false); + try + cxDBTreeList1.BeginUpdate; + CDS_Tree.DisableControls; + with ADOQueryTree do + begin + Close; + SQL.Clear; + SQL.Add('select * from BS_Cloth_Type where CTType=' + quotedstr(FCTType)); + SQL.Add('order by CTName'); + Open; + end; + SCreateCDS(ADOQueryTree, CDS_Tree); + SInitCDSData(ADOQueryTree, CDS_Tree); - if Self.cds_tree.Locate('CTName', 'ײ', []) then - begin - CTID2 := Self.cds_tree.FieldByName('CTID').AsString; + finally + CDS_Tree.EnableControls; + cxDBTreeList1.EndUpdate; + cxDBTreeList1.Items[0].Expand(false); end; - if Self.cds_tree.Locate('CTName', 'ֻͱ', []) then - begin - CTID1 := Self.cds_tree.FieldByName('CTID').AsString; - end; - Self.cds_tree.Locate('CTName', 'Ʒ', []); + +// if Self.cds_tree.Locate('CTName', 'ײ', []) then +// begin +// CTID2 := Self.cds_tree.FieldByName('CTID').AsString; +// end; +// if Self.cds_tree.Locate('CTName', 'ֻͱ', []) then +// begin +// CTID1 := Self.cds_tree.FieldByName('CTID').AsString; +// end; +// Self.cds_tree.Locate('CTName', 'Ʒ', []); end; procedure TfrmClothInfo.InitGrid(); diff --git a/A02基础产品管理/U_ClothInfoInput.dfm b/A02基础产品管理/U_ClothInfoInput.dfm index b9c4be6..9315af1 100644 --- a/A02基础产品管理/U_ClothInfoInput.dfm +++ b/A02基础产品管理/U_ClothInfoInput.dfm @@ -669,31 +669,38 @@ object frmClothInfoInput: TfrmClothInfoInput object ADOQueryCmd: TADOQuery Connection = DataLink_ClothInfo.ADOLink Parameters = <> - Left = 156 - Top = 634 + Left = 440 + Top = 200 end object ADOQueryTemp: TADOQuery Connection = DataLink_ClothInfo.ADOLink LockType = ltReadOnly Parameters = <> - Left = 65 - Top = 652 + Left = 534 + Top = 200 end object DS_1: TDataSource DataSet = CDS_1 - Left = 888 - Top = 341 + Left = 816 + Top = 200 end object CDS_1: TClientDataSet Aggregates = <> Params = <> - Left = 845 - Top = 319 + Left = 628 + Top = 200 end object GPM_1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> - Left = 806 - Top = 305 + Left = 722 + Top = 200 + end + object ADO_1: TADOQuery + Connection = DataLink_ClothInfo.ADOLink + LockType = ltReadOnly + Parameters = <> + Left = 536 + Top = 264 end end diff --git a/A02基础产品管理/U_ClothInfoInput.pas b/A02基础产品管理/U_ClothInfoInput.pas index c364b76..64380f1 100644 --- a/A02基础产品管理/U_ClothInfoInput.pas +++ b/A02基础产品管理/U_ClothInfoInput.pas @@ -87,6 +87,7 @@ type StkPosition: TcxMRUEdit; Label25: TLabel; qtyunit: TcxMRUEdit; + ADO_1: TADOQuery; procedure FormShow(Sender: TObject); procedure TBCloseClick(Sender: TObject); procedure ToolButton1Click(Sender: TObject); @@ -158,19 +159,16 @@ begin end; procedure TfrmClothInfoInput.InitGrid1(); +var + SqlStr: string; begin - with ADOQueryTemp do - begin - Close; - sql.Clear; - sql.Add('select A.* from BS_Cloth_Info_Sub A '); - sql.Add(' where A.BCIID=''' + Trim(FBCIID) + ''''); - 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); + SqlStr := 'select A.* from BS_Cloth_Info_Sub A '; + SqlStr := SqlStr + ' where A.BCIID=''' + Trim(FBCIID) + ''''; + SqlStr := SqlStr + 'ORDER BY CASE WHEN C_COLORNO NOT LIKE ''%[^0-9]%'' THEN dbo.getNum(C_Colorno) ELSE 9999999999 '; + SqlStr := SqlStr + ' END ,C_ColorNo'; + + InitCDSData(ADO_1, CDS_1, Tv1, SqlStr, '', ''); + end; procedure TfrmClothInfoInput.InitGrid();