diff --git a/检验管理/U_JYOrderCDOne.pas b/检验管理/U_JYOrderCDOne.pas index 77ed535..b6281ec 100644 --- a/检验管理/U_JYOrderCDOne.pas +++ b/检验管理/U_JYOrderCDOne.pas @@ -2,7 +2,7 @@ unit U_JYOrderCDOne; interface -uses +uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB, @@ -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) @@ -439,7 +439,7 @@ var begin ReadCxGrid('鱨JF', Tv1, ''); fsj := 'select distinct(Filler) name from WFB_MJJY '; - Strmd := 'select distinct(text) name,index1 from A_MaDan order by index1 '; + Strmd := 'select distinct(text) name,index1 from A_MaDan order by index1 '; SInitComBoxBySql(ADOQueryCmd, Filler, False, fsj); SInitComBoxBySql(ADOQueryCmd, ComboBox1, False, Strmd); BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 1; @@ -714,7 +714,7 @@ end; procedure TfrmJYOrderCDOne.ToolButton1Click(Sender: TObject); var fPrintFile: string; - Txt, fImagePath: string; + Txt, fImagePath,Txt1, fImagePath1: string; Moudle: THandle; Makebar: TMakebar; Mixtext: TMixtext; @@ -781,10 +781,27 @@ begin ExportFtErpFile('ͨñǩ.rmf', ADOQueryCmd); fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\ͨñǩ.rmf'; end; - + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt1 := Trim(ADOQueryPrint.fieldbyname('SOrddefstr4').AsString) + '000' + floatTostr(ADOQueryPrint.fieldbyname('Mjlen').AsFloat * 10); + Txt1 := UTF8Encode(Txt1); + fImagePath1 := ExtractFilePath(Application.ExeName) + 'image\temp1.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 FileExists(fPrintFile) then begin RMVariables['QRBARCODE'] := fImagePath; + RMVariables['QRBARCODE1'] := fImagePath1; RM2.LoadFromFile(fPrintFile); //RM2.ShowReport; RM2.PrintReport; @@ -1505,19 +1522,19 @@ begin sql.add(',@flag=''2'' '); Open; end; - with ADOQueryhx do + with ADOQueryhx do begin Close; sql.Clear; sql.add('exec P_Do_PrintMd_HZ '); - sql.add('@mainID=' + quotedstr(Trim(''))); - sql.add(',@DName=' + quotedstr(Trim(DCode))); + sql.add('@mainID=' + quotedstr(Trim(''))); + sql.add(',@DName=' + quotedstr(Trim(DCode))); sql.add(',@flag=''4'' '); // showmessage(sql.text); Open; end; end; - if (trim(ComboBox1.Text) = '뵥()') or (trim(ComboBox1.Text) = '׺ϸ뵥') then + if (trim(ComboBox1.Text) = '뵥()') or (trim(ComboBox1.Text) = '׺ϸ뵥') then begin with ADOQueryTemp do begin @@ -1569,7 +1586,7 @@ begin end; end; - if (trim(ComboBox1.Text) = '뵥') then + if (trim(ComboBox1.Text) = '뵥') or (trim(ComboBox1.Text) = '뵥()') then begin with ADOQueryTemp do begin @@ -1579,7 +1596,7 @@ begin sql.add('@DName=' + quotedstr(Trim(DCode))); Open; end; - SCreateCDS20(ADOQueryTemp, CDS_HZ); + SCreateCDS20(ADOQueryTemp, CDS_HZ); SInitCDSData20(ADOQueryTemp, CDS_HZ); with ADOQueryPrint do @@ -1619,7 +1636,7 @@ begin Open; end; end; - if (trim(ComboBox1.Text) = '뵥(ӡ)') then + if (trim(ComboBox1.Text) = '뵥(ӡ)') then begin with ADOQueryTemp do begin @@ -2032,7 +2049,7 @@ begin end; end; ADOQueryCmd.Connection.CommitTrans; - Order_Main.EnableControls; + Order_Main.EnableControls; application.MessageBox('ݱɹ', 'ʾϢ'); Panel11.Visible := false; TBRafresh.Click; diff --git a/检验管理/U_MJManageNewFDNew.pas b/检验管理/U_MJManageNewFDNew.pas index 2a7ad54..1fb0a4b 100644 --- a/检验管理/U_MJManageNewFDNew.pas +++ b/检验管理/U_MJManageNewFDNew.pas @@ -3,14 +3,27 @@ unit U_MJManageNewFDNew; interface uses - Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls,StrUtils, - Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, - cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, + Windows, Messages, SysUtils, Variants, math, Classes, Graphics, Controls, + StrUtils, Forms, Dialogs, StdCtrls, cxStyles, cxCustomData, cxGraphics, + cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxCalendar, cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, RM_Common, RM_Class, RM_GridReport, RM_System, RM_Dataset, ADODB, DBClient, cxGridCustomPopupMenu, cxGridPopupMenu, ExtCtrls, ComCtrls, ToolWin, cxTextEdit, Buttons, cxSplitter, cxCheckBox, - MovePanel, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, ShellAPI; + 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; type TfrmMJManageNewFDNewSF = class(TForm) @@ -1028,7 +1041,7 @@ begin if (FDC <> 0) and (Edit12.text <> '') then begin FieldByName('MJLen').Value := FDC; - end + end else begin // FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc; @@ -1081,7 +1094,7 @@ begin if trim(fbaotype) = 'ֶ' then begin FieldByName('baoNO').Value := Trim(baono.text); - FieldByName('baoID').Value := Trim(baoID.Text); + FieldByName('baoID').Value := Trim(baoID.Text); end; Post; @@ -1632,7 +1645,7 @@ begin end; if Trim(Edit6.Text) <> '' then - begin + begin with ADOTmp do begin Close; @@ -1751,11 +1764,11 @@ end; procedure TfrmMJManageNewFDNewSF.PrtData(FMJID: string); var fPrintFile: string; - Txt, fImagePath: string; + Txt, fImagePath, Txt1, fImagePath1: string; Moudle: THandle; Makebar: TMakebar; Mixtext: TMixtext; -begin +begin with ADOQueryPrint do begin @@ -1772,16 +1785,16 @@ begin end; try - Moudle := LoadLibrary('MakeQRBarcode.dll'); - @Makebar := GetProcAddress(Moudle, 'Make'); + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); @Mixtext := GetProcAddress(Moudle, 'MixText'); if length(Trim(ADOQueryPrint.fieldbyname('MJSTR4').AsString)) = 1 then begin - Txt := '013'+Trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'0000000'+Trim(ADOQueryPrint.fieldbyname('MJSTR4').AsString)+Rightstr('1000'+ADOQueryPrint.fieldbyname('MJXH').AsString,3); + Txt := '013' + Trim(ADOQueryPrint.fieldbyname('PRTColor').AsString) + '0000000' + Trim(ADOQueryPrint.fieldbyname('MJSTR4').AsString) + Rightstr('1000' + ADOQueryPrint.fieldbyname('MJXH').AsString, 3); end else begin - Txt := '013'+Trim(ADOQueryPrint.fieldbyname('PRTColor').AsString)+'000000'+Trim(ADOQueryPrint.fieldbyname('MJSTR4').AsString)+Rightstr('1000'+ADOQueryPrint.fieldbyname('MJXH').AsString,3); + Txt := '013' + Trim(ADOQueryPrint.fieldbyname('PRTColor').AsString) + '000000' + Trim(ADOQueryPrint.fieldbyname('MJSTR4').AsString) + Rightstr('1000' + ADOQueryPrint.fieldbyname('MJXH').AsString, 3); end; fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp'; if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then @@ -1794,7 +1807,23 @@ begin CDS_MJID.EnableControls; exit; end; - + try + Moudle := LoadLibrary('MakeQRBarcode.dll'); + @Makebar := GetProcAddress(Moudle, 'Make'); + @Mixtext := GetProcAddress(Moudle, 'MixText'); + Txt1 := Trim(ADOQueryPrint.fieldbyname('SOrddefstr4').AsString) + '000' + floatTostr(ADOQueryPrint.fieldbyname('Mjlen').AsFloat * 10); + Txt1 := UTF8Encode(Txt1); + fImagePath1 := ExtractFilePath(Application.ExeName) + 'image\temp1.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 fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(ADOQueryPrint.fieldbyname('Slbname').AsString); @@ -1809,6 +1838,7 @@ begin if FileExists(fPrintFile) then begin RMVariables['QRBARCODE'] := fImagePath; + RMVariables['QRBARCODE1'] := fImagePath1; RM2.LoadFromFile(fPrintFile); RM2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1);