问题

项目代码/wenshangkm/G01贸易生产计划/ProjectGroup1.groupproj.local

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Default.Personality>
-		<Projects ActiveProject="D:\rtgit\D10djdPack\项目代码\djdPack\G01贸易生产计划\djdPackPlan.dproj"/>
+		<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10djdPackwenshang\项目代码\wenshangkm\G01贸易生产计划\djdPackPlan.dproj"/>
 	</Default.Personality>
 </BorlandProject>

项目代码/wenshangkm/G01贸易生产计划/U_GetDllForm.pas

@@ -73,15 +73,11 @@ begin
 
   if trim(DataBaseStr) = '' then
   begin
-    server := '101.132.143.144,7781';
+    server := '139.129.50.31,7781';
-   //server:='192.168.110.193,7781';
+//   server:='.';
-    dtbase := 'RTBasicsData';
+    dtbase := 'kaimengjydata';
-//    dtbase := 'ruifengsyjyData';
+    user := 'kaimengsa';
-  // dtbase:='jingpinjydata' ;
+    pswd := 'rightsoft@5078';
-  // dtbase := 'sanhaojydata';
-    user := 'rtsa';
-    pswd :='rightsoft@5740'; //'rightsoft@123';
-
     DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
     Parameters1 := '管理';
 //    Parameters1 := '高权限';

项目代码/wenshangkm/G01贸易生产计划/U_PlanDR.dfm

@@ -1,7 +1,7 @@
 object frmPlanDR: TfrmPlanDR
   Left = 484
   Top = 189
-  Caption = #24212#25910#27454#23548#20837
+  Caption = #26126#32454#20449#24687#23548#20837
   ClientHeight = 504
   ClientWidth = 1530
   Color = clWhite
@@ -114,16 +114,10 @@ object frmPlanDR: TfrmPlanDR
       OptionsData.DeletingConfirmation = False
       OptionsView.Footer = True
       OptionsView.GroupByBox = False
-      object v2CRTime: TcxGridDBColumn
+      object Tv1Column1: TcxGridDBColumn
         Caption = 'DATATIME'
-        DataBinding.FieldName = 'Filltime'
+        DataBinding.FieldName = 'filltime'
         DataBinding.IsNullValueType = True
-        PropertiesClassName = 'TcxDateEditProperties'
-        Properties.SaveTime = False
-        Properties.ShowTime = False
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
       end
       object v2Column2: TcxGridDBColumn
         Caption = 'ART'
@@ -135,7 +129,7 @@ object frmPlanDR: TfrmPlanDR
       end
       object v2FactoryName: TcxGridDBColumn
         Caption = 'LOT'
-        DataBinding.FieldName = 'Batchno'
+        DataBinding.FieldName = 'BatchNo'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
@@ -150,7 +144,7 @@ object frmPlanDR: TfrmPlanDR
         Width = 66
       end
       object Tv1Column3: TcxGridDBColumn
-        Caption = 'IO'
+        Caption = 'ID'
         DataBinding.FieldName = 'PieceNo'
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
@@ -165,14 +159,6 @@ object frmPlanDR: TfrmPlanDR
         Options.Editing = False
         Width = 66
       end
-      object Tv1Column2: TcxGridDBColumn
-        Caption = #22791#27880
-        DataBinding.FieldName = 'Note'
-        DataBinding.IsNullValueType = True
-        HeaderAlignmentHorz = taCenter
-        Options.Editing = False
-        Width = 66
-      end
     end
     object cxGridLevel1: TcxGridLevel
       GridView = Tv1
@@ -186,8 +172,8 @@ object frmPlanDR: TfrmPlanDR
   object CDS_Import: TClientDataSet
     Aggregates = <>
     Params = <>
-    Left = 384
+    Left = 632
-    Top = 252
+    Top = 124
   end
   object GPM_1: TcxGridPopupMenu
     PopupMenus = <>
@@ -222,4 +208,28 @@ object frmPlanDR: TfrmPlanDR
     Left = 184
     Top = 229
   end
+  object CDS_1: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 624
+    Top = 176
+  end
+  object CDS_4: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 640
+    Top = 344
+  end
+  object CDS_2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 616
+    Top = 240
+  end
+  object CDS_3: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 632
+    Top = 288
+  end
 end

项目代码/wenshangkm/G01贸易生产计划/U_PlanDR.pas

@@ -45,15 +45,18 @@ type
     CDS_LM: TClientDataSet;
     cxGrid1: TcxGrid;
     Tv1: TcxGridDBTableView;
-    v2CRTime: TcxGridDBColumn;
     v2Column2: TcxGridDBColumn;
     v2FactoryName: TcxGridDBColumn;
     v2OrderNo: TcxGridDBColumn;
     Tv1Column3: TcxGridDBColumn;
     Tv1Column19: TcxGridDBColumn;
-    Tv1Column2: TcxGridDBColumn;
     cxGridLevel1: TcxGridLevel;
     ADOCmd: TADOQuery;
+    CDS_1: TClientDataSet;
+    Tv1Column1: TcxGridDBColumn;
+    CDS_4: TClientDataSet;
+    CDS_2: TClientDataSet;
+    CDS_3: TClientDataSet;
     procedure TBCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TSaveClick(Sender: TObject);
@@ -61,12 +64,9 @@ type
     procedure v1P_SpecPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure v1QtyUnitPropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure FormDestroy(Sender: TObject);
-    procedure Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure Tv1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-    procedure Tv1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure ToolButton2Click(Sender: TObject);
     procedure ToolButton3Click(Sender: TObject);
-    procedure Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure ToolButton4Click(Sender: TObject);
   private
     procedure initGrid();
@@ -141,6 +141,9 @@ begin
         fieldbyname('OrdQty').Value := '0';
       end;
 //    LRTSetsavedata(ADOCmd, 'Trade_Plan_Main', dxLayoutControl_bzplan, 2);
+      fieldbyname('C_Code').Value := Trim(CDS_Import.fieldbyname('C_Code').AsString);
+      fieldbyname('C_Name').Value := Trim(CDS_Import.fieldbyname('C_Name').AsString);
+      fieldbyname('batchNo').Value := Trim(CDS_Import.fieldbyname('BatchNo').AsString);
       fieldbyname('MainId').Value := trim(JMmaxno);
       fieldbyname('SubId').Value := trim(JSmaxno);
       Post;
@@ -150,6 +153,20 @@ begin
       first;
       while not eof do
       begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('select * from Trade_Cloth_Inspect where BCIOID=''' + Trim(CDS_Import.fieldbyname('BCIOID').AsString) + '''  ');
+          open;
+        end;
+        if not ADOQueryCmd.IsEmpty then
+        begin
+          ADOQueryCmd.Connection.RollbackTrans;
+          Application.MessageBox(PChar(Trim(CDS_Import.fieldbyname('BCIOID').AsString) + '已经存在'), '提示', 0);
+          exit;
+        end;
+
         if fieldbyname('CIID').AsString = '' then
         begin
           if GetLSNo(ADOQueryTmp, MaxNo, '', 'Trade_Cloth_Inspect', 4, 1) = False then
@@ -181,10 +198,11 @@ begin
         end;
         RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Import, 'Trade_Cloth_Inspect', 0);
         ADOQueryCmd.fieldbyname('CIID').Value := MaxNo;
+        ADOQueryCmd.fieldbyname('PCID').Value := MaxNo;
         ADOQueryCmd.FieldByName('Orderno').Value := JMmaxno;
         ADOQueryCmd.FieldByName('mainid').Value := JMmaxno;
         ADOQueryCmd.FieldByName('subid').Value := JSmaxno;
-        ADOQueryCmd.fieldbyName('CIIOFlag').value := '未入库';
+        ADOQueryCmd.fieldbyName('CIIOFlag').value := '未检验';
         ADOQueryCmd.fieldbyName('Coefficient').value := '0';
         ADOQueryCmd.fieldbyName('Yardage').value := '0';
         ADOQueryCmd.fieldbyName('Meter').value := '0';
@@ -219,7 +237,7 @@ begin
   begin
     close;
     sql.Clear;
-    sql.Add('select * from Trade_Cloth_Inspect where CIID=''' + trim(FFFID) + '''');
+    sql.Add('select *,'''' as mjxh1 from Trade_Cloth_Inspect where CIID=''' + trim(FFFID) + '''');
 //    sql.add(' and isnull(status,''0'')=''0''');
     open;
   end;
@@ -246,16 +264,52 @@ begin
     close;
     CreateDataSet;
   end;
+  with CDS_1 do
+  begin
+    FieldDefs.Clear;
+    FieldDefs.Add('LXH', ftInteger, 0);
+    FieldDefs.Add('lCode', ftString, 40);
+    FieldDefs.Add('LName', ftString, 40);
+    close;
+    CreateDataSet;
+  end;
+  with CDS_2 do
+  begin
+    FieldDefs.Clear;
+    FieldDefs.Add('LXH', ftInteger, 0);
+    FieldDefs.Add('lCode', ftString, 40);
+    FieldDefs.Add('LName', ftString, 40);
+    close;
+    CreateDataSet;
+  end;
+  with CDS_3 do
+  begin
+    FieldDefs.Clear;
+    FieldDefs.Add('LXH', ftInteger, 0);
+    FieldDefs.Add('lCode', ftString, 40);
+    FieldDefs.Add('LName', ftString, 40);
+    close;
+    CreateDataSet;
+  end;
+  with CDS_4 do
+  begin
+    FieldDefs.Clear;
+    FieldDefs.Add('LXH', ftInteger, 0);
+    FieldDefs.Add('lCode', ftString, 40);
+    FieldDefs.Add('LName', ftString, 40);
+    close;
+    CreateDataSet;
+  end;
   initGrid();
 end;
 
 procedure TfrmPlanDR.TSaveClick(Sender: TObject);
 begin
-//  if CDS_Import.Locate('IO', null, []) then
+  if CDS_Import.Locate('BCIOID', null, []) then
-//  begin
+  begin
-//    application.MessageBox('IO不能为空', '提示');
+    application.MessageBox('卷号不能为空', '提示');
-//    exit;
+    exit;
-//  end;
+  end;
 //  if CDS_Import.Locate('ROLLLNO', null, []) then
 //  begin
 //    application.MessageBox('ROLLLNO不能为空', '提示');
@@ -334,27 +388,6 @@ begin
   frmPlanDR := nil;
 end;
 
-procedure TfrmPlanDR.Tv1Column2PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-begin
-  try
-    frmCompanySel := TfrmCompanySel.Create(Application);
-    with frmCompanySel do
-    begin
-      FCoType := '我司';
-      if ShowModal = 1 then
-      begin
-
-        Self.CDS_Import.Edit;
-        Self.CDS_Import.FieldByName('OurCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
-        Self.CDS_Import.FieldByName('OurCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
-
-      end;
-    end;
-  finally
-    frmCompanySel.Free;
-  end;
-end;
-
 procedure TfrmPlanDR.Tv1Column3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
 begin
   try
@@ -375,46 +408,6 @@ begin
   end;
 end;
 
-procedure TfrmPlanDR.Tv1Column4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-begin
-  try
-    frmCompanySel := TfrmCompanySel.Create(Application);
-    with frmCompanySel do
-    begin
-      FCoType := '客户';
-      if ShowModal = 1 then
-      begin
-        Self.CDS_Import.Edit;
-        Self.CDS_Import.FieldByName('OppCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
-        Self.CDS_Import.FieldByName('OppCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
-        Self.CDS_Import.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
-        Self.CDS_Import.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
-      end;
-    end;
-  finally
-    frmCompanySel.Free;
-  end;
-end;
-
-procedure TfrmPlanDR.Tv1Column6PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
-begin
-  try
-    frmCompanySel := TfrmCompanySel.Create(Application);
-    with frmCompanySel do
-    begin
-      FCoType := '客户';
-      if ShowModal = 1 then
-      begin
-        Self.CDS_Import.Edit;
-        Self.CDS_Import.FieldByName('OppParentCoNo').Value := Trim(CDS_1.fieldbyname('CoCode').AsString);
-        Self.CDS_Import.FieldByName('OppParentCoName').Value := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
-      end;
-    end;
-  finally
-    frmCompanySel.Free;
-  end;
-end;
-
 procedure TfrmPlanDR.ToolButton2Click(Sender: TObject);
 begin
   if CDS_Import.IsEmpty then
@@ -432,6 +425,9 @@ var
   excelApp, WorkBook: Variant;
   i, j, k, LX, ExcelRowCount: integer;
   maxId, FCPID, FCPName, t1, t2, t3, FFID: string;
+  Parts, KeyValuePairs: TStringList;
+  ColonPos: Integer;
+  Key, Value, AData: string;
 begin
 
   try
@@ -451,6 +447,30 @@ begin
   end;
 
   CDS_LM.EmptyDataSet;
+  CDS_1.EmptyDataSet;
+  CDS_2.EmptyDataSet;
+  CDS_3.EmptyDataSet;
+  CDS_4.EmptyDataSet;
+
+  Parts := TStringList.Create;
+  KeyValuePairs := TStringList.Create;
+
+  AData := WorkBook.WorkSheets[1].Cells[3, 2].Value;
+    // 按竖线分割
+  ExtractStrings(['|'], [' '], PChar(AData), Parts);
+
+    // 处理每个部分
+  for i := 0 to Parts.Count - 1 do
+  begin
+      // 找到冒号位置
+    ColonPos := Pos(':', Trim(Parts[i]));
+    if ColonPos > 0 then
+    begin
+      Key := Trim(Copy(Parts[i], 1, ColonPos - 1));
+      Value := Trim(Copy(Parts[i], ColonPos + 1, Length(Parts[i])));
+      KeyValuePairs.Values[Key] := Value;
+    end;
+  end;
 
   for j := 0 to Tv1.ColumnCount - 1 do
   begin
@@ -461,14 +481,43 @@ begin
       FieldByName('LName').Value := trim(Tv1.Columns[j].Caption);
       Post;
     end;
+    with CDS_1 do
+    begin
+      Append;
+      FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName);
+      FieldByName('LName').Value := trim(Tv1.Columns[j].Caption);
+      Post;
+    end;
+    with CDS_2 do
+    begin
+      Append;
+      FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName);
+      FieldByName('LName').Value := trim(Tv1.Columns[j].Caption);
+      Post;
+    end;
+    with CDS_3 do
+    begin
+      Append;
+      FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName);
+      FieldByName('LName').Value := trim(Tv1.Columns[j].Caption);
+      Post;
+    end;
+    with CDS_4 do
+    begin
+      Append;
+      FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName);
+      FieldByName('LName').Value := trim(Tv1.Columns[j].Caption);
+      Post;
+    end;
   end;
 
   try
-    for i := 1 to 50 do
+    for i := 2 to 3 do
     begin
-      if trim(WorkBook.WorkSheets[1].Cells[1, i].value) = '' then
+      if trim(WorkBook.WorkSheets[1].Cells[6, i].Value) = '' then
         continue;
-      if CDS_LM.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[1, i].value), []) then
+      t2 := trim(WorkBook.WorkSheets[1].Cells[1, i].Value);
+      if CDS_LM.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[6, i].Value), []) then
       begin
         with CDS_LM do
         begin
@@ -478,13 +527,72 @@ begin
         end;
       end;
     end;
+    for i := 4 to 5 do
+    begin
+      if trim(WorkBook.WorkSheets[1].Cells[6, i].Value) = '' then
+        continue;
+      t2 := trim(WorkBook.WorkSheets[1].Cells[6, i].Value);
+      if CDS_1.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[6, i].Value), []) then
+      begin
+        t2 := trim(WorkBook.WorkSheets[1].Cells[6, i].Value);
+        with CDS_1 do
+        begin
+          Edit;
+          FieldByName('LXH').Value := i;
+          Post;
+        end;
+      end;
+    end;
+    for i := 6 to 7 do
+    begin
+      if trim(WorkBook.WorkSheets[1].Cells[6, i].Value) = '' then
+        continue;
+      if CDS_2.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[6, i].Value), []) then
+      begin
+        with CDS_2 do
+        begin
+          Edit;
+          FieldByName('LXH').Value := i;
+          Post;
+        end;
+      end;
+    end;
+    for i := 8 to 9 do
+    begin
+      if trim(WorkBook.WorkSheets[1].Cells[6, i].Value) = '' then
+        continue;
+      if CDS_3.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[6, i].Value), []) then
+      begin
+        with CDS_3 do
+        begin
+          Edit;
+          FieldByName('LXH').Value := i;
+          Post;
+        end;
+      end;
+    end;
+    for i := 11 to 12 do
+    begin
+      if trim(WorkBook.WorkSheets[1].Cells[6, i].Value) = '' then
+        continue;
+      t2 := trim(WorkBook.WorkSheets[1].Cells[1, i].Value);
+      if CDS_4.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[6, i].Value), []) then
+      begin
+        with CDS_4 do
+        begin
+          Edit;
+          FieldByName('LXH').Value := i;
+          Post;
+        end;
+      end;
+    end;
   except
     application.MessageBox('加载数组错误！', '错误信息', MB_ICONERROR);
     exit;
   end;
 
   try
-    for i := 2 to ExcelRowCount do
+    for i := 7 to ExcelRowCount do
     begin
       with CDS_Import do
       begin
@@ -493,12 +601,119 @@ begin
         while not CDS_LM.Eof do
         begin
           if CDS_LM.FieldByName('LXH').AsInteger > 0 then
+          begin
             CDS_Import.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value;
+            CDS_Import.FieldByName('C_Name').AsString := KeyValuePairs.Values['ART'];
+            CDS_Import.FieldByName('BatchNo').AsString := KeyValuePairs.Values['LOT'];
+            CDS_Import.FieldByName('C_Code').AsString := KeyValuePairs.Values['GUID'];
+            CDS_Import.FieldByName('Filltime').AsDateTime := StrToDateTimeDef(KeyValuePairs.Values['DATETIME'], Now);
+          end;
           CDS_LM.Next;
         end;
         Post;
       end;
     end;
