产品 资料 合同 检验 坯布仓库 汇总仓库

A02基础产品管理/ClothInfo.dpr

@@ -35,7 +35,8 @@ uses
   U_ClothInfoSel in '..\A00通用窗体\U_ClothInfoSel.pas' {frmClothInfoSel},
   U_YarnInfoSel in '..\A00通用窗体\U_YarnInfoSel.pas' {frmYarnInfoSel},
   uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas',
-  U_CraftInfo in 'U_CraftInfo.pas';
+  U_CraftInfo in 'U_CraftInfo.pas',
+  U_TatClothInfoInput in 'U_TatClothInfoInput.pas' {frmTatClothInfoInput};
 
 {$R *.res}
 

A02基础产品管理/ClothInfo.dproj

@@ -170,6 +170,10 @@
         </DCCReference>
         <DCCReference Include="..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas"/>
         <DCCReference Include="U_CraftInfo.pas"/>
+        <DCCReference Include="U_TatClothInfoInput.pas">
+            <Form>frmTatClothInfoInput</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

A02基础产品管理/U_CraftInfo.dfm

@@ -59,16 +59,24 @@ inherited frmCraftInfo: TfrmCraftInfo
       ImageIndex = 5
       OnClick = TBDelClick
     end
-    object TBExport: TToolButton
+    object TbPrint: TToolButton
       Left = 284
       Top = 0
       AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 21
+      OnClick = TbPrintClick
+    end
+    object TBExport: TToolButton
+      Left = 355
+      Top = 0
+      AutoSize = True
       Caption = #23548#20986
       ImageIndex = 20
       OnClick = TBExportClick
     end
     object ToolButton2: TToolButton
-      Left = 355
+      Left = 426
       Top = 0
       AutoSize = True
       Caption = #20445#23384#26684#24335
@@ -76,7 +84,7 @@ inherited frmCraftInfo: TfrmCraftInfo
       OnClick = ToolButton2Click
     end
     object TBClose: TToolButton
-      Left = 450
+      Left = 521
       Top = 0
       AutoSize = True
       Caption = #20851#38381
@@ -219,6 +227,7 @@ inherited frmCraftInfo: TfrmCraftInfo
         Caption = #22836#20221
         DataBinding.FieldName = 'head_count'
         DataBinding.IsNullValueType = True
+        Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Styles.Header = DataLink_ClothInfo.Default
@@ -228,6 +237,7 @@ inherited frmCraftInfo: TfrmCraftInfo
         Caption = #26465#23485
         DataBinding.FieldName = 'strip_width'
         DataBinding.IsNullValueType = True
+        Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Styles.Header = DataLink_ClothInfo.Default
@@ -246,6 +256,7 @@ inherited frmCraftInfo: TfrmCraftInfo
         Caption = #19978#25490#25968
         DataBinding.FieldName = 'row_count_top'
         DataBinding.IsNullValueType = True
+        Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Styles.Header = DataLink_ClothInfo.Default
@@ -255,6 +266,7 @@ inherited frmCraftInfo: TfrmCraftInfo
         Caption = #20301#31227
         DataBinding.FieldName = 'displace'
         DataBinding.IsNullValueType = True
+        Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Styles.Header = DataLink_ClothInfo.Default
@@ -264,6 +276,7 @@ inherited frmCraftInfo: TfrmCraftInfo
         Caption = #23450#24133#31576
         DataBinding.FieldName = 'reed_width'
         DataBinding.IsNullValueType = True
+        Visible = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Styles.Header = DataLink_ClothInfo.Default
@@ -278,6 +291,33 @@ inherited frmCraftInfo: TfrmCraftInfo
         Styles.Header = DataLink_ClothInfo.Default
         Width = 66
       end
+      object Tv1ends_per_dent: TcxGridDBColumn
+        Caption = #20837#25968
+        DataBinding.FieldName = 'ends_per_dent'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ClothInfo.Default
+        Width = 80
+      end
+      object Tv1selvage_yarn: TcxGridDBColumn
+        Caption = #36793#32433
+        DataBinding.FieldName = 'selvage_yarn'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ClothInfo.Default
+        Width = 70
+      end
+      object Tv1yardage: TcxGridDBColumn
+        Caption = #35745#30721
+        DataBinding.FieldName = 'yardage'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ClothInfo.Default
+        Width = 60
+      end
       object Tv1FILLER: TcxGridDBColumn
         Caption = #24405#20837#20154
         DataBinding.FieldName = 'FILLER'

A02基础产品管理/U_CraftInfo.pas

@@ -44,6 +44,9 @@ type
     Tv1displace: TcxGridDBColumn;
     Tv1reed_width: TcxGridDBColumn;
     Tv1C_ReedNo: TcxGridDBColumn;
+    Tv1ends_per_dent: TcxGridDBColumn;
+    Tv1selvage_yarn: TcxGridDBColumn;
+    Tv1yardage: TcxGridDBColumn;
     Tv1FILLER: TcxGridDBColumn;
     Tv1FILLTIME: TcxGridDBColumn;
     cxGrid1Level1: TcxGridLevel;
@@ -55,6 +58,7 @@ type
     PM_1: TPopupMenu;
     N1: TMenuItem;
     N2: TMenuItem;
+    TbPrint: TToolButton;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -68,6 +72,7 @@ type
     procedure CRCodeKeyPress(Sender: TObject; var Key: Char);
     procedure N1Click(Sender: TObject);
     procedure N2Click(Sender: TObject);
+    procedure TbPrintClick(Sender: TObject);
   private
     { Private declarations }
     procedure InitGrid();
@@ -81,7 +86,7 @@ var
 implementation
 
 uses
-  U_DataLink, U_RTFun, U_CraftInfoInput;
+  U_DataLink, U_RTFun, U_CraftInfoInput,U_LabelPrint;
 
 {$R *.dfm}
 
@@ -304,6 +309,24 @@ begin
   TcxGridToExcel(self.Caption, cxGrid1);
 end;
 
+procedure TfrmCraftInfo.TbPrintClick(Sender: TObject);
+begin
+  try
+    frmLabelPrint := TfrmLabelPrint.Create(Application);
+    with frmLabelPrint do
+    begin
+      FLMType := 'CraftInfoPrint';
+      FFiltration1 := CDS_1.fieldbyname('CRID').AsString;
+      if ShowModal = 1 then
+      begin
+//        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmLabelPrint.Free;
+  end;
+end;
+
 procedure TfrmCraftInfo.ToolButton2Click(Sender: TObject);
 begin
   WriteCxGrid(self.Caption + 'TV1', Tv1, '¹¤ÒÕ¹ÜÀí');

A02基础产品管理/U_CraftInfoInput.dfm

