~

坯布码单待检(PBMDDJ.dll)/U_DJBCKInPut.pas

@@ -898,6 +898,8 @@ begin
           FieldByName('ORDSubIdRK').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SubId').AsString);
           FieldByName('OrderNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('OrderNo').AsString);
           FieldByName('PiQty').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTddps').AsString);
+          FieldByName('Qty').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTOrderQty').AsString);
+          FieldByName('QtyUnit').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('OrderUnit').AsString);
           FieldByName('RCGangNo').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTrcgh').AsString);
           FieldByName('SOrddefstr1').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('SOrddefstr1').AsString);
           FieldByName('PRTColor').Value := Trim(frmProductOrderListSel.Order_Main.fieldbyname('PRTColor').AsString);
@@ -963,17 +965,19 @@ begin
               FieldByName('ORDMainIdRK').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('MainId').AsString);
               FieldByName('ORDSubIdRK').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('SubId').AsString);
               FieldByName('OrderNo').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('OrderNo').AsString);
+              FieldByName('PiQty').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTddps').AsString);
+              FieldByName('Qty').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTOrderQty').AsString);
+              FieldByName('QtyUnit').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('OrderUnit').AsString);
+
+              FieldByName('RCGangNo').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTrcgh').AsString);
               FieldByName('SOrddefstr1').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('SOrddefstr1').AsString);
               FieldByName('PRTColor').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTColor').AsString);
               FieldByName('PRTkuanNo').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTkuanNo').AsString);
               FieldByName('PRTHX').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTHX').AsString);
               FieldByName('SPName').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTCodeName').AsString);
               FieldByName('SPSpec').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTSpec').AsString);
-//              FieldByName('SPCF').Value:=Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTCF').AsString);
               FieldByName('SPMF').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTMF').AsString);
-//              FieldByName('MPRTCode').Value:=Trim(frmProductOrderListSel1.Order_Main.fieldbyname('MPRTCode').AsString);
               FieldByName('SPKZ').Value := Trim(frmProductOrderListSel1.Order_Main.fieldbyname('PRTKZ').AsString);
-//              FieldByName('FactoryName').Value:=Trim(frmProductOrderListSel1.Order_Main.fieldbyname('ToFactoryName').AsString);
               Post;
             end;
           end;

检验管理/U_JYOrderCDOne.dfm

@@ -55,16 +55,24 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       ImageIndex = 59
       OnClick = TBFindClick
     end
-    object TBExport: TToolButton
+    object ToolButton8: TToolButton
       Left = 126
       Top = 0
       AutoSize = True
+      Caption = #26029#21495#26597#35810
+      ImageIndex = 21
+      OnClick = ToolButton8Click
+    end
+    object TBExport: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
       Caption = #23548#20986
       ImageIndex = 75
       OnClick = TBExportClick
     end
     object TBZF: TToolButton
-      Left = 189
+      Left = 276
       Top = 0
       AutoSize = True
       Caption = #20316#24223
@@ -73,7 +81,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = TBZFClick
     end
     object TBManage: TToolButton
-      Left = 252
+      Left = 339
       Top = 0
       AutoSize = True
       Caption = #32534#36753
@@ -82,7 +90,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = TBManageClick
     end
     object TBDW: TToolButton
-      Left = 315
+      Left = 402
       Top = 0
       AutoSize = True
       Caption = #20462#25913#25968#37327#21333#20301
@@ -90,32 +98,32 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = TBDWClick
     end
     object ToolButton4: TToolButton
-      Left = 426
+      Left = 513
       Top = 0
       AutoSize = True
       Caption = #25209#37327#35843#25972#31859#25968
       ImageIndex = 54
-      Wrap = True
       OnClick = ToolButton4Click
     end
     object ToolButton6: TToolButton
-      Left = 0
+      Left = 624
-      Top = 30
+      Top = 0
       AutoSize = True
       Caption = #20986#24211
       ImageIndex = 16
       OnClick = ToolButton6Click
     end
     object ToolButton7: TToolButton
-      Left = 63
+      Left = 687
-      Top = 30
+      Top = 0
       AutoSize = True
       Caption = #25764#38144#20986#24211
       ImageIndex = 86
+      Wrap = True
       OnClick = ToolButton7Click
     end
     object ToolButton1: TToolButton
-      Left = 150
+      Left = 0
       Top = 30
       AutoSize = True
       Caption = #25171#21360#26631#31614
@@ -124,7 +132,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton1Click
     end
     object TCPDB: TToolButton
-      Left = 237
+      Left = 87
       Top = 30
       AutoSize = True
       Caption = #25104#21697#25171#21253
@@ -133,7 +141,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = TCPDBClick
     end
     object ToolButton3: TToolButton
-      Left = 324
+      Left = 174
       Top = 30
       AutoSize = True
       Caption = #25171#21360#21253#26631#31614
@@ -142,7 +150,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton3Click
     end
     object ToolButton2: TToolButton
-      Left = 423
+      Left = 273
       Top = 30
       AutoSize = True
       Caption = #25171#21360#26816#39564#25253#21578
@@ -150,7 +158,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton2Click
     end
     object ToolButton5: TToolButton
