From 26b695f66f8a7707f6ccd3f89a83a22f1f0a1a63 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Mon, 24 Mar 2025 15:42:47 +0800 Subject: [PATCH] 1 --- 云翔生产管理(MYSC.dll)/MYSC.dof | 2 +- 云翔生产管理(MYSC.dll)/U_ZHCPInPut.dfm | 8 ++--- 云翔生产管理(MYSC.dll)/U_ZHCPInPut.pas | 48 +++++++++++++------------- 云翔生产管理(MYSC.dll)/U_ZHDJInPut.dfm | 24 ++++++------- 云翔生产管理(MYSC.dll)/U_ZHDJInPut.pas | 16 ++++----- 5 files changed, 49 insertions(+), 49 deletions(-) diff --git a/云翔生产管理(MYSC.dll)/MYSC.dof b/云翔生产管理(MYSC.dll)/MYSC.dof index 7451bc4..c137137 100644 --- a/云翔生产管理(MYSC.dll)/MYSC.dof +++ b/云翔生产管理(MYSC.dll)/MYSC.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\ֿ\Ŀ\\(MYSC.dll)\testDll.exe +HostApplication=D:\ֿ\Ŀ\D7WMyunxiang\(MYSC.dll)\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/云翔生产管理(MYSC.dll)/U_ZHCPInPut.dfm b/云翔生产管理(MYSC.dll)/U_ZHCPInPut.dfm index 8f0c909..05e9170 100644 --- a/云翔生产管理(MYSC.dll)/U_ZHCPInPut.dfm +++ b/云翔生产管理(MYSC.dll)/U_ZHCPInPut.dfm @@ -20,7 +20,7 @@ object frmZHCPInPut: TfrmZHCPInPut object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1415 + Width = 1423 Height = 30 ButtonHeight = 30 ButtonWidth = 79 @@ -81,8 +81,8 @@ object frmZHCPInPut: TfrmZHCPInPut object Panel3: TPanel Left = 0 Top = 30 - Width = 1415 - Height = 701 + Width = 1423 + Height = 709 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered @@ -383,7 +383,7 @@ object frmZHCPInPut: TfrmZHCPInPut object Panel5: TPanel Left = 2 Top = 2 - Width = 1411 + Width = 1419 Height = 38 Align = alTop TabOrder = 1 diff --git a/云翔生产管理(MYSC.dll)/U_ZHCPInPut.pas b/云翔生产管理(MYSC.dll)/U_ZHCPInPut.pas index 09536b8..d8324f8 100644 --- a/云翔生产管理(MYSC.dll)/U_ZHCPInPut.pas +++ b/云翔生产管理(MYSC.dll)/U_ZHCPInPut.pas @@ -145,7 +145,7 @@ type var frmZHCPInPut: TfrmZHCPInPut; -implementation +implementation //ZH_KH_DJ uses U_DataLink, U_ZDYHelp, U_RTFun, U_ZHCPBigTP, U_ZdyAttachCP_HX, U_MLMangeRSSel, @@ -163,29 +163,29 @@ begin FDate := SGetServerDate(ADOTemp); try // ADOCmd.Connection.BeginTrans; - if GetLSNoHZ(ADOCmd, BJmaxno, 'ZD', 'ZH_KH_DJ', 3, 1, 1) = False then - begin - ADOCmd.Connection.RollbackTrans; - Application.MessageBox('ȡʧ!', 'ʾ', 0); - Exit; - end; - with ADOCmd do - begin - Close; - sql.Clear; - SQL.Add('select * from ZH_KH_DJ where ZDId=''' + Trim(BJmaxno) + ''''); - Open; - end; - with ADOCmd do - begin - Append; - FieldByName('ZDId').Value := Trim(BJmaxno); - FieldByName('Filler').Value := Trim(DName); - FieldByName('FillerCode').Value := Trim(DCode); - FieldByName('Valid').Value := 'Y'; - FieldByName('ZDDate').Value := FDate; - Post; - end; +// if GetLSNoHZ(ADOCmd, BJmaxno, 'ZD', 'ZH_KH_DJ', 3, 1, 1) = False then +// begin +// ADOCmd.Connection.RollbackTrans; +// Application.MessageBox('ȡʧ!', 'ʾ', 0); +// Exit; +// end; +// with ADOCmd do +// begin +// Close; +// sql.Clear; +// SQL.Add('select * from ZH_KH_DJ where ZDId=''' + Trim(BJmaxno) + ''''); +// Open; +// end; +// with ADOCmd do +// begin +// Append; +// FieldByName('ZDId').Value := Trim(BJmaxno); +// FieldByName('Filler').Value := Trim(DName); +// FieldByName('FillerCode').Value := Trim(DCode); +// FieldByName('Valid').Value := 'Y'; +// FieldByName('ZDDate').Value := FDate; +// Post; +// end; if GetLSNo(ADOCmd, BJmaxmxno, 'ZC', 'ZH_KH_DJ_CP', 4, 1) = False then begin // Order_Sub.EnableControls; diff --git a/云翔生产管理(MYSC.dll)/U_ZHDJInPut.dfm b/云翔生产管理(MYSC.dll)/U_ZHDJInPut.dfm index 6d1d910..bad86ea 100644 --- a/云翔生产管理(MYSC.dll)/U_ZHDJInPut.dfm +++ b/云翔生产管理(MYSC.dll)/U_ZHDJInPut.dfm @@ -20,7 +20,7 @@ object frmZHDJInPut: TfrmZHDJInPut object ToolBar1: TToolBar Left = 0 Top = 0 - Width = 1328 + Width = 1336 Height = 30 ButtonHeight = 30 ButtonWidth = 123 @@ -135,8 +135,8 @@ object frmZHDJInPut: TfrmZHDJInPut object Panel3: TPanel Left = 0 Top = 30 - Width = 1328 - Height = 628 + Width = 1336 + Height = 636 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered @@ -144,7 +144,7 @@ object frmZHDJInPut: TfrmZHDJInPut object Panel5: TPanel Left = 2 Top = 2 - Width = 1324 + Width = 1332 Height = 107 Align = alTop TabOrder = 0 @@ -175,7 +175,7 @@ object frmZHDJInPut: TfrmZHDJInPut ParentFont = False end object Label5: TLabel - Left = 885 + Left = 893 Top = 1 Width = 16 Height = 105 @@ -215,7 +215,7 @@ object frmZHDJInPut: TfrmZHDJInPut ParentFont = False end object Label7: TLabel - Left = 654 + Left = 662 Top = 1 Width = 16 Height = 105 @@ -242,7 +242,7 @@ object frmZHDJInPut: TfrmZHDJInPut ParentFont = False end object Panel66: TPanel - Left = 1067 + Left = 1075 Top = 1 Width = 179 Height = 105 @@ -260,7 +260,7 @@ object frmZHDJInPut: TfrmZHDJInPut end end object Panel2: TPanel - Left = 1246 + Left = 1254 Top = 1 Width = 77 Height = 105 @@ -324,7 +324,7 @@ object frmZHDJInPut: TfrmZHDJInPut end object Note: TMemo Tag = 2 - Left = 901 + Left = 909 Top = 1 Width = 166 Height = 105 @@ -472,7 +472,7 @@ object frmZHDJInPut: TfrmZHDJInPut end object KHGY: TMemo Tag = 9 - Left = 670 + Left = 678 Top = 1 Width = 215 Height = 105 @@ -490,8 +490,8 @@ object frmZHDJInPut: TfrmZHDJInPut object cxGrid1: TcxGrid Left = 2 Top = 109 - Width = 1324 - Height = 517 + Width = 1332 + Height = 525 Align = alClient PopupMenu = PopupMenu1 TabOrder = 1 diff --git a/云翔生产管理(MYSC.dll)/U_ZHDJInPut.pas b/云翔生产管理(MYSC.dll)/U_ZHDJInPut.pas index a23a47b..c6d937f 100644 --- a/云翔生产管理(MYSC.dll)/U_ZHDJInPut.pas +++ b/云翔生产管理(MYSC.dll)/U_ZHDJInPut.pas @@ -21,12 +21,12 @@ uses dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue, - dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, - dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, - dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, - dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, - dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine, - dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter; + dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, + dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, + dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, + dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, + dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, + dxSkinscxPCPainter; type TfrmZHDJInPut = class(TForm) @@ -196,7 +196,7 @@ begin Open; end; SCSHDataNew(ADOQuery1, Panel5, 2); - SCSHDataNew(ADOQuery1, Panel9, 2); + SCSHDataNew(ADOQuery1, Panel9, 2); with ADOTemp do begin Close; @@ -688,7 +688,7 @@ begin Result := False; Panel1.Visible := False; ADOCmd.Connection.RollbackTrans; - Application.MessageBox('ʧܣ', 'ʾ', 0); + application.MessageBox(PChar(Exception(ExceptObject).Message), 'ʾϢ', 0); end; end;