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

4444

Browse Source
This commit is contained in:
LZC 2025-02-20 11:38:13 +08:00
parent b417e6f4c0
commit 88e76133e3
4 changed files with 15 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -10,7 +10,7 @@ inherited frmClothInfo: TfrmClothInfo
FormStyle = fsMDIChild FormStyle = fsMDIChild
Position = poScreenCenter Position = poScreenCenter
Visible = True Visible = True
ExplicitTop = -87 ExplicitLeft = -349
ExplicitWidth = 1556 ExplicitWidth = 1556
ExplicitHeight = 884 ExplicitHeight = 884
PixelsPerInch = 96 PixelsPerInch = 96
@ -194,7 +194,7 @@ inherited frmClothInfo: TfrmClothInfo
Top = 11 Top = 11
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #20135#21697#21517#31216 Caption = #33394#24067#21517#31216
end end
object Label9: TLabel object Label9: TLabel
Left = 794 Left = 794
@ -532,8 +532,6 @@ inherited frmClothInfo: TfrmClothInfo
Align = alClient Align = alClient
Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289 Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289
TabOrder = 0 TabOrder = 0
ExplicitLeft = 606
ExplicitWidth = 699
object ScrollBox1: TScrollBox object ScrollBox1: TScrollBox
Left = 2 Left = 2
Top = 23 Top = 23
@ -543,7 +541,6 @@ inherited frmClothInfo: TfrmClothInfo
BevelInner = bvLowered BevelInner = bvLowered
BorderStyle = bsNone BorderStyle = bsNone
TabOrder = 0 TabOrder = 0
ExplicitWidth = 695
end end
end end
end end
@ -556,9 +553,6 @@ inherited frmClothInfo: TfrmClothInfo
Align = alClient Align = alClient
PopupMenu = PM_1 PopupMenu = PM_1
TabOrder = 2 TabOrder = 2
ExplicitLeft = 2
ExplicitTop = 43
ExplicitWidth = 1104
object Tv1: TcxGridDBTableView object Tv1: TcxGridDBTableView
OnMouseDown = Tv1MouseDown OnMouseDown = Tv1MouseDown
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
@ -601,7 +595,7 @@ inherited frmClothInfo: TfrmClothInfo
Width = 130 Width = 130
end end
object v1Column9: TcxGridDBColumn object v1Column9: TcxGridDBColumn
Caption = #20013#25991#21697#21517 Caption = #33394#24067#21517#31216
DataBinding.FieldName = 'C_Name' DataBinding.FieldName = 'C_Name'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -610,7 +604,7 @@ inherited frmClothInfo: TfrmClothInfo
end end
object Tv1Column24: TcxGridDBColumn object Tv1Column24: TcxGridDBColumn
AlternateCaption = 'qtyunit' AlternateCaption = 'qtyunit'
Caption = #21333#20301 Caption = #35745#20215#21333#20301
DataBinding.FieldName = 'qtyunit' DataBinding.FieldName = 'qtyunit'
DataBinding.IsNullValueType = True DataBinding.IsNullValueType = True
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
@ -800,8 +794,6 @@ inherited frmClothInfo: TfrmClothInfo
Height = 451 Height = 451
Align = alRight Align = alRight
TabOrder = 3 TabOrder = 3
ExplicitLeft = 1107
ExplicitTop = 43
object Tv2: TcxGridDBTableView object Tv2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>
@ -858,9 +850,6 @@ inherited frmClothInfo: TfrmClothInfo
Height = 451 Height = 451
AlignSplitter = salRight AlignSplitter = salRight
Control = cxGrid2 Control = cxGrid2
ExplicitLeft = 588
ExplicitTop = 380
ExplicitHeight = 100
end end
end end
inherited loadProcess: TPanel inherited loadProcess: TPanel

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

@ -224,7 +224,8 @@ begin
SqlStr := 'select * from BS_Cloth_Info_Sub A where BCIID =' + quotedstr((CDS_1.fieldbyname('BCIID').AsString)); SqlStr := 'select * from BS_Cloth_Info_Sub A where BCIID =' + quotedstr((CDS_1.fieldbyname('BCIID').AsString));
SqlStr := SqlStr + 'order by dbo.getNum( C_ColorNo) '; SqlStr := SqlStr + 'ORDER BY CASE WHEN C_COLORNO NOT LIKE ''%[^0-9]%'' THEN dbo.getNum(C_Colorno) ELSE 9999999999 ';
SqlStr := SqlStr + ' END ,C_ColorNo';
InitAdoData(ADO_2, Tv1, SqlStr, '', ''); InitAdoData(ADO_2, Tv1, SqlStr, '', '');
@ -441,6 +442,7 @@ begin
inherited; inherited;
ReadCxGrid(self.Caption + 'TV1', Tv1, '样品管理'); ReadCxGrid(self.Caption + 'TV1', Tv1, '样品管理');
ReadCxGrid(self.Caption + 'TV2', Tv2, '样品管理');
application.ProcessMessages; application.ProcessMessages;
@ -866,6 +868,7 @@ end;
procedure TfrmClothInfo.ToolButton2Click(Sender: TObject); procedure TfrmClothInfo.ToolButton2Click(Sender: TObject);
begin begin
WriteCxGrid(self.Caption + 'TV1', Tv1, '样品管理'); WriteCxGrid(self.Caption + 'TV1', Tv1, '样品管理');
WriteCxGrid(self.Caption + 'TV2', Tv2, '样品管理');
end; end;
procedure TfrmClothInfo.ToolButton3Click(Sender: TObject); procedure TfrmClothInfo.ToolButton3Click(Sender: TObject);

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

