Group_99/D7DJlianke
6
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-11-04 16:48:36 +08:00
parent ae5ee60abc
commit b7dd395200
4 changed files with 42 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
检验管理英文版/U_JYOrderCDOne.dfm
View File

@ -22,7 +22,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1465 Width = 1465
Height = 62 Height = 92
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 173 ButtonWidth = 173
@ -102,27 +102,28 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
AutoSize = True AutoSize = True
Caption = 'Modify lot NO' Caption = 'Modify lot NO'
ImageIndex = 54 ImageIndex = 54
Wrap = True
OnClick = ToolButton11Click OnClick = ToolButton11Click
end end
object TBDW: TToolButton object TBDW: TToolButton
Left = 714 Left = 0
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = 'Modify unit' Caption = 'Modify unit'
ImageIndex = 54 ImageIndex = 54
OnClick = TBDWClick OnClick = TBDWClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 819 Left = 105
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = 'Modify length' Caption = 'Modify length'
ImageIndex = 54 ImageIndex = 54
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton13: TToolButton object ToolButton13: TToolButton
Left = 936 Left = 222
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25209#37327#20928#37325#36716#38271#24230 Caption = #25209#37327#20928#37325#36716#38271#24230
ImageIndex = 54 ImageIndex = 54
@ -130,24 +131,23 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton13Click OnClick = ToolButton13Click
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 1059 Left = 345
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = 'Modify tare' Caption = 'Modify tare'
ImageIndex = 54 ImageIndex = 54
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 1164 Left = 450
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = 'Print label' Caption = 'Print label'
ImageIndex = 96 ImageIndex = 96
Wrap = True
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TCPDB: TToolButton object TCPDB: TToolButton
Left = 0 Left = 555
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = 'Fabric packing' Caption = 'Fabric packing'
@ -156,7 +156,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TCPDBClick OnClick = TCPDBClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 123 Left = 678
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = 'Print package label' Caption = 'Print package label'
@ -165,24 +165,25 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 276 Left = 831
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = 'Print inspection report' Caption = 'Print inspection report'
ImageIndex = 12 ImageIndex = 12
Wrap = True
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 453 Left = 0
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = 'Print' Caption = 'Print'
ImageIndex = 12 ImageIndex = 12
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object Edit3: TEdit object Edit3: TEdit
Left = 522 Left = 69
Top = 30 Top = 60
Width = 68 Width = 68
Height = 30 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -196,8 +197,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnKeyPress = Edit3KeyPress OnKeyPress = Edit3KeyPress
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 590 Left = 137
Top = 33 Top = 63
Width = 315 Width = 315
Height = 24 Height = 24
Style = csDropDownList Style = csDropDownList
@ -221,8 +222,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#26816#39564#30721#21333) #26816#39564#30721#21333)
end end
object Edit4: TEdit object Edit4: TEdit
Left = 905 Left = 452
Top = 30 Top = 60
Width = 121 Width = 121
Height = 30 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -235,8 +236,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Visible = False Visible = False
end end
object ToolButton12: TToolButton object ToolButton12: TToolButton
Left = 1026 Left = 573
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = #20462#25913#30721#21333 Caption = #20462#25913#30721#21333
ImageIndex = 54 ImageIndex = 54
@ -244,24 +245,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton12Click OnClick = ToolButton12Click
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 1113 Left = 660
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = 'Abnormal data' Caption = 'Abnormal data'
ImageIndex = 2 ImageIndex = 2
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 1230 Left = 777
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = 'Export' Caption = 'Export'
ImageIndex = 75 ImageIndex = 75
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1305 Left = 852
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = 'Close' Caption = 'Close'
ImageIndex = 55 ImageIndex = 55
@ -270,7 +271,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 92
Width = 1465 Width = 1465
Height = 88 Height = 88
Align = alTop Align = alTop
@ -785,9 +786,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 150 Top = 180
Width = 1465 Width = 1465
Height = 496 Height = 466
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3

4
检验管理英文版/U_JYOrderCDOne.pas
View File

@ -378,7 +378,7 @@ procedure TfrmJYOrderCDOne.InitGrid();
var var
i: integer; i: integer;
j: Integer; j: Integer;
begin begin
try try
ADOQueryMain.DisableControls; ADOQueryMain.DisableControls;
with ADOQueryMain do with ADOQueryMain do
@ -386,7 +386,7 @@ begin
Close; Close;
Filtered := False; Filtered := False;
sql.Clear; sql.Clear;
sql.Add('select A.*,'); sql.Add('select A.dingdanhao as orderno,A.*,');
SQL.Add('cast(A.MJSTR4 as varchar(20)) as gangno,'); SQL.Add('cast(A.MJSTR4 as varchar(20)) as gangno,');
sql.Add('C.OrderNo,C.MPRTCodeName,C.MPRTMF,C.MPRTKZ,B.*,'); sql.Add('C.OrderNo,C.MPRTCodeName,C.MPRTMF,C.MPRTKZ,B.*,');
sql.Add('KouFenQty=(select Sum(X.KouFenQty) from WFB_MJJY_CD X where X.MJID=A.MJID),'); sql.Add('KouFenQty=(select Sum(X.KouFenQty) from WFB_MJJY_CD X where X.MJID=A.MJID),');

3
检验管理英文版/U_MJManageNewFDNew.dfm
View File

@ -1070,7 +1070,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Font.Name = #23435#20307 Font.Name = #23435#20307
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
Visible = False
end end
object Label10: TLabel object Label10: TLabel
Left = 16 Left = 16
@ -1519,7 +1518,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Left = 57 Left = 57
Top = 243 Top = 243
Width = 91 Width = 91
Height = 34 Height = 36
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -28 Font.Height = -28

6
检验管理英文版/U_MJManageNewFDNew.pas
View File

@ -1065,7 +1065,9 @@ begin
// FieldByName('BaoNO').Value := Trim(BaoNO.Text); // FieldByName('BaoNO').Value := Trim(BaoNO.Text);
FieldByName('MJTypeOther').Value := Trim(Label9.Caption); FieldByName('MJTypeOther').Value := Trim(Label9.Caption);
FieldByName('MJStr1').Value := Trim(Label13.Caption); FieldByName('MJStr1').Value := Trim(Label13.Caption);
FieldByName('dingdanhao').Value := Trim(dingdanhao.Text);
FieldByName('shift').Value := Trim(shift.Text);
FieldByName('Loom').Value := Trim(Loom.Text);
FieldByName('PM').Value := Trim(PM.Text); FieldByName('PM').Value := Trim(PM.Text);
FieldByName('KH').Value := Trim(KH.Text); FieldByName('KH').Value := Trim(KH.Text);
FieldByName('YS').Value := Trim(YS.Text); FieldByName('YS').Value := Trim(YS.Text);
@ -1098,7 +1100,7 @@ begin
begin begin
FieldByName('MJFK').Value := MJFK.Text; FieldByName('MJFK').Value := MJFK.Text;
end; end;
if Trim(MJMaoZ.Text) <> '' then if Trim(MJMaoZ.Text) <> '' then
begin begin
FieldByName('MJMaoZ').Value := StrToFloat(MJMaoZ.Text) + fjz; FieldByName('MJMaoZ').Value := StrToFloat(MJMaoZ.Text) + fjz;
end; end;