Group_02/D7DJxiaoqiang
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

缸号保存方式修改

Browse Source
This commit is contained in:
DESKTOP-E401PHE\Administrator 2025-03-04 15:06:16 +08:00
parent 34ba31da19
commit 6af181dcac
5 changed files with 255 additions and 90 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
打卷检验管理/TradeManage.dof
View File

@ -101,7 +101,7 @@ DebugSourceDirs=
UsePackages=0 UsePackages=0
[Parameters] [Parameters]
RunParams= RunParams=
HostApplication=D:\陈亿项目代码\项目代码\小强\打卷检验管理\testDll.exe HostApplication=D:\Dp7Repo\项目代码\D7DJxiaoqiang\打卷检验管理\testDll.exe
Launcher= Launcher=
UseLauncher=0 UseLauncher=0
DebugCWD= DebugCWD=

71
打卷检验管理/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 = 92
AutoSize = True AutoSize = True
ButtonHeight = 30 ButtonHeight = 30
ButtonWidth = 119 ButtonWidth = 119
@ -110,34 +110,35 @@ 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 ToolButton11: TToolButton object ToolButton11: TToolButton
Left = 639 Left = 0
Top = 0 Top = 30
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 = 758 Left = 119
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 = 869 Left = 230
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 = 980 Left = 341
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
@ -145,16 +146,15 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton13Click OnClick = ToolButton13Click
end end
object ToolButton8: TToolButton object ToolButton8: TToolButton
Left = 1103 Left = 464
Top = 0 Top = 30
AutoSize = True AutoSize = True
Caption = #25209#37327#20462#25913#30382#37325 Caption = #25209#37327#20462#25913#30382#37325
ImageIndex = 54 ImageIndex = 54
Wrap = True
OnClick = ToolButton8Click OnClick = ToolButton8Click
end end
object ToolButton1: TToolButton object ToolButton1: TToolButton
Left = 0 Left = 575
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#26631#31614 Caption = #25171#21360#26631#31614
@ -162,7 +162,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton1Click OnClick = ToolButton1Click
end end
object TCPDB: TToolButton object TCPDB: TToolButton
Left = 87 Left = 662
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25104#21697#25171#21253 Caption = #25104#21697#25171#21253
@ -170,7 +170,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = TCPDBClick OnClick = TCPDBClick
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 174 Left = 749
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#21253#26631#31614 Caption = #25171#21360#21253#26631#31614
@ -178,24 +178,25 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnClick = ToolButton3Click OnClick = ToolButton3Click
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 273 Left = 848
Top = 30 Top = 30
AutoSize = True AutoSize = True
Caption = #25171#21360#26816#39564#25253#21578 Caption = #25171#21360#26816#39564#25253#21578
ImageIndex = 12 ImageIndex = 12
Wrap = True
OnClick = ToolButton2Click OnClick = ToolButton2Click
end end
object ToolButton5: TToolButton object ToolButton5: TToolButton
Left = 384 Left = 0
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = #25171#21360 Caption = #25171#21360
ImageIndex = 12 ImageIndex = 12
OnClick = ToolButton5Click OnClick = ToolButton5Click
end end
object Edit3: TEdit object Edit3: TEdit
Left = 447 Left = 63
Top = 30 Top = 60
Width = 68 Width = 68
Height = 30 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -209,8 +210,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
OnKeyPress = Edit3KeyPress OnKeyPress = Edit3KeyPress
end end
object ComboBox1: TComboBox object ComboBox1: TComboBox
Left = 515 Left = 131
Top = 33 Top = 63
Width = 149 Width = 149
Height = 24 Height = 24
Style = csDropDownList Style = csDropDownList
@ -234,8 +235,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
#26816#39564#30721#21333) #26816#39564#30721#21333)
end end
object Edit4: TEdit object Edit4: TEdit
Left = 664 Left = 280
Top = 30 Top = 60
Width = 121 Width = 121
Height = 30 Height = 30
Font.Charset = GB2312_CHARSET Font.Charset = GB2312_CHARSET
@ -248,32 +249,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
Visible = False Visible = False
end end
object ToolButton12: TToolButton object ToolButton12: TToolButton
Left = 785 Left = 401
Top = 30 Top = 60
Caption = #20462#25913#30721#21333 Caption = #20462#25913#30721#21333
ImageIndex = 54 ImageIndex = 54
Visible = False Visible = False
OnClick = ToolButton12Click OnClick = ToolButton12Click
end end
object ToolButton9: TToolButton object ToolButton9: TToolButton
Left = 904 Left = 520
Top = 30 Top = 60
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 = 991 Left = 607
Top = 30 Top = 60
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 = 1054 Left = 670
Top = 30 Top = 60
AutoSize = True AutoSize = True
Caption = #20851#38381 Caption = #20851#38381
ImageIndex = 55 ImageIndex = 55
@ -282,7 +283,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Top = 62 Top = 92
Width = 1384 Width = 1384
Height = 88 Height = 88
Align = alTop Align = alTop
@ -805,9 +806,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
end end
object cxGrid1: TcxGrid object cxGrid1: TcxGrid
Left = 0 Left = 0
Top = 150 Top = 180
Width = 1384 Width = 1384
Height = 568 Height = 538
Align = alClient Align = alClient
PopupMenu = PopupMenu1 PopupMenu = PopupMenu1
TabOrder = 3 TabOrder = 3