@ -75,7 +75,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Ctl3D = False Ctl3D = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
ExplicitTop = 31
object Label1: TLabel object Label1: TLabel
Left = 37 Left = 37
Top = 18 Top = 18
@ -88,7 +87,7 @@ object frmClothInfoInput: TfrmClothInfoInput
Top = 18 Top = 18
Width = 64 Width = 64
Height = 21 Height = 21
Caption = #20013#25991#21697#21517 Caption = #33394#24067#21517#31216
end end
object Label15: TLabel object Label15: TLabel
Left = 37 Left = 37
@ -255,9 +254,9 @@ object frmClothInfoInput: TfrmClothInfoInput
object Label25: TLabel object Label25: TLabel
Left = 39 Left = 39
Top = 281 Top = 281
Width = 32 Width = 64
Height = 21 Height = 21
Caption = #21333#20301 Caption = #35745#20215#21333#20301
end end
object C_Code: TcxTextEdit object C_Code: TcxTextEdit
Tag = 2 Tag = 2
@ -596,8 +595,6 @@ object frmClothInfoInput: TfrmClothInfoInput
Height = 461 Height = 461
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
ExplicitLeft = 2
ExplicitTop = 32
object TV1: TcxGridDBTableView object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <> Navigator.Buttons.CustomButtons = <>
ScrollbarAnnotations.CustomAnnotations = <> ScrollbarAnnotations.CustomAnnotations = <>

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

@ -165,7 +165,8 @@ begin
sql.Clear; sql.Clear;
sql.Add('select A.* from BS_Cloth_Info_Sub A '); sql.Add('select A.* from BS_Cloth_Info_Sub A ');
sql.Add(' where A.BCIID=''' + Trim(FBCIID) + ''''); sql.Add(' where A.BCIID=''' + Trim(FBCIID) + '''');
sql.Add('order by dbo.getNum( C_ColorNo)'); 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; Open;
end; end;
SCreateCDS(ADOQueryTemp, CDS_1); SCreateCDS(ADOQueryTemp, CDS_1);
@ -185,7 +186,7 @@ begin
SCSHData(ADOQueryTemp, ScrollBox1, 2); SCSHData(ADOQueryTemp, ScrollBox1, 2);
StkPosition.Text := ADOQueryTemp.FieldByName('StkPosition').AsString; StkPosition.Text := ADOQueryTemp.FieldByName('StkPosition').AsString;
qtyunit.Text := ADOQueryTemp.FieldByName('qtyunit').AsString; qtyunit.Text := ADOQueryTemp.FieldByName('qtyunit').AsString;
// SCSHData(ADOQueryTemp, ScrollBox1, 0); // SCSHData(ADOQueryTemp, ScrollBox1, 0);
C_FromName.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('FromBCIID').AsString); //Å÷²¼±àºÅ C_FromName.Properties.LookupItems.Text := Trim(ADOQueryTemp.fieldbyname('FromBCIID').AsString); //Å÷²¼±àºÅ
C_FromName.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName').AsString); //Å÷²¼Ãû³Æ C_FromName.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName').AsString); //Å÷²¼Ãû³Æ
@ -413,7 +414,7 @@ begin
FieldByName('BCIID').Value := Trim(MaxBCIID); FieldByName('BCIID').Value := Trim(MaxBCIID);
FieldByName('StkPosition').Value := Trim(StkPosition.text); FieldByName('StkPosition').Value := Trim(StkPosition.text);
FieldByName('QTYUNIT').Value := Trim(QTYUNIT.text); FieldByName('QTYUNIT').Value := Trim(QTYUNIT.text);
if trim(C_Code.Text) = '' then if trim(C_Code.Text) = '' then
C_Code.Text := Trim(MaxBCIID); C_Code.Text := Trim(MaxBCIID);