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

~

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-09-11 16:22:39 +08:00
parent 15126d51fa
commit b3618ba9db
3 changed files with 59 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

91
复合检验管理/U_JYOrderCDOne.dfm
View File

@ -22,7 +22,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Left = 0 Left = 0
Top = 0 Top = 0
Width = 1384 Width = 1384
Height = 62 Height = 122
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 161 ButtonWidth = 161
@ -95,59 +95,60 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
AutoSize = True AutoSize = True
Caption = #25764#38144#20986#24211 Caption = #25764#38144#20986#24211
ImageIndex = 86 ImageIndex = 86
Wrap = True
OnClick = ToolButton7Click OnClick = ToolButton7Click
end end
object ToolButton15: TToolButton object ToolButton15: TToolButton
Left = 489 Left = 0
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25209#37327#20462#25913#23458#25143#21697#21517#39068#33394' ' Caption = #25209#37327#20462#25913#23458#25143#21697#21517#39068#33394' '
ImageIndex = 57 ImageIndex = 57
OnClick = ToolButton15Click OnClick = ToolButton15Click
end end
object ToolButton16: TToolButton object ToolButton16: TToolButton
Left = 654 Left = 165
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25209#37327#20462#25913#21333#20215 Caption = #25209#37327#20462#25913#21333#20215
ImageIndex = 54 ImageIndex = 54
OnClick = ToolButton16Click OnClick = ToolButton16Click
end end
object ToolButton17: TToolButton object ToolButton17: TToolButton
Left = 765 Left = 276
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25209#37327#20462#25913#32440#31649#34955#23376#21333#20215 Caption = #25209#37327#20462#25913#32440#31649#34955#23376#21333#20215
ImageIndex = 56 ImageIndex = 56
OnClick = ToolButton17Click OnClick = ToolButton17Click
end end
object ToolButton11: TToolButton object ToolButton11: TToolButton
Left = 924 Left = 435
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25209#37327#20462#25913#32568#21495 Caption = #25209#37327#20462#25913#32568#21495
ImageIndex = 54 ImageIndex = 54
OnClick = ToolButton11Click OnClick = ToolButton11Click
end end
object TBDW: TToolButton object TBDW: TToolButton
Left = 1035 Left = 546
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #20462#25913#25968#37327#21333#20301 Caption = #20462#25913#25968#37327#21333#20301
ImageIndex = 54 ImageIndex = 54
OnClick = TBDWClick OnClick = TBDWClick
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 1146 Left = 657
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25209#37327#35843#25972#31859#25968 Caption = #25209#37327#35843#25972#31859#25968
ImageIndex = 54 ImageIndex = 54
OnClick = ToolButton4Click OnClick = ToolButton4Click
end end
object ToolButton13: TToolButton object ToolButton13: TToolButton
Left = 1257 Left = 768
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
@ -157,7 +158,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 0 Left = 0
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = #25209#37327#20462#25913#30382#37325 Caption = #25209#37327#20462#25913#30382#37325
ImageIndex = 54 ImageIndex = 54
@ -165,7 +166,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object ToolButton14: TToolButton object ToolButton14: TToolButton
Left = 111 Left = 111
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = #25209#37327#20462#25913#31995#25968 Caption = #25209#37327#20462#25913#31995#25968
ImageIndex = 54 ImageIndex = 54
@ -173,7 +174,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 222 Left = 222
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = #25171#21360#26631#31614 Caption = #25171#21360#26631#31614
ImageIndex = 96 ImageIndex = 96
@ -181,7 +182,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object TCPDB: TToolButton object TCPDB: TToolButton
Left = 309 Left = 309
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = #25104#21697#25171#21253 Caption = #25104#21697#25171#21253
ImageIndex = 57 ImageIndex = 57
@ -190,7 +191,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 396 Left = 396
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = #25171#21360#21253#26631#31614 Caption = #25171#21360#21253#26631#31614
ImageIndex = 12 ImageIndex = 12
@ -199,16 +200,17 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 495 Left = 495
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = #25171#21360#26816#39564#25253#21578 Caption = #25171#21360#26816#39564#25253#21578
ImageIndex = 12 ImageIndex = 12
Wrap = True
Visible = False Visible = False
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object Edit3: TEdit object Edit3: TEdit
Left = 606 Left = 0
Top = 30 Top = 90
Width = 68 Width = 68
Height = 30 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -222,8 +224,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnKeyPress = Edit3KeyPress OnKeyPress = Edit3KeyPress
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 674 Left = 68
Top = 33 Top = 93
Width = 149 Width = 149
Height = 24 Height = 24
Style = csDropDownList Style = csDropDownList
@ -247,16 +249,16 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#26816#39564#30721#21333) #26816#39564#30721#21333)
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 823 Left = 217
Top = 30 Top = 90
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
ImageIndex = 12 ImageIndex = 12
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object Edit4: TEdit object Edit4: TEdit
Left = 886 Left = 280
Top = 30 Top = 90
Width = 121 Width = 121
Height = 30 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -269,8 +271,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Visible = False Visible = False
end end
object ToolButton12: TToolButton object ToolButton12: TToolButton
Left = 1007 Left = 401
Top = 30 Top = 90
AutoSize = True AutoSize = True
Caption = #20462#25913#30721#21333 Caption = #20462#25913#30721#21333
ImageIndex = 54 ImageIndex = 54
@ -278,24 +280,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton12Click OnClick = ToolButton12Click
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 1094 Left = 488
Top = 30 Top = 90
AutoSize = True AutoSize = True
Caption = #24322#24120#25968#25454 Caption = #24322#24120#25968#25454
ImageIndex = 2 ImageIndex = 2
OnClick = ToolButton9Click OnClick = ToolButton9Click
end end
object TBExport: TToolButton object TBExport: TToolButton
Left = 1181 Left = 575
Top = 30 Top = 90
AutoSize = True AutoSize = True
Caption = #23548#20986 Caption = #23548#20986
ImageIndex = 75 ImageIndex = 75
OnClick = TBExportClick OnClick = TBExportClick
end end
object TBClose: TToolButton object TBClose: TToolButton
Left = 1244 Left = 638
Top = 30 Top = 90
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 55 ImageIndex = 55
@ -304,7 +306,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 122
Width = 1384 Width = 1384
Height = 88 Height = 88
Align = alTop Align = alTop
@ -871,9 +873,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 173 Top = 233
Width = 1384 Width = 1384
Height = 545 Height = 485
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3
@ -1252,6 +1254,13 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
HeaderAlignmentHorz = taCenter HeaderAlignmentHorz = taCenter
Width = 60 Width = 60
end end
object Tv1Column11: TcxGridDBColumn
Caption = #21462#25972#31859#25968
DataBinding.FieldName = 'QZMJLen'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 20
end
end end
object cxGrid1Level1: TcxGridLevel object cxGrid1Level1: TcxGridLevel
GridView = Tv1 GridView = Tv1
@ -2091,7 +2100,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object cxTabControl1: TcxTabControl object cxTabControl1: TcxTabControl
Left = 0 Left = 0
Top = 150 Top = 210
Width = 1384 Width = 1384
Height = 23 Height = 23
Align = alTop Align = alTop

