增加码尺

复合检验管理/U_MJManageNewFDNew.pas

@@ -400,7 +400,7 @@ type
     { Private declarations }
     FInt, PState, PrintInt, SCInitGrid, FState, FCK: Integer;
     FColumn, FBanZu, FAPID, FMainId, FSubId, FFFMJID: string;
-    FJZ, FJC, FDC: Double;
+    FJZ, FJC, FDC, FPRTmachi: Double;
     fRollType, fRollType1, fbaotype, fbaosx: string;
     isCommopen, IsJsMessage: boolean;
     MValue, FCDName, MggCDFalg: string;
@@ -696,7 +696,7 @@ begin
  //  closeCom(FComFile);
   Th := LoadLibrary(Pchar(trim(DllNameT)));
   if Th > 0 then
-  begin                                               
+  begin
     try
       Tp := GetProcAddress(Th, 'CommOpen');
       if Tp <> nil then
@@ -710,7 +710,7 @@ begin
         else
           IsCommOpen := true;
       end
-      else
+      else                                      
       begin
         IsCommOpen := false;
       end;
@@ -1229,7 +1229,8 @@ begin
       end
       else
       begin
-        FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc;
+        FieldByName('MJLen').Value := format('%.' + trim(fxsws) + 'f', [(StrToFloatdef(trim(MJLen.Text), 0) / FPRTmachi) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc]);
+
       end;
 
       FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
@@ -2647,6 +2648,7 @@ begin
     FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString);
     FJZ := ADOTmp.fieldbyname('jiazhong').AsFloat;
     FJC := ADOTmp.fieldbyname('jiachang').AsFloat;
+    FPRTmachi := ADOTmp.fieldbyname('PRTmachi').AsFloat;
     FDC := StrToFloatDef(ADOTmp.fieldbyname('DC').asstring, 0);
     fbaotype := Trim(ADOTmp.fieldbyname('baotype').AsString);
     fbaosx := Trim(ADOTmp.fieldbyname('baosx').AsString);

复合检验管理/U_ProductOrderLBNameSet.dfm

@@ -164,23 +164,31 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
       Visible = False
       OnClick = ToolButton14Click
     end
-    object ToolButton7: TToolButton
+    object ToolButton16: TToolButton
       Left = 348
       Top = 30
       AutoSize = True
+      Caption = #30721#23610#35774#32622
+      ImageIndex = 60
+      OnClick = ToolButton16Click
+    end
+    object ToolButton7: TToolButton
+      Left = 435
+      Top = 30
+      AutoSize = True
       Caption = #39044#35272#21367#26631#31614
       ImageIndex = 12
       OnClick = ToolButton7Click
     end
     object ToolButton15: TToolButton
-      Left = 447
+      Left = 534
       Top = 30
       Caption = #39044#35272#20013#25991#26631#31614
       ImageIndex = 57
       OnClick = ToolButton15Click
     end
     object ToolButton8: TToolButton
-      Left = 554
+      Left = 641
       Top = 30
       AutoSize = True
       Caption = #39044#35272#21253#26631#31614
@@ -189,7 +197,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
       OnClick = ToolButton8Click
     end
     object PiZhong: TEdit
-      Left = 653
+      Left = 740
       Top = 30
       Width = 121
       Height = 30
@@ -202,7 +210,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
       TabOrder = 0
     end
     object TBClose: TToolButton
-      Left = 774
+      Left = 861
       Top = 30
       AutoSize = True
       Caption = #20851#38381
@@ -688,6 +696,12 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
         Visible = False
         Width = 60
       end
+      object Tv1Column6: TcxGridDBColumn
+        Caption = #30721#23610
+        DataBinding.FieldName = 'PRTmachi'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1

复合检验管理/U_ProductOrderLBNameSet.pas

@@ -1,7 +1,7 @@
 unit U_ProductOrderLBNameSet;
 
 interface
-                                       
+
 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
@@ -10,21 +10,20 @@ uses
   cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
   cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
   RM_Common, RM_Class, RM_GridReport, RM_e_Xls, StrUtils, Menus, cxDropDownEdit,
-  cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator,
+  cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
-  dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
+  dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
-  dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
+  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
   TfrmProductOrderLBNameSet = class(TForm)
@@ -42,7 +41,7 @@ type
     cxGrid1: TcxGrid;
     cxGridPopupMenu1: TcxGridPopupMenu;
     ADOQueryCmd: TADOQuery;
-    ADOQueryMain: TADOQuery;      
+    ADOQueryMain: TADOQuery;
     ADOQueryTemp: TADOQuery;
     DataSource1: TDataSource;
     Label3: TLabel;
@@ -131,6 +130,8 @@ type
     ToolButton13: TToolButton;
     ToolButton14: TToolButton;
     ToolButton15: TToolButton;
+    ToolButton16: TToolButton;
+    Tv1Column6: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -167,6 +168,7 @@ type
     procedure Tv1Column2PropertiesEditValueChanged(Sender: TObject);
     procedure Tv1Column5PropertiesEditValueChanged(Sender: TObject);
     procedure ToolButton15Click(Sender: TObject);
+    procedure ToolButton16Click(Sender: TObject);
   private
     DQdate: TDateTime;
     procedure InitGrid();
@@ -1522,7 +1524,7 @@ var
   Txt, fImagePath: string;
   Moudle: THandle;
   Makebar: TMakebar;
-  Mixtext: TMixtext;                                      
+  Mixtext: TMixtext;
 begin
   if Order_Main.IsEmpty then
     exit;
@@ -1568,5 +1570,70 @@ begin
   end;
 end;
 
+procedure TfrmProductOrderLBNameSet.ToolButton16Click(Sender: TObject);
+var
+  FPiZhong: string;
+  FReal: Double;
+begin
+  if Order_Main.IsEmpty then
+    exit;
+  if Order_Main.Locate('SSel', True, []) = False then
+  begin
+    Application.MessageBox('没有选择数据！', '提示', 0);
+    Exit;
+  end;
+  if Trim(PiZhong.Text) = '' then
+  begin
+    Application.MessageBox('码尺不能为空!', '提示', 0);
+    Exit;
+  end;
+  if TryStrToFloat(PiZhong.Text, FReal) = False then
+  begin
+    Application.MessageBox('码尺非法数字!', '提示', 0);
+    Exit;
+  end;
+  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 JYOrder_Sub Set PRTmachi=' + Trim(PiZhong.Text));
+          sql.Add(' where Subid=''' + Trim(Order_Main.fieldbyname('Subid').AsString) + '''');
+          ExecSQL;
+        end;
+        with Order_Main do
+        begin
+          Edit;
+          FieldByName('PRTmachi').Value := PiZhong.Text;
+          Post;
+        end;
+      end;
+      next;
+    end;
+  end;
+  CheckBox1.Checked := False;
+  with Order_Main do
+  begin
+    DisableControls;
+    first;
+    while not Eof do
+    begin
+      edit;
+      fieldbyname('Ssel').AsBoolean := False;
+      post;
+      next;
+    end;
+    first;
+    EnableControls;
+  end;
+
+end;
+
 end.