@@ -150,8 +150,8 @@ object frmCraftInfoInput: TfrmCraftInfoInput
       ParentFont = False
     end
     object Label7: TLabel
-      Left = 360
+      Left = 1067
-      Top = 68
+      Top = 40
       Width = 39
       Height = 12
       Caption = #22836#20221#65306
@@ -161,10 +161,11 @@ object frmCraftInfoInput: TfrmCraftInfoInput
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label8: TLabel
-      Left = 675
+      Left = 1067
-      Top = 70
+      Top = 61
       Width = 39
       Height = 12
       Caption = #26465#23485#65306
@@ -174,6 +175,7 @@ object frmCraftInfoInput: TfrmCraftInfoInput
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label9: TLabel
       Left = 29
@@ -189,8 +191,8 @@ object frmCraftInfoInput: TfrmCraftInfoInput
       ParentFont = False
     end
     object Label10: TLabel
-      Left = 360
+      Left = 1067
-      Top = 102
+      Top = 103
       Width = 52
       Height = 12
       Caption = #19978#25490#25968#65306
@@ -200,10 +202,11 @@ object frmCraftInfoInput: TfrmCraftInfoInput
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label11: TLabel
-      Left = 675
+      Left = 1067
-      Top = 101
+      Top = 85
       Width = 39
       Height = 12
       Caption = #20301#31227#65306
@@ -213,10 +216,11 @@ object frmCraftInfoInput: TfrmCraftInfoInput
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label12: TLabel
-      Left = 29
+      Left = 1067
-      Top = 130
+      Top = 17
       Width = 52
       Height = 12
       Caption = #23450#24133#31576#65306
@@ -226,10 +230,11 @@ object frmCraftInfoInput: TfrmCraftInfoInput
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label13: TLabel
-      Left = 360
+      Left = 362
-      Top = 130
+      Top = 68
       Width = 39
       Height = 12
       Caption = #31576#21495#65306
@@ -240,6 +245,45 @@ object frmCraftInfoInput: TfrmCraftInfoInput
       Font.Style = [fsBold]
       ParentFont = False
     end
+    object Label14: TLabel
+      Left = 675
+      Top = 68
+      Width = 39
+      Height = 12
+      Caption = #20837#25968#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label15: TLabel
+      Left = 362
+      Top = 99
+      Width = 39
+      Height = 12
+      Caption = #36793#32433#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label16: TLabel
+      Left = 675
+      Top = 99
+      Width = 39
+      Height = 12
+      Caption = #35745#30721#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
     object CR_Code: TEdit
       Tag = 2
       Left = 93
@@ -334,8 +378,8 @@ object frmCraftInfoInput: TfrmCraftInfoInput
     end
     object head_count: TEdit
       Tag = 2
-      Left = 426
+      Left = 1125
-      Top = 68
+      Top = 35
       Width = 234
       Height = 18
       Font.Charset = GB2312_CHARSET
@@ -345,11 +389,12 @@ object frmCraftInfoInput: TfrmCraftInfoInput
       Font.Style = [fsBold]
       ParentFont = False
       TabOrder = 6
+      Visible = False
     end
     object strip_width: TEdit
       Tag = 2
-      Left = 738
+      Left = 1125
-      Top = 68
+      Top = 59
       Width = 234
       Height = 18
       Font.Charset = GB2312_CHARSET
@@ -359,6 +404,7 @@ object frmCraftInfoInput: TfrmCraftInfoInput
       Font.Style = [fsBold]
       ParentFont = False
       TabOrder = 7
+      Visible = False
     end
     object C_MachLatitudeDensity: TEdit
       Tag = 2
@@ -375,6 +421,79 @@ object frmCraftInfoInput: TfrmCraftInfoInput
       TabOrder = 8
     end
     object row_count_top: TEdit
+      Tag = 2
+      Left = 1125
+      Top = 107
+      Width = 234
+      Height = 18
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 9
+      Visible = False
+    end
+    object displace: TEdit
+      Tag = 2
+      Left = 1125
+      Top = 83
+      Width = 234
+      Height = 18
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 10
+      Visible = False
+    end
+    object reed_width: TEdit
+      Tag = 2
+      Left = 1125
+      Top = 11
+      Width = 234
+      Height = 18
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 11
+      Visible = False
+    end
+    object C_ReedNo: TEdit
+      Tag = 2
+      Left = 426
+      Top = 68
+      Width = 234
+      Height = 18
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 12
+    end
+    object ends_per_dent: TEdit
+      Tag = 2
+      Left = 738
+      Top = 68
+      Width = 234
+      Height = 18
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 13
+    end
+    object selvage_yarn: TEdit
       Tag = 2
       Left = 426
       Top = 99
@@ -386,9 +505,9 @@ object frmCraftInfoInput: TfrmCraftInfoInput
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
-      TabOrder = 9
+      TabOrder = 14
     end
-    object displace: TEdit
+    object yardage: TEdit
       Tag = 2
       Left = 738
       Top = 99
@@ -400,35 +519,7 @@ object frmCraftInfoInput: TfrmCraftInfoInput
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
-      TabOrder = 10
+      TabOrder = 15
-    end
-    object reed_width: TEdit
-      Tag = 2
-      Left = 93
-      Top = 127
-      Width = 234
-      Height = 18
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      ParentFont = False
-      TabOrder = 11
-    end
-    object C_ReedNo: TEdit
-      Tag = 2
-      Left = 426
-      Top = 127
-      Width = 234
-      Height = 18
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      ParentFont = False
-      TabOrder = 12
     end
   end
   object cxPageControl3: TcxPageControl
@@ -2050,6 +2141,10 @@ object frmCraftInfoInput: TfrmCraftInfoInput
     object cxTabSheet7: TcxTabSheet
       Caption = #31359#32508#27861
       ImageIndex = 6
+      ExplicitLeft = 0
+      ExplicitTop = 0
+      ExplicitWidth = 0
+      ExplicitHeight = 0
       object Panel9: TPanel
         Left = 0
         Top = 0

A02基础产品管理/U_CraftInfoInput.pas

@@ -48,6 +48,12 @@ type
     displace: TEdit;
     reed_width: TEdit;
     C_ReedNo: TEdit;
+    Label14: TLabel;
+    ends_per_dent: TEdit;
+    Label15: TLabel;
+    selvage_yarn: TEdit;
+    Label16: TLabel;
+    yardage: TEdit;
     cxPageControl3: TcxPageControl;
     cxTabSheet1: TcxTabSheet;
     Panel1: TPanel;

A02基础产品管理/U_CraftSync.pas