5
复合检验管理/U_JYOrderCDOne.pas
View File

@ -280,6 +280,7 @@ type
RMDB_3: TRMDBDataSet; RMDB_3: TRMDBDataSet;
RM33: TRMGridReport; RM33: TRMGridReport;
Edit7: TEdit; Edit7: TEdit;
Tv1Column11: TcxGridDBColumn;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
@ -1728,12 +1729,12 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.add('exec P_Do_PrintMd_HZ '); sql.add('exec P_Do_PrintMd_HZ ');
sql.add('@mainID=' + quotedstr(Trim(''))); sql.add('@mainID=' + quotedstr(Trim('')));
sql.add(',@DName=' + quotedstr(Trim(DCode))); sql.add(',@DName=' + quotedstr(Trim(DCode)));
sql.add(',@flag=''13'' '); sql.add(',@flag=''13'' ');
Open; Open;
end; end;
end; end;
if (trim(ComboBox1.Text) = '쇱駱쯤데') or (trim(ComboBox1.Text) = '코饋쯤데(혤憐)') or (trim(ComboBox1.Text) = '코饋쯤데') then if (trim(ComboBox1.Text) = '쇱駱쯤데') or (trim(ComboBox1.Text) = '코饋쯤데(혤憐)') or (trim(ComboBox1.Text) = '코饋쯤데') then
begin begin

9
复合检验管理/U_MJManageNewFDNew.pas
View File

@ -645,7 +645,7 @@ begin
i1 := Message.WParam; i1 := Message.WParam;
i2 := Message.LParam; i2 := Message.LParam;
if IsJsMessage then if IsJsMessage then
begin begin
if trim(Edit9.Text) = '¡Ì' then if trim(Edit9.Text) = '¡Ì' then
begin begin
// MJMaoZ.Text := format('%.3f', [i1 / 100000]); // MJMaoZ.Text := format('%.3f', [i1 / 100000]);
@ -1292,15 +1292,18 @@ begin
begin begin
FieldByName('MJLen').value := FDC; FieldByName('MJLen').value := FDC;
end end
else else
begin begin
if StrToFloatdef(trim(mbxs.Text), 1) > 0 then if StrToFloatdef(trim(mbxs.Text), 1) > 0 then
begin begin
FieldByName('MJLen').value := format('%.' + trim(fxsws) + 'f', [(StrToFloatdef(trim(MJLen.Text), 0) / StrToFloatdef(trim(mbxs.Text), 1)) + StrToFloatdef(trim(MJQty2.Text), 0) + fjc]); FieldByName('MJLen').value := format('%.' + trim(fxsws) + 'f', [(StrToFloatdef(trim(MJLen.Text), 0) / StrToFloatdef(trim(mbxs.Text), 1)) + StrToFloatdef(trim(MJQty2.Text), 0) + fjc]);
FieldByName('QZMJLen').value := format('%.0f', [(StrToFloatdef(trim(MJLen.Text), 0) / StrToFloatdef(trim(mbxs.Text), 1)) + StrToFloatdef(trim(MJQty2.Text), 0) + fjc]);
end end
else else
begin begin
FieldByName('MJLen').value := format('%.' + trim(fxsws) + 'f', [(StrToFloatdef(trim(MJLen.Text), 0)) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc]); FieldByName('MJLen').value := format('%.' + trim(fxsws) + 'f', [(StrToFloatdef(trim(MJLen.Text), 0)) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc]);
FieldByName('QZMJLen').value := format('%.0f', [(StrToFloatdef(trim(MJLen.Text), 0)) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc]);
// FieldByName('Sjcd').Value := format('%.' + trim(fxsws) + 'f', [(StrToFloatdef(trim(MJLen.Text), 0)) - StrToFloatdef(trim(MJQty2.Text), 0)]); // FieldByName('Sjcd').Value := format('%.' + trim(fxsws) + 'f', [(StrToFloatdef(trim(MJLen.Text), 0)) - StrToFloatdef(trim(MJQty2.Text), 0)]);
end; end;
// FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen1.Text), 0) + StrToFloatdef(trim(MJQty2.Text), 0) + fjc; // FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen1.Text), 0) + StrToFloatdef(trim(MJQty2.Text), 0) + fjc;