From 92d3e38ed5e161c69b609da6e7c8e18c7d1c5c09 Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Mon, 28 Jul 2025 17:25:01 +0800 Subject: [PATCH] ~ --- 打卷检验管理/TradeManage.dof | 2 +- 打卷检验管理/U_DataLink.pas | 16 ++++++++- 打卷检验管理/U_MJManageNewFDNew.dfm | 15 +++++++- 打卷检验管理/U_MJManageNewFDNew.pas | 53 ++++++++++++++++++++--------- 4 files changed, 66 insertions(+), 20 deletions(-) diff --git a/打卷检验管理/TradeManage.dof b/打卷检验管理/TradeManage.dof index 28e8eca..4e851dd 100644 --- a/打卷检验管理/TradeManage.dof +++ b/打卷检验管理/TradeManage.dof @@ -101,7 +101,7 @@ DebugSourceDirs= UsePackages=0 [Parameters] RunParams= -HostApplication=D:\Ŀ\Ŀ\\\testDll.exe +HostApplication=D:\Dp7Repo\Ŀ\D7DJsanzhi\\testDll.exe Launcher= UseLauncher=0 DebugCWD= diff --git a/打卷检验管理/U_DataLink.pas b/打卷检验管理/U_DataLink.pas index e53b287..4c58cd6 100644 --- a/打卷检验管理/U_DataLink.pas +++ b/打卷检验管理/U_DataLink.pas @@ -4,7 +4,21 @@ interface uses SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels, - Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, ExtCtrls,SyncObjs; + Windows,Messages,forms,OleCtnrs,DateUtils, cxClasses, ExtCtrls,SyncObjs, + dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, + dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, + dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, + dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, + 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; type TMyThread = class(TThread) protected diff --git a/打卷检验管理/U_MJManageNewFDNew.dfm b/打卷检验管理/U_MJManageNewFDNew.dfm index 4d5c35f..15fdb94 100644 --- a/打卷检验管理/U_MJManageNewFDNew.dfm +++ b/打卷检验管理/U_MJManageNewFDNew.dfm @@ -117,6 +117,12 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Styles.Header = cxStyle5 Width = 100 end + object Tv3Column1: TcxGridDBColumn + Caption = #21253#26465#30721 + DataBinding.FieldName = 'baoid' + HeaderAlignmentHorz = taCenter + Width = 60 + end end object cxGridLevel2: TcxGridLevel GridView = Tv3 @@ -2282,7 +2288,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF Height = 30 AutoSize = True ButtonHeight = 30 - ButtonWidth = 105 + ButtonWidth = 135 Caption = 'ToolBar1' Color = clSkyBlue EdgeInner = esNone @@ -2447,6 +2453,13 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF ImageIndex = 55 OnClick = TBCloseClick end + object ToolButton1: TToolButton + Left = 958 + Top = 0 + Caption = #37325#25171#21253#26631#31614 + ImageIndex = 56 + OnClick = ToolButton1Click + end end object Panel6: TPanel Left = 0 diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas index a52ed6d..1920ce0 100644 --- a/打卷检验管理/U_MJManageNewFDNew.pas +++ b/打卷检验管理/U_MJManageNewFDNew.pas @@ -13,18 +13,17 @@ uses MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle, - dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, - dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, - dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, - 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; + dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, + dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, + dxSkinMcSkin, dxSkinMetropolis, 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; type TfrmMJManageNewFDNewSF = class(TForm) @@ -262,6 +261,8 @@ type RM3: TRMGridReport; Edit5: TEdit; Label43: TLabel; + ToolButton1: TToolButton; + Tv3Column1: TcxGridDBColumn; procedure FormDestroy(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure TBCloseClick(Sender: TObject); @@ -320,6 +321,7 @@ type procedure Timer1Timer(Sender: TObject); procedure TBCDClick(Sender: TObject); procedure Edit5Click(Sender: TObject); + procedure ToolButton1Click(Sender: TObject); private { Private declarations } FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer; @@ -785,12 +787,12 @@ begin // if Trim(CDS_MJCD.fieldbyname('MCID').AsString) = '' then // begin - if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then - Exit; - CDS_MJCD.Delete; + if Application.MessageBox('ȷҪɾ', 'ʾ', 32 + 4) <> IDYES then + Exit; + CDS_MJCD.Delete; // end; -end; +end; procedure TfrmMJManageNewFDNewSF.MJMaoZClick(Sender: TObject); begin @@ -1521,7 +1523,7 @@ begin end else - begin + begin with ADOCmd do begin Close; @@ -2990,5 +2992,22 @@ begin end; end; +procedure TfrmMJManageNewFDNewSF.ToolButton1Click(Sender: TObject); +var + fPrintFile: string; + i: Integer; +begin + if CDS_MJID.IsEmpty then + Exit; + MggCDFalg := '99'; + + PrtBaoData(Trim(CDS_MJID.fieldbyname('baoid').AsString)); + Label16.Caption := ''; + BTAdd.Click; + MJLen.SetFocus; + MJQty4.OnClick(MJQty4); + +end; + end.