@@ -70,6 +70,7 @@ begin
       SQL.Add(',B.C_YarnQty=C.C_YarnQty,B.head_count=C.head_count,B.strip_width=C.strip_width');
       SQL.Add(',B.C_MachLatitudeDensity=C.C_MachLatitudeDensity,B.row_count_top=C.row_count_top');
       SQL.Add(',B.displace=C.displace,B.reed_width=C.reed_width,B.C_ReedNo=C.C_ReedNo');
+      SQL.Add(',B.ends_per_dent=C.ends_per_dent,B.selvage_yarn=C.selvage_yarn,B.yardage=C.yardage');
       SQL.Add(',B.warp_arrange=C.warp_arrange,B.weft_arrange=C.weft_arrange,B.threading_method=C.threading_method');
       SQL.Add('from BS_Cloth_Info B join BS_Craft_Info C on C.CRID=B.CRID');
       SQL.Add('where B.CRID=' + QuotedStr(Trim(ACRID)));

A02基础产品管理/U_GetDllForm.pas

@@ -76,7 +76,7 @@ begin
     pswd := 'right,.soft@2377';
 
     DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
-//   DParameters1:='高权限';
+   Parameters1:='管理';
     Parameters2 := 'ËóÖ¯';
   end
   else

A02基础产品管理/U_TatClothInfo.dfm

@@ -354,8 +354,6 @@ inherited frmTatClothInfo: TfrmTatClothInfo
       Align = alClient
       PopupMenu = PM_1
       TabOrder = 0
-      ExplicitLeft = 6
-      ExplicitTop = 66
       object Tv1: TcxGridDBTableView
         Navigator.Buttons.CustomButtons = <>
         Navigator.Buttons.Delete.Enabled = False
@@ -574,6 +572,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
           Caption = #22836#20221
           DataBinding.FieldName = 'head_count'
           DataBinding.IsNullValueType = True
+          Visible = False
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
           Styles.Header = DataLink_ClothInfo.Default
@@ -583,6 +582,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
           Caption = #26465#23485
           DataBinding.FieldName = 'strip_width'
           DataBinding.IsNullValueType = True
+          Visible = False
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
           Styles.Header = DataLink_ClothInfo.Default
@@ -601,6 +601,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
           Caption = #19978#25490#25968
           DataBinding.FieldName = 'row_count_top'
           DataBinding.IsNullValueType = True
+          Visible = False
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
           Styles.Header = DataLink_ClothInfo.Default
@@ -610,6 +611,7 @@ inherited frmTatClothInfo: TfrmTatClothInfo
           Caption = #20301#31227
           DataBinding.FieldName = 'displace'
           DataBinding.IsNullValueType = True
+          Visible = False
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
           Styles.Header = DataLink_ClothInfo.Default
@@ -619,11 +621,39 @@ inherited frmTatClothInfo: TfrmTatClothInfo
           Caption = #23450#24133#31576
           DataBinding.FieldName = 'reed_width'
           DataBinding.IsNullValueType = True
+          Visible = False
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
           Styles.Header = DataLink_ClothInfo.Default
           Width = 81
         end
+        object Tv1ends_per_dent: TcxGridDBColumn
+          Caption = #20837#25968
+          DataBinding.FieldName = 'ends_per_dent'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Styles.Header = DataLink_ClothInfo.Default
+          Width = 80
+        end
+        object Tv1selvage_yarn: TcxGridDBColumn
+          Caption = #36793#32433
+          DataBinding.FieldName = 'selvage_yarn'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Styles.Header = DataLink_ClothInfo.Default
+          Width = 70
+        end
+        object Tv1yardage: TcxGridDBColumn
+          Caption = #35745#30721
+          DataBinding.FieldName = 'yardage'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Styles.Header = DataLink_ClothInfo.Default
+          Width = 60
+        end
       end
       object cxGrid1Level1: TcxGridLevel
         GridView = Tv1
@@ -833,6 +863,8 @@ inherited frmTatClothInfo: TfrmTatClothInfo
         #20840#37096
         #27491#22312#20351#29992)
       OnChange = cxTabControl1Change
+      ExplicitLeft = 6
+      ExplicitTop = 4
       ClientRectBottom = 23
       ClientRectLeft = 2
       ClientRectRight = 1210

A02基础产品管理/U_TatClothInfo.pas

@@ -131,6 +131,9 @@ type
     Tv1row_count_top: TcxGridDBColumn;
     Tv1displace: TcxGridDBColumn;
     Tv1reed_width: TcxGridDBColumn;
+    Tv1ends_per_dent: TcxGridDBColumn;
+    Tv1selvage_yarn: TcxGridDBColumn;
+    Tv1yardage: TcxGridDBColumn;
     cxTabControl1: TcxTabControl;
     tbStart: TToolButton;
     tbPause: TToolButton;
@@ -178,6 +181,7 @@ type
     PState: Integer;
     FCTID, FTopID, FJurisdiction, FCTType: string;
     procedure SetStatus();
+    procedure SetJurisdiction();
     procedure InitTree();
     procedure InitGrid();
     procedure ReadINIFile();
@@ -248,6 +252,28 @@ begin
 
 end;
 
+procedure TfrmTatClothInfo.SetJurisdiction();
+begin
+  //°´Èë¿ÚȨÏÞÒþ²Ø°´Å¥:²éѯ=Ö»¶Á;¼Èë=Òþ²ØÆôÍ£°´Å¥
+  if FJurisdiction = '²éѯ' then
+  begin
+    TBAdd.Visible := False;
+    TBCopy.Visible := False;
+    TBEdit.Visible := False;
+    TBMLEdit.Visible := False;
+    TBBindCraft.Visible := False;
+    tbStart.Visible := False;
+    tbPause.Visible := False;
+    TBDel.Visible := False;
+    TBUP.Visible := False;
+  end
+  else if FJurisdiction = '¼Èë' then
+  begin
+    tbStart.Visible := False;
+    tbPause.Visible := False;
+  end;
+end;
+
 procedure TfrmTatClothInfo.InitTree();
 begin
   with ADOQueryTree do
@@ -397,6 +423,7 @@ begin
   TBMLEdit.Visible := True;
   TBDel.Visible    := True;
   tbPause.Visible  := False;
+  SetJurisdiction();
 
 end;
 
@@ -425,6 +452,7 @@ begin
   TBDel.Visible    := IsAllTab;
 
   tbPause.Visible  := not IsAllTab;
+  SetJurisdiction();
 
   CurrentPage := 1;
   InitGrid();

A02基础产品管理/U_TatClothInfoInput.dfm

@@ -147,7 +147,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
     end
     object Label2: TLabel
       Left = 360
-      Top = 158
+      Top = 122
       Width = 67
       Height = 12
       Caption = #22836'    '#32441#65306
