新增按钮

打卷检验管理/ProjectGroup1.~bpg

@@ -14,10 +14,10 @@ PROJECTS = TradeManage.dll testDll.exe
 default: $(PROJECTS)
 #------------------------------------------------------------------------------
 
-TradeManage.dll: ..\..\D7DJjinchao\复合检验管理\TradeManage.dpr
+TradeManage.dll: TradeManage.dpr
   $(DCC)
 
-testDll.exe: ..\..\D7DJjinchao\复合检验管理\testDll.dpr
+testDll.exe: testDll.dpr
   $(DCC)
 
 

打卷检验管理/U_JYOrderCDOne.dfm

@@ -1,6 +1,6 @@
 object frmJYOrderCDOne: TfrmJYOrderCDOne
-  Left = 296
+  Left = 318
-  Top = 178
+  Top = 307
   Width = 1400
   Height = 757
   Caption = #26816#39564#25253#21578
@@ -21,7 +21,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   object ToolBar1: TToolBar
     Left = 0
     Top = 0
-    Width = 1384
+    Width = 1392
     Height = 62
     AutoSize = True
     ButtonHeight = 30
@@ -279,11 +279,19 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       ImageIndex = 56
       OnClick = ToolButton15Click
     end
+    object ToolButton16: TToolButton
+      Left = 1192
+      Top = 30
+      AutoSize = True
+      Caption = #25209#37327#35843#25972#30721#25968
+      ImageIndex = 54
+      OnClick = ToolButton16Click
+    end
   end
   object Panel1: TPanel
     Left = 0
     Top = 62
-    Width = 1384
+    Width = 1392
     Height = 88
     Align = alTop
     BevelInner = bvRaised
@@ -811,8 +819,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
   object cxGrid1: TcxGrid
     Left = 0
     Top = 150
-    Width = 1384
+    Width = 1392
-    Height = 568
+    Height = 576
     Align = alClient
     PopupMenu = PopupMenu1
     TabOrder = 3
@@ -1300,8 +1308,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
     end
   end
   object Panel2: TPanel
-    Left = 496
+    Left = 152
-    Top = 336
+    Top = 552
     Width = 273
     Height = 101
     Color = clSkyBlue
@@ -1992,6 +2000,67 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       TabOrder = 2
     end
   end
+  object Panel16: TPanel
+    Left = 832
+    Top = 560
+    Width = 273
+    Height = 101
+    Color = clSkyBlue
+    TabOrder = 16
+    Visible = False
+    object Label40: TLabel
+      Left = 40
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #35843#25972#26041#24335
+    end
+    object Label41: TLabel
+      Left = 40
+      Top = 40
+      Width = 48
+      Height = 12
+      Caption = #35843#25972#25968#37327
+    end
+    object ComboBox4: TComboBox
+      Left = 92
+      Top = 8
+      Width = 101
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      TabOrder = 0
+      Items.Strings = (
+        ''
+        #22686#21152
+        #20943#23569)
+    end
+    object Button19: TButton
+      Left = 32
+      Top = 64
+      Width = 60
+      Height = 25
+      Caption = #30830#23450
+      TabOrder = 2
+      OnClick = Button19Click
+    end
+    object Button20: TButton
+      Left = 172
+      Top = 64
+      Width = 60
+      Height = 25
+      Caption = #20851#38381
+      TabOrder = 3
+      OnClick = Button20Click
+    end
+    object Edit7: TEdit
+      Left = 92
+      Top = 35
+      Width = 101
+      Height = 20
+      TabOrder = 1
+    end
+  end
   object cxGridPopupMenu1: TcxGridPopupMenu
     Grid = cxGrid1
     PopupMenus = <>

打卷检验管理/U_JYOrderCDOne.pas

@@ -237,6 +237,14 @@ type
     Button17: TButton;
     Button18: TButton;
     FMJStr5: TEdit;
+    ToolButton16: TToolButton;
+    Panel16: TPanel;
+    Label40: TLabel;
+    Label41: TLabel;
+    ComboBox4: TComboBox;
+    Button19: TButton;
+    Button20: TButton;
+    Edit7: TEdit;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -304,6 +312,9 @@ type
     procedure ToolButton15Click(Sender: TObject);
     procedure Button17Click(Sender: TObject);
     procedure Button18Click(Sender: TObject);
+    procedure ToolButton16Click(Sender: TObject);
+    procedure Button20Click(Sender: TObject);
+    procedure Button19Click(Sender: TObject);
 //    procedure Edit5Click(Sender: TObject);
 //    procedure CheckBox3Click(Sender: TObject);
   private
@@ -2441,14 +2452,14 @@ begin
         begin
           with ADOQueryCmd do
           begin
-            Close;                                  
+            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;                                    
+        Next;
       end;
     end;
     ADOQueryCmd.Connection.CommitTrans;
@@ -2469,5 +2480,81 @@ begin
   Panel15.Visible := false;
 end;
 
+procedure TfrmJYOrderCDOne.ToolButton16Click(Sender: TObject);
+begin
+  Panel16.Left := (self.Width - Panel16.Width) div 2;
+  Panel16.Visible := true;
+end;
+
+procedure TfrmJYOrderCDOne.Button20Click(Sender: TObject);
+begin
+  Panel16.Visible := false;
+end;
+
+procedure TfrmJYOrderCDOne.Button19Click(Sender: TObject);
+var
+  SL: string;
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+  if Order_Main.Locate('SSel', True, []) = False then
+  begin
+    Application.MessageBox('没有选择数据!', '提示', 0);
+    Exit;
+  end;
+  if trim(ComboBox4.Text) = '' then
+  begin
+    Application.MessageBox('调整方式不能为空!', '提示', 0);
+    Exit;
+  end;
+  if trim(Edit7.Text) = '' 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
+          if Trim(ComboBox4.Text) = '增加' then
+          begin
+            SL := FloatToStr(Order_Main.fieldbyname('MJma').AsFloat + strtofloat(Edit7.Text));
+          end;
+          if Trim(ComboBox4.Text) = '减少' then
+          begin
+            SL := FloatToStr(Order_Main.fieldbyname('MJma').AsFloat - strtofloat(Edit7.Text));
+          end;
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('Update WFB_MJJY Set MJma=''' + SL + ''' ');
+            sql.Add('where MJID=''' + Trim(Order_Main.fieldbyname('MJID').AsString) + '''');
+            ExecSQL;
+          end;
+        end;
+        Next;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Order_Main.EnableControls;
+    application.MessageBox('数据保存成功！', '提示信息');
+    Panel16.Visible := false;
+    ComboBox4.Text := '';
+    Edit7.Text := '';
+    TBRafresh.Click;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Order_Main.EnableControls;
+    application.MessageBox('数据保存失败！', '提示信息', 0);
+  end;
+end;
+
 end.