+    for i := 7 to ExcelRowCount do
+    begin
+      with CDS_Import do
+      begin
+        Append;
+        CDS_1.First;
+        while not CDS_1.Eof do
+        begin
+          if CDS_1.FieldByName('LXH').AsInteger > 0 then
+          begin
+            CDS_Import.fieldbyname(CDS_1.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_1.FieldByName('LXH').AsInteger].Value;
+            CDS_Import.FieldByName('C_Name').AsString := KeyValuePairs.Values['ART'];
+            CDS_Import.FieldByName('BatchNo').AsString := KeyValuePairs.Values['LOT'];
+            CDS_Import.FieldByName('C_Code').AsString := KeyValuePairs.Values['GUID'];
+            CDS_Import.FieldByName('Filltime').AsDateTime := StrToDateTimeDef(KeyValuePairs.Values['DATETIME'], Now);
+          end;
+          CDS_1.Next;
+        end;
+        Post;
+      end;
+    end;
+    for i := 7 to ExcelRowCount do
+    begin
+      with CDS_Import do
+      begin
+        Append;
+        CDS_2.First;
+        while not CDS_2.Eof do
+        begin
+          if CDS_2.FieldByName('LXH').AsInteger > 0 then
+          begin
+            CDS_Import.fieldbyname(CDS_2.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_2.FieldByName('LXH').AsInteger].Value;
+            CDS_Import.FieldByName('C_Name').AsString := KeyValuePairs.Values['ART'];
+            CDS_Import.FieldByName('BatchNo').AsString := KeyValuePairs.Values['LOT'];
+            CDS_Import.FieldByName('C_Code').AsString := KeyValuePairs.Values['GUID'];
+            CDS_Import.FieldByName('Filltime').AsDateTime := StrToDateTimeDef(KeyValuePairs.Values['DATETIME'], Now);
+          end;
+          CDS_2.Next;
+        end;
+        Post;
+      end;
+    end;
+    for i := 7 to ExcelRowCount do
+    begin
+      with CDS_Import do
+      begin
+        Append;
+        CDS_3.First;
+        while not CDS_3.Eof do
+        begin
+          if CDS_3.FieldByName('LXH').AsInteger > 0 then
+          begin
+            CDS_Import.fieldbyname(CDS_3.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_3.FieldByName('LXH').AsInteger].Value;
+            CDS_Import.FieldByName('C_Name').AsString := KeyValuePairs.Values['ART'];
+            CDS_Import.FieldByName('BatchNo').AsString := KeyValuePairs.Values['LOT'];
+            CDS_Import.FieldByName('C_Code').AsString := KeyValuePairs.Values['GUID'];
+            CDS_Import.FieldByName('Filltime').AsDateTime := StrToDateTimeDef(KeyValuePairs.Values['DATETIME'], Now);
+          end;
+          CDS_3.Next;
+        end;
+        Post;
+      end;
+    end;
+    for i := 7 to ExcelRowCount do
+    begin
+      with CDS_Import do
+      begin
+        Append;
+        CDS_4.First;
+        while not CDS_4.Eof do
+        begin
+          if CDS_4.FieldByName('LXH').AsInteger > 0 then
+          begin
+            CDS_Import.fieldbyname(CDS_4.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_4.FieldByName('LXH').AsInteger].Value;
+            CDS_Import.FieldByName('C_Name').AsString := KeyValuePairs.Values['ART'];
+            CDS_Import.FieldByName('BatchNo').AsString := KeyValuePairs.Values['LOT'];
+            CDS_Import.FieldByName('C_Code').AsString := KeyValuePairs.Values['GUID'];
+            CDS_Import.FieldByName('Filltime').AsDateTime := StrToDateTimeDef(KeyValuePairs.Values['DATETIME'], Now);
+          end;
+          CDS_4.Next;
+        end;
+        Post;
+      end;
+    end;
+
+    with CDS_Import do
+    begin
+      First; // 移动到第一条记录
+      while not Eof do
+      begin
+        if Trim(FieldByName('bcioid').AsString) = '' then
+        begin
+          Edit;
+          Delete;
+        end
+        else
+        begin
+          Next; // 移动到下一条记录
+        end;
+      end;
+    end;
     WorkBook.Close;
     excelApp.Quit;
     excelApp := Unassigned;
@@ -511,6 +726,9 @@ begin
     exit;
   end;
 
+  Parts.Free;
+  KeyValuePairs.Free;
+
 end;
 
 end.

项目代码/wenshangkm/G01贸易生产计划/U_TradePlanInPut.dfm

@@ -234,7 +234,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       object DLYDate: TcxDateEdit
         Tag = 2
         Left = 67
-        Top = 49
+        Top = 44
         Properties.SaveTime = False
         Properties.ShowTime = False
         Style.HotTrack = False
@@ -245,7 +245,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       object saleser: TcxButtonEdit
         Tag = 2
         Left = 247
-        Top = 49
+        Top = 44
         Hint = 'saleser/'#19994#21153#21592
         Properties.Buttons = <
           item
@@ -262,7 +262,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       object factoryName: TcxButtonEdit
         Tag = 2
         Left = 446
-        Top = 49
+        Top = 44
         Hint = 'FtyName/'#21152#24037#21378
         Properties.Buttons = <
           item
@@ -279,7 +279,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       object Gilding: TcxButtonEdit
         Tag = 2
         Left = 67
-        Top = 85
+        Top = 74
         Hint = 'Gilding/'#28907#37329
         Properties.Buttons = <
           item
@@ -296,7 +296,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       object PackSeal: TcxButtonEdit
         Tag = 2
         Left = 657
-        Top = 85
+        Top = 74
         Hint = 'PackSeal/'#23553#26465
         Properties.Buttons = <
           item
@@ -317,7 +317,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       object ShippingSample: TcxButtonEdit
         Tag = 2
         Left = 247
-        Top = 85
+        Top = 74
         Hint = 'ShippingSample/'#33337#26679
         AutoSize = False
         Properties.Buttons = <
@@ -330,13 +330,13 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         Style.HotTrack = False
         Style.TransparentBorder = False
         TabOrder = 8
-        Height = 29
+        Height = 25
         Width = 150
       end
       object SizeNote: TcxButtonEdit
         Tag = 2
         Left = 446
-        Top = 85
+        Top = 74
         Hint = 'SizeNote/'#24320#21098
         Properties.Buttons = <
           item
@@ -353,7 +353,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       object OrdNote: TcxMemo
         Tag = 2
         Left = 67
-        Top = 241
+        Top = 220
         Properties.ScrollBars = ssVertical
         Style.HotTrack = False
         Style.TransparentBorder = False
@@ -364,7 +364,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       object PackNote: TcxMemo
         Tag = 2
         Left = 67
-        Top = 157
+        Top = 136
         Properties.ScrollBars = ssVertical
         Style.HotTrack = False
         Style.TransparentBorder = False
@@ -437,7 +437,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         StyleDisabled.LookAndFeel.SkinName = 'WXI'
         StyleFocused.LookAndFeel.SkinName = 'WXI'
         StyleHot.LookAndFeel.SkinName = 'WXI'
-        TabOrder = 26
+        TabOrder = 23
         Visible = False
         Width = 131
       end
@@ -466,7 +466,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       end
       object LabVolume: TcxButtonEdit
         Left = 67
-        Top = 121
+        Top = 106
         Properties.Buttons = <
           item
             Default = True
@@ -482,7 +482,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       end
       object LabPackage: TcxButtonEdit
         Left = 299
-        Top = 121
+        Top = 106
         Properties.Buttons = <
           item
             Default = True
@@ -594,7 +594,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         AllowRemove = False
         CaptionOptions.Text = '[COLOR=#FF0000]*[/COLOR]'#35746#21333#21495
         Control = OrderNo
-        ControlOptions.OriginalHeight = 29
+        ControlOptions.OriginalHeight = 23
         ControlOptions.OriginalWidth = 131
         ControlOptions.ShowBorder = False
         Index = 0
@@ -606,7 +606,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         AllowRemove = False
         CaptionOptions.Text = #23458'  '#25143
         Control = CustName
-        ControlOptions.OriginalHeight = 29
+        ControlOptions.OriginalHeight = 23
         ControlOptions.OriginalWidth = 150
         ControlOptions.ShowBorder = False
         Index = 1
@@ -617,7 +617,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         SizeOptions.SizableHorz = True
         CaptionOptions.Text = #21512#21516#21495
         Control = ConNo
-        ControlOptions.OriginalHeight = 29
+        ControlOptions.OriginalHeight = 23
         ControlOptions.OriginalWidth = 150
         ControlOptions.ShowBorder = False
         Index = 2
@@ -629,7 +629,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         AllowRemove = False
         CaptionOptions.Text = #25490#21333#26085#26399
         Control = OrdDate
-        ControlOptions.OriginalHeight = 29
+        ControlOptions.OriginalHeight = 23
         ControlOptions.OriginalWidth = 131
         ControlOptions.ShowBorder = False
         Index = 3
@@ -648,7 +648,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         SizeOptions.SizableHorz = True
         CaptionOptions.Text = #21152#24037#21378
         Control = factoryName
-        ControlOptions.OriginalHeight = 29
+        ControlOptions.OriginalHeight = 23
         ControlOptions.OriginalWidth = 150
         ControlOptions.ShowBorder = False
         Index = 2
@@ -660,7 +660,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         AllowRemove = False
         CaptionOptions.Text = #20132#36135#26085#26399
         Control = DLYDate
-        ControlOptions.OriginalHeight = 29
+        ControlOptions.OriginalHeight = 23
         ControlOptions.OriginalWidth = 131
         ControlOptions.ShowBorder = False
         Index = 0
@@ -672,7 +672,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         AllowRemove = False
         CaptionOptions.Text = #19994#21153#21592
         Control = saleser
-        ControlOptions.OriginalHeight = 29
+        ControlOptions.OriginalHeight = 23
         ControlOptions.OriginalWidth = 150
         ControlOptions.ShowBorder = False
         Index = 1
@@ -705,7 +705,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         SizeOptions.SizableHorz = True
         CaptionOptions.Text = #28907'  '#37329
         Control = Gilding
-        ControlOptions.OriginalHeight = 29
+        ControlOptions.OriginalHeight = 23
         ControlOptions.OriginalWidth = 131
         ControlOptions.ShowBorder = False
         Index = 0
@@ -716,7 +716,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         SizeOptions.SizableHorz = True
         CaptionOptions.Text = #24320'  '#21098
         Control = SizeNote
-        ControlOptions.OriginalHeight = 29
+        ControlOptions.OriginalHeight = 23
         ControlOptions.OriginalWidth = 150
         ControlOptions.ShowBorder = False
         Index = 2
@@ -727,7 +727,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         SizeOptions.SizableHorz = True
         CaptionOptions.Text = #23553'  '#26465
         Control = PackSeal
-        ControlOptions.OriginalHeight = 29
+        ControlOptions.OriginalHeight = 23
         ControlOptions.OriginalWidth = 131
         ControlOptions.ShowBorder = False
         Index = 3
@@ -770,7 +770,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         SizeOptions.SizableVert = False
         CaptionOptions.Text = #33136#23553#22791#27880
         Control = PackSealNote
-        ControlOptions.OriginalHeight = 25
+        ControlOptions.OriginalHeight = 19
         ControlOptions.OriginalWidth = 131
         ControlOptions.ShowBorder = False
         Index = -1
@@ -781,7 +781,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         SizeOptions.SizableVert = False
         CaptionOptions.Text = #21253#35013#26041#24335
         Control = PackType
-        ControlOptions.OriginalHeight = 25
+        ControlOptions.OriginalHeight = 19
         ControlOptions.OriginalWidth = 131
         ControlOptions.ShowBorder = False
         Index = -1
@@ -792,7 +792,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         SizeOptions.SizableVert = False
         CaptionOptions.Text = #25968#37327#35201#27714#65292#28322#30701#35013
         Control = QtyNote
-        ControlOptions.OriginalHeight = 25
+        ControlOptions.OriginalHeight = 19
         ControlOptions.OriginalWidth = 131
         ControlOptions.ShowBorder = False
         Index = -1
@@ -803,7 +803,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         SizeOptions.SizableVert = False
         CaptionOptions.Text = #20854#20182#35201#27714
         Control = OtherProcess1
-        ControlOptions.OriginalHeight = 25
+        ControlOptions.OriginalHeight = 19
         ControlOptions.OriginalWidth = 131
         ControlOptions.ShowBorder = False
         Index = -1
@@ -824,7 +824,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         SizeOptions.Width = 237
         CaptionOptions.Text = #21367#26631#31614
         Control = LabVolume
-        ControlOptions.OriginalHeight = 29
+        ControlOptions.OriginalHeight = 23
         ControlOptions.OriginalWidth = 183
         ControlOptions.ShowBorder = False
         Index = 0
@@ -836,7 +836,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         SizeOptions.Width = 204
         CaptionOptions.Text = #21253#26631#31614
         Control = LabPackage
-        ControlOptions.OriginalHeight = 29
+        ControlOptions.OriginalHeight = 23
         ControlOptions.OriginalWidth = 162
         ControlOptions.ShowBorder = False
         Index = 1
@@ -847,7 +847,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         SizeOptions.SizableVert = True
         CaptionOptions.Text = #20027#34920#23383#31526#33258#23450#20041#23383#27573'1'
         Control = CustDefStr1
-        ControlOptions.OriginalHeight = 29
+        ControlOptions.OriginalHeight = 23
         ControlOptions.OriginalWidth = 150
         ControlOptions.ShowBorder = False
         Index = -1
@@ -858,7 +858,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         SizeOptions.SizableVert = True
         CaptionOptions.Text = #20027#34920#23383#31526#33258#23450#20041#23383#27573'2'
         Control = CustDefStr2
-        ControlOptions.OriginalHeight = 29
+        ControlOptions.OriginalHeight = 23
         ControlOptions.OriginalWidth = 150
         ControlOptions.ShowBorder = False
         Index = -1
@@ -869,7 +869,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         SizeOptions.SizableVert = True
         CaptionOptions.Text = #20027#34920#23383#31526#33258#23450#20041#23383#27573'3'
         Control = CustDefStr3
-        ControlOptions.OriginalHeight = 29
+        ControlOptions.OriginalHeight = 23
         ControlOptions.OriginalWidth = 150
         ControlOptions.ShowBorder = False
         Index = -1
@@ -880,7 +880,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         SizeOptions.SizableVert = True
         CaptionOptions.Text = #20027#34920#25968#23383#33258#23450#20041#23383#27573'1'
         Control = CustDefFloat1
-        ControlOptions.OriginalHeight = 29
+        ControlOptions.OriginalHeight = 23
         ControlOptions.OriginalWidth = 94
         ControlOptions.ShowBorder = False
         Index = -1
@@ -891,7 +891,7 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
         SizeOptions.SizableVert = True
         CaptionOptions.Text = #20027#34920#25968#23383#33258#23450#20041#23383#27573'2'
         Control = CustDefFloat2
-        ControlOptions.OriginalHeight = 29
+        ControlOptions.OriginalHeight = 23
         ControlOptions.OriginalWidth = 82
         ControlOptions.ShowBorder = False
         Index = -1
@@ -987,18 +987,17 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       TabOrder = 1
       Properties.ActivePage = cxTabSheet1
       Properties.CustomButtons.Buttons = <>
-      ClientRectBottom = 335
+      ClientRectBottom = 337
-      ClientRectLeft = 2
+      ClientRectRight = 200
-      ClientRectRight = 198
+      ClientRectTop = 28
-      ClientRectTop = 32
       object cxTabSheet1: TcxTabSheet
         Caption = #21367#26631#31614
         ImageIndex = 0
         object RMPreview1: TRMPreview
           Left = 0
           Top = 0
-          Width = 196
+          Width = 200
-          Height = 303
+          Height = 309
           Align = alClient
           BevelOuter = bvNone
           Caption = 'Insert After'
@@ -1021,11 +1020,15 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
       object cxTabSheet2: TcxTabSheet
         Caption = #21253#26631#31614
         ImageIndex = 1
+        ExplicitLeft = 2
+        ExplicitTop = 32
+        ExplicitWidth = 196
+        ExplicitHeight = 303
         object RMPreview2: TRMPreview
           Left = 0
           Top = 0
-          Width = 196
+          Width = 200
-          Height = 303
+          Height = 309
           Align = alClient
           BevelOuter = bvNone
           Caption = #26631#31614#39044#35272
@@ -1037,6 +1040,8 @@ inherited frmTradePlanInPut: TfrmTradePlanInPut
           Options.DrawBorder = False
           Options.BorderPen.Color = clGray
           Options.BorderPen.Style = psDash
+          ExplicitWidth = 196
+          ExplicitHeight = 303
         end
       end
     end

项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.dfm

@@ -16,10 +16,10 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
     Left = 0
     Top = 0
     Width = 1290
-    Height = 60
+    Height = 76
     AutoSize = True
-    ButtonHeight = 30
+    ButtonHeight = 38
-    ButtonWidth = 83
+    ButtonWidth = 169
     Caption = 'ToolBar1'
     Color = clBtnFace
     Images = DataLink_TradePlan.cxImageList_bar
@@ -36,7 +36,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
       OnClick = TBRafreshClick
     end
     object Tfilter: TToolButton
-      Left = 63
+      Left = 71
       Top = 0
       AutoSize = True
       Caption = #36807#28388
@@ -44,7 +44,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
       OnClick = TfilterClick
     end
     object TBAdd: TToolButton
-      Left = 126
+      Left = 142
       Top = 0
       AutoSize = True
       Caption = #26032#22686
@@ -52,7 +52,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
       OnClick = TBAddClick
     end
     object btnCopy: TToolButton
-      Left = 189
+      Left = 213
       Top = 0
       AutoSize = True
       Caption = #22797#21046
@@ -60,7 +60,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
       OnClick = btnCopyClick
     end
     object TBEdit: TToolButton
-      Left = 252
+      Left = 284
       Top = 0
       AutoSize = True
       Caption = #20462#25913
@@ -68,7 +68,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
       OnClick = TBEditClick
     end
     object TBDel: TToolButton
-      Left = 315
+      Left = 355
       Top = 0
       AutoSize = True
       Caption = #21024#38500
@@ -76,7 +76,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
       OnClick = TBDelClick
     end
     object Tdjsz: TToolButton
-      Left = 378
+      Left = 426
       Top = 0
       AutoSize = True
       Caption = #25171#21367#35774#32622
@@ -84,7 +84,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
       OnClick = TdjszClick
     end
     object Tbqyl: TToolButton
-      Left = 465
+      Left = 529
       Top = 0
       AutoSize = True
       Caption = #26631#31614#39044#35272
@@ -93,97 +93,105 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
       Style = tbsDropDown
     end
     object TBPrint: TToolButton
-      Left = 569
+      Left = 655
       Top = 0
       AutoSize = True
       Caption = #25171#21360
       ImageIndex = 21
-      Wrap = True
       OnClick = TBPrintClick
     end
-    object TBCK: TToolButton
+    object ToolButton2: TToolButton
+      Left = 726
+      Top = 0
+      Caption = #20462#25913#24179#22343#20462#24067#26102#38388
+      ImageIndex = 3
+      Wrap = True
+      OnClick = ToolButton2Click
+    end
+    object ToolButton1: TToolButton
       Left = 0
-      Top = 30
+      Top = 38
+      AutoSize = True
+      Caption = #23548#20837#35746#21333
+      ImageIndex = 28
+      OnClick = ToolButton1Click
+    end
+    object TBCK: TToolButton
+      Left = 103
+      Top = 38
       AutoSize = True
       Caption = #26597#30475
       ImageIndex = 8
       OnClick = TBCKClick
     end
     object ToolButton4: TToolButton
-      Left = 63
+      Left = 174
-      Top = 30
+      Top = 38
       AutoSize = True
       Caption = #38468#20214
       ImageIndex = 22
       OnClick = ToolButton4Click
     end
     object TWC: TToolButton
-      Left = 126
+      Left = 245
-      Top = 30
+      Top = 38
       AutoSize = True
       Caption = #23436#25104
       ImageIndex = 12
       OnClick = TWCClick
     end
     object Ttoexcel: TToolButton
-      Left = 189
+      Left = 316
-      Top = 30
+      Top = 38
       AutoSize = True
       Caption = #23548#20986
       ImageIndex = 28
       OnClick = TtoexcelClick
     end
     object TNowc: TToolButton
-      Left = 252
+      Left = 387
-      Top = 30
+      Top = 38
       AutoSize = True
       Caption = #25764#38144#23436#25104
       ImageIndex = 11
       OnClick = TNowcClick
     end
     object Tcdgl: TToolButton
-      Left = 339
+      Left = 490
-      Top = 30
+      Top = 38
       AutoSize = True
       Caption = #30133#28857#31649#29702
       ImageIndex = 30
       OnClick = TcdglClick
     end
     object Tupdateto: TToolButton
