1234

D01针织生产计划/KnitPlan.dproj.local

@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
-    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_TradeSalesContractSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.238,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.938,=D:\Dp10Repo\项目代码\D10gmXinHua\D01针织生产计划\U_LCKInput.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
@@ -10,7 +10,7 @@
     <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.898,=D:\Dp10Repo\项目代码\D10gmXinHuaHuaQian\D01针织生产计划\U_LCKQuery.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.238,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelPrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_TradeSalesContractSel.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.913,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_TradeInspSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.988,D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\KnitPlan.dproj=D:\Dp10Repo\项目代码\RTBasics\D01针织生产计划\InformationBase.dproj</Transaction>
@@ -27,11 +27,11 @@
     <Transaction>1899-12-30 00:00:00.000.383,=D:\Dp10Repo\项目代码\阔和\A00通用窗体\U_LabelMapSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.914,=D:\Dp10Repo\项目代码\阔和\D01针织生产计划\U_testdll.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.726,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</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.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.089,=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet2.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.128,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.pas=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.030,D:\Dp10Repo\项目代码\东亚\B01基础合同管理\U_LabelList.pas=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelList.pas</Transaction>
@@ -40,17 +40,17 @@
     <Transaction>1899-12-30 00:00:00.000.128,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_TradeInspSet.dfm=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_TradeInspSet.dfm</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.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.904,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelInput.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.496,D:\Dp10Repo\项目代码\D10gmBitao\A01基础公司管理\U_LabelInput.pas=D:\Dp10Repo\项目代码\D10gmBitao\D01针织生产计划\U_LabelInput.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.904,=D:\Dp10Repo\项目代码\东亚\D01针织生产计划\U_LabelInput.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.951,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_YarnInfoSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.pas=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.811,=D:\Dp10Repo\public10\ThreeFun\Fun\uSZHN_JSON.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.904,D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCard.dfm=D:\Dp10Repo\项目代码\D10gmbitao\D01针织生产计划\U_KnitPlanCardOFF.dfm</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">

D01针织生产计划/U_KnitPlanImport.dfm

