From d90f6254577d23954801619b658f993954b1a62d Mon Sep 17 00:00:00 2001 From: "DESKTOP-E401PHE\\Administrator" Date: Fri, 9 Jan 2026 15:54:29 +0800 Subject: [PATCH] ~ --- 打卷检验管理/U_JYOrderCDOne.pas | 51 ++++++++++++++++-------- 打卷检验管理/U_MJManageNewFDNew.pas | 62 ++++++++++------------------- 2 files changed, 56 insertions(+), 57 deletions(-) diff --git a/打卷检验管理/U_JYOrderCDOne.pas b/打卷检验管理/U_JYOrderCDOne.pas index b08e392..9888769 100644 --- a/打卷检验管理/U_JYOrderCDOne.pas +++ b/打卷检验管理/U_JYOrderCDOne.pas @@ -12,19 +12,19 @@ uses RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI, cxCurrencyEdit, MMSystem, 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; + 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; type TfrmJYOrderCDOne = class(TForm) @@ -374,7 +374,7 @@ end; procedure TfrmJYOrderCDOne.TBCloseClick(Sender: TObject); begin Close; - WriteCxGrid('鱨JF', Tv1, ''); + WriteCxGrid('鱨JF', Tv1, ''); end; procedure TfrmJYOrderCDOne.InitGrid(); @@ -409,7 +409,7 @@ begin SCreateCDS20(ADOQueryMain, Order_Main); SInitCDSData20(ADOQueryMain, Order_Main); finally - ADOQueryMain.EnableControls; + ADOQueryMain.EnableControls; end; tbfind.Click; end; @@ -2173,7 +2173,7 @@ end; procedure TfrmJYOrderCDOne.Button13Click(Sender: TObject); var fPrintFile: string; - Txt, fImagePath: string; + Txt, fImagePath, Txt1, fImagePath1: string; Moudle: THandle; Makebar: TMakebar; Mixtext: TMixtext; @@ -2246,6 +2246,24 @@ begin sql.Add('@MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''' '); Open; end; + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt1 := Trim(ADOQueryPrint.fieldbyname('KHorderNo').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('PRTColor').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('MJLen').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('MJStr4').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('MJXH').AsString); + Txt1 := UTF8Encode(Txt1); + fImagePath1 := ExtractFilePath(Application.ExeName) + 'image\temp.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath1) then + DeleteFile(fImagePath1); + Makebar(pchar(Txt1), Length(Txt1), 3, 3, 0, PChar(fImagePath1), 3); + except + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + Order_Main.EnableControls; + exit; + end; + if Trim(ADOQueryPrint.fieldbyname('SLbName').AsString) <> '' then begin ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('SLbName').AsString), ADOQueryCmd); @@ -2271,6 +2289,7 @@ begin if FileExists(fPrintFile) then begin RMVariables['QRBARCODE'] := fImagePath; + RMVariables['QRBARCODE1'] := fImagePath1; if ComboBox2.Text = 'Ӣֶαǩ' then begin RM2.LoadFromFile(fPrintFile); diff --git a/打卷检验管理/U_MJManageNewFDNew.pas b/打卷检验管理/U_MJManageNewFDNew.pas index 69ea89a..85a5ada 100644 --- a/打卷检验管理/U_MJManageNewFDNew.pas +++ b/打卷检验管理/U_MJManageNewFDNew.pas @@ -337,9 +337,9 @@ type function SaveData(): Boolean; procedure BtnStatus(BSInt: Boolean); procedure AddSLNew(Fbtn: TSpeedButton); - procedure AddCDNew(Fbtn: TSpeedButton); + procedure AddCDNew(Fbtn: TSpeedButton); procedure SavedataCK(); - procedure PrtData(FMJID: string); + procedure PrtData(FMJID: string); procedure PrtBaoData(FBaoid: string); procedure OpenCom(DllName: string); procedure CloseCom(DllName: string); @@ -1760,7 +1760,7 @@ end; procedure TfrmMJManageNewFDNewSF.PrtData(FMJID: string); var fPrintFile: string; - Txt, fImagePath: string; + Txt, fImagePath, Txt1, fImagePath1: string; Moudle: THandle; Makebar: TMakebar; Mixtext: TMixtext; @@ -1808,6 +1808,23 @@ begin CDS_MJID.EnableControls; exit; end; + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt1 := Trim(ADOQueryPrint.fieldbyname('KHorderNo').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('PRTColor').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('MJLen').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('MJStr4').AsString) + '/' + Trim(ADOQueryPrint.fieldbyname('MJXH').AsString); + Txt1 := UTF8Encode(Txt1); + fImagePath1 := ExtractFilePath(Application.ExeName) + 'image\temp.bmp'; + if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then + CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil); + if FileExists(fImagePath1) then + DeleteFile(fImagePath1); + Makebar(pchar(Txt1), Length(Txt1), 3, 3, 0, PChar(fImagePath1), 3); + except + application.MessageBox('ʧܣ', 'ʾϢ', MB_ICONERROR); + CDS_MJID.EnableControls; + exit; + end; if Trim(ADOQueryPrint.fieldbyname('Slbname').AsString) <> '' then begin @@ -1831,48 +1848,11 @@ begin ExportFtErpFile('ͨñǩ.rmf', ADOCmd); end; -// if FileExists(fPrintFile) then -// begin -// RMVariables['QRBARCODE'] := fImagePath; -// RM2.LoadFromFile(fPrintFile); -// -// RM2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1); -// RM2.ShowReport; -// Sleep(1000); -//// RM2.PrintReport; -// if MggCDFalg = '99' then -// begin -// with ADOCmd do -// begin -// Close; -// sql.Clear; -// sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result,MainId) values( '); -// sql.Add(' ' + quotedstr(trim(DName))); -// sql.Add(',getdate() '); -// sql.Add(',' + quotedstr(trim(self.Caption))); -// sql.Add(',' + quotedstr(trim('ش'))); -// sql.Add(',' + quotedstr(trim(':' + trim(CDS_MJID.FieldByName('MJID').AsString) + ',' + trim(Label24.Caption) + ',' + trim(Label38.Caption) + ',' + trim(Label25.Caption) + ',׺ţ' + trim(CDS_MJID.FieldByName('mjstr4').AsString) + ',:' + trim(CDS_MJID.FieldByName('MJXH').AsString) + ',:' + trim(ComboBox1.Text)))); -// sql.Add(',' + quotedstr(trim('ɹ'))); -// sql.Add(',' + quotedstr(trim(FMainId))); -// sql.Add(')'); -// execsql; -// end; -// PlaySound('wav\شɹ.wav', 0, SND_FILENAME or SND_ASYNC); -// end; -// MggCDFalg := ''; -// end -// else -// begin -// MggCDFalg := ''; -// PlaySound('wav\ǩûҵ.wav', 0, SND_FILENAME or SND_ASYNC); -// Application.MessageBox('ǩûҵ볢µ¼пܱǩûϴ', 'ʾ', 0); -// end; - if FileExists(fPrintFile) then begin RMVariables['QRBARCODE'] := fImagePath; - + RMVariables['QRBARCODE1'] := fImagePath1; if Edit5.Text <> '' then begin RM3.LoadFromFile(fPrintFile);