打卷程序的打卷页面增加提交清零功能

打卷检验管理/TradeManage.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\陈亿项目代码\项目代码\隆生\打卷检验管理\testDll.exe
+HostApplication=D:\Dp7Repo\项目代码\D7DJlongsheng\打卷检验管理\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=
@@ -136,6 +136,3 @@ ProductVersion=1.0.0.0
 Comments=
 [Excluded Packages]
 c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package
-[HistoryLists\hlUnitAliases]
-Count=1
-Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

打卷检验管理/TradeManage.skincfg

@@ -0,0 +1,50 @@
+[ExpressSkins]
+Default=1
+ShowNotifications=1
+Enabled=0
+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

打卷检验管理/U_MJManageNewFDNew.dfm

@@ -1,6 +1,6 @@
 object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
-  Left = 322
+  Left = 369
-  Top = 165
+  Top = 220
   Width = 1366
   Height = 754
   Caption = #25104#21697#26816#39564
@@ -21,7 +21,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     Left = 0
     Top = 87
     Width = 214
-    Height = 628
+    Height = 636
     Align = alLeft
     TabOrder = 0
     object Tv3: TcxGridDBTableView
@@ -125,8 +125,8 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
   object ScrollBox1: TScrollBox
     Left = 633
     Top = 87
-    Width = 717
+    Width = 725
-    Height = 628
+    Height = 636
     Align = alClient
     Color = clWhite
     ParentColor = False
@@ -977,7 +977,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     Left = 428
     Top = 87
     Width = 205
-    Height = 628
+    Height = 636
     Align = alLeft
     BevelInner = bvRaised
     BevelOuter = bvLowered
@@ -1929,7 +1929,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     Left = 214
     Top = 87
     Width = 214
-    Height = 628
+    Height = 636
     Align = alLeft
     BevelInner = bvRaised
     BevelOuter = bvLowered
@@ -1938,7 +1938,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
       Left = 2
       Top = 2
       Width = 210
-      Height = 303
+      Height = 311
       Align = alClient
       TabOrder = 0
       object Tv2: TcxGridDBTableView
@@ -2046,7 +2046,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object Panel8: TPanel
       Left = 2
-      Top = 305
+      Top = 313
       Width = 210
       Height = 28
       Align = alBottom
@@ -2061,7 +2061,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
     end
     object AOrdDefNote1: TRichEdit
       Left = 2
-      Top = 333
+      Top = 341
       Width = 210
       Height = 293
       Align = alBottom
@@ -2274,7 +2274,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1350
+    Width = 1358
     Height = 30
     AutoSize = True
     ButtonHeight = 30
@@ -2462,7 +2462,7 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
   object Panel6: TPanel
     Left = 0
     Top = 30
-    Width = 1350
+    Width = 1358
     Height = 57
     Align = alTop
     BevelInner = bvRaised

打卷检验管理/U_MJManageNewFDNew.pas

@@ -346,6 +346,7 @@ type
     procedure On1201(var Message: Tmessage); message 1201;
     procedure On1301(var Message: Tmessage); message 1301;
     function JsXj(str1: string): string;
+    procedure clearCom(DllName: string);
   public
     fmanage: string;
     { Public declarations }
@@ -354,7 +355,7 @@ type
 
 var
   frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF;
-  newh, newh1: hwnd;
+  newh, newh1, newh2: hwnd;
 
 implementation
 
@@ -363,6 +364,38 @@ uses
   U_SysLogOrder;
 
 {$R *.dfm}
+procedure TfrmMJManageNewFDNewSF.clearCom(DllName: string);
+type
+  TMyFunc = function(sCommName: PAnsiChar): HWND; stdcall;
+var
+  Tf1: TMyFunc;
+  Tp1: TFarProc;
+  Th1: Thandle;
+begin
+  Th1 := LoadLibrary(Pchar(trim(DllName)));
+  if Th1 > 0 then
+  begin
+    try
+      Tp1 := GetProcAddress(Th1, 'CommClear');
+      if Tp1 <> nil then
+      begin
+        Tf1 := TMyFunc(Tp1);
+        newh2 := Tf1('Comm1');
+      end
+      else
+      begin
+
+      end;
+    finally
+    // FreeLibrary(Th1);
+    end;
+  end
+  else
+  begin
+    application.MessageBox(Pchar('ÕÒ²»µ½ ' + trim(DllName) + ' Îļþ£¡'), 'Ìáʾ');
+  end;
+end;
+
 procedure TfrmMJManageNewFDNewSF.PrtBaoData(FBaoid: string);
 var
   fPrintFile: string;
@@ -476,7 +509,7 @@ begin
       if Label9.Caption = 'Y' then
       begin
         MJLen.Text := format('%.' + trim(fxsws) + 'f', [(i1 / 0.9144) / 100000]);
-//        if i2 = 0 then                                                             
+//        if i2 = 0 then
 //          Label9.Caption := 'M'
 //        else
 //          Label9.Caption := 'Y';
@@ -1778,6 +1811,11 @@ begin
 
   end;
 
+  if Trim(Edit7.Text) = '¡Ì' then
+  begin
+    if trim(JCYDLL) <> '' then
+      clearCom(JCYDLL);
+  end;
   Label16.Caption := '';
   BTAdd.Click;
   MJLen.SetFocus;