@@ -202,7 +202,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
     end
     object Label6: TLabel
       Left = 29
-      Top = 158
+      Top = 122
       Width = 67
       Height = 12
       Caption = #31576'    '#21495#65306
@@ -256,8 +256,8 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
       Visible = False
     end
     object Label10: TLabel
-      Left = 675
+      Left = 29
-      Top = 70
+      Top = 65
       Width = 65
       Height = 12
       Caption = #19978#26426#32428#23494#65306
@@ -269,7 +269,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
       ParentFont = False
     end
     object Label11: TLabel
-      Left = 675
+      Left = 666
       Top = 40
       Width = 67
       Height = 12
@@ -282,8 +282,8 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
       ParentFont = False
     end
     object Label13: TLabel
-      Left = 675
+      Left = 362
-      Top = 101
+      Top = 65
       Width = 65
       Height = 12
       Caption = #39044#35745#24046#20540#65306
@@ -295,8 +295,8 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
       ParentFont = False
     end
     object Label14: TLabel
-      Left = 675
+      Left = 29
-      Top = 130
+      Top = 94
       Width = 65
       Height = 12
       Caption = #32463#32433#25209#21495#65306
@@ -308,8 +308,8 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
       ParentFont = False
     end
     object Label16: TLabel
-      Left = 675
+      Left = 362
-      Top = 156
+      Top = 94
       Width = 65
       Height = 12
       Caption = #32428#32433#25209#21495#65306
@@ -321,8 +321,8 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
       ParentFont = False
     end
     object Label17: TLabel
-      Left = 29
+      Left = 1296
-      Top = 68
+      Top = 40
       Width = 67
       Height = 12
       Caption = #22836'    '#20221#65306
@@ -332,10 +332,11 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label19: TLabel
-      Left = 30
+      Left = 965
-      Top = 102
+      Top = 3
       Width = 66
       Height = 12
       Caption = #19978' '#25490' '#25968#65306
@@ -345,10 +346,11 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label23: TLabel
-      Left = 29
+      Left = 965
-      Top = 130
+      Top = 168
       Width = 66
       Height = 12
       Caption = #23450' '#24133' '#31576#65306
@@ -358,10 +360,11 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label24: TLabel
-      Left = 360
+      Left = 1277
-      Top = 68
+      Top = 5
       Width = 67
       Height = 12
       Caption = #26465'    '#23485#65306
@@ -371,10 +374,11 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
     end
     object Label25: TLabel
-      Left = 362
+      Left = 964
-      Top = 102
+      Top = 22
       Width = 67
       Height = 12
       Caption = #20301'    '#31227#65306
@@ -384,6 +388,46 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
       Font.Name = #23435#20307
       Font.Style = [fsBold]
       ParentFont = False
+      Visible = False
+    end
+    object Label74: TLabel
+      Left = 666
+      Top = 65
+      Width = 67
+      Height = 12
+      Caption = #20837'    '#25968#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label75: TLabel
+      Left = 666
+      Top = 94
+      Width = 67
+      Height = 12
+      Caption = #36793'    '#32433#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label76: TLabel
+      Left = 666
+      Top = 122
+      Width = 67
+      Height = 12
+      Caption = #35745'    '#30721#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
     end
     object C_Code: TEdit
       Tag = 2
@@ -418,7 +462,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
     object C_YarnQty: TEdit
       Tag = 2
       Left = 426
-      Top = 155
+      Top = 120
       Width = 234
       Height = 18
       Font.Charset = GB2312_CHARSET
@@ -542,8 +586,8 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
     end
     object strip_width: TEdit
       Tag = 2
-      Left = 426
+      Left = 1296
-      Top = 68
+      Top = 16
       Width = 234
       Height = 18
       Font.Charset = GB2312_CHARSET
@@ -553,6 +597,7 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
       Font.Style = [fsBold]
       ParentFont = False
       TabOrder = 10
+      Visible = False
     end
     object C_Spec: TEdit
       Tag = 2
@@ -572,17 +617,17 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
     end
     object C_MachLatitudeDensity: TEdit
       Tag = 2
-      Left = 739
+      Left = 93
-      Top = 68
+      Top = 64
-      Width = 120
+      Width = 236
       Height = 18
       TabOrder = 12
     end
     object C_Color: TEdit
       Tag = 2
-      Left = 738
+      Left = 739
       Top = 38
-      Width = 121
+      Width = 219
       Height = 18
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
@@ -595,32 +640,32 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
     end
     object estimated_diff: TEdit
       Tag = 2
-      Left = 738
+      Left = 426
-      Top = 100
+      Top = 64
-      Width = 120
+      Width = 234
       Height = 18
       TabOrder = 14
     end
     object C_LongitudeBatchNo: TEdit
       Tag = 2
-      Left = 738
+      Left = 93
-      Top = 128
+      Top = 92
-      Width = 120
+      Width = 236
       Height = 18
       TabOrder = 15
     end
     object C_LatitudeBatchNo: TEdit
       Tag = 2
-      Left = 738
+      Left = 426
-      Top = 154
+      Top = 92
-      Width = 120
+      Width = 234
       Height = 18
       TabOrder = 16
     end
     object head_count: TEdit
       Tag = 2
-      Left = 93
+      Left = 1325
-      Top = 68
+      Top = 40
       Width = 234
       Height = 18
       Font.Charset = GB2312_CHARSET
@@ -630,12 +675,13 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
       Font.Style = [fsBold]
       ParentFont = False
       TabOrder = 17
+      Visible = False
     end
     object C_ReedNo: TEdit
       Tag = 2
       Left = 93
-      Top = 155
+      Top = 120
-      Width = 234
+      Width = 236
       Height = 18
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
@@ -647,8 +693,8 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
     end
     object row_count_top: TEdit
       Tag = 2
-      Left = 93
+      Left = 1037
-      Top = 100
+      Top = -2
       Width = 234
       Height = 18
       Font.Charset = GB2312_CHARSET
@@ -658,11 +704,12 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
       Font.Style = [fsBold]
       ParentFont = False
       TabOrder = 19
+      Visible = False
     end
     object displace: TEdit
       Tag = 2
-      Left = 426
+      Left = 1037
-      Top = 99
+      Top = 16
       Width = 234
       Height = 18
       Font.Charset = GB2312_CHARSET
@@ -672,12 +719,13 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
       Font.Style = [fsBold]
       ParentFont = False
       TabOrder = 20
+      Visible = False
     end
     object reed_width: TEdit
       Tag = 2
-      Left = 93
+      Left = 1037
-      Top = 124
+      Top = 160
-      Width = 567
+      Width = 201
       Height = 18
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
@@ -686,6 +734,49 @@ object frmTatClothInfoInput: TfrmTatClothInfoInput
       Font.Style = [fsBold]
       ParentFont = False
       TabOrder = 21