@@ -0,0 +1,478 @@
+inherited frmknitplanImport: TfrmknitplanImport
+  Left = 189
+  Top = 138
+  Caption = #26679#21697#23548#20837
+  ClientHeight = 562
+  ClientWidth = 1484
+  Color = clWhite
+  Font.Charset = ANSI_CHARSET
+  Font.Height = -16
+  Font.Name = #24494#36719#38597#40657
+  Position = poMainFormCenter
+  ExplicitWidth = 1500
+  ExplicitHeight = 601
+  PixelsPerInch = 107
+  TextHeight = 21
+  object ToolBar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1484
+    Height = 30
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 99
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_KnitPlan.cxImageList_bar
+    Images = DataLink_KnitPlan.cxImageList_bar
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 1
+      OnClick = TBRafreshClick
+    end
+    object ToolButton5: TToolButton
+      Left = 71
+      Top = 0
+      AutoSize = True
+      Caption = #36873#25321#25991#20214
+      ImageIndex = 12
+      OnClick = ToolButton5Click
+    end
+    object ToolButton3: TToolButton
+      Left = 174
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 14
+      OnClick = ToolButton3Click
+    end
+    object ToolButton2: TToolButton
+      Left = 245
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#25968#25454
+      ImageIndex = 16
+      OnClick = ToolButton2Click
+    end
+    object ToolButton1: TToolButton
+      Left = 348
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+      OnClick = ToolButton1Click
+    end
+    object TBClose: TToolButton
+      Left = 451
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object cxGrid1: TcxGrid [1]
+    Left = 0
+    Top = 30
+    Width = 1484
+    Height = 532
+    Align = alClient
+    TabOrder = 1
+    ExplicitTop = 36
+    object Tv1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
+      DataController.DataSource = DS_1
+      DataController.Filter.AutoDataSetFilter = True
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column6
+        end
+        item
+          Kind = skSum
+          Column = v1Column6
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v1PRTOrderQty
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column6
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Header = DataLink_KnitPlan.Default
+      object cxgrdbclmnTv1Column21: TcxGridDBColumn
+        Tag = 4
+        Caption = #36873#25321
+        DataBinding.FieldName = 'Ssel'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 50
+      end
+      object Tv1Column15: TcxGridDBColumn
+        Caption = #35745#21010#31867#22411
+        DataBinding.FieldName = 'OrdType'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 71
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #19979#21333#26085#26399
+        DataBinding.FieldName = 'OrdDate'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_KnitPlan.Default
+        Width = 71
+      end
+      object v1Column19: TcxGridDBColumn
+        Caption = #20132#36135#26085#26399
+        DataBinding.FieldName = 'DlyDate'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_KnitPlan.Default
+        Width = 82
+      end
+      object v1OrderNo: TcxGridDBColumn
+        Caption = #20844#21496#25260#22836
+        DataBinding.FieldName = 'OurCoName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_KnitPlan.Default
+        Width = 100
+      end
+      object v1Column31: TcxGridDBColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'CustName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 101
+      end
+      object Tv1Column16: TcxGridDBColumn
+        Caption = #23458#25143#35746#21333#21495
+        DataBinding.FieldName = 'khconno'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 83
+      end
+      object cxgrdbclmnTv1Column15: TcxGridDBColumn
+        Caption = #19994#21153#21592
+        DataBinding.FieldName = 'Saleser'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+      object cxgrdbclmnTv1Column16: TcxGridDBColumn
+        Tag = 1
+        Caption = #20869#37096#22411#21495
+        DataBinding.FieldName = 'C_I_Name'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 80
+      end
+      object v1Column21: TcxGridDBColumn
+        Tag = 1
+        Caption = #20135#21697#32534#21495
+        DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_KnitPlan.Default
+        Width = 92
+      end
+      object v1Column2: TcxGridDBColumn
+        Tag = 1
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'C_Name'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_KnitPlan.Default
+        Width = 73
+      end
+      object v1PRTMF: TcxGridDBColumn
+        Tag = 1
+        Caption = #38376#24133
+        DataBinding.FieldName = 'C_Width'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_KnitPlan.Default
+        Width = 69
+      end
+      object Tv1Column7: TcxGridDBColumn
+        Tag = 1
+        Caption = #20811#37325
+        DataBinding.FieldName = 'C_GramWeight'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+      object Tv1Column11: TcxGridDBColumn
+        Tag = 1
+        Caption = #38754#32433
+        DataBinding.FieldName = 'C_Yarn'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 80
+      end
+      object Tv1Column1: TcxGridDBColumn
+        Tag = 1
+        Caption = #22841#23618
+        DataBinding.FieldName = 'C_jiaceng'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 82
+      end
+      object Tv1Column6: TcxGridDBColumn
+        Tag = 1
+        Caption = #24213#32433
+        DataBinding.FieldName = 'C_DYARN'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 80
+      end
+      object v1Column20: TcxGridDBColumn
+        Tag = 1
+        Caption = #20027#35201#32433#32447
+        DataBinding.FieldName = 'C_MainYarn'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 120
+      end
+      object v1Column3: TcxGridDBColumn
+        Tag = 1
+        Caption = #21518#22788#29702
+        DataBinding.FieldName = 'C_Deal'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_KnitPlan.Default
+        Width = 67
+      end
+      object v1Column6: TcxGridDBColumn
+        Tag = 1
+        Caption = #24635#21305#25968
+        DataBinding.FieldName = 'OrdPiece'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_KnitPlan.Default
+        Width = 59
+      end
+      object v1PRTOrderQty: TcxGridDBColumn
+        Tag = 1
+        Caption = #24635#25968#37327
+        DataBinding.FieldName = 'OrdQty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_KnitPlan.Default
+        Width = 92
+      end
+      object Tv1Column5: TcxGridDBColumn
+        Tag = 1
+        Caption = #21333#20301
+        DataBinding.FieldName = 'OrdUnit'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 80
+      end
+      object Tv1Column9: TcxGridDBColumn
+        Tag = 2
+        Caption = #30382#37325
+        DataBinding.FieldName = 'RuleBeforeTare'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 100
+      end
+      object Tv1Column10: TcxGridDBColumn
+        Tag = 2
+        Caption = #21253#26631#31614#21517#31216
+        DataBinding.FieldName = 'LabPackage'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 80
+      end
+      object v1PRTKZ: TcxGridDBColumn
+        Tag = 1
+        Caption = #29289#26009#21495
+        DataBinding.FieldName = 'C_Material_Name'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_KnitPlan.Default
+        Width = 76
+      end
+      object v1Column7: TcxGridDBColumn
+        Tag = 1
+        Caption = #29289#26009#21517#31216
+        DataBinding.FieldName = 'C_Material'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_KnitPlan.Default
+        Width = 72
+      end
+      object cxgrdbclmnTv1Column17: TcxGridDBColumn
+        Caption = #21097#20313#20132#26399
+        DataBinding.FieldName = 'IFJQ'
+        DataBinding.IsNullValueType = True
+        Visible = False
+        Width = 70
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_KnitPlan.ADOLink
+    Left = 121
+    Top = 161
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_KnitPlan.ADOLink
+    Left = 249
+    Top = 161
+  end
+  inherited ImageList_new32: TImageList
+    Left = 528
+    Top = 144
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_KnitPlan.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 853
+    Top = 201
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_KnitPlan.ADOLink
+    Parameters = <>
+    Left = 941
+    Top = 209
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_KnitPlan.ADOLink
+    Parameters = <>
+    Left = 741
+    Top = 209
+  end
+  object GPM_1: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 648
+    Top = 328
+  end
+  object DS_1: TDataSource
+    DataSet = CDS_1
+    Left = 795
+    Top = 323
+  end
+  object CDS_1: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 720
+    Top = 328
+  end
+  object cxStyleRepository1: TcxStyleRepository
+    Left = 600
+    Top = 200
+    PixelsPerInch = 96
+    object cxStyle1: TcxStyle
+      AssignedValues = [svTextColor]
+      TextColor = clRed
+    end
+  end
+  object OpenDialog1: TOpenDialog
+    Left = 226
+    Top = 290
+  end
+  object CDS_LM: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 560
+    Top = 329
+  end
+end