-      Left = 534
+      Left = 384
       Top = 30
       AutoSize = True
       Caption = #25171#21360
@@ -158,7 +166,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = ToolButton5Click
     end
     object ComboBox1: TComboBox
-      Left = 597
+      Left = 447
       Top = 33
       Width = 149
       Height = 24
@@ -181,7 +189,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
         #26816#39564#30721#21333'('#19977#32852#31859')')
     end
     object TBAftChkHX: TToolButton
-      Left = 746
+      Left = 596
       Top = 30
       AutoSize = True
       Caption = #26816#21518#22238#20462
@@ -190,7 +198,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       OnClick = TBAftChkHXClick
     end
     object TBClose: TToolButton
-      Left = 833
+      Left = 683
       Top = 30
       AutoSize = True
       Caption = #20851#38381
@@ -585,6 +593,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       Height = 20
       TabOrder = 7
       OnChange = CustomerNoNameChange
+      OnKeyPress = SOrddefstr1KeyPress
     end
     object PRTHX: TEdit
       Tag = 2
@@ -594,8 +603,9 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       Height = 20
       TabOrder = 15
       OnChange = CustomerNoNameChange
+      OnKeyPress = SOrddefstr1KeyPress
     end
-    object gangno: TEdit
+    object mjstr4: TEdit
       Tag = 2
       Left = 1062
       Top = 11
@@ -603,6 +613,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       Height = 20
       TabOrder = 8
       OnChange = CustomerNoNameChange
+      OnKeyPress = SOrddefstr1KeyPress
     end
     object PRTkuanNo: TEdit
       Tag = 2
@@ -612,6 +623,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       Height = 20
       TabOrder = 16
       OnChange = CustomerNoNameChange
+      OnKeyPress = SOrddefstr1KeyPress
     end
   end
   object cxGrid1: TcxGrid
@@ -878,7 +890,7 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       end
       object v1Column4: TcxGridDBColumn
         Caption = #32568#21495