+      Visible = False
+    end
+    object ends_per_dent: TEdit
+      Tag = 2
+      Left = 739
+      Top = 64
+      Width = 219
+      Height = 18
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 22
+    end
+    object selvage_yarn: TEdit
+      Tag = 2
+      Left = 739
+      Top = 92
+      Width = 219
+      Height = 18
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 23
+    end
+    object yardage: TEdit
+      Tag = 2
+      Left = 739
+      Top = 120
+      Width = 219
+      Height = 18
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 24
     end
   end
   object cxPageControl3: TcxPageControl

A02基础产品管理/U_TatClothInfoInput.pas

@@ -231,6 +231,12 @@ type
     row_count_top: TEdit;
     displace: TEdit;
     reed_width: TEdit;
+    Label74: TLabel;
+    ends_per_dent: TEdit;
+    Label75: TLabel;
+    selvage_yarn: TEdit;
+    Label76: TLabel;
+    yardage: TEdit;
     warp_arrange: TMemo;
     reed_weave_method: TMemo;
     weft_arrange: TMemo;
@@ -532,6 +538,9 @@ begin
     displace.Tag := 0;
     reed_width.Tag := 0;
     C_ReedNo.Tag := 0;
+    ends_per_dent.Tag := 0;
+    selvage_yarn.Tag := 0;
+    yardage.Tag := 0;
 
     C_Width.Enabled := False;
     C_GramWeight.Enabled := False;
@@ -544,6 +553,9 @@ begin
     displace.Enabled := False;
     reed_width.Enabled := False;
     C_ReedNo.Enabled := False;
+    ends_per_dent.Enabled := False;
+    selvage_yarn.Enabled := False;
+    yardage.Enabled := False;
 
     warp_arrange.ReadOnly := True;
     weft_arrange.ReadOnly := True;
@@ -566,6 +578,9 @@ begin
     displace.Tag := 2;
     reed_width.Tag := 2;
     C_ReedNo.Tag := 2;
+    ends_per_dent.Tag := 2;
+    selvage_yarn.Tag := 2;
+    yardage.Tag := 2;
 
     C_Width.Enabled := True;
     C_GramWeight.Enabled := True;
@@ -578,6 +593,9 @@ begin
     displace.Enabled := True;
     reed_width.Enabled := True;
     C_ReedNo.Enabled := True;
+    ends_per_dent.Enabled := True;
+    selvage_yarn.Enabled := True;
+    yardage.Enabled := True;
 
     warp_arrange.ReadOnly := False;
     weft_arrange.ReadOnly := False;

A05基础资料管理/BaseInfo.dpr

@@ -27,6 +27,7 @@ uses
   U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
   U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
   U_TatClothInfoSel in '..\A00通用窗体\U_TatClothInfoSel.pas' {frmTatClothInfoSel},
+  U_SalesContractSel in '..\A00通用窗体\U_SalesContractSel.pas' {frmSalesContractSel},
   U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
   uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas';
 

A05基础资料管理/U_MachineManage.dfm

@@ -3,9 +3,9 @@ inherited frmMachineManage: TfrmMachineManage
   Top = 109
   Caption = #26426#21488#31649#29702
   ClientHeight = 523
-  ClientWidth = 1107
+  ClientWidth = 1230
   KeyPreview = True
-  ExplicitWidth = 1123
+  ExplicitWidth = 1246
   ExplicitHeight = 562
   PixelsPerInch = 96
   TextHeight = 12
@@ -13,11 +13,11 @@ inherited frmMachineManage: TfrmMachineManage
     Tag = 1
     Left = 0
     Top = 0
-    Width = 1107
+    Width = 1230
     Height = 38
     AutoSize = True
     ButtonHeight = 38
-    ButtonWidth = 98
+    ButtonWidth = 97
     Caption = 'ToolBar1'
     Color = clSkyBlue
     DisabledImages = DataLink_BaseInfo.ImageList_new32
@@ -92,16 +92,32 @@ inherited frmMachineManage: TfrmMachineManage
       ImageIndex = 4
       OnClick = tbBindProdClick
     end
+    object tbBindCon1: TToolButton
+      Left = 598
+      Top = 0
+      AutoSize = True
+      Caption = #32465#23450#21512#21516'1'
+      ImageIndex = 4
+      OnClick = tbBindCon1Click
+    end
     object tbBindProd2: TToolButton
-      Left = 599
+      Left = 699
       Top = 0
       AutoSize = True
       Caption = #32465#23450#20135#21697'2'
       ImageIndex = 4
       OnClick = tbBindProd2Click
     end
+    object tbBindCon2: TToolButton
+      Left = 800
+      Top = 0
+      AutoSize = True
+      Caption = #32465#23450#21512#21516'2'
+      ImageIndex = 4
+      OnClick = tbBindCon2Click
+    end
     object ToolButton3: TToolButton
-      Left = 701
+      Left = 901
       Top = 0
       AutoSize = True
       Caption = #25171#21360
@@ -109,7 +125,7 @@ inherited frmMachineManage: TfrmMachineManage
       OnClick = ToolButton3Click
     end
     object ToolButton1: TToolButton
-      Left = 772
+      Left = 972
       Top = 0
       AutoSize = True
       Caption = #23548#20986
@@ -117,7 +133,7 @@ inherited frmMachineManage: TfrmMachineManage
       OnClick = ToolButton1Click
     end
     object TbSaveFormat: TToolButton
-      Left = 843
+      Left = 1043
       Top = 0
       AutoSize = True
       Caption = #20445#23384#26684#24335
@@ -125,7 +141,7 @@ inherited frmMachineManage: TfrmMachineManage
       OnClick = TbSaveFormatClick
     end
     object TBClose: TToolButton
-      Left = 938
+      Left = 1138
       Top = 0
       AutoSize = True
       Caption = #20851#38381
@@ -136,7 +152,7 @@ inherited frmMachineManage: TfrmMachineManage
   object cxGrid2: TcxGrid [1]
     Left = 0
     Top = 121
-    Width = 1107
+    Width = 1230
     Height = 402
     Align = alClient
     PopupMenu = PopupMenu1
@@ -205,6 +221,14 @@ inherited frmMachineManage: TfrmMachineManage
         HeaderAlignmentHorz = taCenter
         Width = 180
       end
+      object v2Column13: TcxGridDBColumn
+        Caption = #21512#21516#21495'1'
+        DataBinding.FieldName = 'm_ConNo'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 120
+      end
       object v2Column9: TcxGridDBColumn
         Caption = #20135#21697#32534#21495'1'
         DataBinding.FieldName = 'C_CodeName'