D01针织生产计划/U_KnitPlanImport.pas

@@ -0,0 +1,371 @@
+unit U_KnitPlanImport;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
+  cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
+  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
+  cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
+  cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
+  RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
+  IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
+  cxTextEdit, cxDropDownEdit, cxPC, U_BaseHelp, cxLookAndFeels,
+  cxLookAndFeelPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu, ComObj,
+  U_BaseList, System.ImageList, Vcl.ImgList, dxScrollbarAnnotations,
+  dxSkinsDefaultPainters, dxSkinsCore;
+
+type
+  TfrmknitplanImport = class(TfrmBaseHelp)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBClose: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    GPM_1: TcxGridPopupMenu;
+    DS_1: TDataSource;
+    CDS_1: TClientDataSet;
+    cxStyleRepository1: TcxStyleRepository;
+    cxStyle1: TcxStyle;
+    OpenDialog1: TOpenDialog;
+    ToolButton5: TToolButton;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    CDS_LM: TClientDataSet;
+    ToolButton3: TToolButton;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    cxgrdbclmnTv1Column21: TcxGridDBColumn;
+    v1OrderNo: TcxGridDBColumn;
+    Tv1Column15: TcxGridDBColumn;
+    Tv1Column16: TcxGridDBColumn;
+    v1Column31: TcxGridDBColumn;
+    cxgrdbclmnTv1Column15: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    Tv1Column1: TcxGridDBColumn;
+    v1Column19: TcxGridDBColumn;
+    v1Column21: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    Tv1Column5: TcxGridDBColumn;
+    Tv1Column7: TcxGridDBColumn;
+    v1Column20: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    Tv1Column6: TcxGridDBColumn;
+    v1PRTMF: TcxGridDBColumn;
+    Tv1Column9: TcxGridDBColumn;
+    v1PRTKZ: TcxGridDBColumn;
+    Tv1Column10: TcxGridDBColumn;
+    Tv1Column11: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1PRTOrderQty: TcxGridDBColumn;
+    cxgrdbclmnTv1Column16: TcxGridDBColumn;
+    cxgrdbclmnTv1Column17: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ToolButton5Click(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+  private
+    { Private declarations }
+    procedure InitGrid();
+  public
+    { Public declarations }
+    FCTID: string;
+  end;
+
+var
+  frmknitplanImport: TfrmknitplanImport;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun;
+
+{$R *.dfm}
+
+procedure TfrmknitplanImport.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add(' select * from  knit_Plan_Main A inner join knit_Plan_Sub B on A.Mainid=B.MainId inner join Trade_Cloth_Inspect_Rule C on A.Mainid=C.RuleID where 2= 1 ');
+      Open;
+    end;
+    SCreateCDS(ADOQueryMain, CDS_1);
+    SInitCDSData(ADOQueryMain, CDS_1);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmknitplanImport.FormDestroy(Sender: TObject);
+begin
+  inherited;
+
+  frmKnitPlanImport := nil;
+end;
+
+procedure TfrmknitplanImport.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  Action := cafree;
+
+end;
+
+procedure TfrmknitplanImport.TBCloseClick(Sender: TObject);
+begin
+
+  Close;
+end;
+
+procedure TfrmknitplanImport.FormShow(Sender: TObject);
+begin
+  inherited;
+  ReadCxGrid(self.Caption, Tv1, '样品管理');
+  with CDS_LM 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 TfrmknitplanImport.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmknitplanImport.ToolButton1Click(Sender: TObject);
+begin
+  WriteCxGrid(self.Caption, Tv1, '样品管理');
+end;
+
+procedure TfrmknitplanImport.ToolButton2Click(Sender: TObject);
+var
+  maxno: string;
+begin
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    if Trim(CDS_1.FieldByName('mainid').AsString) = '' then
+    begin
+      if CDS_1.FieldByName('OrdType').AsString = '大货单' then
+      begin
+        if GetLSNo(ADOQueryCmd, maxno, 'DH', 'knit_Plan_Main', 4, 1) = False then
+        begin
+          ADOQueryCmd.Connection.RollbackTrans;
+          Application.MessageBox('生成流水号异常！', '提示', 0);
+          exit;
+        end;
+      end;
+      if CDS_1.FieldByName('OrdType').AsString = '试样单' then
+      begin
+        if GetLSNo(ADOQueryCmd, maxno, 'SY', 'knit_Plan_Main', 4, 1) = False then
+        begin
+          ADOQueryCmd.Connection.RollbackTrans;
+          Application.MessageBox('生成流水号异常！', '提示', 0);
+          exit;
+        end;
+      end;
+      if CDS_1.FieldByName('OrdType').AsString = '外发单' then
+      begin
+        if GetLSNo(ADOQueryCmd, maxno, 'KM', 'knit_Plan_Main', 4, 1) = False then
+        begin
+          ADOQueryCmd.Connection.RollbackTrans;
+          Application.MessageBox('生成流水号异常！', '提示', 0);
+          exit;
+        end;
+      end;
+
+    end
+    else
+    begin
+
+    end;
+
+//////////////////////////            保存主表              //////////////////////////
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      SQL.Add('select * from knit_Plan_Main where MainId=''' + Trim(maxno) + '''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+
+      Append;
+
+      FieldByName('MainId').Value := Trim(maxno);
+      FieldByName('orderno').Value := Trim(maxno);
+      FieldByName('Filler').Value := Trim(DName);
+
+      RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Plan_main', 0);
+      Post;
+    end;
+//////////////////////////            保存主表              //////////////////////////
+///
+//////////////////////////            保存子表              //////////////////////////
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from knit_Plan_Sub where ');
+      sql.Add('  SubId=''' + Trim(maxno) + '''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+
+      Append;
+
+      FieldByName('MainId').Value := Trim(maxno);
+      FieldByName('SubId').Value := Trim(maxno);
+
+      RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Plan_sub', 1);
+      Post;
+    end;
+//////////////////////////            保存子表              //////////////////////////
+///
+//////////////////////////            保存标签表              //////////////////////////
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from Trade_Cloth_Inspect_Rule where ');
+      sql.Add('  RuleID=''' + Trim(maxno) + '''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+
+      Append;
+      FieldByName('Filler').Value := Trim(DName);
+
+      FieldByName('RuleID').Value := Trim(maxno);
+      RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Trade_Cloth_Inspect_Rule', 2);
+      Post;
+    end;
+//////////////////////////            保存标签表              //////////////////////////
+///
+
+    ADOQueryCmd.Connection.CommitTrans;
+    Application.MessageBox('保存成功！', '提示', 0);
+    tbclose.Click();
+  except
+
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！', '提示', 0);
+  end;
+end;
+
+procedure TfrmknitplanImport.ToolButton3Click(Sender: TObject);
+begin
+  CDS_1.Delete;
+end;
+
+procedure TfrmknitplanImport.ToolButton5Click(Sender: TObject);
+var
+  excelApp, WorkBook: Variant;
+  i, j, k, LX, ExcelRowCount: integer;
+  maxId, FCPID, FCPName, t1, t2, t3, FFID: string;
+begin
+
+  try
+    excelApp := CreateOleObject('Excel.Application');
+    openDialog1.Filter := '*.CSV;*.xls';
+    if opendialog1.Execute then
+    begin
+      WorkBook := excelApp.WorkBooks.Open(OpenDialog1.FileName);
+    end
+    else
+      exit;
+    excelApp.Visible := false;
+    ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;
+  except
+    application.MessageBox('加载EXCEL错误！', '错误信息', MB_ICONERROR);
+    exit;
+  end;
+
+  CDS_LM.EmptyDataSet;
+
+  for j := 0 to Tv1.ColumnCount - 1 do
+  begin
+    with CDS_LM 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
+    begin
+      if trim(WorkBook.WorkSheets[1].Cells[1, i].value) = '' then
+        continue;
+      if CDS_LM.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[1, i].value), []) then
+      begin
+        with CDS_LM 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
+    begin
+      with CDS_1 do
+      begin
+        Append;
+        CDS_LM.First;
+        while not CDS_LM.Eof do
+        begin
+          if CDS_LM.FieldByName('LXH').AsInteger > 0 then
+            CDS_1.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value;
+          CDS_LM.Next;
+        end;
+        Post;
+      end;
+    end;
+    WorkBook.Close;
+    excelApp.Quit;
+    excelApp := Unassigned;
+    WorkBook := Unassigned;
+  except
+    WorkBook.Close;
+    excelApp.Quit;
+    excelApp := Unassigned;
+    WorkBook := Unassigned;
+    application.MessageBox('写入数据异常，导入中断！', '错误信息', MB_ICONERROR);
+    exit;
+  end;
+
+end;
+
+end.
+

D01针织生产计划/U_KnitPlanInPut.dfm

@@ -2,7 +2,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
   Left = 212
   Top = 14
   Caption = #36710#38388#29983#20135#35745#21010#21333#24405#20837
-  ClientHeight = 581
+  ClientHeight = 634
   ClientWidth = 1363
   Color = clWhite
   Font.Charset = GB2312_CHARSET
@@ -10,7 +10,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
   Font.Name = #23435#20307
   Position = poScreenCenter
   ExplicitWidth = 1379
-  ExplicitHeight = 620
+  ExplicitHeight = 673
   PixelsPerInch = 96
   TextHeight = 12
   object ToolBar1: TToolBar [0]
@@ -84,6 +84,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
     ParentCtl3D = False
     ParentFont = False
     TabOrder = 1
+    ExplicitTop = 36
     object Label1: TLabel
       Left = 11
       Top = 102
@@ -152,7 +153,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
     object Label22: TLabel
       Left = 851
       Top = 152
-      Width = 102
+      Width = 110
       Height = 21
       Caption = #25104#21697#20811#37325#65306
       Font.Charset = GB2312_CHARSET
@@ -362,7 +363,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
     object Label6: TLabel
       Left = 851
       Top = 240
-      Width = 114
+      Width = 110
       Height = 21
       Caption = #33853#24067#36716#25968#65306
       Font.Charset = GB2312_CHARSET
@@ -588,7 +589,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
       BevelInner = bvNone
       Date = 40916.000000000000000000
       Format = 'yyyy-MM-dd'
-      Time = 0.670856296288548100
+      Time = 0.670856296288548000
       ShowCheckbox = True
       Font.Charset = GB2312_CHARSET
       Font.Color = clBlack
@@ -606,7 +607,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
       BevelInner = bvNone
       Date = 40916.000000000000000000
       Format = 'yyyy-MM-dd'
-      Time = 0.670856296288548100
+      Time = 0.670856296288548000
       ShowCheckbox = True
       Font.Charset = GB2312_CHARSET
       Font.Color = clBlack
@@ -1217,8 +1218,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
     Align = alClient
     TabOrder = 2
     Visible = False
-    ExplicitTop = 576
-    ExplicitHeight = 82
     object cxPageControl1: TcxPageControl
       Left = 1
       Top = 1
@@ -1238,7 +1237,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
       Properties.ActivePage = cxTabSheet1
       Properties.CustomButtons.Buttons = <>
       Properties.Style = 6
-      ExplicitHeight = 80
       ClientRectBottom = 3
       ClientRectRight = 1361
       ClientRectTop = 3
@@ -1247,8 +1245,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
         Color = clWhite
         ImageIndex = 0
         ParentColor = False
-        ExplicitTop = 32
-        ExplicitHeight = 48
         object cxGrid2: TcxGrid
           Left = 0
           Top = 38
@@ -1262,7 +1258,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
           Font.Style = []
           ParentFont = False
           TabOrder = 0
-          ExplicitHeight = 10
           object Tv2: TcxGridDBTableView
             Navigator.Buttons.CustomButtons = <>
             ScrollbarAnnotations.CustomAnnotations = <>
@@ -1503,8 +1498,6 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
       object cxTabSheet2: TcxTabSheet
         Caption = #25490#38024#19977#35282
         ImageIndex = 1
-        ExplicitTop = 32
-        ExplicitHeight = 48
         object Panel1: TPanel
           Left = 0
           Top = 183
@@ -3954,7 +3947,7 @@ inherited frmKnitPlanInPut: TfrmKnitPlanInPut
   end
   inherited ADOQueryBaseTemp: TADOQuery
     Connection = DataLink_KnitPlan.ADOLink
-    Left = 732
+    Left = 733
     Top = 552
   end
   inherited ImageList_new32: TImageList

D01针织生产计划/U_KnitPlanList.dfm

@@ -72,16 +72,24 @@ inherited frmKnitPlanList: TfrmKnitPlanList
       ImageIndex = 3
       OnClick = TBEditClick
     end
-    object ToolButton8: TToolButton
+    object ToolButton11: TToolButton
       Left = 355
       Top = 0
       AutoSize = True
+      Caption = #23548#20837
+      ImageIndex = 22
+      OnClick = ToolButton11Click
+    end
+    object ToolButton8: TToolButton
+      Left = 426
+      Top = 0
+      AutoSize = True
       Caption = #25171#21360#35745#21010#21333
       ImageIndex = 21
       OnClick = ToolButton8Click
     end
     object TBPrint: TToolButton
-      Left = 462
+      Left = 533
       Top = 0
       AutoSize = True
       Caption = #25171#21360#35745#21010#21333
@@ -90,7 +98,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
       OnClick = TBPrintClick
     end
     object DYPrint: TToolButton
-      Left = 569
+      Left = 640
       Top = 0
       AutoSize = True
       Caption = #25171#21360#25171#26679#21333
@@ -98,7 +106,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
       OnClick = DYPrintClick
     end
     object TBView: TToolButton
-      Left = 676
+      Left = 747
       Top = 0
       AutoSize = True
       Caption = #26597#30475
@@ -106,7 +114,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
       OnClick = TBViewClick
     end
     object TBDel: TToolButton
-      Left = 747
+      Left = 818
       Top = 0
       AutoSize = True
       Caption = #21024#38500
@@ -114,7 +122,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
       OnClick = TBDelClick
     end
     object TBSCAP: TToolButton
-      Left = 818
+      Left = 889
       Top = 0
       AutoSize = True
       Caption = #29983#20135#23433#25490
@@ -122,7 +130,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
       OnClick = TBSCAPClick
     end
     object ToolButton2: TToolButton
-      Left = 913
+      Left = 984
       Top = 0
       AutoSize = True
       Caption = #25171#21367#35774#32622
@@ -130,7 +138,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
       OnClick = ToolButton2Click
     end
     object btn1: TToolButton
-      Left = 1008
+      Left = 1079
       Top = 0
       AutoSize = True
       Caption = #25171#21360#27969#31243#21345
@@ -413,6 +421,7 @@ inherited frmKnitPlanList: TfrmKnitPlanList
     Height = 374
     Align = alClient
     TabOrder = 2
+    ExplicitTop = 165
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>

D01针织生产计划/U_KnitPlanList.pas

@@ -158,6 +158,7 @@ type
     cxgrdbclmnTv1Column20: TcxGridDBColumn;
     cxgrdbclmnTv1Column21: TcxGridDBColumn;
     DYPrint: TToolButton;
+    ToolButton11: TToolButton;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBCloseClick(Sender: TObject);
     procedure TBFindClick(Sender: TObject);
@@ -202,6 +203,7 @@ type
     procedure ToolButton10Click(Sender: TObject);
     procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
     procedure DYPrintClick(Sender: TObject);
+    procedure ToolButton11Click(Sender: TObject);
   private
     FInt, PFInt: Integer;
     procedure InitGrid();
@@ -223,7 +225,7 @@ implementation
 
 uses
   U_DataLink, U_KnitPlanInPut, U_RTFun, U_ZDYHelp, U_LabelPrint, U_KnitCardInPut,
-  U_TradeInspSet, U_LCKInput;
+  U_TradeInspSet, U_LCKInput, U_KnitPlanImport;
 
 {$R *.dfm}
 
@@ -903,6 +905,23 @@ begin
 
 end;
 
+procedure TfrmKnitPlanList.ToolButton11Click(Sender: TObject);
+begin
+  try
+    frmknitplanImport := TfrmknitplanImport.Create(Application);
+    with frmknitplanImport do
+    begin
+
+      if ShowModal = 1 then
+      begin
+        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmknitplanImport.Free;
+  end;
+end;
+
 procedure TfrmKnitPlanList.ToolButton1Click(Sender: TObject);
 begin
   WriteCxGrid('坯布生产计划单1', Tv1, '坯布生产管理');