-      Left = 426
+      Left = 593
-      Top = 30
+      Top = 38
       AutoSize = True
       Caption = #25968#25454#21516#27493
       ImageIndex = 50
       OnClick = TupdatetoClick
     end
     object Tbcgs: TToolButton
-      Left = 513
+      Left = 696
-      Top = 30
+      Top = 38
       AutoSize = True
       Caption = #20445#23384#26684#24335
       ImageIndex = 37
       OnClick = TbcgsClick
     end
     object TBClose: TToolButton
-      Left = 600
+      Left = 799
-      Top = 30
+      Top = 38
       AutoSize = True
       Caption = #20851#38381
       ImageIndex = 7
       OnClick = TBCloseClick
     end
-    object ToolButton1: TToolButton
-      Left = 663
-      Top = 30
-      Caption = #23548#20837#35746#21333
-      ImageIndex = 8
-      OnClick = ToolButton1Click
-    end
   end
   object dxLayoutControl_query: TdxLayoutControl [1]
     Left = 0
-    Top = 60
+    Top = 76
     Width = 1290
     Height = 45
     Align = alTop
@@ -191,7 +199,6 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
     LayoutLookAndFeel = DataLink_TradePlan.dxLayoutSkinLookAndFeel1
     OptionsItem.SizableHorz = True
     OptionsItem.SizableVert = True
-    ExplicitTop = 76
     object custName: TcxTextEdit
       Tag = 2
       Left = 629
@@ -215,14 +222,14 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
     object BuyConNo: TcxTextEdit
       Tag = 2
       Left = 10000
-      Top = 10000
+      Top = 9990
       ParentFont = False
       Properties.OnChange = TfilterClick
       Style.BorderColor = clWindowFrame
       Style.BorderStyle = ebs3D
       Style.HotTrack = False
       Style.TransparentBorder = False
-      TabOrder = 6
+      TabOrder = 7
       Visible = False
       Width = 121
     end
@@ -239,21 +246,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
     object ywy: TcxTextEdit
       Tag = 99
       Left = 10000
-      Top = 10000
+      Top = 9990
-      ParentFont = False
-      Properties.OnChange = TfilterClick
-      Style.BorderColor = clWindowFrame
-      Style.BorderStyle = ebs3D
-      Style.HotTrack = False
-      Style.TransparentBorder = False
-      TabOrder = 7
-      Visible = False
-      Width = 121
-    end
-    object C_Name: TcxTextEdit
-      Tag = 2
-      Left = 10000
-      Top = 10000
       ParentFont = False
       Properties.OnChange = TfilterClick
       Style.BorderColor = clWindowFrame
@@ -264,6 +257,23 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
       Visible = False
       Width = 121
     end
+    object C_Name: TcxTextEdit
+      Tag = 2
+      Left = 989
+      Top = 11
+      ParentFont = False
+      Properties.OnChange = TfilterClick
+      Style.Font.Charset = ANSI_CHARSET
+      Style.Font.Color = clWindowText
+      Style.Font.Height = -16
+      Style.Font.Name = #24494#36719#38597#40657
+      Style.Font.Style = []
+      Style.HotTrack = False
+      Style.TransparentBorder = False
+      Style.IsFontAssigned = True
+      TabOrder = 5
+      Width = 121
+    end
     object endDate: TcxDateEdit
       Left = 242
       Top = 11
@@ -284,18 +294,18 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
     end
     object batchNo: TcxTextEdit
       Tag = 2
-      Left = 989
+      Left = 1191
       Top = 11
       Properties.OnChange = TfilterClick
       Style.HotTrack = False
       Style.TransparentBorder = False
-      TabOrder = 5
+      TabOrder = 6
       Width = 105
     end
     object FtyPCId: TcxTextEdit
       Tag = 2
       Left = 10000
-      Top = 10000
+      Top = 9990
       Properties.OnChange = TfilterClick
       Style.HotTrack = False
       Style.TransparentBorder = False
@@ -311,6 +321,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
       SizeOptions.SizableHorz = True
       SizeOptions.SizableVert = True
       Hidden = True
+      ItemIndex = 5
       LayoutDirection = ldHorizontal
       Padding.Bottom = -5
       Padding.Top = -5
@@ -348,14 +359,13 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
       Index = -1
     end
     object dxLayoutItem_pm: TdxLayoutItem
-      Tag = 99
+      Parent = dxLayoutControl_queryGroup_Root
-      Visible = False
       CaptionOptions.Text = #20135#21697#21517#31216
       Control = C_Name
-      ControlOptions.OriginalHeight = 21
+      ControlOptions.OriginalHeight = 27
       ControlOptions.OriginalWidth = 121
       ControlOptions.ShowBorder = False
-      Index = -1
+      Index = 5
     end
     object dxLayoutItem_beg: TdxLayoutItem
       Parent = dxLayoutControl_queryGroup_Root
@@ -403,7 +413,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
       ControlOptions.OriginalHeight = 27
       ControlOptions.OriginalWidth = 105
       ControlOptions.ShowBorder = False
-      Index = 5
+      Index = 6
     end
     object dxLayoutItem_FtyPCId: TdxLayoutItem
       CaptionOptions.Text = #26579#21378#32568#21495
@@ -554,7 +564,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
             Width = 75
           end
           object v1ConNo: TcxGridDBColumn
-            Caption = #21512#21516#21495
+            Caption = 'PO'#21495
             DataBinding.FieldName = 'ConNo'
             DataBinding.IsNullValueType = True
             FixedKind = fkLeftDynamic
@@ -1721,7 +1731,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
   end
   object cxTabControl1: TcxTabControl [3]
     Left = 0
-    Top = 105
+    Top = 121
     Width = 1290
     Height = 26
     Align = alTop
@@ -1739,7 +1749,6 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
     LookAndFeel.Kind = lfOffice11
     LookAndFeel.NativeStyle = False
     OnChange = cxTabControl1Change
-    ExplicitTop = 121
     ClientRectRight = 0
     ClientRectTop = 0
   end
@@ -1864,7 +1873,7 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
     Top = 288
   end
   object PopupMenu1: TPopupMenu
-    Left = 800
+    Left = 944
     Top = 16
     object N1: TMenuItem
       Caption = #21367#26631#31614
@@ -1898,14 +1907,14 @@ inherited frmTradePlanMgeList: TfrmTradePlanMgeList
     CompressThread = False
     LaterBuildEvents = True
     OnlyOwnerDataSet = False
-    Left = 776
+    Left = 992
-    Top = 16
+    Top = 32
     ReportData = {}
   end
   object RMDB_1: TRMDBDataSet
     Visible = False
     DataSet = ADOQueryPrint
-    Left = 876
+    Left = 1012
-    Top = 24
+    Top = 16
   end
 end

项目代码/wenshangkm/G01贸易生产计划/U_TradePlanMgeList.pas