@@ -221,6 +245,14 @@ inherited frmMachineManage: TfrmMachineManage
         Options.Editing = False
         Width = 150
       end
+      object v2Column14: TcxGridDBColumn
+        Caption = #21512#21516#21495'2'
+        DataBinding.FieldName = 'm_ConNo2'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 120
+      end
       object v2Column10: TcxGridDBColumn
         Caption = #20135#21697#32534#21495'2'
         DataBinding.FieldName = 'C_CodeName2'
@@ -245,7 +277,7 @@ inherited frmMachineManage: TfrmMachineManage
   object Panel1: TPanel [2]
     Left = 0
     Top = 38
-    Width = 1107
+    Width = 1230
     Height = 58
     Align = alTop
     BevelInner = bvRaised
@@ -272,7 +304,7 @@ inherited frmMachineManage: TfrmMachineManage
   object cxTabControl1: TcxTabControl [3]
     Left = 0
     Top = 96
-    Width = 1107
+    Width = 1230
     Height = 25
     Align = alTop
     TabOrder = 3
@@ -284,7 +316,7 @@ inherited frmMachineManage: TfrmMachineManage
     OnChange = cxTabControl1Change
     ClientRectBottom = 23
     ClientRectLeft = 2
-    ClientRectRight = 1105
+    ClientRectRight = 1228
     ClientRectTop = 22
   end
   inherited ADOQueryBaseCmd: TADOQuery
@@ -351,5 +383,13 @@ inherited frmMachineManage: TfrmMachineManage
       Caption = #35299#32465#20135#21697'2'
       OnClick = N4Click
     end
+    object N5: TMenuItem
+      Caption = #35299#32465#21512#21516'1'
+      OnClick = N5Click
+    end
+    object N6: TMenuItem
+      Caption = #35299#32465#21512#21516'2'
+      OnClick = N6Click
+    end
   end
 end

A05基础资料管理/U_MachineManage.pas

@@ -38,6 +38,8 @@ type
     N2: TMenuItem;
     N3: TMenuItem;
     N4: TMenuItem;
+    N5: TMenuItem;
+    N6: TMenuItem;
     Panel1: TPanel;
     MCNO: TEdit;
     v2Column8: TcxGridDBColumn;
@@ -53,9 +55,13 @@ type
     tbPause: TToolButton;
     tbBindProd: TToolButton;
     tbBindProd2: TToolButton;
+    tbBindCon1: TToolButton;
+    tbBindCon2: TToolButton;
     Tv2C_Name: TcxGridDBColumn;
     v2Column10: TcxGridDBColumn;
     Tv2C_Name2: TcxGridDBColumn;
+    v2Column13: TcxGridDBColumn;
+    v2Column14: TcxGridDBColumn;
     TbSaveFormat: TToolButton;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
@@ -81,11 +87,17 @@ type
     procedure tbPauseClick(Sender: TObject);
     procedure tbBindProdClick(Sender: TObject);
     procedure tbBindProd2Click(Sender: TObject);
+    procedure tbBindCon1Click(Sender: TObject);
+    procedure tbBindCon2Click(Sender: TObject);
+    procedure N5Click(Sender: TObject);
+    procedure N6Click(Sender: TObject);
     procedure TbSaveFormatClick(Sender: TObject);
   private
     { Private declarations }
     procedure BindProduct(AFieldName, ALogAction: string);
     procedure UnbindProduct(AFieldName, ALogAction: string);
+    procedure BindContract(AFieldName, AConFieldName, ALogAction: string);
+    procedure UnbindContract(AFieldName, AConFieldName, ALogAction: string);
     procedure InitGrid();
     procedure EditValueT();
     procedure EditValueF();
@@ -101,7 +113,8 @@ var
 implementation
 
 uses
-  U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatClothInfoSel;
+  U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_TatClothInfoSel,
+  U_SalesContractSel;
 
 {$R *.dfm}
 
@@ -382,6 +395,16 @@ begin
   BindProduct('C_CodeName2', '°ó¶¨²úÆ·2');
 end;
 
+procedure TfrmMachineManage.tbBindCon1Click(Sender: TObject);
+begin
+  BindContract('C_CodeName', 'm_ConNo', '绑定合同1');
+end;
+
+procedure TfrmMachineManage.tbBindCon2Click(Sender: TObject);
+begin
+  BindContract('C_CodeName2', 'm_ConNo2', '绑定合同2');
+end;
+
 procedure TfrmMachineManage.BindProduct(AFieldName, ALogAction: string);
 var
   MMCIDS, MCodeName: string;
@@ -544,6 +567,178 @@ begin
   end;
 end;
 
