~

打卷检验管理/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=

打卷检验管理/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

打卷检验管理/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

打卷检验管理/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,
+  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
-  dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
+  dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
-  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
+  dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
-  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
+  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
-  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
-  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
+  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
-  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
+  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
-  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
+  dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
-  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
+  dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
-  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
+  dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
-  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
+  dxSkinXmas2008Blue, dxSkinscxPCPainter;
-  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
+  if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
-      Exit;
+    Exit;
-    CDS_MJCD.Delete;
+  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.