~

2026-02-05 17:20:42 +08:00 · 2026-02-05 17:20:42 +08:00 · fdae87e8bd
commit fdae87e8bd
parent 5d18573069
5 changed files with 148 additions and 120 deletions
--- a/打卷检验管理/TradeManage.dof
+++ b/打卷检验管理/TradeManage.dof
@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\徐加艳项目代码\项目代码\寅诗纺织品\打卷检验管理\testDll.exe
+HostApplication=D:\Dp7Repo\项目代码\D7DJyinshi\打卷检验管理\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=
--- 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
--- a/打卷检验管理/U_JYOrderCDOne.dfm
+++ b/打卷检验管理/U_JYOrderCDOne.dfm
@ -22,7 +22,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
    Left = 0
    Top = 0
    Width = 1384
-    Height = 92
+    Height = 62
    AutoSize = True
    ButtonHeight = 30
    ButtonWidth = 119
@ -101,28 +101,27 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
      Top = 0
      Caption = #25209#37327#20462#25913#32568#21495
      ImageIndex = 54
-      Wrap = True
      OnClick = ToolButton11Click
    end
    object TBDW: TToolButton
-      Left = 0
-      Top = 30
+      Left = 608
+      Top = 0
      AutoSize = True
      Caption = #20462#25913#25968#37327#21333#20301
      ImageIndex = 54
      OnClick = TBDWClick
    end
    object ToolButton4: TToolButton
-      Left = 111
-      Top = 30
+      Left = 719
+      Top = 0
      AutoSize = True
      Caption = #25209#37327#35843#25972#31859#25968
      ImageIndex = 54
      OnClick = ToolButton4Click
    end
    object ToolButton13: TToolButton
-      Left = 222
-      Top = 30
+      Left = 830
+      Top = 0
      AutoSize = True
      Caption = #25209#37327#20928#37325#36716#38271#24230
      ImageIndex = 54
@ -130,15 +129,16 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
      OnClick = ToolButton13Click
    end
    object ToolButton8: TToolButton
-      Left = 345
-      Top = 30
+      Left = 953
+      Top = 0
      AutoSize = True
      Caption = #25209#37327#20462#25913#30382#37325
      ImageIndex = 54
+      Wrap = True
      OnClick = ToolButton8Click
    end
    object ToolButton1: TToolButton
-      Left = 456
+      Left = 0
      Top = 30
      AutoSize = True
      Caption = #25171#21360#26631#31614
@ -146,7 +146,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
      OnClick = ToolButton1Click
    end
    object TCPDB: TToolButton
-      Left = 543
+      Left = 87
      Top = 30
      AutoSize = True
      Caption = #25104#21697#25171#21253
@ -154,7 +154,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
      OnClick = TCPDBClick
    end
    object ToolButton3: TToolButton
-      Left = 630
+      Left = 174
      Top = 30
      AutoSize = True
      Caption = #25171#21360#21253#26631#31614
@ -163,25 +163,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
      OnClick = ToolButton3Click
    end
    object ToolButton2: TToolButton
-      Left = 729
+      Left = 273
      Top = 30
      AutoSize = True
      Caption = #25171#21360#26816#39564#25253#21578
      ImageIndex = 12
-      Wrap = True
      OnClick = ToolButton2Click
    end
    object ToolButton5: TToolButton
-      Left = 0
-      Top = 60
+      Left = 384
+      Top = 30
      AutoSize = True
      Caption = #25171#21360
      ImageIndex = 12
      OnClick = ToolButton5Click
    end
    object Edit3: TEdit
-      Left = 63
-      Top = 60
+      Left = 447
+      Top = 30
      Width = 68
      Height = 30
      Font.Charset = GB2312_CHARSET
@ -195,8 +194,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
      OnKeyPress = Edit3KeyPress
    end
    object ComboBox1: TComboBox
-      Left = 131
-      Top = 63
+      Left = 515
+      Top = 33
      Width = 149
      Height = 24
      Style = csDropDownList
@ -220,8 +219,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
        #26816#39564#30721#21333)
    end
    object Edit4: TEdit
-      Left = 280
-      Top = 60
+      Left = 664
+      Top = 30
      Width = 121
      Height = 30
      Font.Charset = GB2312_CHARSET
@ -234,32 +233,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
      Visible = False
    end
    object ToolButton12: TToolButton
-      Left = 401
-      Top = 60
+      Left = 785
+      Top = 30
      Caption = #20462#25913#30721#21333
      ImageIndex = 54
      Visible = False
      OnClick = ToolButton12Click
    end
    object ToolButton9: TToolButton
-      Left = 520
-      Top = 60
+      Left = 904
+      Top = 30
      AutoSize = True
      Caption = #24322#24120#25968#25454
      ImageIndex = 2
      OnClick = ToolButton9Click
    end
    object TBExport: TToolButton
-      Left = 607
-      Top = 60
+      Left = 991
+      Top = 30
      AutoSize = True
      Caption = #23548#20986
      ImageIndex = 75
      OnClick = TBExportClick
    end
    object TBClose: TToolButton
-      Left = 670
-      Top = 60
+      Left = 1054
+      Top = 30
      AutoSize = True
      Caption = #20851#38381
      ImageIndex = 55
@ -268,7 +267,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
  end
  object Panel1: TPanel
    Left = 0
-    Top = 92
+    Top = 62
    Width = 1384
    Height = 88
    Align = alTop
@ -783,9 +782,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
  end
  object cxGrid1: TcxGrid
    Left = 0
-    Top = 180
+    Top = 150
    Width = 1384
-    Height = 538
+    Height = 568
    Align = alClient
    PopupMenu = PopupMenu1
    TabOrder = 3
--- 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)
@ -1128,6 +1128,14 @@ var
 begin
  if Order_Main.IsEmpty then
    Exit;
+  Order_Main.DisableControls;
+  with Order_Main do
+  begin
+    First;
+    while not Eof do
+    begin
+      if Order_Main.FieldByName('SSel').AsBoolean = True then
+      begin
        if trim(Order_Main.FieldByName('BaoID').AsString) = '' then
        begin
          application.MessageBox('未打包不能打印', '提示');
@ -1184,8 +1192,8 @@ begin
        begin
          RMVariables['QRBARCODE'] := fImagePath;
          RM2.LoadFromFile(fPrintFile);
-    RM2.ShowReport;
-    //RM2.printReport;
+//    RM2.ShowReport;
+          RM2.printReport;
        end
        else
        begin
@ -1193,6 +1201,13 @@ begin
          Application.MessageBox(PChar('没有找' + trim(fPrintFile)), '提示', 0);
          Exit;
        end;
+      end;
+
+      Next;
+    end;
+  end;
+  Order_Main.EnableControls;
+
 end;

 procedure TfrmJYOrderCDOne.Button6Click(Sender: TObject);