`

2025-12-06 17:11:18 +08:00 · 2025-12-06 17:11:18 +08:00 · f408dc207b
commit f408dc207b
parent b8f1f778f8
6 changed files with 164 additions and 86 deletions
--- a/打卷检验管理/TradeManage.dof
+++ b/打卷检验管理/TradeManage.dof
@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\陈亿项目代码\项目代码\众连\打卷检验管理\testDll.exe
+HostApplication=D:\Dp7Repo\项目代码\D7DJzhonglian\打卷检验管理\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=
--- a/打卷检验管理/TradeManage.dpr
+++ b/打卷检验管理/TradeManage.dpr
@ -3,7 +3,7 @@ uses
  SysUtils,
  classes,
  forms,
-  WinTypes,
+  WinTypes,                
  WinProcs,
  U_DataLink in 'U_DataLink.pas' {DataLink_TradeManage: TDataModule},
  U_GetDllForm in 'U_GetDllForm.pas',                                                                   
--- a/打卷检验管理/TradeManage.skincfg
+++ b/打卷检验管理/TradeManage.skincfg
@ -0,0 +1,50 @@
+[ExpressSkins]
+Default=1
+ShowNotifications=1
+Enabled=1
+dxSkinBlack=1
+dxSkinBlue=1
+dxSkinBlueprint=1
+dxSkinCaramel=1
+dxSkinCoffee=1
+dxSkinDarkRoom=1
+dxSkinDarkSide=1
+dxSkinDevExpressDarkStyle=1
+dxSkinDevExpressStyle=1
+dxSkinFoggy=1
+dxSkinGlassOceans=1
+dxSkinHighContrast=1
+dxSkiniMaginary=1
+dxSkinLilian=1
+dxSkinLiquidSky=1
+dxSkinLondonLiquidSky=1
+dxSkinMcSkin=1
+dxSkinMetropolis=1
+dxSkinMetropolisDark=1
+dxSkinMoneyTwins=1
+dxSkinOffice2007Black=1
+dxSkinOffice2007Blue=1
+dxSkinOffice2007Green=1
+dxSkinOffice2007Pink=1
+dxSkinOffice2007Silver=1
+dxSkinOffice2010Black=1
+dxSkinOffice2010Blue=1
+dxSkinOffice2010Silver=1
+dxSkinOffice2013DarkGray=1
+dxSkinOffice2013LightGray=1
+dxSkinOffice2013White=1
+dxSkinPumpkin=1
+dxSkinSeven=1
+dxSkinSevenClassic=1
+dxSkinSharp=1
+dxSkinSharpPlus=1
+dxSkinSilver=1
+dxSkinSpringTime=1
+dxSkinStardust=1
+dxSkinSummer2008=1
+dxSkinTheAsphaltWorld=1
+dxSkinsDefaultPainters=1
+dxSkinValentine=1
+dxSkinVS2010=1
+dxSkinWhiteprint=1
+dxSkinXmas2008Blue=1
--- a/打卷检验管理/U_JYOrderCDOne.dfm
+++ b/打卷检验管理/U_JYOrderCDOne.dfm
@ -22,7 +22,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
    Left = 0
    Top = 0
    Width = 1384
-    Height = 62
+    Height = 92
    AutoSize = True
    ButtonHeight = 30
    ButtonWidth = 119
@ -101,27 +101,28 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
      Top = 0
      Caption = #25209#37327#20462#25913#32568#21495
      ImageIndex = 54
+      Wrap = True
      OnClick = ToolButton11Click
    end
    object TBDW: TToolButton
-      Left = 608
-      Top = 0
+      Left = 0
+      Top = 30
      AutoSize = True
      Caption = #20462#25913#25968#37327#21333#20301
      ImageIndex = 54
      OnClick = TBDWClick
    end
    object ToolButton4: TToolButton
-      Left = 719
-      Top = 0
+      Left = 111
+      Top = 30
      AutoSize = True
      Caption = #25209#37327#35843#25972#31859#25968
      ImageIndex = 54
      OnClick = ToolButton4Click
    end
    object ToolButton13: TToolButton
-      Left = 830
-      Top = 0
+      Left = 222
+      Top = 30
      AutoSize = True
      Caption = #25209#37327#20928#37325#36716#38271#24230
      ImageIndex = 54
@ -129,16 +130,15 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
      OnClick = ToolButton13Click
    end
    object ToolButton8: TToolButton
-      Left = 953
-      Top = 0
+      Left = 345
+      Top = 30
      AutoSize = True
      Caption = #25209#37327#20462#25913#30382#37325
      ImageIndex = 54
-      Wrap = True
      OnClick = ToolButton8Click
    end
    object ToolButton1: TToolButton
-      Left = 0
+      Left = 456
      Top = 30
      AutoSize = True
      Caption = #25171#21360#26631#31614
@ -146,7 +146,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
      OnClick = ToolButton1Click
    end
    object TCPDB: TToolButton
-      Left = 87
+      Left = 543
      Top = 30
      AutoSize = True
      Caption = #25104#21697#25171#21253
@ -154,7 +154,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
      OnClick = TCPDBClick
    end
    object ToolButton3: TToolButton
-      Left = 174
+      Left = 630
      Top = 30
      AutoSize = True
      Caption = #25171#21360#21253#26631#31614
@ -163,24 +163,25 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
      OnClick = ToolButton3Click
    end
    object ToolButton2: TToolButton
-      Left = 273
+      Left = 729
      Top = 30
      AutoSize = True
      Caption = #25171#21360#26816#39564#25253#21578
      ImageIndex = 12
+      Wrap = True
      OnClick = ToolButton2Click
    end
    object ToolButton5: TToolButton
-      Left = 384
-      Top = 30
+      Left = 0
+      Top = 60
      AutoSize = True
      Caption = #25171#21360
      ImageIndex = 12
      OnClick = ToolButton5Click
    end
    object Edit3: TEdit
-      Left = 447
-      Top = 30
+      Left = 63
+      Top = 60
      Width = 68
      Height = 30
      Font.Charset = GB2312_CHARSET
@ -194,8 +195,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
      OnKeyPress = Edit3KeyPress
    end
    object ComboBox1: TComboBox
-      Left = 515
-      Top = 33
+      Left = 131
+      Top = 63
      Width = 149
      Height = 24
      Style = csDropDownList
@ -219,8 +220,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
        #26816#39564#30721#21333)
    end
    object Edit4: TEdit
-      Left = 664
-      Top = 30
+      Left = 280
+      Top = 60
      Width = 121
      Height = 30
      Font.Charset = GB2312_CHARSET
@ -233,32 +234,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
      Visible = False
    end
    object ToolButton12: TToolButton
-      Left = 785
-      Top = 30
+      Left = 401
+      Top = 60
      Caption = #20462#25913#30721#21333
      ImageIndex = 54
      Visible = False
      OnClick = ToolButton12Click
    end
    object ToolButton9: TToolButton
-      Left = 904
-      Top = 30
+      Left = 520
+      Top = 60
      AutoSize = True
      Caption = #24322#24120#25968#25454
      ImageIndex = 2
      OnClick = ToolButton9Click
    end
    object TBExport: TToolButton
-      Left = 991
-      Top = 30
+      Left = 607
+      Top = 60
      AutoSize = True
      Caption = #23548#20986
      ImageIndex = 75
      OnClick = TBExportClick
    end
    object TBClose: TToolButton
-      Left = 1054
-      Top = 30
+      Left = 670
+      Top = 60
      AutoSize = True
      Caption = #20851#38381
      ImageIndex = 55
@ -267,7 +268,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
  end
  object Panel1: TPanel
    Left = 0
-    Top = 62
+    Top = 92
    Width = 1384
    Height = 88
    Align = alTop
@ -806,9 +807,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
  end
  object cxGrid1: TcxGrid
    Left = 0
-    Top = 150
+    Top = 180
    Width = 1384
-    Height = 568
+    Height = 538
    Align = alClient
    PopupMenu = PopupMenu1
    TabOrder = 3
--- a/打卷检验管理/U_JYOrderCDOne.pas
+++ b/打卷检验管理/U_JYOrderCDOne.pas
@ -11,7 +11,20 @@ uses
  cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
  RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, MovePanel, cxTextEdit,
  cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxContainer, ShellAPI,
-  cxCurrencyEdit, MMSystem;
+  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, strUtils;

 type
  TfrmJYOrderCDOne = class(TForm)
@ -364,7 +377,7 @@ end;
 procedure TfrmJYOrderCDOne.TBCloseClick(Sender: TObject);
 begin
  Close;
-  WriteCxGrid('检验报告JF', Tv1, '检验管理');       
+  WriteCxGrid('检验报告JF', Tv1, '检验管理');
 end;

 procedure TfrmJYOrderCDOne.InitGrid();
@ -1507,14 +1520,14 @@ begin
    ExecSQL;
  end;

-  if (trim(ComboBox1.Text) = '检验码单(英文)') then      
+  if (trim(ComboBox1.Text) = '检验码单(英文)') then
  begin
    with ADOQueryTemp do
    begin
      Close;
      sql.Clear;
      sql.add('exec P_Do_PrintMd10 ');
-      sql.add('@mainID=' + quotedstr(Trim('')));         
+      sql.add('@mainID=' + quotedstr(Trim('')));
      sql.add(',@DName=' + quotedstr(Trim(DCode)));
      Open;
    end;
@ -1549,7 +1562,7 @@ begin
    begin
      Close;
      sql.Clear;
-      sql.add('exec P_Do_PrintMd_HZ_copy1 ');       
+      sql.add('exec P_Do_PrintMd_HZ_copy1 ');
      sql.add('@mainID=' + quotedstr(Trim('')));
      sql.add(',@DName=' + quotedstr(Trim(DCode)));
      sql.add(',@flag=''2'' ');
@ -2133,7 +2146,7 @@ end;
 procedure TfrmJYOrderCDOne.Button13Click(Sender: TObject);
 var
  fPrintFile: string;
-  Txt, fImagePath: string;
+  Txt, fImagePath, Txt1, fImagePath1: string;
  Moudle: THandle;
  Makebar: TMakebar;
  Mixtext: TMixtext;
@ -2184,6 +2197,7 @@ begin
          Order_Main.EnableControls;
          exit;
        end;
+
        with ADOQueryPrint do
        begin
          Close;
@ -2206,6 +2220,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) + RightStr(('10000' + trim(ADOQueryPrint.fieldbyName('MJXH').AsString)), 4);
+          Txt1 := Trim(ADOQueryPrint1.fieldbyname('客户订单号').AsString) + RightStr(('10000' + trim(ADOQueryPrint1.fieldbyName('卷号').AsString)), 4);
+          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 Trim(ADOQueryPrint.fieldbyname('SLbName').AsString) <> '' then
        begin
          ExportFtErpFile(Trim(ADOQueryPrint.fieldbyname('SLbName').AsString), ADOQueryCmd);
@ -2231,6 +2263,7 @@ begin
        if FileExists(fPrintFile) then
        begin
          RMVariables['QRBARCODE'] := fImagePath;
+          RMVariables['QRBARCODE1'] := fImagePath1;
          if ComboBox2.Text = 'Ó¢ÎÄ×Ö¶Î±êÇ©' then
          begin
            RM2.LoadFromFile(fPrintFile);
--- a/打卷检验管理/U_MJManageNewFDNew.pas
+++ b/打卷检验管理/U_MJManageNewFDNew.pas
@ -10,7 +10,20 @@ uses
  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, strUtils;

 type
  TfrmMJManageNewFDNewSF = class(TForm)
@ -650,7 +663,7 @@ begin
    sql.Clear;
    sql.Add('select ZDYName from KH_Zdy where Type=''WFBCD'' order by ZDYNO ');
 //    showmessage(sql.text);
-    Open;                         
+    Open;
  end;
  if ADOTmp.IsEmpty then
  begin
@ -1738,7 +1751,7 @@ end;
 procedure TfrmMJManageNewFDNewSF.PrtData(FMJID: string);
 var
  fPrintFile: string;
-  Txt, fImagePath: string;
+  Txt, fImagePath, Txt1, fImagePath1: string;
  Moudle: THandle;
  Makebar: TMakebar;
  Mixtext: TMixtext;
@ -1781,12 +1794,29 @@ begin
    if FileExists(fImagePath) then
      DeleteFile(fImagePath);
    Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
+  except
+    application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
+    CDS_MJID.EnableControls;                                                              
+    exit;
+  end;
+  try                                                                           
+    Moudle := LoadLibrary('MakeQRBarcode.dll');
+    @Makebar := GetProcAddress(Moudle, 'Make');          
+    @Mixtext := GetProcAddress(Moudle, 'MixText');
+    Txt1 := Trim(ADOQueryPrint.fieldbyname('KHorderno').AsString) + RightStr(('10000' + trim(ADOQueryPrint.fieldbyName('MJXH').AsString)), 4);
+    Txt1 := Trim(ADOQueryPrint1.fieldbyname('客户订单号').AsString) + RightStr(('10000' + trim(ADOQueryPrint1.fieldbyName('卷号').AsString)), 4);
+    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,49 +1839,13 @@ 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
+    if Edit5.Text <> '' then                                  
    begin
      RM3.LoadFromFile(fPrintFile);

@ -1871,7 +1865,7 @@ begin
      RM2.PrintReport;
    end;

-    if MggCDFalg = '99' then       
+    if MggCDFalg = '99' then
    begin
      with ADOCmd do
      begin
@ -2720,7 +2714,7 @@ begin
  MJstr4.Text := Trim(ADOTmp.fieldbyname('MJstr4').AsString);
  MJXH.Text := Trim(ADOTmp.fieldbyname('MJXH').AsString);
  baono.Text := Trim(ADOTmp.fieldbyname('baono').AsString);
-  baoid.Text := Trim(ADOTmp.fieldbyname('baoid').AsString);    
+  baoid.Text := Trim(ADOTmp.fieldbyname('baoid').AsString);
  if Trim(ADOTmp.fieldbyname('MJType').AsString) = '正品' then
  begin
    Edit3.Text := '√';