53
打卷检验管理/U_JYOrderCDOne.pas
View File

@ -12,19 +12,19 @@ uses
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI,
cxCurrencyEdit, MMSystem, dxSkinsCore, dxSkinBlack, dxSkinBlue, cxCurrencyEdit, MMSystem, dxSkinsCore, dxSkinBlack, dxSkinBlue,
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter; dxSkinscxPCPainter;
type type
TfrmJYOrderCDOne = class(TForm) TfrmJYOrderCDOne = class(TForm)
@ -439,10 +439,9 @@ begin
if Fieldbyname('ssel').AsBoolean then if Fieldbyname('ssel').AsBoolean then
begin begin
sumP := sumP + 1; sumP := sumP + 1;
sumLen := RoundFloat(sumLen + Order_Main.fieldbyname('mjlen').AsFloat, 2); sumLen := RoundFloat(sumLen + Order_Main.fieldbyname('mjlen').AsFloat, 2);
sumMZ := RoundFloat(sumMZ + Order_Main.fieldbyname('mjmaoz').AsFloat, 2); sumMZ := RoundFloat(sumMZ + Order_Main.fieldbyname('mjmaoz').AsFloat, 2);
sumJZ := RoundFloat(sumJZ + Order_Main.fieldbyname('mjqty4').AsFloat, 2) sumJZ := RoundFloat(sumJZ + Order_Main.fieldbyname('mjqty4').AsFloat, 2)// sumMZ := sumMZ + Order_Main.fieldbyname('mjmaoz').AsFloat;
// sumMZ := sumMZ + Order_Main.fieldbyname('mjmaoz').AsFloat;
// sumJZ := sumJZ + Order_Main.fieldbyname('mjqty4').AsFloat; // sumJZ := sumJZ + Order_Main.fieldbyname('mjqty4').AsFloat;
end; end;
@ -681,7 +680,7 @@ procedure TfrmJYOrderCDOne.TBZFClick(Sender: TObject);
begin begin
if Order_Main.Locate('ssel', True, []) = False then if Order_Main.Locate('ssel', True, []) = False then
begin begin
Application.MessageBox('没有选择数据!', '提示', 0); Application.MessageBox('没有选择数据!', '提示', 0);
Exit; Exit;
end; end;
if Application.MessageBox('确定要作废数据吗？作废后数据不能恢复。', '提示', 32 + 4) <> IDYES then if Application.MessageBox('确定要作废数据吗？作废后数据不能恢复。', '提示', 32 + 4) <> IDYES then
@ -1134,8 +1133,8 @@ begin
exit; exit;
end; end;
try try
Moudle := LoadLibrary('MakeQRBarcode.dll'); Moudle := LoadLibrary('MakeQRBarcode.dll');
@Makebar := GetProcAddress(Moudle, 'Make'); @Makebar := GetProcAddress(Moudle, 'Make');
@Mixtext := GetProcAddress(Moudle, 'MixText'); @Mixtext := GetProcAddress(Moudle, 'MixText');
Txt := Trim(Order_Main.fieldbyname('BaoID').AsString); Txt := Trim(Order_Main.fieldbyname('BaoID').AsString);
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp'; fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
@ -1157,6 +1156,8 @@ begin
sql.Add('PRTColor=DBO.F_Get_Order_SubStr(BaoID,''BNColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr1''),'); sql.Add('PRTColor=DBO.F_Get_Order_SubStr(BaoID,''BNColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr1''),');
sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(BaoID,''BNPRtHX''), '); sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(BaoID,''BNPRtHX''), ');
sql.Add('Mjstr4=DBO.F_Get_Order_SubStr(BaoID,''BNGangNo''), '); sql.Add('Mjstr4=DBO.F_Get_Order_SubStr(BaoID,''BNGangNo''), ');
sql.Add('MJFK=DBO.F_Get_Order_SubStr(BaoID,''BNMJFK''), ');
sql.Add('MJSJKZ=DBO.F_Get_Order_SubStr(BaoID,''BNMJSJKZ''), ');
sql.Add('BNMJLENLIST=DBO.F_Get_Order_SubStr(BaoID,''BNMJLENLIST''), '); sql.Add('BNMJLENLIST=DBO.F_Get_Order_SubStr(BaoID,''BNMJLENLIST''), ');
sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),'); sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),');
sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), '); sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), ');
@ -1177,7 +1178,7 @@ begin
else else
begin begin
ExportFtErpFile('通用包标签.rmf', ADOQueryCmd); ExportFtErpFile('通用包标签.rmf', ADOQueryCmd);
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\通用包标签.rmf'; fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\通用包标签.rmf';
end; end;
if FileExists(fPrintFile) then if FileExists(fPrintFile) then
@ -1437,7 +1438,7 @@ end;
procedure TfrmJYOrderCDOne.ToolButton5Click(Sender: TObject); procedure TfrmJYOrderCDOne.ToolButton5Click(Sender: TObject);
var var
fPrintFile, fPrintFile10, FMainID: string; fPrintFile, fPrintFile10, FMainID: string;
sqlStr: string; sqlStr: string;
begin begin
// if (ComboBox1.ItemIndex = 4) and (Edit3.Text = '') then // if (ComboBox1.ItemIndex = 4) and (Edit3.Text = '') then
// begin // begin
@ -1451,7 +1452,7 @@ begin
exit; exit;
if Order_Main.Locate('SSel', True, []) = False then if Order_Main.Locate('SSel', True, []) = False then
begin begin
Application.MessageBox('没有选择数据', '提示', 0); Application.MessageBox('没有选择数据', '提示', 0);
Exit; Exit;
end; end;
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + trim(ComboBox1.Text) + '.rmf'; fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + trim(ComboBox1.Text) + '.rmf';
@ -2280,7 +2281,7 @@ end;
procedure TfrmJYOrderCDOne.ToolButton14Click(Sender: TObject); procedure TfrmJYOrderCDOne.ToolButton14Click(Sender: TObject);
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
Exit; Exit;
if Order_Main.Locate('SSel', True, []) = False then if Order_Main.Locate('SSel', True, []) = False then
begin begin
@ -2324,7 +2325,7 @@ end;
procedure TfrmJYOrderCDOne.ToolButton15Click(Sender: TObject); procedure TfrmJYOrderCDOne.ToolButton15Click(Sender: TObject);
begin begin
if Order_Main.IsEmpty then if Order_Main.IsEmpty then
Exit; Exit;
if Order_Main.Locate('SSel', True, []) = False then if Order_Main.Locate('SSel', True, []) = False then
begin begin
@ -2345,7 +2346,7 @@ begin
begin begin
Close; Close;
sql.Clear; sql.Clear;
sql.Add('Update WFB_MJJY Set TCZT=''未挑出'' '); sql.Add('Update WFB_MJJY Set TCZT=''未挑出'' ');
sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''''); sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
ExecSQL; ExecSQL;
end; end;
@ -2361,7 +2362,7 @@ begin
except except
ADOQueryCmd.Connection.RollbackTrans; ADOQueryCmd.Connection.RollbackTrans;
Order_Main.EnableControls; Order_Main.EnableControls;
application.MessageBox('数据保存失败！', '提示信息', 0); application.MessageBox('数据保存失败！', '提示信息', 0);
end; end;
end; end;

148
打卷检验管理/U_MJManageNewFDNew.dfm
View File

@ -973,11 +973,12 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = SpeedButton13Click OnClick = SpeedButton13Click
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 344
Top = 276 Top = 332
Width = 369 Width = 369
Height = 285 Height = 285
TabOrder = 0 TabOrder = 0
Visible = False
object Button8: TButton object Button8: TButton
Left = 5 Left = 5
Top = 4 Top = 4
@ -1249,6 +1250,143 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
OnClick = Button26Click OnClick = Button26Click
end end
end end
object Panel4: TPanel
Left = 8
Top = 256
Width = 289
Height = 265
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
Visible = False
object SpeedButton21: TSpeedButton
Left = 5
Top = 173
Width = 69
Height = 72
Caption = 'G'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton30: TSpeedButton
Left = 96
Top = 173
Width = 70
Height = 72
Caption = 'H'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton39: TSpeedButton
Left = 187
Top = 173
Width = 70
Height = 72
Caption = 'I'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton44: TSpeedButton
Left = 5
Top = 90
Width = 69
Height = 72
Caption = 'D'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton48: TSpeedButton
Left = 96
Top = 90
Width = 70
Height = 72
Caption = 'E'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton58: TSpeedButton
Left = 187
Top = 90
Width = 70
Height = 72
Caption = 'F'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton67: TSpeedButton
Left = 5
Top = 6
Width = 69
Height = 72
Caption = 'A'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton76: TSpeedButton
Left = 96
Top = 6
Width = 70
Height = 72
Caption = 'B'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton83: TSpeedButton
Left = 187
Top = 6
Width = 70
Height = 72
Caption = 'C'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
end
end end
object Panel2: TPanel object Panel2: TPanel
Left = 428 Left = 428
@ -2413,7 +2551,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
end end
object Panel3: TPanel object Panel3: TPanel
Left = 638 Left = 638
Top = 328 Top = 326
Width = 353 Width = 353
Height = 334 Height = 334
BevelInner = bvRaised BevelInner = bvRaised
@ -3251,8 +3389,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
Enabled = False Enabled = False
Interval = 5000 Interval = 5000
OnTimer = Timer1Timer OnTimer = Timer1Timer
Left = 960 Left = 1000
Top = 576 Top = 472
end end
object ADOQueryPrint: TADOQuery object ADOQueryPrint: TADOQuery
Connection = DataLink_TradeManage.ADOLink Connection = DataLink_TradeManage.ADOLink

71
打卷检验管理/U_MJManageNewFDNew.pas
View File

@ -285,6 +285,16 @@ type
CC: TEdit; CC: TEdit;
Label54: TLabel; Label54: TLabel;
CZ: TEdit; CZ: TEdit;
Panel4: TPanel;
SpeedButton21: TSpeedButton;
SpeedButton30: TSpeedButton;
SpeedButton39: TSpeedButton;
SpeedButton44: TSpeedButton;
SpeedButton48: TSpeedButton;
SpeedButton58: TSpeedButton;
SpeedButton67: TSpeedButton;
SpeedButton76: TSpeedButton;
SpeedButton83: TSpeedButton;
procedure FormDestroy(Sender: TObject); procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject); procedure TBCloseClick(Sender: TObject);
@ -599,7 +609,7 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1); FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1);
FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1); FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1);
FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]); FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]);
@ -1278,7 +1288,7 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1); FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1);
FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1); FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1);
FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]); FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]);
@ -1957,7 +1967,7 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1); FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1);
FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1); FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1);
FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]); FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]);
@ -2636,7 +2646,7 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1); FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1);
FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1); FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1);
FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]); FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]);
@ -3315,7 +3325,7 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1); FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1);
FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1); FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1);
FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]); FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]);
@ -3994,7 +4004,7 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1); FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1);
FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1); FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1);
FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]); FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]);
@ -4673,7 +4683,7 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1); FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1);
FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1); FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1);
FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]); FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]);
@ -5352,7 +5362,7 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1); FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1);
FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1); FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1);
FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]); FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]);
@ -6031,7 +6041,7 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1); FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1);
FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1); FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1);
FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]); FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]);
@ -6710,7 +6720,7 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1); FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1);
FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1); FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1);
FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]); FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]);
@ -7389,7 +7399,7 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1); FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1);
FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1); FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1);
FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]); FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]);
@ -8068,7 +8078,7 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1); FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1);
FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1); FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1);
FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]); FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]);
@ -8747,7 +8757,7 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1); FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1);
FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1); FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1);
FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]); FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]);
@ -9426,7 +9436,7 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1); FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1);
FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1); FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1);
FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]); FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]);
@ -10105,7 +10115,7 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1); FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1);
FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1); FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1);
FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]); FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]);
@ -10784,7 +10794,7 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1); FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1);
FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1); FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1);
FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]); FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]);
@ -11463,7 +11473,7 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1); FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1);
FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1); FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1);
FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]); FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]);
@ -12142,7 +12152,7 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1); FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1);
FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1); FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1);
FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]); FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]);
@ -12667,6 +12677,8 @@ begin
sql.Add('KHORDERNO=DBO.F_Get_Order_SubStr(BaoID,''BNKHORDERNO''), '); sql.Add('KHORDERNO=DBO.F_Get_Order_SubStr(BaoID,''BNKHORDERNO''), ');
sql.Add('PRTCODENAME=DBO.F_Get_Order_SubStr(BaoID,''BNPRTCODENAME''), '); sql.Add('PRTCODENAME=DBO.F_Get_Order_SubStr(BaoID,''BNPRTCODENAME''), ');
sql.Add('MJXH=DBO.F_Get_Order_SubStr(BaoID,''BNMJXH''), '); sql.Add('MJXH=DBO.F_Get_Order_SubStr(BaoID,''BNMJXH''), ');
sql.Add('MJFK=DBO.F_Get_Order_SubStr(BaoID,''BNMJFK''), ');
sql.Add('MJSJKZ=DBO.F_Get_Order_SubStr(BaoID,''BNMJSJKZ''), ');
sql.Add('BNMJLENLIST=DBO.F_Get_Order_SubStr(BaoID,''BNMJLENLIST''), '); sql.Add('BNMJLENLIST=DBO.F_Get_Order_SubStr(BaoID,''BNMJLENLIST''), ');
sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),'); sql.Add('PRTkuanNo=DBO.F_Get_Order_SubStr(BaoID,''BNPrtkuanno''),');
sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), '); sql.Add('khConNo=(select top 1 khConNo from JYOrderCon_Main X where X.ConNO=D.conNO), ');
@ -13313,8 +13325,8 @@ begin
end end
else else
begin begin
maxno := Trim(FMJID); maxno := Trim(FMJID);
Edit; Edit;
end; end;
FieldByName('MainId').value := Trim(FMainId); FieldByName('MainId').value := Trim(FMainId);
FieldByName('SubId').value := Trim(FSubId); FieldByName('SubId').value := Trim(FSubId);
@ -13353,7 +13365,7 @@ begin
FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0); FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0); FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0); FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
// FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ; // FieldByName('MJQty4').Value := StrToFloatdef(trim(MJQty4.Text), 0) + fjZ;
FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1); FieldByName('CC').Value := StrToFloatdef(trim(CC.Text), 1);
FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1); FieldByName('CZ').Value := StrToFloatdef(trim(CZ.Text), 1);
FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]); FieldByName('MJQty4').Value := format('%.' + trim(fxsws1) + 'f', [StrToFloatdef(trim(MJQty4.Text), 0) * StrToFloatdef(trim(CZ.Text), 1) + fjZ]);
@ -14620,13 +14632,13 @@ end;
procedure TfrmMJManageNewFDNewSF.Label9Click(Sender: TObject); procedure TfrmMJManageNewFDNewSF.Label9Click(Sender: TObject);
begin begin
if trim(Label9.Caption) = 'M' then if trim(Label9.Caption) = 'M' then
begin begin
Label9.Caption := 'Y'; Label9.Caption := 'Y';
Label19.Caption := 'Y'; Label19.Caption := 'Y';
Label20.Caption := 'Y'; Label20.Caption := 'Y';
Label7.Caption := 'Y'; Label7.Caption := 'Y';
end end
else else
begin begin
Label9.Caption := 'M'; Label9.Caption := 'M';
@ -14879,6 +14891,17 @@ begin
end; end;
end; end;
end; end;
Panel4.Visible := True;
with Panel4 do
begin
for i := 0 to ControlCount - 1 do
begin
if Controls[i] is TSpeedButton then
begin
TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name);
end;
end;
end;
end; end;
procedure TfrmMJManageNewFDNewSF.MJLenChange(Sender: TObject); procedure TfrmMJManageNewFDNewSF.MJLenChange(Sender: TObject);
@ -15117,6 +15140,8 @@ begin
sql.Add('PRTColor=DBO.F_Get_Order_SubStr(BaoID,''BNColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr1''),'); sql.Add('PRTColor=DBO.F_Get_Order_SubStr(BaoID,''BNColor''),SOrddefstr1=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr1''),');
sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(BaoID,''BNPRtHX''), '); sql.Add('SOrddefstr4=DBO.F_Get_Order_SubStr(BaoID,''BNSOrddefstr4''),PRtHX=DBO.F_Get_Order_SubStr(BaoID,''BNPRtHX''), ');
sql.Add('Mjstr4=DBO.F_Get_Order_SubStr(BaoID,''BNGangNo''), '); sql.Add('Mjstr4=DBO.F_Get_Order_SubStr(BaoID,''BNGangNo''), ');
sql.Add('MJFK=DBO.F_Get_Order_SubStr(BaoID,''BNMJFK''), ');
sql.Add('MJSJKZ=DBO.F_Get_Order_SubStr(BaoID,''BNMJSJKZ''), ');
sql.Add('KHORDERNO=DBO.F_Get_Order_SubStr(BaoID,''BNKHORDERNO''), '); sql.Add('KHORDERNO=DBO.F_Get_Order_SubStr(BaoID,''BNKHORDERNO''), ');
sql.Add('PRTCODENAME=DBO.F_Get_Order_SubStr(BaoID,''BNPRTCODENAME''), '); sql.Add('PRTCODENAME=DBO.F_Get_Order_SubStr(BaoID,''BNPRTCODENAME''), ');
sql.Add('MJXH=DBO.F_Get_Order_SubStr(BaoID,''BNMJXH''), '); sql.Add('MJXH=DBO.F_Get_Order_SubStr(BaoID,''BNMJXH''), ');