-        DataBinding.FieldName = 'gangno'
+        DataBinding.FieldName = 'mjstr4'
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 60
@@ -1251,14 +1263,61 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
       Height = 145
       ItemIndex = 0
       Items.Strings = (
-        #39034#40511#39564#25253
+        #21019#27719#39564#25253
-        #37329#31077#24800
+        #21019#27719#21253#35013#39564#25253
-        #37329#38745#25253#21578#10
-        #39034#40511#21253#35013#39564#25253
         #25104#21697#26816#39564#25253#21578)
       TabOrder = 1
     end
   end
+  object Panel7: TPanel
+    Left = 376
+    Top = 444
+    Width = 505
+    Height = 101
+    Color = clSkyBlue
+    TabOrder = 8
+    Visible = False
+    object Label20: TLabel
+      Left = 8
+      Top = 20
+      Width = 36
+      Height = 12
+      Caption = #32570#21495#65306
+    end
+    object ComboBox2: TComboBox
+      Left = -12
+      Top = 72
+      Width = 145
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      TabOrder = 0
+      Visible = False
+      Items.Strings = (
+        ''
+        'M'
+        'Y')
+    end
+    object Button3: TButton
+      Left = -8
+      Top = 72
+      Width = 60
+      Height = 25
+      Caption = #30830#23450
+      TabOrder = 1
+      Visible = False
+      OnClick = Button5Click
+    end
+    object Button4: TButton
+      Left = 428
+      Top = 64
+      Width = 60
+      Height = 25
+      Caption = #20851#38381
+      TabOrder = 2
+      OnClick = Button4Click
+    end
+  end
   object cxGridPopupMenu1: TcxGridPopupMenu
     Grid = cxGrid1
     PopupMenus = <>
@@ -1333,8 +1392,8 @@ object frmJYOrderCDOne: TfrmJYOrderCDOne
     CompressThread = False
     LaterBuildEvents = True
     OnlyOwnerDataSet = False
-    Left = 424
+    Left = 400
-    Top = 256
+    Top = 328
     ReportData = {}
   end
   object RMDB_Main: TRMDBDataSet

检验管理/U_JYOrderCDOne.pas

@@ -125,7 +125,7 @@ type
     PRTHX: TEdit;
     v1Column4: TcxGridDBColumn;
     v1Column5: TcxGridDBColumn;
-    gangno: TEdit;
+    mjstr4: TEdit;
     Label15: TLabel;
     v1Column13: TcxGridDBColumn;
     v1Column18: TcxGridDBColumn;
@@ -167,6 +167,12 @@ type
     Tv1Column3: TcxGridDBColumn;
     ToolButton6: TToolButton;
     ToolButton7: TToolButton;
+    ToolButton8: TToolButton;
+    Panel7: TPanel;
+    Label20: TLabel;
+    ComboBox2: TComboBox;
+    Button3: TButton;
+    Button4: TButton;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -208,6 +214,9 @@ type
     procedure Image1Click(Sender: TObject);
     procedure ToolButton6Click(Sender: TObject);
     procedure ToolButton7Click(Sender: TObject);
+    procedure SOrddefstr1KeyPress(Sender: TObject; var Key: Char);
+    procedure ToolButton8Click(Sender: TObject);
+    procedure Button4Click(Sender: TObject);
   private
     DQdate: TDateTime;
     FLeft, FTop: Integer;
@@ -856,7 +865,7 @@ begin
   TBFind.Click;
   if Order_Main.IsEmpty = False then
   begin
-    //InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString),PRTColor,ADOQueryTemp);
+    InitOrderColor(Trim(Order_Main.fieldbyname('MainId').AsString), PRTColor, ADOQueryTemp);
     //InitBCGangNo(Trim(Order_Main.fieldbyname('SubId').AsString),AOrdDefStr1,ADOQueryTemp);
   end;
 end;
@@ -1377,8 +1386,8 @@ begin
 //    fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\쇱駱괩멩팹繫경.rmf';
   if FileExists(fPrintFile) then
   begin
-    RM2.LoadFromFile(fPrintFile);
+    RM1.LoadFromFile(fPrintFile);
-    RM2.ShowReport;
+    RM1.ShowReport;
   end
   else
   begin
@@ -1390,7 +1399,7 @@ end;
 
 procedure TfrmJYOrderCDOne.ToolButton5Click(Sender: TObject);
 var
-  fPrintFile, fPrintFile10, FMainID: string;
+  fPrintFile, fPrintFile10, FMainID, sqlstr: string;
 begin
   if Order_Main.IsEmpty then
     Exit;
@@ -1417,6 +1426,7 @@ begin
     sql.Add('SELECT * FROM TBSubID where 1=2 ');
     open;
   end;
+  sqlstr := '';
   FMainID := '';
   Order_Main.DisableControls;
   try
@@ -1442,10 +1452,15 @@ begin
               exit;
             end;
           end;
-          ADOQueryCmd.append;
+          sqlstr := sqlstr + 'insert into TBSubID(SubId,Dname) ';
-          ADOQueryCmd.fieldbyname('SubId').Value := Trim(Order_Main.fieldbyname('MJID').AsString);
+          sqlstr := sqlstr + ' values( ';
-          ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode);
+          sqlstr := sqlstr + ' ''' + Trim(Order_Main.fieldbyname('MJID').AsString) + ''', ';
-          ADOQueryCmd.post;
+          sqlstr := sqlstr + ' ''' + Trim(DCode) + ''' ';
+          sqlstr := sqlstr + ' ) ';
+//          ADOQueryCmd.append;
+//          ADOQueryCmd.fieldbyname('SubId').Value := Trim(Order_Main.fieldbyname('MJID').AsString);
+//          ADOQueryCmd.fieldbyname('Dname').Value := Trim(DCode);
+//          ADOQueryCmd.post;
         end;
         Next;
       end;
@@ -1455,6 +1470,14 @@ begin
     ADOQueryCmd.Connection.RollbackTrans;
   end;
   Order_Main.EnableControls;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add(sqlstr);
+//    showmessage(sql.text);
+    ExecSQL;
+  end;
   if trim(ComboBox1.Text) = '쇱駱쯤데' then
   begin
     with ADOQueryTemp do
@@ -1672,5 +1695,67 @@ begin
 
 end;
 
+procedure TfrmJYOrderCDOne.SOrddefstr1KeyPress(Sender: TObject; var Key: Char);
+var
+  fsj, FCXZD: string;
+begin
+  if Key = #13 then
+  begin
+    fsj := Trim(TEdit(Sender).text);
+    FCXZD := Trim(TEdit(Sender).name);
+    if Length(fsj) < 2 then
+      Exit;
+    MovePanel2.Visible := True;
+    MovePanel2.Refresh;
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        Close;
+        Filtered := False;
+        sql.Clear;
+        sql.Add('select A.*,');
+        sql.Add('C.OrderNo,C.MPRTCodeName,C.MPRTMF,C.MPRTKZ,C.CustomerNoName,B.*,');
+        sql.Add('KouFenQty=(select Sum(X.KouFenQty) from WFB_MJJY_CD X where X.MJID=A.MJID),');
+        sql.Add('CDQty=(select count(X.MJID) from WFB_MJJY_CD X where X.MJID=A.MJID)');
+        SQL.Add('from WFB_MJJY A');
+        sql.Add('inner join JYOrder_sub B on B.subID=A.subID ');
+        sql.Add('inner join JYOrder_Main C on C.MainID=A.MainID ');
+        sql.Add('where ' + FCXZD + '=' + quotedstr(trim(fsj)));
+//        ShowMessage(SQL.text);
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain, Order_Main);
+      SInitCDSData20(ADOQueryMain, Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+    MovePanel2.Visible := False;
+   // JSbaoNum();
+  end;
+
+end;
+
+procedure TfrmJYOrderCDOne.ToolButton8Click(Sender: TObject);
+begin
+
+  with ADOQueryTemp do                           
+  begin
+    Close;                                            
+    SQL.Clear;
+    sql.Add('exec P_JYorder_Cxdh ');
+    sql.add('@mainID=' + quotedstr(Trim(Order_Main.fieldbyname('MainId').AsString)));
+//    ShowMessage(SQL.text);
+    Open;
+  end;
+  Panel7.Visible := True;
+  Label20.Caption := 'ȱºÅ:' + ADOQueryTemp.fieldbyname('MJxh').AsString;
+end;
+
+procedure TfrmJYOrderCDOne.Button4Click(Sender: TObject);
+begin
+  Panel7.Visible := false;
+end;
+
 end.
 

检验管理/U_MJManageNewFDNew.dfm

@@ -1,6 +1,6 @@
 object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
-  Left = 223
+  Left = 477
-  Top = 122
+  Top = 290
   Width = 1265
   Height = 738
   Caption = #25104#21697#26816#39564
@@ -2267,7 +2267,6 @@ object frmMJManageNewFDNewSF: TfrmMJManageNewFDNewSF
           AutoSize = True
           Caption = #20462#25913
           ImageIndex = 54
-          Visible = False
           OnClick = ToolButton2Click
         end
         object TBClose: TToolButton

检验管理/U_MJManageNewFDNew.pas

@@ -337,7 +337,7 @@ type
     { Private declarations }
     FInt, PState, PrintInt, SCInitGrid, FState, FCK, FJYP: Integer;
     FColumn, FBanZu, FAPID, FMainId, FSubId, FFFMJID: string;
-    FJZ, FJC: Double;
+    FJZ, FJC, Fmachi: Double;
     fRollType, fRollType1: string;
     isCommopen, IsJsMessage: boolean;
     MValue, FCDName: string;
@@ -394,7 +394,7 @@ begin
 //        Label9.Caption := 'Y';
 
     end;
-    edit1.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]);
+//    edit1.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]);
   end;
 
 end;
@@ -693,6 +693,12 @@ begin
     Label35.Visible := true;
     Edit9.Visible := true;
     Label44.Visible := true;
+
+  end;
+  if Trim(DParameters1) = '高权限' then
+  begin
+    ToolButton2.Visible := true;
+//    showmessage('此界面为高权限!');
   end;
 end;
 
@@ -1049,8 +1055,17 @@ begin
       FieldByName('mjxh').Value := Trim(mjxh.Text);
       FieldByName('MJTypeOther').Value := Trim(Label9.Caption);
       FieldByName('MJStr1').Value := Trim(Label13.Caption);
+      if Fmachi > 1 then
+      begin
+        FieldByName('MJLen').Value := format('%.' + trim(fxsws) + 'f', [StrToFloatdef(trim(MJLen.Text), 0) / (Fmachi / 100) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc]);
 
+      end
+      else
+      begin
         FieldByName('MJLen').Value := StrToFloatdef(trim(MJLen.Text), 0) - StrToFloatdef(trim(MJQty2.Text), 0) + fjc;
+
+      end;
+
       FieldByName('MJQty1').Value := StrToFloatdef(trim(MJQty1.Text), 0);
       FieldByName('MJQty2').Value := StrToFloatdef(trim(MJQty2.Text), 0);
       FieldByName('MJQty3').Value := StrToFloatdef(trim(MJQty3.Text), 0);
@@ -1736,6 +1751,8 @@ begin
   Label21.Caption := Trim(FCDName);
   FInt := 11;
   Edit1.SetFocus;
+//  edit1.Text := format('%.' + trim(fxsws) + 'f', [i1 / 100000]);
+  edit1.Text := trim(MJLen.Text);
   //CDQty.SetFocus;
   Panel3.Visible := True;
   PState := 1;
@@ -1785,6 +1802,7 @@ begin
     Application.MessageBox('位置不能为空！','提示',0);
     exit;
   end;  }
+  edit2.Text := trim(MJLen.Text);
   if Trim(Edit1.Text) <> '' then
   begin
     if Trim(Edit2.Text) <> '' then
@@ -2239,6 +2257,7 @@ begin
     FSubId := Trim(ADOTmp.fieldbyname('SubId').AsString);
     FJZ := ADOTmp.fieldbyname('jiazhong').AsFloat;
     FJC := ADOTmp.fieldbyname('jiachang').AsFloat;
+    Fmachi := ADOTmp.fieldbyname('machi').asfloat;
     FJYP := StrToIntdef(ADOTmp.fieldbyname('jypiqty').asstring, 0);
     AOrdDefNote1.Text := '包装要求:' + #13 + Trim(ADOTmp.fieldbyname('MPRTBZNote').AsString) + #13                        //+'封条:'+Trim(ADOTmp.fieldbyname('MPRTYaoFeng').AsString)+#13
                         //+'烫金:'+Trim(ADOTmp.fieldbyname('MPRTTangJin').AsString)+#13
@@ -2492,6 +2511,18 @@ end;
 
 procedure TfrmMJManageNewFDNewSF.ToolButton2Click(Sender: TObject);
 begin
+  with ADOTmp do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add('select * from SY_PurView where ModuleId=''02'' and ModuleSubId =''98'' and UserID=''' + Trim(dname) + '''  ');
+    Open;
+  end;
+  if ADOTmp.IsEmpty then
+  begin
+    Application.MessageBox('此为高权限功能!', '提示', 0);
+    Exit;
+  end;
   if CDS_MJID.IsEmpty then
     exit;
   if CDS_MJCD.IsEmpty = False then

检验管理/U_OrderInPut.pas

@@ -611,6 +611,7 @@ begin
           fieldbyname('SordQty1').Value := Order_Sub.fieldbyname('SordQty1').AsFloat;
           fieldbyname('SordQty2').Value := Order_Sub.fieldbyname('SordQty2').AsFloat;
           fieldbyname('SordQty3').Value := Order_Sub.fieldbyname('SordQty3').AsFloat;
+          FieldByName('PRTColor').Value := trim(Order_Sub.FieldByName('PRTColor').AsString);
           FieldByName('Sorddefstr10').Value := Order_Sub.FieldByName('Sorddefstr10').AsString;
           FieldByName('khOrderNO').Value := trim(Order_Sub.FieldByName('khOrderNO').AsString);
           FieldByName('SLBName').Value := ExtractFileName(trim(SLBName.Text));

检验管理/U_ProductOrderLBNameSet.dfm

@@ -137,16 +137,24 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
       ImageIndex = 60
       OnClick = ToolButton9Click
     end
-    object ToolButton7: TToolButton
+    object ToolButton12: TToolButton
       Left = 261
       Top = 30
       AutoSize = True
+      Caption = #30721#23610#35774#32622
+      ImageIndex = 60
+      OnClick = ToolButton12Click
+    end
+    object ToolButton7: TToolButton
+      Left = 348
+      Top = 30
+      AutoSize = True
       Caption = #39044#35272#21367#26631#31614
       ImageIndex = 12
       OnClick = ToolButton7Click
     end
     object ToolButton8: TToolButton
-      Left = 360
+      Left = 447
       Top = 30
       AutoSize = True
       Caption = #39044#35272#21253#26631#31614
@@ -154,7 +162,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
       OnClick = ToolButton8Click
     end
     object PiZhong: TEdit
-      Left = 459
+      Left = 546
       Top = 30
       Width = 121
       Height = 30
@@ -167,7 +175,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
       TabOrder = 0
     end
     object TBClose: TToolButton
-      Left = 580
+      Left = 667
       Top = 30
       AutoSize = True
       Caption = #20851#38381
@@ -421,7 +429,7 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
     Align = alTop
     TabOrder = 2
     object Tv1: TcxGridDBTableView
-      NavigatorButtons.ConfirmDelete = False
+      Navigator.Buttons.CustomButtons = <>
       OnCellDblClick = Tv1CellDblClick
       DataController.DataSource = DataSource1
       DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -610,6 +618,24 @@ object frmProductOrderLBNameSet: TfrmProductOrderLBNameSet
         Options.Focusing = False
         Width = 65
       end
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #30721#23610
+        DataBinding.FieldName = 'machi'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #26579#21378#32568#21495
+        DataBinding.FieldName = 'PRTrcgh'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #27454#21495
+        DataBinding.FieldName = 'PRTKuanNo'
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1

检验管理/U_ProductOrderLBNameSet.pas

@@ -6,11 +6,26 @@ uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
   cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
-  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
-  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
+  cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
-  cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
+  cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
-  RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,StrUtils,
+  RM_Common, RM_Class, RM_GridReport, RM_e_Xls, StrUtils, Menus, cxDropDownEdit,
-  Menus, cxDropDownEdit,cxTextEdit;
+  cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
+  dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
+  dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
+  dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans,
+  dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
+  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
+  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
+  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
+  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
+  dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
+  dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
+  dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
+  dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
+  dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter,
+  cxNavigator;
 
 type
   TfrmProductOrderLBNameSet = class(TForm)
@@ -97,6 +112,10 @@ type
     v1Column7: TcxGridDBColumn;
     v1Column8: TcxGridDBColumn;
     ToolButton11: TToolButton;
+    Tv1Column1: TcxGridDBColumn;
+    ToolButton12: TToolButton;
+    Tv1Column2: TcxGridDBColumn;
+    Tv1Column3: TcxGridDBColumn;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -106,20 +125,13 @@ type
     procedure TBRafreshClick(Sender: TObject);
     procedure OrderNoChange(Sender: TObject);
     procedure FormShow(Sender: TObject);
-    procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
+    procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
-      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
-      AShift: TShiftState; var AHandled: Boolean);
     procedure CheckBox2Click(Sender: TObject);
-    procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView;
+    procedure Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
-      ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem;
+    procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
-      out AStyle: TcxStyle);
-    procedure v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView;
-      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
-      var ADone: Boolean);
     procedure ToolButton1Click(Sender: TObject);
     procedure OrderNoKeyPress(Sender: TObject; var Key: Char);
-    procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X,
+    procedure Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
-      Y: Integer);
     procedure Button1Click(Sender: TObject);
     procedure Image2Click(Sender: TObject);
     procedure ToolButton2Click(Sender: TObject);
@@ -134,6 +146,7 @@ type
     procedure ToolButton9Click(Sender: TObject);
     procedure ToolButton10Click(Sender: TObject);
     procedure ToolButton11Click(Sender: TObject);
+    procedure ToolButton12Click(Sender: TObject);
   private
     DQdate: TDateTime;
     procedure InitGrid();
@@ -149,7 +162,9 @@ type
 var
   frmProductOrderLBNameSet: TfrmProductOrderLBNameSet;
   newh: hwnd;
+
 implementation
+
 uses
   U_DataLink, U_OrderInPut, U_Fun;
 
@@ -160,8 +175,7 @@ begin
   frmProductOrderLBNameSet := nil;
 end;
 
-procedure TfrmProductOrderLBNameSet.FormClose(Sender: TObject;
+procedure TfrmProductOrderLBNameSet.FormClose(Sender: TObject; var Action: TCloseAction);
-  var Action: TCloseAction);
 begin
   Action := caFree;
 end;
@@ -201,7 +215,6 @@ begin
   end;
 end;
 
-
 procedure TfrmProductOrderLBNameSet.InitForm();
 begin
   ReadCxGrid('标签设置1', Tv1, '生产指示单管理');
@@ -212,11 +225,13 @@ end;
 
 procedure TfrmProductOrderLBNameSet.TBFindClick(Sender: TObject);
 begin
-  if ADOQueryMain.Active=False then Exit;
+  if ADOQueryMain.Active = False then
+    Exit;
   SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
   SCreateCDS20(ADOQueryMain, Order_Main);
   SInitCDSData20(ADOQueryMain, Order_Main);
 end;
+
 procedure TfrmProductOrderLBNameSet.TBPrintClick(Sender: TObject);
 begin
   Panel4.Visible := True;
@@ -244,7 +259,8 @@ end;
 
 procedure TfrmProductOrderLBNameSet.OrderNoChange(Sender: TObject);
 begin
-  if ADOQueryMain.Active=False then Exit;
+  if ADOQueryMain.Active = False then
+    Exit;
   SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
   SCreateCDS20(ADOQueryMain, Order_Main);
   SInitCDSData20(ADOQueryMain, Order_Main);
@@ -255,12 +271,10 @@ begin
   InitForm();
 end;
 
-procedure TfrmProductOrderLBNameSet.Tv1CellDblClick(
+procedure TfrmProductOrderLBNameSet.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
-  Sender: TcxCustomGridTableView;
-  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
-  AShift: TShiftState; var AHandled: Boolean);
 begin
-  if ToolButton1.Visible=False then Exit;
+  if ToolButton1.Visible = False then
+    Exit;
   ToolButton1.Click;
 end;
 
@@ -269,9 +283,7 @@ begin
   TBRafresh.Click;
 end;
 
-procedure TfrmProductOrderLBNameSet.Tv1StylesGetContentStyle(
+procedure TfrmProductOrderLBNameSet.Tv1StylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
-  Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
-  AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
 var
   id, id10: Integer;
 begin
@@ -299,9 +311,7 @@ begin
   end; }
 end;
 
-procedure TfrmProductOrderLBNameSet.v1DeliveryDateCustomDrawCell(
+procedure TfrmProductOrderLBNameSet.v1DeliveryDateCustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
-  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
-  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
 begin
  { Id:=TV1.GetColumnByFieldName('DeliveryDate').Index;//;-TV1.GroupedItemCount;
   Id10:=TV1.GetColumnByFieldName('SubStatus').Index;
@@ -338,7 +348,8 @@ end;
 
 procedure TfrmProductOrderLBNameSet.ToolButton1Click(Sender: TObject);
 begin
-  if Order_Main.IsEmpty then Exit;
+  if Order_Main.IsEmpty then
+    Exit;
   try
     frmOrderInPut := TfrmOrderInPut.Create(Application);
     with frmOrderInPut do
@@ -359,12 +370,12 @@ begin
   end;
 end;
 
-procedure TfrmProductOrderLBNameSet.OrderNoKeyPress(Sender: TObject;
+procedure TfrmProductOrderLBNameSet.OrderNoKeyPress(Sender: TObject; var Key: Char);
-  var Key: Char);
 begin
   if Key = #13 then
   begin
-    if Length(OrderNo.Text)<3 then Exit;
+    if Length(OrderNo.Text) < 3 then
+      Exit;
     try
       ADOQueryMain.DisableControls;
       with ADOQueryMain do
@@ -386,8 +397,7 @@ begin
   end;
 end;
 
-procedure TfrmProductOrderLBNameSet.Panel10MouseMove(Sender: TObject;
+procedure TfrmProductOrderLBNameSet.Panel10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
-  Shift: TShiftState; X, Y: Integer);
 begin
   ReleaseCapture;
   TWinControl(Panel4).Perform(WM_SYSCOMMAND, $F012, 0);
@@ -400,7 +410,8 @@ var
   i, j: Integer;
   OrderKg: Double;
 begin
-  if Order_Main.IsEmpty then Exit;
+  if Order_Main.IsEmpty then
+    Exit;
   LBName := RadioGroup1.Items.Strings[RadioGroup1.ItemIndex];
   fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + Trim(LBName) + '.rmf';
   if RadioGroup1.ItemIndex = 0 then
@@ -421,7 +432,8 @@ begin
       Open;
     end;
 
-  end else
+  end
+  else
   begin
     with ADOQueryPrint do
     begin
@@ -468,7 +480,8 @@ begin
     else
       RMVariables['OrderKg'] := '';
     RM1.ShowReport;
-  end else
+  end
+  else
   begin
     Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\' + Trim(LBName) + '.rmf'), '提示', 0);
   end;
@@ -481,22 +494,18 @@ end;
 
 procedure TfrmProductOrderLBNameSet.ToolButton2Click(Sender: TObject);
 type
-  TMyFunc = function(App:Tapplication; FormH:hwnd; FormID:integer;
+  TMyFunc = function(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; stdcall;
-                  Language: integer; WinStyle:integer;
-                  GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar;
-                  Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar;
-                  Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar;
-                  Parameters9:PChar;Parameters10:PChar;DataBaseStr:PChar):hwnd;stdcall;
 var
   Tf: TMyFunc;
   Tp: TFarProc;
   Th: Thandle;
-  LabInt,labname:String;
+  LabInt, labname: string;
   OpenDiaLog: TOpenDialog;
   fFileName: string;
   fFilePath: string;
 begin
-  IF Order_Main.IsEmpty then exit;
+  if Order_Main.IsEmpty then
+    exit;
   if Order_Main.Locate('SSel', True, []) = False then
   begin
     Application.MessageBox('没有选择数据！', '提示', 0);
@@ -513,13 +522,14 @@ begin
     end;
   finally
   end;
-  IF  trim(fFileName)='' then exit;
+  if trim(fFileName) = '' then
+    exit;
   with order_Main do
   begin
     first;
-    While not Eof do
+    while not Eof do
     begin
-      If FieldByName('Ssel').AsBoolean=true then
+      if FieldByName('Ssel').AsBoolean = true then
       begin
         with ADOQueryCmd do
         begin
@@ -536,8 +546,6 @@ begin
     end;
   end;
 
-
-
   with Order_Main do
   begin
     DisableControls;
@@ -559,7 +567,8 @@ var
   FPiZhong: string;
   FReal: Double;
 begin
- IF Order_Main.IsEmpty then exit;
+  if Order_Main.IsEmpty then
+    exit;
   if Order_Main.Locate('SSel', True, []) = False then
   begin
     Application.MessageBox('没有选择数据！', '提示', 0);
@@ -578,7 +587,7 @@ begin
   with order_Main do
   begin
     first;
-    While not Eof do
+    while not Eof do
     begin
       if order_Main.FieldByName('Ssel').AsBoolean = true then
       begin
@@ -637,19 +646,15 @@ end;
 
 procedure TfrmProductOrderLBNameSet.ToolButton4Click(Sender: TObject);
 type
-  TMyFunc = function(App:Tapplication; FormH:hwnd; FormID:integer;
+  TMyFunc = function(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; stdcall;
-                  Language: integer; WinStyle:integer;
-                  GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar;
-                  Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar;
-                  Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar;
-                  Parameters9:PChar;Parameters10:PChar;DataBaseStr:PChar):hwnd;stdcall;
 var
   Tf: TMyFunc;
   Tp: TFarProc;
   Th: Thandle;
-  LabInt,labname:String;
+  LabInt, labname: string;
 begin
-  IF Order_Main.IsEmpty then exit;
+  if Order_Main.IsEmpty then
+    exit;
   if Order_Main.Locate('SSel', True, []) = False then
   begin
     Application.MessageBox('没有选择数据！', '提示', 0);
@@ -664,15 +669,7 @@ begin
       if Tp <> nil then
       begin
         Tf := TMyFunc(Tp);
-        newh:=Tf(Application,0,2,0,0,
+        newh := Tf(Application, 0, 2, 0, 0, PChar(DCode), PChar(DName), PChar(Ddatabase), PChar('标签模版设置'), PChar(''), PChar(''), '', '', '', '', '', '', '', '', PChar(DConString));
-          PChar(DCode),
-          PChar(DName),
-          PChar(Ddatabase),
-          PChar('±êÇ©Ä£°æÉèÖÃ'),
-          PChar(''),
-          PChar(''),
-          '','','','','','','','',PChar(DConString)
-          );
         if Trim(PChar(Ddatabase)) <> '' then
         begin
           Ddatabase := Trim(PChar(Ddatabase));
@@ -681,7 +678,7 @@ begin
           with order_Main do
           begin
             first;
-              While not Eof do
+            while not Eof do
             begin
               if order_Main.FieldByName('Ssel').AsBoolean = true then
               begin
@@ -733,8 +730,7 @@ begin
   end;
 end;
 
-procedure TfrmProductOrderLBNameSet.v1Column2PropertiesEditValueChanged(
+procedure TfrmProductOrderLBNameSet.v1Column2PropertiesEditValueChanged(Sender: TObject);
-  Sender: TObject);
 var
   mvalues: string;
 begin
@@ -764,7 +760,8 @@ var
   FPiZhong: string;
   FReal: Double;
 begin
- IF Order_Main.IsEmpty then exit;
+  if Order_Main.IsEmpty then
+    exit;
   if Order_Main.Locate('SSel', True, []) = False then
   begin
     Application.MessageBox('没有选择数据！', '提示', 0);
@@ -783,7 +780,7 @@ begin
   with order_Main do
   begin
     first;
-    While not Eof do
+    while not Eof do
     begin
       if order_Main.FieldByName('Ssel').AsBoolean = true then
       begin
@@ -828,7 +825,8 @@ var
   FPiZhong: string;
   FReal: Double;
 begin
- IF Order_Main.IsEmpty then exit;
+  if Order_Main.IsEmpty then
+    exit;
   if Order_Main.Locate('SSel', True, []) = False then
   begin
     Application.MessageBox('没有选择数据！', '提示', 0);
@@ -847,7 +845,7 @@ begin
   with order_Main do
   begin
     first;
-    While not Eof do
+    while not Eof do
     begin
       if order_Main.FieldByName('Ssel').AsBoolean = true then
       begin
@@ -889,14 +887,16 @@ end;
 
 procedure TfrmProductOrderLBNameSet.ToolButton7Click(Sender: TObject);
 var
-   fPrintFile:String;
+  fPrintFile: string;
   Txt, fImagePath: string;
   Moudle: THandle;
   Makebar: TMakebar;
   Mixtext: TMixtext;
 begin
- IF Order_Main.IsEmpty then exit;
+  if Order_Main.IsEmpty then
-  IF trim(Order_Main.fieldbyname('SLbName').AsString)='' then exit;
+    exit;
+  if trim(Order_Main.fieldbyname('SLbName').AsString) = '' then
+    exit;
 
   with ADOQueryPrint do
   begin
@@ -914,7 +914,8 @@ begin
     fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
     if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
       CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
-    if FileExists(fImagePath) then DeleteFile(fImagePath);
+    if FileExists(fImagePath) then
+      DeleteFile(fImagePath);
     Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
   except
     application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
@@ -933,19 +934,20 @@ begin
     Application.MessageBox(PChar('没有找到' + trim(fPrintFile)), '提示信息', 0);
   end;
 
-
 end;
 
 procedure TfrmProductOrderLBNameSet.ToolButton8Click(Sender: TObject);
 var
-   fPrintFile:String;
+  fPrintFile: string;
   Txt, fImagePath: string;
   Moudle: THandle;
   Makebar: TMakebar;
   Mixtext: TMixtext;
 begin
-  IF Order_Main.IsEmpty then exit;
+  if Order_Main.IsEmpty then
-  IF trim(Order_Main.fieldbyname('NLBName').AsString)='' then exit;
+    exit;
+  if trim(Order_Main.fieldbyname('NLBName').AsString) = '' then
+    exit;
   with ADOQueryPrint do
   begin
     Close;
@@ -962,7 +964,8 @@ begin
     fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
     if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
       CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
-    if FileExists(fImagePath) then DeleteFile(fImagePath);
+    if FileExists(fImagePath) then
+      DeleteFile(fImagePath);
     Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
   except
     application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
@@ -988,7 +991,8 @@ var
   FPiZhong: string;
   FReal: Double;
 begin
- IF Order_Main.IsEmpty then exit;
+  if Order_Main.IsEmpty then
+    exit;
   if Order_Main.Locate('SSel', True, []) = False then
   begin
     Application.MessageBox('没有选择数据！', '提示', 0);
@@ -1007,7 +1011,7 @@ begin
   with order_Main do
   begin
     first;
-    While not Eof do
+    while not Eof do
     begin
       if order_Main.FieldByName('Ssel').AsBoolean = true then
       begin
@@ -1052,7 +1056,8 @@ var
   FPiZhong: string;
   FReal: Double;
 begin
- IF Order_Main.IsEmpty then exit;
+  if Order_Main.IsEmpty then
+    exit;
   if Order_Main.Locate('SSel', True, []) = False then
   begin
     Application.MessageBox('没有选择数据！', '提示', 0);
@@ -1071,7 +1076,7 @@ begin
   with order_Main do
   begin
     first;
-    While not Eof do
+    while not Eof do
     begin
       if order_Main.FieldByName('Ssel').AsBoolean = true then
       begin
@@ -1115,7 +1120,8 @@ var
   FPiZhong: string;
   FReal: Double;
 begin
- IF Order_Main.IsEmpty then exit;
+  if Order_Main.IsEmpty then
+    exit;
   if Order_Main.Locate('SSel', True, []) = False then
   begin
     Application.MessageBox('没有选择数据！', '提示', 0);
@@ -1134,7 +1140,7 @@ begin
   with order_Main do
   begin
     first;
-    While not Eof do
+    while not Eof do
     begin
       if order_Main.FieldByName('Ssel').AsBoolean = true then
       begin
@@ -1173,4 +1179,70 @@ begin
   end;
 end;
 
+procedure TfrmProductOrderLBNameSet.ToolButton12Click(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 machi=' + Trim(PiZhong.Text));
+          sql.Add(' where Subid=''' + Trim(Order_Main.fieldbyname('Subid').AsString) + '''');
+          ExecSQL;
+        end;
+        with Order_Main do
+        begin                                                 
+          Edit;
+          FieldByName('machi').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.
+