@@ -206,6 +206,7 @@ type
     TV2Column9: TcxGridDBColumn;
     TV2Column10: TcxGridDBColumn;
     ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
     procedure TBCloseClick(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
@@ -236,6 +237,7 @@ type
     procedure TupdatetoClick(Sender: TObject);
     procedure ButtonEdit(Sender: TObject; AButtonIndex: Integer);
     procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
   private
     canshu1, canshu2: string;
     fIsLoad: Boolean;
@@ -319,6 +321,7 @@ begin
     dxLayoutItem_pm.Visible := false;
     dxLayoutItem_batchno.Visible := false;
     dxLayoutItem_FtyPCId.Visible := false;
+    dxLayoutItem_pm.Visible := false;
   end
   else
   begin
@@ -326,6 +329,7 @@ begin
     dxLayoutItem_pm.Visible := true;
     dxLayoutItem_batchno.Visible := true;
     dxLayoutItem_FtyPCId.Visible := true;
+    dxLayoutItem_pm.Visible := true;
   end;
   TBRafresh.Click
 end;
@@ -875,6 +879,60 @@ begin
   end;
 end;
 
+procedure TfrmTradePlanMgeList.ToolButton2Click(Sender: TObject);
+var
+  MStrIn: string;
+  mvalue: double;
+begin
+  if ORDER_SUB.IsEmpty then
+    Exit;
+
+  if ORDER_SUB.Locate('SSel', True, []) = False then
+  begin
+    Application.MessageBox('请先选择下面的明细数据记录', '提示', 0);
+    Exit;
+  end;
+
+  if not InputQuery('平均时间', '请输入', MStrIn) then
+  begin
+    Exit;
+  end;
+  mvalue := strTofloatdef(trim(MStrIn), 0);
+  try
+    ORDER_SUB.DisableControls;
+    ADOQuerySub.Connection.BeginTrans;
+    with ORDER_SUB do
+    begin
+      First;
+      while not Eof do
+      begin
+        if ORDER_SUB.FieldByName('SSel').AsBoolean = True then
+        begin
+          with ADOQuerySub do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('Update Trade_Plan_Sub Set Averagetime=' + floatTostr(mvalue));
+            sql.Add('where subid=''' + Trim(ORDER_SUB.fieldbyname('subid').AsString) + '''');
+            sql.Add('Update Trade_Cloth_Inspect Set Averagetime=' + floatTostr(mvalue));
+            sql.Add('where subid=''' + Trim(ORDER_SUB.fieldbyname('subid').AsString) + '''');
+            ExecSQL;
+          end;
+        end;
+        Next;
+      end;
+    end;
+    ADOQuerySub.Connection.CommitTrans;
+    ORDER_SUB.EnableControls;
+    application.MessageBox('数据操作成功！', '提示信息');
+    TBRafresh.Click;
+  except
+    ADOQuerySub.Connection.RollbackTrans;
+    ORDER_SUB.EnableControls;
+    application.MessageBox('数据操作失败！', '提示信息', 0);
+  end;
+end;
+
 procedure TfrmTradePlanMgeList.ToolButton4Click(Sender: TObject);
 var
   mMainId: string;

项目代码/wenshangkm/G01贸易生产计划/djdPackPlan.dproj

@@ -156,7 +156,7 @@
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
         <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
-        <Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\wenshangkm\G01贸易生产计划\testDll.exe</Debugger_HostApplication>
+        <Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10djdPackwenshang\项目代码\wenshangkm\G01贸易生产计划\testDll.exe</Debugger_HostApplication>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">

项目代码/wenshangkm/G01贸易生产计划/djdPackPlan.dproj.local

@@ -53,7 +53,7 @@
     <File Path="..\G00贸易通用窗体"/>
     <File Path="..\G00贸易通用窗体\U_TradeSalesContractSel.pas"/>
     <File Path="..\G00贸易通用窗体\U_TradeSalesContractSel.dfm"/>
-    <File Path="..\..\..\..\D10djdPack"/>
+    <File Path="..\..\..\..\D10djdPackwenshang"/>
     <File Path="..\..\..\public10"/>
     <File Path="..\..\..\public10\design"/>
     <File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
@@ -98,12 +98,12 @@
   </ProjectSortOrder>
 	<Transactions>
     <Transaction>1899-12-30 00:00:00.000.939,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_SysLogOrderzsd.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_ProductOrderNewList.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.368,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_OrderInPut.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.054,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_ProductOrderNewList.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.578,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_MJSJFX.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.dfm=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.296,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_TradePlanList.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.245,D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\U_UptPlanDataToRoll.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.651,=D:\Dp10RepoV1\项目代码\djdPack\G01贸易生产计划\Unit2.pas</Transaction>
   </Transactions>
 </BorlandProject>

项目代码/wenshangkm/G03贸易布匹检验/DjdMachineInsp.dpr

@@ -38,7 +38,7 @@ uses
   U_TradePack in 'U_TradePack.pas' {frmTradePack},
   U_TradeClothWaitPack in 'U_TradeClothWaitPack.pas' {frmTradeClothWaitPack},
   U_TradeClothInspList in 'U_TradeClothInspList.pas' {frmTradeClothInspList},
-  U_DjdDjClList in 'U_DjdDjClList.pas' {frmDjdDjClList},
+  U_DjdDjClListJT in 'U_DjdDjClListJT.pas' {frmDjdDjClListJT},
   U_MdPrint in '..\A00通用窗体\U_MdPrint.pas' {frmMdPrint},
   U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
   U_DeviceJkTest in 'U_DeviceJkTest.pas' {frmDeviceJkTest},

项目代码/wenshangkm/G03贸易布匹检验/DjdMachineInsp.dproj

@@ -161,7 +161,7 @@
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
         <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
-        <Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10djdPack\项目代码\djdPack\G03贸易布匹检验\testDll.exe</Debugger_HostApplication>
+        <Debugger_HostApplication>D:\Dp10RepoV1\项目代码\D10djdPackwenshang\项目代码\wenshangkm\G03贸易布匹检验\testDll.exe</Debugger_HostApplication>
     </PropertyGroup>
     <ItemGroup>
         <DelphiCompile Include="$(MainSource)">
@@ -268,8 +268,8 @@
             <Form>frmTradeClothInspList</Form>
             <FormType>dfm</FormType>
         </DCCReference>
-        <DCCReference Include="U_DjdDjClList.pas">
+        <DCCReference Include="U_DjdDjClListJT.pas">
-            <Form>frmDjdDjClList</Form>
+            <Form>frmDjdDjClListJT</Form>
             <FormType>dfm</FormType>
         </DCCReference>
         <DCCReference Include="..\A00通用窗体\U_MdPrint.pas">

项目代码/wenshangkm/G03贸易布匹检验/DjdMachineInsp.dproj.local

@@ -1,42 +1,43 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.157,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradePack.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10RepoV1\public10\design\U_FormInitThread.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.417,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.417,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.769,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit2.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\项目代码\D10djdPackwenshang\项目代码\wenshangkm\G03贸易布匹检验\U_DjdDjClList.pas=D:\Dp10RepoV1\项目代码\D10djdPackwenshang\项目代码\wenshangkm\G03贸易布匹检验\U_DjdDjClListJT.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.382,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj</Transaction>
     <Transaction>1899-12-30 00:00:00.000.792,=D:\rtgit\D10djdPack\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.540,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.339,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_baseList1.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.888,D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_TradeMachInsp.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj</Transaction>
     <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.540,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\Unit1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.612,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.308,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.663,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_AdoFunc.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.996,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
@@ -44,23 +45,23 @@
     <Transaction>1899-12-30 00:00:00.000.051,=D:\Dp10RepoV1\项目代码\djdPack\G03贸易布匹检验\U_BillPrintList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothWaitPack.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.507,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.294,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.230,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.114,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkTest.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj</Transaction>
     <Transaction>1899-12-30 00:00:00.000.822,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameParam.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.991,=D:\Dp10RepoV1\项目代码\djdPack\A00通用组件\FrameDateSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.dfm=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.990,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.706,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.950,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.514,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_KeyBoard.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.567,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_frameBads.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
@@ -68,17 +69,18 @@
     <Transaction>1899-12-30 00:00:00.000.582,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\TradeMachineInsp.dproj=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\DjdMachineInsp.dproj</Transaction>
     <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.448,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.975,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DeviceJkDll.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.995,D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_MdPrint.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.661,=D:\Dp10RepoV1\项目代码\TradePack\A00通用窗体\U_LabelPrint.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.701,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductListHelp.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.193,D:\Dp10RepoV1\项目代码\D10djdPackwenshang\项目代码\wenshangkm\G03贸易布匹检验\U_DjdDjClList.dfm=D:\Dp10RepoV1\项目代码\D10djdPackwenshang\项目代码\wenshangkm\G03贸易布匹检验\U_DjdDjClListJT.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.421,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ParamSet.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.226,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_SysLogList.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
@@ -86,17 +88,17 @@
     <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.673,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_ControlData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit1.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.679,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.717,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.054,=D:\Dp10RepoV1\项目代码\TradePack\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.053,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.679,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.739,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.233,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.757,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_ProductJYHZList.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.313,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_BatchMdyData.pas=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.054,=D:\Dp10RepoV1\项目代码\TradePack\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.686,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_MachRollMain.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.747,=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_TradeClothInspList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.964,D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\Unit2.dfm=D:\Dp10RepoV1\项目代码\TradePack\G03贸易布匹检验\U_DjdDjClList.dfm</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="android-support-v4.dex.jar"/>
@@ -168,11 +170,11 @@
     <File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
     <File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.dfm"/>
     <File Path="..\..\..\public10\ThreeFun\Fun"/>
+    <File Path="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
     <File Path="..\..\..\public10\ThreeFun\Fun\U_AdoFunc.pas"/>
     <File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
     <File Path="..\..\..\public10\ThreeFun\Fun\U_ControlData.pas"/>
     <File Path="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
-    <File Path="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
     <File Path="U_DataLink.pas"/>
     <File Path="U_DataLink.dfm"/>
     <File Path="U_GetDllForm.pas"/>
@@ -199,8 +201,6 @@
     <File Path="U_TradeClothWaitPack.dfm"/>
     <File Path="U_TradeClothInspList.pas"/>
     <File Path="U_TradeClothInspList.dfm"/>
-    <File Path="U_DjdDjClList.pas"/>
-    <File Path="U_DjdDjClList.dfm"/>
     <File Path="U_DeviceJkTest.pas"/>
     <File Path="U_DeviceJkTest.dfm"/>
     <File Path="U_DeviceJkDll.pas"/>
@@ -210,5 +210,7 @@
     <File Path="U_BillPrintList.dfm"/>
     <File Path="Unit2.pas"/>
     <File Path="Unit2.dfm"/>
+    <File Path="U_DjdDjClListJT.pas"/>
+    <File Path="U_DjdDjClListJT.dfm"/>
   </ProjectSortOrder>
 </BorlandProject>

项目代码/wenshangkm/G03贸易布匹检验/ProjectGroup1.groupproj.local

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Default.Personality>
-		<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10djdPackwenshang\项目代码\wenshangkm\G03贸易布匹检验\testDll.dproj"/>
+		<Projects ActiveProject="D:\Dp10RepoV1\项目代码\D10djdPackwenshang\项目代码\wenshangkm\G03贸易布匹检验\DjdMachineInsp.dproj"/>
 	</Default.Personality>
 </BorlandProject>

项目代码/wenshangkm/G03贸易布匹检验/TradeInspFile.INI

@@ -18,6 +18,13 @@
 自定义字母键1=A
 自定义字母键2=B
 打印码单自动出库=1
-赠送数计算规则=1
+赠送数计算规则=0
 默认标签文件=华星标签1
 默认包标签文件=
+长度重量回车自动提交=1
+自动选择长度=1
+码表清零自动提交=1
+提交清空赠送长度重量=
+疵点四分制=
+自动选择长度=1
+

项目代码/wenshangkm/G03贸易布匹检验/U_DjdDjClListJT.dfm

@@ -0,0 +1,749 @@
+inherited frmDjdDjClListJT: TfrmDjdDjClListJT
+  Caption = #26426#21488#25171#21367#20135#37327#32479#35745#27719#24635
+  ClientHeight = 422
+  ClientWidth = 1061
+  Color = clBtnFace
+  Font.Height = -16
+  FormStyle = fsMDIChild
+  Visible = True
+  ExplicitWidth = 1077
+  ExplicitHeight = 461
+  PixelsPerInch = 96
+  TextHeight = 21
+  object toolbar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1061
+    Height = 33
+    ButtonHeight = 30
+    ButtonWidth = 99
+    Caption = 'toolbar1'
+    Color = clBtnFace
+    Images = DataLink_TradeInsp.cxImageList_bar
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 3
+    Transparent = True
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 1
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 71
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 0
+      Visible = False
+      OnClick = TBFindClick
+    end
+    object TBExport: TToolButton
+      Left = 142
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 28
+      OnClick = TBExportClick
+    end
+    object Tbcgs: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+      OnClick = TbcgsClick
+    end
+    object TBClose: TToolButton
+      Left = 316
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object cxGrid1: TcxGrid [1]
+    Left = 20
+    Top = 184
+    Width = 1005
+    Height = 230
+    BorderStyle = cxcbsNone
+    TabOrder = 4
+    object TV1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
+      DataController.DataSource = DataSource1
+      DataController.Filter.AutoDataSetFilter = True
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = cxGridDBColumn9
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skCount
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn11
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn10
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Format = #26816#39564#31995#25968'=#.##'
+          Kind = skAverage
+        end
+        item
+          Format = #25442#31639#31995#25968'=#.##'
+          Kind = skAverage
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skCount
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn12
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn8
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.IndicatorWidth = 30
+      object cxGridDBColumn3: TcxGridDBColumn
+        Tag = 11
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 112
+      end
+      object TV1ConNo: TcxGridDBColumn
+        Caption = #21512#21516#21495
+        DataBinding.FieldName = 'ConNo'
+        DataBinding.IsNullValueType = True
+      end
+      object TV1CustName: TcxGridDBColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'CustName'
+        DataBinding.IsNullValueType = True
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+      end
+      object cxGridDBColumn4: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'C_Name'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 101
+      end
+      object TV1Column1: TcxGridDBColumn
+        AlternateCaption = #26426#21488#21495
+        Caption = #25171#30721#20154
+        DataBinding.FieldName = 'CIMachNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object cxGridDBColumn7: TcxGridDBColumn
+        Caption = #25171#21367#26085#26399
+        DataBinding.FieldName = 'Filltime'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 84
+      end
+      object cxGridDBColumn8: TcxGridDBColumn
+        Caption = #21367#25968
+        DataBinding.FieldName = 'SumPieceNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 94
+      end
+      object cxGridDBColumn9: TcxGridDBColumn
+        Caption = #27611#37325
+        DataBinding.FieldName = 'GrossWeight'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 88
+      end
+      object cxGridDBColumn10: TcxGridDBColumn
+        Caption = #20928#37325
+        DataBinding.FieldName = 'NetWeight'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 93
+      end
+      object cxGridDBColumn11: TcxGridDBColumn
+        Caption = #31859#25968
+        DataBinding.FieldName = 'Meter'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 91
+      end
+      object cxGridDBColumn12: TcxGridDBColumn
+        Caption = #30721#25968
+        DataBinding.FieldName = 'Yardage'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 99
+      end
+      object TV1operators: TcxGridDBColumn
+        Caption = #26426#21488#20154#21592
+        DataBinding.FieldName = 'operators'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 87
+      end
+      object TV1Column2: TcxGridDBColumn
+        Caption = #33394#21495
+        DataBinding.FieldName = 'C_ColorNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object TV1Column3: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'C_Color'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = TV1
+    end
+  end
+  object dxLayoutControl_query: TdxLayoutControl [2]
+    Left = 0
+    Top = 33
+    Width = 1061
+    Height = 83
+    Align = alTop
+    BorderWidth = 2
+    TabOrder = 2
+    LayoutLookAndFeel = DataLink_TradeInsp.dxLayoutSkinLookAndFeel1
+    OptionsItem.SizableHorz = True
+    OptionsItem.SizableVert = True
+    object Filler: TcxTextEdit
+      Tag = 2
+      Left = 306
+      Top = 35
+      Hint = 'Filler'
+      Properties.OnChange = TBFindClick
+      Style.HotTrack = False
+      Style.TransparentBorder = False
+      TabOrder = 4
+      Width = 136
+    end
+    object begdate: TcxDateEdit
+      Left = 88
+      Top = 8
+      Properties.ImmediatePost = True
+      Properties.SaveTime = False
+      Properties.ShowTime = False
+      Style.HotTrack = False
+      Style.TransparentBorder = False
+      TabOrder = 0
+      Width = 155
+    end
+    object enddate: TcxDateEdit
+      Left = 88
+      Top = 35
+      AutoSize = False
+      Properties.ImmediatePost = True
+      Properties.SaveTime = False
+      Properties.ShowTime = False
+      Style.HotTrack = False
+      Style.TransparentBorder = False
+      TabOrder = 3
+      Height = 29
+      Width = 153
+    end
+    object C_name: TcxTextEdit
+      Tag = 2
+      Left = 523
+      Top = 35
+      Properties.OnChange = TBFindClick
+      Style.HotTrack = False
+      Style.TransparentBorder = False
+      TabOrder = 5
+      Width = 160
+    end
+    object orderNo: TcxTextEdit
+      Tag = 2
+      Left = 308
+      Top = 8
+      Properties.OnChange = TBFindClick
+      Style.HotTrack = False
+      Style.TransparentBorder = False
+      TabOrder = 1
+      Width = 134
+    end
+    object C_color: TcxTextEdit
+      Tag = 2
+      Left = 10000
+      Top = 10000
+      ParentFont = False
+      Properties.OnChange = TBFindClick
+      Style.HotTrack = False
+      Style.TransparentBorder = False
+      TabOrder = 6
+      Visible = False
+      Width = 105
+    end
+    object conNo: TcxTextEdit
+      Tag = 2
+      Left = 523
+      Top = 8
+      Properties.OnChange = TBFindClick
+      Style.HotTrack = False
+      Style.TransparentBorder = False
+      TabOrder = 2
+      Width = 161
+    end
+    object dxLayoutControl_queryGroup_Root: TdxLayoutGroup
+      AlignHorz = ahParentManaged
+      AlignVert = avParentManaged
+      CaptionOptions.AlignVert = tavCenter
+      CaptionOptions.Text = #26597#35810#32452
+      CaptionOptions.Visible = False
+      SizeOptions.AssignedValues = [sovSizableHorz, sovSizableVert]
+      SizeOptions.SizableHorz = True
+      SizeOptions.SizableVert = True
+      Hidden = True
+      ItemIndex = 1
+      Padding.Top = -8
+      Padding.AssignedValues = [lpavBottom, lpavTop]
+      ShowBorder = False
+      UseIndent = False
+      Index = -1
+    end
+    object dxLayoutItem2: TdxLayoutItem
+      Parent = dxLayoutGroup1
+      SizeOptions.Width = 190
+      AllowRemove = False
+      CaptionOptions.Text = #35746#21333#21495
+      Control = orderNo
+      ControlOptions.OriginalHeight = 27
+      ControlOptions.OriginalWidth = 134
+      ControlOptions.ShowBorder = False
+      Index = 1
+    end
+    object dxLayoutItem_color: TdxLayoutItem
+      SizeOptions.Width = 136
+      CaptionOptions.Text = #39068#33394
+      Control = C_color
+      ControlOptions.OriginalHeight = 19
+      ControlOptions.OriginalWidth = 105
+      ControlOptions.ShowBorder = False
+      Index = -1
+    end
+    object dxLayoutItem_pm: TdxLayoutItem
+      Parent = dxLayoutGroup2
+      SizeOptions.Width = 232
+      CaptionOptions.Text = #20013#25991#21517#31216
+      Control = C_name
+      ControlOptions.OriginalHeight = 27
+      ControlOptions.OriginalWidth = 160
+      ControlOptions.ShowBorder = False
+      Index = 2
+    end
+    object dxLayoutItem_hth: TdxLayoutItem
+      Parent = dxLayoutGroup1
+      SizeOptions.Width = 233
+      CaptionOptions.Text = #21512#21516#21495
+      Control = conNo
+      ControlOptions.OriginalHeight = 27
+      ControlOptions.OriginalWidth = 161
+      ControlOptions.ShowBorder = False
+      Index = 2
+    end
+    object dxLayoutGroup1: TdxLayoutGroup
+      Parent = dxLayoutControl_queryGroup_Root
+      CaptionOptions.Text = #32452'1'
+      Hidden = True
+      LayoutDirection = ldHorizontal
+      ShowBorder = False
+      Index = 0
+    end
+    object dxLayoutGroup2: TdxLayoutGroup
+      Parent = dxLayoutControl_queryGroup_Root
+      CaptionOptions.Text = #32452'2'
+      Hidden = True
+      ItemIndex = 2
+      LayoutDirection = ldHorizontal
+      ShowBorder = False
+      Index = 1
+    end
+    object dxLayoutItem_beg: TdxLayoutItem
+      Parent = dxLayoutGroup1
+      SizeOptions.Width = 227
+      CaptionOptions.Text = #26816#39564#26102#38388
+      Control = begdate
+      ControlOptions.OriginalHeight = 27
+      ControlOptions.OriginalWidth = 155
+      ControlOptions.ShowBorder = False
+      Index = 0
+    end
+    object dxLayoutItem_end: TdxLayoutItem
+      Parent = dxLayoutGroup2
+      AlignVert = avClient
+      SizeOptions.Width = 225
+      CaptionOptions.Text = #33267
+      Control = enddate
+      ControlOptions.OriginalHeight = 29
+      ControlOptions.OriginalWidth = 153
+      ControlOptions.ShowBorder = False
+      Index = 0
+    end
+    object dxLayoutItem1: TdxLayoutItem
+      Parent = dxLayoutGroup2
+      SizeOptions.Width = 192
+      CaptionOptions.Text = #25171#30721#20154
+      Control = Filler
+      ControlOptions.OriginalHeight = 27
+      ControlOptions.OriginalWidth = 136
+      ControlOptions.ShowBorder = False
+      Index = 1
+    end
+  end
+  inherited cxProgressBar2: TcxProgressBar
+    Left = 291
+    Top = 136
+    ExplicitLeft = 291
+    ExplicitTop = 136
+    ExplicitHeight = 29
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_TradeInsp.ADOLink
+    Top = 232
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_TradeInsp.ADOLink
+    Left = 185
+    Top = 241
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeInsp.ADOLink
+    LockType = ltReadOnly
+    CommandTimeout = 60
+    Parameters = <>
+    Left = 584
+    Top = 224
+  end
+  object DataSource1: TDataSource
+    DataSet = ADOQueryMain
+    Left = 632
+    Top = 152
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 552
+    Top = 160
+  end
+  object frxReport1: TfrxReport
+    Tag = 21650
+    Version = '6.9.12'
+    DataSet = frxDB_1
+    DataSetName = 'frxDBDataset1'
+    DotMatrixReport = False
+    IniFile = '\Software\Fast Reports'
+    PreviewOptions.Buttons = [pbPrint, pbLoad, pbSave, pbExport, pbZoom, pbFind, pbOutline, pbPageSetup, pbTools, pbEdit, pbNavigator, pbExportQuick, pbCopy, pbSelection]
+    PreviewOptions.Zoom = 1.000000000000000000
+    PrintOptions.Printer = 'Default'
+    PrintOptions.PrintOnSheet = 0
+    ReportOptions.CreateDate = 45471.415863680600000000
+    ReportOptions.LastChange = 45471.637332314800000000
+    ScriptLanguage = 'PascalScript'
+    ScriptText.Strings = (
+      ''
+      'begin'
+      ''
+      'end.')
+    OnReportPrint = 'frxReportAbstractOnReportPrint'
+    Left = 704
+    Top = 128
+    Datasets = <
+      item
+        DataSet = frxDB_1
+        DataSetName = 'frxDBDataset1'
+      end>
+    Variables = <>
+    Style = <>
+    object Data: TfrxDataPage
+      Height = 1000.000000000000000000
+      Width = 1000.000000000000000000
+    end
+    object Page1: TfrxReportPage
+      PaperWidth = 70.000000000000000000
+      PaperHeight = 50.000000000000000000
+      PaperSize = 256
+      Frame.Typ = []
+      MirrorMode = [mcmBTTContent]
+      object TableObject1: TfrxTableObject
+        AllowVectorExport = True
+        Left = 10.255639090000000000
+        Top = 2.526315790000000000
+        object TableColumn1: TfrxTableColumn
+          Width = 81.229697744360900000
+          MaxWidth = 75.590600000000000000
+        end
+        object TableColumn2: TfrxTableColumn
+          Width = 154.229697744361000000
+          MaxWidth = 75.590600000000000000
+        end
+        object TableRow1: TfrxTableRow
+          Height = 34.085619924812000000
+          object TableCell1: TfrxTableCell
+            AllowVectorExport = True
+            Restrictions = [rfDontDelete]
+            Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
+            object Memo1: TfrxMemoView
+              AllowVectorExport = True
+              Left = 8.761904770000000000
+              Top = 4.461152880000000000
+              Width = 57.000000000000000000
+              Height = 27.000000000000000000
+              Font.Charset = DEFAULT_CHARSET
+              Font.Color = clBlack
+              Font.Height = -13
+              Font.Name = 'Arial'
+              Font.Style = [fsBold]
+              Frame.Typ = []
+              Memo.UTF8W = (
+                'wwww')
+              ParentFont = False
+            end
+          end
+          object TableCell2: TfrxTableCell
+            AllowVectorExport = True
+            Restrictions = [rfDontDelete]
+            Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
+            object Memo3: TfrxMemoView
+              AllowVectorExport = True
+              Left = 11.018422570000000000
+              Top = 3.754385970000000000
+              Width = 49.604010030000000000
+              Height = 18.162907270000000000
+              Frame.Typ = []
+              Memo.UTF8W = (
+                'wweee')
+            end
+          end
+        end
+        object TableRow2: TfrxTableRow
+          Height = 28.055544736842100000
+          object TableCell6: TfrxTableCell
+            AllowVectorExport = True
+            Restrictions = [rfDontDelete]
+            Font.Charset = DEFAULT_CHARSET
+            Font.Color = clBlack
+            Font.Height = -13
+            Font.Name = 'Arial'
+            Font.Style = []
+            Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
+            ParentFont = False
+            ColSpan = 2
+            object Memo2: TfrxMemoView
+              AllowVectorExport = True
+              Left = 2.714207400000000000
+              Top = 5.039066800000000000
+              Width = 152.498433580000000000
+              Height = 15.364583330000000000
+              Font.Charset = DEFAULT_CHARSET
+              Font.Color = clBlack
+              Font.Height = -12
+              Font.Name = 'Arial'
+              Font.Style = []
+              Frame.Typ = []
+              Memo.UTF8W = (
+                '[frxDBDataset1."C_Name"]')
+              ParentFont = False
+            end
+          end
+          object TableCell7: TfrxTableCell
+            AllowVectorExport = True
+            Restrictions = [rfDontDelete]
+            Font.Charset = DEFAULT_CHARSET
+            Font.Color = clBlack
+            Font.Height = -13
+            Font.Name = 'Arial'
+            Font.Style = []
+            Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
+            ParentFont = False
+          end
+        end
+        object TableRow3: TfrxTableRow
+          Height = 34.085619924812000000
+          object TableCell11: TfrxTableCell
+            AllowVectorExport = True
+            Restrictions = [rfDontDelete]
+            Font.Charset = DEFAULT_CHARSET
+            Font.Color = clBlack
+            Font.Height = -13
+            Font.Name = 'Arial'
+            Font.Style = []
+            Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
+            ParentFont = False
+          end
+          object TableCell12: TfrxTableCell
+            AllowVectorExport = True
+            Restrictions = [rfDontDelete]
+            Font.Charset = DEFAULT_CHARSET
+            Font.Color = clBlack
+            Font.Height = -13
+            Font.Name = 'Arial'
+            Font.Style = []
+            Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
+            ParentFont = False
+          end
+        end
+        object TableRow4: TfrxTableRow
+          Height = 34.085619924812000000
+          object TableCell16: TfrxTableCell
+            AllowVectorExport = True
+            Restrictions = [rfDontDelete]
+            Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
+            RowSpan = 2
+            object Barcode2D1: TfrxBarcode2DView
+              AllowVectorExport = True
+              Left = 23.275689220000000000
+              Top = 11.317075065563900000
+              Width = 84.000000000000000000
+              Height = 84.000000000000000000
+              StretchMode = smActualHeight
+              Expression = '123'
+              BarType = bcCodeQR
+              BarProperties.Encoding = qrAuto
+              BarProperties.QuietZone = 0
+              BarProperties.ErrorLevels = ecL
+              BarProperties.PixelSize = 4
+              BarProperties.CodePage = 0
+              Frame.Typ = []
+              Rotation = 0
+              ShowText = False
+              HexData = '31003200330034003500360037003800'
+              Zoom = 0.500000000000000000
+              FontScaled = True
+              QuietZone = 0
+              ColorBar = clBlack
+            end
+          end
+          object TableCell17: TfrxTableCell
+            AllowVectorExport = True
+            Restrictions = [rfDontDelete]
+            Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
+          end
+        end
+        object TableRow5: TfrxTableRow
+          Height = 34.085619924812000000
+          object TableCell21: TfrxTableCell
+            AllowVectorExport = True
+            Restrictions = [rfDontDelete]
+            Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
+          end
+          object TableCell22: TfrxTableCell
+            AllowVectorExport = True
+            Restrictions = [rfDontDelete]
+            Frame.Typ = [ftLeft, ftRight, ftTop, ftBottom]
+          end
+        end
+      end
+    end
+  end
+  object frxDB_1: TfrxDBDataset
+    UserName = 'frxDBDataset1'
+    CloseDataSource = False
+    DataSet = ADOQueryMain
+    BCDToCurrency = False
+    Left = 744
+    Top = 168
+  end
+  object frxBarCodeObject1: TfrxBarCodeObject
+    Left = 768
+    Top = 224
+  end
+  object frxRichObject1: TfrxRichObject
+    Left = 768
+    Top = 304
+  end
+  object frxReportTableObject1: TfrxReportTableObject
+    Left = 584
+    Top = 328
+  end
+  object frxPDFExport1: TfrxPDFExport
+    UseFileCache = True
+    ShowProgress = True
+    OverwritePrompt = False
+    DataOnly = False
+    InteractiveFormsFontSubset = 'A-Z,a-z,0-9,#43-#47 '
+    OpenAfterExport = False
+    PrintOptimized = False
+    Outline = False
+    Background = False
+    HTMLTags = True
+    Quality = 95
+    Transparency = False
+    Author = 'FastReport'
+    Subject = 'FastReport PDF export'
+    ProtectionFlags = [ePrint, eModify, eCopy, eAnnot]
+    HideToolbar = False
+    HideMenubar = False
+    HideWindowUI = False
+    FitWindow = False
+    CenterWindow = False
+    PrintScaling = False
+    PdfA = False
+    PDFStandard = psNone
+    PDFVersion = pv17
+    Left = 544
+    Top = 81
+  end
+end

项目代码/wenshangkm/G03贸易布匹检验/U_DjdDjClListJT.pas

@@ -0,0 +1,174 @@
+unit U_DjdDjClListJT;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls, cxLookAndFeels,
+  cxLookAndFeelPainters, cxStyles, cxCustomData,
+  cxFilter, cxData, cxDataStorage, cxEdit, cxNavigator, dxDateRanges,
+  dxScrollbarAnnotations, Data.DB, cxDBData, cxGridLevel, cxGridCustomTableView,
+  cxGridTableView, cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid,
+  Vcl.StdCtrls, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.ToolWin,U_BaseList,
+  Data.Win.ADODB, Data.FMTBcd, dxBarBuiltInMenu, cxGridCustomPopupMenu,
+  cxGridPopupMenu, Data.SqlExpr, cxContainer, dxCore, cxDateUtils, cxTextEdit,
+  cxMaskEdit, cxDropDownEdit, cxCalendar, dxLayoutcxEditAdapters,
+  dxLayoutContainer, dxLayoutControl, frxRich, frxBarcode, frxClass, frxDBSet, frxTableObject, frxExportBaseDialog, frxExportPDF,
+  cxProgressBar;
+
+type
+  TfrmDjdDjClListJT = class(TfrmBaseList)
+    toolbar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBExport: TToolButton;
+    Tbcgs: TToolButton;
+    TBClose: TToolButton;
+    Filler: TcxTextEdit;
+    cxGrid1: TcxGrid;
+    TV1: TcxGridDBTableView;
+    cxGridDBColumn3: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    TV1Column1: TcxGridDBColumn;
+    cxGridDBColumn7: TcxGridDBColumn;
+    cxGridDBColumn8: TcxGridDBColumn;
+    cxGridDBColumn9: TcxGridDBColumn;
+    cxGridDBColumn10: TcxGridDBColumn;
+    cxGridDBColumn11: TcxGridDBColumn;
+    cxGridDBColumn12: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    ADOQueryMain: TADOQuery;
+    DataSource1: TDataSource;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    begdate: TcxDateEdit;
+    enddate: TcxDateEdit;
+    TV1ConNo: TcxGridDBColumn;
+    dxLayoutControl_query: TdxLayoutControl;
+    C_name: TcxTextEdit;
+    orderNo: TcxTextEdit;
+    C_color: TcxTextEdit;
+    conNo: TcxTextEdit;
+    dxLayoutControl_queryGroup_Root: TdxLayoutGroup;
+    dxLayoutItem2: TdxLayoutItem;
+    dxLayoutItem_color: TdxLayoutItem;
+    dxLayoutItem_pm: TdxLayoutItem;
+    dxLayoutItem_hth: TdxLayoutItem;
+    dxLayoutGroup1: TdxLayoutGroup;
+    dxLayoutGroup2: TdxLayoutGroup;
+    dxLayoutItem_beg: TdxLayoutItem;
+    dxLayoutItem_end: TdxLayoutItem;
+    dxLayoutItem1: TdxLayoutItem;
+    frxReport1: TfrxReport;
+    frxDB_1: TfrxDBDataset;
+    frxBarCodeObject1: TfrxBarCodeObject;
+    frxRichObject1: TfrxRichObject;
+    frxReportTableObject1: TfrxReportTableObject;
+    frxPDFExport1: TfrxPDFExport;
+    TV1CustName: TcxGridDBColumn;
+    TV1operators: TcxGridDBColumn;
+    TV1Column2: TcxGridDBColumn;
+    TV1Column3: TcxGridDBColumn;
+    procedure FormCreate(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBFindClick(Sender: TObject);
+    procedure TbcgsClick(Sender: TObject);
+  private
+    procedure InitGrid();
+  public
+    { Public declarations }
+  end;
+
+var
+  frmDjdDjClListJT: TfrmDjdDjClListJT;
+
+implementation
+uses
+  U_RTFun,U_DataLink,U_globalVar,U_FormLayOutDesign;
+{$R *.dfm}
+
+procedure TfrmDjdDjClListJT.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  Action := caFree;
+end;
+
+procedure TfrmDjdDjClListJT.FormCreate(Sender: TObject);
+begin
+  inherited  ;
+  cxGrid1.Align:=alClient;
+  BegDate.Date:=SGetServerDateTime(ADOQueryBaseTemp);
+  EndDate.Date:=SGetServerDateTime(ADOQueryBaseTemp)
+end;
+
+procedure TfrmDjdDjClListJT.FormShow(Sender: TObject);
+begin
+  inherited;
+  TBRafresh.Click;
+   ReadCxGrid(Trim(self.Caption) + 'Tv1', Tv1, gDllFileCaption);
+end;
+
+procedure TfrmDjdDjClListJT.InitGrid();
+begin
+try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Close;
+      sql.Clear;
+      Filtered:=False;
+      sql.Add('exec p_select_djcl_list');
+      sql.Add('@begdate='+ quotedstr(FormatDateTime('yyyy-MM-dd', BegDate.Date)));
+      sql.Add(',@enddate='+ quotedstr(FormatDateTime('yyyy-MM-dd', endDate.Date+1)));
+      sql.Add(',@djMan='+ quotedstr(gUserName));
+      sql.Add(',@cltype='+ quotedstr('´ò¾í²úÁ¿'));
+      Open;
+    end;
+
+  finally
+    ADOQueryMain.EnableControls;
+  end
+end;
+
+procedure TfrmDjdDjClListJT.TbcgsClick(Sender: TObject);
+begin
+  inherited;
+   WriteCxGrid(Trim(self.Caption) + 'Tv1', Tv1, gDllFileCaption);
+  if gIsCanDesign then
+  begin
+    saveLayOut(application, dxLayoutControl_query, ADOQueryBaseCmd, PWideChar(  fDllFileName + '|' + Self.Name + '|' + dxLayoutControl_query.Name + '.ini'));
+  end;
+end;
+
+procedure TfrmDjdDjClListJT.TBCloseClick(Sender: TObject);
+begin
+  inherited;
+  close;
+end;
+
+procedure TfrmDjdDjClListJT.TBExportClick(Sender: TObject);
+begin
+  inherited;
+  if ADOQueryMain.IsEmpty then exit;
+  TcxGridToExcel(self.Caption,cxGrid1);
+end;
+
+procedure TfrmDjdDjClListJT.TBFindClick(Sender: TObject);
+begin
+  inherited;
+   if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SLGetFilters(dxLayoutControl_query,1,2));
+  end;
+end;
+
+procedure TfrmDjdDjClListJT.TBRafreshClick(Sender: TObject);
+begin
+  inherited;
+  InitGrid();
+end;
+
+end.

项目代码/wenshangkm/G03贸易布匹检验/U_GetDllForm.pas

@@ -17,7 +17,7 @@ implementation
 uses
   U_DataLink, U_globalVar, U_iniParam, U_TradeMachInsp, U_ProductJYHZList,
   U_DeviceJkTest, U_TradeClothInspList, U_MachRollMain, U_TradePack,
-  U_DjdDjClList, U_FormLayOutDesign;
+  U_DjdDjClList, U_FormLayOutDesign, U_DjdDjClListJT;
 
        /////////////////////////////////////////////////////////////////
       //         功能说明:取Dll中得窗体                              //
@@ -76,11 +76,11 @@ begin
 
   if trim(DataBaseStr) = '' then
   begin
-    server := '101.132.143.144,7781';
+    server := '139.129.50.31,7781';
 //   server:='.';
-    dtbase := 'RTBasicsData';
+    dtbase := 'kaimengjydata';
-    user := 'rtsa';
+    user := 'kaimengsa';
-    pswd := 'rightsoft@5740';
+    pswd := 'rightsoft@5078';
     DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
 //   DParameters1:='高权限';
   end
@@ -163,17 +163,6 @@ begin
           mnewHandle := Handle;
         end;
       end;
-//    111:  //»ų́¼ìÑé
-//      begin
-//         form2:=tform2.create(Application.MainForm) ;
-//         with form2 do
-//         begin
-//             WindowState := mstate;
-//            BorderStyle := mborderstyle;
-//            mnewHandle := Handle;
-//           // show;
-//         end;
-//      end;
     1:  //机台检验
       begin
         with TfrmMachRollMain.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
@@ -228,6 +217,17 @@ begin
           mnewHandle := Handle;
         end;
       end;
+    214:  //´ò¾íºÍ´ò°ü²úÁ¿ »ų́
+      begin
+        with TfrmDjdDjClListJT.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID) do       //
+        begin
+          fFormID := FormID;
+       //   FormStyle := mstyle;
+          WindowState := mstate;
+          BorderStyle := mborderstyle;
+          mnewHandle := Handle;
+        end;
+      end;
     10000:
       begin
         for i := 0 to application.MainForm.MDIChildCount - 1 do

项目代码/wenshangkm/G03贸易布匹检验/U_KeyBoard.dfm

@@ -18,7 +18,6 @@ object FrameKeyBoard: TFrameKeyBoard
     Align = alClient
     Frame.Visible = False
     TabOrder = 0
-    ExplicitHeight = 192
     object SpeedButton1: TSpeedButton
       Left = 1
       Top = 2
@@ -231,5 +230,18 @@ object FrameKeyBoard: TFrameKeyBoard
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object SpeedButton11: TSpeedButton
+      Left = 63
+      Top = 186
+      Width = 60
+      Height = 44
+      Caption = 'S'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -20
+      Font.Name = #24494#36719#38597#40657
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
   end
 end

项目代码/wenshangkm/G03贸易布匹检验/U_KeyBoard.pas

@@ -28,6 +28,7 @@ type
     SpeedButton_zdykey2: TSpeedButton;
     SpeedButton_zdykey1: TSpeedButton;
     SpeedButton10: TSpeedButton;
+    SpeedButton11: TSpeedButton;
   private
     { Private declarations }
   public

项目代码/wenshangkm/G03贸易布匹检验/U_MachRollMain.pas

@@ -17,7 +17,9 @@ uses
   cxCheckBox, cxMaskEdit, cxDropDownEdit, Vcl.Menus, cxButtonEdit, RM_Dataset,
   cxGeometry, dxFramedControl, dxPanel, U_KeyBoard, cxGroupBox,
   cxGridCustomPopupMenu, cxGridPopupMenu, MovePanel, RM_RichEdit, cxProgressBar,
-  {FlatUtils, FlatBtns, }cxCurrencyEdit;
+  {FlatUtils, FlatBtns, }cxCurrencyEdit, dxX509Certificate, dxPDFCore, dxPDFBase,
+  dxPDFText, dxPDFRecognizedObject, dxPDFForm, dxPDFFormData, dxPDFDocument,
+  dxPrintUtils, dxCustomPreview, dxPDFDocumentViewer, dxPDFViewer, cxRadioGroup;
 
 type
   TfrmMachRollMain = class(TfrmBaseList)
@@ -257,6 +259,49 @@ type
     customStrField5: TcxButtonEdit;
     dxLayoutItem_customStrField5: TdxLayoutItem;
     ToolButton1: TToolButton;
+    InspectionType: TcxComboBox;
+    dxLayoutItem12: TdxLayoutItem;
+    dxLayoutAutoCreatedGroup7: TdxLayoutAutoCreatedGroup;
+    dxLayoutItem20: TdxLayoutItem;
+    topLen: TcxTextEdit;
+    dxLayoutItem22: TdxLayoutItem;
+    midLen: TcxTextEdit;
+    dxLayoutItem23: TdxLayoutItem;
+    lastLen: TcxTextEdit;
+    dxLayoutItem25: TdxLayoutItem;
+    hundredsquares: TdxLayoutLabeledItem;
+    Cause: TcxTextEdit;
+    dxLayoutItem26: TdxLayoutItem;
+    cxGroupBox1: TcxGroupBox;
+    edit_Cause: TComboBox;
+    Radio_banci: TRadioGroup;
+    dxLayoutItem29: TdxLayoutItem;
+    BanciqtyA: TcxTextEdit;
+    dxLayoutItem_qtyA: TdxLayoutItem;
+    Label1: TLabel;
+    BanciqtyC: TcxTextEdit;
+    dxLayoutItem_qtyC: TdxLayoutItem;
+    dxLayoutItem_qtyB: TdxLayoutItem;
+    BanciqtyB: TcxTextEdit;
+    Label2: TLabel;
+    Tv2Column1: TcxGridDBColumn;
+    TV1Column1: TcxGridDBColumn;
+    Radio_Cause: TRadioGroup;
+    AFiller: TcxTextEdit;
+    dxLayoutItem19: TdxLayoutItem;
+    BFiller: TcxTextEdit;
+    dxLayoutItem27: TdxLayoutItem;
+    dxLayoutAutoCreatedGroup6: TdxLayoutAutoCreatedGroup;
+    CFiller: TcxTextEdit;
+    dxLayoutItem28: TdxLayoutItem;
+    TCP: TToolButton;
+    edtMaBiao: TcxTextEdit;
+    dxLayoutItem30: TdxLayoutItem;
+    EDIT_Machi: TcxTextEdit;
+    dxLayoutItem31: TdxLayoutItem;
+    ToolButton2: TToolButton;
+    hundredsquare: TLabel;
+    dxLayoutItem32: TdxLayoutItem;
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure Button_badClick(Sender: TObject);
@@ -304,6 +349,14 @@ type
     procedure customStrField5DblClick(Sender: TObject);
     procedure customStrField5PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
     procedure ToolButton1Click(Sender: TObject);
+    procedure cxButton1Click(Sender: TObject);
+    procedure gradePropertiesEditValueChanged(Sender: TObject);
+    procedure Label1Click(Sender: TObject);
+    procedure Label2Click(Sender: TObject);
+    procedure TCPClick(Sender: TObject);
+    procedure edtMaBiaoClick(Sender: TObject);
+    procedure EDIT_MachiClick(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
   private
     FCIID, FOperationStatus, FCIFName, FWorkshop: string;
     FBCIOID, FOrderNo, FMainId, FSubId, FPCId, FConNo, FConMId, fBuyConNo, FConSId: string;
@@ -358,12 +411,13 @@ type
     function deletePack(packId: string): boolean;
     function checkPicecNo(): boolean;
     function getCurPieceNO(mCcid: string): string;
+    function gethundredsquares(): string;
     procedure threadLoadform();
     function getCurMaxPieceNo(): integer;
     type
 
   public
-    fmanage: string;
+    fmanage, FCINote: string;
     fFlileFlag: string;
   end;
 
@@ -379,6 +433,51 @@ uses
   U_MdPrint;
 {$R *.dfm}
 
+function TfrmMachRollMain.gethundredsquares(): string;  //百平方米疵点
+var
+  mxIds, FCDfs: Double;
+  Fhundredsquares: string;
+begin
+  result := '';
+  hundredsquare.Font.color := clBlack;
+  if CDS_2.IsEmpty then
+    Exit;
+
+  CDS_2.First;
+  while not CDS_2.eof do
+  begin
+
+    mxIds := RoundFloat(CDS_2.FieldByName('CIFPoints').asfloat, 2) + mxIds;
+    CDS_2.Next;
+  end;
+  if (strtofloatdef(C_Width.text, 0) > 0) and (strtofloatdef(inputlen.text, 0) > 0) then
+  begin
+    FCDfs := RoundFloat((mxIds * 10000) / (strtofloatdef((inputlen.text), 0) * strtofloatdef(C_Width.text, 0)), 2);
+  end
+  else
+  begin
+    FCDfs := 1;
+  end;
+
+  hundredsquare.Caption := '百平方米疵点' + floattostr(FCDfs);
+  if FCDfs <= 20 then
+  begin
+    GRade.text := 'A';
+  end
+  else if (FCDfs <= 30) then
+  begin
+    GRade.text := 'B';
+  end
+  else if FCDfs <= 40 then
+  begin
+    GRade.text := 'C';
+  end;
+  if FCDfs > 40 then
+  begin
+    hundredsquare.Font.color := clred;
+  end;
+end;
+
 procedure TfrmMachRollMain.Btn_rlBillClick(Sender: TObject);
 begin
   if cds_3.IsEmpty then
@@ -409,19 +508,16 @@ var
   mvalue: double;
   i: Integer;
 begin
-
   try
     if cds_3.IsEmpty then
       exit;
-    Panel_msg.Visible := not Panel_msg.Visible;
+//    Panel_msg.Visible := not Panel_msg.Visible;
     cxgrid3.Enabled := not cxgrid3.Enabled;
     InitJTM(cds_3.fieldbyName('CIID').AsString);
     initEditPiece();
     //修改提交
 
 
-
-
     fCanAutoPost := false;
     BTPrint.Enabled := false;
 
@@ -433,6 +529,16 @@ begin
       Application.MessageBox('等级不能为空!', '提示', 0);
       exit;
     end;
+    if trim(C_Width.Text) = '' then
+    begin
+      Application.MessageBox('门幅不能为空!', '提示', 0);
+      exit;
+    end;
+    if (trim(AFiller.text) = '') and (trim(BFiller.text) = '') and (trim(CFiller.text) = '') then
+    begin
+      Application.MessageBox('检验人不能都为空!', '提示', 0);
+      exit;
+    end;
     if CheckData('提交') = false then
       exit;
 
@@ -449,6 +555,14 @@ begin
       funitPiecesStr := '';
       unitPieces.Text := '';
       presentWeight.Text := '';
+      Cause.text := '';
+      FCINote := '';
+      BanciqtyC.text := '';
+      BanciqtyA.text := '';
+      BanciqtyB.text := '';
+//      AFiller.text := '';
+//      BFiller.text := '';
+//      CFiller.text := '';
 //      if (cds_params.fieldbyName('rollnoMake').AsString = '手动') and  (trim(Edit_pieceOrder.Text) <> '√') then
 //      begin
 //        pieceNo.Text:=intTostr(getCurMaxPieceNo());
@@ -463,7 +577,7 @@ begin
         cds_params.fieldbyName('mabiao').value := fOldMaBiao;
         cds_params.Post;
         edtPacketNo.Enabled := true;
-        Panel_msg.Visible := true;
+//        Panel_msg.Visible := true;
         if fileexists(ExtractFilePath(Application.ExeName) + '修改成功.wav') then
           playSound(pwidechar('修改成功.wav'), 0, SND_FILENAME or SND_ASYNC);
       end
@@ -571,6 +685,7 @@ begin
   finally
     BTPrint.Enabled := true;
   end;
+  edtScan.SetFocus;
 end;
 
 procedure TfrmMachRollMain.bt_printmdClick(Sender: TObject);
@@ -827,6 +942,8 @@ begin
   try
     //  loadProcess.Visible:=true;
     //  loadProcess.Refresh;
+
+    hundredsquare.Caption := '百平方米疵点';
     Coefficient.Properties.ReadOnly := gZhxsReadonly;
     tare.Properties.ReadOnly := gTareReadonly;
 
@@ -876,22 +993,23 @@ begin
     begin
       if trim(DZCDYDllName) <> '' then
         OpenCom(DZCDYDllName);
+
       if trim(MBDYDllName) <> '' then
         OpenCom(MBDYDllName);
 
     // edtScan.SetFocus;
-
     end;
     if trim(fCanInputFs) = '1' then
     begin
-      cxGroupBox_keys.ClientHeight := round(cxGrid3.ClientHeight * 0.6);
+      cxGroupBox_keys.ClientHeight := 260; //round(cxGrid3.ClientHeight * 0.6);
       frameKeyBoard1.SpeedButton10.Visible := true;
     end
     else
     begin
-      cxGroupBox_keys.ClientHeight := round(cxGrid3.ClientHeight * 0.55);
+      cxGroupBox_keys.ClientHeight := 260; //round(cxGrid3.ClientHeight * 0.55);
       frameKeyBoard1.SpeedButton10.Visible := false;
     end;
+//    Radio_banci.ItemIndex := 0;
   finally
    // loadProcess.Visible:=false;
   end;
@@ -899,6 +1017,9 @@ begin
   //////
   if dxLayoutItem_customStrField3.ActuallyVisible then
     InitDevCombobox(ADOQueryBaseTemp, customStrField3, 'DOROLLZDY3');
+  cxPageControl1.ActivePageIndex := 0;
+  dxPanel_mid.Visible := not dxPanel_mid.Visible;
+  cxGroupBox_keys.Left := Panel_right.Left + 15;
 end;
 
 procedure TfrmMachRollMain.frameBads1CIFBegDblClick(Sender: TObject);
@@ -1233,7 +1354,7 @@ begin
       fBuyConNo := trim(fieldbyName('BuyConNo').AsString);
       FMainId := trim(fieldbyName('MainId').AsString);
       FSubId := trim(fieldbyName('SubId').AsString);
-      // FPCId := Trim(ADOTmp.fieldbyname('ToPCId').AsString);
+      FCIID := Trim(fieldbyname('CIID').AsString);
       // FC_CustPattern := Trim(ADOTmp.fieldbyname('C_CustPattern').AsString);
       // FC_ColorDepth := Trim(ADOTmp.fieldbyname('C_ColorDepth').AsString);
       // FWorkshop := Trim(ADOTmp.fieldbyname('Workshop').AsString);
@@ -1242,7 +1363,7 @@ begin
       FC_Code := trim(fieldbyName('C_Code').AsString);
       FC_Name := trim(fieldbyName('C_Name').AsString);
       FC_EName := trim(fieldbyName('C_EName').AsString);
-      // FBatchNO := Trim(ADOTmp.fieldbyname('BatchNO').AsString);
+//      FBatchNO := Trim(fieldbyname('BatchNO').AsString);
       FC_Spec := trim(fieldbyName('C_Spec').AsString);
       FC_Color := trim(fieldbyName('C_Color').AsString);
       FC_ColorNo := trim(fieldbyName('C_ColorNo').AsString);
@@ -1301,19 +1422,19 @@ begin
         cds_params.fieldbyName('dabao').value := '';
       end;
       //标签出纸
-      if (fields.FindField('labelOutPage') <> nil) then
+//      if (fields.FindField('labelOutPage') <> nil) then
-      begin
+//      begin
-        if (fieldbyName('labelOutPage').AsBoolean or fieldbyName('labelOutPage').IsNull) then
+//        if (fieldbyName('labelOutPage').AsBoolean or fieldbyName('labelOutPage').IsNull) then
-        begin
+//        begin
-          cds_params.fieldbyName('OutPage').value := '√';
+//          cds_params.fieldbyName('OutPage').value := '√';
-        end
+//        end
-        else
+//        else
-        begin
+//        begin
-          cds_params.fieldbyName('OutPage').value := '';
+//          cds_params.fieldbyName('OutPage').value := '';
-        end;
+//        end;
-      end
+//      end
-      else
+//      else
-        cds_params.fieldbyName('outPage').value := '√';
+//        cds_params.fieldbyName('outPage').value := '√';
       if fieldbyName('DecimalY').Value <> null then
         cds_params.fieldbyName('Yplace').value := fieldbyName('DecimalY').AsInteger;
       if fieldbyName('DecimalM').Value <> null then
@@ -1417,12 +1538,8 @@ end;
 
 procedure TfrmMachRollMain.InputLenPropertiesChange(Sender: TObject);
 begin
-
-  // if StrToIntDef(trim(InputWeight.Text), 0) = 0 then
-  // begin
-  // exit;
-  // end;
   QuantityConversion();
+  gethundredsquares();
   if gAutoPost and (trim(cds_params.fieldbyName('mabiao').AsString) = '1') then
   begin
     if StrToFloatdef(trim(InputLen.Text), 0) > 5 then
@@ -1430,6 +1547,28 @@ begin
       fCanAutoPost := true;
     end;
   end;
+  if gAutoCheckBadNum and (frameBads1.dxPanel1.Visible = true) then
+  begin
+    frameBads1.cxCheck_len.Checked := true;
+    if (frameBads1.cxCheck_len.Checked) and (trim(InputLen.Text) <> '') and (frameBads1.CIFBeg.Text <> '') then
+    begin
+      frameBads1.CIFEnd.Text := trim(InputLen.Text);
+    end;
+  end;
+
+end;
+
+procedure TfrmMachRollMain.Label1Click(Sender: TObject);
+begin
+
+  cxGroupBox1.Visible := false;
+end;
+
+procedure TfrmMachRollMain.Label2Click(Sender: TObject);
+begin
+  Cause.text := trim(Radio_Cause.Caption);
+//  trIM(edit_Cause.text);
+  cxGroupBox1.Visible := false;
 end;
 
 procedure TfrmMachRollMain.lblRuleConversionPropertiesChange(Sender: TObject);
@@ -1535,6 +1674,24 @@ begin
   end;
 end;
 
+procedure TfrmMachRollMain.ToolButton2Click(Sender: TObject);
+begin
+  if CDS_3.IsEmpty then
+    Exit;
+
+  with ADOQueryBaseCmd do
+  begin
+    Close;
+    SQL.Clear;
+    sql.add('insert into Trade_Cloth_Inspect_Flaw_del select * from Trade_Cloth_Inspect_Flaw  where CIID=''' + trim(cds_3.fieldbyName('CIID').AsString) + '''');
+    SQL.Add('delete from Trade_Cloth_Inspect_Flaw  ');
+    SQL.Add(' where CIID=''' + trim(cds_3.fieldbyName('CIID').AsString) + '''  ');
+    execsql;
+  end;
+  InitCDGridCX(cds_3.fieldbyName('CIID').AsString);
+  gethundredsquares();
+end;
+
 procedure TfrmMachRollMain.ToolButton3Click(Sender: TObject);
 begin
   if cds_3.IsEmpty then
@@ -1654,6 +1811,16 @@ begin
   if Application.MessageBox('确定要删除当前病疵记录吗？', '警告信息', 1) = 2 then
     exit;
   CDS_2.Delete;
+  with ADOQueryBaseCmd do
+  begin
+    Close;
+    SQL.Clear;
+    sql.add('insert into Trade_Cloth_Inspect_Flaw_del select * from Trade_Cloth_Inspect_Flaw  where CIFID=''' + trim(CDS_2.fieldbyName('CIFID').AsString) + '''');
+    SQL.Add('delete from Trade_Cloth_Inspect_Flaw  ');
+    SQL.Add(' where CIID=''' + trim(cds_3.fieldbyName('CIID').AsString) + ''' and CIFID=''' + trim(CDS_2.fieldbyName('CIFID').AsString) + '''');
+    execsql;
+  end;
+  gethundredsquares();
 end;
 
 procedure TfrmMachRollMain.Tv3CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
@@ -1669,15 +1836,38 @@ begin
   InitCDGridCX(cds_3.fieldbyName('CIID').AsString);
 end;
 
+procedure TfrmMachRollMain.TCPClick(Sender: TObject);
+//var
+//  CPciid: string;
+begin
+//  CPciid := trim(CDS_3.fieldbyName('CIID').AsString);
+  with ADOQueryBaseCmd do
+  begin
+    close;
+    sql.clear;
+    sql.add(' exec P_Trade_Cloth_CP   ');
+    sql.add('@ciid=''' + trim(CDS_3.fieldbyName('CIID').AsString) + ''' ');
+    open;
+  end;
+  Application.MessageBox(pchar(trim(ADOQueryBaseCmd.fieldbyName('ShowMsg').AsString)), '提示信息', 0);
+//  raise Exception.create(pchar(trim(ADOQueryBaseCmd.fieldbyName('ShowMsg').AsString)));
+end;
+
 procedure TfrmMachRollMain.TeditClick(Sender: TObject);
 begin
   if cds_3.IsEmpty then
     exit;
-  Panel_msg.Visible := not Panel_msg.Visible;
+//  Panel_msg.Visible := not Panel_msg.Visible;
   cxgrid3.Enabled := not cxgrid3.Enabled;
   InitJTM(cds_3.fieldbyName('CIID').AsString);
-
   initEditPiece();
+  with cds_3 do
+  begin
+    InputLen.Text := fieldbyName('InputLen').AsString;
+    grade.ItemIndex := grade.Properties.Items.IndexOf(trim(fieldbyName('grade').AsString));
+  end;
+  InitCDGrid(cds_3.fieldbyName('CIID').AsString);
+  gethundredsquares();
 end;
 
 procedure TfrmMachRollMain.TlogClick(Sender: TObject);
@@ -1780,7 +1970,7 @@ begin
   AOrdDefNote1.Text := '';
   if fBuyConNo <> '' then
     AOrdDefNote1.Text := AOrdDefNote1.Text + '客户单号:' + fBuyConNo + #13;
-  AOrdDefNote1.Text := AOrdDefNote1.Text + '卡号:' + FBCIOID + #13;
+  AOrdDefNote1.Text := AOrdDefNote1.Text + '卷号:' + FBCIOID + #13;
   if FC_EName <> '' then
     AOrdDefNote1.Text := AOrdDefNote1.Text + '品名:' + FC_Name + '(' + FC_EName + ')' + #13
   else
@@ -1938,6 +2128,7 @@ end;
 
 procedure TfrmMachRollMain.InitCDGrid(MCIID: string);
 begin
+
   cxPageControl1.ActivePageIndex := 0;
   try
     tv2.BeginUpdate();
@@ -2201,23 +2392,45 @@ begin
 
 end;
 
+procedure TfrmMachRollMain.cxButton1Click(Sender: TObject);
+begin
+  frameBads1.RadioGroup1.ItemIndex := 0;
+  frameBads1.CIFNumber.text := '';
+  frameBads1.CIJBQty.text := '';
+  frameBads1.CIFBeg.Text := '';
+  frameBads1.CIFEnd.Text := '';
+  frameBads1.CIFQty.Text := '';
+  frameBads1.dxPanel1.Visible := false;
+  exit;
+
+end;
+
 procedure TfrmMachRollMain.cxButton2Click(Sender: TObject);
+var
+  maxno: string;
 begin
   inherited;
   if FCIFName = '' then
   begin
-    frameBads1.dxPanel1.Visible := false;
+//    frameBads1.dxPanel1.Visible := false;
     exit;
   end;
+  if frameBads1.RadioGroup1.ItemIndex = 4 then
+  begin
+    FCINote := '轻微' + Trim(FCIFName);
+  end
+  else
+  begin
 
     with CDS_2 do
     begin
       Append;
-    if frameBads1.RadioGroup1.ItemIndex = 5 then
+//    if frameBads1.RadioGroup1.ItemIndex = 5 then
-      FieldByName('CIFName').Value := '连续性' + Trim(FCIFName)
+//      FieldByName('CIFName').Value := '连续性' + Trim(FCIFName)
-    else if frameBads1.RadioGroup1.ItemIndex = 4 then
+//    else
-      FieldByName('CIFName').Value := '整匹' + Trim(FCIFName)
+//      if frameBads1.RadioGroup1.ItemIndex = 4 then
-    else
+//        FieldByName('CIFName').Value := '整匹' + Trim(FCIFName)
+//      else
       fieldbyName('CIFName').value := trim(FCIFName);
 
       fieldbyName('CIFbeg').value := trim(frameBads1.CIFBeg.Text);
@@ -2238,16 +2451,62 @@ begin
         end;
       end;
       fieldbyName('CIFQty').value := strtofloatdef(trim(frameBads1.CIFQty.Text), 0);
+      fieldbyName('CIJBQty').value := strtofloatdef(trim(frameBads1.CIJBQty.Text), 0);
       fieldbyName('SubtractQty').value := strtofloatdef(trim(frameBads1.SubtractQty.Text), 0);
       fieldbyName('IsSubtract').value := frameBads1.IsSubtract.Checked;
-
       Post;
     end;
+  end;
+  with CDS_2 do
+  begin
+    First;
+    while not eof do
+    begin
+      if trim(CDS_2.fieldbyName('CIFID').AsString) = '' then
+      begin
+        if not GetLSNo(ADOQueryBaseTemp, maxno, 'JC', 'Trade_Cloth_Inspect_Flaw', 5, 1) then
+          raise Exception.create('获取疵点失败！');
+      end
+      else
+      begin
+        maxno := trim(CDS_2.fieldbyName('CIFID').AsString);
+      end;
+      with ADOQueryBaseCmd do
+      begin
+        Close;
+        SQL.Clear;
+        SQL.Add('select * from Trade_Cloth_Inspect_Flaw  ');
+        SQL.Add(' where CIFID=''' + trim(maxno) + '''');
+        Open;
+      end;
+      with ADOQueryBaseCmd do
+      begin
+        if trim(CDS_2.fieldbyName('CIFID').AsString) = '' then
+          Append
+        else
+          edit;
+        RTSetSaveDataCDS(ADOQueryBaseCmd, Tv2, CDS_2, 'Trade_Cloth_Inspect_Flaw', 0);
+        fieldbyName('CIID').value := trim(FCIID);
+        fieldbyName('CIFID').value := trim(maxno);
+        Post;
+      end;
+      CDS_2.edit;
+      CDS_2.fieldbyName('CIID').value := trim(FCIID);
+      CDS_2.fieldbyName('CIFID').value := trim(maxno);
+      next;
+    end;
+  end;
   frameBads1.CIFBeg.Text := '';
   frameBads1.CIFEnd.Text := '';
   frameBads1.CIFQty.Text := '';
-  frameBads1.dxPanel1.Visible := false;
+  frameBads1.RadioGroup1.ItemIndex := 0;
+  frameBads1.CIFNumber.text := '';
+  frameBads1.CIJBQty.text := '';
+
+//  frameBads1.dxPanel1.Visible := false;
   cxPageControl1.ActivePageIndex := 0;
+  gethundredsquares();
+  cxGroupBox_keys.Visible := false;
 end;
 
 procedure TfrmMachRollMain.dxLayoutControl_packDblClick(Sender: TObject);
@@ -2288,6 +2547,18 @@ begin
   // end;
 end;
 
+procedure TfrmMachRollMain.EDIT_MachiClick(Sender: TObject);
+begin
+  if trim(EDIT_Machi.Text) = '' then
+  begin
+    EDIT_Machi.Text := '√';
+  end
+  else
+  begin
+    EDIT_Machi.Text := '';
+  end;
+end;
+
 procedure TfrmMachRollMain.Edit_pieceOrderClick(Sender: TObject);
 begin
   inherited;
@@ -2324,6 +2595,29 @@ begin
 
 end;
 
+procedure TfrmMachRollMain.edtMaBiaoClick(Sender: TObject);
+begin
+  inherited;
+  if trim(edtMaBiao.Text) = '' then
+  begin
+    edtMaBiao.Text := '√';
+  end
+  else
+  begin
+    edtMaBiao.Text := '';
+  end;
+
+  with cds_params do
+  begin
+    cds_params.Edit;
+    if Trim(edtMaBiao.Text) = '√' then
+      cds_params.fieldByName('mabiao').Value := '1'
+    else
+      cds_params.fieldByName('mabiao').Value := '0';
+    cds_params.Post;
+  end;
+end;
+
 procedure TfrmMachRollMain.edtScanDblClick(Sender: TObject);
 begin
   inherited;
@@ -2357,8 +2651,6 @@ begin
   end;
 end;
 
-//
-
 function TfrmMachRollMain.SaveData(): Boolean;
 var
   maxno, MCIID, BZID, strsql: string;
@@ -2372,7 +2664,16 @@ begin
   Result := false;
   Maddwet := strTofloatDef(trim(addwet.text), 0); // Faddwet;
   maddLen := strTofloatDef(trim(addlen.text), 0); // faddlen;
-  mYardStick := strtofloatdef(trim(RuleYardstick.Text), 100);
+  if trim(EDIT_Machi.Text) = '' then
+  begin
+    mYardStick := 100;
+  end
+  else
+  begin
+    mYardStick := 98;
+  end;
+
+//  mYardStick := strtofloatdef(trim(RuleYardstick.Text), 100);
   mPresentLen := strTofloatDef(trim(presentlen.text), 0);
   mpresentWeight := strTofloatDef(trim(presentWeight.text), 0);
   mPresentLen0 := strTofloatDef(trim(presentlen.text), 0);
@@ -2383,16 +2684,16 @@ begin
       funitPiecesStr := Trim(unitPieces.Text) + '+' + floatTostr((strtoFloatdef(trim(InputLen.Text), 0)) - strtoFloatdef(Trim(unitPieces.Text), 0));
   end;
   //0:不变；1：减去赠送
-  if gPresentNumFlag = 1 then
+//  if gPresentNumFlag = 1 then
-  begin
+//  begin
   mPresentLen := -1 * mPresentLen;
   mpresentWeight := -1 * mpresentWeight;
-  end
+//  end
-  else
+//  else
-  begin
+//  begin
-    mPresentLen := 0;
+//    mPresentLen := 0;
-    mpresentWeight := 0;
+//    mpresentWeight := 0;
-  end;
+//  end;
 
   if FOperationStatus = '卷条码' then
   begin
@@ -2492,12 +2793,12 @@ begin
       // 换算后数量+mAddLen
       if (uppercase(lblLenUnit.CaptionOptions.Hint) = 'M') or (lblLenUnit.CaptionOptions.Hint = '米') then
       begin
-        MMeter := RoundFloat((MInputLen + maddLen + mPresentLen) / (mYardStick / 100), cds_params.fieldbyName('MPlace').AsInteger);
+        MMeter := RoundFloat((MInputLen + maddLen + mPresentLen) * (mYardStick / 100), cds_params.fieldbyName('MPlace').AsInteger);
         MYardage := RoundFloat(MMeter / 0.9144, cds_params.fieldbyName('YPlace').AsInteger);
       end
       else
       begin
-        MYardage := RoundFloat((MInputLen + maddLen + mPresentLen) / (mYardStick / 100), cds_params.fieldbyName('YPlace').AsInteger);
+        MYardage := RoundFloat((MInputLen + maddLen + mPresentLen) * (mYardStick / 100), cds_params.fieldbyName('YPlace').AsInteger);
         MMeter := RoundFloat(MYardage * 0.9144, cds_params.fieldbyName('MPlace').AsInteger);
       end;
 
@@ -2509,14 +2810,39 @@ begin
       fieldbyName('YardStick').value := mYardStick;
 
       /// //////////////////////           保存长度         /////////////////////////
-      // if Trim(Edit_zp.Text) <> '' then
+
-      // begin
       fieldbyName('Grade').value := trim(grade.Text);
-      // end;
+      fieldbyName('InspectionType').value := trim(InspectionType.Text);
-      // if Trim(Edit_cp.Text) <> '' then
+//      fieldbyName('banci').value := trim(banci.Text);
-      // begin
+      if Radio_banci.ItemIndex = 0 then
-      // FieldByName('Grade').Value := '次品';
+      begin
-      // end;
+        fieldbyName('banci').value := 'A';
+        fieldbyName('BanciqtyA').value := RoundFloat(strtofloatdef(trim(InputLen.Text), 0) - strtofloatdef(trim(BanciqtyB.Text), 0) - strtofloatdef(trim(BanciqtyC.Text), 0), 2);
+        fieldbyName('BanciqtyB').value := RoundFloat(strtofloatdef(trim(BanciqtyB.Text), 0), 2);
+        fieldbyName('BanciqtyC').value := RoundFloat(strtofloatdef(trim(BanciqtyB.Text), 0), 2);
+
+      end
+      else if Radio_banci.ItemIndex = 1 then
+      begin
+        fieldbyName('banci').value := 'B';
+        fieldbyName('BanciqtyB').value := RoundFloat(strtofloatdef(trim(InputLen.Text), 0) - strtofloatdef(trim(BanciqtyA.Text), 0) - strtofloatdef(trim(BanciqtyC.Text), 0), 2);
+        fieldbyName('BanciqtyA').value := RoundFloat(strtofloatdef(trim(BanciqtyA.Text), 0), 2);
+
+        fieldbyName('BanciqtyC').value := RoundFloat(strtofloatdef(trim(BanciqtyB.Text), 0), 2);
+      end
+      else
+      begin
+        fieldbyName('banci').value := 'C';
+        fieldbyName('BanciqtyC').value := RoundFloat(strtofloatdef(trim(InputLen.Text), 0) - strtofloatdef(trim(BanciqtyA.Text), 0) - strtofloatdef(trim(BanciqtyB.Text), 0), 2);
+        fieldbyName('BanciqtyA').value := RoundFloat(strtofloatdef(trim(BanciqtyA.Text), 0), 2);
+        fieldbyName('BanciqtyB').value := RoundFloat(strtofloatdef(trim(BanciqtyB.Text), 0), 2);
+
+      end;
+
+      fieldbyName('AFiller').value := trim(AFiller.Text);
+      fieldbyName('BFiller').value := trim(BFiller.Text);
+      fieldbyName('CFiller').value := trim(CFiller.Text);
+
       if FOperationStatus <> '卷条码' then
       begin
         fieldbyName('PieceNo').value := 0;
@@ -2536,11 +2862,13 @@ begin
       fieldbyName('ConMId').value := trim(FConMId);
       fieldbyName('ConSId').value := trim(FConSId);
       fieldbyName('BCIOID').value := trim(FBCIOID);
+      fieldbyName('PCID').value := trim(maxno);
       fieldbyName('Workshop').value := trim(FWorkshop);
-      if dxLayoutItem_rk.Visible then
+//      if dxLayoutItem_rk.Visible then
-        fieldbyName('CIIOFlag').value := '未入库'
+//        fieldbyName('CIIOFlag').value := '未入库'
-      else
+//      else
-        fieldbyName('CIIOFlag').value := '已入库';
+      fieldbyName('CIIOFlag').value := '已检验';
+      fieldbyName('CINote').value := trim(FCINote);
       fieldbyName('C_Code').value := FC_Code;
       fieldbyName('C_Name').value := FC_Name;
       fieldbyName('C_EName').value := FC_EName;
@@ -2551,6 +2879,19 @@ begin
       fieldbyName('C_EColor').value := FC_EColor;
       fieldbyName('C_ColorNo').value := FC_ColorNo;
       fieldbyName('C_StyleNo').value := FC_StyleNo;
+      if StrToFloatDef(topLen.Text, 0) > 0 then
+      begin
+        fieldbyName('topLen').value := trim(topLen.Text);
+      end;
+      if StrToFloatDef(midLen.Text, 0) > 0 then
+      begin
+        fieldbyName('midLen').value := trim(midLen.Text);
+      end;
+      if StrToFloatDef(lastLen.Text, 0) > 0 then
+      begin
+        fieldbyName('lastLen').value := trim(lastLen.Text);
+      end;
+      fieldbyName('Cause').value := trim(Cause.Text);
       fieldbyName('C_Composition').value := FC_Composition;
       if dxLayoutItem_width.ActuallyVisible then
         fieldbyName('C_Width').value := trim(C_width.Text)
@@ -2602,7 +2943,7 @@ begin
     FCIID := trim(maxno);
 
     /// ///////////////       保存疵点信息       //////////////////
-    with CDS_2 do
+   { with CDS_2 do
     begin
       First;
       while not eof do
@@ -2640,7 +2981,7 @@ begin
         CDS_2.fieldbyName('CIFID').value := trim(maxno);
         next;
       end;
-    end;
+    end;    }
     /// ///////////////       保存疵点信息       //////////////////
     ///
     /// ///////////////       更新卷号疵点信息       //////////////////
@@ -2665,12 +3006,11 @@ begin
     end;
 
     //判断是否有重复
-    if not checkPicecNo() then
+//    if not checkPicecNo() then
-    begin
+//    begin
-
+//
-      exit;
+//      exit;
-    end;
+//    end;
-
     /// ///////////////       更新卷号疵点信息       //////////////////
     ///
     /// ///////////////       更新开卡       //////////////////
@@ -2757,11 +3097,11 @@ begin
   if fLabVolume = '' then
     fLabVolume := trim(gDefaultLableFile);
 
-  if fLabVolume = '' then
+//  if fLabVolume = '' then
-  begin
+//  begin
-    Application.MessageBox('订单还未设置标签！', '提示信息', MB_ICONERROR);
+//    Application.MessageBox('订单还未设置标签！', '提示信息', MB_ICONERROR);
-    exit;
+//    exit;
-  end;
+//  end;
 
   ExportFtErpFile(fLabVolume + '.rmf', ADOQueryBaseTemp);
   fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + fLabVolume + '.rmf';
@@ -2892,7 +3232,7 @@ begin
   begin
     FOperationStatus := '卷条码';
     FCIID := MCIID;
-    InitCDGrid(MCIID);
+//    InitCDGrid(MCIID);
   end;
 
 end;
@@ -2968,7 +3308,7 @@ begin
         SetUnit('Y');
       end;
     end;
-
+    gethundredsquares();
   end;
 end;
 
@@ -3029,16 +3369,16 @@ begin
     with cds_3 do
     begin
 //      InputLen.Text := fieldbyName('InputLen').AsString;
-//      fLastPieceNo := trim(PieceNo.Text);
+      fLastPieceNo := trim(PieceNo.Text);
-//      PieceNo.Text := fieldbyName('PieceNo').AsString;
+      PieceNo.Text := fieldbyName('PieceNo').AsString;
 //      InputWeight.Text := fieldbyName('InputWeight').AsString;
-//      Tare.Text := fieldbyName('Tare').AsString;
+      Tare.Text := fieldbyName('Tare').AsString;
 //      grade.ItemIndex := grade.Properties.Items.IndexOf(trim(fieldbyName('grade').AsString));
-      // Coefficient.Text:=fieldByName('Coefficient').AsString;
+//      Coefficient.Text := fieldByName('Coefficient').AsString;
     end;
 
     edtPacketNo.Enabled := False;
-  end
+  {end
   else
   begin
     BTPrint.Caption := '提  交';
@@ -3051,8 +3391,8 @@ begin
     cds_params.fieldbyName('chen').value := fOldCheng;
     cds_params.fieldbyName('mabiao').value := fOldmabiao;
     cds_params.Post;
+   }
   end;
-
 end;
 
 procedure TfrmMachRollMain.GetPacketNo();
@@ -3092,6 +3432,25 @@ begin
   end;
 end;
 
+procedure TfrmMachRollMain.gradePropertiesEditValueChanged(Sender: TObject);
+var
+  MStrIn: string;
+//  mvalue: double;
+begin
+  if (trim(grade.text) = 'D/C') or (trim(grade.text) = 'D') then
+  begin
+    cxGroupBox1.Visible := not cxGroupBox1.Visible;
+    if cxGroupBox1.Visible then
+    begin
+      cxGroupBox1.Left := (self.Width - cxGroupBox1.Width) div 2;
+//      edit_Cause.SetFocus;
+    end;
+    Cause.text := trIM(edit_Cause.text);
+
+  end;
+
+end;
+
 /////////////////////////////////////
 function TfrmMachRollMain.deletePack(packId: string): boolean;
 var

项目代码/wenshangkm/G03贸易布匹检验/U_ParamSet.dfm

@@ -62,25 +62,26 @@ object frmParamSet: TfrmParamSet
           Visible = True
         end
         inherited edtMaBiao: TcxTextEdit
-          ExplicitHeight = 38
+          ExplicitHeight = 34
         end
         inherited edtMBDW: TcxTextEdit
-          ExplicitHeight = 38
+          ExplicitHeight = 34
         end
         inherited edtChen: TcxTextEdit
-          ExplicitHeight = 38
+          ExplicitHeight = 34
         end
         inherited outPage: TcxTextEdit
-          ExplicitHeight = 38
+          Text = ''
+          ExplicitHeight = 34
         end
         inherited AddwetPresent: TcxTextEdit
-          ExplicitHeight = 31
+          ExplicitHeight = 27
         end
         inherited AddLenPresent: TcxTextEdit
-          ExplicitHeight = 31
+          ExplicitHeight = 27
         end
         inherited presentNumFlag: TcxComboBox
-          ExplicitHeight = 31
+          ExplicitHeight = 27
         end
       end
       inherited cxGroupBox2: TcxGroupBox
@@ -95,39 +96,39 @@ object frmParamSet: TfrmParamSet
           Touch.TabletOptions = []
           ExplicitLeft = 53
           ExplicitTop = 27
-          ExplicitHeight = 31
+          ExplicitHeight = 27
         end
         inherited MaxLen: TcxTextEdit
-          ExplicitHeight = 31
+          ExplicitHeight = 27
         end
         inherited MinWeight: TcxTextEdit
-          ExplicitHeight = 31
+          ExplicitHeight = 27
         end
         inherited MaxWeight: TcxTextEdit
-          ExplicitHeight = 31
+          ExplicitHeight = 27
         end
         inherited BeginPieceNo: TcxTextEdit
           Top = 64
           Properties.OnChange = FrameParam1BeginPieceNoPropertiesChange
           ExplicitTop = 64
-          ExplicitHeight = 31
+          ExplicitHeight = 27
         end
         inherited EndPieceNo: TcxTextEdit
           Properties.OnChange = FrameParam1EndPieceNoPropertiesChange
-          ExplicitHeight = 31
+          ExplicitHeight = 27
         end
       end
       inherited cxGroupBox3: TcxGroupBox
         ExplicitWidth = 771
         Width = 771
         inherited MPlace: TcxTextEdit
-          ExplicitHeight = 31
+          ExplicitHeight = 27
         end
         inherited YPlace: TcxTextEdit
-          ExplicitHeight = 31
+          ExplicitHeight = 27
         end
         inherited KgPlace: TcxTextEdit
-          ExplicitHeight = 31
+          ExplicitHeight = 27
         end
       end
       inherited cxGroupBox4: TcxGroupBox
@@ -138,19 +139,19 @@ object frmParamSet: TfrmParamSet
         inherited edtdabao: TcxTextEdit
           Style.Font.Height = -16
           Style.IsFontAssigned = True
-          ExplicitHeight = 34
+          ExplicitHeight = 30
         end
         inherited packRolls: TcxTextEdit
-          ExplicitHeight = 31
+          ExplicitHeight = 27
         end
         inherited rollnoMake: TcxComboBox
           Properties.DropDownListStyle = lsEditFixedList
           Style.Font.Charset = GB2312_CHARSET
           Style.IsFontAssigned = True
-          ExplicitHeight = 31
+          ExplicitHeight = 27
         end
         inherited packNoMake: TcxComboBox
-          ExplicitHeight = 31
+          ExplicitHeight = 27
         end
         inherited packPrintPreview: TCheckBox
           Top = 74
@@ -161,15 +162,14 @@ object frmParamSet: TfrmParamSet
         inherited packlabNumber: TcxComboBox
           Style.Font.Charset = GB2312_CHARSET
           Style.IsFontAssigned = True
-          ExplicitHeight = 25
         end
         inherited packPrintAction: TcxComboBox
-          ExplicitHeight = 31
+          ExplicitHeight = 27
         end
       end
     end
     inherited weightRule: TcxComboBox
-      ExplicitHeight = 34
+      ExplicitHeight = 30
     end
   end
   object dxPanel1: TdxPanel

项目代码/wenshangkm/G03贸易布匹检验/U_TradeClothInspList.dfm

@@ -20,6 +20,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
     AutoSize = True
     BevelInner = bvLowered
     TabOrder = 3
+    ExplicitTop = 130
     DesignSize = (
       1296
       40)
@@ -98,10 +99,10 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
     end
   end
   object cxGrid1: TcxGrid [1]
-    Left = -40
+    Left = 8
-    Top = 194
+    Top = 167
     Width = 1296
-    Height = 390
+    Height = 426
     BorderStyle = cxcbsNone
     PopupMenu = PM_1
     TabOrder = 2
@@ -539,6 +540,13 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
         DataBinding.IsNullValueType = True
         Width = 60
       end
+      object Tv1Column13: TcxGridDBColumn
+        Caption = #24179#22343#26102#38388
+        DataBinding.FieldName = 'Averagetime'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
     end
     object cxGrid1Level1: TcxGridLevel
       GridView = Tv1
@@ -552,7 +560,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
     Height = 76
     AutoSize = True
     ButtonHeight = 38
-    ButtonWidth = 121
+    ButtonWidth = 169
     Caption = 'ToolBar1'
     Color = clWhite
     DoubleBuffered = False
@@ -597,17 +605,25 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
       ImageIndex = 3
       OnClick = btnEditClick
     end
-    object ToolButton2: TToolButton
+    object ToolButton6: TToolButton
       Left = 403
       Top = 0
       AutoSize = True
+      Caption = #20462#25913#24179#22343#26102#38388
+      ImageIndex = 3
+      OnClick = ToolButton6Click
+    end
+    object ToolButton2: TToolButton
+      Left = 538
+      Top = 0
+      AutoSize = True
       Caption = #25209#37327#20462#25913
       DropdownMenu = PopupMenu2
       ImageIndex = 3
       Style = tbsDropDown
     end
     object TBZF: TToolButton
-      Left = 529
+      Left = 664
       Top = 0
       AutoSize = True
       Caption = #21024#38500
@@ -615,26 +631,26 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
       OnClick = TBZFClick
     end
     object Tout: TToolButton
-      Left = 600
+      Left = 735
       Top = 0
       AutoSize = True
       Caption = #20986#24211
       DropdownMenu = PopupMenu1
       ImageIndex = 49
+      Wrap = True
       Style = tbsDropDown
       OnClick = ToutClick
     end
     object Tunout: TToolButton
-      Left = 694
+      Left = 0
-      Top = 0
+      Top = 38
       AutoSize = True
       Caption = #25764#38144#20986#24211
       ImageIndex = 11
-      Wrap = True
       OnClick = TunoutClick
     end
     object ToolButton4: TToolButton
-      Left = 0
+      Left = 103
       Top = 38
       AutoSize = True
       Caption = #25171#21253
@@ -642,7 +658,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
       OnClick = ToolButton4Click
     end
     object btnJYBG: TToolButton
-      Left = 71
+      Left = 174
       Top = 38
       AutoSize = True
       Caption = #26816#39564#25253#21578
@@ -650,15 +666,23 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
       OnClick = btnJYBGClick
     end
     object Tprintmd: TToolButton
-      Left = 174
+      Left = 277
       Top = 38
       AutoSize = True
       Caption = #25171#21360#30721#21333
       ImageIndex = 21
       OnClick = TprintmdClick
     end
+    object ToolButton7: TToolButton
+      Left = 380
+      Top = 38
+      AutoSize = True
+      Caption = #25171#21360#39564#36135#20998#26512#25253#21578
+      ImageIndex = 21
+      OnClick = ToolButton7Click
+    end
     object TBExport: TToolButton
-      Left = 277
+      Left = 547
       Top = 38
       AutoSize = True
       Caption = #23548#20986
@@ -666,7 +690,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
       OnClick = TBExportClick
     end
     object ToolButton5: TToolButton
-      Left = 348
+      Left = 618
       Top = 38
       AutoSize = True
       Caption = #26085#24535
@@ -674,7 +698,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
       OnClick = ToolButton5Click
     end
     object ToolButton1: TToolButton
-      Left = 419
+      Left = 689
       Top = 38
       AutoSize = True
       Caption = #20445#23384#26684#24335
@@ -682,7 +706,7 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
       OnClick = ToolButton1Click
     end
     object TBClose: TToolButton
-      Left = 522
+      Left = 792
       Top = 38
       AutoSize = True
       Caption = #20851#38381
@@ -1502,4 +1526,89 @@ inherited frmTradeClothInspList: TfrmTradeClothInspList
       OnClick = MenuItem1Click
     end
   end
+  object ADO_1: TADOQuery
+    Connection = DataLink_TradeInsp.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 280
+    Top = 340
+  end
+  object RMDB_A: TRMDBDataSet
+    Visible = True
+    DataSet = ADO_1
+    Left = 348
+    Top = 344
+  end
+  object RMDB_B: TRMDBDataSet
+    Visible = True
+    DataSet = ADO_2
+    Left = 348
+    Top = 396
+  end
+  object ADO_2: TADOQuery
+    Connection = DataLink_TradeInsp.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 272
+    Top = 388
+  end
+  object ADO_3: TADOQuery
+    Connection = DataLink_TradeInsp.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 272
+    Top = 436
+  end
+  object RMDB_C: TRMDBDataSet
+    Visible = True
+    DataSet = ADO_3
+    Left = 348
+    Top = 444
+  end
+  object RMDB_D: TRMDBDataSet
+    Visible = True
+    DataSet = ADO_4
+    Left = 340
+    Top = 484
+  end
+  object RMDB_F: TRMDBDataSet
+    Visible = True
+    DataSet = ADO_5
+    Left = 412
+    Top = 484
+  end
+  object ADO_4: TADOQuery
+    Connection = DataLink_TradeInsp.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 264
+    Top = 484
+  end
+  object ADO_5: TADOQuery
+    Connection = DataLink_TradeInsp.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 408
+    Top = 436
+  end
+  object RM2: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator]
+    DefaultCollate = False
+    ShowPrintDialog = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 580
+    Top = 440
+    ReportData = {}
+  end
 end

项目代码/wenshangkm/G03贸易布匹检验/U_TradeClothInspList.pas

@@ -167,6 +167,20 @@ type
     MenuItem1: TMenuItem;
     cxCheckBox1: TcxCheckBox;
     Tv1Column9: TcxGridDBColumn;
+    ToolButton6: TToolButton;
+    Tv1Column13: TcxGridDBColumn;
+    ToolButton7: TToolButton;
+    ADO_1: TADOQuery;
+    RMDB_A: TRMDBDataSet;
+    RMDB_B: TRMDBDataSet;
+    ADO_2: TADOQuery;
+    ADO_3: TADOQuery;
+    RMDB_C: TRMDBDataSet;
+    RMDB_D: TRMDBDataSet;
+    RMDB_F: TRMDBDataSet;
+    ADO_4: TADOQuery;
+    ADO_5: TADOQuery;
+    RM2: TRMGridReport;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure TBCloseClick(Sender: TObject);
@@ -216,6 +230,7 @@ type
     procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
     procedure v1sselPropertiesEditValueChanged(Sender: TObject);
     procedure cxCheckBox1Click(Sender: TObject);
+    procedure ToolButton7Click(Sender: TObject);
   private
     fstopwatch: TStopwatch;
     DQdate: TDateTime;
@@ -766,21 +781,154 @@ begin
 end;
 
 procedure TfrmTradeClothInspList.ToolButton6Click(Sender: TObject);
+var
+  MStrIn: string;
+  mvalue: double;
 begin
-//  with ADOQueryTemp do
+  if Order_Main.IsEmpty then
-//  begin
+    Exit;
-//    close;
+
-//    sql.Clear;
+  if Order_Main.Locate('SSel', True, []) = False then
-//    sql.Add('SELECT * FROM [dbo].[Bs_Report_Cloud_File]');
+  begin
-//    sql.Add('where BLCLID=''D22E6757-43C2-45B9-AE14-921BD2293E50''');
+    Application.MessageBox('请先选择数据记录', '提示', 0);
-//    open;
+    Exit;
-//  end;
+  end;
-//  if ADOQueryTemp.RecordCount>0 then
+
-//  begin
+  if not InputQuery('平均时间', '请输入', MStrIn) then
-//    rm1.LoadPreparedReportFromBlobField(TBlobField(ADOQueryTemp.fieldByName('GenerateFiles')));
+  begin
-//    rm1.ShowPreparedReport;
+    Exit;
-//    // rm1.PrintPreparedReport('',1,true,rmppAll)  ;
+  end;
-//  end;
+  mvalue := strTofloatdef(trim(MStrIn), 0);
+  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 Trade_Cloth_Inspect Set Averagetime=' + floatTostr(mvalue));
+            sql.Add('where cIId=''' + Trim(Order_Main.fieldbyname('cIId').AsString) + '''');
+            ExecSQL;
+          end;
+        end;
+        Next;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Order_Main.EnableControls;
+    application.MessageBox('数据操作成功！', '提示信息');
+    TBRafresh.Click;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Order_Main.EnableControls;
+    application.MessageBox('数据操作失败！', '提示信息', 0);
+  end;
+
+end;
+
+procedure TfrmTradeClothInspList.ToolButton7Click(Sender: TObject);
+var
+  WSql, FFiltration1: string;
+  fPrintFile, fPrintFile10, FMainID, LBName: string;
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+  if Order_Main.Locate('SSel', True, []) = False then
+  begin
+    Application.MessageBox('没有选择数据', '提示', 0);
+    Exit;
+  end;
+  ExportFtErpFile('验货分析报告.rmf', ADOQueryTemp);
+  WSql := '';
+  Order_Main.DisableControls;
+  with Order_Main do
+  begin
+    First;
+    while not Eof do
+    begin
+      if Order_Main.fieldbyname('SSel').AsBoolean then
+      begin
+        if WSql <> '' then
+        begin
+          WSql := WSql + ',' + Trim(Order_Main.fieldbyname('CIID').AsString);
+        end
+        else
+        begin
+          WSql := Trim(Order_Main.fieldbyname('CIID').AsString);
+        end;
+      end;
+      Next;
+    end;
+  end;
+  Order_Main.Locate('SSel', True, []);
+  FFiltration1 := WSql;
+  Order_Main.EnableControls;
+  with ADO_1 do
+  begin
+    Close;
+    sql.Clear;
+    sql.add('exec P_Trade_Cloth_IN_djd_Prt_JYFX');
+    sql.add(' @Filtration=' + quotedstr(Trim(FFiltration1)));
+    sql.add(',@grade=''A'' ');
+    Open;
+  end;
+  with ADO_2 do
+  begin
+    Close;
+    sql.Clear;
+    sql.add('exec P_Trade_Cloth_IN_djd_Prt_JYFX');
+    sql.add(' @Filtration=' + quotedstr(Trim(FFiltration1)));
+    sql.add(',@grade=''B'' ');
+    Open;
+  end;
+  with ADO_3 do
+  begin
+    Close;
+    sql.Clear;
+    sql.add('exec P_Trade_Cloth_IN_djd_Prt_JYFX');
+    sql.add(' @Filtration=' + quotedstr(Trim(FFiltration1)));
+    sql.add(',@grade=''C'' ');
+    Open;
+  end;
+  with ADO_4 do
+  begin
+    Close;
+    sql.Clear;
+    sql.add('exec P_Trade_Cloth_IN_djd_Prt_JYFX');
+    sql.add(' @Filtration=' + quotedstr(Trim(FFiltration1)));
+    sql.add(',@grade=''D'' ');
+    Open;
+  end;
+  with ADO_5 do
+  begin
+    Close;
+    sql.Clear;
+    sql.add('exec P_Trade_Cloth_IN_djd_Prt_JYFX');
+    sql.add(' @Filtration=' + quotedstr(Trim(FFiltration1)));
+    sql.add(',@grade=''D/C'' ');
+    Open;
+  end;
+  fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\验货分析报告.rmf';
+
+  RMXLSExport1.ShowDialog := true;
+  if FileExists(fPrintFile) then
+  begin
+    RM2.LoadFromFile(fPrintFile);
+    RM2.DefaultCopies := 1;
+    RM2.ShowReport;
+//      RM1.PrintReport;
+  end
+  else
+  begin
+    Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
+  end;
 end;
 
 procedure TfrmTradeClothInspList.ToutClick(Sender: TObject);
@@ -790,7 +938,7 @@ begin
     Application.MessageBox('ÇëÏÈÑ¡ÔñÊý¾Ý!', 'Ìáʾ', 0);
     Exit;
   end;
-  if Application.MessageBox('确定要出库吗？', '提示', 32 + 4) <> IDYES then
+  if Application.MessageBox('确定要修改平均时间吗？', '提示', 32 + 4) <> IDYES then
     Exit;
   Order_Main.DisableControls;
   with Order_Main do
@@ -805,7 +953,7 @@ begin
         begin
           Close;
           sql.Clear;
-          sql.Add('update Trade_Cloth_Inspect set CIIOFlag=''已出库'',IOTime=getdate() where CIID=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + '''');
+          sql.Add('update Trade_Cloth_Inspect set Averagetime=''已出库'',IOTime=getdate() where CIID=''' + Trim(Order_Main.fieldbyname('CIID').AsString) + '''');
           ExecSQL;
         end;
 

项目代码/wenshangkm/G03贸易布匹检验/U_frameBads.dfm

@@ -1,7 +1,7 @@
 object frameBads: TframeBads
   Left = 0
   Top = 0
-  Width = 331
+  Width = 300
   Height = 435
   DoubleBuffered = False
   Font.Charset = ANSI_CHARSET
@@ -15,15 +15,16 @@ object frameBads: TframeBads
   object dxPanel1: TdxPanel
     Left = 0
     Top = 144
-    Width = 331
+    Width = 300
     Height = 291
     Align = alBottom
     TabOrder = 0
     Visible = False
+    ExplicitWidth = 321
     object RadioGroup1: TRadioGroup
       Left = 0
       Top = 108
-      Width = 329
+      Width = 298
       Height = 132
       Align = alBottom
       Columns = 2
@@ -43,15 +44,17 @@ object frameBads: TframeBads
       ParentCtl3D = False
       ParentFont = False
       TabOrder = 0
+      ExplicitWidth = 319
     end
     object dxPanel3: TdxPanel
       Left = 0
       Top = 240
-      Width = 329
+      Width = 298
       Height = 49
       Align = alBottom
       Frame.Borders = [bLeft, bRight, bBottom]
       TabOrder = 1
+      ExplicitWidth = 319
       object cxButton1: TcxButton
         Left = 25
         Top = 3
@@ -86,7 +89,7 @@ object frameBads: TframeBads
     object dxLayoutControl1: TdxLayoutControl
       Left = 0
       Top = 9
-      Width = 329
+      Width = 298
       Height = 99
       Align = alBottom
       Font.Charset = ANSI_CHARSET
@@ -97,8 +100,9 @@ object frameBads: TframeBads
       ParentFont = False
       TabOrder = 2
       LayoutLookAndFeel = DataLink_TradeInsp.dxLayoutSkinLookAndFeel1
+      ExplicitWidth = 319
       object CIFBeg: TcxTextEdit
-        Left = 53
+        Left = -21
         Top = 54
         ParentFont = False
         Properties.OnEditValueChanged = CIFBegPropertiesEditValueChanged
@@ -114,7 +118,7 @@ object frameBads: TframeBads
         Width = 52
       end
       object CIFEnd: TcxTextEdit
-        Left = 129
+        Left = 55
         Top = 54
         AutoSize = False
         ParentFont = False
@@ -128,11 +132,11 @@ object frameBads: TframeBads
         Style.TransparentBorder = False
         Style.IsFontAssigned = True
         TabOrder = 5
-        Height = 37
+        Height = 31
         Width = 58
       end
       object CIFQty: TcxTextEdit
-        Left = 211
+        Left = 137
         Top = 54
         AutoSize = False
         ParentFont = False
@@ -145,11 +149,11 @@ object frameBads: TframeBads
         Style.TransparentBorder = False
         Style.IsFontAssigned = True
         TabOrder = 6
-        Height = 37
+        Height = 31
         Width = 53
       end
       object CIFNumber: TcxTextEdit
-        Left = 49
+        Left = -20
         Top = 9
         ParentFont = False
         Style.Font.Charset = ANSI_CHARSET
@@ -164,7 +168,7 @@ object frameBads: TframeBads
         Width = 56
       end
       object IsSubtract: TcxCheckBox
-        Left = 262
+        Left = 193
         Top = 9
         AutoSize = False
         Caption = ' '
@@ -186,10 +190,10 @@ object frameBads: TframeBads
         Transparent = True
         OnClick = IsSubtractClick
         Height = 37
-        Width = 36
+        Width = 117
       end
       object SubtractQty: TcxTextEdit
-        Left = 194
+        Left = 125
         Top = 9
         AutoSize = False
         ParentFont = False
@@ -207,7 +211,7 @@ object frameBads: TframeBads
         Width = 60
       end
       object cxCheck_len: TcxCheckBox
-        Left = 4
+        Left = -65
         Top = 54
         Caption = #38271#24230
         ParentFont = False
@@ -216,6 +220,14 @@ object frameBads: TframeBads
         TabOrder = 3
         Transparent = True
       end
+      object CIJBQty: TcxTextEdit
+        Left = 237
+        Top = 54
+        Style.HotTrack = False
+        Style.TransparentBorder = False
+        TabOrder = 7
+        Width = 73
+      end
       object dxLayoutControl1Group_Root: TdxLayoutGroup
         AlignHorz = ahParentManaged
         AlignVert = avTop
@@ -251,7 +263,7 @@ object frameBads: TframeBads
       object dxLayoutItem2: TdxLayoutItem
         Parent = dxLayoutGroup1
         Control = CIFNumber
-        ControlOptions.OriginalHeight = 37
+        ControlOptions.OriginalHeight = 31
         ControlOptions.OriginalWidth = 56
         ControlOptions.ShowBorder = False
         Index = 2
@@ -285,7 +297,7 @@ object frameBads: TframeBads
       object dxLayoutItem1: TdxLayoutItem
         Parent = dxLayoutGroup2
         Control = CIFBeg
-        ControlOptions.OriginalHeight = 37
+        ControlOptions.OriginalHeight = 31
         ControlOptions.OriginalWidth = 52
         ControlOptions.ShowBorder = False
         Index = 1
@@ -352,19 +364,33 @@ object frameBads: TframeBads
         CaptionOptions.Visible = False
         Control = cxCheck_len
         ControlOptions.OriginalHeight = 30
-        ControlOptions.OriginalWidth = 49
+        ControlOptions.OriginalWidth = 44
         ControlOptions.ShowBorder = False
         Index = 0
       end
+      object dxLayoutItem7: TdxLayoutItem
+        Parent = dxLayoutGroup2
+        CaptionOptions.Text = #36317#36793
+        Control = CIJBQty
+        ControlOptions.OriginalHeight = 25
+        ControlOptions.OriginalWidth = 73
+        ControlOptions.ShowBorder = False
+        Index = 5
+      end
+      object CM: TdxLayoutLabeledItem
+        CaptionOptions.Text = 'CM'
+        Index = -1
+      end
     end
   end
   object cxScrollBox1: TcxScrollBox
     Left = 0
     Top = 0
-    Width = 331
+    Width = 300
     Height = 144
     Align = alClient
     TabOrder = 1
+    ExplicitWidth = 321
   end
   object ADOTmp: TADOQuery
     Connection = DataLink_TradeInsp.ADOLink

项目代码/wenshangkm/G03贸易布匹检验/U_frameBads.pas

@@ -4,13 +4,12 @@ interface
 
 uses
   Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
-  System.Classes,
+  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics,
-  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, cxGraphics, cxControls,
+  cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
-  cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
+  Vcl.StdCtrls, Vcl.ExtCtrls, cxTextEdit, MovePanel, Vcl.Buttons, cxGeometry,
-   Vcl.StdCtrls, Vcl.ExtCtrls, cxTextEdit, MovePanel, Vcl.Buttons,
+  dxFramedControl, Vcl.Menus, cxButtons, dxPanel, cxScrollBox,
-  cxGeometry, dxFramedControl, Vcl.Menus, cxButtons, dxPanel, cxScrollBox,
+  dxLayoutcxEditAdapters, dxLayoutContainer, cxClasses, dxLayoutControl, Data.DB,
-  dxLayoutcxEditAdapters, dxLayoutContainer, cxClasses, dxLayoutControl,
+  Data.Win.ADODB, cxCheckBox;
-  Data.DB, Data.Win.ADODB, cxCheckBox;
 
 type
   TframeBads = class(TFrame)
@@ -44,12 +43,16 @@ type
     dxLayoutAutoCreatedGroup1: TdxLayoutAutoCreatedGroup;
     cxCheck_len: TcxCheckBox;
     dxLayoutItem_checkLen: TdxLayoutItem;
+    CIJBQty: TcxTextEdit;
+    dxLayoutItem7: TdxLayoutItem;
+    CM: TdxLayoutLabeledItem;
     procedure cxButton2Click(Sender: TObject);
     procedure cxButton1Click(Sender: TObject);
     procedure CIFBegPropertiesEditValueChanged(Sender: TObject);
     procedure IsSubtractClick(Sender: TObject);
     procedure SubtractQtyPropertiesEditValueChanged(Sender: TObject);
     procedure CIFEndPropertiesChange(Sender: TObject);
+
   private
     procedure SpeedButtonClick(Sender: TObject);
   public
@@ -84,7 +87,7 @@ begin
   begin
     CIFQty.Text := '';
     exit;
-  end ;
+  end;
 
   CIFQty.Text := FloatToStr(StrToFloat(CIFEnd.Text) - StrToFloat(CIFBeg.Text));
 end;
@@ -100,17 +103,23 @@ begin
       Application.MessageBox('·Ç·¨Êý×Ö!', 'Ìáʾ', 0);
       Exit;
     end;
-  end ;
+  end;
 
-  if trim(CIFBeg.Text)='' then
+  if trim(CIFBeg.Text) = '' then
-    CIFQty.Text :=''
+    CIFQty.Text := ''
   else
-    CIFQty.Text := FloatToStr(StrToFloatDef(trim(CIFEnd.Text),0) - StrToFloatdef(trim(CIFBeg.Text),0));
+    CIFQty.Text := FloatToStr(StrToFloatDef(trim(CIFEnd.Text), 0) - StrToFloatdef(trim(CIFBeg.Text), 0));
 end;
 
 procedure TframeBads.cxButton1Click(Sender: TObject);
 begin
   RadioGroup1.ItemIndex := -1;
+  CIFNumber.text := '';
+  CIJBQty.text := '';
+  CIFBeg.Text := '';
+  CIFEnd.Text := '';
+  CIFQty.Text := '';
+
 end;
 
 procedure TframeBads.cxButton2Click(Sender: TObject);
@@ -138,17 +147,25 @@ begin
     end;
   end;
 
-  if strTofloatdef(Trim(SubtractQty.Text),0)>0 then
+  if strTofloatdef(Trim(SubtractQty.Text), 0) > 0 then
   begin
-    IsSubtract.Checked:=true;
+    IsSubtract.Checked := true;
   end
   else
   begin
-    IsSubtract.Checked:=false;
+    IsSubtract.Checked := false;
   end;
+  CIFNumber.text := '';
+  CIJBQty.text := '';
+  CIFBeg.Text := '';
+  CIFEnd.Text := '';
+  CIFQty.Text := '';
+  RadioGroup1.ItemIndex := -1;
 
 end;
 
+
+
 procedure TframeBads.InitBadPanel();
 var
   speedBtn: TSpeedButton;
@@ -189,7 +206,6 @@ begin
       speedBtn.Width := fBadBtnSize;
       speedBtn.Height := fBadBtnSize;
 
-
       speedBtn.Left := 5 + (i mod j) * speedBtn.Width;
       speedBtn.Top := 3 + k * speedBtn.Height;
 
@@ -197,8 +213,7 @@ begin
       speedBtn.Hint := zdyName;
       if Length(zdyName) > 4 then
       begin
-        speedBtn.Caption := Copy(zdyName, 1, 4) + #13 +
+        speedBtn.Caption := Copy(zdyName, 1, 4) + #13 + Copy(zdyName, 5, Length(zdyName) - 4);
-          Copy(zdyName, 5, Length(zdyName) - 4);
       end
       else
         speedBtn.Caption := zdyName;
@@ -229,10 +244,11 @@ end;
 
 procedure TframeBads.SubtractQtyPropertiesEditValueChanged(Sender: TObject);
 begin
-  if trim(SubtractQty.Text)<>'' then
+  if trim(SubtractQty.Text) <> '' then
-     isSubTract.Checked:=true
+    isSubTract.Checked := true
   else
-    isSubTract.Checked:=false;
+    isSubTract.Checked := false;
 end;
 
 end.
+

项目代码/wenshangkm/机台检验主程序可配置20201/机台检验主程序可配置2020/RollMakingShop.dproj.local

@@ -5,13 +5,13 @@
     <Transaction>1899-12-30 00:00:00.000.139,D:\Dp10RepoV1\项目代码\TradePack\机台检验主程序可配置20201\机台检验主程序可配置2020\AES.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.206,D:\Dp10RepoV1\项目代码\TradePack\机台检验主程序可配置20201\机台检验主程序可配置2020\delphitwain\DelphiTwainUtils.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.237,D:\Dp10RepoV1\public10\ThreeFun\Fun\U_RTFun.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.075,=D:\Dp10RepoV1\项目代码\TradePack\机台检验主程序可配置20201\机台检验主程序可配置2020\AES\untAES.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.583,=D:\Dp10RepoV1\项目代码\djdPack\机台检验主程序可配置20201\机台检验主程序可配置2020\U_staffSeList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.075,=D:\Dp10RepoV1\项目代码\TradePack\机台检验主程序可配置20201\机台检验主程序可配置2020\AES\untAES.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.375,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.917,D:\Dp10RepoV1\项目代码\TradePack\机台检验主程序可配置20201\机台检验主程序可配置2020\delphitwain\Twain.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.645,=D:\Dp10RepoV1\项目代码\TradePack\机台检验主程序可配置20201\机台检验主程序可配置2020\U_FileAutoUpdate.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.160,D:\Dp10RepoV1\项目代码\TradePack\机台检验主程序可配置20201\机台检验主程序可配置2020\delphitwain\DelphiTwain.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.453,D:\Dp10RepoV1\项目代码\TradePack\机台检验主程序可配置20201\机台检验主程序可配置2020\WFBProduction.dproj=D:\Dp10RepoV1\项目代码\TradePack\机台检验主程序可配置20201\机台检验主程序可配置2020\RollMakingShop.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.453,D:\Dp10RepoV1\项目代码\TradePack\机台检验主程序可配置20201\机台检验主程序可配置2020\RollMakingShop.dproj=D:\Dp10RepoV1\项目代码\TradePack\机台检验主程序可配置20201\机台检验主程序可配置2020\WFBProduction.dproj</Transaction>
     <Transaction>1899-12-30 00:00:00.000.961,=D:\Dp10RepoV1\项目代码\TradePack\机台检验主程序可配置20201\机台检验主程序可配置2020\AES\ElAES.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.022,=D:\Dp10RepoV1\项目代码\TradePack\机台检验主程序可配置20201\机台检验主程序可配置2020\AES\JDAESExtend.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.945,D:\Dp10RepoV1\项目代码\TradePack\机台检验主程序可配置20201\机台检验主程序可配置2020\ElAES.pas=</Transaction>