~

打卷检验管理/TradeManage.dof

@@ -101,7 +101,7 @@ DebugSourceDirs=
 UsePackages=0
 [Parameters]
 RunParams=
-HostApplication=D:\徐加艳项目代码\项目代码\新万年\打卷检验管理\testDll.exe
+HostApplication=D:\Dp7Repo\项目代码\D7DJxinwannian\打卷检验管理\testDll.exe
 Launcher=
 UseLauncher=0
 DebugCWD=

打卷检验管理/U_JYOrderCDOne.dfm

@@ -272,6 +272,13 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       ImageIndex = 55
       OnClick = TBCloseClick
     end
+    object ToolButton15: TToolButton
+      Left = 1085
+      Top = 30
+      Caption = #25209#37327#20462#25913#26579#32568
+      ImageIndex = 56
+      OnClick = ToolButton15Click
+    end
   end
   object Panel1: TPanel
     Left = 0
@@ -1944,6 +1951,47 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       TabOrder = 2
     end
   end
+  object Panel15: TPanel
+    Left = 1148
+    Top = 408
+    Width = 225
+    Height = 117
+    Color = clSkyBlue
+    TabOrder = 15
+    Visible = False
+    object Label39: TLabel
+      Left = 24
+      Top = 44
+      Width = 48
+      Height = 12
+      Caption = #26579#21378#32568#21495
+    end
+    object Button17: TButton
+      Left = 41
+      Top = 72
+      Width = 60
+      Height = 25
+      Caption = #30830#23450
+      TabOrder = 0
+      OnClick = Button17Click
+    end
+    object Button18: TButton
+      Left = 137
+      Top = 72
+      Width = 60
+      Height = 25
+      Caption = #20851#38381
+      TabOrder = 1
+      OnClick = Button18Click
+    end
+    object FMJStr5: TEdit
+      Left = 74
+      Top = 39
+      Width = 125
+      Height = 20
+      TabOrder = 2
+    end
+  end
   object cxGridPopupMenu1: TcxGridPopupMenu
     Grid = cxGrid1
     PopupMenus = <>

打卷检验管理/U_JYOrderCDOne.pas

@@ -231,6 +231,12 @@ type
     Button15: TButton;
     Button16: TButton;
     FMJLS: TEdit;
+    ToolButton15: TToolButton;
+    Panel15: TPanel;
+    Label39: TLabel;
+    Button17: TButton;
+    Button18: TButton;
+    FMJStr5: TEdit;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -295,6 +301,9 @@ type
     procedure Button15Click(Sender: TObject);
     procedure Button16Click(Sender: TObject);
     procedure ToolButton14Click(Sender: TObject);
+    procedure ToolButton15Click(Sender: TObject);
+    procedure Button17Click(Sender: TObject);
+    procedure Button18Click(Sender: TObject);
 //    procedure Edit5Click(Sender: TObject);
 //    procedure CheckBox3Click(Sender: TObject);
   private
@@ -2405,5 +2414,60 @@ begin
   Panel14.Visible := true;
 end;
 
+procedure TfrmJYOrderCDOne.ToolButton15Click(Sender: TObject);
+begin
+  Panel15.Left := (self.Width - Panel15.Width) div 2;
+  Panel15.Visible := true;
+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 MJStr5=''' + trim(FMJStr5.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;
+//    FMJStr5.Text := '';
+    TBRafresh.Click;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Order_Main.EnableControls;
+    application.MessageBox('数据保存失败！', '提示信息', 0);
+  end;
+end;
+
+procedure TfrmJYOrderCDOne.Button18Click(Sender: TObject);
+begin
+  Panel15.Visible := false;
+end;
+
 end.