修复样品目录抖动
This commit is contained in:
“ddf”
parent
f494e14a9c
commit
28f20e2612
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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();
|
||||
|
|
|
|||
|
|
@ -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
|
||||
|
|
|
|||
|
|
@ -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();
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user