~

打卷检验管理/U_JYOrderCDOne.dfm

@@ -120,16 +120,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       ImageIndex = 54
       OnClick = ToolButton11Click
     end
-    object TBDW: TToolButton
+    object ToolButton18: TToolButton
       Left = 750
       Top = 0
       AutoSize = True
+      Caption = #25209#37327#20462#25913#38376#24133
+      ImageIndex = 54
+      OnClick = ToolButton18Click
+    end
+    object TBDW: TToolButton
+      Left = 861
+      Top = 0
+      AutoSize = True
       Caption = #20462#25913#25968#37327#21333#20301
       ImageIndex = 54
       OnClick = TBDWClick
     end
     object ToolButton16: TToolButton
-      Left = 861
+      Left = 972
       Top = 0
       AutoSize = True
       Caption = #36716#21333
@@ -137,7 +145,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton16Click
     end
     object ToolButton4: TToolButton
-      Left = 924
+      Left = 1035
       Top = 0
       AutoSize = True
       Caption = #25209#37327#35843#25972#31859#25968
@@ -145,7 +153,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton4Click
     end
     object ToolButton13: TToolButton
-      Left = 1035
+      Left = 1146
       Top = 0
       AutoSize = True
       Caption = #25209#37327#20928#37325#36716#38271#24230
@@ -154,7 +162,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton13Click
     end
     object ToolButton17: TToolButton
-      Left = 1158
+      Left = 1269
       Top = 0
       AutoSize = True
       Caption = #25209#37327#20462#25913#25171#30721#26102#38388
@@ -268,13 +276,14 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
     object ToolButton12: TToolButton
       Left = 896
       Top = 30
+      AutoSize = True
       Caption = #20462#25913#30721#21333
       ImageIndex = 54
       Visible = False
       OnClick = ToolButton12Click
     end
     object ToolButton9: TToolButton
-      Left = 1027
+      Left = 983
       Top = 30
       AutoSize = True
       Caption = #24322#24120#25968#25454
@@ -282,7 +291,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton9Click
     end
     object TBExport: TToolButton
-      Left = 1114
+      Left = 1070
       Top = 30
       AutoSize = True
       Caption = #23548#20986
@@ -290,7 +299,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = TBExportClick
     end
     object TBClose: TToolButton
-      Left = 1177
+      Left = 1133
       Top = 30
       AutoSize = True
       Caption = #20851#38381
@@ -1938,6 +1947,47 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       TabOrder = 2
     end
   end
+  object Panel15: TPanel
+    Left = 756
+    Top = 512
+    Width = 225
+    Height = 117
+    Color = clSkyBlue
+    TabOrder = 15
+    Visible = False
+    object Label38: TLabel
+      Left = 24
+      Top = 44
+      Width = 24
+      Height = 12
+      Caption = #38376#24133
+    end
+    object Button17: TButton
+      Left = 32
+      Top = 72
+      Width = 60
+      Height = 25
+      Caption = #30830#23450
+      TabOrder = 0
+      OnClick = Button17Click
+    end
+    object Button18: TButton
+      Left = 128
+      Top = 72
+      Width = 60
+      Height = 25
+      Caption = #20851#38381
+      TabOrder = 1
+      OnClick = Button18Click
+    end
+    object FMF: TEdit
+      Left = 56
+      Top = 40
+      Width = 125
+      Height = 20
+      TabOrder = 2
+    end
+  end
   object cxGridPopupMenu1: TcxGridPopupMenu
     Grid = cxGrid1
     PopupMenus = <>

打卷检验管理/U_JYOrderCDOne.pas

@@ -1,6 +1,6 @@
 unit U_JYOrderCDOne;
 
-interface
+interface                    
 
 uses
   Windows, Messages, SysUtils, strUtils, Variants, Classes, Graphics, Controls,
@@ -231,6 +231,12 @@ type
     Button15: TButton;
     Button16: TButton;
     DMTIME: TDateTimePicker;
+    Panel15: TPanel;
+    Label38: TLabel;
+    Button17: TButton;
+    Button18: TButton;
+    FMF: TEdit;
+    ToolButton18: TToolButton;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -298,6 +304,9 @@ type
     procedure ToolButton17Click(Sender: TObject);
     procedure Button15Click(Sender: TObject);
     procedure Button16Click(Sender: TObject);
+    procedure ToolButton18Click(Sender: TObject);
+    procedure Button18Click(Sender: TObject);
+    procedure Button17Click(Sender: TObject);
 //    procedure Edit5Click(Sender: TObject);
 //    procedure CheckBox3Click(Sender: TObject);
   private
@@ -466,7 +475,7 @@ begin
     label23.Caption := '¾»ÖØ:' + floattostr(sumJZ);
     Order_Main.Locate('mjid', fid, []);
   except
-    application.MessageBox('操作失败！', '提示信息', 0);   
+    application.MessageBox('操作失败！', '提示信息', 0);
   end;
 end;
 
@@ -2505,5 +2514,59 @@ begin
   Panel11.Visible := false;
 end;
 
+procedure TfrmJYOrderCDOne.ToolButton18Click(Sender: TObject);
+begin
+  Panel15.Left := (self.Width - Panel15.Width) div 2;
+  Panel15.Visible := true;
+end;
+
+procedure TfrmJYOrderCDOne.Button18Click(Sender: TObject);
+begin
+  Panel15.Visible := false;
+end;
+
+procedure TfrmJYOrderCDOne.Button17Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+  if Order_Main.Locate('SSel', True, []) = False then
+  begin
+    Application.MessageBox('没有选择数据!', '提示', 0);
+    Exit;
+  end;                                                     
+  try
+    Order_Main.DisableControls;
+    ADOQueryCmd.Connection.BeginTrans;
+    with Order_Main do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Order_Main.FieldByName('SSel').AsBoolean = True then
+        begin
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('Update WFB_MJJY Set MJFK=''' + trim(FMF.Text) + ''' ');
+            sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
+            ExecSQL;
+          end;
+        end;
+        Next;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Order_Main.EnableControls;
+    application.MessageBox('数据保存成功！', '提示信息');
+    Panel15.Visible := false;
+    TBRafresh.Click;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Order_Main.EnableControls;
+    application.MessageBox('数据保存失败！', '提示信息', 0);
+  end;
+end;
+
 end.