+procedure TfrmMachineManage.BindContract(AFieldName, AConFieldName, ALogAction: string);
+var
+  MMCIDS, MCodeName, MConNo: string;
+begin
+  if CDS_HZ.IsEmpty then
+    Exit;
+  if not CDS_HZ.Locate('SSel', True, []) then
+  begin
+    Application.MessageBox('没有选择数据!', '提示', 0);
+    Exit;
+  end;
+
+  MMCIDS := '';
+  CDS_HZ.DisableControls;
+  try
+    CDS_HZ.First;
+    while not CDS_HZ.Eof do
+    begin
+      if CDS_HZ.fieldbyname('SSel').AsBoolean then
+      begin
+        if MMCIDS <> '' then
+          MMCIDS := MMCIDS + ',' + QuotedStr(Trim(CDS_HZ.fieldbyname('MCID').AsString))
+        else
+          MMCIDS := QuotedStr(Trim(CDS_HZ.fieldbyname('MCID').AsString));
+      end;
+      CDS_HZ.Next;
+    end;
+  finally
+    CDS_HZ.EnableControls;
+  end;
+
+  if MMCIDS = '' then
+    Exit;
+
+  //选择合同行，同时带出合同号和对应产品编号
+  MCodeName := '';
+  MConNo := '';
+  try
+    frmSalesContractSel := TfrmSalesContractSel.Create(Application);
+    if frmSalesContractSel.ShowModal = 1 then
+    begin
+      if not frmSalesContractSel.CDS_1.IsEmpty then
+      begin
+        MConNo := Trim(frmSalesContractSel.CDS_1.fieldbyname('ConNo').AsString);
+        MCodeName := Trim(frmSalesContractSel.CDS_1.fieldbyname('C_Code').AsString);
+      end;
+    end;
+  finally
+    frmSalesContractSel.Free;
+  end;
+  if (MConNo = '') or (MCodeName = '') then
+    Exit;
+
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('update BS_Machine set ' + AFieldName + '=' + QuotedStr(MCodeName));
+      SQL.Add(' , ' + AConFieldName + '=' + QuotedStr(MConNo));
+      SQL.Add(' , Editer=''' + Trim(DName) + '''');
+      SQL.Add(' , Edittime=getdate()');
+      SQL.Add(' where MCID in (' + MMCIDS + ')');
+      ExecSQL;
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+      SQL.Add(' ' + QuotedStr(Trim(DName)));
+      SQL.Add(',getdate() ');
+      SQL.Add(',' + QuotedStr(Trim(self.Caption)));
+      SQL.Add(',' + QuotedStr(Trim(ALogAction)));
+      SQL.Add(',' + QuotedStr(Trim(MMCIDS + ' -> ' + MConNo + '/' + MCodeName)));
+      SQL.Add(',' + QuotedStr(Trim('成功')));
+      SQL.Add(')');
+      ExecSQL;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+
+    CDS_HZ.DisableControls;
+    try
+      CDS_HZ.First;
+      while not CDS_HZ.Eof do
+      begin
+        if CDS_HZ.fieldbyname('SSel').AsBoolean then
+        begin
+          CDS_HZ.Edit;
+          CDS_HZ.fieldbyname(AFieldName).AsString := MCodeName;
+          CDS_HZ.fieldbyname(AConFieldName).AsString := MConNo;
+          CDS_HZ.Post;
+        end;
+        CDS_HZ.Next;
+      end;
+    finally
+      CDS_HZ.EnableControls;
+    end;
+    InitGrid();
+    Application.MessageBox('绑定成功！', '提示信息');
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+  end;
+end;
+
+procedure TfrmMachineManage.UnbindContract(AFieldName, AConFieldName, ALogAction: string);
+var
+  MMCID, MConNo: string;
+begin
+  if CDS_HZ.IsEmpty then
+    Exit;
+
+  //解绑针对焦点行（光标所在机台），不用勾选
+  MMCID := Trim(CDS_HZ.fieldbyname('MCID').AsString);
+  if MMCID = '' then
+    Exit;
+
+  MConNo := Trim(CDS_HZ.fieldbyname(AConFieldName).AsString);
+  if MConNo = '' then
+  begin
+    Application.MessageBox('当前焦点行没有绑定该合同，无需解绑！', '提示', 0);
+    Exit;
+  end;
+
+  if Application.MessageBox(PChar('确定要解绑机台 ' + Trim(CDS_HZ.fieldbyname('MCNO').AsString)
+    + ' 绑定的合同 ' + MConNo + ' 吗？（同时解绑对应产品）'), '提示', 32 + 4) <> IDYES then
+    Exit;
+
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('update BS_Machine set ' + AFieldName + '=' + QuotedStr(''));
+      //解绑合同同时清空对应产品
+      SQL.Add(' , ' + AConFieldName + '=' + QuotedStr(''));
+      SQL.Add(' , Editer=''' + Trim(DName) + '''');
+      SQL.Add(' , Edittime=getdate()');
+      SQL.Add(' where MCID=' + QuotedStr(MMCID));
+      ExecSQL;
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+      SQL.Add(' ' + QuotedStr(Trim(DName)));
+      SQL.Add(',getdate() ');
+      SQL.Add(',' + QuotedStr(Trim(self.Caption)));
+      SQL.Add(',' + QuotedStr(Trim(ALogAction)));
+      SQL.Add(',' + QuotedStr(Trim(MMCID + ' -> ' + MConNo)));
+      SQL.Add(',' + QuotedStr(Trim('成功')));
+      SQL.Add(')');
+      ExecSQL;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+
+    CDS_HZ.Edit;
+    CDS_HZ.fieldbyname(AFieldName).AsString := '';
+    CDS_HZ.fieldbyname(AConFieldName).AsString := '';
+    CDS_HZ.Post;
+    InitGrid();
+    Application.MessageBox('解绑成功！', '提示信息');
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+  end;
+end;
+
 procedure TfrmMachineManage.N1Click(Sender: TObject);
 begin
   if CDS_HZ.IsEmpty then
@@ -568,6 +763,16 @@ begin
   UnbindProduct('C_CodeName2', '½â°ó²úÆ·2');
 end;
 
+procedure TfrmMachineManage.N5Click(Sender: TObject);
+begin
+  UnbindContract('C_CodeName', 'm_ConNo', '解绑合同1');
+end;
+
+procedure TfrmMachineManage.N6Click(Sender: TObject);
+begin
+  UnbindContract('C_CodeName2', 'm_ConNo2', '解绑合同2');
+end;
+
 procedure TfrmMachineManage.CustomerChange(Sender: TObject);
 begin
   ToolButton2.Click;

B01基础合同管理/U_SalesConInPut.dfm

@@ -539,8 +539,9 @@ inherited frmSalesConInPut: TfrmSalesConInPut
       Top = 111
       Width = 125
       Height = 20
+      ItemIndex = 0
       TabOrder = 11
-      Text = 'USD'
+      Text = 'CNY'
       Items.Strings = (
         'CNY'
         'USD'

E03梭织坯布检验/U_GetDllForm.pas

@@ -76,7 +76,7 @@ begin
     user := 'rightsoftsa';
     pswd := 'right,.soft@2377';
     DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
-    DParameters1 := '管理';
+    Parameters1 := '²éѯ';
     dname := '666';
 //    dname := '777';
   end

E03梭织坯布检验/U_TatClothInspList.pas

@@ -438,6 +438,14 @@ var
 begin
   inherited;
   canshu1 := self.fParameters1;
+  //꿴璂친駕怜뗍:茶꾜긍서/鱗록/錦맣긍뵀/속낀객큐
+  if Trim(canshu1) = '꿴璂' then
+  begin
+    btnEdit.Visible := False;
+    TBZF.Visible := False;
+    ToolButton2.Visible := False;
+    tbAddLen.Visible := False;
+  end;
   CurrentPage := 1;
   RecordsNumber := 500;
   ReadCxGrid(Trim(self.Caption) + 'Tv1', Tv1, '贸易检验管理');

E04梭织坯布仓库/TatClothStk.dpr

@@ -32,6 +32,7 @@ uses
   U_TatClothOutList in 'U_TatClothOutList.pas' {frmTatClothOutList},
   U_TatClothStkHZListSEL in 'U_TatClothStkHZListSEL.pas' {frmTatClothStkHZListSEL},
   U_TatClothInfoSel in '..\A00通用窗体\U_TatClothInfoSel.pas' {frmTatClothInfoSel},
+  U_SalesContractSel in '..\A00通用窗体\U_SalesContractSel.pas' {frmSalesContractSel},
   uSZHN_JSON in '..\..\..\public10\ThreeFun\Fun\uSZHN_JSON.pas';
 
 {$R *.res}

E04梭织坯布仓库/U_TatDRtInPut.dfm

@@ -253,6 +253,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
       AutoSize = True
       Caption = #36873#20135#21697
       ImageIndex = 12
+      Visible = False
       OnClick = ToolButton3Click
     end
     object ToolButton5: TToolButton
@@ -261,17 +262,26 @@ object frmTatDRtInPut: TfrmTatDRtInPut
       AutoSize = True
       Caption = #36873#35745#21010#21333
       ImageIndex = 12
+      Visible = False
       OnClick = ToolButton5Click
     end
-    object ToolButton6: TToolButton
+    object ToolButton7: TToolButton
       Left = 178
       Top = 0
+      AutoSize = True
+      Caption = #36873#21512#21516
+      ImageIndex = 12
+      OnClick = ToolButton7Click
+    end
+    object ToolButton6: TToolButton
+      Left = 261
+      Top = 0
       Caption = #36873#24211#23384
       ImageIndex = 12
       OnClick = ToolButton6Click
     end
     object ToolButton1: TToolButton
-      Left = 269
+      Left = 352
       Top = 0
       AutoSize = True
       Caption = #22686#34892
@@ -280,7 +290,7 @@ object frmTatDRtInPut: TfrmTatDRtInPut
       OnClick = ToolButton1Click
     end
     object ToolButton2: TToolButton
-      Left = 340
+      Left = 423
       Top = 0
       AutoSize = True
       Caption = #21024#34892

E04梭织坯布仓库/U_TatDRtInPut.pas

@@ -58,6 +58,7 @@ type
     Tv1C_code: TcxGridDBColumn;
     Tv1DR_LongitudeBatchNo: TcxGridDBColumn;
     Tv1DR_LatitudeBatchNo: TcxGridDBColumn;
+    ToolButton7: TToolButton;
     procedure TBCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TBSaveClick(Sender: TObject);
@@ -72,6 +73,7 @@ type
     procedure SHDANWEIBtnDnClick(Sender: TObject);
     procedure ToolButton5Click(Sender: TObject);
     procedure ToolButton6Click(Sender: TObject);
+    procedure ToolButton7Click(Sender: TObject);
   private
     fuserName: string;
     procedure InitData();
@@ -91,7 +93,7 @@ implementation
 
 uses
   U_DataLink, U_ZDYHelp, U_RTFun, U_CompanySel, U_TatPlanSel, U_TatClothInfoSel,
-  U_TatClothStkHZListSEL;
+  U_TatClothStkHZListSEL, U_SalesContractSel;
 
 {$R *.dfm}
 
@@ -569,6 +571,58 @@ begin
   end;
 end;
 
+procedure TfrmTatDRtInPut.ToolButton7Click(Sender: TObject);
+begin
+  try
+    frmSalesContractSel := TfrmSalesContractSel.Create(Application);
+    with frmSalesContractSel do
+    begin
+      if ShowModal = 1 then
+      begin
+        while CDS_1.locate('SSel', true, []) do
+        begin
+          if not self.Order_Sub.locate('ConSId', trim(frmSalesContractSel.CDS_1.Fieldbyname('ConSId').AsString), []) then
+          begin
+            with Self.Order_Sub do
+            begin
+              Append;
+              FieldByName('ConNo').Value := Trim(frmSalesContractSel.CDS_1.fieldbyname('ConNo').AsString);
+              FieldByName('ConMId').Value := Trim(frmSalesContractSel.CDS_1.fieldbyname('ConMId').AsString);
+              FieldByName('ConSId').Value := frmSalesContractSel.CDS_1.fieldbyname('ConSId').Value;
+              FieldByName('BuyConNo').Value := frmSalesContractSel.CDS_1.fieldbyname('BuyConNo').Value;
+              FieldByName('C_Code').Value := frmSalesContractSel.CDS_1.fieldbyname('C_Code').Value;
+              FieldByName('C_Name').Value := frmSalesContractSel.CDS_1.fieldbyname('C_Name').Value;
+              FieldByName('C_Spec').Value := frmSalesContractSel.CDS_1.fieldbyname('C_Spec').Value;
+              FieldByName('C_Width').Value := frmSalesContractSel.CDS_1.fieldbyname('C_Width').Value;
+              FieldByName('C_GramWeight').Value := frmSalesContractSel.CDS_1.fieldbyname('C_GramWeight').Value;
+              FieldByName('C_Color').Value := frmSalesContractSel.CDS_1.fieldbyname('C_Color').Value;
+              FieldByName('C_ColorNo').Value := frmSalesContractSel.CDS_1.fieldbyname('C_ColorNo').Value;
+              FieldByName('C_Pattern').Value := frmSalesContractSel.CDS_1.fieldbyname('C_Pattern').Value;
+              FieldByName('Piece').Value := frmSalesContractSel.CDS_1.fieldbyname('ConPiece').Value; //合同匹数
+              FieldByName('Qty').Value := frmSalesContractSel.CDS_1.fieldbyname('ConQty').Value; //合同数量
+            end;
+            //表头带出客户与数量单位（已有值时不覆盖）
+//            if Trim(self.ToCoName.Text) = '' then
+//            begin
+              self.ToCoName.TxtCode := Trim(frmSalesContractSel.CDS_1.fieldbyname('BuyNo').AsString);
+              self.ToCoName.Text := Trim(frmSalesContractSel.CDS_1.fieldbyname('BuyName').AsString);
+//            end;
+//            if Trim(self.QtyUnit.Text) = '' then
+//            begin
+              if QtyUnit.Items.IndexOf(Trim(frmSalesContractSel.CDS_1.fieldbyname('ConUnit').AsString)) >= 0 then
+                QtyUnit.ItemIndex := QtyUnit.Items.IndexOf(Trim(frmSalesContractSel.CDS_1.fieldbyname('ConUnit').AsString));
+//            end;
+          end;
+          CDS_1.Edit;
+          CDS_1.fieldbyname('SSel').value := false;
+        end;
+      end;
+    end;
+  finally
+    frmSalesContractSel.Free;
+  end;
+end;
+
 procedure TfrmTatDRtInPut.ToCoNameBtnUpClick(Sender: TObject);
 begin
 

T02贸易汇总仓库/U_TradeGreyClothOutEdit.pas

@@ -406,7 +406,7 @@ begin
     frmCompanySel := TfrmCompanySel.Create(Application);
     with frmCompanySel do
     begin
-      FCoType := 'ｹｩﾓｦﾉﾌ';
+      FCoType := '客户';
       if ShowModal = 1 then
       begin
         with Self.CDS_Sub do