0

2025-08-08 10:42:50 +08:00 · 2025-08-08 10:42:50 +08:00 · 0026e9e246
commit 0026e9e246
1925 changed files with 1190442 additions and 0 deletions
--- a/.gitignore
+++ b/.gitignore
@ -0,0 +1,16 @@
+**/layout
+**/report
+**/实施文件
+**/image
+**/doc
+**/wav
+**/__history
+**/__recovery
+*.dll
+*.exe
+*.ddp
+*.dcu
+*.~pas
+*.~dfm
+*.~ddp
+*.~dpr
--- a/产品报价(ProductQuotation)/File.INI
+++ b/产品报价(ProductQuotation)/File.INI
@ -0,0 +1,4 @@
+[生产车间配置]
+卷条码机台标志=99
+成品DLL文件=CYZZ.dll
+成品DLL调用号=11
--- a/产品报价(ProductQuotation)/FileHelp.ini
+++ b/产品报价(ProductQuotation)/FileHelp.ini
@ -0,0 +1,7 @@
+[FILEPATH]
+FileClass=YP,AA,BB,HT
+YP=D:\YP
+AA=D:\AA
+BB=D:\BB
+HT=D:\HT
+OTHER=D:\OTHER
--- a/产品报价(ProductQuotation)/JCYData.INI
+++ b/产品报价(ProductQuotation)/JCYData.INI
@ -0,0 +1,7 @@
+[系统配置]
+串口号=com1
+波特率=9600
+校验位=0
+数据位=8
+停止位=0
+频率=100
--- a/产品报价(ProductQuotation)/JZCRS323C.INI
+++ b/产品报价(ProductQuotation)/JZCRS323C.INI
@ -0,0 +1,7 @@
+[系统配置]
+串口号=com2
+波特率=1200
+校验位=0
+数据位=8
+停止位=0
+频率=100
--- a/产品报价(ProductQuotation)/JZCRS323CList.txt
+++ b/产品报价(ProductQuotation)/JZCRS323CList.txt
--- a/产品报价(ProductQuotation)/ProductQuotation.cfg
+++ b/产品报价(ProductQuotation)/ProductQuotation.cfg
@ -0,0 +1,42 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-U"D:\말繫ERP"
+-O"D:\말繫ERP"
+-I"D:\말繫ERP"
+-R"D:\말繫ERP"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
--- a/产品报价(ProductQuotation)/ProductQuotation.dof
+++ b/产品报价(ProductQuotation)/ProductQuotation.dof
@ -0,0 +1,138 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=D:\富通ERP
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOffice2k;Rave50CLX;Rave50VCL
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=D:\郑丰平开发代码\项目代码\弘钜\产品报价(ProductQuotation)\testDll.exe
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=2052
+CodePage=936
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[Excluded Packages]
+c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package
--- a/产品报价(ProductQuotation)/ProductQuotation.dpr
+++ b/产品报价(ProductQuotation)/ProductQuotation.dpr
@ -0,0 +1,46 @@
+library ProductQuotation;
+
+uses
+  SysUtils,
+  classes,
+  forms,
+  WinTypes,
+  WinProcs,
+  U_GetDllForm in 'U_GetDllForm.pas',
+  U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
+  U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
+  U_DataLink in 'U_DataLink.pas' {DataLink_ProductQuotation: TDataModule},
+  U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},
+  U_iniParam in 'U_iniParam.pas',
+  U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp},
+  U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
+  U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
+  U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
+  U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
+  U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
+  U_Fun10 in '..\..\..\ThreeFun\Fun\U_Fun10.pas';
+
+{$R *.res}
+
+procedure DllEnterPoint(dwReason: DWORD);far;stdcall;
+begin
+  DLLProc := @DLLEnterPoint;
+  DllEnterPoint(DLL_PROCESS_ATTACH);
+end;
+
+procedure DLLUnloadProc(Reason: Integer); register;
+begin
+  if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then
+     Application:=NewDllApp;
+end;
+exports
+   GetDllForm;
+begin
+   try
+     NewDllApp:=Application;
+     DLLProc := @DLLUnloadProc;
+   except
+
+   end;
+end.
+
--- a/产品报价(ProductQuotation)/ProductQuotation.res
+++ b/产品报价(ProductQuotation)/ProductQuotation.res
--- a/产品报价(ProductQuotation)/ProjectGroup1.bpg
+++ b/产品报价(ProductQuotation)/ProjectGroup1.bpg
@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = testDll.exe ProductPrice.dll
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+testDll.exe: testDll.dpr
+  $(DCC)
+
+ProductPrice.dll: ProductPrice.dpr
+  $(DCC)
+
+
--- a/产品报价(ProductQuotation)/SYSTEMSET.ini
+++ b/产品报价(ProductQuotation)/SYSTEMSET.ini
@ -0,0 +1,3 @@
+[SERVER]
+服务器地址=172.168.1.246
+软件名称=欣戈纺织
--- a/产品报价(ProductQuotation)/U_CPManageFMSel.dfm
+++ b/产品报价(ProductQuotation)/U_CPManageFMSel.dfm
@ -0,0 +1,546 @@
+object frmCPManageFMSel: TfrmCPManageFMSel
+  Left = 208
+  Top = 122
+  Width = 1382
+  Height = 754
+  Align = alClient
+  Caption = #26679#21697#20449#24687
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnKeyDown = FormKeyDown
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1366
+    Height = 31
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_ProductQuotation.ThreeImgList
+    Flat = True
+    Images = DataLink_ProductQuotation.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object ToolButton2: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = ToolButton2Click
+    end
+    object ToolButton4: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #36873#25321
+      ImageIndex = 31
+      OnClick = ToolButton4Click
+    end
+    object TBClose: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 220
+    Top = 93
+    Width = 8
+    Height = 623
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    Control = Panel5
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 31
+    Width = 1366
+    Height = 62
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label2: TLabel
+      Left = 16
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #25195#25551#20837#21475
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label1: TLabel
+      Left = 364
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #20013#25991#21517#31216
+    end
+    object Label3: TLabel
+      Left = 216
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #20135#21697#32534#21495
+    end
+    object Label7: TLabel
+      Left = 732
+      Top = 15
+      Width = 24
+      Height = 12
+      Caption = #20811#37325
+    end
+    object Label8: TLabel
+      Left = 611
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #25104'    '#20998
+    end
+    object Label10: TLabel
+      Left = 485
+      Top = 15
+      Width = 24
+      Height = 12
+      Caption = #38376#24133
+    end
+    object Label11: TLabel
+      Left = 1088
+      Top = 11
+      Width = 7
+      Height = 12
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label12: TLabel
+      Left = 1088
+      Top = 31
+      Width = 7
+      Height = 12
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object CYID: TEdit
+      Tag = 3
+      Left = 72
+      Top = 11
+      Width = 121
+      Height = 20
+      ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 0
+      OnKeyPress = CYIDKeyPress
+    end
+    object CYName: TEdit
+      Tag = 2
+      Left = 414
+      Top = 11
+      Width = 56
+      Height = 20
+      ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 2
+      OnChange = CYNameChange
+    end
+    object CYNO: TEdit
+      Tag = 2
+      Left = 265
+      Top = 11
+      Width = 89
+      Height = 20
+      ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 1
+      OnChange = CYNoChange
+      OnKeyPress = CYNOKeyPress
+    end
+    object CYKZ: TEdit
+      Tag = 2
+      Left = 758
+      Top = 11
+      Width = 76
+      Height = 20
+      ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 5
+      OnChange = CYMFChange
+    end
+    object CYCF: TEdit
+      Tag = 2
+      Left = 661
+      Top = 11
+      Width = 56
+      Height = 20
+      ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 4
+      OnChange = CYNameChange
+    end
+    object CYMF: TEdit
+      Tag = 2
+      Left = 511
+      Top = 11
+      Width = 76
+      Height = 20
+      ImeName = #20013#25991'('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 3
+      OnChange = CYMFChange
+    end
+  end
+  object Panel2: TPanel
+    Left = 512
+    Top = 232
+    Width = 185
+    Height = 41
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
+    Color = clSkyBlue
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clRed
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 5
+    Visible = False
+  end
+  object Panel5: TPanel
+    Left = 0
+    Top = 93
+    Width = 220
+    Height = 623
+    Align = alLeft
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 2
+    object cxDBTreeList1: TcxDBTreeList
+      Left = 2
+      Top = 2
+      Width = 216
+      Height = 619
+      Align = alClient
+      Bands = <
+        item
+        end>
+      BufferedPaint = False
+      DataController.DataSource = DataSource1
+      DataController.ParentField = 'CPParent'
+      DataController.KeyField = 'CPID'
+      OptionsBehavior.ExpandOnDblClick = False
+      OptionsSelection.CellSelect = False
+      OptionsView.CellAutoHeight = True
+      OptionsView.Headers = False
+      RootValue = -1
+      Styles.Inactive = DataLink_ProductQuotation.Red
+      Styles.Selection = DataLink_ProductQuotation.Red
+      Styles.IncSearch = DataLink_ProductQuotation.Red
+      TabOrder = 0
+      OnDblClick = cxDBTreeList1DblClick
+      object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
+        DataBinding.FieldName = 'CPName'
+        Width = 210
+        Position.ColIndex = 1
+        Position.RowIndex = 0
+        Position.BandIndex = 0
+      end
+    end
+  end
+  object Panel3: TPanel
+    Left = 230
+    Top = 104
+    Width = 1073
+    Height = 609
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Caption = 'Panel3'
+    TabOrder = 4
+    object GroupBox1: TGroupBox
+      Left = 2
+      Top = 412
+      Width = 1069
+      Height = 195
+      Align = alBottom
+      Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289
+      TabOrder = 1
+      object ScrollBox1: TScrollBox
+        Left = 2
+        Top = 14
+        Width = 1065
+        Height = 179
+        Align = alClient
+        BevelInner = bvLowered
+        BorderStyle = bsNone
+        TabOrder = 0
+      end
+    end
+    object cxGrid1: TcxGrid
+      Left = 2
+      Top = 2
+      Width = 1069
+      Height = 410
+      Align = alClient
+      TabOrder = 0
+      object Tv1: TcxGridDBTableView
+        NavigatorButtons.ConfirmDelete = False
+        NavigatorButtons.Delete.Enabled = False
+        NavigatorButtons.Delete.Visible = False
+        OnCellClick = Tv1CellClick
+        DataController.DataSource = DataSource2
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <>
+        DataController.Summary.SummaryGroups = <>
+        OptionsCustomize.ColumnFiltering = False
+        OptionsData.Deleting = False
+        OptionsData.DeletingConfirmation = False
+        OptionsView.GroupByBox = False
+        object v1Column19: TcxGridDBColumn
+          Caption = #36873#25321
+          DataBinding.FieldName = 'SSel'
+          PropertiesClassName = 'TcxCheckBoxProperties'
+          Properties.ImmediatePost = True
+          Properties.NullStyle = nssUnchecked
+          HeaderAlignmentHorz = taCenter
+          Width = 40
+        end
+        object v1Column12: TcxGridDBColumn
+          Caption = #31867#22411
+          DataBinding.FieldName = 'CPName'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 54
+        end
+        object v1CYNo: TcxGridDBColumn
+          Caption = #20135#21697#32534#21495
+          DataBinding.FieldName = 'CYNo'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 92
+        end
+        object v1Column9: TcxGridDBColumn
+          Caption = #20135#21697#21517#31216
+          DataBinding.FieldName = 'CYName'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 96
+        end
+        object v1Column2: TcxGridDBColumn
+          Caption = #21407#26009#25104#20998
+          DataBinding.FieldName = 'CYSpec'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 68
+        end
+        object v1Column4: TcxGridDBColumn
+          Caption = #25104#20998
+          DataBinding.FieldName = 'CYCF'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 89
+        end
+        object v1Column3: TcxGridDBColumn
+          Caption = #38376#24133
+          DataBinding.FieldName = 'CYMF'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object v1Column1: TcxGridDBColumn
+          Caption = #20811#37325
+          DataBinding.FieldName = 'CYKZ'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 81
+        end
+        object v1Column5: TcxGridDBColumn
+          Caption = #33457#22411
+          DataBinding.FieldName = 'CYHX'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object v1Column6: TcxGridDBColumn
+          Caption = #39068#33394
+          DataBinding.FieldName = 'CYColor'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 77
+        end
+        object v1Column39: TcxGridDBColumn
+          Caption = #22791#27880
+          DataBinding.FieldName = 'CYNote'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 166
+        end
+        object v1Column7: TcxGridDBColumn
+          Caption = #38024#22411
+          DataBinding.FieldName = 'ZhenXing'
+          HeaderAlignmentHorz = taCenter
+          Width = 67
+        end
+        object v1Column8: TcxGridDBColumn
+          Caption = #20135#37327
+          DataBinding.FieldName = 'CYCL'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 71
+        end
+      end
+      object cxGrid1Level1: TcxGridLevel
+        GridView = Tv1
+      end
+    end
+  end
+  object DataSource1: TDataSource
+    DataSet = ADOQueryTree
+    Left = 91
+    Top = 147
+  end
+  object ADOQueryTree20: TADOQuery
+    Connection = DataLink_ProductQuotation.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 61
+    Top = 145
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_ProductQuotation.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 989
+    Top = 1
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_ProductQuotation.ADOLink
+    Parameters = <>
+    Left = 1029
+    Top = 1
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 432
+    Top = 184
+  end
+  object DataSource2: TDataSource
+    DataSet = CDS_Main
+    Left = 451
+    Top = 155
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_ProductQuotation.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 493
+    Top = 193
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 392
+    Top = 184
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    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
+    Dataset = RMDB_Main
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 392
+    Top = 152
+    ReportData = {}
+  end
+  object RMDB_Main: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_Main
+    Left = 424
+    Top = 152
+  end
+  object ODPat: TOpenDialog
+    Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
+    Left = 484
+    Top = 157
+  end
+  object IdFTP1: TIdFTP
+    MaxLineAction = maException
+    ReadTimeout = 0
+    ProxySettings.ProxyType = fpcmNone
+    ProxySettings.Port = 0
+    Left = 461
+    Top = 188
+  end
+  object SaveDialog1: TSaveDialog
+    Left = 513
+    Top = 157
+  end
+  object DSCYNO: TDataSource
+    DataSet = CDS_CYNO
+    Left = 771
+    Top = 235
+  end
+  object CDS_CYNO: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 712
+    Top = 264
+  end
+  object ADOQueryTree: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 32
+    Top = 200
+  end
+  object adoqueryPicture: TADOQuery
+    Connection = DataLink_ProductQuotation.ADOLink
+    Parameters = <>
+    Left = 479
+    Top = 256
+  end
+end
--- a/产品报价(ProductQuotation)/U_CPManageFMSel.pas
+++ b/产品报价(ProductQuotation)/U_CPManageFMSel.pas
@ -0,0 +1,473 @@
+unit U_CPManageFMSel;
+
+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,jpeg,U_SLT;
+
+type
+  TfrmCPManageFMSel = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBClose: TToolButton;
+    DataSource1: TDataSource;
+    ADOQueryTree20: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    cxSplitter1: TcxSplitter;
+    Panel1: TPanel;
+    Label2: TLabel;
+    CYID: TEdit;
+    ToolButton2: TToolButton;
+    Label1: TLabel;
+    CYName: TEdit;
+    DataSource2: TDataSource;
+    ADOQueryMain: TADOQuery;
+    CDS_Main: TClientDataSet;
+    ToolButton4: TToolButton;
+    RM1: TRMGridReport;
+    RMDB_Main: TRMDBDataSet;
+    ODPat: TOpenDialog;
+    IdFTP1: TIdFTP;
+    SaveDialog1: TSaveDialog;
+    Label3: TLabel;
+    CYNO: TEdit;
+    Panel2: TPanel;
+    DSCYNO: TDataSource;
+    CDS_CYNO: TClientDataSet;
+    Label7: TLabel;
+    CYKZ: TEdit;
+    Label8: TLabel;
+    CYCF: TEdit;
+    Label10: TLabel;
+    CYMF: TEdit;
+    ADOQueryTree: TClientDataSet;
+    Panel5: TPanel;
+    cxDBTreeList1: TcxDBTreeList;
+    cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
+    Label11: TLabel;
+    Label12: TLabel;
+    Panel3: TPanel;
+    GroupBox1: TGroupBox;
+    ScrollBox1: TScrollBox;
+    adoqueryPicture: TADOQuery;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column19: TcxGridDBColumn;
+    v1Column12: TcxGridDBColumn;
+    v1CYNo: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column39: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure cxDBTreeList1DblClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure CYIDKeyPress(Sender: TObject; var Key: Char);
+    procedure CYNoChange(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure Tv1CellClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure FormKeyDown(Sender: TObject; var Key: Word;
+      Shift: TShiftState);
+    procedure v1Column19PropertiesChange(Sender: TObject);
+    procedure CYMFChange(Sender: TObject);
+    procedure CYNameChange(Sender: TObject);
+    procedure CYNOKeyPress(Sender: TObject; var Key: Char);
+    procedure Tv1DblClick(Sender: TObject);
+  private
+    { Private declarations }
+    CPID:string;
+    PState:Integer;
+    FCPID,FTopID:String;
+    procedure InitTree();
+    procedure InitGrid();
+    procedure ReadINIFile();
+    procedure InitImage();
+
+  public
+    { Public declarations }
+  end;
+
+
+var
+  frmCPManageFMSel: TfrmCPManageFMSel;
+   Mach: array of TfrmSlt;
+
+implementation
+uses
+  U_DataLink,U_Fun,U_FileUp;
+
+{$R *.dfm}
+
+procedure TfrmCPManageFMSel.InitTree();
+var
+  i:Integer;
+begin
+  with ADOQueryTree20 do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTree20,ADOQueryTree);
+  SInitCDSData20(ADOQueryTree20,ADOQueryTree);
+  cxDBTreeList1.Items[0].Expand(false);
+  //cxDBTreeList1.Items[1].Expand(False);
+end;
+
+procedure TfrmCPManageFMSel.InitGrid();
+begin
+  Panel2.Visible:=True;
+  Panel2.Refresh;
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      SQL.Clear;
+      SQL.Add('exec P_Select_CP_YDang :Code,:PState,:CYType');
+      Parameters.ParamByName('Code').Value:='';
+      Parameters.ParamByName('PState').Value:=0;
+      Parameters.ParamByName('CYType').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+  Panel2.Visible:=False;
+end;
+
+procedure TfrmCPManageFMSel.FormDestroy(Sender: TObject);
+begin
+  frmCPManageFMSel:=nil;
+end;
+
+procedure TfrmCPManageFMSel.FormClose(Sender: TObject; var Action: TCloseAction);
+var
+  i,j:integer;
+begin
+  j:=length(Mach);
+  if j>0 then
+  begin
+    for i:=0 to j-1 do
+    begin
+      Mach[i].free;
+    end;
+  end;
+  SetLength(Mach, 0);
+//  writeCxGrid(self.Caption+tv1.Name,tv1);
+ // Application := mainApplication;
+  action:=cafree;
+end;
+
+procedure TfrmCPManageFMSel.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('样品列表SelLJ',Tv1,'样品管理');
+  if  DirectoryExists(ExtractFileDir('D:\Right1209')) then
+    winexec('cmd /c rd /s /q D:\Right1209',sw_hide);
+  Close;
+end;
+procedure TfrmCPManageFMSel.FormShow(Sender: TObject);
+begin
+  Panel3.Align:=alclient;
+  InitTree();
+  ReadCxGrid('样品列表SelLJ',Tv1,'样品管理');
+  
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select CYID='''' ');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_CYNO);
+  SInitCDSData20(ADOQueryTemp,CDS_CYNO);
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      SQL.Clear;
+      SQL.Add('exec P_Select_CP_YDang :Code,:PState,:CYType');
+      Parameters.ParamByName('Code').Value:='';
+      Parameters.ParamByName('PState').Value:=0;
+      Parameters.ParamByName('CYType').Value:='XXXXXXX';
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+  CDS_CYNO.Delete;
+end;
+
+procedure TfrmCPManageFMSel.cxDBTreeList1DblClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmCPManageFMSel.TBRafreshClick(Sender: TObject);
+begin
+  InitTree();
+  InitGrid();
+  //TJGS();
+end;
+
+procedure TfrmCPManageFMSel.ToolButton2Click(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+   // TJGS();
+  end;
+
+end;
+
+procedure TfrmCPManageFMSel.CYIDKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Trim(CYID.Text)='' then Exit;
+    with ADOQueryMain do
+    begin
+      Close;
+      Filtered:=False;
+      sql.Clear;
+      sql.Add('exec P_Select_CP_YDang :Code,1,'''' ');
+      Parameters.ParamByName('Code').Value:=Trim(CYID.Text);
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+    CYID.Text:='';
+    ADOQueryTree.Locate('CPID',CPID,[]);
+  end;
+end;
+
+procedure TfrmCPManageFMSel.CYNoChange(Sender: TObject);
+begin
+  //if Length(Trim(TEdit(Sender).Text))<4 then Exit;
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+    //TJGS();
+  end;
+
+end;
+
+procedure TfrmCPManageFMSel.ToolButton4Click(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then Exit;
+  ModalResult:=1;
+end;
+
+procedure TfrmCPManageFMSel.ReadINIFile();
+var
+  programIni:Tinifile;  //配置文件名
+  FileName:string;
+begin
+  FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI';
+  programIni:=Tinifile.create(FileName);
+  server:=programIni.ReadString('SERVER','服务器地址','127.0.0.1');
+  programIni.Free;
+end;
+
+procedure TfrmCPManageFMSel.Tv1CellClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  if CDS_Main.IsEmpty then Exit;
+{  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').asstring)+'''');
+    Open;
+  end;
+  CPID:=Trim(ADOQueryTemp.fieldbyname('CYType').AsString);
+  ADOQueryTree.Locate('CPID',CPID,[]);  }
+  InitImage();
+end;
+procedure TfrmCPManageFMSel.InitImage();
+var
+  i,j:integer;
+  jpg:TJpegImage;
+  myStream: TADOBlobStream;
+begin
+
+  j:=length(Mach);
+  if j>0 then
+  begin
+    for i:=0 to j-1 do
+    begin
+      Mach[i].free;
+    end;
+  end;
+  SetLength(Mach, 0);
+  IF CDS_Main.IsEmpty then exit;                             
+  try
+    with adoqueryPicture do
+    begin
+      close;
+      sql.Clear;
+      sql.Add(' select A.TFID,A.WBID,A.FilesOther,B.FileName from TP_File A,XD_File B  where A.TFID =B.XFID and A.WBID='+quotedstr(trim(CDS_Main.fieldbyname('CYID').AsString)));
+      open;
+    end;
+    j:=adoqueryPicture.RecordCount;
+    if j<1 then exit;
+    adoqueryPicture.DisableControls;
+    adoqueryPicture.First;
+    SetLength(Mach, j);
+    jpg:=TJpegImage.Create();
+    for i:=0 to j-1 do
+    begin
+      if triM(adoqueryPicture.fieldbyname('FilesOther').AsString)<>'' then
+      begin
+        myStream:=tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('FilesOther')),bmread);
+        jpg.LoadFromStream(myStream);
+        Mach[i] := TfrmSlt.Create(Self);
+        Mach[i].Name:=trim(adoqueryPicture.fieldbyname('TFID').AsString);
+        Mach[i].Parent := ScrollBox1;
+        Mach[I].Left:=0+i*165;
+        Mach[i].Init(adoqueryPicture.fieldbyname('TFID').AsString,adoqueryPicture.fieldbyname('FileName').AsString,jpg);
+      end;
+      adoqueryPicture.Next;
+    end;
+     adoqueryPicture.EnableControls;
+  finally
+    jpg.free;
+    application.ProcessMessages;
+  end;
+end;
+
+procedure TfrmCPManageFMSel.FormKeyDown(Sender: TObject; var Key: Word;
+  Shift: TShiftState);
+begin
+  {if Key= then
+  begin
+    if CDS_Main.IsEmpty then Exit;
+    if Application.MessageBox('确定6666要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    if Trim(CDS_Main.fieldbyname('CYID').AsString)<>'' then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        SQL.Clear;
+        sql.Add('delete CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+'''');
+        ExecSQL;
+      end;
+    end;
+
+    CDS_Main.Delete;
+  end;  }
+end;
+
+procedure TfrmCPManageFMSel.v1Column19PropertiesChange(Sender: TObject);
+var
+  mvalue:Boolean;
+begin
+ { mvalue:=TcxCheckBox(Sender).EditingValue;
+  if mvalue=True then
+  begin
+    with CDS_CYNO do
+    begin
+      if Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[])=False then
+      begin
+        Append;
+        FieldByName('CYID').Value:=Trim(CDS_Main.fieldbyname('CYID').AsString);
+        Post;
+      end;
+    end;
+  end else
+  begin
+    //with CDS_CYNO do
+    //begin
+    CDS_CYNO.Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[]);
+    CDS_CYNO.Delete;
+    //end;
+  end; }
+end;
+
+procedure TfrmCPManageFMSel.CYMFChange(Sender: TObject);
+begin
+  //if Length(Trim(TEdit(Sender).Text))<2 then Exit;
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+    //TJGS();
+  end;
+
+end;
+
+procedure TfrmCPManageFMSel.CYNameChange(Sender: TObject);
+begin
+  //if Length(Trim(TEdit(Sender).Text))<2 then Exit;
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+   // TJGS();
+  end;
+
+end;
+
+procedure TfrmCPManageFMSel.CYNOKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+  begin
+    if Trim(CYNO.Text)='' then Exit;
+    if Length(Trim(CYNO.Text))<4 then Exit;
+    with ADOQueryMain do
+    begin
+      Close;
+      Filtered:=False;
+      sql.Clear;
+      sql.Add('exec P_Select_CP_YDang :Code,2,'''' ');
+      Parameters.ParamByName('Code').Value:='%'+Trim(CYNO.Text)+'%';
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_Main);
+    SInitCDSData20(ADOQueryMain,CDS_Main);
+    CYID.Text:='';
+    ADOQueryTree.Locate('CPID',CPID,[]);
+   // TJGS();
+  end;
+end;
+
+procedure TfrmCPManageFMSel.Tv1DblClick(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then Exit;
+  ModalResult:=1;
+end;
+
+end.
--- a/产品报价(ProductQuotation)/U_DataLink.dfm
+++ b/产品报价(ProductQuotation)/U_DataLink.dfm
--- a/产品报价(ProductQuotation)/U_DataLink.pas
+++ b/产品报价(ProductQuotation)/U_DataLink.pas
@ -0,0 +1,71 @@
+unit U_DataLink;
+
+interface
+
+uses
+  SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
+  Windows,Messages,forms,OleCtnrs,DateUtils;
+var
+   DConString:String;   {全局连接字符串}
+   server, dtbase, user, pswd: String;  {数据库连接参数}
+   DCurHandle:hwnd;     //当前窗体句柄
+   DName:string ;   //#用户名#//
+   DCode:string ;     //#用户编号#//
+   Ddatabase:string;    //#数据库名称#//
+   DTitCaption:string;  //#主窗体名称#//
+   DParameters1,DParameters2,DParameters3,DParameters4,DParameters5:string;// 外部参数；
+   DParameters6,DParameters7,DParameters8,DParameters9,DParameters10:string;//外部参数；
+   OldDllApp:Tapplication; //保存原有句柄
+   NewDllApp: Tapplication;//当前句柄
+   MainApplication: Tapplication ;
+   DFormCode:integer;  //当前窗口号
+   IsDelphiLanguage:integer;
+   DServerDate:TdateTime; //服务器时间
+   DCompany:string;       //公司
+   PicSvr:string;
+type
+  TDataLink_ProductQuotation = class(TDataModule)
+    AdoDataLink: TADOQuery;
+    ADOLink: TADOConnection;
+    ThreeImgList: TImageList;
+    ThreeLookAndFeelCol: TcxLookAndFeelController;
+    ThreeColorBase: TcxStyleRepository;
+    SHuangSe: TcxStyle;
+    SkyBlue: TcxStyle;
+    Default: TcxStyle;
+    QHuangSe: TcxStyle;
+    Red: TcxStyle;
+    FontBlue: TcxStyle;
+    TextSHuangSe: TcxStyle;
+    FonePurple: TcxStyle;
+    FoneClMaroon: TcxStyle;
+    FoneRed: TcxStyle;
+    RowColor: TcxStyle;
+    handBlack: TcxStyle;
+    cxBlue: TcxStyle;
+    SHuangSeCu: TcxStyle;
+    procedure DataModuleDestroy(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+  TMakebar = procedure(ucData:pchar;nDataLen:integer;nErrLevel:integer;nMask:integer;nBarEdition:integer;szBmpFileName:pchar;nScale:integer);stdcall;
+  TMixtext = procedure( szSrcBmpFileName:PChar;szDstBmpFileName:PChar;sztext:PChar;fontsize,txtheight,hmargin,vmargin,txtcntoneline:integer);stdcall;
+var
+  DataLink_ProductQuotation: TDataLink_ProductQuotation;
+
+implementation
+{$R *.dfm}
+
+
+procedure TDataLink_ProductQuotation.DataModuleDestroy(Sender: TObject);
+begin
+  DataLink_ProductQuotation:=nil;
+end;
+
+end.
+
+
+
+
--- a/产品报价(ProductQuotation)/U_FileUp.dfm
+++ b/产品报价(ProductQuotation)/U_FileUp.dfm
@ -0,0 +1,188 @@
+object frmFileUp: TfrmFileUp
+  Left = 247
+  Top = 162
+  Width = 634
+  Height = 447
+  Caption = #19978#20256#25991#20214
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object cxGrid7: TcxGrid
+    Left = 0
+    Top = 41
+    Width = 555
+    Height = 367
+    Align = alClient
+    TabOrder = 0
+    object TV7: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsView.GroupByBox = False
+      OptionsView.Indicator = True
+      object FileName: TcxGridDBColumn
+        Tag = 1
+        Caption = #25991#20214#21517#31216
+        DataBinding.FieldName = 'FileName'
+        FooterAlignmentHorz = taCenter
+        HeaderAlignmentHorz = taCenter
+        Width = 121
+      end
+      object FileDate: TcxGridDBColumn
+        Tag = 1
+        Caption = #19978#20256#26085#26399
+        DataBinding.FieldName = 'FileDate'
+        FooterAlignmentHorz = taCenter
+        HeaderAlignmentHorz = taCenter
+        Width = 104
+      end
+    end
+    object cxGridLevel6: TcxGridLevel
+      GridView = TV7
+    end
+  end
+  object Panel16: TPanel
+    Left = 190
+    Top = 126
+    Width = 138
+    Height = 30
+    BevelInner = bvRaised
+    Caption = #27491#22312#19978#20256#12290#12290#12290
+    Color = clSkyBlue
+    TabOrder = 1
+    Visible = False
+  end
+  object ToolBar6: TToolBar
+    Left = 555
+    Top = 41
+    Width = 63
+    Height = 367
+    Align = alRight
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Flat = True
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ShowCaptions = True
+    TabOrder = 2
+    object FileUp: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #19978#20256
+      ImageIndex = 109
+      Wrap = True
+      OnClick = FileUpClick
+    end
+    object FileDel: TToolButton
+      Left = 0
+      Top = 30
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 17
+      Wrap = True
+      OnClick = FileDelClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 0
+    Width = 618
+    Height = 41
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 3
+    object Label1: TLabel
+      Left = 8
+      Top = 14
+      Width = 68
+      Height = 16
+      Caption = #20135#21697#32534#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Image2: TImage
+      Left = 537
+      Top = 17
+      Width = 23
+      Height = 16
+    end
+    object Code: TEdit
+      Left = 78
+      Top = 9
+      Width = 211
+      Height = 24
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      ReadOnly = True
+      TabOrder = 0
+    end
+  end
+  object ODPat: TOpenDialog
+    Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
+    Left = 404
+    Top = 197
+  end
+  object IdFTP1: TIdFTP
+    MaxLineAction = maException
+    ReadTimeout = 0
+    ProxySettings.ProxyType = fpcmNone
+    ProxySettings.Port = 0
+    Left = 405
+    Top = 236
+  end
+  object SaveDialog1: TSaveDialog
+    Left = 409
+    Top = 285
+  end
+  object ADOQueryFile: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 488
+    Top = 144
+  end
+  object DataSource1: TDataSource
+    DataSet = ADOQueryFile
+    Left = 392
+    Top = 168
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 496
+    Top = 216
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 504
+    Top = 264
+  end
+end
--- a/产品报价(ProductQuotation)/U_FileUp.pas
+++ b/产品报价(ProductQuotation)/U_FileUp.pas
@ -0,0 +1,357 @@
+unit U_FileUp;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, ComCtrls, ToolWin, ExtCtrls,
+  cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
+  cxClasses, cxControls, cxGridCustomView, cxGrid, IdBaseComponent,
+  IdComponent, IdTCPConnection, IdTCPClient, IdFTP, StdCtrls, ADODB,jpeg,
+  BtnEdit,IniFiles;
+
+type
+  TfrmFileUp = class(TForm)
+    cxGrid7: TcxGrid;
+    TV7: TcxGridDBTableView;
+    FileName: TcxGridDBColumn;
+    FileDate: TcxGridDBColumn;
+    cxGridLevel6: TcxGridLevel;
+    Panel16: TPanel;
+    ToolBar6: TToolBar;
+    FileUp: TToolButton;
+    FileDel: TToolButton;
+    Panel1: TPanel;
+    Label1: TLabel;
+    Code: TEdit;
+    ODPat: TOpenDialog;
+    IdFTP1: TIdFTP;
+    SaveDialog1: TSaveDialog;
+    ADOQueryFile: TADOQuery;
+    DataSource1: TDataSource;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    Image2: TImage;
+    procedure FileUpClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FileDelClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+  private
+    lstPat: TStringList;
+		AJpeg: TJPEGImage;
+    procedure CreThumb(AJPeg:TJPEGImage;Image1:TImage;Width, Height: Integer);
+    procedure SaveImageOther();
+    procedure ReadINIFile10();
+    { Private declarations }
+  public
+    CYID:String;
+    { Public declarations }
+  end;
+
+var
+  frmFileUp: TfrmFileUp;
+
+implementation
+uses
+  U_DataLink,U_RTFun;
+
+{$R *.dfm}
+
+procedure TfrmFileUp.ReadINIFile10();
+var
+  programIni:Tinifile;  //配置文件名
+  FileName:string;
+begin
+  FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI';
+  programIni:=Tinifile.create(FileName);
+  server:=programIni.ReadString('SERVER','服务器地址','127.0.0.1');
+  programIni.Free;
+end;
+procedure TfrmFileUp.FileUpClick(Sender: TObject);
+var
+  i,j: Integer;
+  PatFile: String;
+  FTPPath,FConNo,MaxNo:string;
+  AJpeg: TJPEGImage;
+begin
+  if Trim(Code.Text)='' then
+  begin
+    Application.MessageBox('编号不能为空！','提示',0);
+    Exit;
+  end;
+  lstPat.Clear;
+  if ODPat.Execute then
+  begin
+    lstPat.AddStrings(ODPat.Files);
+  end;
+
+  if lstPat.Count > 0 then
+  begin
+    try
+      ReadINIFile10();
+      server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','服务器地址','127.0.0.1');
+      IdFTP1.Host :=server;//PicSvr;
+      IdFTP1.Username := 'three';
+      IdFTP1.Password := '641010';
+      IdFTP1.Connect();
+    except
+      IdFTP1.Quit;
+      Application.MessageBox('无法连接到文件服务器，请检查！', '提示', MB_ICONWARNING);
+      Exit;
+    end;
+  end;
+  Panel16.Visible:=True;
+  Panel16.Refresh;
+  AJpeg:=TJpegImage.Create();
+  with ADOQueryTemp do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('select Count(*) MM from XD_File where CYID='''+Trim(CYID)+'''');
+    SQL.Add('and filetype=''YP''');
+    Open;
+    j:=fieldbyname('MM').AsInteger;
+  end;
+  Image2.Picture.LoadFromFile(ODPat.FileName);
+  AJpeg.Assign(Image2.Picture.Graphic);
+  CreThumb(AJpeg,Image2,216, 187);
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    for i := 0 to lstPat.Count - 1 do
+    begin
+      PatFile := ExtractFileName(lstPat[i]);
+      PatFile:=Copy(PatFile,(Pos('.',PatFile)+1),(Length(PatFile)-Pos('.',PatFile))  ) ;
+      FConNo:=Trim(Code.Text);
+      while  Pos('/',FConNo)>0 do
+      begin
+        Delete(FConNo,Pos('/',FConNo),1);
+      end;
+      PatFile:=Trim(FConNo)+'-'+Inttostr(j+i+1)+'.'+PatFile;
+      if IdFTP1.Connected then
+      begin
+        try
+          {if not DirectoryExists('D:\图片\'+Trim(gDef1)) then
+           ForceDirectories('D:\图片\'+Trim(gDef1)); }
+          IdFTP1.Put(lstPat[i], Trim('\YP')+'\'+Trim(PatFile));
+          with ADOQueryTemp do
+          begin
+            Close;
+            SQL.Clear;
+            SQL.Add('select * from XD_File where CYID='''+Trim(CYID)+'''');
+            SQL.Add(' and filename='''+Trim(PatFile)+'''');
+            SQL.Add(' and filetype=''YP''');
+            Open;
+            if not IsEmpty then
+            begin
+              Panel16.Visible:=False;
+              Application.MessageBox(PChar('文件<'+Trim(PatFile)+'>重复,'+inttostr(i)+'个文件上传成功！'),'提示',0);
+              Exit;
+            end;
+          end;
+          if GetLSNo(ADOQueryCmd,MaxNo,'YP','XD_File',4,1)=False then
+          begin
+            ADOQueryCmd.Connection.RollbackTrans;
+            Application.MessageBox('取图片最大号失败！','提示',0);
+            Exit;
+          end;
+          with ADOQueryCmd do
+          begin
+            Close;
+            SQL.Clear;
+            SQL.Add('select * from XD_File where 1<>1');
+            Open;
+          end;
+          with ADOQueryCmd do
+          begin
+            Append;
+            FieldByName('XFID').Value:=Trim(MaxNo);
+            FieldByName('CYID').Value:=Trim(CYID);
+            FieldByName('CYNO').Value:=Trim(Code.Text);
+            FieldByName('filename').Value:=Trim(PatFile);
+            FieldByName('FileDate').Value:=SGetServerDate(ADOQueryTemp);
+            fieldbyname('FileType').value:=Trim('YP');
+            Post;
+          end;
+        except
+          //ADOQueryCmd.Connection.RollbackTrans;
+          //Application.MessageBox('图片上传失败！','提示',0);
+        end;
+      end;
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('Update CP_YDang Set TPFlag=1 where CYID='''+Trim(CYID)+'''');
+      ExecSQL;
+    end;
+    SaveImageOther();
+    ADOQueryCmd.Connection.CommitTrans;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('图片上传失败！','提示',0);
+  end;
+  if IdFTP1.Connected then IdFTP1.Quit;
+  with ADOQueryFile do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('select * from XD_File where CYID='''+Trim(CYID)+'''');
+    open;
+  end;
+  Panel16.Visible:=False;
+  if i>0 then
+    Application.MessageBox(PChar(inttostr(i)+'个文件上传成功！'),'提示',0);
+  ModalResult:=1;
+end;
+procedure TfrmFileUp.CreThumb(AJPeg:TJPEGImage;Image1:TImage;Width, Height: Integer);
+var
+  Bitmap: TBitmap;
+  Ratio: Double;
+  ARect: TRect;
+  AHeight, AHeightOffset: Integer;
+  AWidth, AWidthOffset: Integer;
+begin
+  Bitmap := TBitmap.Create;
+  try
+    Ratio := AJPeg.Width /AJPeg.Height;
+    if Ratio > 1.333 then
+    begin
+      AHeight := Round(Width / Ratio);
+      AHeightOffset := (Height - AHeight) div 2;
+      AWidth := Width;
+      AWidthOffset := 0;
+    end
+    else
+    begin
+      AWidth := Round(Height * Ratio);
+      AWidthOffset := (Width - AWidth) div 2;
+      AHeight := Height;
+      AHeightOffset := 0;
+    end;
+    Bitmap.Width := Width;
+    Bitmap.Height := Height;
+    Bitmap.Canvas.Brush.Color := clBtnFace;
+    Bitmap.Canvas.FillRect(Rect(0, 0, Width, Height));
+    ARect := Rect(AWidthOffset, AHeightOffset, AWidth + AWidthOffset, AHeight + AHeightOffset);
+    Bitmap.Canvas.StretchDraw(ARect, AJPeg);
+    Image1.Picture.Assign(BitMap);
+  finally
+    Bitmap.Free;
+  end;
+end;
+procedure TfrmFileUp.SaveImageOther();
+var
+  AJpeg: TJPEGImage;
+  myStream: TADOBlobStream;
+  ImgMaxNo:String;
+  i,j: Integer;
+  PatFile: String;
+  FTPPath,FConNo,MaxNo,FTFID:string;
+begin
+  if Image2.Picture=nil then Exit;
+  AJpeg:=TJpegImage.Create();
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from TP_File where WBID='''+Trim(CYID)+'''');
+    Open;
+  end;
+  FTFID:=Trim(ADOQueryTemp.fieldbyname('TFID').AsString);
+  if Trim(FTFID)='' then
+  begin
+    if GetLSNo(ADOQueryCmd,ImgMaxNo,'TF','TP_File',3,1)=False then
+    begin
+      ADOQueryCmd.Connection.RollbackTrans;
+      Application.MessageBox('取图片表最大号失败!','提示',0);
+      Exit;
+    end;
+  end else
+  begin
+    ImgMaxNo:=Trim(FTFID);
+  end;
+  with ADOQueryCmd do
+  begin
+    close;
+    sql.Clear;
+    sql.Add( ' select *  from TP_File where TFID='''+Trim(FTFID)+'''');
+    open;
+  end;
+  with ADOQueryCmd do
+  begin
+    if Trim(FTFID)='' then
+    begin
+      Append;
+      FieldByName('Filler').Value:=Trim(DName);
+    end
+    else
+    begin
+      Edit;
+      FieldByName('Editer').Value:=Trim(DName);
+      FieldByName('EditTime').Value:=SGetServerDateTime(ADOQueryTemp);
+    end;
+    FieldByName('TFID').Value:=Trim(ImgMaxNo);
+    FieldByName('WBID').Value:=Trim(CYID);
+    //FieldByName('TFIdx').Value:=cxTabControl2.TabIndex;
+    FieldByName('TFType').Value:='样品';
+    AJpeg.Assign(Image2.Picture.Graphic);
+    //CreThumb(AJpeg,Image1,160, 120);
+    myStream := TADOBlobStream.Create(TBlobField(ADOQueryCmd.FieldByName('FilesOther')), bmWrite);
+    AJpeg.Assign(Image2.Picture.Graphic);
+    AJpeg.SaveToStream(myStream);
+    myStream.Free;
+    Post;
+  end;
+end;
+
+procedure TfrmFileUp.FormCreate(Sender: TObject);
+begin
+  lstPat := TStringList.Create;
+
+end;
+
+procedure TfrmFileUp.FileDelClick(Sender: TObject);
+begin
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add(' Delete XD_File where XFID='''+Trim(ADOQueryFile.fieldbyname('XFID').AsString)+'''');
+    SQL.Add(' Delete TP_File where WBID='''+Trim(CYID)+''' and TFType=''样品'' ');
+    ExecSQL;
+  end;
+  with ADOQueryFile do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('select * from XD_File where CYID='''+Trim(CYID)+'''');
+    SQL.Add(' and FileType=''YP''');
+    open;
+  end;
+  if ADOQueryFile.IsEmpty then
+  begin
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('Update CP_YDang Set TPFlag=0 where CYID='''+Trim(CYID)+'''');
+      ExecSQL;
+    end;
+  end;
+end;
+
+procedure TfrmFileUp.FormShow(Sender: TObject);
+begin
+  with ADOQueryFile do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('select * from XD_File where CYID='''+Trim(CYID)+'''');
+    SQL.Add(' and FileType=''YP''');
+    Open;
+  end;
+end;
+
+end.
--- a/产品报价(ProductQuotation)/U_GetDllForm.pas
+++ b/产品报价(ProductQuotation)/U_GetDllForm.pas
@ -0,0 +1,204 @@
+unit U_GetDllForm;
+
+interface
+
+uses
+  Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB;
+
+function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; export; stdcall;
+
+function ConnData(): Boolean;
+
+implementation
+
+uses
+  U_DataLink, U_YpBaoJiaList;
+
+       /////////////////////////////////////////////////////////////////
+      //         功能说明:取Dll中得窗体                              //
+     //        参数说明：App>>调用应用程序；                        //
+    //                 FormH>>调用窗口句柄 ；                      //
+   //                 FormID>>窗口号;                             //
+  //                 Language>>语言种类;                         //
+ //                 WinStyle>>窗口类型；                        //
+/////////////////////////////////////////////////////////////////
+var
+  frmYpBaoJiaListLR, frmYpBaoJiaListSH: TfrmYpBaoJiaList;
+
+function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd;
+var
+  i: Integer;
+  bFound: Boolean;
+  mnewHandle: hwnd;
+  mstyle: TFormStyle;     // 0:子窗口; 1：普通窗口
+  mstate: TWindowState;
+  mborderstyle: TFormBorderStyle;
+begin
+  mnewHandle := 0;
+  DName := PChar(GName);
+  DCode := PChar(GCode);
+  DdataBase := DataBase;
+  DTitCaption := Title;
+  DParameters1 := Parameters1;
+  DParameters2 := Parameters2;
+  DParameters3 := Parameters3;
+  DParameters4 := Parameters4;
+  DParameters5 := Parameters5;
+  DParameters6 := Parameters6;
+  DParameters7 := Parameters7;
+  DParameters8 := Parameters8;
+  DParameters9 := Parameters9;
+  DParameters10 := Parameters10;
+
+  MainApplication := App;
+  DCurHandle := FormH;
+  IsDelphiLanguage := Language;
+
+  Application := TApplication(App);
+  DCurHandle := 0;
+
+
+   //赋值链接字符串
+  SetLength(server, 255);
+  SetLength(dtbase, 255);
+  SetLength(user, 255);
+  SetLength(pswd, 255);
+
+//  server := '47.101.187.103,7781';
+  server := '.';
+  dtbase := 'hongjudata';
+  user := 'sa';
+//  pswd := 'rightsoft@123';
+  pswd := 'rightsoft';
+  DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
+  DConString := DataBaseStr;
+  // DName:='周高祥';
+
+   //DParameters1:='高权限';   //高权限
+   //DParameters3:='1';
+  if not ConnData() then
+  begin
+    result := 0;
+    exit;
+  end;
+
+   // 定义窗口类型 、状态
+  if WinStyle = 0 then
+  begin
+    mstyle := fsMDIChild;
+    mstate := wsMaximized;
+    mborderstyle := bsSizeable;
+  end
+  else
+  begin
+    mstyle := fsNormal;
+    mstate := wsNormal;
+    mborderstyle := bsSizeable;
+  end;
+  /////////////////////
+  //调用子模块窗口
+  case FormID of
+    111:  // 产品报价
+      begin
+        bFound := FALSE;
+        for i := (App.MainForm.MDIChildCount - 1) downto 0 do
+        begin
+          if App.MainForm.MDIChildren[i].Caption = '产品报价' then
+          begin
+            BringWindowToTop(frmYpBaoJiaListLR.Handle);
+            bFound := TRUE;
+            Break;
+          end;
+        end;
+        if not bFound then
+       //if frmBaoGuanListBGZL=nil then
+        begin
+          frmYpBaoJiaListLR := TfrmYpBaoJiaList.Create(application.MainForm);
+          with frmYpBaoJiaListLR do
+          begin
+            Title := '产品报价';
+            caption := Trim(Title);
+            FormStyle := mstyle;
+            windowState := mstate;
+            BorderStyle := mborderstyle;
+           //show;
+          end;
+        end
+        else
+          frmYpBaoJiaListLR.BringToFront;
+       //句柄
+        mnewHandle := frmYpBaoJiaListLR.Handle;
+      end;
+    112:  // 产品报价审核
+      begin
+        bFound := FALSE;
+        for i := (App.MainForm.MDIChildCount - 1) downto 0 do
+        begin
+          if App.MainForm.MDIChildren[i].Caption = '产品报价审核' then
+          begin
+            BringWindowToTop(frmYpBaoJiaListSH.Handle);
+            bFound := TRUE;
+            Break;
+          end;
+        end;
+        if not bFound then
+        begin
+          frmYpBaoJiaListSH := TfrmYpBaoJiaList.Create(application.MainForm);
+          with frmYpBaoJiaListSH do
+          begin
+            CanShu1 := '高权限';
+            Title := '产品报价审核';
+            caption := Trim(Title);
+            FormStyle := mstyle;
+            windowState := mstate;
+            BorderStyle := mborderstyle;
+           //show;
+          end;
+        end
+        else
+          frmYpBaoJiaListSH.BringToFront;
+       //句柄
+        mnewHandle := frmYpBaoJiaListSH.Handle;
+      end;
+
+  end;
+
+  Result := mnewHandle;
+  NewDllApp := Application;
+end;
+//===========================================================
+  //建立数据库连接池
+//===========================================================
+
+function ConnData(): Boolean;
+begin
+  if not Assigned(DataLink_ProductQuotation) then
+    DataLink_ProductQuotation := TDataLink_ProductQuotation.Create(Application);
+  try
+    with DataLink_ProductQuotation.ADOLink do
+    begin
+      //if not Connected then
+      begin
+        Connected := false;
+        ConnectionString := DConString;
+        LoginPrompt := false;
+        Connected := true;
+      end;
+    end;
+    Result := true;
+  except
+    Result := false;
+    application.MessageBox('数据库连接失败！', '错误', mb_Ok + MB_ICONERROR);
+  end;
+
+end;
+
+initialization
+  OldDllApp := Application;
+
+finalization
+  DataLink_ProductQuotation.Free;
+  Application := OldDllApp;
+
+end.
+
--- a/产品报价(ProductQuotation)/U_LabelAdd.dfm
+++ b/产品报价(ProductQuotation)/U_LabelAdd.dfm
@ -0,0 +1,313 @@
+object frmLabelAdd: TfrmLabelAdd
+  Left = 191
+  Top = 109
+  Width = 997
+  Height = 612
+  BorderIcons = [biMaximize]
+  Caption = #26631#31614#32534#36753
+  Color = clBtnFace
+  Font.Charset = ANSI_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object Panel1: TPanel
+    Left = 0
+    Top = 28
+    Width = 413
+    Height = 513
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 0
+    object Label2: TLabel
+      Left = 31
+      Top = 21
+      Width = 60
+      Height = 12
+      Caption = #26631#31614#25991#20214#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 31
+      Top = 95
+      Width = 60
+      Height = 12
+      Caption = #22791'    '#27880#65306
+    end
+    object Label9: TLabel
+      Left = 31
+      Top = 71
+      Width = 60
+      Height = 12
+      Caption = #26631#31614#21517#31216#65306
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label10: TLabel
+      Left = 31
+      Top = 47
+      Width = 60
+      Height = 12
+      Caption = #26631#31614#31867#22411#65306
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object LabelFileName: TBtnEditA
+      Left = 92
+      Top = 17
+      Width = 260
+      Height = 20
+      ReadOnly = True
+      TabOrder = 0
+      OnBtnClick = LabelFileNameBtnClick
+    end
+    object beizhu: TMemo
+      Left = 92
+      Top = 92
+      Width = 257
+      Height = 149
+      ScrollBars = ssBoth
+      TabOrder = 1
+    end
+    object LabelCaption: TEdit
+      Left = 92
+      Top = 67
+      Width = 258
+      Height = 20
+      ReadOnly = True
+      TabOrder = 2
+    end
+    object LabelType: TFTComboBox
+      Tag = 99
+      Left = 92
+      Top = 43
+      Width = 260
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      ItemIndex = 0
+      TabOrder = 3
+      Text = #20013#25991#26631#31614
+      Items.Strings = (
+        #20013#25991#26631#31614
+        #33521#25991#26631#31614
+        #20013#33521#25991#26631#31614)
+    end
+  end
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 981
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar2'
+    Color = clBtnFace
+    Flat = True
+    Images = DataLink_CYZZ.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 1
+    Transparent = False
+    object Tsave: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26631#31614
+      ImageIndex = 5
+      OnClick = TsaveClick
+    end
+    object Tclose: TToolButton
+      Left = 87
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TcloseClick
+    end
+  end
+  object RMPreview1: TRMPreview
+    Left = 428
+    Top = 32
+    Width = 553
+    Height = 541
+    Align = alRight
+    BevelOuter = bvLowered
+    Caption = #26631#31614#39044#35272
+    TabOrder = 2
+    OnDblClick = RMPreview1DblClick
+    Options.RulerUnit = rmutScreenPixels
+    Options.RulerVisible = False
+    Options.DrawBorder = False
+    Options.BorderPen.Color = clGray
+    Options.BorderPen.Style = psDash
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    CommandTimeout = 300
+    Parameters = <>
+    Left = 512
+    Top = 208
+  end
+  object OpenDialog1: TOpenDialog
+    Filter = 'RMFl(*.rmf)|*.rmf'
+    InitialDir = '.'
+    Left = 200
+    Top = 4
+  end
+  object RMGridReport1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    ShowProgress = False
+    DefaultCollate = False
+    ShowPrintDialog = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    Preview = RMPreview1
+    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 = 336
+    Top = 8
+    ReportData = {}
+  end
+  object ADOQueryTmp: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    CommandTimeout = 300
+    Parameters = <>
+    Left = 528
+    Top = 184
+  end
+  object RMGridReportDesigner1: TRMGridReportDesigner
+    Left = 376
+    Top = 8
+  end
+  object RMBarCodeObject1: TRMBarCodeObject
+    Left = 280
+    Top = 4
+  end
+  object RMBMPExport1: TRMBMPExport
+    ScaleX = 1.000000000000000000
+    ScaleY = 1.000000000000000000
+    Left = 408
+    Top = 8
+  end
+  object RMXLSExport1: TRMXLSExport
+    ShowAfterExport = True
+    ExportPrecision = 1
+    PagesOfSheet = 10
+    ExportImages = True
+    ExportFrames = True
+    ExportImageFormat = ifBMP
+    JPEGQuality = 0
+    ScaleX = 1.000000000000000000
+    ScaleY = 1.000000000000000000
+    CompressFile = False
+    Left = 440
+    Top = 8
+  end
+  object RMDS_Main: TRMDBDataSet
+    Visible = True
+    AliasName = #26631#31614#25968#25454
+    Left = 498
+    Top = 72
+  end
+  object RMDataDictionary1: TRMDataDictionary
+    FieldFieldNames.TableName = 'TableName'
+    FieldFieldNames.FieldName = 'FieldName'
+    FieldFieldNames.FieldAlias = 'FieldAlias'
+    Left = 562
+    Top = 72
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    Parameters = <>
+    Left = 352
+    Top = 480
+  end
+  object RMGridReport2: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    ShowProgress = False
+    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
+    Dataset = RMDS_Main
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 432
+    Top = 368
+    ReportData = {}
+  end
+  object ADOQueryCmdSC: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    Parameters = <>
+    Left = 296
+    Top = 304
+    object ADOQueryCmdFileContent: TBlobField
+      FieldName = 'Files'
+    end
+    object ADOQueryCmdFtFileName: TStringField
+      FieldName = 'FileName'
+      Size = 40
+    end
+    object ADOQueryCmdFileEditDate: TDateTimeField
+      FieldName = 'FileEditDate'
+    end
+    object ADOQueryCmdFileSize: TFloatField
+      FieldName = 'FileSize'
+    end
+    object ADOQueryCmdFiller: TStringField
+      FieldName = 'Filler'
+    end
+    object ADOQueryCmdLastEditTime: TDateTimeField
+      FieldName = 'LastEditTime'
+    end
+    object ADOQueryCmdLastEditer: TStringField
+      FieldName = 'LastEditer'
+    end
+    object ADOQueryCmdFileCreateDate: TDateTimeField
+      FieldName = 'FileCreateDate'
+    end
+    object ADOQueryCmdchildPath: TStringField
+      FieldName = 'FilePath'
+    end
+    object ADOQueryCmdFileType: TStringField
+      FieldName = 'FileType'
+    end
+  end
+end
--- a/产品报价(ProductQuotation)/U_LabelAdd.pas
+++ b/产品报价(ProductQuotation)/U_LabelAdd.pas
@ -0,0 +1,455 @@
+unit U_LabelAdd;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ComCtrls, ToolWin, StdCtrls, BtnEdit, ExtCtrls, DB, ADODB,
+  RM_System, RM_Common, RM_Class, RM_GridReport, Buttons, FTComboBox,
+  RM_Preview, RM_e_Xls, RM_e_Graphic, RM_e_bmp, RM_BarCode,
+  RM_DsgGridReport, RM_Dataset, cxStyles, cxCustomData, cxGraphics,
+  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridLevel,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
+  cxControls, cxGridCustomView, cxGrid;
+
+type
+  TfrmLabelAdd = class(TForm)
+    Panel1: TPanel;
+    Label2: TLabel;
+    Label3: TLabel;
+    LabelFileName: TBtnEditA;
+    beizhu: TMemo;
+    ToolBar1: TToolBar;
+    Tsave: TToolButton;
+    Tclose: TToolButton;
+    ADOQueryCmd: TADOQuery;
+    OpenDialog1: TOpenDialog;
+    RMGridReport1: TRMGridReport;
+    Label9: TLabel;
+    LabelCaption: TEdit;
+    Label10: TLabel;
+    LabelType: TFTComboBox;
+    ADOQueryTmp: TADOQuery;
+    RMPreview1: TRMPreview;
+    RMGridReportDesigner1: TRMGridReportDesigner;
+    RMBarCodeObject1: TRMBarCodeObject;
+    RMBMPExport1: TRMBMPExport;
+    RMXLSExport1: TRMXLSExport;
+    RMDS_Main: TRMDBDataSet;
+    RMDataDictionary1: TRMDataDictionary;
+    ADOQuery1: TADOQuery;
+    RMGridReport2: TRMGridReport;
+    ADOQueryCmdSC: TADOQuery;
+    ADOQueryCmdFileContent: TBlobField;
+    ADOQueryCmdFtFileName: TStringField;
+    ADOQueryCmdFileEditDate: TDateTimeField;
+    ADOQueryCmdFileSize: TFloatField;
+    ADOQueryCmdFiller: TStringField;
+    ADOQueryCmdLastEditTime: TDateTimeField;
+    ADOQueryCmdLastEditer: TStringField;
+    ADOQueryCmdFileCreateDate: TDateTimeField;
+    ADOQueryCmdchildPath: TStringField;
+    ADOQueryCmdFileType: TStringField;
+    procedure TcloseClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure TsaveClick(Sender: TObject);
+    procedure LabelFileNameBtnClick(Sender: TObject);
+    procedure BtOpenClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure RMPreview1DblClick(Sender: TObject);
+  private
+    fIsChg:Boolean;
+    function SaveData():Boolean;
+    function EditData():Boolean;
+    procedure InitWinData();
+    procedure InitVarDictionary();
+    procedure InitDataSetDictionary();
+    function  PostFileToData():boolean;
+    procedure GetFileInfo(mFile:string;var mfileSize:integer;var CreationTime:tdatetime;var WriteTime:tdatetime);
+    function  CovFileDate(Fd:_FileTime):TDateTime;
+  public
+    fcustomNo:string;
+    fKeyNo:string;
+    fWinStatus:integer;
+  end;
+
+var
+  frmLabelAdd: TfrmLabelAdd;
+
+implementation
+uses
+  U_DataLink,U_RTFun;
+{$R *.dfm}
+
+procedure TfrmLabelAdd.TcloseClick(Sender: TObject);
+begin
+  if fIsChg then
+  begin
+    if application.MessageBox('标签设计过，是否要保存?','提示信息',1)=1 then
+    begin
+      Tsave.Click ;
+    end
+    else
+      close;
+  end
+  else
+    close;
+end;
+
+procedure TfrmLabelAdd.FormCreate(Sender: TObject);
+begin
+  panel1.Align :=alClient;
+  fIsChg:=false;
+//  ClearWinData(panel1);
+ // InitVarDictionary();
+end;
+
+procedure TfrmLabelAdd.TsaveClick(Sender: TObject);
+begin
+  if trim(labelCaption.Text)='' then
+  begin
+    application.MessageBox('标签名称不能为空！','提示');
+    labelCaption.SetFocus;
+    exit;
+  end;
+  if trim(LabelFileName.Text)='' then
+  begin
+    application.MessageBox('标签文件不能为空，请选择标签！','提示');
+    LabelFileName.SetFocus;
+    exit;
+  end;
+  PostFileToData();
+  if fWinStatus=0 then
+  begin
+    if SaveData() then
+    begin
+      ModalResult:=1;
+    end;
+  end
+  else
+  begin
+    if EditData() then
+    begin
+      ModalResult:=1;
+    end;
+  end;
+
+end;
+function TfrmLabelAdd.PostFileToData():boolean;
+var
+  mFileName,fFileName,fpathFileName:string;
+  Stream : TMemoryStream;
+  mfileSize:integer;
+  mCreationTime:TdateTime;
+  mWriteTime:TdateTime;
+begin
+  result:=false;
+  fFileName:=Trim(LabelCaption.Text);
+  fpathFileName:=Trim(LabelFileName.Text);
+  try
+    ADOQueryCmdSC.Connection.BeginTrans ;
+    try
+      with ADOQueryCmdSC do
+      begin
+        close;
+        sql.Clear ;
+        sql.Add('delete  from RT_FileUpdate');
+        sql.Add('where FileName='+quotedStr(trim(fFileName)));
+        execsql;
+      end;
+      with ADOQueryCmdSC do
+      begin
+        close;
+        sql.Clear ;
+        sql.Add('select * from RT_FileUpdate');
+        sql.Add('where FileName='+quotedStr(trim(fFileName)));
+        Open;
+        //////////////////////////
+        //获取文件信息
+        GetFileInfo(Trim(fpathFileName),mfileSize,mCreationTime,mWriteTime);
+
+        if RecordCount<=0 then
+        begin
+          Append;
+          fieldByName('FileName').AsString := trim(fFileName);
+        end
+        else
+        begin
+          edit;
+        end;
+
+        fieldByName('FileEditDate').Value :=mWriteTime;
+        fieldByName('FileCreateDate').Value :=mCreationTime;
+        fieldByName('FileSize').Value :=mfileSize;
+        fieldByName('Filler').Value :=Dname;
+        fieldByName('LastEditer').Value :=Dname;
+        fieldByName('LastEditTime').Value :=SGetServerDateTime(ADOQueryTmp);
+        if pos('.rmf',fFileName)>0 then
+        begin
+          fieldByName('FilePath').Value :='report';
+          fieldByName('FileType').Value :='公用';
+        end
+        else if pos('.dll',fFileName)>0 then
+        begin
+          fieldByName('FilePath').Value :='';
+          fieldByName('FileType').Value :='一般';
+        end
+        else
+        begin
+          fieldByName('FilePath').Value :='';
+          fieldByName('FileType').Value :='公用';
+        end;
+        //将OLE数据存入数据库
+        ADOQueryCmdFileContent.LoadFromFile(fpathFileName);
+        //ADOQueryCmdFileContent.LoadFromStream(Stream);
+
+        post;
+      end;
+    finally
+    end;
+    result:=true;
+    ADOQueryCmdSC.Connection.CommitTrans ;
+  except
+    ADOQueryCmdSC.Connection.RollbackTrans ;
+    Result:=False;
+    application.MessageBox(pchar('提交文件['+trim(fFileName)+']失败!'),'提示信息',MB_ICONERROR);
+  end;
+
+end;
+procedure TfrmLabelAdd.GetFileInfo(mFile:string;var mfileSize:integer;var CreationTime:tdatetime;var WriteTime:tdatetime);
+var
+  vSearchRec:   TSearchRec;
+begin
+   FindFirst(mFile,faAnyFile,vSearchRec);
+   mfileSize:=vSearchRec.Size;
+   CreationTime:=CovFileDate(vSearchRec.FindData.ftCreationTime);//创建时间
+   //vSearchRec.FindData.ftLastAccessTime//访问时间
+   WriteTime:=CovFileDate(vSearchRec.FindData.ftLastWriteTime);//修改时间
+   FindClose(vSearchRec);
+end;
+function TfrmLabelAdd.CovFileDate(Fd:_FileTime):TDateTime;
+var
+  Tct:_SystemTime;
+  Temp:_FileTime;
+begin 
+  FileTimeToLocalFileTime(Fd,Temp);
+  FileTimeToSystemTime(Temp,Tct);
+  CovFileDate:=SystemTimeToDateTime(Tct);
+end;
+
+/////////////////////////////////////////////////////////////////////
+  //函数功能：保存数据
+/////////////////////////////////////////////////////////////////////
+function TfrmLabelAdd.SaveData():Boolean;
+begin
+  try
+     ADOQueryCmd.Connection.BeginTrans;
+     with ADOQueryCmd do
+     begin
+        close;
+        sql.Clear;
+        sql.Add('select * from P_Label');
+        sql.Add('where 1<>1');
+        Open;
+
+        Append;
+        fieldByName('filler').value:=DName;
+        fieldByName('filltime').value:=DServerDate;
+        fieldByName('beizhu').value:= trim(beizhu.text);
+        fieldByName('LabelCaption').value:=trim(LabelCaption.text);
+        fieldByName('LabelType').value:=trim(LabelType.text);
+        fieldByName('LabelFileName').value:= trim(LabelFileName.text);
+        //TBlobField(FieldByName('LabelFile')).LoadFromStream(fStream);
+        RMGridReport1.SaveToBlobField(TBlobField(FieldByName('LabelFile')));
+        Post;
+     end;
+     with ADOQueryTmp do
+     begin
+       Close;
+       sql.Clear;
+       sql.Add('select * from P_Label where LabelCaption='''+Trim(LabelCaption.text)+'''');
+       Open;
+     end;
+     if ADOQueryTmp.RecordCount>1 then
+     begin
+       ADOQueryCmd.Connection.RollbackTrans;
+       Result:=False;
+       Application.MessageBox('标签名称重复!','提示',0);
+       Exit;
+     end;
+     
+     ADOQueryCmd.Connection.CommitTrans;
+     result:=true;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Result:=false;
+    application.MessageBox('保存标签模板出错!','警告信息',0);
+  end;
+end;
+
+/////////////////////////////////////////////////////////////////////
+  //函数功能：保存数据
+/////////////////////////////////////////////////////////////////////
+function TfrmLabelAdd.EditData():Boolean;
+begin
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+        close;
+        sql.Clear;
+        sql.Add('select * from P_Label');
+        sql.Add('where labelId='+fkeyNo);
+        Open;
+        Edit;
+        fieldByName('LabelCaption').value:=trim(LabelCaption.text);
+        fieldByName('LabelType').value:=trim(LabelType.text);
+        fieldByName('LabelFileName').value:= trim(LabelFileName.text);
+        RMGridReport1.SaveToBlobField(TBlobField(FieldByName('LabelFile')));
+        fieldByName('Editer').value:=DName;
+        fieldByName('EditTime').value:=DServerDate;
+        fieldByName('beizhu').value:= trim(beizhu.text);
+        Post;
+    end;
+    with ADOQueryTmp do
+     begin
+       Close;
+       sql.Clear;
+       sql.Add('select * from P_Label where LabelCaption='''+Trim(LabelCaption.text)+'''');
+       Open;
+     end;
+     if ADOQueryTmp.RecordCount>1 then
+     begin
+       ADOQueryCmd.Connection.RollbackTrans;
+       Result:=False;
+       Application.MessageBox('标签名称重复!','提示',0);
+       Exit;
+     end;
+     
+     ADOQueryCmd.Connection.CommitTrans;
+    result:=true;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Result:=false;
+    application.MessageBox('保存标签模板出错!','警告信息',0);
+  end;
+end;
+
+procedure TfrmLabelAdd.LabelFileNameBtnClick(Sender: TObject);
+begin
+  if OpenDialog1.Execute() then
+  begin
+    LabelFileName.Text:=OpenDialog1.FileName;
+    LabelCaption.Text:=Trim(ExtractFileName(OpenDialog1.FileName));
+    RMGridReport1.LoadFromFile(LabelFileName.Text);
+    RMGridReport1.Preview :=RMPreview1;
+    RMGridReport1.ShowReport ;
+  end;
+end;
+
+procedure TfrmLabelAdd.BtOpenClick(Sender: TObject);
+begin
+
+
+end;
+////////////////////////////////////////////////////////////
+  //初始化窗口数据
+////////////////////////////////////////////////////////////
+procedure TfrmLabelAdd.InitWinData();
+begin
+  try
+    with ADOQueryTmp do
+    begin
+      close;
+      sql.Clear ;
+      sql.Add('select A.*');
+    //  sql.Add('customNoName=isnull((select customName from BC_customer where customNO=A.customNo),A.customNo)');
+      sql.Add('from P_Label A');
+      sql.Add('WHERE LabelId='+fkeyNo);
+      Open;
+      if isEmpty then
+      begin
+        close;
+        exit;
+      end;
+
+      SSetWinData(ADOQueryTmp,panel1);
+      RMGridReport1.LoadFromBlobField(tblobfield(fieldbyname('labelFile')));
+      RMGridReport2.FileName:=trim(fieldByName('labelFileName').AsString);
+      RMGridReport2.LoadFromBlobField(tblobfield(fieldbyname('labelFile')));
+      RMGridReport1.Preview :=RMPreview1;
+      //RMGridReport1.PrepareReport;
+      RMGridReport1.ShowReport ;
+    end;
+  except
+  end;
+end;
+
+procedure TfrmLabelAdd.FormShow(Sender: TObject);
+begin
+  if fWinStatus>0 then
+    InitWinData();
+end;
+
+procedure TfrmLabelAdd.RMPreview1DblClick(Sender: TObject);
+begin
+  //btOpen.Click ;
+end;
+////////////////////////////////////////////////////////////
+  //
+////////////////////////////////////////////////////////////
+procedure TfrmLabelAdd.InitVarDictionary();
+var
+  i:integer;
+begin
+{  try
+    with RMGridReport2 do
+    begin
+        Dictionary.Variables.Clear ;
+        Dictionary.Variables.AddCategory('客户单位信息');
+        with ADOQueryTmp do
+        begin
+          close;
+          sql.clear;
+          sql.Add('exec P_Label_CustPrintData');
+          sql.Add(quotedStr(fCustomNo));
+          Open;
+          for i:=0 to FieldCount-1 do
+          begin
+
+            Dictionary.Variables.Add(trim(fields[i].FieldName)
+                                ,'');
+            Dictionary.Variables.AsString[trim(fields[i].FieldName)]:=trim(fields[i].AsString);
+          end;
+        end;
+    end;
+  finally
+
+  end;  }
+end;
+/////////////////////////////////////////////////
+  //
+/////////////////////////////////////////////////
+procedure TfrmLabelAdd.InitDataSetDictionary();
+begin
+{  with ADOQuery1 do
+  begin
+    close;
+    sql.Clear ;
+    sql.Add('exec P_Label_PrintSet');
+    sql.Add(quotedStr(''));
+    //sql.Add(','+quotedStr(''));
+    //sql.Add(','+quotedStr(''));
+    //sql.Add(','+quotedStr(''));
+    //sql.Add(','+quotedStr(''));
+    OPen;
+  end;
+  with RMGridReport2 do
+  begin
+    Dictionary.FieldAliases.Clear;
+    Dictionary.FieldAliases['RMDS_Main']:= '标签数据';
+    Dictionary.FieldAliases['RMDS_Main."barcode"']:='标签条码';
+  end;     }
+end;
+
+end.
--- a/产品报价(ProductQuotation)/U_LabelList.dfm
+++ b/产品报价(ProductQuotation)/U_LabelList.dfm
@ -0,0 +1,438 @@
+object frmLabelList: TfrmLabelList
+  Left = 145
+  Top = 10
+  Width = 1057
+  Height = 693
+  BorderIcons = [biMaximize]
+  Caption = #26631#31614#20449#24687
+  Color = clBtnFace
+  Font.Charset = ANSI_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poOwnerFormCenter
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object Panel1: TPanel
+    Left = 12
+    Top = 80
+    Width = 452
+    Height = 561
+    BevelOuter = bvNone
+    TabOrder = 0
+    object Panel2: TPanel
+      Left = 0
+      Top = 3
+      Width = 452
+      Height = 558
+      Align = alClient
+      BevelInner = bvRaised
+      BevelOuter = bvLowered
+      TabOrder = 0
+      object cxGrid1: TcxGrid
+        Left = 2
+        Top = 2
+        Width = 448
+        Height = 554
+        Align = alClient
+        TabOrder = 0
+        object tv1: TcxGridDBTableView
+          OnDblClick = tv1DblClick
+          NavigatorButtons.ConfirmDelete = False
+          OnCellClick = tv1CellClick
+          OnFocusedRecordChanged = tv1FocusedRecordChanged
+          DataController.DataSource = DS_Label
+          DataController.Summary.DefaultGroupSummaryItems = <>
+          DataController.Summary.FooterSummaryItems = <>
+          DataController.Summary.SummaryGroups = <>
+          OptionsCustomize.ColumnFiltering = False
+          OptionsSelection.CellSelect = False
+          OptionsView.GroupByBox = False
+          object tv1labelId: TcxGridDBColumn
+            Caption = #26631#31614'ID'
+            DataBinding.FieldName = 'labelId'
+            Visible = False
+            Width = 53
+          end
+          object tv1labeltype: TcxGridDBColumn
+            Caption = #26631#31614#31867#22411
+            DataBinding.FieldName = 'labeltype'
+            HeaderAlignmentHorz = taCenter
+            HeaderAlignmentVert = vaCenter
+            Width = 107
+          end
+          object tv1labelCaption: TcxGridDBColumn
+            Caption = #26631#31614#21517#31216
+            DataBinding.FieldName = 'labelCaption'
+            HeaderAlignmentHorz = taCenter
+            HeaderAlignmentVert = vaCenter
+            Width = 261
+          end
+          object tv1labelFile: TcxGridDBColumn
+            Caption = #25991#20214#21517
+            DataBinding.FieldName = 'labelFile'
+            Visible = False
+            HeaderAlignmentHorz = taCenter
+            HeaderAlignmentVert = vaCenter
+            Width = 167
+          end
+        end
+        object cxGrid1Level1: TcxGridLevel
+          GridView = tv1
+        end
+      end
+    end
+    object Panel3: TPanel
+      Left = 0
+      Top = 0
+      Width = 452
+      Height = 3
+      Align = alTop
+      Caption = 'Panel3'
+      TabOrder = 1
+      Visible = False
+      object Label1: TLabel
+        Left = 40
+        Top = 13
+        Width = 60
+        Height = 12
+        Caption = #23458#25143#21517#31216#65306
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clBlue
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = []
+        ParentFont = False
+      end
+      object Label2: TLabel
+        Left = 52
+        Top = 35
+        Width = 48
+        Height = 12
+        Caption = #19994#21153#21592#65306
+        Visible = False
+      end
+      object Label4: TLabel
+        Left = 40
+        Top = 61
+        Width = 60
+        Height = 12
+        Caption = #30005#35805#21495#30721#65306
+      end
+      object Label5: TLabel
+        Left = 39
+        Top = 86
+        Width = 60
+        Height = 12
+        Caption = #20844#21496#21517#31216#65306
+      end
+      object Label6: TLabel
+        Left = 14
+        Top = 108
+        Width = 84
+        Height = 12
+        Caption = #20844#21496#33521#25991#21517#31216#65306
+      end
+      object Label7: TLabel
+        Left = 61
+        Top = 133
+        Width = 36
+        Height = 12
+        Caption = #22320#22336#65306
+      end
+      object Label8: TLabel
+        Left = 37
+        Top = 157
+        Width = 60
+        Height = 12
+        Caption = #33521#25991#22320#22336#65306
+      end
+      object Label3: TLabel
+        Left = 61
+        Top = 192
+        Width = 36
+        Height = 12
+        Caption = #22791#27880#65306
+      end
+      object Note: TMemo
+        Left = 120
+        Top = 175
+        Width = 293
+        Height = 63
+        ScrollBars = ssBoth
+        TabOrder = 0
+      end
+      object EngAddress: TEdit
+        Left = 120
+        Top = 151
+        Width = 294
+        Height = 20
+        Enabled = False
+        TabOrder = 1
+      end
+      object ChnAddress: TEdit
+        Left = 120
+        Top = 127
+        Width = 293
+        Height = 20
+        TabOrder = 2
+      end
+      object engFactory: TEdit
+        Left = 119
+        Top = 104
+        Width = 295
+        Height = 20
+        TabOrder = 3
+      end
+      object ChnFactory: TEdit
+        Left = 119
+        Top = 81
+        Width = 294
+        Height = 20
+        TabOrder = 4
+      end
+      object TelePhone: TEdit
+        Left = 119
+        Top = 58
+        Width = 294
+        Height = 20
+        TabOrder = 5
+      end
+      object ywy: TEdit
+        Tag = 99
+        Left = 119
+        Top = 31
+        Width = 295
+        Height = 20
+        ReadOnly = True
+        TabOrder = 6
+        Text = 'ywy'
+        Visible = False
+      end
+      object customNo: TBtnEditA
+        Tag = 1
+        Left = 120
+        Top = 7
+        Width = 295
+        Height = 20
+        Enabled = False
+        ReadOnly = True
+        TabOrder = 7
+        OnBtnClick = customNoBtnClick
+      end
+    end
+  end
+  object RMPreview1: TRMPreview
+    Left = 488
+    Top = 85
+    Width = 553
+    Height = 569
+    Align = alRight
+    BevelOuter = bvLowered
+    Caption = 'Insert After'
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    ParentFont = False
+    ParentShowHint = False
+    ShowHint = False
+    TabOrder = 1
+    OnDblClick = RMPreview1DblClick
+    Options.RulerUnit = rmutScreenPixels
+    Options.RulerVisible = False
+    Options.DrawBorder = False
+    Options.BorderPen.Color = clGray
+    Options.BorderPen.Style = psDash
+  end
+  object ToolBar2: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1041
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar2'
+    Color = clBtnFace
+    Flat = True
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 2
+    Transparent = False
+    object ToolButton1: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = ToolButton1Click
+    end
+    object TOK: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #30830#23450
+      ImageIndex = 10
+      OnClick = TOkClick
+    end
+    object Tadd: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686#26631#31614
+      ImageIndex = 1
+      OnClick = TaddClick
+    end
+    object Tupd: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913#26631#31614
+      ImageIndex = 11
+      OnClick = TupdClick
+    end
+    object Tdel: TToolButton
+      Left = 300
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500#26631#31614
+      ImageIndex = 3
+      OnClick = TdelClick
+    end
+    object Tclose: TToolButton
+      Left = 387
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TcloseClick
+    end
+  end
+  object Panel4: TPanel
+    Left = 0
+    Top = 32
+    Width = 1041
+    Height = 53
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 3
+    object Label9: TLabel
+      Left = 36
+      Top = 20
+      Width = 48
+      Height = 12
+      Caption = #26631#31614#31867#22411
+    end
+    object Label10: TLabel
+      Left = 280
+      Top = 20
+      Width = 48
+      Height = 12
+      Caption = #26631#31614#26631#39064
+    end
+    object LabelCaption: TEdit
+      Left = 332
+      Top = 16
+      Width = 100
+      Height = 20
+      TabOrder = 0
+      OnChange = LabelTypeChange
+    end
+    object LabelType: TFTComboBox
+      Tag = 99
+      Left = 88
+      Top = 17
+      Width = 100
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      ItemIndex = 0
+      TabOrder = 1
+      OnChange = LabelTypeChange
+      Items.Strings = (
+        ''
+        #20013#25991#26631#31614
+        #33521#25991#26631#31614
+        #20013#33521#25991#26631#31614)
+    end
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    CommandTimeout = 300
+    Parameters = <>
+    Left = 508
+    Top = 208
+  end
+  object OpenDialog1: TOpenDialog
+    Filter = 'RMFl(*.rmf)|*.rmf'
+    InitialDir = '.'
+    Left = 316
+    Top = 148
+  end
+  object RMGridReport1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    ModalPreview = False
+    ShowProgress = False
+    DefaultCollate = False
+    ShowPrintDialog = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    Preview = RMPreview1
+    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 = 436
+    Top = 152
+    ReportData = {}
+  end
+  object ADOQueryTmp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    CommandTimeout = 300
+    Parameters = <>
+    Left = 528
+    Top = 184
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 392
+    Top = 228
+  end
+  object DS_Label: TDataSource
+    DataSet = ADOQueryLabel
+    Left = 66
+    Top = 456
+  end
+  object ADOQueryLabel10: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    CommandTimeout = 300
+    Parameters = <>
+    Left = 234
+    Top = 296
+  end
+  object ADOQueryLabel: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 156
+    Top = 267
+  end
+end
--- a/产品报价(ProductQuotation)/U_LabelList.pas
+++ b/产品报价(ProductQuotation)/U_LabelList.pas
@ -0,0 +1,591 @@
+unit U_LabelList;
+
+interface
+
+uses                                
+  Windows, Messages, SysUtils, StrUtils,Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ComCtrls, ToolWin, StdCtrls, BtnEdit, ExtCtrls, DB, ADODB,
+  RM_System, RM_Common, RM_Class, RM_GridReport, Buttons, FTComboBox,
+  RM_Preview, RM_e_Xls, RM_e_Graphic, RM_e_bmp, RM_BarCode,
+  RM_DsgGridReport, RM_Dataset, cxStyles, cxCustomData, cxGraphics,
+  cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, cxGridLevel,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxClasses,
+  cxControls, cxGridCustomView, cxGrid, DBClient;
+
+type
+  TfrmLabelList = class(TForm)
+    Panel1: TPanel;
+    ADOQueryCmd: TADOQuery;
+    OpenDialog1: TOpenDialog;
+    RMGridReport1: TRMGridReport;
+    ADOQueryTmp: TADOQuery;
+    RMPreview1: TRMPreview;
+    ADOQuery1: TADOQuery;
+    Panel2: TPanel;
+    cxGrid1: TcxGrid;
+    tv1: TcxGridDBTableView;
+    tv1labeltype: TcxGridDBColumn;
+    tv1labelCaption: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    tv1labelFile: TcxGridDBColumn;
+    DS_Label: TDataSource;
+    ADOQueryLabel10: TADOQuery;
+    Panel3: TPanel;
+    Note: TMemo;
+    EngAddress: TEdit;
+    ChnAddress: TEdit;
+    engFactory: TEdit;
+    ChnFactory: TEdit;
+    TelePhone: TEdit;
+    ywy: TEdit;
+    customNo: TBtnEditA;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    Label6: TLabel;
+    Label7: TLabel;
+    Label8: TLabel;
+    Label3: TLabel;
+    tv1labelId: TcxGridDBColumn;
+    ToolBar2: TToolBar;
+    Tadd: TToolButton;
+    Tupd: TToolButton;
+    Tdel: TToolButton;
+    TOK: TToolButton;
+    Tclose: TToolButton;
+    Panel4: TPanel;
+    ToolButton1: TToolButton;
+    Label9: TLabel;
+    Label10: TLabel;
+    LabelCaption: TEdit;
+    LabelType: TFTComboBox;
+    ADOQueryLabel: TClientDataSet;
+    procedure TcloseClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure TsaveClick(Sender: TObject);
+    procedure customNoBtnClick(Sender: TObject);
+    procedure BtOpenClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure RMPreview1DblClick(Sender: TObject);
+    procedure TaddClick(Sender: TObject);
+    procedure TupdClick(Sender: TObject);
+    procedure tv1FocusedRecordChanged(Sender: TcxCustomGridTableView;
+      APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord;
+      ANewItemRecordFocusingChanged: Boolean);
+    procedure TdelClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormDestroy(Sender: TObject);
+    procedure TOkClick(Sender: TObject);
+    procedure tv1DblClick(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure LabelTypeChange(Sender: TObject);
+    procedure tv1CellClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+  private
+    isLoad:Boolean;
+    function SaveData():Boolean;
+    function EditData():Boolean;
+    function IsCheckCustOk():Boolean;
+    function DeleteData():Boolean;
+    procedure InitWinData();
+    procedure InitVarDictionary();
+    procedure InitDataSetDictionary();
+    procedure InitGrid();
+    procedure OpenLabel();
+    procedure SetWinStatus();
+    procedure DoFilter();
+  public
+    fSelLabelId,LBName,LBInt,SLBName:String;
+    fKeyNo:string;
+    fchg:Boolean;
+    fIsShowModal:Boolean;
+    fWinStatus:integer;
+  end;
+
+var
+  frmLabelList: TfrmLabelList;
+
+implementation
+uses
+  U_DataLink, U_LabelAdd,U_RTFun;
+{$R *.dfm}
+procedure TfrmLabelList.DoFilter();
+var
+  filterStr:string;
+begin
+  filterStr:='';
+
+  if trim(LabelType.Text) <>'' then
+  begin
+    filterStr:=' and LabelType like '+quotedStr('%'+trim(LabelType.Text)+'%');
+  end;
+  //名称
+  if trim(LabelCaption.Text)<>'' then
+  begin
+    filterStr:=filterStr+' and LabelCaption like '+quotedStr('%'+trim(LabelCaption.Text)+'%');
+  end;
+  try
+    ADOQueryLabel10.DisableControls ;
+    if trim(filterStr)='' then
+    begin
+      ADOQueryLabel.Filtered:=false;
+      ADOQueryLabel.EnableControls;
+      exit;
+    end;
+    filterStr:=trim(RightBStr(filterStr,length(filterStr)-4));
+    with ADOQueryLabel do
+    begin
+      filtered:=false;
+      filter:=filterStr;
+      filtered:=true;
+    end;
+    SCreateCDS20(ADOQueryLabel10,ADOQueryLabel);
+    SInitCDSData20(ADOQueryLabel10,ADOQueryLabel);
+  finally
+    ADOQueryLabel10.EnableControls;
+  end;
+end;
+procedure TfrmLabelList.TcloseClick(Sender: TObject);
+begin
+  close;
+end;
+
+procedure TfrmLabelList.FormCreate(Sender: TObject);
+begin
+  panel1.Align :=alClient;
+ // ClearWinData(panel3);
+  fSelLabelId := '';
+
+
+
+end;
+
+procedure TfrmLabelList.TsaveClick(Sender: TObject);
+begin
+  if trim(customNO.Text)='' then
+  begin
+    application.MessageBox('客户名称不能为空,请选择客户！','提示');
+    customNo.SetFocus;
+    exit;
+  end;
+  if application.MessageBox('确定要保存吗?','提示信息',1)=2 then exit; 
+  if fWinStatus=0 then
+  begin
+    if not IsCheckCustOk() then exit;
+    if SaveData() then
+    begin
+      fWinStatus:=1;
+      fchg:=true;
+      SetWinStatus();
+    end;
+  end
+  else
+  begin
+    if EditData() then
+    begin
+      fchg:=true;
+      application.MessageBox('保存成功!','提示信息',0) 
+    end;
+  end;
+end;
+/////////////////////////////////////////////////////////////////////
+  //函数功能：保存数据
+/////////////////////////////////////////////////////////////////////
+function TfrmLabelList.SaveData():Boolean;
+begin
+  try
+     with ADOQueryCmd do
+     begin
+        close;
+        sql.Clear;
+        sql.Add('select * from JD_Label');
+        sql.Add('where 1<>1');
+        Open;
+
+        Append;
+        fieldByName('customno').value:=trim(customno.txtCode);
+        fieldByName('ChnFactory').value:=trim(ChnFactory.text);
+        fieldByName('engFactory').value:=trim(engFactory.text);
+        fieldByName('TelePhone').value:=trim(TelePhone.text);
+        fieldByName('ChnAddress').value:=trim(ChnAddress.text);
+        fieldByName('EngAddress').value:=trim(EngAddress.text);
+        fieldByName('filler').value:=Dname;
+        fieldByName('filltime').value:=DServerDate;
+        fieldByName('note').value:= trim(Note.text);
+        Post;
+    end;
+    result:=true;
+  except
+    Result:=false;
+    application.MessageBox('保存标签模板出错!','警告信息',0);
+  end;
+end;
+
+/////////////////////////////////////////////////////////////////////
+  //函数功能：保存数据
+/////////////////////////////////////////////////////////////////////
+function TfrmLabelList.EditData():Boolean;
+begin
+  try
+     with ADOQueryCmd do
+     begin
+        close;
+        sql.Clear;
+        sql.Add('select * from JD_Label');
+        sql.Add('where customNo='+fKeyNo);
+        Open;
+
+        Edit;
+        fieldByName('customno').value:=trim(customno.txtCode);
+        fieldByName('ChnFactory').value:=trim(ChnFactory.text);
+        fieldByName('engFactory').value:=trim(engFactory.text);
+        fieldByName('TelePhone').value:=trim(TelePhone.text);
+        fieldByName('ChnAddress').value:=trim(ChnAddress.text);
+        fieldByName('EngAddress').value:=trim(EngAddress.text);
+        fieldByName('note').value:= trim(Note.text);
+        Post;
+    end;
+    result:=true;
+  except
+    Result:=false;
+    application.MessageBox('保存标签模板出错!','警告信息',0);
+  end;
+end;
+
+procedure TfrmLabelList.customNoBtnClick(Sender: TObject);
+ begin
+ { FormGetCust:=TFormGetCust.Create(self);
+
+  if FormGetCust.ShowModal=mrok then
+  begin
+    customNo.TxtCode:=trim(FormGetCust.ADOQuery1.Fieldbyname('customno').AsString);
+    customNo.Text:=trim(FormGetCust.ADOQuery1.Fieldbyname('shortname').AsString);
+  end;
+  FormGetCust.Free;                         }
+{  frmCustHelp:=TfrmCustHelp.create(self);
+  with frmCustHelp do
+  begin
+    if showModal=1 then
+    begin
+      customNo.TxtCode:=trim(ADOQueryHelp.Fieldbyname('customno').AsString);
+      customNo.Text:=trim(ADOQueryHelp.Fieldbyname('shortname').AsString);
+    end;
+    free;
+  end;
+ }
+end;
+
+procedure TfrmLabelList.BtOpenClick(Sender: TObject);
+begin
+
+end;
+////////////////////////////////////////////////////////////
+  //初始化窗口数据
+////////////////////////////////////////////////////////////
+procedure TfrmLabelList.InitWinData();
+begin
+  try
+    with ADOQueryTmp do
+    begin
+      close;
+      sql.Clear ;
+      sql.Add('select A.* ,B.customName as customNoName');
+      sql.Add('from JD_Label A');
+      sql.Add('INNER JOIN BC_customer B ON A.customNO=B.customNo');
+      sql.Add('WHERE B.customNo='''+fkeyNo+'''');
+      Open;
+      if isEmpty then
+      begin
+        close;
+        exit;
+      end;
+
+     // SetWinData(ADOQueryTmp,panel3);
+      {
+      RMGridReport1.LoadFromBlobField(tblobfield(fieldbyname('labelFile')));
+      RMGridReport1.Preview :=RMPreview1;
+      RMGridReport1.PrepareReport;
+      RMGridReport1.ShowReport ;
+      }
+    end;
+  except
+  end;
+end;
+
+procedure TfrmLabelList.FormShow(Sender: TObject);
+begin
+  if fWinStatus=1 then tok.Visible:=false;
+  InitGrid();
+  if Trim(SLBName)<>'' then
+  begin
+    ADOQueryLabel.Locate('labelCaption',SLBName,[]);
+  end;
+end;
+
+procedure TfrmLabelList.RMPreview1DblClick(Sender: TObject);
+begin
+  //btOpen.Click ;
+end;
+////////////////////////////////////////////////////////////
+  //
+////////////////////////////////////////////////////////////
+procedure TfrmLabelList.InitVarDictionary();
+var
+  TmpList:Tstrings;
+  mm:string;
+  i:integer;
+begin
+  try
+    TmpList:=TstringList.Create();
+    with ADOQueryTmp do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('select distinct ItemType from JC_LabelSetItems ');
+      sql.Add('where valid=''Y''');
+      Open;
+      TmpList.Clear ;
+      while not Eof do
+      begin
+        TmpList.Add(trim(fieldByName('ItemType').AsString));
+        Next;
+      end;
+    end;
+  finally
+    TmpList.Free ;
+  end;
+end;
+/////////////////////////////////////////////////
+  //
+/////////////////////////////////////////////////
+procedure TfrmLabelList.InitDataSetDictionary();
+begin
+{  with ADOQuery1 do
+  begin
+    close;
+    sql.Clear ;
+    sql.Add('exec P_Get_LabelPrintData');
+    sql.Add(quotedStr(''));
+    sql.Add(','+quotedStr(''));
+    sql.Add(','+quotedStr(''));
+    OPen;
+  end; }
+end;
+
+procedure TfrmLabelList.TaddClick(Sender: TObject);
+begin
+  try
+    frmLabelAdd:=TfrmLabelAdd.create(self);
+    with frmLabelAdd do
+    begin
+      if showModal =1 then
+      begin
+        fchg:=true;
+        InitGrid();
+      end;
+    end;
+  finally
+    frmLabelAdd.Free;
+  end;
+end;
+
+procedure TfrmLabelList.TupdClick(Sender: TObject);
+begin
+  if ADOQueryLabel.IsEmpty then exit;
+  try
+    frmLabelAdd:=TfrmLabelAdd.create(self);
+    with frmLabelAdd do
+    begin
+      fKeyNo:=ADOQueryLabel.fieldByName('LabelId').AsString ;
+      fWinstatus:=1;
+      if showModal =1 then
+      begin
+        fchg:=true;
+        InitGrid();
+      end;
+    end;
+  finally
+    frmLabelAdd.Free;
+  end;
+
+end;
+/////////////////////////////////////////////
+  //
+/////////////////////////////////////////////
+procedure TfrmLabelList.InitGrid();
+begin
+  try
+    isLoad:=false;
+    ADOQueryLabel10.DisableControls ;
+    with ADOQueryLabel10 do
+    begin
+      close;
+      sql.Clear ;
+      sql.Add('select * from P_Label');
+      sql.Add('where valid=''Y''');
+      sql.Add(' order by labelCaption');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryLabel10,ADOQueryLabel);
+    SInitCDSData20(ADOQueryLabel10,ADOQueryLabel);
+  finally
+    ADOQueryLabel10.EnableControls;
+    isLoad:=true;
+    //DoFilter();
+    //OpenLabel();
+  end;
+end;
+////////////////////////////////////////////////////////
+  //函数功能：打开标签文件
+////////////////////////////////////////////////////////
+procedure TfrmLabelList.OpenLabel();
+begin
+  if ADOQueryLabel.IsEmpty then exit;
+  with RMGridReport1 do
+  begin
+    LoadFromBlobField(tblobfield(ADOQueryLabel.fieldbyname('labelFile')));
+    //Preview :=RMPreview1;
+    ShowReport ;
+  end;
+end;
+procedure TfrmLabelList.tv1FocusedRecordChanged(
+  Sender: TcxCustomGridTableView; APrevFocusedRecord,
+  AFocusedRecord: TcxCustomGridRecord;
+  ANewItemRecordFocusingChanged: Boolean);
+begin
+  
+end;
+//////////////////////////////////////////////////////////
+  //函数功能：检查该客户的标签是否已存在
+/////////////////////////////////////////////////////////
+function TfrmLabelList.IsCheckCustOk():Boolean;
+begin
+  try
+    with ADOQueryTmp do
+    begin
+      close;
+      sql.Clear ;
+      sql.Add('select count(customNO)as cnt from P_Label');
+      sql.Add('where customNO='''+trim(customNO.TxtCode)+'''');
+      Open;
+
+      if fieldByName('cnt').AsInteger>0 then
+      begin
+        Result:=false ;
+        application.MessageBox('该客户标签信息已存!','警告信息',0);
+      end
+      else
+        Result:=true;
+    end;
+  except
+    result:=false;
+    application.MessageBox('检查该客户标签信息是否已存在时发生错误!','警告信息',0);
+  end;
+end;
+/////////////////////////////////////////////////////////////
+  //
+/////////////////////////////////////////////////////////////
+function TfrmLabelList.DeleteData():Boolean;
+begin
+  try
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.clear;
+      sql.Add('delete P_Label');
+      sql.Add('where labelId='+ADOQueryLabel.fieldByName('LabelID').asString);
+      execSql;
+    end;
+    result:=true;
+  except
+    result:=false;
+    application.MessageBox('删除失败!','警告信息',0);
+  end;
+end;
+procedure TfrmLabelList.TdelClick(Sender: TObject);
+begin
+  if ADOQueryLabel.IsEmpty then exit;
+  if application.MessageBox('确定要删除此标签吗？','警告信息',1)=2 then exit;
+  if  DeleteData() then
+  begin
+    fchg:=true;
+    InitGrid();
+  end;
+end;
+//////////////////////////////////////////////////////////
+  //
+/////////////////////////////////////////////////////////
+procedure TfrmLabelList.SetWinStatus();
+begin
+  case fWinStatus of
+    0:
+      begin
+     //   ToolBar2.Visible :=false;
+       // tsave.Visible :=true;
+        customNo.Enabled :=true;
+        panel3.Enabled :=true;
+      end;
+    1:
+      begin
+    //    ToolBar2.Visible :=true;
+      //  tsave.Visible :=false;
+        customNo.Enabled :=false;
+        panel3.Enabled :=false;
+        TOK.Visible:=false;
+      end;
+    5:
+      begin
+     //   ToolBar2.Visible :=false;
+      //  tsave.Visible :=false;
+        panel1.Enabled :=false;
+        panel3.Enabled :=false;
+      end;
+  end ;
+end;
+
+procedure TfrmLabelList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  {if fIsShowModal then
+    Application:=MainApplication ; }
+  Action:=caFree;
+end;
+
+procedure TfrmLabelList.FormDestroy(Sender: TObject);
+begin
+  frmLabelList:=nil;
+end;
+
+procedure TfrmLabelList.TOkClick(Sender: TObject);
+begin
+  if ADOQueryLabel.IsEmpty then exit;
+  LBName:=Trim(ADOQueryLabel.fieldbyname('labelCaption').AsString);
+  ModalResult:=1;
+end;
+
+procedure TfrmLabelList.tv1DblClick(Sender: TObject);
+begin
+  TOk.Click ;
+end;
+
+procedure TfrmLabelList.ToolButton1Click(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmLabelList.LabelTypeChange(Sender: TObject);
+begin
+  DoFilter();
+end;
+
+procedure TfrmLabelList.tv1CellClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  if isLoad then
+    OpenLabel();
+end;
+
+end.
--- a/产品报价(ProductQuotation)/U_ModuleNote.dfm
+++ b/产品报价(ProductQuotation)/U_ModuleNote.dfm
@ -0,0 +1,181 @@
+object frmModuleNote: TfrmModuleNote
+  Left = 326
+  Top = 178
+  Width = 729
+  Height = 528
+  Align = alClient
+  Caption = #25805#20316#35828#26126
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 73
+    Width = 713
+    Height = 416
+    Align = alClient
+    TabOrder = 0
+    object TV1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      OnCellDblClick = TV1CellDblClick
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsSelection.CellSelect = False
+      OptionsView.GroupByBox = False
+      object V1OrderNo: TcxGridDBColumn
+        Caption = #26085#26399
+        DataBinding.FieldName = 'MNDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.ImmediatePost = True
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 117
+      end
+      object V1Name: TcxGridDBColumn
+        Tag = 2
+        Caption = #25805#20316#35828#26126
+        DataBinding.FieldName = 'MNNOte'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = V1NamePropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 513
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = TV1
+    end
+  end
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 713
+    Height = 29
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 1
+    object ToolButton1: TToolButton
+      Left = 0
+      Top = 0
+      Caption = #36873#25321
+      ImageIndex = 10
+      OnClick = ToolButton1Click
+    end
+    object TBAdd: TToolButton
+      Left = 59
+      Top = 0
+      Caption = #22686#34892
+      ImageIndex = 12
+      OnClick = TBAddClick
+    end
+    object TBDel: TToolButton
+      Left = 118
+      Top = 0
+      Caption = #21024#34892
+      ImageIndex = 13
+      OnClick = TBDelClick
+    end
+    object TBEdit: TToolButton
+      Left = 177
+      Top = 0
+      Caption = #20462#25913
+      ImageIndex = 11
+      OnClick = TBEditClick
+    end
+    object TBClose: TToolButton
+      Left = 236
+      Top = 0
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 29
+    Width = 713
+    Height = 44
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 2
+    object Label2: TLabel
+      Left = -31
+      Top = 13
+      Width = 360
+      Height = 16
+      Caption = '      '#27880#65306#28966#28857#31163#24320#24403#21069#32534#36753#21333#20803#26684#20445#23384#25968#25454#12290
+      Color = clBtnFace
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentColor = False
+      ParentFont = False
+    end
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 48
+    Top = 136
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 80
+    Top = 144
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 112
+    Top = 152
+  end
+  object DataSource1: TDataSource
+    DataSet = ClientDataSet1
+    Left = 280
+    Top = 144
+  end
+  object ClientDataSet1: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 208
+    Top = 144
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 168
+    Top = 152
+  end
+end
--- a/产品报价(ProductQuotation)/U_ModuleNote.pas
+++ b/产品报价(ProductQuotation)/U_ModuleNote.pas
@ -0,0 +1,220 @@
+unit U_ModuleNote;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, ToolWin, ComCtrls,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
+  cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList,
+  StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu,
+  cxTimeEdit, cxCalendar;
+
+type
+  TfrmModuleNote = class(TForm)
+    TV1: TcxGridDBTableView;
+    cxGrid1Level1: TcxGridLevel;
+    cxGrid1: TcxGrid;
+    V1Name: TcxGridDBColumn;
+    ToolBar1: TToolBar;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    DataSource1: TDataSource;
+    ClientDataSet1: TClientDataSet;
+    TBAdd: TToolButton;
+    TBDel: TToolButton;
+    TBClose: TToolButton;
+    ToolButton1: TToolButton;
+    TBEdit: TToolButton;
+    V1OrderNo: TcxGridDBColumn;
+    Panel1: TPanel;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    Label2: TLabel;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBAddClick(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure TBEditClick(Sender: TObject);
+    procedure TV1CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure V1NamePropertiesEditValueChanged(Sender: TObject);
+  private
+    procedure InitGrid();
+    { Private declarations }
+  public
+    flag:string;
+    { Public declarations }
+  end;
+
+var
+  frmModuleNote: TfrmModuleNote;
+
+implementation
+uses
+  U_DataLink,U_RTFun;
+
+{$R *.dfm}
+
+procedure TfrmModuleNote.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmModuleNote.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from SY_Module_Note A where A.MNType='''+flag+'''');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,ClientDataSet1);
+    SInitCDSData20(ADOQueryMain,ClientDataSet1);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+procedure TfrmModuleNote.TBAddClick(Sender: TObject);
+begin
+  TV1.OptionsData.Editing:=True;
+  TV1.OptionsSelection.CellSelect:=True;
+  with ClientDataSet1 do
+  begin
+    Append;
+    FieldByName('MNDate').Value:=Now;
+    Post;
+  end;
+
+end;
+procedure TfrmModuleNote.TBDelClick(Sender: TObject);
+begin
+  if ClientDataSet1.IsEmpty then Exit;
+  if (Trim(ClientDataSet1.FieldByName('MNID').AsString)<>'') then
+  begin
+    if application.MessageBox('确定要删除吗?','提示信息',1)=2 then exit;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete SY_Module_Note where MNID='''+Trim(ClientDataSet1.fieldbyname('MNID').AsString)+'''');
+      ExecSQL;
+    end;
+  end;
+  ClientDataSet1.Delete;
+end;
+
+procedure TfrmModuleNote.TBCloseClick(Sender: TObject);
+begin
+  ModalResult:=2;
+  WriteCxGrid('自定义'+Trim(flag),TV1,'模块说明');
+  Close;
+end;
+
+procedure TfrmModuleNote.FormShow(Sender: TObject);
+var
+  fsj,fsj1:string;
+begin
+  InitGrid();
+  ReadCxGrid('自定义'+Trim(flag),TV1,'模块说明');
+  frmModuleNote.Caption:=Trim(flag);
+end;
+
+procedure TfrmModuleNote.ToolButton1Click(Sender: TObject);
+begin
+  WriteCxGrid('自定义'+Trim(flag),TV1,'模块说明');
+  ModalResult:=1;
+end;
+
+procedure TfrmModuleNote.TBEditClick(Sender: TObject);
+begin
+  TV1.OptionsData.Editing:=True;
+  TV1.OptionsSelection.CellSelect:=True;
+end;
+
+procedure TfrmModuleNote.TV1CellDblClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  if TV1.OptionsData.Editing=False then
+  begin
+    ModalResult:=1;
+  end;
+end;
+
+procedure TfrmModuleNote.V1NamePropertiesEditValueChanged(Sender: TObject);
+var
+  maxno,mvalue:string;
+begin
+  mvalue:=TcxTextEdit(Sender).EditingText;
+  if Trim(mvalue)='' then
+  begin
+    //Application.MessageBox('名称不能为空！','提示',0);
+    Exit;
+  end;
+  with ClientDataSet1 do
+  begin
+    Edit;
+    FieldByName('MNNote').Value:=Trim(mvalue);
+    //Post;
+  end;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    if Trim(ClientDataSet1.FieldByName('MNID').AsString)='' then
+    begin
+      if GetLSNo(ADOQueryCmd,maxno,'SY','SY_Module_Note',3,1)=False then
+      begin
+        ADOQueryCmd.Connection.RollbackTrans;
+        //ClientDataSet1.EnableControls;
+        Application.MessageBox('取最大编号失败！','提示',0);
+        Exit;
+      end;
+    end else
+    begin
+      maxno:=Trim(ClientDataSet1.fieldbyname('MNID').AsString);
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.add('select * from SY_Module_Note ');
+      sql.Add(' where MNID='''+Trim(ClientDataSet1.fieldbyname('MNID').AsString)+'''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if Trim(ClientDataSet1.fieldbyname('MNID').AsString)='' then
+      begin
+        Append;
+        FieldByName('Filler').Value:=Trim(DName);
+        FieldByName('FillTime').Value:=Now;
+      end
+      else begin
+        Edit;
+        FieldByName('Editer').Value:=Trim(DName);
+        FieldByName('EditTime').Value:=Now;
+      end;
+      FieldByName('MNDate').Value:=ClientDataSet1.fieldbyname('MNDate').Value;
+      FieldByName('MNID').Value:=Trim(maxno);
+      FieldByName('MNNote').Value:=ClientDataSet1.fieldbyname('MNNote').AsString;
+      FieldByName('MNType').Value:=flag;
+      Post;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    ClientDataSet1.Edit;
+    ClientDataSet1.FieldByName('MNID').Value:=Trim(maxno);
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！','提示',0);
+  end;
+end;
+
+end.
--- a/产品报价(ProductQuotation)/U_ModulePromptList.dfm
+++ b/产品报价(ProductQuotation)/U_ModulePromptList.dfm
@ -0,0 +1,342 @@
+object frmModulePromptList: TfrmModulePromptList
+  Left = 131
+  Top = 161
+  Width = 1133
+  Height = 547
+  Caption = #25105#30340#31649#23478
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1117
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object TBClose: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1117
+    Height = 66
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 75
+      Top = 11
+      Width = 84
+      Height = 12
+      Caption = #38144#21806#21512#21516#26410#23457#26680
+    end
+    object Label2: TLabel
+      Left = 48
+      Top = 8
+      Width = 27
+      Height = 16
+      Caption = 'aa:'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 242
+      Top = 11
+      Width = 96
+      Height = 12
+      Caption = #29983#20135#25351#31034#21333#26410#23457#26680
+    end
+    object Label4: TLabel
+      Left = 215
+      Top = 8
+      Width = 27
+      Height = 16
+      Caption = 'bb:'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 457
+      Top = 11
+      Width = 120
+      Height = 12
+      Caption = #29983#20135#25351#31034#21333#24037#24207#26410#23450#20041
+    end
+    object Label6: TLabel
+      Left = 428
+      Top = 8
+      Width = 27
+      Height = 16
+      Caption = 'cc:'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label7: TLabel
+      Left = 75
+      Top = 40
+      Width = 120
+      Height = 12
+      Caption = #29983#20135#25351#31034#21333#24037#24207#26410#23433#25490
+    end
+    object Label8: TLabel
+      Left = 48
+      Top = 37
+      Width = 27
+      Height = 16
+      Caption = 'dd:'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label9: TLabel
+      Left = 241
+      Top = 40
+      Width = 168
+      Height = 12
+      Caption = #29983#20135#25351#31034#21333#37319#36141#21152#24037#21512#21516#26410#24405#20837
+    end
+    object Label10: TLabel
+      Left = 214
+      Top = 37
+      Width = 27
+      Height = 16
+      Caption = 'ee:'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label11: TLabel
+      Left = 456
+      Top = 40
+      Width = 108
+      Height = 12
+      Caption = #29983#20135#25351#31034#21333#29983#20135#36229#26399
+    end
+    object Label12: TLabel
+      Left = 428
+      Top = 37
+      Width = 27
+      Height = 16
+      Caption = 'ff:'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label13: TLabel
+      Left = 627
+      Top = 11
+      Width = 84
+      Height = 12
+      Caption = #26597'  '#35810'  '#26465'  '#20214
+    end
+    object ModuleNote: TEdit
+      Tag = 2
+      Left = 608
+      Top = 36
+      Width = 121
+      Height = 20
+      TabOrder = 0
+      OnChange = ModuleNoteChange
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 98
+    Width = 1117
+    Height = 410
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      OnCellDblClick = Tv1CellDblClick
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        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 = skCount
+          Column = v1Column5
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      object v1Column5: TcxGridDBColumn
+        Caption = #24453#22788#29702#20107#39033
+        DataBinding.FieldName = 'ModuleNote'
+        HeaderAlignmentHorz = taCenter
+        Styles.Footer = DataLink_DDMD.FoneRed
+        Width = 843
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 1128
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 936
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1000
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1040
+    Top = 8
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 1168
+    Top = 8
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 815
+    Top = 7
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDBMain
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 475
+    Top = 193
+    ReportData = {}
+  end
+  object RMDBMain: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_PRT
+    Left = 400
+    Top = 192
+  end
+  object RMXLSExport1: TRMXLSExport
+    ShowAfterExport = True
+    ExportPrecision = 1
+    PagesOfSheet = 1
+    ExportImages = True
+    ExportFrames = True
+    ExportImageFormat = ifBMP
+    JPEGQuality = 0
+    ScaleX = 1.000000000000000000
+    ScaleY = 1.000000000000000000
+    CompressFile = False
+    Left = 440
+    Top = 192
+  end
+  object CDS_PRT: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 877
+    Top = 9
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 506
+    Top = 195
+  end
+end
--- a/产品报价(ProductQuotation)/U_ModulePromptList.pas
+++ b/产品报价(ProductQuotation)/U_ModulePromptList.pas
@ -0,0 +1,257 @@
+unit U_ModulePromptList;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
+  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter,
+  RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport,
+  cxTextEdit, cxPC;
+
+type
+  TfrmModulePromptList = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    Order_Main: TClientDataSet;
+    RM1: TRMGridReport;
+    RMDBMain: TRMDBDataSet;
+    RMXLSExport1: TRMXLSExport;
+    CDS_PRT: TClientDataSet;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column5: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    Label6: TLabel;
+    Label7: TLabel;
+    Label8: TLabel;
+    Label9: TLabel;
+    Label10: TLabel;
+    Label11: TLabel;
+    Label12: TLabel;
+    ModuleNote: TEdit;
+    Label13: TLabel;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure cxPageControl1Change(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure Tv1CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure ModuleNoteChange(Sender: TObject);
+  private
+    FormID,FormType:Integer;
+    canshu1,canshu2:string;
+    formFile,FormPara,Formname,FFormPara:string;
+    FormPara1,FormPara2,FormPara3,FormPara4,FormPara5:string;
+    FormPara6,FormPara7,FormPara8,FormPara9,FormPara10:string;
+    procedure InitGrid();
+    procedure InitForm();
+    procedure InitDllEvt(FromFile:String;FormID:Integer;Para:String;FormType:Integer; Title: String;
+                              Def1: String; Def2: String; Def3: String; Def4: String; Def5: String;
+                              Def6: String; Def7: String; Def8: String; Def9: String; Def10: string);
+
+
+
+    { Private declarations }
+  public
+    { Public declarations }
+    userID,username,ADOConnString:string;
+  end;
+
+var
+  frmModulePromptList: TfrmModulePromptList;
+
+implementation
+uses
+  U_DataLink,U_RTFun;
+type
+	TMyF = function(
+		App: TApplication; //主应用程序 (对Delphi而言)
+		FormH: HWND;       //创建窗口的父窗口句柄 (对PB而言)
+		FormID: Integer;   //要调用dll中功能窗体的Id号; 如果只有一个功能窗口，FormID默认为0
+		Language: Integer; //0=Delphi; 1=PB
+		WinStyle: Integer; //0=子窗口; 1：普通窗口 (PB中都为普通窗口)
+		UID: PChar;        //用户Id
+		UName: PChar;      //用户名
+		Para: PChar;
+		Title: PChar;
+    Defstr1: PChar;
+    Defstr2: PChar;
+    Defstr3: PChar;
+    Defstr4: PChar;
+    Defstr5: PChar;
+    Defstr6: PChar;
+    Defstr7: PChar;
+    Defstr8: PChar;
+    Defstr9: PChar;
+    Defstr10: PChar;
+    Datalink: PChar
+	): HWND; stdcall;
+var
+	TP: FARPROC;
+	Tf: TMyF;
+{$R *.dfm}
+
+procedure TfrmModulePromptList.FormDestroy(Sender: TObject);
+begin
+  frmModulePromptList:=nil;
+end;
+
+procedure TfrmModulePromptList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmModulePromptList.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('工作列表',Tv1,'我的管家');
+end;
+
+procedure TfrmModulePromptList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Close;
+      sql.Clear;
+      SQL.Add(' exec P_Chk_Tishi :DName,:DCode');
+      Parameters.ParamByName('DName').Value:=Trim(DName);
+      Parameters.ParamByName('DCode').Value:=Trim(DCode);
+      ExecSQL;
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+
+end;
+
+procedure TfrmModulePromptList.InitForm();
+begin
+  FFormPara:=Trim(DConString);
+  ReadCxGrid('工作列表',Tv1,'我的管家');
+  InitGrid();
+end;
+
+procedure TfrmModulePromptList.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+procedure TfrmModulePromptList.FormShow(Sender: TObject);
+begin
+  InitForm();
+end;
+
+procedure TfrmModulePromptList.cxPageControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmModulePromptList.FormCreate(Sender: TObject);
+begin
+  canshu1:=Trim(DParameters1);
+  canshu2:=Trim(DParameters2);
+end;
+procedure TfrmModulePromptList.InitDllEvt(FromFile:String;FormID:Integer;Para:String;FormType:Integer; Title: String;
+                              Def1: String; Def2: String; Def3: String; Def4: String; Def5: String;
+                              Def6: String; Def7: String; Def8: String; Def9: String; Def10: string);
+var
+	Th: HMODULE;
+begin
+	Th := LoadLibrary(PChar(FromFile));
+	if Th > 0 then
+	begin
+	  TP := GetProcAddress(Th, 'GetDllForm');
+	  if TP <> nil then
+		  begin
+			  Tf := TMyF(Tp);
+			  Tf(Application, 0, FormID, 0, FormType, PChar(DCode), PChar(DName), PChar(Para), PChar(Title),
+          PChar(Def1), PChar(Def2),PChar(Def3),PChar(Def4),PChar(Def5),
+          PChar(Def6),PChar(Def7),PChar(Def8),PChar(Def9),PChar(Def10),
+          pchar(FFormPara));
+		  end;
+	end
+	else
+	begin
+		Application.MessageBox(PChar('打不开文件' + FromFile + '！'), '错误', MB_ICONERROR);
+	end;
+end;
+
+
+procedure TfrmModulePromptList.Tv1CellDblClick(
+  Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+ { with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from SY_ModuleSub where ModuleId='''+Trim(Order_Main.fieldbyname('ModuleId').AsString)+'''');
+    sql.Add(' and  ModuleSubId='''+Trim(Order_Main.fieldbyname('ModuleSubId').AsString)+'''');
+    Open;
+  end;
+  //FormID,FormType:Integer;
+   // formFile,FormPara,Formname:string;
+   // FormPara1,FormPara2,FormPara3,FormPara4,FormPara5:string;
+    //FormPara6,FormPara7,FormPara8,FormPara9,FormPara10:string;
+  formFile:=Trim(ADOQueryTemp.fieldbyname('FormFile').AsString);
+  FormID:=ADOQueryTemp.fieldbyname('FormID').AsInteger;
+  FormType:=ADOQueryTemp.fieldbyname('FormType').AsInteger;
+  Formname:=Trim(ADOQueryTemp.fieldbyname('Formname').AsString);
+  FormPara:=Trim(ADOQueryTemp.fieldbyname('FormPara').AsString);
+ // ShowMessage(FormPara);
+  FormPara1:=Trim(ADOQueryTemp.fieldbyname('FormPara1').AsString);
+  FormPara2:=Trim(ADOQueryTemp.fieldbyname('FormPara2').AsString);
+  FormPara3:=Trim(ADOQueryTemp.fieldbyname('FormPara3').AsString);
+  FormPara4:=Trim(ADOQueryTemp.fieldbyname('FormPara4').AsString);
+  FormPara5:=Trim(ADOQueryTemp.fieldbyname('FormPara5').AsString);
+  FormPara6:=Trim(ADOQueryTemp.fieldbyname('FormPara6').AsString);
+  FormPara7:=Trim(ADOQueryTemp.fieldbyname('FormPara7').AsString);
+  FormPara8:=Trim(ADOQueryTemp.fieldbyname('FormPara8').AsString);
+  FormPara9:=Trim(ADOQueryTemp.fieldbyname('FormPara9').AsString);
+  FormPara10:=Trim(ADOQueryTemp.fieldbyname('FormPara10').AsString);
+  InitDllEvt(formFile,FormID,FormPara,FormType,Formname,FormPara1,FormPara2,
+             FormPara3,FormPara4,FormPara5,FormPara6,FormPara7,FormPara8,
+             FormPara9,FormPara10);     }
+end;
+
+procedure TfrmModulePromptList.ModuleNoteChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+end.
--- a/产品报价(ProductQuotation)/U_SLT.dfm
+++ b/产品报价(ProductQuotation)/U_SLT.dfm
@ -0,0 +1,36 @@
+object frmSLT: TfrmSLT
+  Left = 0
+  Top = 0
+  Width = 161
+  Height = 138
+  TabOrder = 0
+  object Panel1: TPanel
+    Left = 0
+    Top = 121
+    Width = 161
+    Height = 17
+    Align = alClient
+    BevelOuter = bvNone
+    Caption = 'Panel1'
+    Color = clWindow
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clBlue
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    ParentFont = False
+    TabOrder = 0
+  end
+  object cxImage1: TcxImage
+    Left = 0
+    Top = 0
+    Align = alTop
+    Style.BorderStyle = ebsOffice11
+    StyleHot.TextStyle = []
+    TabOrder = 1
+    OnClick = cxImage1Click
+    OnDblClick = cxImage1DblClick
+    Height = 121
+    Width = 161
+  end
+end
--- a/产品报价(ProductQuotation)/U_SLT.pas
+++ b/产品报价(ProductQuotation)/U_SLT.pas
@ -0,0 +1,84 @@
+unit U_SLT;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
+  Dialogs, ExtCtrls,jpeg, cxControls, cxContainer, cxEdit, cxImage,IdFTP,ShellAPI;
+
+type
+  TfrmSLT = class(TFrame)
+    cxImage1: TcxImage;
+    Panel1: TPanel;
+    procedure cxImage1Click(Sender: TObject);
+    procedure cxImage1DblClick(Sender: TObject);
+  private
+    CYID,FileName:string;
+  //   procedure Sharpen(SrcBmp:TBitmap);
+    { Private declarations }
+  public
+    procedure Init(fCYID:string;fFileName:string;fPicture:TJpegImage);
+    { Public declarations }
+  end;
+
+implementation
+uses
+  U_DataLink;
+{$R *.dfm}
+
+
+procedure TfrmSLT.Init(fCYID:string;fFileName:string;fPicture:TJpegImage);
+begin
+  CYID:=trim(fCYID);
+  FileName:=trim(fFileName);
+  Panel1.Caption:=FileName;
+  cxImage1.Picture.Assign(fPicture);
+end;
+procedure TfrmSLT.cxImage1Click(Sender: TObject);
+begin
+ // Fsplcode:=splcode;
+ // FPatFile:=patfile;
+///  frmSample_List.Fsplcode:=splcode;
+///  frmSample_List.FPatFile:=patfile;
+//  showmessage(splcode);
+end;
+
+procedure TfrmSLT.cxImage1DblClick(Sender: TObject);
+var
+  IdFTP1: TIdFTP;
+  FPath,FFName:string;
+  FInt:integer;
+begin
+  try
+    IdFTP1:=TIdFTP.Create(self);
+    IdFTP1.Host :=PicSvr;
+    IdFTP1.Username := 'three';
+    IdFTP1.Password := '641010';
+    IdFTP1.Connect();
+  except
+    IdFTP1.Quit;
+    IdFTP1.Free;
+    Application.MessageBox('无法连接到文件服务器，请检查！', '提示', MB_ICONWARNING);
+    Exit;
+  end;
+  FPath:='D:\Right1209\';
+  if not DirectoryExists(ExtractFileDir(FPath)) then
+    CreateDir(ExtractFileDir(FPath));
+  FFName:=Trim(FileName);
+  FFName:=FPath+FFName;
+  if FileExists(FFName) then
+  begin
+    FInt:=1;
+  end;
+  if FInt<>1 then
+    IdFTP1.Get('YP\'+FileName,FFName);
+  if IdFTP1.Connected then
+  begin
+    IdFTP1.Quit;
+    IdFTP1.Free;
+  end;
+  ShellExecute(Handle, 'open',PChar(FFName),'', '', SW_SHOWNORMAL);
+
+end;
+
+end.
--- a/产品报价(ProductQuotation)/U_SYDept.dfm
+++ b/产品报价(ProductQuotation)/U_SYDept.dfm
@ -0,0 +1,311 @@
+object frmSYDept: TfrmSYDept
+  Left = 73
+  Top = 128
+  Width = 1004
+  Height = 509
+  Caption = #32452#32455#32467#26500
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 988
+    Height = 33
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_DDMD.ThreeImgList
+    Flat = True
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object TBAdd: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686#23376#31867
+      ImageIndex = 12
+      OnClick = TBAddClick
+    end
+    object ToolButton1: TToolButton
+      Left = 150
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 5
+      OnClick = ToolButton1Click
+    end
+    object TBDel: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 13
+      OnClick = TBDelClick
+    end
+    object ToolButton2: TToolButton
+      Left = 276
+      Top = 0
+      AutoSize = True
+      Caption = #32452#32455#20998#37197
+      ImageIndex = 22
+      OnClick = ToolButton2Click
+    end
+    object TBClose: TToolButton
+      Left = 363
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object cxDBTreeList1: TcxDBTreeList
+    Left = 0
+    Top = 33
+    Width = 249
+    Height = 437
+    Align = alLeft
+    Bands = <
+      item
+      end>
+    BufferedPaint = False
+    DataController.DataSource = DataSource1
+    DataController.ParentField = 'DPParent'
+    DataController.KeyField = 'DPID'
+    OptionsSelection.CellSelect = False
+    OptionsView.CellAutoHeight = True
+    OptionsView.Headers = False
+    RootValue = -1
+    Styles.Inactive = DataLink_DDMD.Red
+    Styles.Selection = DataLink_DDMD.Red
+    Styles.IncSearch = DataLink_DDMD.Red
+    TabOrder = 1
+    OnClick = cxDBTreeList1Click
+    OnDblClick = cxDBTreeList1DblClick
+    object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
+      DataBinding.FieldName = 'DPName'
+      Width = 210
+      Position.ColIndex = 1
+      Position.RowIndex = 0
+      Position.BandIndex = 0
+    end
+  end
+  object Panel1: TPanel
+    Left = 249
+    Top = 33
+    Width = 315
+    Height = 437
+    Align = alLeft
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 2
+    object Label1: TLabel
+      Left = 41
+      Top = 40
+      Width = 48
+      Height = 12
+      Caption = #19978#32423#32452#32455
+    end
+    object Label2: TLabel
+      Left = 41
+      Top = 81
+      Width = 48
+      Height = 12
+      Caption = #32452#32455#21517#31216
+    end
+    object Label3: TLabel
+      Left = 41
+      Top = 121
+      Width = 48
+      Height = 12
+      Caption = #32452#32455#32534#30721
+    end
+    object Label4: TLabel
+      Left = 24
+      Top = 16
+      Width = 60
+      Height = 14
+      Caption = #32452#32455#32467#26500
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -14
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 41
+      Top = 159
+      Width = 48
+      Height = 12
+      Caption = #39034' '#24207' '#21495
+    end
+    object DPTopName: TEdit
+      Left = 104
+      Top = 37
+      Width = 169
+      Height = 20
+      ReadOnly = True
+      TabOrder = 0
+    end
+    object DPName: TEdit
+      Left = 104
+      Top = 77
+      Width = 169
+      Height = 20
+      TabOrder = 1
+      OnKeyPress = DPNameKeyPress
+    end
+    object DPNo: TEdit
+      Left = 104
+      Top = 117
+      Width = 169
+      Height = 20
+      TabOrder = 2
+    end
+    object DPOrder: TEdit
+      Left = 104
+      Top = 155
+      Width = 169
+      Height = 20
+      TabOrder = 3
+    end
+  end
+  object cxGrid4: TcxGrid
+    Left = 564
+    Top = 33
+    Width = 424
+    Height = 437
+    Align = alClient
+    TabOrder = 3
+    object Tv4: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      NavigatorButtons.Delete.Enabled = False
+      NavigatorButtons.Delete.Visible = False
+      DataController.DataSource = DSUser
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_DDMD.SHuangSe
+      Styles.IncSearch = DataLink_DDMD.SHuangSe
+      Styles.Selection = DataLink_DDMD.SHuangSe
+      object cxGridDBColumn1: TcxGridDBColumn
+        Caption = #21592#24037#32534#21495
+        DataBinding.FieldName = 'UserId'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 84
+      end
+      object cxGridDBColumn7: TcxGridDBColumn
+        Caption = #30331#24405#21517#31216
+        DataBinding.FieldName = 'UserName'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 87
+      end
+      object cxGridDBColumn8: TcxGridDBColumn
+        Caption = #21592#24037#32452#32455
+        DataBinding.FieldName = 'dept'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_DDMD.Default
+        Width = 74
+      end
+      object v4Column1: TcxGridDBColumn
+        Caption = #31995#32479#21517#31216
+        DataBinding.FieldName = 'MoneyUserName'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.Alignment.Horz = taCenter
+        Properties.Alignment.Vert = taVCenter
+        Properties.OnEditValueChanged = v4Column1PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_DDMD.Default
+        Width = 91
+      end
+    end
+    object cxGridLevel2: TcxGridLevel
+      GridView = Tv4
+    end
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Tree
+    Left = 147
+    Top = 219
+  end
+  object ADOQueryTree: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 117
+    Top = 145
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 528
+    Top = 215
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 520
+    Top = 258
+  end
+  object CDS_Tree: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 96
+    Top = 256
+  end
+  object CDS_User: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 680
+    Top = 272
+  end
+  object DSUser: TDataSource
+    DataSet = CDS_User
+    Left = 675
+    Top = 211
+  end
+end
--- a/产品报价(ProductQuotation)/U_SYDept.pas
+++ b/产品报价(ProductQuotation)/U_SYDept.pas
@ -0,0 +1,353 @@
+unit U_SYDept;
+
+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, ExtCtrls, DBClient, cxFilter, cxData, cxDataStorage, cxEdit,
+  cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid, cxTextEdit;
+
+type
+  TfrmSYDept = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBAdd: TToolButton;
+    TBDel: TToolButton;
+    TBClose: TToolButton;
+    cxDBTreeList1: TcxDBTreeList;
+    cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
+    DataSource1: TDataSource;
+    ADOQueryTree: TADOQuery;
+    ToolButton1: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    Panel1: TPanel;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    DPTopName: TEdit;
+    DPName: TEdit;
+    DPNo: TEdit;
+    CDS_Tree: TClientDataSet;
+    cxGrid4: TcxGrid;
+    Tv4: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn7: TcxGridDBColumn;
+    cxGridDBColumn8: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
+    Label4: TLabel;
+    ToolButton2: TToolButton;
+    CDS_User: TClientDataSet;
+    DSUser: TDataSource;
+    Label5: TLabel;
+    DPOrder: TEdit;
+    v4Column1: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBAddClick(Sender: TObject);
+    procedure cxDBTreeList1Click(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure DPNameKeyPress(Sender: TObject; var Key: Char);
+    procedure FormShow(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure cxDBTreeList1DblClick(Sender: TObject);
+    procedure v4Column1PropertiesEditValueChanged(Sender: TObject);
+  private
+    { Private declarations }
+    PState:Integer;
+    FCPID,FTopID:String;
+    procedure InitTree();
+
+  public
+    { Public declarations }
+  end;
+
+var
+  frmSYDept: TfrmSYDept;
+
+implementation
+uses
+  U_DataLink,U_RTFun;
+
+{$R *.dfm}
+
+procedure TfrmSYDept.InitTree();
+var
+  i:Integer;
+begin
+  try
+    ADOQueryTree.DisableControls;
+    with ADOQueryTree do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('select * from SY_Dept order by DPlevel,DPOrder,DPName');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTree,CDS_Tree);
+    SInitCDSData20(ADOQueryTree,CDS_Tree);
+    //cxDBTreeList1.Items[0].Expand(false);
+    cxDBTreeList1.Items[0].Expand(True);
+  finally
+    ADOQueryTree.EnableControls;
+  end;
+  //cxDBTreeList1.Items[1].Expand(False);
+end;
+
+procedure TfrmSYDept.FormDestroy(Sender: TObject);
+begin
+  frmSYDept:=nil;
+end;
+
+procedure TfrmSYDept.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmSYDept.TBRafreshClick(Sender: TObject);
+begin
+  InitTree();
+end;
+
+procedure TfrmSYDept.TBCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmSYDept.TBAddClick(Sender: TObject);
+begin
+  PState:=11;
+  DPTopName.Text:=Trim(CDS_Tree.fieldbyname('DPName').AsString);
+  //FTopID:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
+  FCPID:='';
+  DPName.Text:='';
+  DPNo.Text:='';
+  DPName.SetFocus;
+end;
+
+procedure TfrmSYDept.cxDBTreeList1Click(Sender: TObject);
+begin
+  PState:=22;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from SY_Dept where DPID='''+Trim(CDS_Tree.fieldbyname('DPParent').AsString)+'''');
+    Open;
+  end;
+  FCPID:=Trim(CDS_Tree.fieldbyname('DPID').AsString);
+  DPTopName.Text:=Trim(ADOQueryTemp.fieldbyname('DPName').AsString);
+  DPName.Text:=Trim(CDS_Tree.fieldbyname('DPName').AsString);
+  DPNo.Text:=Trim(CDS_Tree.fieldbyname('DPNo').AsString);
+  DPOrder.Text:=Trim(CDS_Tree.fieldbyname('DPOrder').AsString);
+end;
+
+procedure TfrmSYDept.ToolButton1Click(Sender: TObject);
+var
+  maxId:String;
+  FInt:Integer;
+begin
+  if Trim(DPName.Text)='' then
+  begin
+    Application.MessageBox('本级名称不能为空！','提示',0);
+    Exit;
+  end;
+  {if Trim(DPNo.Text)='' then
+  begin
+    Application.MessageBox('类别编码不能为空！','提示',0);
+    Exit;
+  end;}
+  if Trim(DPOrder.Text)='' then
+  begin
+    DPOrder.Text:='99';
+  end;
+  if TryStrToInt(Trim(DPOrder.Text),FInt)=False then
+  begin
+    Application.MessageBox('顺序号非法数字!','提示',0);
+    Exit;
+  end;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    if PState=11 then
+    begin
+      if GetLSNo(ADOQueryCmd,maxId,'DP','SY_Dept',3,1)=False then
+      begin
+        ADOQueryCmd.Connection.RollbackTrans;
+        Application.MessageBox('区最大号失败！','提示',0);
+        Exit;
+      end;
+    end else
+    begin
+      maxId:=Trim(FCPID);
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from SY_Dept where DPID='''+Trim(FCPID)+'''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if PState=11 then
+      begin
+        Append;
+        FieldByName('DPID').Value:=Trim(maxId);
+        FieldByName('DPName').Value:=Trim(DPName.Text);
+        FieldByName('DPNo').Value:=Trim(DPNo.Text);
+        FieldByName('DPParent').Value:=Trim(CDS_Tree.fieldbyname('DPID').AsString);
+        FieldByName('DPLevel').Value:=CDS_Tree.fieldbyname('DPLevel').AsInteger+1;
+        FieldByName('DPOrder').Value:=StrToInt(Trim(DPOrder.Text));
+        Post;
+      end else
+      if PState=22 then
+      begin
+        Edit;
+        FieldByName('DPID').Value:=Trim(maxId);
+        FieldByName('DPName').Value:=Trim(DPName.Text);
+        FieldByName('DPNo').Value:=Trim(DPNo.Text);
+        FieldByName('DPOrder').Value:=StrToInt(Trim(DPOrder.Text));
+        //FieldByName('CPParent').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
+        //FieldByName('CPOrder').Value:=ADOQueryTree.fieldbyname('CPOrder').AsInteger+1;
+        Post;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Application.MessageBox('保存成功!','提示',0);
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败!','提示',0);
+  end;
+end;
+
+procedure TfrmSYDept.TBDelClick(Sender: TObject);
+begin
+  if ADOQueryTree.FieldByName('DPLevel').AsInteger=0 then Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from SY_Dept where DPParent='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
+    Open;
+    if not IsEmpty then
+    begin
+      Application.MessageBox('已经定义下级组织不能删除！','提示',0);
+      Exit;
+    end;
+  end;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from SY_User where DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
+    Open;
+    if not IsEmpty then
+    begin
+      Application.MessageBox('该组织已有人员不能删除！','提示',0);
+      Exit;
+    end;
+  end;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('delete SY_Dept where DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
+    sql.Add('delete SY_Dept where DPParent='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
+    ExecSQL;
+  end;
+  InitTree();
+end;
+
+procedure TfrmSYDept.DPNameKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+    DPNo.SetFocus;
+end;
+
+procedure TfrmSYDept.FormShow(Sender: TObject);
+begin
+  InitTree();
+end;
+
+procedure TfrmSYDept.ToolButton2Click(Sender: TObject);
+begin
+  if CDS_Tree.IsEmpty=False then
+  begin
+    if CDS_User.IsEmpty then Exit;
+    if Application.MessageBox('确定要进行组织分配吗？','提示',32+4)<>IDYES then Exit;
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('Update SY_User Set DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
+      sql.Add(' where UserId='''+Trim(CDS_User.fieldbyname('UserId').AsString)+'''');
+      ExecSQL;
+    end;
+    with CDS_User do
+    begin
+      Edit;
+      FieldByName('Dept').Value:=Trim(CDS_Tree.fieldbyname('DPName').AsString);
+      Post;
+    end;
+  end;
+end;
+
+procedure TfrmSYDept.cxDBTreeList1DblClick(Sender: TObject);
+begin
+  if CDS_Tree.FieldByName('DPLevel').Value=0 then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('select A.*,Dept=(select DPName from SY_Dept where DPID=A.DPID) ');
+      SQL.Add(' from SY_User A where UserId not in(''Admin'',''Test'') ');
+      SQL.Add(' and Valid=''Y'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_User);
+    SInitCDSData20(ADOQueryTemp,CDS_User);
+  end else
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('exec P_Select_Dept_User :CYType');
+      Parameters.ParamByName('CYType').Value:=Trim(CDS_Tree.fieldbyname('DPID').AsString);
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_User);
+    SInitCDSData20(ADOQueryTemp,CDS_User);
+  end;
+end;
+
+procedure TfrmSYDept.v4Column1PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue:string;
+begin
+  mvalue:=TcxTextEdit(Sender).EditingText;
+  with CDS_User do
+  begin
+    Edit;
+    FieldByName('MoneyUserName').Value:=Trim(mvalue);
+    Post;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('Update SY_User Set MoneyUserName='''+Trim(mvalue)+'''');
+    sql.Add(' where UserId='''+Trim(CDS_User.fieldbyname('UserId').AsString)+'''');
+    ExecSQL;
+  end;
+end;
+
+end.
--- a/产品报价(ProductQuotation)/U_SYDeptUserView.dfm
+++ b/产品报价(ProductQuotation)/U_SYDeptUserView.dfm
@ -0,0 +1,296 @@
+object frmSYDeptUserView: TfrmSYDeptUserView
+  Left = 233
+  Top = 146
+  Width = 927
+  Height = 536
+  Caption = #32452#32455#32467#26500#20154#21592#21015#34920
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 911
+    Height = 33
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_CYZZ.ThreeImgList
+    Flat = True
+    Images = DataLink_CYZZ.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object TBAdd: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686#23376#31867
+      ImageIndex = 12
+      Visible = False
+      OnClick = TBAddClick
+    end
+    object ToolButton1: TToolButton
+      Left = 150
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 5
+      Visible = False
+      OnClick = ToolButton1Click
+    end
+    object TBDel: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 13
+      Visible = False
+      OnClick = TBDelClick
+    end
+    object ToolButton2: TToolButton
+      Left = 276
+      Top = 0
+      Caption = #32452#32455#20998#37197
+      ImageIndex = 22
+      Visible = False
+      OnClick = ToolButton2Click
+    end
+    object TBClose: TToolButton
+      Left = 359
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object cxDBTreeList1: TcxDBTreeList
+    Left = 0
+    Top = 33
+    Width = 249
+    Height = 464
+    Align = alLeft
+    Bands = <
+      item
+      end>
+    BufferedPaint = False
+    DataController.DataSource = DataSource1
+    DataController.ParentField = 'DPParent'
+    DataController.KeyField = 'DPID'
+    OptionsSelection.CellSelect = False
+    OptionsView.CellAutoHeight = True
+    OptionsView.Headers = False
+    RootValue = -1
+    Styles.Inactive = DataLink_CYZZ.Red
+    Styles.Selection = DataLink_CYZZ.Red
+    Styles.IncSearch = DataLink_CYZZ.Red
+    TabOrder = 1
+    OnClick = cxDBTreeList1Click
+    OnDblClick = cxDBTreeList1DblClick
+    object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
+      DataBinding.FieldName = 'DPName'
+      Width = 210
+      Position.ColIndex = 1
+      Position.RowIndex = 0
+      Position.BandIndex = 0
+    end
+  end
+  object Panel1: TPanel
+    Left = 249
+    Top = 33
+    Width = 315
+    Height = 464
+    Align = alLeft
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 2
+    Visible = False
+    object Label1: TLabel
+      Left = 66
+      Top = 40
+      Width = 48
+      Height = 12
+      Caption = #19978#32423#32452#32455
+    end
+    object Label2: TLabel
+      Left = 66
+      Top = 81
+      Width = 48
+      Height = 12
+      Caption = #32452#32455#21517#31216
+    end
+    object Label3: TLabel
+      Left = 66
+      Top = 121
+      Width = 48
+      Height = 12
+      Caption = #32452#32455#32534#30721
+    end
+    object Label4: TLabel
+      Left = 24
+      Top = 16
+      Width = 60
+      Height = 14
+      Caption = #32452#32455#32467#26500
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -14
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 66
+      Top = 159
+      Width = 48
+      Height = 12
+      Caption = #39034' '#24207' '#21495
+    end
+    object DPTopName: TEdit
+      Left = 129
+      Top = 37
+      Width = 121
+      Height = 20
+      ReadOnly = True
+      TabOrder = 0
+    end
+    object DPName: TEdit
+      Left = 129
+      Top = 77
+      Width = 121
+      Height = 20
+      TabOrder = 1
+      OnKeyPress = DPNameKeyPress
+    end
+    object DPNo: TEdit
+      Left = 129
+      Top = 117
+      Width = 121
+      Height = 20
+      TabOrder = 2
+    end
+    object DPOrder: TEdit
+      Left = 129
+      Top = 155
+      Width = 121
+      Height = 20
+      TabOrder = 3
+    end
+  end
+  object cxGrid4: TcxGrid
+    Left = 564
+    Top = 33
+    Width = 347
+    Height = 464
+    Align = alClient
+    TabOrder = 3
+    object Tv4: TcxGridDBTableView
+      OnDblClick = Tv4DblClick
+      NavigatorButtons.ConfirmDelete = False
+      NavigatorButtons.Delete.Enabled = False
+      NavigatorButtons.Delete.Visible = False
+      DataController.DataSource = DSUser
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_CYZZ.SHuangSe
+      Styles.IncSearch = DataLink_CYZZ.SHuangSe
+      Styles.Selection = DataLink_CYZZ.SHuangSe
+      object cxGridDBColumn1: TcxGridDBColumn
+        Caption = #21592#24037#32534#21495
+        DataBinding.FieldName = 'UserId'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_CYZZ.Default
+        Width = 84
+      end
+      object cxGridDBColumn7: TcxGridDBColumn
+        Caption = #21592#24037#21517#31216
+        DataBinding.FieldName = 'UserName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_CYZZ.Default
+        Width = 87
+      end
+      object cxGridDBColumn8: TcxGridDBColumn
+        Caption = #21592#24037#32452#32455
+        DataBinding.FieldName = 'dept'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_CYZZ.Default
+        Width = 74
+      end
+    end
+    object cxGridLevel2: TcxGridLevel
+      GridView = Tv4
+    end
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Tree
+    Left = 147
+    Top = 219
+  end
+  object ADOQueryTree: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 117
+    Top = 145
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 520
+    Top = 111
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    Parameters = <>
+    Left = 520
+    Top = 146
+  end
+  object CDS_Tree: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 96
+    Top = 256
+  end
+  object CDS_User: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 680
+    Top = 272
+  end
+  object DSUser: TDataSource
+    DataSet = CDS_User
+    Left = 675
+    Top = 211
+  end
+end
--- a/产品报价(ProductQuotation)/U_SYDeptUserView.pas
+++ b/产品报价(ProductQuotation)/U_SYDeptUserView.pas
@ -0,0 +1,336 @@
+unit U_SYDeptUserView;
+
+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, ExtCtrls, DBClient, cxFilter, cxData, cxDataStorage, cxEdit,
+  cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid;
+
+type
+  TfrmSYDeptUserView = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBAdd: TToolButton;
+    TBDel: TToolButton;
+    TBClose: TToolButton;
+    cxDBTreeList1: TcxDBTreeList;
+    cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
+    DataSource1: TDataSource;
+    ADOQueryTree: TADOQuery;
+    ToolButton1: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    Panel1: TPanel;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    DPTopName: TEdit;
+    DPName: TEdit;
+    DPNo: TEdit;
+    CDS_Tree: TClientDataSet;
+    cxGrid4: TcxGrid;
+    Tv4: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn7: TcxGridDBColumn;
+    cxGridDBColumn8: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
+    Label4: TLabel;
+    ToolButton2: TToolButton;
+    CDS_User: TClientDataSet;
+    DSUser: TDataSource;
+    Label5: TLabel;
+    DPOrder: TEdit;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBAddClick(Sender: TObject);
+    procedure cxDBTreeList1Click(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure DPNameKeyPress(Sender: TObject; var Key: Char);
+    procedure FormShow(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure cxDBTreeList1DblClick(Sender: TObject);
+    procedure Tv4DblClick(Sender: TObject);
+  private
+    { Private declarations }
+    PState:Integer;
+    FCPID,FTopID:String;
+    procedure InitTree();
+
+  public
+    { Public declarations }
+  end;
+
+var
+  frmSYDeptUserView: TfrmSYDeptUserView;
+
+implementation
+uses
+  U_DataLink,U_RTFun;
+
+{$R *.dfm}
+
+procedure TfrmSYDeptUserView.InitTree();
+var
+  i:Integer;
+begin
+  try
+    ADOQueryTree.DisableControls;
+    with ADOQueryTree do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('select * from SY_Dept order by DPlevel,DPOrder,DPName');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTree,CDS_Tree);
+    SInitCDSData20(ADOQueryTree,CDS_Tree);
+    //cxDBTreeList1.Items[0].Expand(false);
+    cxDBTreeList1.Items[0].Expand(True);
+  finally
+    ADOQueryTree.EnableControls;
+  end;
+  //cxDBTreeList1.Items[1].Expand(False);
+end;
+
+procedure TfrmSYDeptUserView.FormDestroy(Sender: TObject);
+begin
+  frmSYDeptUserView:=nil;
+end;
+
+procedure TfrmSYDeptUserView.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmSYDeptUserView.TBRafreshClick(Sender: TObject);
+begin
+  InitTree();
+end;
+
+procedure TfrmSYDeptUserView.TBCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmSYDeptUserView.TBAddClick(Sender: TObject);
+begin
+  PState:=11;
+  DPTopName.Text:=Trim(CDS_Tree.fieldbyname('DPName').AsString);
+  //FTopID:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
+  FCPID:='';
+  DPName.Text:='';
+  DPNo.Text:='';
+  DPName.SetFocus;
+end;
+
+procedure TfrmSYDeptUserView.cxDBTreeList1Click(Sender: TObject);
+begin
+  PState:=22;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from SY_Dept where DPID='''+Trim(CDS_Tree.fieldbyname('DPParent').AsString)+'''');
+    Open;
+  end;
+  FCPID:=Trim(CDS_Tree.fieldbyname('DPID').AsString);
+  DPTopName.Text:=Trim(ADOQueryTemp.fieldbyname('DPName').AsString);
+  DPName.Text:=Trim(CDS_Tree.fieldbyname('DPName').AsString);
+  DPNo.Text:=Trim(CDS_Tree.fieldbyname('DPNo').AsString);
+  DPOrder.Text:=Trim(CDS_Tree.fieldbyname('DPOrder').AsString);
+end;
+
+procedure TfrmSYDeptUserView.ToolButton1Click(Sender: TObject);
+var
+  maxId:String;
+  FInt:Integer;
+begin
+  if Trim(DPName.Text)='' then
+  begin
+    Application.MessageBox('本级名称不能为空！','提示',0);
+    Exit;
+  end;
+  {if Trim(DPNo.Text)='' then
+  begin
+    Application.MessageBox('类别编码不能为空！','提示',0);
+    Exit;
+  end;}
+  if Trim(DPOrder.Text)='' then
+  begin
+    DPOrder.Text:='99';
+  end;
+  if TryStrToInt(Trim(DPOrder.Text),FInt)=False then
+  begin
+    Application.MessageBox('顺序号非法数字!','提示',0);
+    Exit;
+  end;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    if PState=11 then
+    begin
+      if GetLSNo(ADOQueryCmd,maxId,'DP','SY_Dept',3,1)=False then
+      begin
+        ADOQueryCmd.Connection.RollbackTrans;
+        Application.MessageBox('区最大号失败！','提示',0);
+        Exit;
+      end;
+    end else
+    begin
+      maxId:=Trim(FCPID);
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from SY_Dept where DPID='''+Trim(FCPID)+'''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if PState=11 then
+      begin
+        Append;
+        FieldByName('DPID').Value:=Trim(maxId);
+        FieldByName('DPName').Value:=Trim(DPName.Text);
+        FieldByName('DPNo').Value:=Trim(DPNo.Text);
+        FieldByName('DPParent').Value:=Trim(CDS_Tree.fieldbyname('DPID').AsString);
+        FieldByName('DPLevel').Value:=CDS_Tree.fieldbyname('DPLevel').AsInteger+1;
+        FieldByName('DPOrder').Value:=StrToInt(Trim(DPOrder.Text));
+        Post;
+      end else
+      if PState=22 then
+      begin
+        Edit;
+        FieldByName('DPID').Value:=Trim(maxId);
+        FieldByName('DPName').Value:=Trim(DPName.Text);
+        FieldByName('DPNo').Value:=Trim(DPNo.Text);
+        FieldByName('DPOrder').Value:=StrToInt(Trim(DPOrder.Text));
+        //FieldByName('CPParent').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
+        //FieldByName('CPOrder').Value:=ADOQueryTree.fieldbyname('CPOrder').AsInteger+1;
+        Post;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Application.MessageBox('保存成功!','提示',0);
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败!','提示',0);
+  end;
+end;
+
+procedure TfrmSYDeptUserView.TBDelClick(Sender: TObject);
+begin
+  if ADOQueryTree.FieldByName('DPLevel').AsInteger=0 then Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from SY_Dept where DPParent='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
+    Open;
+    if not IsEmpty then
+    begin
+      Application.MessageBox('已经定义下级组织不能删除！','提示',0);
+      Exit;
+    end;
+  end;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from SY_User where DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
+    Open;
+    if not IsEmpty then
+    begin
+      Application.MessageBox('该组织已有人员不能删除！','提示',0);
+      Exit;
+    end;
+  end;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('delete SY_Dept where DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
+    sql.Add('delete SY_Dept where DPParent='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
+    ExecSQL;
+  end;
+  InitTree();
+end;
+
+procedure TfrmSYDeptUserView.DPNameKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+    DPNo.SetFocus;
+end;
+
+procedure TfrmSYDeptUserView.FormShow(Sender: TObject);
+begin
+  InitTree();
+end;
+
+procedure TfrmSYDeptUserView.ToolButton2Click(Sender: TObject);
+begin
+  if CDS_Tree.IsEmpty=False then
+  begin
+    if CDS_User.IsEmpty then Exit;
+    if Application.MessageBox('确定要进行组织分配吗？','提示',32+4)<>IDYES then Exit;
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('Update SY_User Set DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
+      sql.Add(' where UserId='''+Trim(CDS_User.fieldbyname('UserId').AsString)+'''');
+      ExecSQL;
+    end;
+    with CDS_User do
+    begin
+      Edit;
+      FieldByName('Dept').Value:=Trim(CDS_Tree.fieldbyname('DPName').AsString);
+      Post;
+    end;
+  end;
+end;
+
+procedure TfrmSYDeptUserView.cxDBTreeList1DblClick(Sender: TObject);
+begin
+  if CDS_Tree.FieldByName('DPLevel').Value=0 then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('select A.*,Dept=(select DPName from SY_Dept where DPID=A.DPID) ');
+      SQL.Add(' from SY_User A where UserId not in(''Admin'',''Test'') ');
+      SQL.Add(' and Valid=''Y'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_User);
+    SInitCDSData20(ADOQueryTemp,CDS_User);
+  end else
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('exec P_Select_Dept_User :CYType');
+      Parameters.ParamByName('CYType').Value:=Trim(CDS_Tree.fieldbyname('DPID').AsString);
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_User);
+    SInitCDSData20(ADOQueryTemp,CDS_User);
+  end;
+end;
+
+procedure TfrmSYDeptUserView.Tv4DblClick(Sender: TObject);
+begin
+  ModalResult:=1;
+end;
+
+end.
--- a/产品报价(ProductQuotation)/U_SYDeptView.dfm
+++ b/产品报价(ProductQuotation)/U_SYDeptView.dfm
@ -0,0 +1,304 @@
+object frmSYDeptView: TfrmSYDeptView
+  Left = 233
+  Top = 146
+  Width = 927
+  Height = 536
+  Caption = #32452#32455#32467#26500#21015#34920
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 911
+    Height = 33
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_KangChi.ThreeImgList
+    Flat = True
+    Images = DataLink_KangChi.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object ToolButton3: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36873#25321
+      ImageIndex = 10
+      OnClick = ToolButton3Click
+    end
+    object TBAdd: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686#23376#31867
+      ImageIndex = 12
+      Visible = False
+      OnClick = TBAddClick
+    end
+    object ToolButton1: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 5
+      Visible = False
+      OnClick = ToolButton1Click
+    end
+    object TBDel: TToolButton
+      Left = 276
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 13
+      Visible = False
+      OnClick = TBDelClick
+    end
+    object ToolButton2: TToolButton
+      Left = 339
+      Top = 0
+      Caption = #32452#32455#20998#37197
+      ImageIndex = 22
+      Visible = False
+      OnClick = ToolButton2Click
+    end
+    object TBClose: TToolButton
+      Left = 422
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object cxDBTreeList1: TcxDBTreeList
+    Left = 315
+    Top = 33
+    Width = 596
+    Height = 464
+    Align = alClient
+    Bands = <
+      item
+      end>
+    BufferedPaint = False
+    DataController.DataSource = DataSource1
+    DataController.ParentField = 'DPParent'
+    DataController.KeyField = 'DPID'
+    OptionsSelection.CellSelect = False
+    OptionsView.CellAutoHeight = True
+    OptionsView.Headers = False
+    RootValue = -1
+    Styles.Inactive = DataLink_KangChi.Red
+    Styles.Selection = DataLink_KangChi.Red
+    Styles.IncSearch = DataLink_KangChi.Red
+    TabOrder = 1
+    OnClick = cxDBTreeList1Click
+    OnDblClick = cxDBTreeList1DblClick
+    object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
+      DataBinding.FieldName = 'DPName'
+      Width = 210
+      Position.ColIndex = 1
+      Position.RowIndex = 0
+      Position.BandIndex = 0
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 33
+    Width = 315
+    Height = 464
+    Align = alLeft
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 2
+    Visible = False
+    object Label1: TLabel
+      Left = 66
+      Top = 40
+      Width = 48
+      Height = 12
+      Caption = #19978#32423#32452#32455
+    end
+    object Label2: TLabel
+      Left = 66
+      Top = 81
+      Width = 48
+      Height = 12
+      Caption = #32452#32455#21517#31216
+    end
+    object Label3: TLabel
+      Left = 66
+      Top = 121
+      Width = 48
+      Height = 12
+      Caption = #32452#32455#32534#30721
+    end
+    object Label4: TLabel
+      Left = 24
+      Top = 16
+      Width = 60
+      Height = 14
+      Caption = #32452#32455#32467#26500
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -14
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 66
+      Top = 159
+      Width = 48
+      Height = 12
+      Caption = #39034' '#24207' '#21495
+    end
+    object DPTopName: TEdit
+      Left = 129
+      Top = 37
+      Width = 121
+      Height = 20
+      ReadOnly = True
+      TabOrder = 0
+    end
+    object DPName: TEdit
+      Left = 129
+      Top = 77
+      Width = 121
+      Height = 20
+      TabOrder = 1
+      OnKeyPress = DPNameKeyPress
+    end
+    object DPNo: TEdit
+      Left = 129
+      Top = 117
+      Width = 121
+      Height = 20
+      TabOrder = 2
+    end
+    object DPOrder: TEdit
+      Left = 129
+      Top = 155
+      Width = 121
+      Height = 20
+      TabOrder = 3
+    end
+  end
+  object cxGrid4: TcxGrid
+    Left = 352
+    Top = 64
+    Width = 359
+    Height = 273
+    TabOrder = 3
+    Visible = False
+    object Tv4: TcxGridDBTableView
+      OnDblClick = Tv4DblClick
+      NavigatorButtons.ConfirmDelete = False
+      NavigatorButtons.Delete.Enabled = False
+      NavigatorButtons.Delete.Visible = False
+      DataController.DataSource = DSUser
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_KangChi.SHuangSe
+      Styles.IncSearch = DataLink_KangChi.SHuangSe
+      Styles.Selection = DataLink_KangChi.SHuangSe
+      object cxGridDBColumn1: TcxGridDBColumn
+        Caption = #21592#24037#32534#21495
+        DataBinding.FieldName = 'UserId'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_KangChi.Default
+        Width = 84
+      end
+      object cxGridDBColumn7: TcxGridDBColumn
+        Caption = #21592#24037#21517#31216
+        DataBinding.FieldName = 'UserName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_KangChi.Default
+        Width = 87
+      end
+      object cxGridDBColumn8: TcxGridDBColumn
+        Caption = #21592#24037#32452#32455
+        DataBinding.FieldName = 'dept'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_KangChi.Default
+        Width = 74
+      end
+    end
+    object cxGridLevel2: TcxGridLevel
+      GridView = Tv4
+    end
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Tree
+    Left = 147
+    Top = 219
+  end
+  object ADOQueryTree: TADOQuery
+    Connection = DataLink_KangChi.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 117
+    Top = 145
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_KangChi.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 520
+    Top = 111
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_KangChi.ADOLink
+    Parameters = <>
+    Left = 520
+    Top = 146
+  end
+  object CDS_Tree: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 96
+    Top = 256
+  end
+  object CDS_User: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 680
+    Top = 272
+  end
+  object DSUser: TDataSource
+    DataSet = CDS_User
+    Left = 675
+    Top = 211
+  end
+end
--- a/产品报价(ProductQuotation)/U_SYDeptView.pas
+++ b/产品报价(ProductQuotation)/U_SYDeptView.pas
@ -0,0 +1,344 @@
+unit U_SYDeptView;
+
+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, ExtCtrls, DBClient, cxFilter, cxData, cxDataStorage, cxEdit,
+  cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxGridCustomView, cxGrid;
+
+type
+  TfrmSYDeptView = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBAdd: TToolButton;
+    TBDel: TToolButton;
+    TBClose: TToolButton;
+    cxDBTreeList1: TcxDBTreeList;
+    cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
+    DataSource1: TDataSource;
+    ADOQueryTree: TADOQuery;
+    ToolButton1: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    Panel1: TPanel;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    DPTopName: TEdit;
+    DPName: TEdit;
+    DPNo: TEdit;
+    CDS_Tree: TClientDataSet;
+    cxGrid4: TcxGrid;
+    Tv4: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn7: TcxGridDBColumn;
+    cxGridDBColumn8: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
+    Label4: TLabel;
+    ToolButton2: TToolButton;
+    CDS_User: TClientDataSet;
+    DSUser: TDataSource;
+    Label5: TLabel;
+    DPOrder: TEdit;
+    ToolButton3: TToolButton;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBAddClick(Sender: TObject);
+    procedure cxDBTreeList1Click(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure DPNameKeyPress(Sender: TObject; var Key: Char);
+    procedure FormShow(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure cxDBTreeList1DblClick(Sender: TObject);
+    procedure Tv4DblClick(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+  private
+    { Private declarations }
+    PState:Integer;
+    FCPID,FTopID:String;
+    procedure InitTree();
+
+  public
+    { Public declarations }
+  end;
+
+var
+  frmSYDeptView: TfrmSYDeptView;
+
+implementation
+uses
+  U_DataLink,U_RTFun;
+
+{$R *.dfm}
+
+procedure TfrmSYDeptView.InitTree();
+var
+  i:Integer;
+begin
+  try
+    ADOQueryTree.DisableControls;
+    with ADOQueryTree do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('select * from SY_Dept order by DPlevel,DPOrder,DPName');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTree,CDS_Tree);
+    SInitCDSData20(ADOQueryTree,CDS_Tree);
+    //cxDBTreeList1.Items[0].Expand(false);
+    cxDBTreeList1.Items[0].Expand(True);
+  finally
+    ADOQueryTree.EnableControls;
+  end;
+  //cxDBTreeList1.Items[1].Expand(False);
+end;
+
+procedure TfrmSYDeptView.FormDestroy(Sender: TObject);
+begin
+  frmSYDeptView:=nil;
+end;
+
+procedure TfrmSYDeptView.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmSYDeptView.TBRafreshClick(Sender: TObject);
+begin
+  InitTree();
+end;
+
+procedure TfrmSYDeptView.TBCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmSYDeptView.TBAddClick(Sender: TObject);
+begin
+  PState:=11;
+  DPTopName.Text:=Trim(CDS_Tree.fieldbyname('DPName').AsString);
+  //FTopID:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
+  FCPID:='';
+  DPName.Text:='';
+  DPNo.Text:='';
+  DPName.SetFocus;
+end;
+
+procedure TfrmSYDeptView.cxDBTreeList1Click(Sender: TObject);
+begin
+  PState:=22;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from SY_Dept where DPID='''+Trim(CDS_Tree.fieldbyname('DPParent').AsString)+'''');
+    Open;
+  end;
+  FCPID:=Trim(CDS_Tree.fieldbyname('DPID').AsString);
+  DPTopName.Text:=Trim(ADOQueryTemp.fieldbyname('DPName').AsString);
+  DPName.Text:=Trim(CDS_Tree.fieldbyname('DPName').AsString);
+  DPNo.Text:=Trim(CDS_Tree.fieldbyname('DPNo').AsString);
+  DPOrder.Text:=Trim(CDS_Tree.fieldbyname('DPOrder').AsString);
+end;
+
+procedure TfrmSYDeptView.ToolButton1Click(Sender: TObject);
+var
+  maxId:String;
+  FInt:Integer;
+begin
+  if Trim(DPName.Text)='' then
+  begin
+    Application.MessageBox('本级名称不能为空！','提示',0);
+    Exit;
+  end;
+  {if Trim(DPNo.Text)='' then
+  begin
+    Application.MessageBox('类别编码不能为空！','提示',0);
+    Exit;
+  end;}
+  if Trim(DPOrder.Text)='' then
+  begin
+    DPOrder.Text:='99';
+  end;
+  if TryStrToInt(Trim(DPOrder.Text),FInt)=False then
+  begin
+    Application.MessageBox('顺序号非法数字!','提示',0);
+    Exit;
+  end;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    if PState=11 then
+    begin
+      if GetLSNo(ADOQueryCmd,maxId,'DP','SY_Dept',3,1)=False then
+      begin
+        ADOQueryCmd.Connection.RollbackTrans;
+        Application.MessageBox('区最大号失败！','提示',0);
+        Exit;
+      end;
+    end else
+    begin
+      maxId:=Trim(FCPID);
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from SY_Dept where DPID='''+Trim(FCPID)+'''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if PState=11 then
+      begin
+        Append;
+        FieldByName('DPID').Value:=Trim(maxId);
+        FieldByName('DPName').Value:=Trim(DPName.Text);
+        FieldByName('DPNo').Value:=Trim(DPNo.Text);
+        FieldByName('DPParent').Value:=Trim(CDS_Tree.fieldbyname('DPID').AsString);
+        FieldByName('DPLevel').Value:=CDS_Tree.fieldbyname('DPLevel').AsInteger+1;
+        FieldByName('DPOrder').Value:=StrToInt(Trim(DPOrder.Text));
+        Post;
+      end else
+      if PState=22 then
+      begin
+        Edit;
+        FieldByName('DPID').Value:=Trim(maxId);
+        FieldByName('DPName').Value:=Trim(DPName.Text);
+        FieldByName('DPNo').Value:=Trim(DPNo.Text);
+        FieldByName('DPOrder').Value:=StrToInt(Trim(DPOrder.Text));
+        //FieldByName('CPParent').Value:=Trim(ADOQueryTree.fieldbyname('CPID').AsString);
+        //FieldByName('CPOrder').Value:=ADOQueryTree.fieldbyname('CPOrder').AsInteger+1;
+        Post;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Application.MessageBox('保存成功!','提示',0);
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败!','提示',0);
+  end;
+end;
+
+procedure TfrmSYDeptView.TBDelClick(Sender: TObject);
+begin
+  if ADOQueryTree.FieldByName('DPLevel').AsInteger=0 then Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from SY_Dept where DPParent='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
+    Open;
+    if not IsEmpty then
+    begin
+      Application.MessageBox('已经定义下级组织不能删除！','提示',0);
+      Exit;
+    end;
+  end;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from SY_User where DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
+    Open;
+    if not IsEmpty then
+    begin
+      Application.MessageBox('该组织已有人员不能删除！','提示',0);
+      Exit;
+    end;
+  end;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+  with ADOQueryCmd do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('delete SY_Dept where DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
+    sql.Add('delete SY_Dept where DPParent='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
+    ExecSQL;
+  end;
+  InitTree();
+end;
+
+procedure TfrmSYDeptView.DPNameKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key=#13 then
+    DPNo.SetFocus;
+end;
+
+procedure TfrmSYDeptView.FormShow(Sender: TObject);
+begin
+  InitTree();
+end;
+
+procedure TfrmSYDeptView.ToolButton2Click(Sender: TObject);
+begin
+  if CDS_Tree.IsEmpty=False then
+  begin
+    if CDS_User.IsEmpty then Exit;
+    if Application.MessageBox('确定要进行组织分配吗？','提示',32+4)<>IDYES then Exit;
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('Update SY_User Set DPID='''+Trim(CDS_Tree.fieldbyname('DPID').AsString)+'''');
+      sql.Add(' where UserId='''+Trim(CDS_User.fieldbyname('UserId').AsString)+'''');
+      ExecSQL;
+    end;
+    with CDS_User do
+    begin
+      Edit;
+      FieldByName('Dept').Value:=Trim(CDS_Tree.fieldbyname('DPName').AsString);
+      Post;
+    end;
+  end;
+end;
+
+procedure TfrmSYDeptView.cxDBTreeList1DblClick(Sender: TObject);
+begin
+  if CDS_Tree.FieldByName('DPLevel').Value=0 then
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('select A.*,Dept=(select DPName from SY_Dept where DPID=A.DPID) ');
+      SQL.Add(' from SY_User A where UserId not in(''Admin'',''Test'') ');
+      SQL.Add(' and Valid=''Y'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_User);
+    SInitCDSData20(ADOQueryTemp,CDS_User);
+  end else
+  begin
+    with ADOQueryTemp do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('exec P_Select_Dept_User :CYType');
+      Parameters.ParamByName('CYType').Value:=Trim(CDS_Tree.fieldbyname('DPID').AsString);
+      Open;
+    end;
+    SCreateCDS20(ADOQueryTemp,CDS_User);
+    SInitCDSData20(ADOQueryTemp,CDS_User);
+  end;
+  ModalResult:=1;
+end;
+
+procedure TfrmSYDeptView.Tv4DblClick(Sender: TObject);
+begin
+  ModalResult:=1;
+end;
+
+procedure TfrmSYDeptView.ToolButton3Click(Sender: TObject);
+begin
+  ModalResult:=1;
+end;
+
+end.
--- a/产品报价(ProductQuotation)/U_SxXnKcList.dfm
+++ b/产品报价(ProductQuotation)/U_SxXnKcList.dfm
@ -0,0 +1,278 @@
+object frmSxXnKcList: TfrmSxXnKcList
+  Left = 238
+  Top = 107
+  Width = 1283
+  Height = 573
+  Caption = #32433#32447#34394#29702#35770#23384#37327#26597#35810
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1267
+    Height = 31
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_Statistics.ThreeImgList
+    Flat = True
+    Images = DataLink_Statistics.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object ToolButton2: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = ToolButton2Click
+    end
+    object ToolButton1: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 68
+      OnClick = ToolButton1Click
+    end
+    object TBClose: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 31
+    Width = 1267
+    Height = 50
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label3: TLabel
+      Left = 268
+      Top = 13
+      Width = 24
+      Height = 12
+      Caption = #21697#21517
+    end
+    object Label4: TLabel
+      Left = 22
+      Top = 13
+      Width = 24
+      Height = 12
+      Caption = #26085#26399
+    end
+    object Label1: TLabel
+      Left = 145
+      Top = 13
+      Width = 12
+      Height = 12
+      Caption = #33267
+    end
+    object Name: TEdit
+      Tag = 2
+      Left = 300
+      Top = 9
+      Width = 89
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 2
+      OnChange = C_CodeNameChange
+    end
+    object EndDate: TDateTimePicker
+      Left = 162
+      Top = 9
+      Width = 87
+      Height = 20
+      Date = 40768.458268587970000000
+      Time = 40768.458268587970000000
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 1
+    end
+    object BegDate: TDateTimePicker
+      Left = 52
+      Top = 9
+      Width = 85
+      Height = 20
+      Date = 40675.464742650460000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464742650460000000
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 0
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 81
+    Width = 1267
+    Height = 454
+    Align = alClient
+    TabOrder = 2
+    object Tv2: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      NavigatorButtons.Delete.Enabled = False
+      NavigatorButtons.Delete.Visible = False
+      DataController.DataSource = DS_HZ
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_Statistics.SHuangSe
+      Styles.IncSearch = DataLink_Statistics.SHuangSe
+      Styles.Selection = DataLink_Statistics.SHuangSe
+      Styles.Header = DataLink_Statistics.handBlack
+      object v2Column2: TcxGridDBColumn
+        Caption = #32433#32447#21517#31216
+        DataBinding.FieldName = 'Name'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 66
+      end
+      object v2Column19: TcxGridDBColumn
+        Caption = #24635#20837#24211
+        DataBinding.FieldName = 'RKQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 88
+      end
+      object v2Column15: TcxGridDBColumn
+        Caption = #26412#26399#20986#24211
+        DataBinding.FieldName = 'BQKGQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 113
+      end
+      object v2Column6: TcxGridDBColumn
+        Caption = #26399#22806#20986#24211
+        DataBinding.FieldName = 'QCKGQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 91
+      end
+      object v2Column10: TcxGridDBColumn
+        Caption = #29702#35770#24211#23384
+        DataBinding.FieldName = 'KCQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 102
+      end
+      object v2Column1: TcxGridDBColumn
+        Caption = #39044#35745#21487#29992#22825#25968
+        DataBinding.FieldName = 'yjsyts'
+        HeaderAlignmentHorz = taCenter
+        Width = 97
+      end
+      object v2Column3: TcxGridDBColumn
+        Caption = #23454#38469#24211#23384
+        DataBinding.FieldName = 'sjkc'
+        HeaderAlignmentHorz = taCenter
+        Width = 76
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv2
+    end
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_Statistics.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 789
+    Top = 9
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_Statistics.ADOLink
+    Parameters = <>
+    Left = 829
+    Top = 1
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_Statistics.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 949
+    Top = 225
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDB_Main
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 864
+    Top = 224
+    ReportData = {}
+  end
+  object RMDB_Main: TRMDBDataSet
+    Visible = True
+    Left = 928
+    Top = 216
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 888
+    Top = 224
+  end
+  object DS_HZ: TDataSource
+    DataSet = CDS_HZ
+    Left = 899
+    Top = 235
+  end
+  object CDS_HZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 872
+    Top = 224
+  end
+end
--- a/产品报价(ProductQuotation)/U_SxXnKcList.pas
+++ b/产品报价(ProductQuotation)/U_SxXnKcList.pas
@ -0,0 +1,161 @@
+unit U_SxXnKcList;
+
+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, cxDBLookupComboBox;
+
+type
+  TfrmSxXnKcList = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBClose: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    Panel1: TPanel;
+    ToolButton2: TToolButton;
+    ADOQueryMain: TADOQuery;
+    ToolButton1: TToolButton;
+    RM1: TRMGridReport;
+    RMDB_Main: TRMDBDataSet;
+    Label3: TLabel;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridLevel1: TcxGridLevel;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    DS_HZ: TDataSource;
+    CDS_HZ: TClientDataSet;
+    v2Column6: TcxGridDBColumn;
+    v2Column2: TcxGridDBColumn;
+    Name: TEdit;
+    v2Column10: TcxGridDBColumn;
+    v2Column15: TcxGridDBColumn;
+    v2Column19: TcxGridDBColumn;
+    EndDate: TDateTimePicker;
+    Label4: TLabel;
+    BegDate: TDateTimePicker;
+    Label1: TLabel;
+    v2Column1: TcxGridDBColumn;
+    v2Column3: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure C_CodeNameChange(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+  private
+
+    { Private declarations }
+    canshu1:string;
+    procedure InitGrid();
+
+  public
+    fkhType:string;
+    Fmanage:string;
+  end;
+
+var
+  frmSxXnKcList: TfrmSxXnKcList;
+
+implementation
+uses
+  U_DataLink,U_Fun,U_ZDYHelp;
+
+{$R *.dfm}
+
+
+
+procedure TfrmSxXnKcList.InitGrid();
+begin
+  try
+
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;                
+      SQL.Clear;
+      sql.Add(' exec P_View_LLKC'+quotedstr(trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))));
+      sql.Add(' ,'+quotedstr(trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))));
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_HZ);
+    SInitCDSData20(ADOQueryMain,CDS_HZ);
+    CDS_HZ.Last;
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+
+procedure TfrmSxXnKcList.FormDestroy(Sender: TObject);
+begin
+  frmSxXnKcList:=nil;
+end;
+
+procedure TfrmSxXnKcList.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmSxXnKcList.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid(self.Caption,Tv2,'É´Ïß²Ö¿â');
+  Close;
+end;
+procedure TfrmSxXnKcList.FormShow(Sender: TObject);
+begin
+  ReadCxGrid(self.Caption,Tv2,'É´Ïß²Ö¿â');
+  InitGrid();
+end;
+
+procedure TfrmSxXnKcList.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmSxXnKcList.ToolButton2Click(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_HZ);
+    SInitCDSData20(ADOQueryMain,CDS_HZ);
+  end;
+end;
+
+procedure TfrmSxXnKcList.C_CodeNameChange(Sender: TObject);
+begin
+  ToolButton2.Click;
+end;
+
+
+procedure TfrmSxXnKcList.ToolButton1Click(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then Exit;
+  TcxGridToExcel(self.Caption,cxgrid2);
+end;
+
+procedure TfrmSxXnKcList.FormCreate(Sender: TObject);
+begin
+  canshu1:=Trim(DParameters1);
+
+  EndDate.DateTime:=SGetServerDate10(ADOQueryTemp);
+  BegDate.DateTime:=EndDate.DateTime;
+end;
+
+end.
+
+
--- a/产品报价(ProductQuotation)/U_UserModuleNameList.dfm
+++ b/产品报价(ProductQuotation)/U_UserModuleNameList.dfm
@ -0,0 +1,557 @@
+object frmUserModuleNameList: TfrmUserModuleNameList
+  Left = 97
+  Top = 61
+  Width = 1201
+  Height = 618
+  Caption = #21592#24037#27169#22359#21015#34920
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1185
+    Height = 33
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_CYZZ.ThreeImgList
+    Flat = True
+    Images = DataLink_CYZZ.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = TBFindClick
+    end
+    object TBExport: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 16
+      OnClick = TBExportClick
+    end
+    object TBClose: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 33
+    Width = 1185
+    Height = 37
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+  end
+  object cxPageControl1: TcxPageControl
+    Left = 0
+    Top = 70
+    Width = 1185
+    Height = 509
+    ActivePage = cxTabSheet1
+    Align = alClient
+    Style = 8
+    TabOrder = 2
+    OnChange = cxPageControl1Change
+    ClientRectBottom = 509
+    ClientRectRight = 1185
+    ClientRectTop = 23
+    object cxTabSheet1: TcxTabSheet
+      Caption = #27169#22359#34920
+      ImageIndex = 0
+      object cxGrid3: TcxGrid
+        Left = 0
+        Top = 37
+        Width = 1185
+        Height = 449
+        Align = alClient
+        TabOrder = 0
+        object Tv3: TcxGridDBTableView
+          NavigatorButtons.ConfirmDelete = False
+          DataController.DataSource = DataSource1
+          DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+          DataController.Summary.DefaultGroupSummaryItems = <
+            item
+              Format = 'DefStr1'
+            end
+            item
+              Format = 'YCLCode'
+            end
+            item
+              Kind = skCount
+              Position = spFooter
+            end>
+          DataController.Summary.FooterSummaryItems = <
+            item
+              Kind = skCount
+            end>
+          DataController.Summary.SummaryGroups = <>
+          OptionsBehavior.GoToNextCellOnEnter = True
+          OptionsCustomize.ColumnFiltering = False
+          OptionsSelection.CellSelect = False
+          OptionsView.Footer = True
+          OptionsView.GroupByBox = False
+          OptionsView.GroupFooters = gfAlwaysVisible
+          Styles.Inactive = DataLink_CYZZ.SHuangSe
+          Styles.IncSearch = DataLink_CYZZ.SHuangSe
+          Styles.Selection = DataLink_CYZZ.SHuangSe
+          Styles.Header = DataLink_CYZZ.Default
+          object cxGridDBColumn2: TcxGridDBColumn
+            Caption = #27169#22359#21517#31216
+            DataBinding.FieldName = 'FormName'
+            PropertiesClassName = 'TcxTextEditProperties'
+            Properties.Alignment.Horz = taCenter
+            Properties.Alignment.Vert = taVCenter
+            HeaderAlignmentHorz = taCenter
+            Styles.Content = DataLink_CYZZ.FoneRed
+            Styles.Footer = DataLink_CYZZ.FoneRed
+            Styles.Header = DataLink_CYZZ.FoneRed
+            Width = 256
+          end
+          object cxGridDBColumn1: TcxGridDBColumn
+            Caption = #20351#29992#24773#20917
+            DataBinding.FieldName = 'FormNameNote'
+            PropertiesClassName = 'TcxTextEditProperties'
+            Properties.Alignment.Horz = taCenter
+            Properties.Alignment.Vert = taVCenter
+            HeaderAlignmentHorz = taCenter
+            Options.Editing = False
+            Styles.Content = DataLink_CYZZ.FontBlue
+            Styles.Footer = DataLink_CYZZ.FontBlue
+            Styles.Header = DataLink_CYZZ.FontBlue
+            Width = 917
+          end
+        end
+        object cxGridLevel2: TcxGridLevel
+          GridView = Tv3
+        end
+      end
+      object Panel2: TPanel
+        Left = 0
+        Top = 0
+        Width = 1185
+        Height = 37
+        Align = alTop
+        BevelInner = bvRaised
+        BevelOuter = bvLowered
+        Color = clSkyBlue
+        TabOrder = 1
+        object Label1: TLabel
+          Left = 20
+          Top = 12
+          Width = 48
+          Height = 12
+          Caption = #27169#22359#21517#31216
+        end
+        object Label4: TLabel
+          Left = 284
+          Top = 12
+          Width = 48
+          Height = 12
+          Caption = #20351#29992#24773#20917
+        end
+        object FormName: TEdit
+          Tag = 2
+          Left = 70
+          Top = 9
+          Width = 179
+          Height = 20
+          TabOrder = 0
+          OnChange = UserIdChange
+        end
+        object FormNameNote: TEdit
+          Tag = 2
+          Left = 334
+          Top = 9
+          Width = 179
+          Height = 20
+          TabOrder = 1
+          OnChange = UserIdChange
+        end
+      end
+    end
+    object cxTabSheet2: TcxTabSheet
+      Caption = #37096#38376#27169#22359#34920
+      ImageIndex = 1
+      object cxGrid2: TcxGrid
+        Left = 0
+        Top = 37
+        Width = 1185
+        Height = 449
+        Align = alClient
+        TabOrder = 0
+        object Tv2: TcxGridDBTableView
+          NavigatorButtons.ConfirmDelete = False
+          DataController.DataSource = DataSource1
+          DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+          DataController.Summary.DefaultGroupSummaryItems = <
+            item
+              Format = 'DefStr1'
+            end
+            item
+              Format = 'YCLCode'
+            end
+            item
+              Kind = skCount
+              Position = spFooter
+            end>
+          DataController.Summary.FooterSummaryItems = <
+            item
+              Kind = skCount
+            end>
+          DataController.Summary.SummaryGroups = <>
+          OptionsBehavior.GoToNextCellOnEnter = True
+          OptionsCustomize.ColumnFiltering = False
+          OptionsSelection.CellSelect = False
+          OptionsView.Footer = True
+          OptionsView.GroupByBox = False
+          OptionsView.GroupFooters = gfAlwaysVisible
+          Styles.Inactive = DataLink_CYZZ.SHuangSe
+          Styles.IncSearch = DataLink_CYZZ.SHuangSe
+          Styles.Selection = DataLink_CYZZ.SHuangSe
+          Styles.Header = DataLink_CYZZ.Default
+          object cxGridDBColumn3: TcxGridDBColumn
+            Caption = #37096#38376
+            DataBinding.FieldName = 'DPName'
+            PropertiesClassName = 'TcxTextEditProperties'
+            Properties.Alignment.Horz = taCenter
+            Properties.Alignment.Vert = taVCenter
+            HeaderAlignmentHorz = taCenter
+            Options.Editing = False
+            Styles.Content = DataLink_CYZZ.FontBlue
+            Styles.Footer = DataLink_CYZZ.FontBlue
+            Styles.Header = DataLink_CYZZ.FontBlue
+            Width = 116
+          end
+          object cxGridDBColumn4: TcxGridDBColumn
+            Caption = #27169#22359#21517#31216
+            DataBinding.FieldName = 'DFormName'
+            PropertiesClassName = 'TcxTextEditProperties'
+            Properties.Alignment.Horz = taCenter
+            Properties.Alignment.Vert = taVCenter
+            HeaderAlignmentHorz = taCenter
+            Styles.Content = DataLink_CYZZ.FoneRed
+            Styles.Footer = DataLink_CYZZ.FoneRed
+            Styles.Header = DataLink_CYZZ.FoneRed
+            Width = 263
+          end
+        end
+        object cxGridLevel1: TcxGridLevel
+          GridView = Tv2
+        end
+      end
+      object Panel3: TPanel
+        Left = 0
+        Top = 0
+        Width = 1185
+        Height = 37
+        Align = alTop
+        BevelInner = bvRaised
+        BevelOuter = bvLowered
+        Color = clSkyBlue
+        TabOrder = 1
+        object Label2: TLabel
+          Left = 242
+          Top = 12
+          Width = 48
+          Height = 12
+          Caption = #27169#22359#21517#31216
+        end
+        object Label5: TLabel
+          Left = 20
+          Top = 12
+          Width = 24
+          Height = 12
+          Caption = #37096#38376
+        end
+        object DFormName: TEdit
+          Tag = 2
+          Left = 292
+          Top = 9
+          Width = 179
+          Height = 20
+          TabOrder = 0
+          OnChange = UserIdChange
+        end
+        object DPName: TEdit
+          Tag = 2
+          Left = 45
+          Top = 9
+          Width = 179
+          Height = 20
+          TabOrder = 1
+          OnChange = UserIdChange
+        end
+      end
+    end
+    object cxTabSheet3: TcxTabSheet
+      Caption = #21592#24037#27169#22359#34920
+      ImageIndex = 2
+      object cxGrid1: TcxGrid
+        Left = 0
+        Top = 37
+        Width = 1185
+        Height = 449
+        Align = alClient
+        TabOrder = 0
+        object Tv1: TcxGridDBTableView
+          NavigatorButtons.ConfirmDelete = False
+          DataController.DataSource = DataSource1
+          DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+          DataController.Summary.DefaultGroupSummaryItems = <
+            item
+              Format = 'DefStr1'
+            end
+            item
+              Format = 'YCLCode'
+            end
+            item
+              Kind = skCount
+              Position = spFooter
+              Column = v1ShortName
+            end>
+          DataController.Summary.FooterSummaryItems = <
+            item
+              Kind = skCount
+              Column = v1ShortName
+            end>
+          DataController.Summary.SummaryGroups = <>
+          OptionsBehavior.GoToNextCellOnEnter = True
+          OptionsCustomize.ColumnFiltering = False
+          OptionsSelection.CellSelect = False
+          OptionsView.Footer = True
+          OptionsView.GroupByBox = False
+          OptionsView.GroupFooters = gfAlwaysVisible
+          Styles.Inactive = DataLink_CYZZ.SHuangSe
+          Styles.IncSearch = DataLink_CYZZ.SHuangSe
+          Styles.Selection = DataLink_CYZZ.SHuangSe
+          Styles.Header = DataLink_CYZZ.Default
+          object v1ShortName: TcxGridDBColumn
+            Caption = #21592#24037#32534#21495
+            DataBinding.FieldName = 'UserId'
+            PropertiesClassName = 'TcxTextEditProperties'
+            Properties.Alignment.Horz = taCenter
+            Properties.Alignment.Vert = taVCenter
+            HeaderAlignmentHorz = taCenter
+            Width = 108
+          end
+          object v1UnitName: TcxGridDBColumn
+            Tag = 2
+            Caption = #30331#24405#21517#31216
+            DataBinding.FieldName = 'UserName'
+            PropertiesClassName = 'TcxTextEditProperties'
+            Properties.Alignment.Horz = taCenter
+            Properties.Alignment.Vert = taVCenter
+            HeaderAlignmentHorz = taCenter
+            Width = 90
+          end
+          object v1Column1: TcxGridDBColumn
+            Caption = #37096#38376
+            DataBinding.FieldName = 'UDPName'
+            PropertiesClassName = 'TcxTextEditProperties'
+            Properties.Alignment.Horz = taCenter
+            Properties.Alignment.Vert = taVCenter
+            HeaderAlignmentHorz = taCenter
+            Options.Editing = False
+            Styles.Content = DataLink_CYZZ.FontBlue
+            Styles.Footer = DataLink_CYZZ.FontBlue
+            Styles.Header = DataLink_CYZZ.FontBlue
+            Width = 106
+          end
+          object v1Quantity: TcxGridDBColumn
+            Caption = #27169#22359#21517#31216
+            DataBinding.FieldName = 'UFormName'
+            PropertiesClassName = 'TcxTextEditProperties'
+            Properties.Alignment.Horz = taCenter
+            Properties.Alignment.Vert = taVCenter
+            HeaderAlignmentHorz = taCenter
+            Styles.Content = DataLink_CYZZ.FoneRed
+            Styles.Footer = DataLink_CYZZ.FoneRed
+            Styles.Header = DataLink_CYZZ.FoneRed
+            Width = 241
+          end
+        end
+        object cxGrid1Level1: TcxGridLevel
+          GridView = Tv1
+        end
+      end
+      object Panel4: TPanel
+        Left = 0
+        Top = 0
+        Width = 1185
+        Height = 37
+        Align = alTop
+        BevelInner = bvRaised
+        BevelOuter = bvLowered
+        Color = clSkyBlue
+        TabOrder = 1
+        object Label3: TLabel
+          Left = 20
+          Top = 12
+          Width = 48
+          Height = 12
+          Caption = #21592#24037#32534#21495
+        end
+        object Label6: TLabel
+          Left = 212
+          Top = 12
+          Width = 48
+          Height = 12
+          Caption = #30331#24405#21517#31216
+        end
+        object Label7: TLabel
+          Left = 412
+          Top = 12
+          Width = 24
+          Height = 12
+          Caption = #37096#38376
+        end
+        object Label8: TLabel
+          Left = 585
+          Top = 12
+          Width = 48
+          Height = 12
+          Caption = #27169#22359#21517#31216
+        end
+        object UserId: TEdit
+          Tag = 2
+          Left = 70
+          Top = 9
+          Width = 127
+          Height = 20
+          TabOrder = 0
+          OnChange = UserIdChange
+        end
+        object UserName: TEdit
+          Tag = 2
+          Left = 262
+          Top = 9
+          Width = 127
+          Height = 20
+          TabOrder = 1
+          OnChange = UserIdChange
+        end
+        object UDPName: TEdit
+          Tag = 2
+          Left = 437
+          Top = 9
+          Width = 127
+          Height = 20
+          TabOrder = 2
+          OnChange = UserIdChange
+        end
+        object UFormName: TEdit
+          Tag = 2
+          Left = 635
+          Top = 9
+          Width = 127
+          Height = 20
+          TabOrder = 3
+          OnChange = UserIdChange
+        end
+      end
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 680
+    Top = 8
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    Parameters = <>
+    Left = 432
+    Top = 200
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 464
+    Top = 200
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 496
+    Top = 200
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_Main
+    Left = 600
+    Top = 8
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 636
+    Top = 8
+  end
+  object DataSource2: TDataSource
+    DataSet = ClientDataSet2
+    Left = 448
+    Top = 8
+  end
+  object ClientDataSet2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 476
+    Top = 8
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 504
+    Top = 8
+  end
+  object DataSource3: TDataSource
+    DataSet = ClientDataSet3
+    Left = 296
+  end
+  object ClientDataSet3: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 332
+  end
+  object cxGridPopupMenu3: TcxGridPopupMenu
+    Grid = cxGrid3
+    PopupMenus = <>
+    Left = 368
+  end
+end
--- a/产品报价(ProductQuotation)/U_UserModuleNameList.pas
+++ b/产品报价(ProductQuotation)/U_UserModuleNameList.pas
@ -0,0 +1,221 @@
+unit U_UserModuleNameList;   //
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
+  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxGrid, cxCalendar, cxButtonEdit, cxDropDownEdit,
+  DBClient, Menus, cxSplitter, cxTextEdit, RM_Common, RM_Class,
+  RM_GridReport, RM_System, RM_Dataset, RM_e_Xls, dxPSGlbl, dxPSUtl,
+  dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
+  dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, dxPScxCommon, dxPScxGridLnk,
+  cxPC;
+
+type
+  TfrmUserModuleNameList = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBClose: TToolButton;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    TBExport: TToolButton;
+    Panel1: TPanel;
+    CDS_Main: TClientDataSet;
+    DataSource2: TDataSource;
+    ClientDataSet2: TClientDataSet;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    cxPageControl1: TcxPageControl;
+    cxTabSheet1: TcxTabSheet;
+    cxTabSheet2: TcxTabSheet;
+    cxTabSheet3: TcxTabSheet;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1ShortName: TcxGridDBColumn;
+    v1UnitName: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Quantity: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    cxGrid3: TcxGrid;
+    Tv3: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    cxGridLevel2: TcxGridLevel;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridDBColumn3: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    DataSource3: TDataSource;
+    ClientDataSet3: TClientDataSet;
+    cxGridPopupMenu3: TcxGridPopupMenu;
+    Panel2: TPanel;
+    Label1: TLabel;
+    FormName: TEdit;
+    Panel3: TPanel;
+    Label2: TLabel;
+    DFormName: TEdit;
+    Panel4: TPanel;
+    Label3: TLabel;
+    UserId: TEdit;
+    Label4: TLabel;
+    FormNameNote: TEdit;
+    Label5: TLabel;
+    DPName: TEdit;
+    Label6: TLabel;
+    UserName: TEdit;
+    Label7: TLabel;
+    UDPName: TEdit;
+    Label8: TLabel;
+    UFormName: TEdit;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure UserIdChange(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure cxPageControl1Change(Sender: TObject);
+  private
+    canshu1,canshu2:String;
+    procedure InitGrid();
+    procedure InitForm();
+
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmUserModuleNameList: TfrmUserModuleNameList;
+
+implementation
+uses
+  U_DataLink,U_RTFun;
+
+{$R *.dfm}
+
+procedure TfrmUserModuleNameList.FormDestroy(Sender: TObject);
+begin
+  frmUserModuleNameList:=nil;
+end;
+
+procedure TfrmUserModuleNameList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmUserModuleNameList.FormCreate(Sender: TObject);
+begin
+  canshu1:=Trim(DParameters1);
+  canshu2:=Trim(DParameters2);
+end;
+
+procedure TfrmUserModuleNameList.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('员工模块列表',Tv1,'系统管理');
+  WriteCxGrid('部门模块列表',Tv2,'系统管理');
+  WriteCxGrid('模块列表',Tv3,'系统管理');
+end;
+
+procedure TfrmUserModuleNameList.InitGrid();
+begin
+  with ADOQueryMain do
+  begin
+    Filtered:=False;
+    Close;
+    sql.Clear;
+    if cxPageControl1.ActivePageIndex=0 then
+    begin
+      SQL.Add(' exec P_View_ModuleName ');
+    end else
+    if cxPageControl1.ActivePageIndex=1 then
+    begin
+      SQL.Add(' exec P_View_DeptModuleName ');
+    end else
+    if cxPageControl1.ActivePageIndex=2 then
+    begin
+      SQL.Add(' exec P_View_UserModuleName ');
+    end;
+    Open;
+  end;
+  SCreateCDS20(ADOQueryMain,CDS_Main);
+  SInitCDSData20(ADOQueryMain,CDS_Main);
+end;
+
+procedure TfrmUserModuleNameList.InitForm();
+begin
+  ReadCxGrid('员工模块列表',Tv1,'系统管理');
+  ReadCxGrid('部门模块列表',Tv2,'系统管理');
+  ReadCxGrid('模块列表',Tv3,'系统管理');
+  cxPageControl1.ActivePageIndex:=0;
+  //InitGrid();
+end;
+
+procedure TfrmUserModuleNameList.TBFindClick(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  if cxPageControl1.ActivePageIndex=0 then
+    SDofilter(ADOQueryMain,SGetFilters(Panel2,1,2))
+  else if cxPageControl1.ActivePageIndex=1 then
+    SDofilter(ADOQueryMain,SGetFilters(Panel3,1,2))
+  else if cxPageControl1.ActivePageIndex=2 then
+    SDofilter(ADOQueryMain,SGetFilters(Panel4,1,2));
+  SCreateCDS20(ADOQueryMain,CDS_Main);
+  SInitCDSData20(ADOQueryMain,CDS_Main);
+end;
+
+procedure TfrmUserModuleNameList.TBExportClick(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then Exit;
+  if cxPageControl1.ActivePageIndex=0 then
+    TcxGridToExcel('模块列表',cxGrid3)
+  else if cxPageControl1.ActivePageIndex=1 then
+    TcxGridToExcel('部门模块列表',cxGrid2)
+  else if cxPageControl1.ActivePageIndex=2 then
+    TcxGridToExcel('员工模块列表',cxGrid1);
+end;
+
+procedure TfrmUserModuleNameList.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+
+
+procedure TfrmUserModuleNameList.UserIdChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  if cxPageControl1.ActivePageIndex=0 then
+    SDofilter(ADOQueryMain,SGetFilters(Panel2,1,2))
+  else if cxPageControl1.ActivePageIndex=1 then
+    SDofilter(ADOQueryMain,SGetFilters(Panel3,1,2))
+  else if cxPageControl1.ActivePageIndex=2 then
+    SDofilter(ADOQueryMain,SGetFilters(Panel4,1,2));
+  SCreateCDS20(ADOQueryMain,CDS_Main);
+  SInitCDSData20(ADOQueryMain,CDS_Main);
+end;
+
+procedure TfrmUserModuleNameList.FormShow(Sender: TObject);
+begin
+  InitForm();
+end;
+
+
+procedure TfrmUserModuleNameList.cxPageControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+end.
--- a/产品报价(ProductQuotation)/U_YpBaoJiaInput.dfm
+++ b/产品报价(ProductQuotation)/U_YpBaoJiaInput.dfm
@ -0,0 +1,718 @@
+object frmYpBaoJiaInput: TfrmYpBaoJiaInput
+  Left = 490
+  Top = 107
+  Width = 829
+  Height = 724
+  Caption = #25253#20215#24405#20837
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  WindowState = wsMaximized
+  OnCreate = FormCreate
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 813
+    Height = 29
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar1'
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_ProductQuotation.ThreeImgList
+    List = True
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBSave: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 5
+      OnClick = TBSaveClick
+    end
+    object btn1: TToolButton
+      Left = 63
+      Top = 0
+      Caption = #35745#31639#20135#37327
+      ImageIndex = 22
+      OnClick = btn1Click
+    end
+    object TBClose: TToolButton
+      Left = 146
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object ScrollBox1: TScrollBox
+    Left = 0
+    Top = 29
+    Width = 813
+    Height = 144
+    Align = alTop
+    BevelInner = bvLowered
+    BevelOuter = bvRaised
+    Ctl3D = True
+    ParentCtl3D = False
+    TabOrder = 1
+    OnClick = ScrollBox1Click
+    object Label1: TLabel
+      Left = 20
+      Top = 16
+      Width = 60
+      Height = 12
+      Caption = #25253#20215#21333#21495#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 584
+      Top = 64
+      Width = 60
+      Height = 12
+      Caption = #20132#36135#26085#26399#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      Visible = False
+    end
+    object Label2: TLabel
+      Left = 272
+      Top = 16
+      Width = 60
+      Height = 12
+      Caption = #25253#20215#26085#26399#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 584
+      Top = 88
+      Width = 60
+      Height = 12
+      Caption = #23458'    '#25143#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      Visible = False
+    end
+    object Label6: TLabel
+      Left = 20
+      Top = 40
+      Width = 60
+      Height = 12
+      Caption = #32534'    '#21495#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label20: TLabel
+      Left = 272
+      Top = 40
+      Width = 60
+      Height = 12
+      Caption = #21697'    '#21517#65306
+    end
+    object Label22: TLabel
+      Left = 20
+      Top = 64
+      Width = 60
+      Height = 12
+      Caption = #38376'    '#24133#65306
+    end
+    object Label23: TLabel
+      Left = 272
+      Top = 64
+      Width = 60
+      Height = 12
+      Caption = #20811'    '#37325#65306
+    end
+    object Label27: TLabel
+      Left = 584
+      Top = 40
+      Width = 60
+      Height = 12
+      Caption = #22995'    '#21517#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      Visible = False
+    end
+    object Label28: TLabel
+      Left = 584
+      Top = 16
+      Width = 60
+      Height = 12
+      Caption = #32852#31995#30005#35805#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      Visible = False
+    end
+    object Label5: TLabel
+      Left = 20
+      Top = 88
+      Width = 60
+      Height = 12
+      Caption = #38024'    '#22411#65306
+    end
+    object Label7: TLabel
+      Left = 272
+      Top = 88
+      Width = 60
+      Height = 12
+      Caption = #36135'    '#21495#65306
+    end
+    object Label8: TLabel
+      Left = 20
+      Top = 112
+      Width = 60
+      Height = 12
+      Caption = #37325'    '#37327#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label9: TLabel
+      Left = 272
+      Top = 112
+      Width = 60
+      Height = 12
+      Caption = #24635' '#38024' '#25968#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label10: TLabel
+      Left = 584
+      Top = 111
+      Width = 60
+      Height = 12
+      Caption = #20998#38047#36716#25968#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object BjNo: TEdit
+      Left = 76
+      Top = 12
+      Width = 144
+      Height = 20
+      Enabled = False
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 0
+      Text = #33258#21160#29983#25104
+    end
+    object Jhtime: TDateTimePicker
+      Left = 644
+      Top = 60
+      Width = 144
+      Height = 20
+      BevelInner = bvNone
+      Date = 40916.000000000000000000
+      Format = 'yyyy-MM-dd'
+      Time = 40916.000000000000000000
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 8
+      Visible = False
+    end
+    object Bjtime: TDateTimePicker
+      Left = 328
+      Top = 12
+      Width = 144
+      Height = 20
+      BevelInner = bvNone
+      Date = 40916.000000000000000000
+      Format = 'yyyy-MM-dd'
+      Time = 40916.000000000000000000
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 1
+    end
+    object CustomerName: TcxButtonEdit
+      Left = 644
+      Top = 84
+      Hint = #35746#36135#21333#20301
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = CustomerNamePropertiesButtonClick
+      TabOrder = 11
+      Visible = False
+      Width = 144
+    end
+    object BjCode: TcxButtonEdit
+      Left = 76
+      Top = 36
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.ReadOnly = True
+      Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick
+      TabOrder = 3
+      Width = 144
+    end
+    object BjName: TEdit
+      Left = 328
+      Top = 36
+      Width = 144
+      Height = 20
+      Enabled = False
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 4
+    end
+    object BjMF: TEdit
+      Left = 76
+      Top = 60
+      Width = 144
+      Height = 20
+      Enabled = False
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 6
+    end
+    object BjKZ: TEdit
+      Left = 328
+      Top = 60
+      Width = 144
+      Height = 20
+      Enabled = False
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 7
+    end
+    object BJer: TcxButtonEdit
+      Left = 644
+      Top = 36
+      BeepOnEnter = False
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = cxButtonEdit3PropertiesButtonClick
+      TabOrder = 5
+      Visible = False
+      Width = 144
+    end
+    object BJPhone: TEdit
+      Left = 644
+      Top = 12
+      Width = 144
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 2
+      Visible = False
+    end
+    object zhenxing: TEdit
+      Left = 76
+      Top = 84
+      Width = 144
+      Height = 20
+      Enabled = False
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 9
+    end
+    object huohao: TEdit
+      Left = 328
+      Top = 84
+      Width = 144
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 10
+    end
+    object zongzhenqty: TEdit
+      Left = 328
+      Top = 108
+      Width = 144
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 12
+    end
+    object MFZZS: TEdit
+      Left = 644
+      Top = 108
+      Width = 144
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 13
+    end
+    object wlzl: TEdit
+      Left = 76
+      Top = 108
+      Width = 144
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 14
+    end
+  end
+  object ScrollBox2: TScrollBox
+    Left = 0
+    Top = 467
+    Width = 813
+    Height = 219
+    Align = alBottom
+    BevelInner = bvLowered
+    BevelOuter = bvRaised
+    Ctl3D = True
+    ParentCtl3D = False
+    TabOrder = 3
+    OnClick = ScrollBox2Click
+    object Label37: TLabel
+      Left = 421
+      Top = 80
+      Width = 60
+      Height = 12
+      Caption = #36816'    '#36153#65306
+    end
+    object Label39: TLabel
+      Left = 421
+      Top = 32
+      Width = 60
+      Height = 12
+      Caption = #26426' '#21488' '#36153#65306
+    end
+    object Label40: TLabel
+      Left = 409
+      Top = 56
+      Width = 72
+      Height = 12
+      Caption = #30333#22383#21152#24037#36153#65306
+    end
+    object Label51: TLabel
+      Left = 421
+      Top = 104
+      Width = 60
+      Height = 12
+      Caption = #25104#26412#21512#35745#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label52: TLabel
+      Left = 421
+      Top = 128
+      Width = 60
+      Height = 12
+      Caption = #21334'    '#20215#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label53: TLabel
+      Left = 421
+      Top = 152
+      Width = 60
+      Height = 12
+      Caption = #21033'    '#28070#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label54: TLabel
+      Left = 421
+      Top = 176
+      Width = 60
+      Height = 12
+      Caption = #21033' '#28070' '#28857#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label24: TLabel
+      Left = 421
+      Top = 8
+      Width = 60
+      Height = 12
+      Caption = #20135'    '#37327#65306
+    end
+    object Label11: TLabel
+      Left = 617
+      Top = 8
+      Width = 60
+      Height = 12
+      Caption = #24635' '#36716' '#25968#65306
+    end
+    object YfCost: TEdit
+      Left = 477
+      Top = 77
+      Width = 129
+      Height = 20
+      BiDiMode = bdLeftToRight
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      ParentBiDiMode = False
+      TabOrder = 4
+    end
+    object DjBzCost: TEdit
+      Left = 477
+      Top = 29
+      Width = 129
+      Height = 20
+      BiDiMode = bdLeftToRight
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      ParentBiDiMode = False
+      TabOrder = 2
+      OnKeyPress = DjBzCostKeyPress
+    end
+    object Price: TEdit
+      Left = 477
+      Top = 125
+      Width = 129
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 6
+    end
+    object CbPrice: TEdit
+      Left = 477
+      Top = 101
+      Width = 129
+      Height = 20
+      Enabled = False
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 5
+    end
+    object Lr: TEdit
+      Left = 477
+      Top = 149
+      Width = 129
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      ReadOnly = True
+      TabOrder = 7
+    end
+    object Lrd: TEdit
+      Left = 477
+      Top = 173
+      Width = 129
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      ReadOnly = True
+      TabOrder = 8
+    end
+    object ZzCost: TEdit
+      Left = 477
+      Top = 53
+      Width = 129
+      Height = 20
+      BiDiMode = bdLeftToRight
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      ParentBiDiMode = False
+      TabOrder = 3
+    end
+    object BjNote: TMemo
+      Left = 12
+      Top = 9
+      Width = 385
+      Height = 173
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      ScrollBars = ssVertical
+      TabOrder = 1
+    end
+    object Qty: TEdit
+      Left = 477
+      Top = 5
+      Width = 129
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 0
+    end
+    object Tzhuanshu: TEdit
+      Left = 673
+      Top = 5
+      Width = 129
+      Height = 20
+      BiDiMode = bdLeftToRight
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      ParentBiDiMode = False
+      TabOrder = 9
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 173
+    Width = 813
+    Height = 294
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = 'C_Code'
+          Column = v1Column1
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v1Column7
+        end
+        item
+          Kind = skSum
+          Column = v1Column1
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.FocusCellOnTab = True
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Header = DataLink_ProductQuotation.Default
+      object v1Column10: TcxGridDBColumn
+        Caption = #21407#26009
+        DataBinding.FieldName = 'wlname'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 301
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #27604#20363'%'
+        DataBinding.FieldName = 'bili'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ProductQuotation.Default
+        Width = 55
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #25439#32791
+        DataBinding.FieldName = 'YlShb'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 52
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #21407#26009#21333#20215
+        DataBinding.FieldName = 'wlprice'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = v1Column1PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 69
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #25104#26412#21333#20215
+        DataBinding.FieldName = 'wlmoney'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 87
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #32433#25903
+        DataBinding.FieldName = 'YCLSpec'
+        HeaderAlignmentHorz = taCenter
+        Width = 65
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #32433#38271
+        DataBinding.FieldName = 'ShaChang'
+        HeaderAlignmentHorz = taCenter
+        Width = 65
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #36335#25968
+        DataBinding.FieldName = 'yongshalushu'
+        HeaderAlignmentHorz = taCenter
+        Width = 65
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ADOTemp: TADOQuery
+    Connection = DataLink_ProductQuotation.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 452
+    Top = 248
+  end
+  object ADOCmd: TADOQuery
+    Connection = DataLink_ProductQuotation.ADOLink
+    Parameters = <>
+    Left = 409
+    Top = 245
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Sub
+    Left = 479
+    Top = 298
+  end
+  object Order_Sub: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 412
+    Top = 285
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_ProductQuotation.ADOLink
+    Parameters = <>
+    Left = 512
+    Top = 241
+  end
+end
--- a/产品报价(ProductQuotation)/U_YpBaoJiaInput.pas
+++ b/产品报价(ProductQuotation)/U_YpBaoJiaInput.pas
@ -0,0 +1,670 @@
+unit U_YpBaoJiaInput;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+  cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
+  cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
+  StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxDropDownEdit;
+
+type
+  TfrmYpBaoJiaInput = class(TForm)
+    ToolBar1: TToolBar;
+    TBSave: TToolButton;
+    TBClose: TToolButton;
+    ADOTemp: TADOQuery;
+    ADOCmd: TADOQuery;
+    DataSource1: TDataSource;
+    Order_Sub: TClientDataSet;
+    ADOQuery1: TADOQuery;
+    ScrollBox1: TScrollBox;
+    Label1: TLabel;
+    Label4: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    Label6: TLabel;
+    Label20: TLabel;
+    Label22: TLabel;
+    Label23: TLabel;
+    Label27: TLabel;
+    Label28: TLabel;
+    BjNo: TEdit;
+    Jhtime: TDateTimePicker;
+    Bjtime: TDateTimePicker;
+    CustomerName: TcxButtonEdit;
+    BjCode: TcxButtonEdit;
+    BjName: TEdit;
+    BjMF: TEdit;
+    BjKZ: TEdit;
+    BJer: TcxButtonEdit;
+    BJPhone: TEdit;
+    ScrollBox2: TScrollBox;
+    Label37: TLabel;
+    Label39: TLabel;
+    Label40: TLabel;
+    Label51: TLabel;
+    Label52: TLabel;
+    Label53: TLabel;
+    Label54: TLabel;
+    YfCost: TEdit;
+    DjBzCost: TEdit;
+    Price: TEdit;
+    CbPrice: TEdit;
+    Lr: TEdit;
+    Lrd: TEdit;
+    ZzCost: TEdit;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column10: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    v1Column5: TcxGridDBColumn;
+    BjNote: TMemo;
+    Label24: TLabel;
+    Qty: TEdit;
+    Label5: TLabel;
+    zhenxing: TEdit;
+    Label7: TLabel;
+    huohao: TEdit;
+    v1Column2: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    Label8: TLabel;
+    Label9: TLabel;
+    zongzhenqty: TEdit;
+    Label10: TLabel;
+    MFZZS: TEdit;
+    btn1: TToolButton;
+    Tzhuanshu: TEdit;
+    Label11: TLabel;
+    wlzl: TEdit;
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBSaveClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure cxButtonEdit3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+    procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+    procedure v1Column1PropertiesEditValueChanged(Sender: TObject);
+    procedure CustomerNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+    procedure BjZKSExit(Sender: TObject);
+    procedure ScrollBox2Click(Sender: TObject);
+    procedure ScrollBox1Click(Sender: TObject);
+    procedure btn1Click(Sender: TObject);
+    procedure DjBzCostKeyPress(Sender: TObject; var Key: Char);
+  private
+    FXS: Integer;
+    procedure InitData();
+    procedure InitWlPb();
+    procedure upWlPb();
+    procedure InitYLQty();
+    function SaveData(): Boolean;
+    function RoundFloat(f: double; i: integer): double;
+    procedure CBHJ();
+    function Setstring(cString: string): string; 
+    { Private declarations }
+  public
+    PState, PCopyInt: Integer;
+    FMainId, FConNo: string;
+    { Public declarations }
+  end;
+
+var
+  frmYpBaoJiaInput: TfrmYpBaoJiaInput;
+
+implementation
+
+uses
+  U_DataLink, U_ZDYHelp, U_Fun, U_CPManageFMSel;                //,U_ZdyAttachment
+
+{$R *.dfm}
+
+procedure TfrmYpBaoJiaInput.InitYLQty();
+var
+  MMmkz, MYlShb: double;
+begin
+
+  with Order_Sub do
+  begin
+    first;
+    while not eof do
+    begin
+      with Order_Sub do
+      begin
+        MMmkz := FieldByName('Mmkz').AsFloat;
+        MYlShb := FieldByName('YlShb').AsFloat;
+        edit;
+        FieldByName('YLQty').Value := RoundFloat(MMmkz * StrToFloatDef(Setstring(Qty.Text), 0) / 1000 * (MYlShb + 100) / 100, 2);
+
+        post;
+      end;
+
+      next;
+    end;
+  end;
+  tv1.Controller.EditingController.ShowEdit();
+
+end;
+
+function TfrmYpBaoJiaInput.Setstring(cString: string): string;   {提取数字}
+var
+  i: integer;
+  str: string;
+begin
+  str := '';
+  for i := 1 to length(cString) do
+  begin
+    if Pos(cString[i], '0123456789.') <= 0 then
+      break
+    else
+      case cString[i] of
+        '.':
+          str := str + '.';
+
+        '0':
+          str := str + '0';
+        '1':
+          str := str + '1';
+        '2':
+          str := str + '2';
+        '3':
+          str := str + '3';
+        '4':
+          str := str + '4';
+        '5':
+          str := str + '5';
+        '6':
+          str := str + '6';
+        '7':
+          str := str + '7';
+        '8':
+          str := str + '8';
+        '9':
+          str := str + '9';
+      end;
+  end;
+  Setstring := str;
+end;
+
+procedure TfrmYpBaoJiaInput.upWlPb();
+var
+  MBiLi, MYlShb, MWlPrice, MWlMoney: Double;
+begin
+  if Order_Sub.IsEmpty then
+    Exit;
+
+  with Order_Sub do
+  begin
+    DisableControls;
+    First;
+    while not Eof do
+    begin
+      MBiLi := fieldbyname('BiLi').AsFloat;
+      MYlShb := fieldbyname('YlShb').AsFloat;
+      MWlPrice := fieldbyname('WlPrice').AsFloat;
+
+      MWlMoney := RoundFloat(MWlPrice * (MYlShb + 100) * MBiLi / 10000, 2);
+      Edit;
+      fieldbyname('WlMoney').Value := MWlMoney;
+      Next;
+    end;
+    EnableControls;
+  end;
+  tv1.Controller.EditingController.ShowEdit();
+end;
+
+procedure TfrmYpBaoJiaInput.InitWlPb();
+begin
+  with ADOTemp do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('select WLID='''',WLName=A.YCLName,BiLi=A.PBQty,Mmkz=0,WlPrice=cast(0 as decimal(18,2)),WlMoney=cast(0 as decimal(18,2)),YlShb=A.ZPSH,YongShaLuShu,ShaChang,YCLSpec');
+    sql.Add(',BjMainID='''',BjSubID='''',YLQty=0  from Cloth_YCL_PB A where MainId=(select  top 1 B.MainId from Cloth_Main B  inner join Cloth_Sub C on B.MainId=C.MainId');
+    SQL.Add('where C_Code=' + Quotedstr(Trim(BjCode.Text)));
+    SQL.Add('order by B.Filltime desc)');
+   // ShowMessage(SQL.Text);
+//    sql.Add('select BjMainID='''',BjSubID='''',Mmkz=0.00,WlMoney=0.00, YLQty=0.00,YLbl BiLi,WLID='''', YLName WLName, YlShb=0.00, WlPrice=0.00 ');
+//    sql.Add('from CP_YDangSpec A  ');
+//    sql.Add(' where A.CYID=(select top 1 CYID from CP_YDang where CYNo='+Quotedstr(Trim(BjCode.Text))+')');
+//    sql.Add(' and isnull(YLName,'''')<>'''' and  isnull(YLbl,0)<>0 ');
+//    ShowMessage(SQL.Text);
+    Open;
+  end;
+  SCreateCDS20(ADOTemp, Order_Sub);
+  SInitCDSData20(ADOTemp, Order_Sub);
+end;
+
+function TfrmYpBaoJiaInput.RoundFloat(f: double; i: integer): double;
+var
+  s: string;
+  ef: extended;
+begin
+  s := '#.' + StringOfChar('0', i);
+  ef := StrToFloat(FloatToStr(f)); //防止浮点运算的误差
+  result := StrToFloat(FormatFloat(s, ef));
+end;
+
+procedure TfrmYpBaoJiaInput.CBHJ();
+var
+  MWlCost, MHclPrice, MZzCost, MHclCost, MDjBzCost, MQty, MKfCost, MBlKfCost, MYfCost, MLxCost, MBlLxCost, MYwCost, MBlYwCost, MSdCost, MBlSdCost, MBlZshCost, MZshCost, MBjZKS, MCbPrice, MPrice, MLr, MLrd: Double;
+begin
+  if TV1.DataController.Summary.FooterSummaryValues[0] <> NULL then
+    MWlCost := TV1.DataController.Summary.FooterSummaryValues[0]
+  else
+    MWlCost := 0;
+   //产量
+  MQty := StrToFloatDef(Qty.Text, 0);
+
+   //机台费
+  MDjBzCost := StrToFloatDef(DjBzCost.Text, 0);
+
+    //白坯加工费
+  if MQty > 0 then
+  begin
+    MZzCost := RoundFloat(MDjBzCost / MQty, 2);
+    ZzCost.Text := FloatToStr(MZzCost);
+  end
+  else
+  begin
+    ZzCost.Text := '0';
+  end;
+   //卖价
+  MPrice := StrToFloatDef(Price.Text, 0);
+   //运费
+  MYfCost := StrToFloatDef(YfCost.Text, 0);
+
+
+   //成本
+  MCbPrice := MWlCost + MZzCost + MYfCost;
+
+  MCbPrice := RoundFloat(MCbPrice, 2);
+
+  CbPrice.Text := FloatToStr(MCbPrice);
+
+  if MPrice > 0 then
+  begin
+
+    MLr := RoundFloat(MPrice - MCbPrice, 2);
+    MLrd := RoundFloat(MLr / MPrice * 100, 2);
+    Lr.Text := FloatToStr(MLr);
+    Lrd.Text := FloatToStr(MLrd);
+  end;
+end;
+
+procedure TfrmYpBaoJiaInput.TBCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+procedure TfrmYpBaoJiaInput.InitData();
+begin
+  with ADOQuery1 do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('select A.*');
+    sql.Add('from BaoJiaSub A');
+    sql.Add('where A.BjMainID=''' + FMainId + '''');
+    Open;
+  end;
+  SCreateCDS20(ADOQuery1, Order_Sub);
+  SInitCDSData20(ADOQuery1, Order_Sub);
+  with ADOQuery1 do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('select A.*');
+    sql.Add('from BaoJiaMain A');
+    sql.Add('where A.BJMainID=''' + FMainId + '''');
+    Open;
+  end;
+  SCSHData(ADOQuery1, ScrollBox1, 0);
+  SCSHData(ADOQuery1, ScrollBox2, 0);
+end;
+
+procedure TfrmYpBaoJiaInput.FormShow(Sender: TObject);
+begin
+  InitData();
+  if PState = 0 then
+  begin
+
+  end;
+
+  if PState = 2 then
+  begin
+    ScrollBox1.Enabled := False;
+    ScrollBox2.Enabled := False;
+    TBSave.Visible := False;
+    cxGrid1.Enabled := False;
+  end;
+
+  if PCopyInt = 1 then
+  begin
+    with Order_Sub do
+    begin
+      first;
+      while not eof do
+      begin
+        Edit;
+        fieldbyname('BjSubID').value := '';
+        Next;
+      end;
+    end;
+    FMainId := '';
+    PState := 0;
+    bjno.Text := '自动生成';
+  end;
+end;
+
+function TfrmYpBaoJiaInput.SaveData(): Boolean;
+var
+  maxno, maxSubNo: string;
+begin
+  try
+    ADOCmd.Connection.BeginTrans;
+    ///保存主表
+    if Trim(FMainId) = '' then
+    begin
+      if GetLSNo(ADOCmd, maxno, 'BJ', 'BaoJiaMain', 2, 1) = False then
+      begin
+        ADOCmd.Connection.RollbackTrans;
+        Application.MessageBox('生成流水号异常！', '提示', 0);
+        exit;
+      end;
+      BjNo.Text := maxno;
+    end
+    else
+    begin
+      maxno := Trim(FMainId);
+    end;
+
+    with ADOCmd do
+    begin
+      Close;
+      sql.Clear;
+      SQL.Add('select * from BaoJiaMain where BjMainID=''' + Trim(maxno) + '''');
+      Open;
+    end;
+    with ADOCmd do
+    begin
+      if ADOCmd.IsEmpty then
+        Append
+      else
+        edit;
+      FieldByName('ZzType').Value := '针织';
+      FieldByName('BjMainID').Value := Trim(maxno);
+      SSetsaveSql(ADOCmd, 'Contract_Main', ScrollBox1, 0);
+      SSetsaveSql(ADOCmd, 'Contract_Main', ScrollBox2, 0);
+      if Trim(FMainId) = '' then
+      begin
+        FieldByName('Filler').Value := Trim(DName);
+        FieldByName('FillTime').Value := SGetServerDateTime(ADOTemp);
+      end
+      else
+      begin
+        FieldByName('Editer').Value := Trim(DName);
+        FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
+      end;
+      Post;
+    end;
+    FMainId := Trim(maxno);
+    ///保存子表
+    with Order_Sub do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Trim(Order_Sub.fieldbyname('BjSubID').AsString) = '' then
+        begin
+          if GetLSNo(ADOCmd, maxSubNo, 'BJS', 'BaoJiaSub', 3, 1) = False then
+          begin
+            ADOCmd.Connection.RollbackTrans;
+            Application.MessageBox('取子流水号失败！', '提示', 0);
+            Exit;
+          end;
+        end
+        else
+        begin
+          maxSubNo := Trim(Order_Sub.fieldbyname('BjSubID').AsString);
+        end;
+        with ADOCmd do
+        begin
+          Close;
+          SQL.Clear;
+          sql.Add('select * from BaoJiaSub where BjMainId=''' + Trim(FMainId) + '''');
+          sql.Add(' and BjSubId=''' + Trim(maxSubNo) + '''');
+          Open;
+        end;
+        with ADOCmd do
+        begin
+          if ADOCmd.IsEmpty then
+            Append
+          else
+            edit;
+//          SSetSaveDataCDSNew(ADOCmd,Tv1,Order_Sub,'BaoJiaSub',1);
+          FieldByName('WLID').Value := Order_Sub.FieldByName('WLID').Value;
+          FieldByName('WLName').Value := Order_Sub.FieldByName('wlname').Value; //ylname
+          FieldByName('BiLi').Value := Order_Sub.FieldByName('bili').Value;    //bili
+          FieldByName('WlMoney').Value := Order_Sub.FieldByName('WlMoney').Value;
+          FieldByName('Mmkz').Value := Order_Sub.FieldByName('Mmkz').Value;
+          FieldByName('WlPrice').Value := Order_Sub.FieldByName('WlPrice').Value;
+          FieldByName('YlShb').Value := Order_Sub.FieldByName('YlShb').Value;  //YlShb
+          FieldByName('YLQty').Value := Order_Sub.FieldByName('YLQty').Value;
+          FieldByName('YCLSpec').Value := Order_Sub.FieldByName('YCLSpec').Value;
+          FieldByName('ShaChang').Value := Order_Sub.FieldByName('ShaChang').Value;
+          FieldByName('yongshalushu').Value := Order_Sub.FieldByName('yongshalushu').Value;
+          FieldByName('BjMainId').Value := Trim(maxno);
+          FieldByName('BjSubId').Value := Trim(maxSubNo);
+          Post;
+        end;
+        Order_Sub.Edit;
+        Order_Sub.FieldByName('BjSubId').Value := Trim(maxSubNo);
+        Next;
+      end;
+    end;
+    ADOCmd.Connection.CommitTrans;
+    Result := True;
+  except
+    Result := False;
+    ADOCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！', '提示', 0);
+  end;
+end;
+
+procedure TfrmYpBaoJiaInput.TBSaveClick(Sender: TObject);
+begin
+  lrd.SetFocus;
+//  if Trim(CustomerName.Text)='' then
+//  begin
+//    Application.MessageBox('客户不能为空！','提示',0);
+//    Exit;
+//  end;
+//
+//  if TV1.DataController.Summary.FooterSummaryValues[1]<>100 then
+//  begin
+//     Application.MessageBox('比例合计必须为100！','提示',0);
+//     Exit;
+//  end;
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功！', '提示', 0);
+  end;
+end;
+
+procedure TfrmYpBaoJiaInput.FormCreate(Sender: TObject);
+begin
+  SetWindowLong(Qty.Handle, GWL_STYLE, GetWindowLong(Qty.Handle, GWL_STYLE) or ES_MULTILINE or ES_RIGHT);
+  SetWindowLong(ZzCost.Handle, GWL_STYLE, GetWindowLong(ZzCost.Handle, GWL_STYLE) or ES_MULTILINE or ES_RIGHT);
+  SetWindowLong(DjBzCost.Handle, GWL_STYLE, GetWindowLong(DjBzCost.Handle, GWL_STYLE) or ES_MULTILINE or ES_RIGHT);
+  SetWindowLong(YfCost.Handle, GWL_STYLE, GetWindowLong(YfCost.Handle, GWL_STYLE) or ES_MULTILINE or ES_RIGHT);
+  SetWindowLong(CbPrice.Handle, GWL_STYLE, GetWindowLong(CbPrice.Handle, GWL_STYLE) or ES_MULTILINE or ES_RIGHT);
+  SetWindowLong(Price.Handle, GWL_STYLE, GetWindowLong(Price.Handle, GWL_STYLE) or ES_MULTILINE or ES_RIGHT);
+  SetWindowLong(Lr.Handle, GWL_STYLE, GetWindowLong(Lr.Handle, GWL_STYLE) or ES_MULTILINE or ES_RIGHT);
+  SetWindowLong(Lrd.Handle, GWL_STYLE, GetWindowLong(Lrd.Handle, GWL_STYLE) or ES_MULTILINE or ES_RIGHT);
+
+  Bjtime.DateTime := SGetServerDate(ADOTemp);
+
+end;
+
+procedure TfrmYpBaoJiaInput.cxButtonEdit3PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag := TcxButtonEdit(Sender).Name;
+      flagname := TcxButtonEdit(Sender).Hint;
+      V1Name.Caption := '联系人';
+      fnote := True;
+      V1Note.Caption := '联系电话';
+      if ShowModal = 1 then
+      begin
+        BJer.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+        BJPhone.Text := Trim(ClientDataSet1.fieldbyname('Note').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmYpBaoJiaInput.cxButtonEdit1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmCPManageFMSel := TfrmCPManageFMSel.Create(Application);
+    with frmCPManageFMSel do
+    begin
+      if ShowModal = 1 then
+      begin
+        BjCode.Text := Trim(CDS_Main.fieldbyname('CYNo').AsString);
+        BjName.Text := Trim(CDS_Main.fieldbyname('CYName').AsString);
+        BjMF.Text := Trim(CDS_Main.fieldbyname('CYMF').AsString);
+        BjKZ.Text := Trim(CDS_Main.fieldbyname('CYKZ').AsString);
+        ZhenXing.Text := Trim(CDS_Main.fieldbyname('ZhenXing').AsString);
+        Qty.Text := Trim(CDS_Main.fieldbyname('CYCL').AsString);
+  //      zongzhenqty.Text := Trim(CDS_Main.fieldbyname('zongzhenqty').AsString);
+    //    MFZZS.Text := Trim(CDS_Main.fieldbyname('MFZZS').AsString);
+        InitWlPb();
+        CBHJ();
+      end;
+    end;
+  finally
+    frmCPManageFMSel.Free;
+  end;
+end;
+
+procedure TfrmYpBaoJiaInput.v1Column1PropertiesEditValueChanged(Sender: TObject);
+var
+  mavlue, FFieldName: string;
+  MBiLi, MYlShb, MWlPrice: Double;
+begin
+  mavlue := TcxTextEdit(Sender).EditingText;
+  FFieldName := Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
+  if mavlue = '' then
+    mavlue := '0';
+  with Order_Sub do
+  begin
+    edit;
+    FieldByName(FFieldName).Value := mavlue;
+    post;
+    MBiLi := FieldByName('BiLi').AsFloat;
+    MWlPrice := FieldByName('WlPrice').AsFloat;
+    MYlShb := FieldByName('YlShb').AsFloat;
+  end;
+
+  with Order_Sub do
+  begin
+    edit;
+    FieldByName('WlMoney').Value := RoundFloat(MWlPrice * (MYlShb + 100) * MBiLi / 10000, 2);
+    post;
+  end;
+  tv1.Controller.EditingController.ShowEdit();
+  CBHJ();
+end;
+
+procedure TfrmYpBaoJiaInput.CustomerNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+//  try
+//    frmZdyAttachment:=TfrmZdyAttachment.Create(Application);
+//    with frmZdyAttachment do
+//    begin
+//      if ShowModal=1 then
+//      begin
+//        CustomerName.Text:=Trim(CDS_HZ.fieldbyname('ZDYName').AsString);
+//        CustomerLevel.Text:=Trim(CDS_HZ.fieldbyname('DEFStr6').AsString);
+//        if  Trim(CustomerLevel.Text)='A' then
+//        begin
+//           ZzCost.Text:='1.5';
+//           CBHJ();
+//        end;
+//      end;
+//    end;
+//  finally
+//    frmZdyAttachment.Free;
+//  end;
+end;
+
+procedure TfrmYpBaoJiaInput.BjZKSExit(Sender: TObject);
+begin
+  upWlPb();
+  CBHJ();
+end;
+
+procedure TfrmYpBaoJiaInput.ScrollBox2Click(Sender: TObject);
+begin
+  lrd.SetFocus;
+end;
+
+procedure TfrmYpBaoJiaInput.ScrollBox1Click(Sender: TObject);
+begin
+  lrd.SetFocus;
+end;
+
+procedure TfrmYpBaoJiaInput.btn1Click(Sender: TObject);
+var
+  SSY, ZS, xx, xx2, xx3: Double;
+begin
+  SSY := 0;
+  with Order_Sub do
+  begin
+    first;
+    while not Eof do
+    begin
+      SSY := SSY + FieldByName('YCLSpec').AsFloat * FieldByName('ShaChang').AsFloat * FieldByName('yongshalushu').AsFloat / 45000;
+      Next;
+    end;
+  end;
+  ZS := StrToFloatDef(wlzl.Text, 0) * 1000000 / StrToFloatDef(zongzhenqty.Text, 0) / SSY;
+  xx := RoundFloat(ZS, 0);
+  Tzhuanshu.Text := floattostr(xx);
+//         Qty.Text:=floattostr(  ZS);
+ // xx2 := floattostr(StrToFloatDef(MFZZS.Text, 0) / ZS * StrToFloatDef(wlzl.Text, 0) * 1440 * 0.88);
+  xx2 := StrToFloatDef(MFZZS.Text, 0) / ZS * StrToFloatDef(wlzl.Text, 0) * 1440 * 0.88;
+  xx3 := RoundFloat(xx2, 1);
+  Qty.Text := floattostr(xx3);
+end;
+
+procedure TfrmYpBaoJiaInput.DjBzCostKeyPress(Sender: TObject; var Key: Char);
+var
+  zs, xx: Double;
+begin
+  if Key = #13 then
+  begin
+        CBHJ();
+//    zs := StrToFloatDef(DjBzCost.Text, 0) / StrToFloatDef(qty.Text, 0);
+//    xx := RoundFloat(zs, 2);
+//
+////         Qty.Text:=floattostr(  ZS);
+// // xx2 := floattostr(StrToFloatDef(MFZZS.Text, 0) / ZS * StrToFloatDef(wlzl.Text, 0) * 1440 * 0.88);
+//    CbPrice.Text := FloatToStr(StrToFloatDef(CbPrice.Text, 0) + xx);
+
+  end;
+end;
+
+end.
+
--- a/产品报价(ProductQuotation)/U_YpBaoJiaList.dfm
+++ b/产品报价(ProductQuotation)/U_YpBaoJiaList.dfm
@ -0,0 +1,483 @@
+object frmYpBaoJiaList: TfrmYpBaoJiaList
+  Left = 300
+  Top = 206
+  Width = 1170
+  Height = 507
+  Caption = #26679#21697#25253#20215
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1154
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 83
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_ProductQuotation.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = TBFindClick
+    end
+    object TBAdd: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #25253#20215
+      ImageIndex = 1
+      OnClick = TBAddClick
+    end
+    object TBEdit: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 11
+      OnClick = TBEditClick
+    end
+    object ToolButton4: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #22797#21046
+      ImageIndex = 22
+      OnClick = ToolButton4Click
+    end
+    object ToolButton2: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #26597#30475#25253#20215
+      ImageIndex = 1
+      OnClick = ToolButton2Click
+    end
+    object TBDel: TToolButton
+      Left = 402
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 3
+      OnClick = TBDelClick
+    end
+    object TBPrint: TToolButton
+      Left = 465
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 4
+      OnClick = TBPrintClick
+    end
+    object ToolButton1: TToolButton
+      Left = 528
+      Top = 0
+      AutoSize = True
+      Caption = #23457#26680
+      ImageIndex = 31
+      OnClick = ToolButton1Click
+    end
+    object ToolButton3: TToolButton
+      Left = 591
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#23457#26680
+      ImageIndex = 52
+      OnClick = ToolButton3Click
+    end
+    object TBExport: TToolButton
+      Left = 678
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 68
+      Visible = False
+      OnClick = TBExportClick
+    end
+    object TBClose: TToolButton
+      Left = 741
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1154
+    Height = 54
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 23
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #30331#35760#26085#26399
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 165
+      Top = 22
+      Width = 6
+      Height = 12
+      Caption = '-'
+    end
+    object Label5: TLabel
+      Left = 458
+      Top = 22
+      Width = 26
+      Height = 12
+      Caption = #22411#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 283
+      Top = 24
+      Width = 52
+      Height = 12
+      Caption = #35746#36135#21333#20301
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object BegDate: TDateTimePicker
+      Left = 76
+      Top = 18
+      Width = 85
+      Height = 20
+      Date = 40675.464742650460000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464742650460000000
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 171
+      Top = 18
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 1
+    end
+    object BjName: TEdit
+      Tag = 2
+      Left = 487
+      Top = 18
+      Width = 80
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 3
+      OnChange = ConNoMChange
+    end
+    object CustomerName: TEdit
+      Tag = 2
+      Left = 339
+      Top = 18
+      Width = 80
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 2
+      OnChange = ConNoMChange
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 104
+    Width = 1154
+    Height = 365
+    Align = alClient
+    TabOrder = 3
+    object Tv1: TcxGridDBTableView
+      OnDblClick = Tv1DblClick
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v1Column1
+        end
+        item
+          Kind = skSum
+          Column = v1PRTQty
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.Indicator = True
+      Styles.Inactive = DataLink_ProductQuotation.SHuangSe
+      Styles.IncSearch = DataLink_ProductQuotation.SHuangSe
+      Styles.Selection = DataLink_ProductQuotation.SHuangSe
+      object v1FactoryNo1Name: TcxGridDBColumn
+        Caption = #25253#20215#21333#21495
+        DataBinding.FieldName = 'BjNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ProductQuotation.Default
+        Width = 98
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #25253#20215#26102#38388
+        DataBinding.FieldName = 'Bjtime'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ProductQuotation.Default
+        Width = 86
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #32534#21495
+        DataBinding.FieldName = 'BjCode'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ProductQuotation.Default
+        Width = 110
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #21697#21517
+        DataBinding.FieldName = 'BjName'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ProductQuotation.Default
+        Width = 70
+      end
+      object v1PRTSpec: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'BjMF'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ProductQuotation.Default
+        Width = 69
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'BjKZ'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ProductQuotation.Default
+        Width = 68
+      end
+      object v1OrderNo: TcxGridDBColumn
+        Caption = #38024#22411
+        DataBinding.FieldName = 'zhenxing'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ProductQuotation.Default
+        Width = 127
+      end
+      object v1DeliveryDate: TcxGridDBColumn
+        Caption = #36135#21495
+        DataBinding.FieldName = 'huohao'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ProductQuotation.Default
+        Width = 82
+      end
+      object v1PRTOrderQty: TcxGridDBColumn
+        Caption = #20135#37327
+        DataBinding.FieldName = 'Qty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ProductQuotation.Default
+        Width = 58
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #21334#20215
+        DataBinding.FieldName = 'Price'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ProductQuotation.Default
+        Width = 57
+      end
+      object v1PRTQty: TcxGridDBColumn
+        Caption = #25104#26412#20215
+        DataBinding.FieldName = 'CbPrice'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ProductQuotation.Default
+        Width = 58
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #21033#28070
+        DataBinding.FieldName = 'Lr'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ProductQuotation.Default
+        Width = 55
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #21033#28070#28857
+        DataBinding.FieldName = 'Lrd'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ProductQuotation.Default
+        Width = 61
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #21046#21333#20154
+        DataBinding.FieldName = 'Filler'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ProductQuotation.Default
+        Width = 71
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxTabControl1: TcxTabControl
+    Left = 0
+    Top = 86
+    Width = 1154
+    Height = 18
+    Align = alTop
+    Style = 9
+    TabIndex = 0
+    TabOrder = 2
+    Tabs.Strings = (
+      #26410#23457#26680
+      #23457#26680
+      #20840#37096)
+    OnChange = cxTabControl1Change
+    ClientRectBottom = 19
+    ClientRectRight = 1154
+    ClientRectTop = 19
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 709
+    Top = 268
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_ProductQuotation.ADOLink
+    Parameters = <>
+    Left = 936
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_ProductQuotation.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1000
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_ProductQuotation.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 1040
+    Top = 8
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 815
+    Top = 298
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 745
+    Top = 207
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDBMain
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 442
+    Top = 191
+    ReportData = {}
+  end
+  object RMDBMain: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_PRT
+    Left = 400
+    Top = 192
+  end
+  object RMXLSExport1: TRMXLSExport
+    ShowAfterExport = True
+    ExportPrecision = 1
+    PagesOfSheet = 1
+    ExportImages = True
+    ExportFrames = True
+    ExportImageFormat = ifBMP
+    JPEGQuality = 0
+    ScaleX = 1.000000000000000000
+    ScaleY = 1.000000000000000000
+    CompressFile = False
+    Left = 416
+    Top = 248
+  end
+  object CDS_PRT: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 347
+    Top = 190
+  end
+end
--- a/产品报价(ProductQuotation)/U_YpBaoJiaList.pas
+++ b/产品报价(ProductQuotation)/U_YpBaoJiaList.pas
@ -0,0 +1,480 @@
+unit U_YpBaoJiaList;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
+  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter,
+  RM_Common, RM_Class, RM_e_Xls, RM_Dataset, RM_System, RM_GridReport,
+  cxTextEdit, cxPC;
+
+type
+  TfrmYpBaoJiaList = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBAdd: TToolButton;
+    TBEdit: TToolButton;
+    TBDel: TToolButton;
+    TBPrint: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    Label1: TLabel;
+    Label2: TLabel;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    Label5: TLabel;
+    BjName: TEdit;
+    TBExport: TToolButton;
+    Order_Main: TClientDataSet;
+    RM1: TRMGridReport;
+    RMDBMain: TRMDBDataSet;
+    RMXLSExport1: TRMXLSExport;
+    CDS_PRT: TClientDataSet;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1OrderNo: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1DeliveryDate: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1FactoryNo1Name: TcxGridDBColumn;
+    v1PRTSpec: TcxGridDBColumn;
+    v1PRTOrderQty: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1PRTQty: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    v1Column3: TcxGridDBColumn;
+    CustomerName: TEdit;
+    Label6: TLabel;
+    v1Column6: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    ToolButton2: TToolButton;
+    cxTabControl1: TcxTabControl;
+    ToolButton1: TToolButton;
+    ToolButton3: TToolButton;
+    v1Column4: TcxGridDBColumn;
+    ToolButton4: TToolButton;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure TBEditClick(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure TBPrintClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure TBAddClick(Sender: TObject);
+    procedure ConNoMChange(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure cxPageControl1Change(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure Tv1DblClick(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+  private
+    FInt,PFInt:Integer;
+    procedure InitGrid();
+    procedure InitForm();
+    procedure SetStatus();
+    function  DelData():Boolean;
+    { Private declarations }
+  public
+    CanShu1:string;
+    { Public declarations }
+  end;
+
+var
+  frmYpBaoJiaList: TfrmYpBaoJiaList;
+
+implementation
+uses
+  U_DataLink,U_Fun,U_ZDYHelp
+  ,U_YpBaoJiaInput,U_CPManageFMSel;
+
+{$R *.dfm}
+procedure TfrmYpBaoJiaList.SetStatus();
+begin
+  ToolButton1.Visible:=False;
+  ToolButton3.Visible:=False;
+  TBEdit.Visible:=False;
+  TBDel.Visible:=False;
+  case cxTabControl1.TabIndex of
+  0:begin
+      if Trim(CanShu1)='高权限' then
+      begin
+          TBEdit.Visible:=True;
+          TBDel.Visible:=True;
+          ToolButton1.Visible:=True;
+      end
+      else
+      begin
+         TBEdit.Visible:=True;
+         TBDel.Visible:=True;
+      end;
+    end;
+  1:begin
+      ToolButton3.Visible:=True;
+    end;
+  2:begin
+
+    end;
+  end;
+end;  
+
+procedure TfrmYpBaoJiaList.FormDestroy(Sender: TObject);
+begin
+  frmYpBaoJiaList:=nil;
+end;
+
+procedure TfrmYpBaoJiaList.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmYpBaoJiaList.TBCloseClick(Sender: TObject);
+begin
+
+  ReadCxGrid(self.Caption,Tv1,'样品报价管理');
+  Close;
+end;
+
+procedure TfrmYpBaoJiaList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add('select A.* ');
+      sql.Add('from BaoJiaMain A ');
+      sql.Add('where  A.FillTime>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.DateTime))+'''');
+      sql.Add('and A.FillTime<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.DateTime+1))+'''');
+      if Trim(CanShu1)<>'高权限' then
+      begin
+        sql.Add('and A.Filler='+quotedstr(DName));
+      end;
+      case cxTabControl1.TabIndex of
+      0:begin
+          sql.Add('and isnull(A.status,0)=''0'' ');
+        end;
+      1:begin
+          sql.Add('and isnull(A.status,0)=''1'' ');
+        end;
+      2:begin
+         
+        end;
+      end;
+//      showmessage(sql.Text);
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmYpBaoJiaList.InitForm();
+begin
+  ReadCxGrid(self.Caption,Tv1,'样品报价管理');
+  BegDate.DateTime:=SGetServerDate10(ADOQueryTemp)-7;
+  EndDate.DateTime:=SGetServerDate10(ADOQueryTemp);
+  InitGrid();
+  SetStatus();
+end;
+
+procedure TfrmYpBaoJiaList.TBFindClick(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+procedure TfrmYpBaoJiaList.TBEditClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if Trim(Order_Main.fieldbyname('filler').AsString)<>Trim(DName) then Exit;
+  try
+    frmYpBaoJiaInput:=TfrmYpBaoJiaInput.Create(Application);
+    with frmYpBaoJiaInput do
+    begin
+      WindowState:=wsnormal;
+      PState:=1;
+      BjCode.Enabled:=false;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('BJMainId').AsString);
+      if ShowModal=1 then
+      begin
+        InitGrid();
+      end;
+    end;
+  finally
+    frmYpBaoJiaInput.Free;
+  end;
+
+end;
+
+procedure TfrmYpBaoJiaList.TBDelClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if Trim(Order_Main.fieldbyname('filler').AsString)<>Trim(DName) then Exit;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete BaoJiaSub where BJMainId='''+Trim(Order_Main.fieldbyname('BJMainId').AsString)+'''');
+      sql.Add('delete BaoJiaMain where BJMainId='''+Trim(Order_Main.fieldbyname('BJMainId').AsString)+'''');
+      ExecSQL;
+    end;
+   InitGrid();
+end;
+
+function TfrmYpBaoJiaList.DelData():Boolean;
+begin
+  try
+    Result:=false;
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete ContractSX_Sub where SubId='''+Trim(Order_Main.fieldbyname('SubId').AsString)+'''');
+      ExecSQL;
+    end;
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from ContractSX_Sub where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+      Open;
+    end;
+    if ADOQueryTemp.IsEmpty then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('delete ContractSX_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+        ExecSQL;
+      end;
+    end;
+    if Trim(Order_Main.fieldbyname('SubId').AsString)='' then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('delete ContractSX_Main where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+        ExecSQL;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Result:=False;
+    Application.MessageBox('数据删除异常！','提示',0);
+  end;
+end;
+
+procedure TfrmYpBaoJiaList.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then Exit;
+  TcxGridToExcel('坯布合同订单列表',cxGrid1);
+end;
+
+procedure TfrmYpBaoJiaList.TBPrintClick(Sender: TObject);
+var
+   fPrintFile,FConNoM:string;
+
+begin
+   if Order_Main.IsEmpty then Exit;
+
+    fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\样品报价单.rmf' ;
+
+
+  with ADOQueryTemp do
+  begin
+    Filtered:=False;
+    Close;
+    sql.Clear;
+    sql.Add('select A.*,B.*  ');
+    sql.Add('from BaoJiaSub A');
+    sql.Add('inner join BaoJiaMain B on B.BJMainId=A.BJMainId');
+    sql.Add('where  B.BJMainId='''+Trim(Order_Main.fieldbyname('BJMainId').AsString)+'''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,CDS_PRT);
+  SInitCDSData20(ADOQueryTemp,CDS_PRT);
+
+  if FileExists(fPrintFile) then
+  begin
+    RM1.LoadFromFile(fPrintFile);
+    RM1.ShowReport;
+  end
+  else
+  begin
+    Application.MessageBox(PChar('没有找'+trim(fPrintFile)),'提示',0);
+  end;
+
+end;
+
+procedure TfrmYpBaoJiaList.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmYpBaoJiaList.TBAddClick(Sender: TObject);
+begin
+    try
+      frmYpBaoJiaInput:=TfrmYpBaoJiaInput.Create(Application);
+      with frmYpBaoJiaInput do
+      begin
+        WindowState:=wsnormal;
+        PState:=0;
+        FMainId:='';
+        if ShowModal=1 then
+        begin
+          InitGrid();
+        end;
+      end;
+    finally
+      frmYpBaoJiaInput.Free;
+    end;
+end;
+
+procedure TfrmYpBaoJiaList.ConNoMChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+procedure TfrmYpBaoJiaList.FormShow(Sender: TObject);
+begin
+  InitForm();
+end;
+
+procedure TfrmYpBaoJiaList.cxPageControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmYpBaoJiaList.ToolButton2Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  try
+    frmYpBaoJiaInput:=TfrmYpBaoJiaInput.Create(Application);
+    with frmYpBaoJiaInput do
+    begin
+      WindowState:=wsnormal;
+      PState:=2;
+      ToolBar1.Visible:=false;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('BJMainId').AsString);
+      if ShowModal=1 then
+      begin
+        InitGrid();
+      end;
+    end;
+  finally
+    frmYpBaoJiaInput.Free;
+  end;
+end;
+
+procedure TfrmYpBaoJiaList.ToolButton1Click(Sender: TObject);
+begin
+  IF Order_Main.IsEmpty then exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('update BaoJiaMain SET status=''1'' ');
+      sql.Add(' ,Chker='''+Trim(DName)+'''');
+      sql.Add(' ,Chktime=GETDATE()');
+      sql.Add(' where BJMainId ='+quotedstr(trim(Order_Main.fieldbyname('BJMainId').AsString)));
+      execsql;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    InitGrid();
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    application.MessageBox('操作失败！','提示信息',0);
+  end;
+end;
+
+procedure TfrmYpBaoJiaList.ToolButton3Click(Sender: TObject);
+begin
+  IF Order_Main.IsEmpty then exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('update BaoJiaMain SET status=''0'' ,Chker='''' ,Chktime=null');
+      sql.Add(' where BJMainId ='+quotedstr(trim(Order_Main.fieldbyname('BJMainId').AsString)));
+      execsql;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    InitGrid();
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    application.MessageBox('操作失败！','提示信息',0);
+  end;
+end;
+
+procedure TfrmYpBaoJiaList.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid();
+  SetStatus();
+end;
+
+procedure TfrmYpBaoJiaList.Tv1DblClick(Sender: TObject);
+begin
+ToolButton2.Click;
+end;
+
+procedure TfrmYpBaoJiaList.ToolButton4Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then Exit;
+  if Trim(Order_Main.fieldbyname('filler').AsString)<>Trim(DName) then Exit;
+  try
+    frmYpBaoJiaInput:=TfrmYpBaoJiaInput.Create(Application);
+    with frmYpBaoJiaInput do
+    begin
+      WindowState:=wsnormal;
+      PState:=1;
+      PCopyInt:=1;
+      BjCode.Enabled:=false;
+      FMainId:=Trim(Self.Order_Main.fieldbyname('BJMainId').AsString);
+      if ShowModal=1 then
+      begin
+        InitGrid();
+      end;
+    end;
+  finally
+    frmYpBaoJiaInput.Free;
+  end;
+
+end;
+
+end.
--- a/产品报价(ProductQuotation)/U_ZDYHelp.dfm
+++ b/产品报价(ProductQuotation)/U_ZDYHelp.dfm
@ -0,0 +1,275 @@
+object frmZDYHelp: TfrmZDYHelp
+  Left = 466
+  Top = 188
+  Width = 465
+  Height = 528
+  Caption = #39033#30446#32500#25252
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 73
+    Width = 449
+    Height = 416
+    Align = alClient
+    TabOrder = 0
+    object TV1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      OnCellDblClick = TV1CellDblClick
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsSelection.CellSelect = False
+      OptionsView.GroupByBox = False
+      object V1Code: TcxGridDBColumn
+        Caption = #32534#21495
+        DataBinding.FieldName = 'ZDYNo'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 97
+      end
+      object V1OrderNo: TcxGridDBColumn
+        Caption = #39034#24207#21495
+        DataBinding.FieldName = 'OrderNo'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = V1OrderNoPropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 49
+      end
+      object V1Name: TcxGridDBColumn
+        Tag = 2
+        Caption = #21517#31216
+        DataBinding.FieldName = 'ZDYName'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = V1NamePropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 326
+      end
+      object V1Note: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = V1NotePropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 109
+      end
+      object V1ZdyFlag: TcxGridDBColumn
+        Caption = #26631#24535
+        DataBinding.FieldName = 'ZdyFlag'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = V1Column1PropertiesEditValueChanged
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 57
+      end
+      object V1HelpType: TcxGridDBColumn
+        Caption = #24110#21161#31867#27604
+        DataBinding.FieldName = 'HelpType'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = V1HelpTypePropertiesEditValueChanged
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 55
+      end
+      object V1ZdyStr1: TcxGridDBColumn
+        DataBinding.FieldName = 'ZdyStr1'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = V1ZdyStr1PropertiesEditValueChanged
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 61
+      end
+      object V1ZdyStr2: TcxGridDBColumn
+        DataBinding.FieldName = 'ZdyStr2'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = V1ZdyStr1PropertiesEditValueChanged
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+      object V1ZdyStr3: TcxGridDBColumn
+        DataBinding.FieldName = 'ZdyStr3'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = V1ZdyStr1PropertiesEditValueChanged
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 57
+      end
+      object V1ZdyStr4: TcxGridDBColumn
+        DataBinding.FieldName = 'ZdyStr4'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = V1ZdyStr1PropertiesEditValueChanged
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 61
+      end
+      object V1ZdyStr5: TcxGridDBColumn
+        DataBinding.FieldName = 'ZdyStr5'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = V1ZdyStr1PropertiesEditValueChanged
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 61
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = TV1
+    end
+  end
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 449
+    Height = 29
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_PBMDDJ.ThreeImgList
+    List = True
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 1
+    object ToolButton1: TToolButton
+      Left = 0
+      Top = 0
+      Caption = #36873#25321
+      ImageIndex = 10
+      OnClick = ToolButton1Click
+    end
+    object TBAdd: TToolButton
+      Left = 59
+      Top = 0
+      Caption = #22686#34892
+      ImageIndex = 12
+      OnClick = TBAddClick
+    end
+    object TBDel: TToolButton
+      Left = 118
+      Top = 0
+      Caption = #21024#34892
+      ImageIndex = 13
+      OnClick = TBDelClick
+    end
+    object TBEdit: TToolButton
+      Left = 177
+      Top = 0
+      Caption = #20462#25913
+      ImageIndex = 11
+      OnClick = TBEditClick
+    end
+    object TBSave: TToolButton
+      Left = 236
+      Top = 0
+      Caption = #20445#23384
+      ImageIndex = 15
+      Visible = False
+      OnClick = TBSaveClick
+    end
+    object TBClose: TToolButton
+      Left = 295
+      Top = 0
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 29
+    Width = 449
+    Height = 44
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 2
+    object Label1: TLabel
+      Left = 18
+      Top = 17
+      Width = 24
+      Height = 12
+      Caption = #21517#31216
+    end
+    object Label2: TLabel
+      Left = 240
+      Top = 11
+      Width = 120
+      Height = 24
+      Caption = #27880#65306#28966#28857#31163#24320#24403#21069#32534#36753#13#10'    '#21333#20803#26684#20445#23384#25968#25454#12290
+      Color = clBtnFace
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentColor = False
+      ParentFont = False
+    end
+    object ZDYName: TEdit
+      Tag = 2
+      Left = 53
+      Top = 12
+      Width = 169
+      Height = 20
+      TabOrder = 0
+      OnChange = ZDYNameChange
+    end
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_PBMDDJ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 48
+    Top = 136
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_PBMDDJ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 80
+    Top = 144
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_PBMDDJ.ADOLink
+    Parameters = <>
+    Left = 112
+    Top = 152
+  end
+  object DataSource1: TDataSource
+    DataSet = ClientDataSet1
+    Left = 280
+    Top = 144
+  end
+  object ClientDataSet1: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 208
+    Top = 144
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 168
+    Top = 152
+  end
+end
--- a/产品报价(ProductQuotation)/U_ZDYHelp.pas
+++ b/产品报价(ProductQuotation)/U_ZDYHelp.pas
@ -0,0 +1,724 @@
+unit U_ZDYHelp;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, ToolWin, ComCtrls,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
+  cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList,
+  StdCtrls, ExtCtrls, cxTextEdit, cxGridCustomPopupMenu, cxGridPopupMenu,
+  cxTimeEdit;
+
+type
+  TfrmZDYHelp = class(TForm)
+    TV1: TcxGridDBTableView;
+    cxGrid1Level1: TcxGridLevel;
+    cxGrid1: TcxGrid;
+    V1Code: TcxGridDBColumn;
+    V1Name: TcxGridDBColumn;
+    ToolBar1: TToolBar;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    DataSource1: TDataSource;
+    ClientDataSet1: TClientDataSet;
+    TBAdd: TToolButton;
+    TBSave: TToolButton;
+    TBDel: TToolButton;
+    TBClose: TToolButton;
+    ToolButton1: TToolButton;
+    TBEdit: TToolButton;
+    V1Note: TcxGridDBColumn;
+    V1OrderNo: TcxGridDBColumn;
+    Panel1: TPanel;
+    Label1: TLabel;
+    ZDYName: TEdit;
+    Label2: TLabel;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    V1ZdyFlag: TcxGridDBColumn;
+    V1HelpType: TcxGridDBColumn;
+    V1ZdyStr1: TcxGridDBColumn;
+    V1ZdyStr2: TcxGridDBColumn;
+    V1ZdyStr3: TcxGridDBColumn;
+    V1ZdyStr4: TcxGridDBColumn;
+    V1ZdyStr5: TcxGridDBColumn;
+    procedure FormCreate(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBAddClick(Sender: TObject);
+    procedure TBSaveClick(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure TBEditClick(Sender: TObject);
+    procedure TV1CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure ZDYNameChange(Sender: TObject);
+    procedure V1NamePropertiesEditValueChanged(Sender: TObject);
+    procedure V1OrderNoPropertiesEditValueChanged(Sender: TObject);
+    procedure V1NotePropertiesEditValueChanged(Sender: TObject);
+    procedure V1Column1PropertiesEditValueChanged(Sender: TObject);
+    procedure V1HelpTypePropertiesEditValueChanged(Sender: TObject);
+    procedure V1ZdyStr1PropertiesEditValueChanged(Sender: TObject);
+  private
+    procedure InitGrid();
+    { Private declarations }
+  public
+    flag,flagname,snote,MainType:string;
+    fnote,forderno,fZdyFlag,ViewFlag:Boolean;
+    PPSTE:integer;
+    { Public declarations }
+  end;
+
+var
+  frmZDYHelp: TfrmZDYHelp;
+
+implementation
+uses
+  U_DataLink,U_RTFun;
+
+{$R *.dfm}
+
+procedure TfrmZDYHelp.FormCreate(Sender: TObject);
+begin
+  {try
+    cxGrid1.Align:=alClient;
+    with ADOConnection1 do
+    begin
+      Connected:=false;
+      ConnectionString:=DConString;
+      //ConnectionString:='';
+      Connected:=true;
+    end;
+  except
+    {if Application.MessageBox('网络连接失败,是否要再次连接?','提示',32+4)=IDYES then
+    begin
+      try
+        with ADOConnection1 do
+        begin
+          Connected:=false;
+          ConnectionString:=DConString;
+          //ConnectionString:='23242';
+          Connected:=true;
+        end;
+      except
+      end;
+    end; }
+    
+    {frmRTZDYHelp.Free;
+  end; }
+end;
+
+procedure TfrmZDYHelp.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  ZDYName.SetFocus;
+  WriteCxGrid('自定义'+Trim(flag),TV1,'自定义数据');
+  Action:=caFree;
+end;
+
+procedure TfrmZDYHelp.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select A.*,ZJM=dbo.getPinYin(A.ZdyName) from KH_ZDY A where A.Type='''+flag+'''');
+      if Trim(MainType)<>'' then
+      begin
+        sql.Add(' and A.MainType='''+Trim(MainType)+'''');
+      end;
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,ClientDataSet1);
+    SInitCDSData20(ADOQueryMain,ClientDataSet1);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+procedure TfrmZDYHelp.TBAddClick(Sender: TObject);
+var
+  i:Integer;
+begin
+  ZDYName.SetFocus;
+  TV1.OptionsData.Editing:=True;
+  TV1.OptionsSelection.CellSelect:=True;
+  for i:=0 to 5 do
+  begin
+    with ClientDataSet1 do
+    begin
+      Append;
+      Post;
+    end;
+  end;
+
+end;
+procedure TfrmZDYHelp.TBSaveClick(Sender: TObject);
+var
+  maxno:string;
+begin
+  if ClientDataSet1.IsEmpty then Exit;
+  ZDYName.SetFocus;
+
+  if ClientDataSet1.Locate('ZDYName',null,[]) then
+  begin
+    Application.MessageBox('名称不能为空！','提示',0);
+    Exit;
+  end;
+  if ClientDataSet1.Locate('ZDYName','',[]) then
+  begin
+    Application.MessageBox('名称不能为空！','提示',0);
+    Exit;
+  end;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryTemp do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('select * from KH_ZDY where ZdyNo='''+Trim(flag)+'''');
+      open;
+    end;
+    if ADOQueryTemp.IsEmpty then
+    begin
+      with ADOQueryCmd do
+      begin
+        close;
+        sql.Clear;
+        sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type,MainType) select :ZDYNo,:ZDYName,:Type,:MainType ');
+        Parameters.ParamByName('ZDYNo').Value:=Trim(flag);
+        Parameters.ParamByName('ZDYName').Value:=Trim(flagname);
+        Parameters.ParamByName('Type').Value:='Main';
+        Parameters.ParamByName('MainType').Value:=Trim(MainType);
+        ExecSQL;
+      end;
+    end;
+    with ADOQueryCmd do
+    begin
+      ClientDataSet1.DisableControls;
+      with ClientDataSet1 do
+      begin
+        First;
+        while not eof do
+        begin
+          if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString)='' then
+          begin
+            if GetLSNo(ADOQueryTemp,maxno,'SY','KH_ZDY',3,1)=False then
+            begin
+              ADOQueryCmd.Connection.RollbackTrans;
+              ClientDataSet1.EnableControls;
+              Application.MessageBox('取最大编号失败！','提示',0);
+              Exit;
+            end;
+          end else
+          begin
+            maxno:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
+          end;
+          with ADOQueryTemp do
+          begin
+            Close;
+            sql.Clear;
+            sql.add('select * from KH_Zdy where Type='''+Trim(flag)+'''');
+            if Trim(MainType)<>'' then
+              SQL.Add(' and MainType='''+Trim(MainType)+'''');
+            sql.Add(' and ZdyName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+'''');
+            Open;
+          end;
+          if ADOQueryTemp.IsEmpty=False then
+          begin
+            if ADOQueryTemp.RecordCount>1 then
+            begin
+              ADOQueryCmd.Connection.RollbackTrans;
+              ClientDataSet1.EnableControls;
+              Application.MessageBox('名称重复！','提示',0);
+              Exit;
+            end;
+            if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)='' then
+            begin
+              ADOQueryCmd.Connection.RollbackTrans;
+              ClientDataSet1.EnableControls;
+              Application.MessageBox('名称重复！','提示',0);
+              Exit;
+            end else
+            begin
+              if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString)<>Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then
+              begin
+                ADOQueryCmd.Connection.RollbackTrans;
+                ClientDataSet1.EnableControls;
+                Application.MessageBox('名称重复！','提示',0);
+                Exit;
+              end;
+            end;
+          end;
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            SQL.Add('delete KH_ZDY where ZDYNO='''+Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString)+'''');
+            ExecSQL;
+          end;
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('select * from KH_ZDY where 1<>1');
+            Open;
+          end;
+          ADOQueryCmd.Append;
+          ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(maxno);
+          ADOQueryCmd.FieldByName('ZDYName').Value:=ClientDataSet1.fieldbyname('ZDYName').Value;
+          ADOQueryCmd.FieldByName('note').Value:=Trim(snote);
+          //ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
+          ADOQueryCmd.FieldByName('Type').Value:=flag;
+          ADOQueryCmd.FieldByName('valid').Value:='Y';
+          if Trim(MainType)<>'' then
+            ADOQueryCmd.FieldByName('MainType').Value:=Trim(MainType);
+          //ADOQueryCmd.FieldByName('sel').Value:=0;
+          ADOQueryCmd.Post;
+          ClientDataSet1.Edit;
+          ClientDataSet1.FieldByName('ZDYNo').Value:=Trim(maxno);
+          ClientDataSet1.Post;
+          Next;
+        end;
+      end;
+      ClientDataSet1.EnableControls;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Application.MessageBox('保存成功！','提示',0);
+    TV1.OptionsData.Editing:=False;
+    TV1.OptionsSelection.CellSelect:=False;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！','提示',0);
+  end;
+
+end;
+
+procedure TfrmZDYHelp.TBDelClick(Sender: TObject);
+begin
+  if ClientDataSet1.IsEmpty then Exit;
+  if (Trim(ClientDataSet1.FieldByName('ZDYNo').AsString)<>'') or
+     (Trim(ClientDataSet1.FieldByName('ZDYname').AsString)<>'') then
+  begin
+    if application.MessageBox('确定要删除吗?','提示信息',1)=2 then exit;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete KH_ZDY where ZDYNo='''+Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString)+'''');
+      SQL.Add(' and Type='''+Trim(flag)+'''');
+      ExecSQL;
+    end;
+  end;
+  ClientDataSet1.Delete;
+end;
+
+procedure TfrmZDYHelp.TBCloseClick(Sender: TObject);
+begin
+  ModalResult:=2;
+  ZDYName.SetFocus;
+  WriteCxGrid('自定义'+Trim(flag),TV1,'自定义数据');
+  Close;
+end;
+
+procedure TfrmZDYHelp.FormShow(Sender: TObject);
+var
+  fsj,fsj1:string;
+begin
+  {if PPSTE=1 then
+  begin
+    Application.Terminate;
+    Exit;
+  end; }
+  InitGrid();
+  fsj:=Trim(flag)+'01';
+  fsj1:=Trim(flagname)+'01';
+  {if ClientDataSet1.IsEmpty then
+  begin
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('insert into KH_ZDY(ZDYNo,ZDYname,Type,note)');
+      sql.Add('select '''+Trim(fsj)+'''');
+      sql.Add(','''+Trim(fsj1)+'''');
+      SQL.Add(','''+Trim(flag)+'''');
+      sql.Add(','''+Trim(snote)+'''');
+      ExecSQL;
+    end;
+    InitGrid();
+  end;}
+  //frmZDYHelp.Caption:=Trim(flagname)+'<'+Trim(flag)+'>';
+  //ReadCxGrid('自定义',TV1,'自定义数据');
+  ReadCxGrid('自定义'+Trim(flag),TV1,'自定义数据');
+  frmZDYHelp.Caption:=Trim(flagname);
+  V1Note.Visible:=fnote;
+  V1ZdyFlag.Visible:=fZdyFlag;
+  V1OrderNo.Visible:=forderno;
+  if ViewFlag=True then
+  begin
+    TBAdd.Visible:=False;
+    TBSave.Visible:=False;
+    TBDel.Visible:=False;
+    TBEdit.Visible:=False;
+    Label2.Visible:=False;
+  end;
+end;
+
+procedure TfrmZDYHelp.ToolButton1Click(Sender: TObject);
+begin
+  ZDYName.SetFocus;
+  WriteCxGrid('自定义'+Trim(flag),TV1,'自定义数据');
+  ModalResult:=1;
+end;
+
+procedure TfrmZDYHelp.TBEditClick(Sender: TObject);
+begin
+  TV1.OptionsData.Editing:=True;
+  TV1.OptionsSelection.CellSelect:=True;
+end;
+
+procedure TfrmZDYHelp.TV1CellDblClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  if TV1.OptionsData.Editing=False then
+  begin
+    ModalResult:=1;
+  end;
+end;
+
+procedure TfrmZDYHelp.ZDYNameChange(Sender: TObject);
+var
+  fsj:String;
+begin
+  if Trim(ZDYName.Text)<>'' then
+  begin
+    fsj:=' zdyname like '''+'%'+Trim(ZDYName.Text)+'%'+''''
+         +' or Note like '''+'%'+Trim(ZDYName.Text)+'%'+''''
+         +' or ZJM like '''+'%'+Trim(ZDYName.Text)+'%'+'''';
+  end;
+  if ADOQueryMain.Active then
+  begin
+   // SDofilter(ADOQueryMain,fsj);
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        if Trim(fsj)='' then
+        begin
+          Filtered:=False;
+        end else
+        begin
+          Filtered:=False;
+          Filter:=fsj;
+          Filtered:=True;
+        end;
+      end;
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+    SCreateCDS20(ADOQueryMain,ClientDataSet1);
+    SInitCDSData20(ADOQueryMain,ClientDataSet1);
+  end;
+end;
+
+procedure TfrmZDYHelp.V1NamePropertiesEditValueChanged(Sender: TObject);
+var
+  maxno,mvalue:string;
+begin
+  mvalue:=TcxTextEdit(Sender).EditingText;
+  if Trim(mvalue)='' then
+  begin
+    //Application.MessageBox('名称不能为空！','提示',0);
+    Exit;
+  end;
+  with ClientDataSet1 do
+  begin
+    Edit;
+    FieldByName('ZdyName').Value:=Trim(mvalue);
+    //Post;
+  end;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryTemp do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('select * from KH_ZDY where ZdyNo='''+Trim(flag)+'''');
+      open;
+    end;
+    if ADOQueryTemp.IsEmpty then
+    begin
+      with ADOQueryCmd do
+      begin
+        close;
+        sql.Clear;
+        sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type,MainType) select :ZDYNo,:ZDYName,:Type,:MainType ');
+        Parameters.ParamByName('ZDYNo').Value:=Trim(flag);
+        Parameters.ParamByName('ZDYName').Value:=Trim(flagname);
+        Parameters.ParamByName('Type').Value:='Main';
+        Parameters.ParamByName('MainType').Value:=Trim(MainType);
+        ExecSQL;
+      end;
+    end;
+    with ADOQueryCmd do
+    begin
+      //ClientDataSet1.DisableControls;
+      //with ClientDataSet1 do
+      //begin
+        //First;
+        //while not eof do
+        //begin
+          if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString)='' then
+          begin
+            if GetLSNo(ADOQueryTemp,maxno,'SY','KH_ZDY',3,1)=False then
+            begin
+              ADOQueryCmd.Connection.RollbackTrans;
+              //ClientDataSet1.EnableControls;
+              Application.MessageBox('取最大编号失败！','提示',0);
+              Exit;
+            end;
+          end else
+          begin
+            maxno:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
+          end;
+          with ADOQueryTemp do
+          begin
+            Close;
+            sql.Clear;
+            sql.add('select * from KH_Zdy where Type='''+Trim(flag)+'''');
+            if Trim(MainType)<>'' then
+              SQL.Add(' and MainType='''+Trim(MainType)+'''');
+            sql.Add(' and ZdyName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+'''');
+            Open;
+          end;
+          if ADOQueryTemp.IsEmpty=False then
+          begin
+            if ADOQueryTemp.RecordCount>1 then
+            begin
+              ADOQueryCmd.Connection.RollbackTrans;
+      
+              //ClientDataSet1.EnableControls;
+              Application.MessageBox('名称重复！','提示',0);
+              Exit;
+            end;
+            if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)='' then
+            begin
+              ADOQueryCmd.Connection.RollbackTrans;
+              //ClientDataSet1.EnableControls;
+              Application.MessageBox('名称重复！','提示',0);
+              Exit;
+            end else
+            begin
+              if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString)<>Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then
+              begin
+                ADOQueryCmd.Connection.RollbackTrans;
+                //ClientDataSet1.EnableControls;
+                Application.MessageBox('名称重复！','提示',0);
+                Exit;
+              end;
+            end;
+          end;
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            SQL.Add('delete KH_ZDY where ZDYNO='''+Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString)+'''');
+            ExecSQL;
+          end;
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('select * from KH_ZDY where 1<>1');
+            Open;
+          end;
+          ADOQueryCmd.Append;
+          ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(maxno);
+          ADOQueryCmd.FieldByName('ZDYName').Value:=ClientDataSet1.fieldbyname('ZDYName').AsString;
+          ADOQueryCmd.FieldByName('note').Value:=Trim(snote);
+          //ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
+          ADOQueryCmd.FieldByName('Type').Value:=flag;
+          ADOQueryCmd.FieldByName('valid').Value:='Y';
+          if Trim(MainType)<>'' then
+            ADOQueryCmd.FieldByName('MainType').Value:=Trim(MainType);
+          //ADOQueryCmd.FieldByName('sel').Value:=0;
+          ADOQueryCmd.Post;
+          ClientDataSet1.Edit;
+          ClientDataSet1.FieldByName('ZDYNo').Value:=Trim(maxno);
+          //ClientDataSet1.Post;
+         // Next;
+        //end;
+      //end;
+     // ClientDataSet1.EnableControls;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    //Application.MessageBox('保存成功！','提示',0);
+    //TV1.OptionsData.Editing:=False;
+    //TV1.OptionsSelection.CellSelect:=False;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！','提示',0);
+  end;
+end;
+
+procedure TfrmZDYHelp.V1OrderNoPropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue:string;
+begin
+  if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)='' then
+  begin
+    Application.MessageBox('名称不能为空!','提示',0);
+    Exit;
+  end;
+  mvalue:=TcxTextEdit(Sender).EditingText;
+  if Trim(mvalue)='' then
+  begin
+    mvalue:='0';
+  end;
+  with ClientDataSet1 do
+  begin
+    Edit;
+    FieldByName('OrderNo').Value:=mvalue;
+    Post;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('Update KH_Zdy Set OrderNo='+mvalue);
+    sql.Add(' where ZdyNo='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+'''');
+    ExecSQL;
+  end;
+end;
+
+procedure TfrmZDYHelp.V1NotePropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue:string;
+begin
+  if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)='' then
+  begin
+    Application.MessageBox('名称不能为空!','提示',0);
+    Exit;
+  end;
+  mvalue:=TcxTextEdit(Sender).EditingText;
+  if Trim(mvalue)='' then
+  begin
+    mvalue:='0';
+  end;
+  with ClientDataSet1 do
+  begin
+    Edit;
+    FieldByName('Note').Value:=mvalue;
+    Post;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('Update KH_Zdy Set Note='''+Trim(mvalue)+'''');
+    sql.Add(' where ZdyNo='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+'''');
+    ExecSQL;
+  end;
+end;
+
+procedure TfrmZDYHelp.V1Column1PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue:String;
+begin
+  if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)='' then
+  begin
+    Application.MessageBox('名称不能为空!','提示',0);
+    Exit;
+  end;
+  mvalue:=TcxTextEdit(Sender).EditingText;
+  if Trim(mvalue)='' then
+  begin
+    mvalue:='0';
+  end;
+  with ClientDataSet1 do
+  begin
+    Edit;
+    FieldByName('ZdyFlag').Value:=StrToInt(mvalue);
+    Post;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('Update KH_Zdy Set ZdyFlag='+Trim(mvalue));
+    sql.Add(' where ZdyNo='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+'''');
+    ExecSQL;
+  end;
+end;
+
+procedure TfrmZDYHelp.V1HelpTypePropertiesEditValueChanged(
+  Sender: TObject);
+var
+  mvalue:string;
+begin
+  if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)='' then
+  begin
+    Application.MessageBox('名称不能为空!','提示',0);
+    Exit;
+  end;
+  mvalue:=TcxTextEdit(Sender).EditingText;
+  if Trim(mvalue)='' then
+  begin
+    mvalue:='0';
+  end;
+  with ClientDataSet1 do
+  begin
+    Edit;
+    FieldByName('HelpType').Value:=mvalue;
+    Post;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('Update KH_Zdy Set HelpType='''+Trim(mvalue)+'''');
+    sql.Add(' where ZdyNo='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+'''');
+    ExecSQL;
+  end;
+end;
+
+procedure TfrmZDYHelp.V1ZdyStr1PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue,FFieldName:string;
+begin
+  if Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)='' then
+  begin
+    Application.MessageBox('名称不能为空!','提示',0);
+    Exit;
+  end;
+  mvalue:=TcxTextEdit(Sender).EditingText;
+  FFieldName:=TV1.Controller.FocusedColumn.DataBinding.FilterFieldName;
+  if Trim(mvalue)='' then
+  begin
+    mvalue:='';
+  end;
+  with ClientDataSet1 do
+  begin
+    Edit;
+    FieldByName(FFieldName).Value:=mvalue;
+    Post;
+  end;
+  with ADOQueryCmd do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add('Update KH_Zdy Set '+FFieldName+'='''+Trim(mvalue)+'''');
+    sql.Add(' where ZdyNo='''+Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)+'''');
+    ExecSQL;
+  end;
+end;
+
+
+end.
--- a/产品报价(ProductQuotation)/U_ZDYHelpSel.dfm
+++ b/产品报价(ProductQuotation)/U_ZDYHelpSel.dfm
@ -0,0 +1,224 @@
+object frmZDYHelpSel: TfrmZDYHelpSel
+  Left = 392
+  Top = 169
+  Width = 574
+  Height = 598
+  Caption = #39033#30446#32500#25252
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 73
+    Width = 558
+    Height = 486
+    Align = alClient
+    TabOrder = 0
+    object TV1: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      OnCellDblClick = TV1CellDblClick
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.FocusCellOnTab = True
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.GroupByBox = False
+      object V1Code: TcxGridDBColumn
+        Caption = #32534#21495
+        DataBinding.FieldName = 'ZDYNo'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 97
+      end
+      object V1Column1: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Width = 48
+      end
+      object V1Name: TcxGridDBColumn
+        Tag = 2
+        Caption = #21517#31216
+        DataBinding.FieldName = 'ZDYName'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = V1NamePropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 208
+      end
+      object V1Note: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 57
+      end
+      object V1OrderNo: TcxGridDBColumn
+        Caption = #39034#24207#21495
+        DataBinding.FieldName = 'OrderNo'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 53
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = TV1
+    end
+  end
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 558
+    Height = 29
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_DDMD.ThreeImgList
+    List = True
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 1
+    object ToolButton1: TToolButton
+      Left = 0
+      Top = 0
+      Caption = #30830#23450
+      ImageIndex = 10
+      OnClick = ToolButton1Click
+    end
+    object TBAdd: TToolButton
+      Left = 59
+      Top = 0
+      Caption = #22686#34892
+      ImageIndex = 12
+      OnClick = TBAddClick
+    end
+    object TBDel: TToolButton
+      Left = 118
+      Top = 0
+      Caption = #21024#34892
+      ImageIndex = 13
+      OnClick = TBDelClick
+    end
+    object TBEdit: TToolButton
+      Left = 177
+      Top = 0
+      Caption = #20462#25913
+      ImageIndex = 11
+      OnClick = TBEditClick
+    end
+    object TBSave: TToolButton
+      Left = 236
+      Top = 0
+      Caption = #20445#23384
+      ImageIndex = 15
+      Visible = False
+      OnClick = TBSaveClick
+    end
+    object TBClose: TToolButton
+      Left = 295
+      Top = 0
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 29
+    Width = 558
+    Height = 44
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 2
+    object Label1: TLabel
+      Left = 19
+      Top = 17
+      Width = 24
+      Height = 12
+      Caption = #21517#31216
+    end
+    object Label2: TLabel
+      Left = 240
+      Top = 11
+      Width = 120
+      Height = 24
+      Caption = #27880#65306#28966#28857#31163#24320#24403#21069#32534#36753#13#10'    '#21333#20803#26684#20445#23384#25968#25454#12290
+      Color = clBtnFace
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentColor = False
+      ParentFont = False
+    end
+    object ZDYName: TEdit
+      Tag = 2
+      Left = 54
+      Top = 12
+      Width = 169
+      Height = 20
+      TabOrder = 0
+      OnChange = ZDYNameChange
+    end
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 48
+    Top = 136
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 80
+    Top = 144
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_DDMD.ADOLink
+    Parameters = <>
+    Left = 112
+    Top = 152
+  end
+  object DataSource1: TDataSource
+    DataSet = ClientDataSet1
+    Left = 280
+    Top = 144
+  end
+  object ClientDataSet1: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 200
+    Top = 144
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 352
+    Top = 248
+  end
+end
--- a/产品报价(ProductQuotation)/U_ZDYHelpSel.pas
+++ b/产品报价(ProductQuotation)/U_ZDYHelpSel.pas
@ -0,0 +1,465 @@
+unit U_ZDYHelpSel;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
+  cxDataStorage, cxEdit, DB, cxDBData, ToolWin, ComCtrls,
+  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGridLevel,
+  cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, ADODB, ImgList,
+  StdCtrls, ExtCtrls, cxCheckBox, cxTextEdit, cxGridCustomPopupMenu,
+  cxGridPopupMenu;
+
+type
+  TfrmZDYHelpSel = class(TForm)
+    TV1: TcxGridDBTableView;
+    cxGrid1Level1: TcxGridLevel;
+    cxGrid1: TcxGrid;
+    V1Code: TcxGridDBColumn;
+    V1Name: TcxGridDBColumn;
+    ToolBar1: TToolBar;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    DataSource1: TDataSource;
+    ClientDataSet1: TClientDataSet;
+    TBAdd: TToolButton;
+    TBSave: TToolButton;
+    TBDel: TToolButton;
+    TBClose: TToolButton;
+    ToolButton1: TToolButton;
+    TBEdit: TToolButton;
+    V1Note: TcxGridDBColumn;
+    V1OrderNo: TcxGridDBColumn;
+    Panel1: TPanel;
+    Label1: TLabel;
+    ZDYName: TEdit;
+    V1Column1: TcxGridDBColumn;
+    Label2: TLabel;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBAddClick(Sender: TObject);
+    procedure TBSaveClick(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure TBEditClick(Sender: TObject);
+    procedure TV1CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+    procedure ZDYNameChange(Sender: TObject);
+    procedure V1NamePropertiesEditValueChanged(Sender: TObject);
+  private
+    procedure InitGrid();
+    { Private declarations }
+  public
+    flag,flagname,snote,MainType,ReturnStr,FGStr:string;
+    fnote,forderno:Boolean;
+    PPSTE,JiangeStr:integer;
+    { Public declarations }
+  end;
+
+var
+  frmZDYHelpSel: TfrmZDYHelpSel;
+
+implementation
+uses
+  U_DataLink,U_RTFun;
+
+{$R *.dfm}
+
+procedure TfrmZDYHelpSel.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  ZDYName.SetFocus;
+  Action:=caFree;
+end;
+
+procedure TfrmZDYHelpSel.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from KH_ZDY where Type='''+flag+'''');
+      if Trim(MainType)<>'' then
+      begin
+        sql.Add(' and MainType='''+Trim(MainType)+'''');
+      end;
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,ClientDataSet1);
+    SInitCDSData20(ADOQueryMain,ClientDataSet1);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmZDYHelpSel.TBAddClick(Sender: TObject);
+var
+  i:Integer;
+begin
+  ZDYName.SetFocus;
+  TV1.OptionsData.Editing:=True;
+  TV1.OptionsSelection.CellSelect:=True;
+  for i:=0 to 5 do
+  begin
+    with ClientDataSet1 do
+    begin
+      Append;
+      Post;
+    end;
+  end;
+
+end;
+
+procedure TfrmZDYHelpSel.TBSaveClick(Sender: TObject);
+var
+  maxno:string;
+begin
+  if ClientDataSet1.IsEmpty then Exit;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryTemp do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('select * from KH_ZDY where ZdyNo='''+Trim(flag)+'''');
+      open;
+    end;
+    if ADOQueryTemp.IsEmpty then
+    begin
+      with ADOQueryCmd do
+      begin
+        close;
+        sql.Clear;
+        sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type,MainType) select :ZDYNo,:ZDYName,:Type,:MainType ');
+        Parameters.ParamByName('ZDYNo').Value:=Trim(flag);
+        Parameters.ParamByName('ZDYName').Value:=Trim(flagname);
+        Parameters.ParamByName('Type').Value:='Main';
+        Parameters.ParamByName('MainType').Value:=Trim(MainType);
+        ExecSQL;
+      end;
+    end;
+    with ADOQueryCmd do
+    begin
+      with ClientDataSet1 do
+      begin
+        First;
+        while not eof do
+        begin
+          if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString)='' then
+          begin
+            if GetLSNo(ADOQueryTemp,maxno,'SY','KH_ZDY',3,1)=False then
+            begin
+              ADOQueryCmd.Connection.RollbackTrans;
+              Application.MessageBox('取最大编号失败！','提示',0);
+              Exit;
+            end;
+          end else
+          begin
+            maxno:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
+          end;
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            SQL.Add('delete KH_ZDY where ZDYNO='''+Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString)+'''');
+            ExecSQL;
+          end;
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('select * from KH_ZDY where 1<>1');
+            Open;
+          end;
+          if Trim(ClientDataSet1.FieldByName('ZDYName').AsString)='' then
+          begin
+            ADOQueryCmd.Connection.RollbackTrans;
+            Application.MessageBox('名称不能为空！','提示',0);
+            Exit;
+          end;
+          ADOQueryCmd.Append;
+          ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(maxno);
+          ADOQueryCmd.FieldByName('ZDYName').Value:=ClientDataSet1.fieldbyname('ZDYName').AsString;
+          ADOQueryCmd.FieldByName('note').Value:=Trim(snote);
+          //ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
+          ADOQueryCmd.FieldByName('Type').Value:=flag;
+          ADOQueryCmd.FieldByName('valid').Value:='Y';
+          if Trim(MainType)<>'' then
+            ADOQueryCmd.FieldByName('MainType').Value:=Trim(MainType);
+          //ADOQueryCmd.FieldByName('sel').Value:=0;
+          ADOQueryCmd.Post;
+          ClientDataSet1.Edit;
+          ClientDataSet1.FieldByName('ZDYNo').Value:=Trim(maxno);
+          ClientDataSet1.Post;
+          Next;
+        end;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Application.MessageBox('保存成功！','提示',0);
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！','提示',0);
+  end;
+ // TV1.OptionsData.Editing:=False;
+end;
+
+procedure TfrmZDYHelpSel.TBDelClick(Sender: TObject);
+begin
+  if ClientDataSet1.IsEmpty then Exit;
+  if (Trim(ClientDataSet1.FieldByName('ZDYNo').AsString)<>'') or
+     (Trim(ClientDataSet1.FieldByName('ZDYname').AsString)<>'') then
+  begin
+    if application.MessageBox('确定要删除吗?','提示信息',1)=2 then exit;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete KH_ZDY where ZDYNo='''+Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString)+'''');
+      SQL.Add(' and Type='''+Trim(flag)+'''');
+      ExecSQL;
+    end;
+  end;
+  ClientDataSet1.Delete;
+end;
+
+procedure TfrmZDYHelpSel.TBCloseClick(Sender: TObject);
+begin
+  ModalResult:=2;
+  ZDYName.SetFocus;
+  WriteCxGrid('自定义'+Trim(flag),TV1,'自定义数据');
+  Close;
+end;
+
+procedure TfrmZDYHelpSel.FormShow(Sender: TObject);
+var
+  fsj,fsj1:string;
+begin
+  {if PPSTE=1 then
+  begin
+    Application.Terminate;
+    Exit;
+  end; }
+  InitGrid();
+  fsj:=Trim(flag)+'01';
+  fsj1:=Trim(flagname)+'01';
+  ReadCxGrid('自定义'+Trim(flag),TV1,'自定义数据');
+  {if ClientDataSet1.IsEmpty then
+  begin
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('insert into KH_ZDY(ZDYNo,ZDYname,Type,note)');
+      sql.Add('select '''+Trim(fsj)+'''');
+      sql.Add(','''+Trim(fsj1)+'''');
+      SQL.Add(','''+Trim(flag)+'''');
+      sql.Add(','''+Trim(snote)+'''');
+      ExecSQL;
+    end;
+    InitGrid();
+  end;}
+  //frmZDYHelp.Caption:=Trim(flagname)+'<'+Trim(flag)+'>';
+  frmZDYHelpSel.Caption:=Trim(flagname);
+end;
+
+procedure TfrmZDYHelpSel.ToolButton1Click(Sender: TObject);
+begin
+  ReturnStr:='';
+  with ClientDataSet1 do
+  begin
+    First;
+    while not Eof do
+    begin
+      if FieldByName('SSel').AsBoolean=True then
+      begin
+        if JiangeStr<>99 then
+        begin
+          if FGStr<>'' then
+            ReturnStr:=ReturnStr+Trim(fieldbyname('ZDYName').AsString)+FGStr
+          else
+            ReturnStr:=ReturnStr+Trim(fieldbyname('ZDYName').AsString)+';'
+        end
+        else
+          ReturnStr:=ReturnStr+Trim(fieldbyname('ZDYName').AsString);
+      end;
+      Next;
+    end;
+  end;
+  if JiangeStr<>99 then
+    ReturnStr:=Copy(ReturnStr,1,Length(ReturnStr)-1);
+  ModalResult:=1;
+end;
+
+procedure TfrmZDYHelpSel.TBEditClick(Sender: TObject);
+begin
+  TV1.OptionsData.Editing:=True;
+end;
+
+procedure TfrmZDYHelpSel.TV1CellDblClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  if TV1.OptionsData.Editing=False then
+  begin
+    ModalResult:=1;
+  end;
+end;
+
+procedure TfrmZDYHelpSel.ZDYNameChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,ClientDataSet1);
+    SInitCDSData20(ADOQueryMain,ClientDataSet1);
+  end;
+end;
+
+procedure TfrmZDYHelpSel.V1NamePropertiesEditValueChanged(Sender: TObject);
+var
+  maxno,mvalue:string;
+begin
+  mvalue:=TcxTextEdit(Sender).EditingText;
+  if Trim(mvalue)='' then
+  begin
+    //Application.MessageBox('名称不能为空！','提示',0);
+    Exit;
+  end;
+  with ClientDataSet1 do
+  begin
+    Edit;
+    FieldByName('ZdyName').Value:=Trim(mvalue);
+    //Post;
+  end;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryTemp do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('select * from KH_ZDY where ZdyNo='''+Trim(flag)+'''');
+      open;
+    end;
+    if ADOQueryTemp.IsEmpty then
+    begin
+      with ADOQueryCmd do
+      begin
+        close;
+        sql.Clear;
+        sql.Add('insert into KH_ZDY(ZDYNo,ZDYName,Type,MainType) select :ZDYNo,:ZDYName,:Type,:MainType ');
+        Parameters.ParamByName('ZDYNo').Value:=Trim(flag);
+        Parameters.ParamByName('ZDYName').Value:=Trim(flagname);
+        Parameters.ParamByName('Type').Value:='Main';
+        Parameters.ParamByName('MainType').Value:=Trim(MainType);
+        ExecSQL;
+      end;
+    end;
+    with ADOQueryCmd do
+    begin
+      //ClientDataSet1.DisableControls;
+      //with ClientDataSet1 do
+      //begin
+        //First;
+        //while not eof do
+        //begin
+          if Trim(ClientDataSet1.FieldByName('ZDYNO').AsString)='' then
+          begin
+            if GetLSNo(ADOQueryTemp,maxno,'SY','KH_ZDY',3,1)=False then
+            begin
+              ADOQueryCmd.Connection.RollbackTrans;
+              //ClientDataSet1.EnableControls;
+              Application.MessageBox('取最大编号失败！','提示',0);
+              Exit;
+            end;
+          end else
+          begin
+            maxno:=Trim(ClientDataSet1.fieldbyname('ZDYNo').AsString);
+          end;
+          with ADOQueryTemp do
+          begin
+            Close;
+            sql.Clear;
+            sql.add('select * from KH_Zdy where Type='''+Trim(flag)+'''');
+            if Trim(MainType)<>'' then
+              SQL.Add(' and MainType='''+Trim(MainType)+'''');
+            sql.Add(' and ZdyName='''+Trim(ClientDataSet1.fieldbyname('ZdyName').AsString)+'''');
+            Open;
+          end;
+          if ADOQueryTemp.IsEmpty=False then
+          begin
+            if ADOQueryTemp.RecordCount>1 then
+            begin
+              ADOQueryCmd.Connection.RollbackTrans;
+              //ClientDataSet1.EnableControls;
+              Application.MessageBox('名称重复！','提示',0);
+              Exit;
+            end;
+            if Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString)='' then
+            begin
+              ADOQueryCmd.Connection.RollbackTrans;
+              //ClientDataSet1.EnableControls;
+              Application.MessageBox('名称重复！','提示',0);
+              Exit;
+            end else
+            begin
+              if Trim(ADOQueryTemp.fieldbyname('ZdyNo').AsString)<>Trim(ClientDataSet1.fieldbyname('ZdyNo').AsString) then
+              begin
+                ADOQueryCmd.Connection.RollbackTrans;
+                //ClientDataSet1.EnableControls;
+                Application.MessageBox('名称重复！','提示',0);
+                Exit;
+              end;
+            end;
+          end;
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            SQL.Add('delete KH_ZDY where ZDYNO='''+Trim(ClientDataSet1.fieldbyname('ZDYNO').AsString)+'''');
+            ExecSQL;
+          end;
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('select * from KH_ZDY where 1<>1');
+            Open;
+          end;
+          ADOQueryCmd.Append;
+          ADOQueryCmd.FieldByName('ZDYNo').Value:=Trim(maxno);
+          ADOQueryCmd.FieldByName('ZDYName').Value:=ClientDataSet1.fieldbyname('ZDYName').AsString;
+          ADOQueryCmd.FieldByName('note').Value:=Trim(snote);
+          //ADOQueryCmd.FieldByName('orderno').Value:=ClientDataSet1.fieldbyname('Name').AsString;
+          ADOQueryCmd.FieldByName('Type').Value:=flag;
+          ADOQueryCmd.FieldByName('valid').Value:='Y';
+          if Trim(MainType)<>'' then
+            ADOQueryCmd.FieldByName('MainType').Value:=Trim(MainType);
+          //ADOQueryCmd.FieldByName('sel').Value:=0;
+          ADOQueryCmd.Post;
+          ClientDataSet1.Edit;
+          ClientDataSet1.FieldByName('ZDYNo').Value:=Trim(maxno);
+          //ClientDataSet1.Post;
+         // Next;
+        //end;
+      //end;
+     // ClientDataSet1.EnableControls;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    //Application.MessageBox('保存成功！','提示',0);
+    //TV1.OptionsData.Editing:=False;
+    //TV1.OptionsSelection.CellSelect:=False;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！','提示',0);
+  end;
+end;
+
+end.
--- a/产品报价(ProductQuotation)/U_ZdyAttInput.dfm
+++ b/产品报价(ProductQuotation)/U_ZdyAttInput.dfm
@ -0,0 +1,218 @@
+object frmZdyAttInput: TfrmZdyAttInput
+  Left = 219
+  Top = 254
+  Width = 920
+  Height = 370
+  Caption = #23458#25143#36164#26009#24405#20837
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 912
+    Height = 31
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_BaseInfo.ThreeImgList
+    Flat = True
+    Images = DataLink_BaseInfo.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object ToolButton3: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 14
+      OnClick = ToolButton3Click
+    end
+    object TBClose: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 31
+    Width = 912
+    Height = 302
+    Align = alClient
+    TabOrder = 1
+    object Tv2: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      NavigatorButtons.Delete.Enabled = False
+      NavigatorButtons.Delete.Visible = False
+      DataController.DataSource = DS_HZ
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Header = DataLink_BaseInfo.handBlack
+      object v2Column6: TcxGridDBColumn
+        Caption = #23458#25143#21517#31216
+        DataBinding.FieldName = 'ZdyName'
+        HeaderAlignmentHorz = taCenter
+        Width = 147
+      end
+      object v2Column2: TcxGridDBColumn
+        Caption = #23458#25143#32534#21495
+        DataBinding.FieldName = 'ZdyCode'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 91
+      end
+      object v2Column3: TcxGridDBColumn
+        Caption = #30005#35805
+        DataBinding.FieldName = 'DEFstr1'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 63
+      end
+      object v2Column4: TcxGridDBColumn
+        Caption = #25163#26426
+        DataBinding.FieldName = 'DEFstr2'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #20256#30495
+        DataBinding.FieldName = 'DEFstr3'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 64
+      end
+      object v2Column10: TcxGridDBColumn
+        Caption = #19994#21153#21592
+        DataBinding.FieldName = 'DEFstr5'
+        HeaderAlignmentHorz = taCenter
+        Width = 71
+      end
+      object v2Column7: TcxGridDBColumn
+        Caption = #20844#21496#22320#22336
+        DataBinding.FieldName = 'DEFNote1'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 67
+      end
+      object v2Column8: TcxGridDBColumn
+        Caption = #21457#36135#22320#22336
+        DataBinding.FieldName = 'DEFNote2'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 72
+      end
+      object v2Column9: TcxGridDBColumn
+        Caption = #32852#31995#20154
+        DataBinding.FieldName = 'DEFstr4'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 73
+      end
+      object v2Column1: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 154
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv2
+    end
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 789
+    Top = 9
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    Parameters = <>
+    Left = 829
+    Top = 1
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_BaseInfo.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 949
+    Top = 225
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDB_Main
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 864
+    Top = 224
+    ReportData = {}
+  end
+  object RMDB_Main: TRMDBDataSet
+    Visible = True
+    Left = 928
+    Top = 216
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 888
+    Top = 224
+  end
+  object DS_HZ: TDataSource
+    DataSet = CDS_HZ
+    Left = 899
+    Top = 235
+  end
+  object CDS_HZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 872
+    Top = 224
+  end
+end
--- a/产品报价(ProductQuotation)/U_ZdyAttInput.pas
+++ b/产品报价(ProductQuotation)/U_ZdyAttInput.pas
@ -0,0 +1,236 @@
+unit U_ZdyAttInput;
+
+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;
+
+type
+  TfrmZdyAttInput = class(TForm)
+    ToolBar1: TToolBar;
+    TBClose: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    RM1: TRMGridReport;
+    RMDB_Main: TRMDBDataSet;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridLevel1: TcxGridLevel;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    DS_HZ: TDataSource;
+    CDS_HZ: TClientDataSet;
+    ToolButton3: TToolButton;
+    v2Column6: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    v2Column2: TcxGridDBColumn;
+    v2Column3: TcxGridDBColumn;
+    v2Column4: TcxGridDBColumn;
+    v2Column5: TcxGridDBColumn;
+    v2Column7: TcxGridDBColumn;
+    v2Column8: TcxGridDBColumn;
+    v2Column9: TcxGridDBColumn;
+    v2Column10: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+  private
+    { Private declarations }
+    procedure InitGrid();
+    function  SaveData():Boolean;
+
+  public
+    { Public declarations }
+    RKFlag,FCYID:String;
+
+  end;
+
+var
+  frmZdyAttInput: TfrmZdyAttInput;
+
+implementation
+uses
+  U_DataLink,U_Fun,U_ZDYHelp;
+
+{$R *.dfm}
+
+
+
+procedure TfrmZdyAttInput.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      SQL.Clear;
+      sql.Add(' select * from KH_Zdy_Attachment where ATID='''+Trim(FCYID)+'''');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_HZ);
+    SInitCDSData20(ADOQueryMain,CDS_HZ);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+
+procedure TfrmZdyAttInput.FormDestroy(Sender: TObject);
+begin
+  //frmZdyAttInput:=nil;
+end;
+
+procedure TfrmZdyAttInput.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  //Action:=caFree;
+end;
+
+procedure TfrmZdyAttInput.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('客户资料录入',Tv2,'客户自定义');
+  Close;
+end;
+procedure TfrmZdyAttInput.FormShow(Sender: TObject);
+begin
+  ReadCxGrid('客户资料录入',Tv2,'客户自定义');
+  InitGrid();
+  if Trim(FCYID)='' then
+  begin
+    CDS_HZ.Append;
+    CDS_HZ.Post;
+  end;
+end;
+
+procedure TfrmZdyAttInput.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+function TfrmZdyAttInput.SaveData():Boolean;
+var
+  maxId,CRID:String;
+begin
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    if Trim(FCYID)='' then
+    begin
+      if GetLSNo(ADOQueryCmd,maxId,'AT','KH_Zdy_Attachment',4,1)=False then
+      begin
+        Result:=False;
+        ADOQueryCmd.Connection.RollbackTrans;
+        Application.MessageBox('取最大号失败！','提示',0);
+        Exit;
+      end;
+    end else
+    begin
+      maxId:=Trim(FCYID);
+    end;
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from KH_Zdy_Attachment where ATID='''+Trim(FCYID)+'''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if Trim(FCYID)='' then
+      begin
+        Append;
+        FieldByName('Filler').Value:=Trim(DName);
+      end else
+      begin
+        Edit;
+        FieldByName('Editer').Value:=Trim(DName);
+        FieldByName('Edittime').Value:=SGetServerDateTime(ADOQueryTemp);
+      end;
+      FieldByName('ATID').Value:=Trim(maxId);
+      FieldByName('ZdyName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
+      RTSetSaveDataCDS(ADOQueryCmd,Tv2,CDS_HZ,'',0);
+      FieldByName('Type').Value:='KHName';
+      FieldByName('Filler').Value:=Trim(DName);
+      Post;
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from KH_Zdy where ZdyNo='''+Trim(FCYID)+'''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if Trim(FCYID)='' then
+      begin
+        Append;
+      end else
+      begin
+        Edit;
+      end;
+      FieldByName('ZdyNo').Value:=Trim(maxId);
+      FieldByName('ZdyName').Value:=Trim(CDS_HZ.fieldbyname('ZdyName').AsString);
+      FieldByName('Type').Value:='KHName';
+      FieldByName('MainType').Value:=Trim(CDS_HZ.fieldbyname('DEFstr5').AsString);
+      Post;
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from KH_Zdy where ZdyName='''+Trim(CDS_HZ.fieldbyname('ZdyName').AsString)+'''');
+      sql.Add(' and Type=''KHName'' ');
+      Open;
+    end;
+    if ADOQueryCmd.RecordCount>1 then
+    begin
+      ADOQueryCmd.Connection.RollbackTrans;
+      Application.MessageBox('名称重复!','提示',0);
+      Exit;
+    end;
+    with CDS_HZ do
+    begin
+      Edit;
+      FieldByName('ATID').Value:=Trim(maxId);
+      Post;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    Result:=True;
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存异常!','提示',0);
+  end;
+end;
+
+procedure TfrmZdyAttInput.ToolButton3Click(Sender: TObject);
+begin
+  if Trim(CDS_HZ.FieldByName('ZdyName').AsString)='' then
+  begin
+    Application.MessageBox('客户名称不能为空!','提示',0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要保存数据吗？','提示',32+4)<>IDYES then Exit;
+  ToolBar1.SetFocus;
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功!','提示',0);
+    ModalResult:=1;
+  end;
+end;
+
+
+end.
--- a/产品报价(ProductQuotation)/U_ZdyAttachCP.dfm
+++ b/产品报价(ProductQuotation)/U_ZdyAttachCP.dfm
@ -0,0 +1,393 @@
+object frmZdyAttachCP: TfrmZdyAttachCP
+  Left = 108
+  Top = 101
+  Width = 1075
+  Height = 569
+  Caption = #20135#21697#36164#26009#31649#29702
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1067
+    Height = 31
+    ButtonHeight = 30
+    ButtonWidth = 113
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_PBMDDJ.ThreeImgList
+    Flat = True
+    Images = DataLink_PBMDDJ.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object ToolButton2: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = ToolButton2Click
+    end
+    object ToolButton5: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #25552#21462'Excel'#25968#25454
+      ImageIndex = 68
+      Visible = False
+      OnClick = ToolButton5Click
+    end
+    object ToolButton1: TToolButton
+      Left = 243
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 68
+      OnClick = ToolButton1Click
+    end
+    object TBClose: TToolButton
+      Left = 306
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 31
+    Width = 1067
+    Height = 39
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label3: TLabel
+      Left = 191
+      Top = 13
+      Width = 48
+      Height = 12
+      Caption = #20135#21697#21517#31216
+    end
+    object Label1: TLabel
+      Left = 22
+      Top = 13
+      Width = 48
+      Height = 12
+      Caption = #20135#21697#32534#21495
+    end
+    object Label2: TLabel
+      Left = 369
+      Top = 13
+      Width = 24
+      Height = 12
+      Caption = #31867#22411
+    end
+    object ZdyName: TEdit
+      Tag = 2
+      Left = 241
+      Top = 9
+      Width = 89
+      Height = 20
+      TabOrder = 0
+      OnChange = ZdyNameChange
+    end
+    object ZdyCode: TEdit
+      Tag = 2
+      Left = 71
+      Top = 9
+      Width = 89
+      Height = 20
+      TabOrder = 1
+      OnChange = ZdyNameChange
+    end
+    object DEFstr5: TComboBox
+      Tag = 1
+      Left = 398
+      Top = 8
+      Width = 81
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      TabOrder = 2
+      OnChange = ZdyNameChange
+      Items.Strings = (
+        #22383#24067
+        #25104#21697
+        '')
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 70
+    Width = 1067
+    Height = 468
+    Align = alClient
+    TabOrder = 2
+    object Tv2: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      NavigatorButtons.Delete.Enabled = False
+      NavigatorButtons.Delete.Visible = False
+      OnCellDblClick = Tv2CellDblClick
+      DataController.DataSource = DS_HZ
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_PBMDDJ.SHuangSe
+      Styles.IncSearch = DataLink_PBMDDJ.SHuangSe
+      Styles.Selection = DataLink_PBMDDJ.SHuangSe
+      Styles.Header = DataLink_PBMDDJ.handBlack
+      object v2Column2: TcxGridDBColumn
+        Caption = #20135#21697#32534#21495
+        DataBinding.FieldName = 'ZdyCode'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 80
+      end
+      object v2Column6: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'ZdyName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.ReadOnly = True
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Options.Sorting = False
+        Width = 124
+      end
+      object v2Column11: TcxGridDBColumn
+        Caption = #31867#22411
+        DataBinding.FieldName = 'DEFstr5'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 53
+      end
+      object v2Column3: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'DEFstr1'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 72
+      end
+      object v2Column4: TcxGridDBColumn
+        Caption = #25104#20221
+        DataBinding.FieldName = 'DEFstr2'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 74
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'DEFstr3'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 68
+      end
+      object v2Mrate: TcxGridDBColumn
+        Caption = #35745#21010#32553#29575'(%)'
+        DataBinding.FieldName = 'Mrate'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 80
+      end
+      object v2Column13: TcxGridDBColumn
+        Caption = #24037#33402
+        DataBinding.FieldName = 'defNote2'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 100
+      end
+      object v2Column8: TcxGridDBColumn
+        Caption = #33457#21495
+        DataBinding.FieldName = 'DEFstr4'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 58
+      end
+      object v2Column10: TcxGridDBColumn
+        Caption = #33394#21495
+        DataBinding.FieldName = 'DEFstr6'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 61
+      end
+      object v2Column9: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'DEFstr7'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 73
+      end
+      object v2Column7: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'DEFstr8'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 61
+      end
+      object v2Column1: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 114
+      end
+      object v2Column14: TcxGridDBColumn
+        Caption = #25805#20316#21592
+        DataBinding.FieldName = 'Filler'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 60
+      end
+      object v2Column15: TcxGridDBColumn
+        Caption = #25805#20316#26102#38388
+        DataBinding.FieldName = 'FillTime'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Width = 80
+      end
+      object v2Column16: TcxGridDBColumn
+        Caption = #20179#20301
+        DataBinding.FieldName = 'DEFstr4'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Hidden = True
+        Width = 70
+      end
+      object v2Column17: TcxGridDBColumn
+        Caption = #20179#20301#25968
+        DataBinding.FieldName = 'DEFstr5'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Hidden = True
+        Width = 70
+      end
+      object v2defflt1: TcxGridDBColumn
+        Caption = #20215#26684#22686#24133
+        DataBinding.FieldName = 'defflt1'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Hidden = True
+        Options.Editing = False
+        Width = 60
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv2
+    end
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_PBMDDJ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 789
+    Top = 9
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_PBMDDJ.ADOLink
+    Parameters = <>
+    Left = 829
+    Top = 1
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_PBMDDJ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 741
+    Top = 161
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDB_Main
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 864
+    Top = 224
+    ReportData = {}
+  end
+  object RMDB_Main: TRMDBDataSet
+    Visible = True
+    Left = 928
+    Top = 216
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 888
+    Top = 224
+  end
+  object DS_HZ: TDataSource
+    DataSet = CDS_HZ
+    Left = 843
+    Top = 147
+  end
+  object CDS_HZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 840
+    Top = 128
+  end
+  object OpenDialog1: TOpenDialog
+    Left = 936
+    Top = 41
+  end
+end
--- a/产品报价(ProductQuotation)/U_ZdyAttachCP.pas
+++ b/产品报价(ProductQuotation)/U_ZdyAttachCP.pas
@ -0,0 +1,400 @@
+unit U_ZdyAttachCP;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, ComObj,
+  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;
+
+type
+
+  FdDy=record
+               inc: integer; //客户端套接字句柄
+               FDdys:string[32]; //客户端套接字
+               FdDysName:string[32]; //客户端套接字
+       end;
+  TfrmZdyAttachCP = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBClose: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    Panel1: TPanel;
+    ToolButton2: TToolButton;
+    ADOQueryMain: TADOQuery;
+    ToolButton1: TToolButton;
+    RM1: TRMGridReport;
+    RMDB_Main: TRMDBDataSet;
+    Label3: TLabel;
+    ZdyName: TEdit;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridLevel1: TcxGridLevel;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    DS_HZ: TDataSource;
+    CDS_HZ: TClientDataSet;
+    v2Column6: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    v2Column2: TcxGridDBColumn;
+    v2Column3: TcxGridDBColumn;
+    v2Column4: TcxGridDBColumn;
+    v2Column5: TcxGridDBColumn;
+    v2Column9: TcxGridDBColumn;
+    Label1: TLabel;
+    ZdyCode: TEdit;
+    Label2: TLabel;
+    DEFstr5: TComboBox;
+    v2Column7: TcxGridDBColumn;
+    v2Column8: TcxGridDBColumn;
+    v2Column10: TcxGridDBColumn;
+    v2Column11: TcxGridDBColumn;
+    v2Column13: TcxGridDBColumn;
+    OpenDialog1: TOpenDialog;
+    ToolButton5: TToolButton;
+    v2Mrate: TcxGridDBColumn;
+    v2Column14: TcxGridDBColumn;
+    v2Column15: TcxGridDBColumn;
+    v2Column16: TcxGridDBColumn;
+    v2Column17: TcxGridDBColumn;
+    v2defflt1: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure ZdyNameChange(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure ToolButton5Click(Sender: TObject);
+    procedure Tv2CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+  private
+    { Private declarations }
+    procedure InitGrid();
+
+  public
+        fkhType:string;
+    dFdDy: array[0..20] of FdDy; //客户端连接数组
+  end;
+
+var
+  frmZdyAttachCP: TfrmZdyAttachCP;
+
+implementation
+uses
+  U_DataLink,U_RTFun,U_ZDYHelp;
+
+{$R *.dfm}
+
+
+
+procedure TfrmZdyAttachCP.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      SQL.Clear;
+      sql.Add(' select * from KH_Zdy_Attachment where Type=''CP'' ');
+      sql.Add(' and isnull(khType,'''')='+quotedstr(trim(fkhType)));
+      sql.Add(' order by zdyCode ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_HZ);
+    SInitCDSData20(ADOQueryMain,CDS_HZ);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+
+procedure TfrmZdyAttachCP.FormDestroy(Sender: TObject);
+begin
+  frmZdyAttachCP:=nil;
+end;
+
+procedure TfrmZdyAttachCP.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmZdyAttachCP.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('产品资料',Tv2,'客户自定义');
+  Close;
+end;
+procedure TfrmZdyAttachCP.TBDelClick(Sender: TObject);
+begin
+
+  if CDS_HZ.IsEmpty then Exit;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+  if Trim(CDS_HZ.fieldbyname('ATID').AsString)<>'' then
+  begin
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('delete KH_Zdy_Attachment where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+'''');
+      sql.Add('delete KH_Zdy where ZdyNo='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+'''');
+      ExecSQL;
+    end;
+  end;
+  CDS_HZ.Delete;
+end;
+
+procedure TfrmZdyAttachCP.FormShow(Sender: TObject);
+begin
+  ReadCxGrid('产品资料',Tv2,'客户自定义');
+  InitGrid();
+end;
+
+procedure TfrmZdyAttachCP.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmZdyAttachCP.ToolButton2Click(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_HZ);
+    SInitCDSData20(ADOQueryMain,CDS_HZ);
+  end;
+end;
+
+procedure TfrmZdyAttachCP.ZdyNameChange(Sender: TObject);
+begin
+  ToolButton2.Click;
+end;
+
+
+procedure TfrmZdyAttachCP.ToolButton1Click(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then Exit;
+  TcxGridToExcel(self.Caption,cxgrid2);
+//  SelExportData(Tv2,ADOQueryMain,'产品资料列表');
+end;
+
+procedure TfrmZdyAttachCP.ToolButton4Click(Sender: TObject);
+begin
+{  try
+    frmZdyAttInputCP:=TfrmZdyAttInputCP.Create(Application);
+    with frmZdyAttInputCP do
+    begin
+      FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString);
+      fkhType:=self.fkhType;
+      if ShowModal=1 then
+      begin
+        TBRafresh.Click;
+      end;
+    end;
+  finally
+    frmZdyAttInputCP.Free;
+  end; }
+end;
+
+procedure TfrmZdyAttachCP.ToolButton3Click(Sender: TObject);
+begin
+{  try
+    frmZdyAttInputCP:=TfrmZdyAttInputCP.Create(Application);
+    with frmZdyAttInputCP do
+    begin
+      FCYID:='';
+      fkhType:=self.fkhType;
+      if ShowModal=1 then
+      begin
+        TBRafresh.Click;
+      end;
+    end;
+  finally
+    frmZdyAttInputCP.Free;
+  end; }
+end;
+
+procedure TfrmZdyAttachCP.ToolButton5Click(Sender: TObject);
+var
+  excelApp,WorkBook:Variant;
+  i,j,k,ExcelRowCount:integer;
+  maxId: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;
+
+  try
+    k:=0;
+    for i:=1  to 20 do
+    begin
+      if trim(excelapp.Cells[1,i].value)='' then break;
+      if trim(excelapp.Cells[1,i].value)='产品编号' then
+      begin
+        dFdDy[k].inc:=i;
+        dFdDy[k].FDdys:='ZdyCode';
+        dFdDy[k].FdDysName:='产品编号';
+      end;
+
+      if trim(excelapp.Cells[1,i].value)='产品名称' then
+      begin
+        dFdDy[k].inc:=i;
+        dFdDy[k].FDdys:='ZdyName';
+        dFdDy[k].FdDysName:='产品名称';
+      end;
+
+      if trim(excelapp.Cells[1,i].value)='名称' then
+      begin
+        dFdDy[k].inc:=i;
+        dFdDy[k].FDdys:='defNote1';
+        dFdDy[k].FdDysName:='名称';
+      end;
+
+      if trim(excelapp.Cells[1,i].value)='颜色' then
+      begin
+        dFdDy[k].inc:=i;
+        dFdDy[k].FDdys:='DEFstr3';
+        dFdDy[k].FdDysName:='名称';
+      end;
+
+      if trim(excelapp.Cells[1,i].value)='工艺' then
+      begin
+        dFdDy[k].inc:=i;
+        dFdDy[k].FDdys:='defNote2';
+        dFdDy[k].FdDysName:='工艺';
+      end;
+      if trim(excelapp.Cells[1,i].value)='类型' then
+      begin
+        dFdDy[k].inc:=i;
+        dFdDy[k].FDdys:='DEFstr5';
+        dFdDy[k].FdDysName:='类型';
+      end;
+      if trim(excelapp.Cells[1,i].value)='规格' then
+      begin
+        dFdDy[k].inc:=i;
+        dFdDy[k].FDdys:='DEFstr1';
+        dFdDy[k].FdDysName:='规格';
+      end;
+      if trim(excelapp.Cells[1,i].value)='成份' then
+      begin
+        dFdDy[k].inc:=i;
+        dFdDy[k].FDdys:='DEFstr2';
+        dFdDy[k].FdDysName:='成份';
+      end;
+      k:=k+1;
+    end;
+  except
+  end;
+
+  ADOQueryCmd.Connection.BeginTrans;
+  try
+    for i := 2 to excelrowcount do
+    begin
+      if GetLSNo(ADOQueryCmd,maxId,'AT','KH_Zdy_Attachment',4,1)=False then
+      begin
+        ADOQueryCmd.Connection.RollbackTrans;
+        Application.MessageBox('取最大号失败！','提示',0);
+        Exit;
+      end;
+
+      with ADOQueryCmd do
+      begin
+        close;
+        sql.Clear;
+        sql.Add('select * from KH_Zdy_Attachment where 1=2');
+        open;
+      end;
+      ADOQueryCmd.Append;
+      for j:=0 to k-1 do
+      begin
+        ADOQueryCmd.fieldbyname(dFdDy[j].FDdys).Value:=excelapp.Cells[i,dFdDy[j].inc].Value;
+      end;
+      ADOQueryCmd.FieldByName('ATID').Value:=Trim(maxId);
+      ADOQueryCmd.FieldByName('Type').Value:='CP';
+      ADOQueryCmd.FieldByName('Filler').Value:=Trim(DName);
+      ADOQueryCmd.Post;
+
+
+      with ADOQueryTemp do
+      begin
+        close;
+        sql.Clear;
+        sql.Add('select * from KH_Zdy_Attachment where ATID='''+trim(maxId)+''' ');
+        open;
+      end;
+
+      with ADOQueryCmd do
+      begin
+        Close;
+        SQL.Clear;
+        sql.Add('select * from KH_Zdy where ZdyNo='''+Trim(maxId)+'''');
+        Open;
+      end;
+      with ADOQueryCmd do
+      begin
+        if ADOQueryCmd.IsEmpty then
+        begin
+          Append;
+        end else
+        begin
+          Edit;
+        end;
+        FieldByName('ZdyNo').Value:=Trim(maxId);
+        FieldByName('ZdyName').Value:=Trim(ADOQueryTemp.fieldbyname('ZdyName').AsString);
+        FieldByName('Type').Value:='CP';
+        FieldByName('MainType').Value:=Trim(ADOQueryTemp.fieldbyname('DEFstr5').AsString);
+        Post;
+      end;
+    end;
+    WorkBook.Close;
+    ExcelApp.Quit;
+    ExcelApp := Unassigned;
+    WorkBook := Unassigned;
+    ADOQueryCmd.Connection.CommitTrans;
+     InitGrid();
+  except
+    WorkBook.Close;
+    ExcelApp.Quit;
+    ExcelApp := Unassigned;
+    WorkBook := Unassigned;
+     ADOQueryCmd.Connection.RollbackTrans;
+  end;
+end;
+
+procedure TfrmZdyAttachCP.Tv2CellDblClick(Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  IF cds_Hz.IsEmpty then exit;
+  ModalResult:=1;
+end;
+
+end.
+
+
--- a/产品报价(ProductQuotation)/U_ZdyAttachGYS.dfm
+++ b/产品报价(ProductQuotation)/U_ZdyAttachGYS.dfm
@ -0,0 +1,337 @@
+object frmZdyAttachGYS: TfrmZdyAttachGYS
+  Left = 192
+  Top = 103
+  Width = 1038
+  Height = 618
+  Caption = #20379#24212#21830#36164#26009#31649#29702
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1022
+    Height = 31
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_PBMDDJ.ThreeImgList
+    Flat = True
+    Images = DataLink_PBMDDJ.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object ToolButton2: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = ToolButton2Click
+    end
+    object ToolButton3: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 1
+      Visible = False
+      OnClick = ToolButton3Click
+    end
+    object ToolButton4: TToolButton
+      Left = 189
+      Top = 0
+      Caption = #20462#25913
+      ImageIndex = 11
+      Visible = False
+      OnClick = ToolButton4Click
+    end
+    object TBDel: TToolButton
+      Left = 248
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 3
+      Visible = False
+      OnClick = TBDelClick
+    end
+    object ToolButton1: TToolButton
+      Left = 311
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 68
+      Visible = False
+      OnClick = ToolButton1Click
+    end
+    object TBClose: TToolButton
+      Left = 374
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 31
+    Width = 1022
+    Height = 39
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label3: TLabel
+      Left = 203
+      Top = 13
+      Width = 60
+      Height = 12
+      Caption = #20379#24212#21830#21517#31216
+    end
+    object Label1: TLabel
+      Left = 22
+      Top = 13
+      Width = 60
+      Height = 12
+      Caption = #20379#24212#21830#32534#21495
+    end
+    object Label2: TLabel
+      Left = 395
+      Top = 13
+      Width = 24
+      Height = 12
+      Caption = #31867#22411
+    end
+    object ZdyName: TEdit
+      Tag = 2
+      Left = 267
+      Top = 9
+      Width = 89
+      Height = 20
+      TabOrder = 0
+      OnChange = ZdyNameChange
+    end
+    object ZdyCode: TEdit
+      Tag = 2
+      Left = 83
+      Top = 9
+      Width = 89
+      Height = 20
+      TabOrder = 1
+      OnChange = ZdyNameChange
+    end
+    object DEFstr5: TComboBox
+      Tag = 1
+      Left = 424
+      Top = 8
+      Width = 81
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      TabOrder = 2
+      OnChange = ZdyNameChange
+      Items.Strings = (
+        #22383#24067
+        #21152#24037#21378)
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 70
+    Width = 1022
+    Height = 509
+    Align = alClient
+    TabOrder = 2
+    object Tv2: TcxGridDBTableView
+      OnDblClick = Tv2DblClick
+      NavigatorButtons.ConfirmDelete = False
+      NavigatorButtons.Delete.Enabled = False
+      NavigatorButtons.Delete.Visible = False
+      DataController.DataSource = DS_HZ
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_PBMDDJ.SHuangSe
+      Styles.IncSearch = DataLink_PBMDDJ.SHuangSe
+      Styles.Selection = DataLink_PBMDDJ.SHuangSe
+      Styles.Header = DataLink_PBMDDJ.handBlack
+      object v2Column2: TcxGridDBColumn
+        Caption = #20379#24212#21830#32534#21495
+        DataBinding.FieldName = 'ZdyCode'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
+      object v2Column6: TcxGridDBColumn
+        Caption = #20379#24212#21830#21517#31216
+        DataBinding.FieldName = 'ZdyName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.ReadOnly = True
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 124
+      end
+      object v2Column10: TcxGridDBColumn
+        Caption = #32479#35745#21333#20301#21517#31216
+        DataBinding.FieldName = 'zdyNameTj'
+        HeaderAlignmentHorz = taCenter
+        Width = 111
+      end
+      object v2Column8: TcxGridDBColumn
+        Caption = #31867#22411
+        DataBinding.FieldName = 'DEFstr5'
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object v2Column3: TcxGridDBColumn
+        Caption = #30005#35805
+        DataBinding.FieldName = 'DEFstr1'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 72
+      end
+      object v2Column4: TcxGridDBColumn
+        Caption = #25163#26426
+        DataBinding.FieldName = 'DEFstr2'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 74
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #20256#30495
+        DataBinding.FieldName = 'DEFstr3'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 68
+      end
+      object v2Column7: TcxGridDBColumn
+        Caption = #20844#21496#22320#22336
+        DataBinding.FieldName = 'DEFNote1'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 69
+      end
+      object v2Column9: TcxGridDBColumn
+        Caption = #32852#31995#20154
+        DataBinding.FieldName = 'DEFstr4'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 73
+      end
+      object v2Column1: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 114
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv2
+    end
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_PBMDDJ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 773
+    Top = 17
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_PBMDDJ.ADOLink
+    Parameters = <>
+    Left = 813
+    Top = 17
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_PBMDDJ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 733
+    Top = 17
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDB_Main
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 768
+    Top = 216
+    ReportData = {}
+  end
+  object RMDB_Main: TRMDBDataSet
+    Visible = True
+    Left = 776
+    Top = 184
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 824
+    Top = 184
+  end
+  object DS_HZ: TDataSource
+    DataSet = CDS_HZ
+    Left = 731
+    Top = 179
+  end
+  object CDS_HZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 712
+    Top = 184
+  end
+end
--- a/产品报价(ProductQuotation)/U_ZdyAttachGYS.pas
+++ b/产品报价(ProductQuotation)/U_ZdyAttachGYS.pas
@ -0,0 +1,214 @@
+unit U_ZdyAttachGYS;
+
+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;
+
+type
+  TfrmZdyAttachGYS = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBDel: TToolButton;
+    TBClose: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    Panel1: TPanel;
+    ToolButton2: TToolButton;
+    ADOQueryMain: TADOQuery;
+    ToolButton1: TToolButton;
+    RM1: TRMGridReport;
+    RMDB_Main: TRMDBDataSet;
+    Label3: TLabel;
+    ZdyName: TEdit;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridLevel1: TcxGridLevel;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    DS_HZ: TDataSource;
+    CDS_HZ: TClientDataSet;
+    ToolButton3: TToolButton;
+    v2Column6: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    v2Column2: TcxGridDBColumn;
+    v2Column3: TcxGridDBColumn;
+    v2Column4: TcxGridDBColumn;
+    v2Column5: TcxGridDBColumn;
+    v2Column7: TcxGridDBColumn;
+    v2Column9: TcxGridDBColumn;
+    Label1: TLabel;
+    ZdyCode: TEdit;
+    ToolButton4: TToolButton;
+    v2Column8: TcxGridDBColumn;
+    Label2: TLabel;
+    DEFstr5: TComboBox;
+    v2Column10: TcxGridDBColumn;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure ZdyNameChange(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure Tv2DblClick(Sender: TObject);
+  private
+    { Private declarations }
+    procedure InitGrid();
+
+  public
+
+  end;
+
+var
+  frmZdyAttachGYS: TfrmZdyAttachGYS;
+
+implementation
+uses
+  U_DataLink,U_RTFun,U_ZDYHelp;
+
+{$R *.dfm}
+
+
+
+procedure TfrmZdyAttachGYS.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      SQL.Clear;
+      sql.Add(' select * from KH_Zdy_Attachment where Type=''GYS'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_HZ);
+    SInitCDSData20(ADOQueryMain,CDS_HZ);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+
+procedure TfrmZdyAttachGYS.FormDestroy(Sender: TObject);
+begin
+  frmZdyAttachGYS:=nil;
+end;
+
+procedure TfrmZdyAttachGYS.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmZdyAttachGYS.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('供应商资料',Tv2);
+  Close;
+end;
+procedure TfrmZdyAttachGYS.TBDelClick(Sender: TObject);
+begin
+{  if CDS_HZ.IsEmpty then Exit;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+  if Trim(CDS_HZ.fieldbyname('ATID').AsString)<>'' then
+  begin
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('delete KH_Zdy_Attachment where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+'''');
+      sql.Add('delete KH_Zdy where ZdyNo='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+'''');
+      ExecSQL;
+    end;
+  end;
+  CDS_HZ.Delete;}
+end;
+
+procedure TfrmZdyAttachGYS.FormShow(Sender: TObject);
+begin
+  ReadCxGrid('供应商资料',Tv2);
+  InitGrid();
+end;
+
+procedure TfrmZdyAttachGYS.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmZdyAttachGYS.ToolButton2Click(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_HZ);
+    SInitCDSData20(ADOQueryMain,CDS_HZ);
+  end;
+end;
+
+procedure TfrmZdyAttachGYS.ZdyNameChange(Sender: TObject);
+begin
+  ToolButton2.Click;
+end;
+
+
+procedure TfrmZdyAttachGYS.ToolButton1Click(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then Exit;
+  //SelExportData(Tv2,ADOQueryMain,'客户资料列表');
+end;
+
+procedure TfrmZdyAttachGYS.ToolButton4Click(Sender: TObject);
+begin
+{  try
+    frmZdyAttInputGYS:=TfrmZdyAttInputGYS.Create(Application);
+    with frmZdyAttInputGYS do
+    begin
+      FCYID:=Trim(Self.CDS_HZ.fieldbyname('ATID').AsString);
+      if ShowModal=1 then
+      begin
+        
+      end;
+    end;
+  finally
+    frmZdyAttInputGYS.Free;
+  end;   }
+end;
+
+procedure TfrmZdyAttachGYS.ToolButton3Click(Sender: TObject);
+begin
+{  try
+    frmZdyAttInputGYS:=TfrmZdyAttInputGYS.Create(Application);
+    with frmZdyAttInputGYS do
+    begin
+      FCYID:='';
+      if ShowModal=1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmZdyAttInputGYS.Free;
+  end;  }
+end;
+
+procedure TfrmZdyAttachGYS.Tv2DblClick(Sender: TObject);
+begin
+  if CDS_HZ.IsEmpty then exit;
+  ModalResult:=1;
+end;
+
+end.
+
+
--- a/产品报价(ProductQuotation)/U_ZdyAttachment.dfm
+++ b/产品报价(ProductQuotation)/U_ZdyAttachment.dfm
@ -0,0 +1,309 @@
+object frmZdyAttachment: TfrmZdyAttachment
+  Left = 116
+  Top = 115
+  Width = 1142
+  Height = 613
+  Caption = #23458#25143#36164#26009#31649#29702
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1126
+    Height = 31
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_CYZZ.ThreeImgList
+    Flat = True
+    Images = DataLink_CYZZ.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 9
+      OnClick = TBRafreshClick
+    end
+    object ToolButton2: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 59
+      OnClick = ToolButton2Click
+    end
+    object ToolButton3: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 3
+    end
+    object ToolButton4: TToolButton
+      Left = 189
+      Top = 0
+      Caption = #20462#25913
+      ImageIndex = 54
+    end
+    object TBDel: TToolButton
+      Left = 248
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 17
+      OnClick = TBDelClick
+    end
+    object ToolButton1: TToolButton
+      Left = 311
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 53
+    end
+    object TBClose: TToolButton
+      Left = 374
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 31
+    Width = 1126
+    Height = 39
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label3: TLabel
+      Left = 190
+      Top = 13
+      Width = 48
+      Height = 12
+      Caption = #23458#25143#21517#31216
+    end
+    object Label1: TLabel
+      Left = 22
+      Top = 13
+      Width = 48
+      Height = 12
+      Caption = #23458#25143#32534#21495
+    end
+    object ZdyName: TEdit
+      Tag = 2
+      Left = 238
+      Top = 9
+      Width = 89
+      Height = 20
+      TabOrder = 0
+      OnChange = ZdyNameChange
+    end
+    object ZdyCode: TEdit
+      Tag = 2
+      Left = 70
+      Top = 9
+      Width = 89
+      Height = 20
+      TabOrder = 1
+      OnChange = ZdyNameChange
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 70
+    Width = 1126
+    Height = 504
+    Align = alClient
+    TabOrder = 2
+    object Tv2: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      NavigatorButtons.Delete.Enabled = False
+      NavigatorButtons.Delete.Visible = False
+      DataController.DataSource = DS_HZ
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_CYZZ.SHuangSe
+      Styles.IncSearch = DataLink_CYZZ.SHuangSe
+      Styles.Selection = DataLink_CYZZ.SHuangSe
+      Styles.Header = DataLink_CYZZ.handBlack
+      object v2Column6: TcxGridDBColumn
+        Caption = #23458#25143#21517#31216
+        DataBinding.FieldName = 'ZdyName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.ReadOnly = True
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 127
+      end
+      object v2Column2: TcxGridDBColumn
+        Caption = #23458#25143#32534#21495
+        DataBinding.FieldName = 'ZdyCode'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 86
+      end
+      object v2Column10: TcxGridDBColumn
+        Caption = #19994#21153#21592
+        DataBinding.FieldName = 'DEFstr5'
+        HeaderAlignmentHorz = taCenter
+        Width = 56
+      end
+      object v2Column3: TcxGridDBColumn
+        Caption = #30005#35805
+        DataBinding.FieldName = 'DEFstr1'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 71
+      end
+      object v2Column4: TcxGridDBColumn
+        Caption = #25163#26426
+        DataBinding.FieldName = 'DEFstr2'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 74
+      end
+      object v2Column5: TcxGridDBColumn
+        Caption = #20256#30495
+        DataBinding.FieldName = 'DEFstr3'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 68
+      end
+      object v2Column7: TcxGridDBColumn
+        Caption = #20844#21496#22320#22336
+        DataBinding.FieldName = 'DEFNote1'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 67
+      end
+      object v2Column8: TcxGridDBColumn
+        Caption = #21457#36135#22320#22336
+        DataBinding.FieldName = 'DEFNote2'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 72
+      end
+      object v2Column9: TcxGridDBColumn
+        Caption = #32852#31995#20154
+        DataBinding.FieldName = 'DEFstr4'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 73
+      end
+      object v2Column1: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        PropertiesClassName = 'TcxTextEditProperties'
+        HeaderAlignmentHorz = taCenter
+        Width = 165
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv2
+    end
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 789
+    Top = 9
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    Parameters = <>
+    Left = 829
+    Top = 1
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_CYZZ.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 949
+    Top = 225
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDB_Main
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 864
+    Top = 224
+    ReportData = {}
+  end
+  object RMDB_Main: TRMDBDataSet
+    Visible = True
+    Left = 928
+    Top = 216
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 888
+    Top = 224
+  end
+  object DS_HZ: TDataSource
+    DataSet = CDS_HZ
+    Left = 899
+    Top = 235
+  end
+  object CDS_HZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 872
+    Top = 224
+  end
+end
--- a/产品报价(ProductQuotation)/U_ZdyAttachment.pas
+++ b/产品报价(ProductQuotation)/U_ZdyAttachment.pas
@ -0,0 +1,162 @@
+unit U_ZdyAttachment;
+
+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;
+
+type
+  TfrmZdyAttachment = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBDel: TToolButton;
+    TBClose: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    Panel1: TPanel;
+    ToolButton2: TToolButton;
+    ADOQueryMain: TADOQuery;
+    ToolButton1: TToolButton;
+    RM1: TRMGridReport;
+    RMDB_Main: TRMDBDataSet;
+    Label3: TLabel;
+    ZdyName: TEdit;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridLevel1: TcxGridLevel;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    DS_HZ: TDataSource;
+    CDS_HZ: TClientDataSet;
+    ToolButton3: TToolButton;
+    v2Column6: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    v2Column2: TcxGridDBColumn;
+    v2Column3: TcxGridDBColumn;
+    v2Column4: TcxGridDBColumn;
+    v2Column5: TcxGridDBColumn;
+    v2Column7: TcxGridDBColumn;
+    v2Column8: TcxGridDBColumn;
+    v2Column9: TcxGridDBColumn;
+    Label1: TLabel;
+    ZdyCode: TEdit;
+    v2Column10: TcxGridDBColumn;
+    ToolButton4: TToolButton;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure ZdyNameChange(Sender: TObject);
+  private
+    { Private declarations }
+    procedure InitGrid();
+
+  public
+
+  end;
+
+var
+  frmZdyAttachment: TfrmZdyAttachment;
+
+implementation
+uses
+  U_DataLink,U_RTFun,U_RTZDYHelp;
+
+{$R *.dfm}
+
+
+
+procedure TfrmZdyAttachment.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      SQL.Clear;
+      sql.Add(' select * from KH_Zdy_Attachment where Type=''KHName'' ');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_HZ);
+    SInitCDSData20(ADOQueryMain,CDS_HZ);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+
+procedure TfrmZdyAttachment.FormDestroy(Sender: TObject);
+begin
+  frmZdyAttachment:=nil;
+end;
+
+procedure TfrmZdyAttachment.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmZdyAttachment.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('客户资料',Tv2,'客户自定义');
+  Close;
+end;
+procedure TfrmZdyAttachment.TBDelClick(Sender: TObject);
+begin
+  if CDS_HZ.IsEmpty then Exit;
+  if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+  if Trim(CDS_HZ.fieldbyname('ATID').AsString)<>'' then
+  begin
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('delete KH_Zdy_Attachment where ATID='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+'''');
+      sql.Add('delete KH_Zdy where ZdyNo='''+Trim(CDS_HZ.fieldbyname('ATID').AsString)+'''');
+      ExecSQL;
+    end;
+  end;
+  CDS_HZ.Delete;
+end;
+
+procedure TfrmZdyAttachment.FormShow(Sender: TObject);
+begin
+  ReadCxGrid('客户资料',Tv2,'客户自定义');
+  InitGrid();
+end;
+
+procedure TfrmZdyAttachment.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmZdyAttachment.ToolButton2Click(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+    SCreateCDS20(ADOQueryMain,CDS_HZ);
+    SInitCDSData20(ADOQueryMain,CDS_HZ);
+  end;
+end;
+
+procedure TfrmZdyAttachment.ZdyNameChange(Sender: TObject);
+begin
+  ToolButton2.Click;
+end;
+
+
+end.
+
+
--- a/产品报价(ProductQuotation)/U_ZdyInput.dfm
+++ b/产品报价(ProductQuotation)/U_ZdyInput.dfm
@ -0,0 +1,17 @@
+object frmZdyInput: TfrmZdyInput
+  Left = 165
+  Top = 188
+  Width = 870
+  Height = 500
+  Caption = #23458#25143#36164#26009#24405#20837
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  OldCreateOrder = False
+  OnDestroy = FormDestroy
+  PixelsPerInch = 96
+  TextHeight = 13
+end
--- a/产品报价(ProductQuotation)/U_ZdyInput.pas
+++ b/产品报价(ProductQuotation)/U_ZdyInput.pas
@ -0,0 +1,30 @@
+unit U_ZdyInput;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs;
+
+type
+  TfrmZdyInput = class(TForm)
+    procedure FormDestroy(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  frmZdyInput: TfrmZdyInput;
+
+implementation
+
+{$R *.dfm}
+
+procedure TfrmZdyInput.FormDestroy(Sender: TObject);
+begin
+  frmZdyInput:=nil;
+end;
+
+end.
--- a/产品报价(ProductQuotation)/U_iniParam.pas
+++ b/产品报价(ProductQuotation)/U_iniParam.pas
@ -0,0 +1,65 @@
+
+unit U_iniParam;
+
+interface
+uses
+  IniFiles,SysUtils;
+var
+  Filename:string;      //文件名
+  iParam2:integer;
+  bParam1:Boolean;
+  bParam2:Boolean;
+  SCXFlag:String;  //生产线   根据此标志获取卷条码前缀 不能包含字母  1,2
+  SCXCount:String;  //机台个数
+  PortNoStr:string;//端口号
+  DllName:string;//端口Dll文件
+  Function IsINIFile():Boolean;  //判断InI配置文件是否存在
+  procedure ReadINIFile();
+  procedure WriteINIFile();
+implementation
+///////////////////////////////////////////////////////////////////
+  //读取ini文件设置参数
+  //参数：
+////////////////////////////////////////////////////////////////////
+procedure ReadINIFile();
+var
+  programIni:Tinifile;  //配置文件名
+begin
+  FileName:=ExtractFilePath(Paramstr(0))+'File.INI';
+  programIni:=Tinifile.create(FileName);
+  SCXFlag:=programIni.ReadString('生产车间配置','卷条码机台标志','1');
+  SCXCount:=programIni.ReadString('生产车间配置','机台个数','1');
+  PortNoStr:=programIni.ReadString('生产车间配置','端口号','com1');
+  DllName:=programIni.ReadString('生产车间配置','端口Dll文件','JZCRS323C.DLL');
+  programIni.Free;
+end;
+
+//////////////////////////////////////////////////////////////////
+  //写设置信息到INI文件
+  //参数
+//////////////////////////////////////////////////////////////////
+procedure WriteINIFile();
+var
+  programIni:Tinifile;  //配置文件名
+begin
+  FileName:=ExtractFilePath(Paramstr(0))+'File.INI';
+  programIni:=Tinifile.create(FileName);
+  programIni.WriteString('生产车间配置','卷条码机台标志',SCXFlag);
+  programIni.WriteString('生产车间配置','机台个数',SCXCount);
+  programIni.WriteString('生产车间配置','端口号',PortNoStr);
+  programIni.WriteString('生产车间配置','端口Dll文件',DllName);
+  programIni.Free;
+end;
+//////////////////////////////////////////////////////////////////
+  //判断InI文件是否存在
+//////////////////////////////////////////////////////////////////
+ Function IsINIFile():Boolean;
+ begin
+   FileName:=ExtractFilePath(Paramstr(0))+'File.INI';
+   if FileExists(FileName) then
+      Result:=true
+   else
+      Result:=false;
+ end;
+
+end.
--- a/产品报价(ProductQuotation)/U_testdll.dfm
+++ b/产品报价(ProductQuotation)/U_testdll.dfm
@ -0,0 +1,221 @@
+object Form1: TForm1
+  Left = 203
+  Top = 121
+  Width = 791
+  Height = 554
+  Caption = 'Form1'
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  FormStyle = fsMDIForm
+  Menu = MainMenu1
+  OldCreateOrder = False
+  WindowState = wsMaximized
+  OnClose = FormClose
+  OnResize = FormResize
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 775
+    Height = 25
+    ButtonWidth = 57
+    Caption = 'ToolBar1'
+    Flat = True
+    Images = ImageList1
+    TabOrder = 0
+    object Edit1: TEdit
+      Left = 0
+      Top = 0
+      Width = 81
+      Height = 22
+      TabOrder = 0
+      Text = '1'
+    end
+    object ToolButton1: TToolButton
+      Left = 81
+      Top = 0
+      Caption = #20851#38381
+      ImageIndex = 0
+      OnClick = ToolButton1Click
+    end
+    object Label1: TLabel
+      Left = 138
+      Top = 0
+      Width = 79
+      Height = 22
+      Caption = '         DllName'#65306
+    end
+    object DllName: TEdit
+      Left = 217
+      Top = 0
+      Width = 135
+      Height = 22
+      TabOrder = 1
+    end
+  end
+  object MainMenu1: TMainMenu
+    Left = 232
+    Top = 40
+    object test1: TMenuItem
+      Caption = 'test'
+      OnClick = test1Click
+    end
+  end
+  object ImageList1: TImageList
+    Left = 320
+    Top = 56
+    Bitmap = {
+      494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      0000000000003600000028000000400000001000000001002000000000000010
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000EFEFEF000000
+      0000EFEFEF00EFEFEF000000000000000000EFEFEF0000000000000000000000
+      0000EFEFEF00EFEFEF0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000EFEFEF0000000000EFEFEF00EFEFEF0000000000EFEFEF00000000008080
+      00008080000000000000C0C0C000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000EFEFEF00EFEFEF000000
+      0000EFEFEF00EFEFEF000000000000000000C0C0C00000000000000000008080
+      00008080000080800000EFEFEF00EFEFEF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000EFEFEF0000000000000000000000000000000000000000008080
+      0000808000008080000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000EFEFEF0000000000808080008080800080808000000000008080
+      0000808000008080000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000008080000000000000808080008080800080808000000000008080
+      0000000000008080000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000EFEFEF00EFEF
+      EF0000000000FFFF000080800000000000008080800080808000000000000000
+      0000000000008080000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000FFFF0000FFFF0000808000000000000080808000000000008080
+      0000000000008080000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000808000008080
+      000080800000FFFF0000FFFF0000FFFF00000000000080808000000000008080
+      0000808000008080000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FFFF0000FFFF
+      0000FFFF0000FFFF000000000000FFFF00000000000080808000000000008080
+      0000808000008080000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000FFFF0000FFFF0000FFFF00000000000080808000000000008080
+      0000808000008080000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000808000000000000080808000808080008080800080808000FFFF
+      0000808000008080000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000808080008080800080808000808080000000
+      0000808000008080000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000424D3E000000000000003E000000
+      2800000040000000100000000100010000000000800000000000000000000000
+      000000000000000000000000FFFFFF00FFFF000000000000D343000000000000
+      F4810000000000009340000000000000F801000000000000F001000000000000
+      F001000000000000C001000000000000C001000000000000C001000000000000
+      C201000000000000C001000000000000F001000000000000F001000000000000
+      FC03000000000000FFFF00000000000000000000000000000000000000000000
+      000000000000}
+  end
+  object ADOConnection1: TADOConnection
+    ConnectionString = 
+      'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ' +
+      'ID=sa;Initial Catalog=rzdata;Data Source=6GMFFMYKYMJDZW7'
+    LoginPrompt = False
+    Provider = 'SQLOLEDB.1'
+    Left = 408
+    Top = 64
+  end
+end
--- a/产品报价(ProductQuotation)/U_testdll.pas
+++ b/产品报价(ProductQuotation)/U_testdll.pas
@ -0,0 +1,106 @@
+unit U_testdll;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ExtCtrls, StdCtrls, Menus, ToolWin, ComCtrls, ImgList, DB, ADODB;
+
+type
+  TForm1 = class(TForm)
+    MainMenu1: TMainMenu;
+    test1: TMenuItem;
+    ToolBar1: TToolBar;
+    Edit1: TEdit;
+    ToolButton1: TToolButton;
+    ImageList1: TImageList;
+    ADOConnection1: TADOConnection;
+    DllName: TEdit;
+    Label1: TLabel;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure test1Click(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure FormResize(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+  newh:hwnd;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  sendmessage(newh,1034,4,0);
+  action:=cafree;
+end;
+
+procedure TForm1.test1Click(Sender: TObject);
+type
+  TMyFunc = function(App:Tapplication; FormH:hwnd; FormID:integer;
+                  Language: integer; WinStyle:integer;
+                  GCode: Pchar; GName: Pchar; DataBase:Pchar;Title:PChar;
+                  Parameters1:PChar;Parameters2:PChar;Parameters3:PChar;Parameters4:PChar;
+                  Parameters5:PChar;Parameters6:PChar;Parameters7:PChar;Parameters8:PChar;
+                  Parameters9:PChar;Parameters10:PChar;DataBaseStr:PChar):hwnd;stdcall;
+var
+  Tf: TMyFunc;
+  Tp: TFarProc;
+  Th:Thandle;
+begin
+  //静态加载
+  //newh:=getForm(Application,1,ADOConnection1,PChar('sa'),PChar('dsa'));
+
+  //动态加载
+  // showMessage(intTostr(application.Handle));
+  Th := LoadLibrary('ProductQuotation.dll');
+  if Th > 0 then
+  begin
+    try
+      Tp := GetProcAddress(Th, 'GetDllForm');
+      if Tp <> nil then
+      begin
+        Tf := TMyFunc(Tp);
+        newh:=Tf(Application,0,strToint(edit1.text),0,0,
+          PChar('ygcode'),
+          PChar('ygname'),
+          PChar('datebase'),
+          PChar('title'),
+          PChar(''),
+          PChar(''),
+          '','','','','','','','',''
+          );
+      end
+      else
+      begin
+        ShowMessage('打印执行错误');
+      end;
+    finally
+    // FreeLibrary();
+    end;
+  end
+  else
+  begin
+    ShowMessage('找不到'+Trim(DllName.Text));
+  end;
+
+end;
+
+procedure TForm1.ToolButton1Click(Sender: TObject);
+begin
+  close;
+end;
+
+procedure TForm1.FormResize(Sender: TObject);
+begin
+ sendmessage(newh,1034,1,0);
+end;
+
+end.
+
--- a/产品报价(ProductQuotation)/consvr.ini
+++ b/产品报价(ProductQuotation)/consvr.ini
@ -0,0 +1,2 @@
+[SERVER]
+SERVER=192.168.88.254
--- a/产品报价(ProductQuotation)/testDll.cfg
+++ b/产品报价(ProductQuotation)/testDll.cfg
@ -0,0 +1,38 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
--- a/产品报价(ProductQuotation)/testDll.dof
+++ b/产品报价(ProductQuotation)/testDll.dof
@ -0,0 +1,136 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=D:\selfware_83398\selfware\马国钢开发代码\项目代码\self\坯布码单待检DDMD.dll)\testDll.exe
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=2052
+CodePage=936
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
--- a/产品报价(ProductQuotation)/testDll.dpr
+++ b/产品报价(ProductQuotation)/testDll.dpr
@ -0,0 +1,14 @@
+program testDll;
+
+uses
+  Forms,
+  U_testdll in 'U_testdll.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.
+
--- a/产品报价(ProductQuotation)/testDll.res
+++ b/产品报价(ProductQuotation)/testDll.res
--- a/产品报价(ProductQuotation)/testDllDJ.cfg
+++ b/产品报价(ProductQuotation)/testDllDJ.cfg
@ -0,0 +1,38 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
--- a/产品报价(ProductQuotation)/testDllDJ.dof
+++ b/产品报价(ProductQuotation)/testDllDJ.dof
@ -0,0 +1,136 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=D:\selfware_83398\selfware\马国钢开发代码\项目代码\self\长阳针织(CYZZ.dll)\testDll.exe
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=2052
+CodePage=936
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
--- a/产品报价(ProductQuotation)/testDllDJ.res
+++ b/产品报价(ProductQuotation)/testDllDJ.res
--- a/发货申请(ShipmentRequest.dll)/FieldExportSet/实发清单.INI
+++ b/发货申请(ShipmentRequest.dll)/FieldExportSet/实发清单.INI
@ -0,0 +1,2 @@
+[导出设置]
+导出字段=Begin/申请单号/申请日期/客户/收货抬头/产品名称/客户品名/申请匹数/申请重量/单价/发货匹数/发货数量/未发货匹数
--- a/发货申请(ShipmentRequest.dll)/File.INI
+++ b/发货申请(ShipmentRequest.dll)/File.INI
@ -0,0 +1,4 @@
+[生产车间配置]
+卷条码机台标志=99
+成品DLL文件=CYZZ.dll
+成品DLL调用号=11
--- a/发货申请(ShipmentRequest.dll)/FileHelp.ini
+++ b/发货申请(ShipmentRequest.dll)/FileHelp.ini
@ -0,0 +1,7 @@
+[FILEPATH]
+FileClass=YP,AA,BB,HT
+YP=D:\YP
+AA=D:\AA
+BB=D:\BB
+HT=D:\HT
+OTHER=D:\OTHER
--- a/发货申请(ShipmentRequest.dll)/JCYData.INI
+++ b/发货申请(ShipmentRequest.dll)/JCYData.INI
@ -0,0 +1,7 @@
+[系统配置]
+串口号=com1
+波特率=9600
+校验位=0
+数据位=8
+停止位=0
+频率=100
--- a/发货申请(ShipmentRequest.dll)/JZCRS323C.INI
+++ b/发货申请(ShipmentRequest.dll)/JZCRS323C.INI
@ -0,0 +1,7 @@
+[系统配置]
+串口号=com2
+波特率=1200
+校验位=0
+数据位=8
+停止位=0
+频率=100
--- a/发货申请(ShipmentRequest.dll)/JZCRS323CList.txt
+++ b/发货申请(ShipmentRequest.dll)/JZCRS323CList.txt
--- a/发货申请(ShipmentRequest.dll)/ProjectGroup1.bpg
+++ b/发货申请(ShipmentRequest.dll)/ProjectGroup1.bpg
@ -0,0 +1,20 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = testDll.exe
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+testDll.exe: testDll.dpr
+  $(DCC)
+
+
--- a/发货申请(ShipmentRequest.dll)/ProjectGroup1.~bpg
+++ b/发货申请(ShipmentRequest.dll)/ProjectGroup1.~bpg
@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = testDll.exe ProductPrice.dll
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+testDll.exe: testDll.dpr
+  $(DCC)
+
+ProductPrice.dll: ProductPrice.dpr
+  $(DCC)
+
+
--- a/发货申请(ShipmentRequest.dll)/SYSTEMSET.ini
+++ b/发货申请(ShipmentRequest.dll)/SYSTEMSET.ini
@ -0,0 +1,3 @@
+[SERVER]
+服务器地址=172.168.1.246
+软件名称=欣戈纺织
--- a/发货申请(ShipmentRequest.dll)/ShipmentRequest.cfg
+++ b/发货申请(ShipmentRequest.dll)/ShipmentRequest.cfg
@ -0,0 +1,42 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-U"D:\말繫ERP"
+-O"D:\말繫ERP"
+-I"D:\말繫ERP"
+-R"D:\말繫ERP"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST
--- a/发货申请(ShipmentRequest.dll)/ShipmentRequest.dof
+++ b/发货申请(ShipmentRequest.dll)/ShipmentRequest.dof
@ -0,0 +1,138 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=D:\富通ERP
+Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOffice2k;Rave50CLX;Rave50VCL
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=D:\Dp7Repo\项目代码\向恒\发货申请(ShipmentRequest.dll)\testDll.exe
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=2052
+CodePage=936
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[Excluded Packages]
+c:\program files\borland\delphi7\Bin\DBWEBXPRT.BPL=Borland Web Wizard Package
--- a/发货申请(ShipmentRequest.dll)/ShipmentRequest.dpr
+++ b/发货申请(ShipmentRequest.dll)/ShipmentRequest.dpr
@ -0,0 +1,48 @@
+library ShipmentRequest;
+   //ÒÑ¸Ä
+uses
+  SysUtils,
+  classes,
+  forms,
+  WinTypes,
+  WinProcs,
+  U_GetDllForm in 'U_GetDllForm.pas',
+  U_RTFun in '..\..\..\RTFunAndForm\Fun\U_RTFun.pas',
+  U_ModuleNote in 'U_ModuleNote.pas' {frmModuleNote},
+  U_DataLink in 'U_DataLink.pas' {DataLink_ShipmentRequest: TDataModule},
+  U_ZDYHelpSel in 'U_ZDYHelpSel.pas' {frmZDYHelpSel},
+  U_iniParam in 'U_iniParam.pas',
+  U_ZDYHelp in 'U_ZDYHelp.pas' {frmZDYHelp},
+  U_Fun in '..\..\..\ThreeFun\Fun\U_Fun.pas',
+  U_SelExportField in '..\..\..\ThreeFun\Fun\U_SelExportField.pas' {frmSelExportField},
+  U_ColumnSet in '..\..\..\ThreeFun\Form\U_ColumnSet.pas' {frmColumnSet},
+  U_ColumnBandSet in '..\..\..\ThreeFun\Form\U_ColumnBandSet.pas' {frmColumnBandSet},
+  U_SelPrintFieldNew in '..\..\..\ThreeFun\Form\U_SelPrintFieldNew.pas' {frmSelPrintFieldNew},
+  U_ContractListNXSel in 'U_ContractListNXSel.pas' {frmContractListNXSel},
+  U_ClothSCList in 'U_ClothSCList.pas' {frmClothSCList},
+  U_PBOutHZList in 'U_PBOutHZList.pas' {frmPBOutHZList};
+
+{$R *.res}
+
+procedure DllEnterPoint(dwReason: DWORD);far;stdcall;
+begin
+  DLLProc := @DLLEnterPoint;
+  DllEnterPoint(DLL_PROCESS_ATTACH);
+end;
+
+procedure DLLUnloadProc(Reason: Integer); register;
+begin
+//  if (Reason = DLL_PROCESS_DETACH) or (Reason=DLL_THREAD_DETACH) then
+//     Application:=NewDllApp;
+end;
+exports
+   GetDllForm;
+begin
+   try
+     NewDllApp:=Application;
+     DLLProc := @DLLUnloadProc;
+   except
+
+   end;
+end.
+
--- a/发货申请(ShipmentRequest.dll)/ShipmentRequest.res
+++ b/发货申请(ShipmentRequest.dll)/ShipmentRequest.res
--- a/发货申请(ShipmentRequest.dll)/Statistics.res
+++ b/发货申请(ShipmentRequest.dll)/Statistics.res
--- a/发货申请(ShipmentRequest.dll)/U_CPAddPN.dfm
+++ b/发货申请(ShipmentRequest.dll)/U_CPAddPN.dfm
@ -0,0 +1,673 @@
+object frmCPAddPN: TfrmCPAddPN
+  Left = 424
+  Top = 77
+  Width = 1026
+  Height = 558
+  Caption = #26679#21697#24405#20837
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1010
+    Height = 33
+    ButtonHeight = 30
+    ButtonWidth = 107
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_ShipmentRequest.ThreeImgList
+    Flat = True
+    Images = DataLink_ShipmentRequest.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object ToolButton1: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 14
+      OnClick = ToolButton1Click
+    end
+    object ToolButton2: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #29983#25104#21407#26009#25104#20998
+      ImageIndex = 56
+      OnClick = ToolButton2Click
+    end
+    object TBClose: TToolButton
+      Left = 174
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 55
+      OnClick = TBCloseClick
+    end
+  end
+  object ScrollBox1: TScrollBox
+    Left = 0
+    Top = 33
+    Width = 656
+    Height = 486
+    Align = alClient
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Color = clBtnFace
+    Ctl3D = False
+    ParentColor = False
+    ParentCtl3D = False
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 39
+      Top = 43
+      Width = 51
+      Height = 16
+      Caption = #32534#21495#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label7: TLabel
+      Left = 39
+      Top = 341
+      Width = 51
+      Height = 16
+      Caption = #22791#27880#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 340
+      Top = 44
+      Width = 51
+      Height = 16
+      Caption = #21697#21517#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label15: TLabel
+      Left = 339
+      Top = 162
+      Width = 51
+      Height = 16
+      Caption = #38376#24133#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label22: TLabel
+      Left = 39
+      Top = 162
+      Width = 51
+      Height = 16
+      Caption = #20811#37325#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label23: TLabel
+      Left = 39
+      Top = 71
+      Width = 51
+      Height = 32
+      Caption = #21407#26009#13#10#25104#20998#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 39
+      Top = 249
+      Width = 51
+      Height = 16
+      Caption = #39068#33394#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 339
+      Top = 249
+      Width = 51
+      Height = 16
+      Caption = #33457#22411#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label10: TLabel
+      Left = 339
+      Top = 16
+      Width = 51
+      Height = 16
+      Caption = #21333#20215#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label3: TLabel
+      Left = 39
+      Top = 14
+      Width = 51
+      Height = 16
+      Caption = #26465#30721#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 339
+      Top = 191
+      Width = 51
+      Height = 16
+      Caption = #38024#22411#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label8: TLabel
+      Left = 339
+      Top = 220
+      Width = 51
+      Height = 16
+      Caption = #32447#38271#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label9: TLabel
+      Left = 39
+      Top = 191
+      Width = 51
+      Height = 16
+      Caption = #26426#22411#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label13: TLabel
+      Left = 39
+      Top = 220
+      Width = 51
+      Height = 16
+      Caption = #20135#37327#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label12: TLabel
+      Left = 39
+      Top = 276
+      Width = 51
+      Height = 16
+      Caption = #36716#25968#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label14: TLabel
+      Left = 305
+      Top = 277
+      Width = 85
+      Height = 16
+      Caption = #19975#36716#21333#20215#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label11: TLabel
+      Left = 37
+      Top = 310
+      Width = 85
+      Height = 16
+      Caption = #23545#26041#21333#20301#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object CYNo: TEdit
+      Tag = 2
+      Left = 82
+      Top = 41
+      Width = 218
+      Height = 22
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 2
+      OnKeyPress = CYNoKeyPress
+    end
+    object CYNote: TMemo
+      Tag = 2
+      Left = 80
+      Top = 340
+      Width = 533
+      Height = 129
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      ScrollBars = ssVertical
+      TabOrder = 15
+      OnKeyPress = CYNoKeyPress
+    end
+    object CYName: TEdit
+      Tag = 2
+      Left = 383
+      Top = 40
+      Width = 218
+      Height = 22
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 3
+      OnKeyPress = CYNoKeyPress
+    end
+    object CYMF: TEdit
+      Tag = 2
+      Left = 382
+      Top = 159
+      Width = 218
+      Height = 22
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 6
+      OnExit = CYMFExit
+      OnKeyPress = CYNoKeyPress
+    end
+    object CYKZ: TEdit
+      Tag = 2
+      Left = 82
+      Top = 159
+      Width = 218
+      Height = 22
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 5
+      OnExit = CYKZExit
+      OnKeyPress = CYNoKeyPress
+    end
+    object CYColor: TEdit
+      Tag = 2
+      Left = 82
+      Top = 246
+      Width = 218
+      Height = 22
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 11
+      OnKeyPress = CYNoKeyPress
+    end
+    object CYHX: TEdit
+      Tag = 2
+      Left = 382
+      Top = 246
+      Width = 218
+      Height = 22
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 12
+      OnKeyPress = CYNoKeyPress
+    end
+    object CYPrice: TEdit
+      Tag = 2
+      Left = 382
+      Top = 12
+      Width = 218
+      Height = 22
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 0
+      OnKeyPress = CYNoKeyPress
+    end
+    object CYID: TEdit
+      Left = 82
+      Top = 13
+      Width = 218
+      Height = 22
+      Enabled = False
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 1
+      OnKeyPress = CYNoKeyPress
+    end
+    object ZhenXing: TEdit
+      Tag = 2
+      Left = 382
+      Top = 188
+      Width = 218
+      Height = 22
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 8
+      OnKeyPress = CYNoKeyPress
+    end
+    object ShaChang: TEdit
+      Tag = 2
+      Left = 382
+      Top = 217
+      Width = 218
+      Height = 22
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 10
+      OnKeyPress = CYNoKeyPress
+    end
+    object CarType: TEdit
+      Tag = 2
+      Left = 82
+      Top = 188
+      Width = 218
+      Height = 22
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 7
+      OnKeyPress = CYNoKeyPress
+    end
+    object CYSpec: TMemo
+      Tag = 2
+      Left = 82
+      Top = 69
+      Width = 533
+      Height = 84
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      ScrollBars = ssVertical
+      TabOrder = 4
+      OnKeyPress = CYNoKeyPress
+    end
+    object CYCL: TEdit
+      Tag = 2
+      Left = 82
+      Top = 217
+      Width = 218
+      Height = 22
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 9
+      OnKeyPress = CYNoKeyPress
+    end
+    object CYZhuanSu: TEdit
+      Tag = 2
+      Left = 82
+      Top = 273
+      Width = 218
+      Height = 22
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 13
+      OnKeyPress = CYNoKeyPress
+    end
+    object WZCYPrice: TEdit
+      Tag = 2
+      Left = 382
+      Top = 274
+      Width = 218
+      Height = 22
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      TabOrder = 14
+      OnKeyPress = CYNoKeyPress
+    end
+    object ForCustomer: TBtnEditA
+      Tag = 2
+      Left = 122
+      Top = 306
+      Width = 255
+      Height = 25
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      ReadOnly = True
+      TabOrder = 16
+      OnBtnClick = ForCustomerBtnClick
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 656
+    Top = 33
+    Width = 354
+    Height = 486
+    Align = alRight
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      DataController.DataSource = DataSource2
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = '0'
+          Position = spFooter
+        end
+        item
+          Format = '0'
+          Position = spFooter
+        end
+        item
+          Format = '0'
+          Position = spFooter
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column2
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.FocusCellOnTab = True
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      object v1XHNo: TcxGridDBColumn
+        Caption = #24207#21495
+        DataBinding.FieldName = 'XHINT'
+        HeaderAlignmentHorz = taCenter
+        Width = 41
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #21407#26009
+        DataBinding.FieldName = 'YLName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = v1Column1PropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Width = 170
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #32447#38271
+        DataBinding.FieldName = 'YLXC'
+        HeaderAlignmentHorz = taCenter
+        Width = 72
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #27604#20363'%'
+        DataBinding.FieldName = 'YLbl'
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 88
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object CDS_Sub: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 752
+    Top = 256
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 477
+    Top = 1
+  end
+  object DataSource2: TDataSource
+    DataSet = CDS_Sub
+    Left = 791
+    Top = 256
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    Parameters = <>
+    Left = 309
+    Top = 1
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 373
+    Top = 1
+  end
+end
--- a/发货申请(ShipmentRequest.dll)/U_CPAddPN.pas
+++ b/发货申请(ShipmentRequest.dll)/U_CPAddPN.pas
@ -0,0 +1,446 @@
+unit U_CPAddPN;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+  cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel, cxGridCustomTableView,
+  cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
+  cxGrid, ComCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit,
+  cxButtonEdit, StdCtrls, ExtCtrls, cxCurrencyEdit, BtnEdit,
+  cxLookAndFeels, cxLookAndFeelPainters, cxNavigator;
+
+type
+  TfrmCPAddPN = class(TForm)
+    ToolBar1: TToolBar;
+    ToolButton1: TToolButton;
+    TBClose: TToolButton;
+    CDS_Sub: TClientDataSet;
+    ADOQueryMain: TADOQuery;
+    DataSource2: TDataSource;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    ScrollBox1: TScrollBox;
+    Label1: TLabel;
+    Label7: TLabel;
+    CYNo: TEdit;
+    CYNote: TMemo;
+    Label5: TLabel;
+    CYName: TEdit;
+    Label15: TLabel;
+    CYMF: TEdit;
+    Label22: TLabel;
+    CYKZ: TEdit;
+    Label23: TLabel;
+    Label2: TLabel;
+    CYColor: TEdit;
+    Label4: TLabel;
+    CYHX: TEdit;
+    Label10: TLabel;
+    CYPrice: TEdit;
+    CYID: TEdit;
+    Label3: TLabel;
+    Label6: TLabel;
+    ZhenXing: TEdit;
+    Label8: TLabel;
+    ShaChang: TEdit;
+    Label9: TLabel;
+    CarType: TEdit;
+    CYSpec: TMemo;
+    Label13: TLabel;
+    CYCL: TEdit;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1XHNo: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    v1Column1: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    Label12: TLabel;
+    CYZhuanSu: TEdit;
+    Label14: TLabel;
+    WZCYPrice: TEdit;
+    ForCustomer: TBtnEditA;
+    Label11: TLabel;
+    v1Column3: TcxGridDBColumn;
+    ToolButton2: TToolButton;
+    procedure FormShow(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure CYColorKeyPress(Sender: TObject; var Key: Char);
+    procedure CYNoKeyPress(Sender: TObject; var Key: Char);
+    procedure ForCustomerBtnClick(Sender: TObject);
+    procedure CYKZExit(Sender: TObject);
+    procedure CYMFExit(Sender: TObject);
+    procedure v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+    procedure ToolButton2Click(Sender: TObject);
+//    procedure v1Column1PropertiesEditValueChanged(Sender: TObject);
+    procedure v1Column1PropertiesChange(Sender: TObject);
+  private
+    canshu1: string;
+    Fint: Integer;
+    procedure InitSubGrid();
+    function SaveData(): Boolean;
+    { Private declarations }
+  public
+    FCYID, FCYCode, FCPID, FCPNO, FCPName: string;
+    CopyInt: Integer;
+
+    { Public declarations }
+  end;
+
+var
+  frmCPAddPN: TfrmCPAddPN;
+
+implementation
+
+uses
+  U_DataLink, U_Fun, U_iniParam, U_ZDYHelp, U_ZdyAttachGYS, U_FileUp,
+  U_ZdyAttachment;
+
+{$R *.dfm}
+
+procedure TfrmCPAddPN.InitSubGrid();
+var
+  FXHInt: integer;
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Close;
+      SQL.Clear;
+      SQL.Add('select * from CP_YDang where CYID=''' + Trim(FCYID) + '''');
+      Open;
+    end;
+    SCSHDataNew(ADOQueryMain, ScrollBox1, 2);
+    SCSHDataNew(ADOQueryMain, ScrollBox1, 0);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from CP_YDangSpec where CYID=''' + Trim(FCYID) + '''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp, CDS_Sub);
+  SInitCDSData20(ADOQueryTemp, CDS_Sub);
+
+  if CDS_Sub.IsEmpty then
+  begin
+    for FXHInt := 1 to 15 do
+    begin
+      with CDS_Sub do
+      begin
+        Append;
+        fieldbyname('XHInt').value := FXHInt;
+      end;
+    end;
+  end;
+end;
+
+procedure TfrmCPAddPN.FormShow(Sender: TObject);
+begin
+  InitSubGrid();
+  if CopyInt = 1 then
+  begin
+    FCYID := '';
+    CYID.text := '';
+    CYNO.TEXT := '';
+  end;
+end;
+
+procedure TfrmCPAddPN.TBCloseClick(Sender: TObject);
+begin
+  Close;
+end;
+
+function TfrmCPAddPN.SaveData(): Boolean;
+var
+  maxId, maxid2, FCYNo, maxno: string;
+begin
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    if Trim(FCYID) = '' then
+    begin
+      if GetLSNo(ADOQueryCmd, maxId, 'Y', 'CP_YDang', 4, 1) = False then
+      begin
+        Result := False;
+        ADOQueryCmd.Connection.RollbackTrans;
+        Application.MessageBox('取最大号失败！', '提示', 0);
+        Exit;
+      end;
+      CYID.Text := trim(maxId);
+      if trim(cyno.Text) = '' then
+      begin
+        if GetLSNo(ADOQueryCmd, maxid2, 'YP', 'CP_YDang', 4, 1) = False then
+        begin
+          Result := False;
+          ADOQueryCmd.Connection.RollbackTrans;
+          Application.MessageBox('取最大号失败！', '提示', 0);
+          Exit;
+        end;
+        CYno.Text := trim(maxid2);
+      end;
+    end
+    else
+    begin
+      maxId := Trim(FCYID);
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from CP_YDang where CYID=''' + Trim(FCYID) + '''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if Trim(FCYID) = '' then
+      begin
+        Append;
+        FieldByName('CYType').Value := Trim(FCPID);
+      end
+      else
+      begin
+        Edit;
+      end;
+      FieldByName('CYID').Value := Trim(maxId);
+      SSetsaveSqlNew(ADOQueryCmd, 'CP_YDang', ScrollBox1, 2);
+      Post;
+    end;
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select count(*) as AA from CP_YDang where CYNo=''' + Trim(CYNo.Text) + '''');
+      Open;
+      if FieldByName('AA').AsInteger > 1 then
+      begin
+        ADOQueryCmd.Connection.RollbackTrans;
+        Result := False;
+        Application.MessageBox('编号重复！', '提示', 0);
+        Exit;
+      end;
+    end;
+    //保存配比表
+    with CDS_Sub do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Trim(CDS_Sub.fieldbyname('PBID').AsString) = '' then
+        begin
+          if GetLSNo(ADOQueryCmd, maxno, 'YPS', 'CP_YDangSpec', 4, 1) = False then
+          begin
+            ADOQueryCmd.Connection.RollbackTrans;
+            Application.MessageBox('取子流水号失败！', '提示', 0);
+            Exit;
+          end;
+        end
+        else
+        begin
+          maxno := Trim(CDS_Sub.fieldbyname('PBID').AsString);
+        end;
+        with ADOQueryCmd do
+        begin
+          Close;
+          SQL.Clear;
+          sql.Add('select * from CP_YDangSpec where PBID=''' + Trim(maxno) + '''');
+          Open;
+        end;
+        with ADOQueryCmd do
+        begin
+          if Trim(CDS_Sub.fieldbyname('PBID').AsString) = '' then
+            Append
+          else
+            Edit;
+          FieldByName('CYID').Value := Trim(maxId);
+          FieldByName('PBID').Value := Trim(maxno);
+          RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'CP_YDangSpec', 0);
+          Post;
+        end;
+        CDS_Sub.Edit;
+        CDS_Sub.FieldByName('PBID').Value := Trim(maxno);
+
+        Next;
+      end;
+    end;
+//    with ADOCmd do
+//    begin
+//      Close;
+//      sql.Clear;
+//      sql.Add('Update JYOrderCon_Main_PB Set ');
+//      sql.Add('ConMoney=(select Sum(ConMXMoney) from JYOrderCon_Sub_PB A where A.MainId=JYOrderCon_Main_PB.MainId)');
+//      sql.Add(',ConQty=(select Sum(PRTOrderQty) from JYOrderCon_Sub_PB A where A.MainId=JYOrderCon_Main_PB.MainId)');
+//      sql.Add('where MainId='''+Trim(FMainId)+'''');
+//      ExecSQL ;
+//    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    FCYID := maxId;
+    Result := True;
+  except
+    Result := False;
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败!', '提示', 0);
+  end;
+end;
+
+procedure TfrmCPAddPN.ToolButton1Click(Sender: TObject);
+begin
+//  if CYNo.Text = '' then
+//  begin
+//    Application.MessageBox('产品编号不能为空！', '提示', 0);
+//    Exit;
+//  end;
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功！', '提示', 0);
+    ModalResult := 1;
+  end;
+end;
+
+procedure TfrmCPAddPN.CYColorKeyPress(Sender: TObject; var Key: Char);
+var
+  c: Integer;
+begin
+  if Key = '.' then
+  begin
+    for c := 1 to length(TEdit(Sender).text) do
+    begin
+      if Tedit(Sender).text[c] = '.' then
+        Key := #0;
+    end;
+  end
+  else if Key = #13 then
+    PerForm(WM_NEXTDLGCTL, 0, 0)
+  else if Key = #8 then
+    Key := #8
+  else if (Key < '0') or (Key > '9') then
+    Key := #0;
+end;
+
+procedure TfrmCPAddPN.CYNoKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then
+  begin
+    Key := #0;
+    SelectNext(ActiveControl as TWinControl, True, True);
+  end;
+end;
+
+procedure TfrmCPAddPN.ForCustomerBtnClick(Sender: TObject);
+begin
+  try
+    frmZdyAttachment := TfrmZdyAttachment.Create(Application);
+    with frmZdyAttachment do
+    begin
+      if ShowModal = 1 then
+      begin
+        ForCustomer.Text := Trim(CDS_HZ.fieldbyname('CoName').AsString);
+      end;
+    end;
+  finally
+    frmZdyAttachment.Free;
+  end;
+end;
+
+procedure TfrmCPAddPN.CYKZExit(Sender: TObject);
+begin
+  if pos('GSM', trim(CYKZ.Text)) = 0 then
+    CYKZ.Text := trim(CYKZ.Text) + 'GSM';
+end;
+
+procedure TfrmCPAddPN.CYMFExit(Sender: TObject);
+begin
+  if pos('CM', trim(CYMF.Text)) = 0 then
+    CYMF.Text := trim(CYMF.Text) + 'CM';
+end;
+
+procedure TfrmCPAddPN.v1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+var
+  FYL: string;
+begin
+  try
+    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag := 'SXYCLName';
+      flagname := '原材料名称';
+      if ShowModal = 1 then
+      begin
+        Self.CDS_SUB.Edit;
+        Self.CDS_SUB.FieldByName('YLName').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+//  toolbutton2.Click();
+
+end;
+
+procedure TfrmCPAddPN.ToolButton2Click(Sender: TObject);
+var
+  FYL: string;
+begin
+  FYL := '';
+  with cds_sub do
+  begin
+    First;
+    while not Eof do
+    begin
+      if CDS_SUB.FieldBYNAME('ylname').ASSTRING <> '' then
+      begin
+        if FYL = '' then
+        begin
+          FYL := CDS_SUB.FieldBYNAME('ylname').ASSTRING;
+        end
+        else
+        begin
+          FYL := FYL + '+' + CDS_SUB.FieldBYNAME('ylname').ASSTRING;
+        end;
+
+      end;
+      next;
+    end;
+    cyspec.Text := FYL;
+  end;
+
+end;
+
+procedure TfrmCPAddPN.v1Column1PropertiesChange(Sender: TObject);
+var
+  FYL: string;
+begin
+//  FYL := '';
+//  with cds_sub do
+//  begin
+//    First;
+//    while not Eof do
+//    begin
+//      if CDS_SUB.FieldBYNAME('ylname').ASSTRING <> '' then
+//      begin
+//        if FYL = '' then
+//        begin
+//          FYL := CDS_SUB.FieldBYNAME('ylname').ASSTRING;
+//        end
+//        else
+//        begin
+//          FYL := FYL + '+' + CDS_SUB.FieldBYNAME('ylname').ASSTRING;
+//        end;
+//
+//      end;
+//      next;
+//    end;
+//    cyspec.Text := FYL;
+//  end;
+
+end;
+
+end.
+
--- a/发货申请(ShipmentRequest.dll)/U_CPManageFMSel.dfm
+++ b/发货申请(ShipmentRequest.dll)/U_CPManageFMSel.dfm
@ -0,0 +1,561 @@
+object frmCPManageFMSel: TfrmCPManageFMSel
+  Left = 350
+  Top = 43
+  Width = 1382
+  Height = 772
+  Align = alClient
+  AutoSize = True
+  Caption = #26679#21697#20449#24687
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnKeyDown = FormKeyDown
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1366
+    Height = 31
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_ShipmentRequest.ThreeImgList
+    Flat = True
+    Images = DataLink_ShipmentRequest.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object ToolButton2: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = ToolButton2Click
+    end
+    object ToolButton4: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #36873#25321
+      ImageIndex = 31
+      OnClick = ToolButton4Click
+    end
+    object ToolButton1: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 2
+      OnClick = ToolButton1Click
+    end
+    object TBClose: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 220
+    Top = 92
+    Width = 8
+    Height = 641
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    Control = Panel5
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 31
+    Width = 1366
+    Height = 61
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label2: TLabel
+      Left = 16
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #25195#25551#20837#21475
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+    end
+    object Label1: TLabel
+      Left = 364
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #20013#25991#21517#31216
+    end
+    object Label3: TLabel
+      Left = 216
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #20135#21697#32534#21495
+    end
+    object Label7: TLabel
+      Left = 732
+      Top = 15
+      Width = 24
+      Height = 12
+      Caption = #20811#37325
+    end
+    object Label8: TLabel
+      Left = 611
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #25104'    '#20998
+    end
+    object Label10: TLabel
+      Left = 485
+      Top = 15
+      Width = 24
+      Height = 12
+      Caption = #38376#24133
+    end
+    object Label11: TLabel
+      Left = 1088
+      Top = 11
+      Width = 7
+      Height = 12
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label12: TLabel
+      Left = 1088
+      Top = 31
+      Width = 7
+      Height = 12
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label4: TLabel
+      Left = 239
+      Top = 38
+      Width = 24
+      Height = 12
+      Caption = #23458#25143
+    end
+    object CYID: TEdit
+      Tag = 3
+      Left = 72
+      Top = 11
+      Width = 121
+      Height = 20
+      TabOrder = 0
+      OnKeyPress = CYIDKeyPress
+    end
+    object CYName: TEdit
+      Tag = 2
+      Left = 414
+      Top = 11
+      Width = 56
+      Height = 20
+      TabOrder = 2
+      OnChange = CYNameChange
+    end
+    object CYNO: TEdit
+      Tag = 2
+      Left = 265
+      Top = 11
+      Width = 89
+      Height = 20
+      TabOrder = 1
+      OnChange = CYNoChange
+      OnKeyPress = CYNOKeyPress
+    end
+    object CYKZ: TEdit
+      Tag = 2
+      Left = 758
+      Top = 11
+      Width = 76
+      Height = 20
+      TabOrder = 5
+      OnChange = CYMFChange
+    end
+    object CYCF: TEdit
+      Tag = 2
+      Left = 661
+      Top = 11
+      Width = 56
+      Height = 20
+      TabOrder = 4
+      OnChange = CYNameChange
+    end
+    object CYMF: TEdit
+      Tag = 2
+      Left = 511
+      Top = 11
+      Width = 76
+      Height = 20
+      TabOrder = 3
+      OnChange = CYMFChange
+    end
+    object ForCustomer: TEdit
+      Tag = 2
+      Left = 266
+      Top = 34
+      Width = 90
+      Height = 20
+      TabOrder = 6
+      OnChange = CYMFChange
+    end
+  end
+  object Panel2: TPanel
+    Left = 512
+    Top = 232
+    Width = 185
+    Height = 41
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
+    Color = clSkyBlue
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clRed
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 5
+    Visible = False
+  end
+  object Panel5: TPanel
+    Left = 0
+    Top = 92
+    Width = 220
+    Height = 641
+    Align = alLeft
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    TabOrder = 2
+    object cxDBTreeList1: TcxDBTreeList
+      Left = 2
+      Top = 2
+      Width = 216
+      Height = 637
+      Align = alClient
+      Bands = <
+        item
+        end>
+      DataController.DataSource = DataSource1
+      DataController.ParentField = 'CPParent'
+      DataController.KeyField = 'CPID'
+      Navigator.Buttons.CustomButtons = <>
+      OptionsBehavior.ExpandOnDblClick = False
+      OptionsSelection.CellSelect = False
+      OptionsView.CellAutoHeight = True
+      OptionsView.Headers = False
+      RootValue = -1
+      Styles.Inactive = DataLink_ShipmentRequest.Red
+      Styles.Selection = DataLink_ShipmentRequest.Red
+      Styles.IncSearch = DataLink_ShipmentRequest.Red
+      TabOrder = 0
+      OnDblClick = cxDBTreeList1DblClick
+      object cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn
+        DataBinding.FieldName = 'CPName'
+        Width = 210
+        Position.ColIndex = 0
+        Position.RowIndex = 0
+        Position.BandIndex = 0
+        Summary.FooterSummaryItems = <>
+        Summary.GroupFooterSummaryItems = <>
+      end
+    end
+  end
+  object Panel3: TPanel
+    Left = 230
+    Top = 104
+    Width = 1073
+    Height = 609
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Caption = 'Panel3'
+    TabOrder = 4
+    object GroupBox1: TGroupBox
+      Left = 2
+      Top = 412
+      Width = 1069
+      Height = 195
+      Align = alBottom
+      Caption = #26679#21697#32553#30053#22270#65288#21452#20987#22270#29255#26597#30475#21407#22270#65289
+      TabOrder = 1
+      object ScrollBox1: TScrollBox
+        Left = 2
+        Top = 14
+        Width = 1065
+        Height = 179
+        Align = alClient
+        BevelInner = bvLowered
+        BorderStyle = bsNone
+        TabOrder = 0
+      end
+    end
+    object cxGrid1: TcxGrid
+      Left = 2
+      Top = 2
+      Width = 1069
+      Height = 410
+      Align = alClient
+      TabOrder = 0
+      object Tv1: TcxGridDBTableView
+        Navigator.Buttons.CustomButtons = <>
+        Navigator.Buttons.Delete.Enabled = False
+        Navigator.Buttons.Delete.Visible = False
+        OnCellClick = Tv1CellClick
+        DataController.DataSource = DataSource2
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <>
+        DataController.Summary.SummaryGroups = <>
+        OptionsCustomize.ColumnFiltering = False
+        OptionsData.Deleting = False
+        OptionsData.DeletingConfirmation = False
+        OptionsView.GroupByBox = False
+        object v1Column19: TcxGridDBColumn
+          Caption = #36873#25321
+          DataBinding.FieldName = 'SSel'
+          PropertiesClassName = 'TcxCheckBoxProperties'
+          Properties.ImmediatePost = True
+          Properties.NullStyle = nssUnchecked
+          HeaderAlignmentHorz = taCenter
+          Width = 40
+        end
+        object v1Column12: TcxGridDBColumn
+          Caption = #31867#22411
+          DataBinding.FieldName = 'CPName'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 54
+        end
+        object v1CYNo: TcxGridDBColumn
+          Caption = #20135#21697#32534#21495
+          DataBinding.FieldName = 'CYNo'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 92
+        end
+        object v1Column9: TcxGridDBColumn
+          Caption = #20135#21697#21517#31216
+          DataBinding.FieldName = 'CYName'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 96
+        end
+        object v1Column2: TcxGridDBColumn
+          Caption = #21407#26009#25104#20998
+          DataBinding.FieldName = 'CYSpec'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 68
+        end
+        object v1Column4: TcxGridDBColumn
+          Caption = #32447#38271
+          DataBinding.FieldName = 'ShaChang'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 89
+        end
+        object v1Column3: TcxGridDBColumn
+          Caption = #38376#24133
+          DataBinding.FieldName = 'CYMF'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object v1Column1: TcxGridDBColumn
+          Caption = #20811#37325
+          DataBinding.FieldName = 'CYKZ'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 81
+        end
+        object v1Column7: TcxGridDBColumn
+          Caption = #23458#25143
+          DataBinding.FieldName = 'ForCustomer'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 95
+        end
+        object v1Column5: TcxGridDBColumn
+          Caption = #33457#22411
+          DataBinding.FieldName = 'CYHX'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object v1Column6: TcxGridDBColumn
+          Caption = #39068#33394
+          DataBinding.FieldName = 'CYColor'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 77
+        end
+        object v1Column39: TcxGridDBColumn
+          Caption = #22791#27880
+          DataBinding.FieldName = 'CYNote'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 166
+        end
+      end
+      object cxGrid1Level1: TcxGridLevel
+        GridView = Tv1
+      end
+    end
+  end
+  object DataSource1: TDataSource
+    DataSet = ADOQueryTree
+    Left = 91
+    Top = 147
+  end
+  object ADOQueryTree20: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 61
+    Top = 145
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 989
+    Top = 1
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    Parameters = <>
+    Left = 1029
+    Top = 1
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 432
+    Top = 184
+  end
+  object DataSource2: TDataSource
+    DataSet = CDS_Main
+    Left = 451
+    Top = 155
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 493
+    Top = 193
+  end
+  object CDS_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 392
+    Top = 184
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    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
+    Dataset = RMDB_Main
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 392
+    Top = 152
+    ReportData = {}
+  end
+  object RMDB_Main: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_Main
+    Left = 424
+    Top = 152
+  end
+  object ODPat: TOpenDialog
+    Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing]
+    Left = 484
+    Top = 157
+  end
+  object IdFTP1: TIdFTP
+    MaxLineAction = maException
+    ReadTimeout = 0
+    ProxySettings.ProxyType = fpcmNone
+    ProxySettings.Port = 0
+    Left = 461
+    Top = 188
+  end
+  object SaveDialog1: TSaveDialog
+    Left = 513
+    Top = 157
+  end
+  object DSCYNO: TDataSource
+    DataSet = CDS_CYNO
+    Left = 771
+    Top = 235
+  end
+  object CDS_CYNO: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 712
+    Top = 264
+  end
+  object ADOQueryTree: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 32
+    Top = 200
+  end
+  object adoqueryPicture: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    Parameters = <>
+    Left = 479
+    Top = 256
+  end
+end
--- a/发货申请(ShipmentRequest.dll)/U_CPManageFMSel.pas
+++ b/发货申请(ShipmentRequest.dll)/U_CPManageFMSel.pas
@ -0,0 +1,505 @@
+unit U_CPManageFMSel;
+
+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, jpeg, U_SLT,
+  cxLookAndFeels, cxLookAndFeelPainters, cxTLdxBarBuiltInMenu, cxNavigator;
+
+type
+  TfrmCPManageFMSel = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBClose: TToolButton;
+    DataSource1: TDataSource;
+    ADOQueryTree20: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    cxSplitter1: TcxSplitter;
+    Panel1: TPanel;
+    Label2: TLabel;
+    CYID: TEdit;
+    ToolButton2: TToolButton;
+    Label1: TLabel;
+    CYName: TEdit;
+    DataSource2: TDataSource;
+    ADOQueryMain: TADOQuery;
+    CDS_Main: TClientDataSet;
+    ToolButton4: TToolButton;
+    RM1: TRMGridReport;
+    RMDB_Main: TRMDBDataSet;
+    ODPat: TOpenDialog;
+    IdFTP1: TIdFTP;
+    SaveDialog1: TSaveDialog;
+    Label3: TLabel;
+    CYNO: TEdit;
+    Panel2: TPanel;
+    DSCYNO: TDataSource;
+    CDS_CYNO: TClientDataSet;
+    Label7: TLabel;
+    CYKZ: TEdit;
+    Label8: TLabel;
+    CYCF: TEdit;
+    Label10: TLabel;
+    CYMF: TEdit;
+    ADOQueryTree: TClientDataSet;
+    Panel5: TPanel;
+    cxDBTreeList1: TcxDBTreeList;
+    cxDBTreeList1cxDBTreeListColumn2: TcxDBTreeListColumn;
+    Label11: TLabel;
+    Label12: TLabel;
+    Panel3: TPanel;
+    GroupBox1: TGroupBox;
+    ScrollBox1: TScrollBox;
+    adoqueryPicture: TADOQuery;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column19: TcxGridDBColumn;
+    v1Column12: TcxGridDBColumn;
+    v1CYNo: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column39: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    v1Column7: TcxGridDBColumn;
+    Label4: TLabel;
+    ForCustomer: TEdit;
+    ToolButton1: TToolButton;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure cxDBTreeList1DblClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure CYIDKeyPress(Sender: TObject; var Key: Char);
+    procedure CYNoChange(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure v1Column19PropertiesChange(Sender: TObject);
+    procedure CYMFChange(Sender: TObject);
+    procedure CYNameChange(Sender: TObject);
+    procedure CYNOKeyPress(Sender: TObject; var Key: Char);
+    procedure Tv1DblClick(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+  private
+    { Private declarations }
+    CPID: string;
+    PState: Integer;
+    FCPID, FTopID: string;
+    procedure InitTree();
+    procedure InitGrid();
+    procedure ReadINIFile();
+    procedure InitImage();
+  public
+    { Public declarations }
+  end;
+
+var
+  frmCPManageFMSel: TfrmCPManageFMSel;
+  Mach: array of TfrmSlt;
+
+implementation
+
+uses
+  U_DataLink, U_Fun, U_FileUp, U_CPAddPN;
+
+{$R *.dfm}
+
+procedure TfrmCPManageFMSel.InitTree();
+var
+  i: Integer;
+begin
+  with ADOQueryTree20 do
+  begin
+    Close;
+    SQL.Clear;
+    SQL.Add('select * from CP_Type order by CPlevel,CPOrder,CPName');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTree20, ADOQueryTree);
+  SInitCDSData20(ADOQueryTree20, ADOQueryTree);
+  cxDBTreeList1.Items[0].Expand(false);
+  //cxDBTreeList1.Items[1].Expand(False);
+end;
+
+procedure TfrmCPManageFMSel.InitGrid();
+begin
+  Panel2.Visible := True;
+  Panel2.Refresh;
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered := False;
+      Close;
+      SQL.Clear;
+      SQL.Add('exec P_Select_CP_YDang :Code,:PState,:CYType');
+      Parameters.ParamByName('Code').Value := '';
+      Parameters.ParamByName('PState').Value := 0;
+      Parameters.ParamByName('CYType').Value := Trim(ADOQueryTree.fieldbyname('CPID').AsString);
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain, CDS_Main);
+    SInitCDSData20(ADOQueryMain, CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+  Panel2.Visible := False;
+end;
+
+procedure TfrmCPManageFMSel.FormDestroy(Sender: TObject);
+begin
+  frmCPManageFMSel := nil;
+end;
+
+procedure TfrmCPManageFMSel.FormClose(Sender: TObject; var Action: TCloseAction);
+var
+  i, j: integer;
+begin
+  j := length(Mach);
+  if j > 0 then
+  begin
+    for i := 0 to j - 1 do
+    begin
+      Mach[i].free;
+    end;
+  end;
+  SetLength(Mach, 0);
+//  writeCxGrid(self.Caption+tv1.Name,tv1);
+ // Application := mainApplication;
+  Action := cafree;
+end;
+
+procedure TfrmCPManageFMSel.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid('样品列表SelLJ', Tv1, '样品管理');
+  if DirectoryExists(ExtractFileDir('D:\Right1209')) then
+    winexec('cmd /c rd /s /q D:\Right1209', sw_hide);
+  Close;
+end;
+
+procedure TfrmCPManageFMSel.FormShow(Sender: TObject);
+begin
+  Panel3.Align := alclient;
+  InitTree();
+  ReadCxGrid('样品列表SelLJ', Tv1, '样品管理');
+
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select CYID='''' ');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp, CDS_CYNO);
+  SInitCDSData20(ADOQueryTemp, CDS_CYNO);
+  with ADOQueryMain do
+  begin
+    Filtered := False;
+    Close;
+    SQL.Clear;
+    SQL.Add('exec P_Select_CP_YDang :Code,:PState,:CYType');
+    Parameters.ParamByName('Code').Value := '';
+    Parameters.ParamByName('PState').Value := 0;
+    Parameters.ParamByName('CYType').Value := 'XXXXXXX';
+    Open;
+  end;
+  SCreateCDS20(ADOQueryMain, CDS_Main);
+  SInitCDSData20(ADOQueryMain, CDS_Main);
+  CDS_CYNO.Delete;
+end;
+
+procedure TfrmCPManageFMSel.cxDBTreeList1DblClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmCPManageFMSel.TBRafreshClick(Sender: TObject);
+begin
+  InitTree();
+  InitGrid();
+  //TJGS();
+end;
+
+procedure TfrmCPManageFMSel.ToolButton2Click(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+    SCreateCDS20(ADOQueryMain, CDS_Main);
+    SInitCDSData20(ADOQueryMain, CDS_Main);
+   // TJGS();
+  end;
+
+end;
+
+procedure TfrmCPManageFMSel.CYIDKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then
+  begin
+    if Trim(CYID.Text) = '' then
+      Exit;
+    with ADOQueryMain do
+    begin
+      Close;
+      Filtered := False;
+      sql.Clear;
+      sql.Add('exec P_Select_CP_YDang :Code,1,'''' ');
+      Parameters.ParamByName('Code').Value := Trim(CYID.Text);
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain, CDS_Main);
+    SInitCDSData20(ADOQueryMain, CDS_Main);
+    CYID.Text := '';
+    ADOQueryTree.Locate('CPID', CPID, []);
+  end;
+end;
+
+procedure TfrmCPManageFMSel.CYNoChange(Sender: TObject);
+begin
+  //if Length(Trim(TEdit(Sender).Text))<4 then Exit;
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+    SCreateCDS20(ADOQueryMain, CDS_Main);
+    SInitCDSData20(ADOQueryMain, CDS_Main);
+    //TJGS();
+  end;
+
+end;
+
+procedure TfrmCPManageFMSel.ToolButton4Click(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then
+    Exit;
+  ModalResult := 1;
+end;
+
+procedure TfrmCPManageFMSel.ReadINIFile();
+var
+  programIni: Tinifile;  //配置文件名
+  FileName: string;
+begin
+  FileName := ExtractFilePath(Paramstr(0)) + 'SYSTEMSET.INI';
+  programIni := Tinifile.create(FileName);
+  server := programIni.ReadString('SERVER', '服务器地址', '127.0.0.1');
+  programIni.Free;
+end;
+
+procedure TfrmCPManageFMSel.Tv1CellClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+begin
+  if CDS_Main.IsEmpty then
+    Exit;
+{  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').asstring)+'''');
+    Open;
+  end;
+  CPID:=Trim(ADOQueryTemp.fieldbyname('CYType').AsString);
+  ADOQueryTree.Locate('CPID',CPID,[]);  }
+  InitImage();
+end;
+
+procedure TfrmCPManageFMSel.InitImage();
+var
+  i, j: integer;
+  jpg: TJpegImage;
+  myStream: TADOBlobStream;
+begin
+
+  j := length(Mach);
+  if j > 0 then
+  begin
+    for i := 0 to j - 1 do
+    begin
+      Mach[i].free;
+    end;
+  end;
+  SetLength(Mach, 0);
+  if CDS_Main.IsEmpty then
+    exit;
+  try
+    with adoqueryPicture do
+    begin
+      close;
+      sql.Clear;
+      sql.Add(' select A.TFID,A.WBID,A.FilesOther,B.FileName from TP_File A,XD_File B  where A.TFID =B.XFID and A.WBID=' + quotedstr(trim(CDS_Main.fieldbyname('CYID').AsString)));
+      open;
+    end;
+    j := adoqueryPicture.RecordCount;
+    if j < 1 then
+      exit;
+    adoqueryPicture.DisableControls;
+    adoqueryPicture.First;
+    SetLength(Mach, j);
+    jpg := TJpegImage.Create();
+    for i := 0 to j - 1 do
+    begin
+      if triM(adoqueryPicture.fieldbyname('FilesOther').AsString) <> '' then
+      begin
+        myStream := tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('FilesOther')), bmread);
+        jpg.LoadFromStream(myStream);
+        Mach[i] := TfrmSlt.Create(Self);
+        Mach[i].Name := trim(adoqueryPicture.fieldbyname('TFID').AsString);
+        Mach[i].Parent := ScrollBox1;
+        Mach[i].Left := 0 + i * 165;
+        Mach[i].Init(adoqueryPicture.fieldbyname('TFID').AsString, adoqueryPicture.fieldbyname('FileName').AsString, jpg);
+      end;
+      adoqueryPicture.Next;
+    end;
+    adoqueryPicture.EnableControls;
+  finally
+    jpg.free;
+    application.ProcessMessages;
+  end;
+end;
+
+procedure TfrmCPManageFMSel.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
+begin
+  {if Key= then
+  begin
+    if CDS_Main.IsEmpty then Exit;
+    if Application.MessageBox('确定6666要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    if Trim(CDS_Main.fieldbyname('CYID').AsString)<>'' then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        SQL.Clear;
+        sql.Add('delete CP_YDang where CYID='''+Trim(CDS_Main.fieldbyname('CYID').AsString)+'''');
+        ExecSQL;
+      end;
+    end;
+
+    CDS_Main.Delete;
+  end;  }
+end;
+
+procedure TfrmCPManageFMSel.v1Column19PropertiesChange(Sender: TObject);
+var
+  mvalue: Boolean;
+begin
+ { mvalue:=TcxCheckBox(Sender).EditingValue;
+  if mvalue=True then
+  begin
+    with CDS_CYNO do
+    begin
+      if Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[])=False then
+      begin
+        Append;
+        FieldByName('CYID').Value:=Trim(CDS_Main.fieldbyname('CYID').AsString);
+        Post;
+      end;
+    end;
+  end else
+  begin
+    //with CDS_CYNO do
+    //begin
+    CDS_CYNO.Locate('CYID',Trim(CDS_Main.fieldbyname('CYID').AsString),[]);
+    CDS_CYNO.Delete;
+    //end;
+  end; }
+end;
+
+procedure TfrmCPManageFMSel.CYMFChange(Sender: TObject);
+begin
+  //if Length(Trim(TEdit(Sender).Text))<2 then Exit;
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+    SCreateCDS20(ADOQueryMain, CDS_Main);
+    SInitCDSData20(ADOQueryMain, CDS_Main);
+    //TJGS();
+  end;
+
+end;
+
+procedure TfrmCPManageFMSel.CYNameChange(Sender: TObject);
+begin
+  //if Length(Trim(TEdit(Sender).Text))<2 then Exit;
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+    SCreateCDS20(ADOQueryMain, CDS_Main);
+    SInitCDSData20(ADOQueryMain, CDS_Main);
+   // TJGS();
+  end;
+
+end;
+
+procedure TfrmCPManageFMSel.CYNOKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then
+  begin
+    if Trim(CYNO.Text) = '' then
+      Exit;
+    if Length(Trim(CYNO.Text)) < 4 then
+      Exit;
+    with ADOQueryMain do
+    begin
+      Close;
+      Filtered := False;
+      sql.Clear;
+      sql.Add('exec P_Select_CP_YDang :Code,2,'''' ');
+      Parameters.ParamByName('Code').Value := '%' + Trim(CYNO.Text) + '%';
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain, CDS_Main);
+    SInitCDSData20(ADOQueryMain, CDS_Main);
+    CYID.Text := '';
+    ADOQueryTree.Locate('CPID', CPID, []);
+   // TJGS();
+  end;
+end;
+
+procedure TfrmCPManageFMSel.Tv1DblClick(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then
+    Exit;
+  ModalResult := 1;
+end;
+
+procedure TfrmCPManageFMSel.ToolButton1Click(Sender: TObject);
+var
+  i: Integer;
+  FieldName: string;
+begin
+  try
+    frmCPAddPN := TfrmCPAddPN.Create(Application);
+    with frmCPAddPN do
+    begin
+      CopyInt := 0;
+      FCYID := '';
+      FCPID := Trim(Self.ADOQueryTree.fieldbyname('CPID').AsString);
+      FCPNo := Trim(Self.ADOQueryTree.fieldbyname('CPNo').AsString);
+      FCPName := Trim(Self.ADOQueryTree.fieldbyname('CPName').AsString);
+      if ShowModal = 1 then
+      begin
+        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmCPAddPN.Free;
+  end;
+end;
+
+end.
+
--- a/发货申请(ShipmentRequest.dll)/U_ClothSCList.dfm
+++ b/发货申请(ShipmentRequest.dll)/U_ClothSCList.dfm
@ -0,0 +1,729 @@
+object frmClothSCList: TfrmClothSCList
+  Left = 307
+  Top = 149
+  Width = 1280
+  Height = 581
+  Caption = #36710#38388#29983#20135#35745#21010#21333
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1264
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 95
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_ShipmentRequest.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = TBFindClick
+    end
+    object TBView: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26597#30475#24037#33402#21333
+      ImageIndex = 38
+    end
+    object TBClose: TToolButton
+      Left = 225
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1264
+    Height = 54
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 23
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #30331#35760#26085#26399
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 161
+      Top = 22
+      Width = 18
+      Height = 12
+      Caption = '---'
+    end
+    object Label3: TLabel
+      Left = 283
+      Top = 22
+      Width = 39
+      Height = 12
+      Caption = #35746#21333#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 418
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label10: TLabel
+      Left = 569
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#32534#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 721
+      Top = 22
+      Width = 26
+      Height = 12
+      Caption = #25209#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label7: TLabel
+      Left = 877
+      Top = 22
+      Width = 26
+      Height = 12
+      Caption = #23458#25143
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object BegDate: TDateTimePicker
+      Left = 76
+      Top = 18
+      Width = 85
+      Height = 20
+      Date = 40675.464742650460000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464742650460000000
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 179
+      Top = 18
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 1
+    end
+    object ConNo: TEdit
+      Tag = 2
+      Left = 324
+      Top = 18
+      Width = 81
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 2
+      OnKeyPress = conPress
+    end
+    object C_CodeName: TEdit
+      Tag = 2
+      Left = 472
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 3
+    end
+    object C_Code: TEdit
+      Tag = 2
+      Left = 623
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 4
+    end
+    object BatchNoHZ: TEdit
+      Tag = 2
+      Left = 749
+      Top = 18
+      Width = 110
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 5
+    end
+    object KHNAME: TEdit
+      Tag = 2
+      Left = 917
+      Top = 18
+      Width = 110
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 6
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 86
+    Width = 1264
+    Height = 457
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      OnDblClick = Tv1DblClick
+      NavigatorButtons.ConfirmDelete = False
+      OnCustomDrawCell = Tv1CustomDrawCell
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column6
+        end
+        item
+          Kind = skSum
+          Column = v1Column6
+        end
+        item
+          Kind = skSum
+          Column = v1Column14
+        end
+        item
+          Kind = skSum
+          Column = v1Column1
+        end
+        item
+          Kind = skSum
+          Column = v1Column18
+        end
+        item
+          Kind = skSum
+          Column = v1Column29
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column14
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column1
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column18
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column29
+        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
+          Column = v1Column14
+        end
+        item
+          Kind = skSum
+          Column = v1Column1
+        end
+        item
+          Kind = skSum
+          Column = v1Column18
+        end
+        item
+          Kind = skSum
+          Column = v1Column29
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Header = DataLink_ShipmentRequest.Default
+      object v1OrderNo: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'ConNo'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 100
+      end
+      object v1Column31: TcxGridDBColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'KHName'
+        HeaderAlignmentHorz = taCenter
+        Width = 113
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #19979#21333#26085#26399
+        DataBinding.FieldName = 'QDTime'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 66
+      end
+      object v1Column16: TcxGridDBColumn
+        Caption = #24320#22987#26102#38388
+        DataBinding.FieldName = 'BegTime'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 73
+      end
+      object v1Column17: TcxGridDBColumn
+        Caption = #32467#26463#26102#38388
+        DataBinding.FieldName = 'EndTime'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 72
+      end
+      object v1Column19: TcxGridDBColumn
+        Caption = #20132#36135#26085#26399
+        DataBinding.FieldName = 'DeliveryDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 95
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'C_CodeName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 58
+      end
+      object v1Column21: TcxGridDBColumn
+        Caption = #20135#21697#32534#21495
+        DataBinding.FieldName = 'C_Code'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 92
+      end
+      object v1Column20: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 88
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'C_Color'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 67
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #26085#20135
+        DataBinding.FieldName = 'DayQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 68
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #26426#22411
+        DataBinding.FieldName = 'CarType'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 69
+      end
+      object v1Column23: TcxGridDBColumn
+        Caption = #23433#25490#26426#21488#25968
+        DataBinding.FieldName = 'RTAPJTQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 84
+      end
+      object v1Column24: TcxGridDBColumn
+        Caption = #23433#25490#26426#21488#21495
+        DataBinding.FieldName = 'RTAPJTInfo'
+        HeaderAlignmentHorz = taCenter
+        Width = 79
+      end
+      object v1Column25: TcxGridDBColumn
+        Caption = #24403#21069#21551#29992#26426#21488#25968
+        DataBinding.FieldName = 'RTQYJTQty'
+        Width = 101
+      end
+      object v1Column26: TcxGridDBColumn
+        Caption = #24403#21069#21551#29992#26426#21488#21495
+        DataBinding.FieldName = 'RTQYJTInfo'
+        Width = 99
+      end
+      object v1Column27: TcxGridDBColumn
+        Caption = #24403#21069#20572#29992#26426#21488#25968
+        DataBinding.FieldName = 'RTTYJTQty'
+        Width = 98
+      end
+      object v1Column28: TcxGridDBColumn
+        Caption = #24403#21069#20572#29992#26426#21488#21495
+        DataBinding.FieldName = 'RTTYJTInfo'
+        Width = 97
+      end
+      object v1PRTMF: TcxGridDBColumn
+        Caption = #38376#24133'(cm)'
+        DataBinding.FieldName = 'MF'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 69
+      end
+      object v1Column32: TcxGridDBColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'CustomerNoName'
+        HeaderAlignmentHorz = taCenter
+        Width = 76
+      end
+      object v1PRTKZ: TcxGridDBColumn
+        Caption = #20811#37325'(g/'#13217')'
+        DataBinding.FieldName = 'KZ'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 76
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'PiQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 59
+      end
+      object v1Column22: TcxGridDBColumn
+        Caption = #31354#21152'(KG)'
+        DataBinding.FieldName = 'PiZhong'
+        Options.Editing = False
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 63
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #21305#37325'(KG)'
+        DataBinding.FieldName = 'PiKgQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 72
+      end
+      object v1PRTOrderQty: TcxGridDBColumn
+        Caption = #35746#21333#25968#37327'(KG)'
+        DataBinding.FieldName = 'C_Qty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 92
+      end
+      object v1Column12: TcxGridDBColumn
+        Caption = #36716#25968
+        DataBinding.FieldName = 'ZhuanQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 64
+      end
+      object v1Column14: TcxGridDBColumn
+        Caption = #22806#21457#21305#25968
+        DataBinding.FieldName = 'WFJHPSHZ'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 67
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #22806#21457#25968#37327
+        DataBinding.FieldName = 'WFJHQtyHZ'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ShipmentRequest.FonePurple
+        Width = 79
+      end
+      object v1Column30: TcxGridDBColumn
+        Caption = #25209#21495
+        DataBinding.FieldName = 'BatchNoHZ'
+        HeaderAlignmentHorz = taCenter
+        Width = 66
+      end
+      object v1Column18: TcxGridDBColumn
+        Caption = #33258#20135#21305#25968
+        DataBinding.FieldName = 'ZSCPS'
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object v1Column29: TcxGridDBColumn
+        Caption = #33258#20135#25968#37327
+        DataBinding.FieldName = 'ZSCQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 68
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #32433#38271
+        DataBinding.FieldName = 'ShaChang'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.FonePurple
+        Width = 61
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #21152#24037#36153
+        DataBinding.FieldName = 'Price'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.FonePurple
+        Width = 61
+      end
+      object v1Column15: TcxGridDBColumn
+        Caption = #21305#37325#28014#21160#177'Kg'
+        DataBinding.FieldName = 'PiKgQtyFD'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.FonePurple
+        Width = 100
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #35745#21010#19978#26426#26426#21488
+        DataBinding.FieldName = 'SJCarNO'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_ShipmentRequest.FonePurple
+        Width = 84
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'C_Note'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 68
+      end
+      object v1Column33: TcxGridDBColumn
+        Caption = #35745#21010#36710#38388
+        DataBinding.FieldName = 'JHChejian'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 56
+      end
+      object v1Column34: TcxGridDBColumn
+        Caption = #35746#21333#29366#24577
+        DataBinding.FieldName = 'DDZT'
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 688
+    Top = 200
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    Parameters = <>
+    Left = 600
+    Top = 184
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 552
+    Top = 184
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 640
+    Top = 192
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 840
+    Top = 232
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 808
+    Top = 232
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    DefaultCollate = 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 = 448
+    Top = 208
+    ReportData = {}
+  end
+  object RMXLSExport1: TRMXLSExport
+    ShowAfterExport = True
+    ExportPrecision = 1
+    PagesOfSheet = 1
+    ExportImages = True
+    ExportFrames = True
+    ExportImageFormat = ifBMP
+    JPEGQuality = 0
+    ScaleX = 1.000000000000000000
+    ScaleY = 1.000000000000000000
+    CompressFile = False
+    Left = 488
+    Top = 200
+  end
+  object CDS_PRT: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 464
+    Top = 280
+  end
+  object RMDBPRT: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_PRT
+    Left = 496
+    Top = 280
+  end
+  object RMDBPZ: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_PZ
+    Left = 504
+    Top = 320
+  end
+  object CDS_PZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 472
+    Top = 320
+  end
+  object CDS_SJ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 472
+    Top = 352
+  end
+  object RMDBSJ: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_SJ
+    Left = 504
+    Top = 352
+  end
+  object RMDBDataSet1: TRMDBDataSet
+    Visible = True
+    DataSet = ClientDataSet1
+    Left = 496
+    Top = 400
+  end
+  object ClientDataSet1: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 464
+    Top = 400
+  end
+  object CDS_WJG: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 464
+    Top = 440
+  end
+  object RMDBWJG: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_WJG
+    Left = 496
+    Top = 440
+  end
+  object CDS_HZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 872
+    Top = 224
+  end
+end
--- a/发货申请(ShipmentRequest.dll)/U_ClothSCList.pas
+++ b/发货申请(ShipmentRequest.dll)/U_ClothSCList.pas
@ -0,0 +1,825 @@
+unit U_ClothSCList;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
+  cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
+  cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
+  RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit;
+
+type
+  TfrmClothSCList = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    Label1: TLabel;
+    Label2: TLabel;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    Label3: TLabel;
+    ConNo: TEdit;
+    Label5: TLabel;
+    C_CodeName: TEdit;
+    Order_Main: TClientDataSet;
+    RM1: TRMGridReport;
+    RMXLSExport1: TRMXLSExport;
+    CDS_PRT: TClientDataSet;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1OrderNo: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1PRTMF: TcxGridDBColumn;
+    v1PRTKZ: TcxGridDBColumn;
+    v1PRTOrderQty: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    RMDBPRT: TRMDBDataSet;
+    v1Column12: TcxGridDBColumn;
+    TBView: TToolButton;
+    v1Column19: TcxGridDBColumn;
+    RMDBPZ: TRMDBDataSet;
+    CDS_PZ: TClientDataSet;
+    CDS_SJ: TClientDataSet;
+    RMDBSJ: TRMDBDataSet;
+    v1Column21: TcxGridDBColumn;
+    Label10: TLabel;
+    C_Code: TEdit;
+    v1Column22: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column11: TcxGridDBColumn;
+    v1Column15: TcxGridDBColumn;
+    v1Column13: TcxGridDBColumn;
+    v1Column16: TcxGridDBColumn;
+    v1Column17: TcxGridDBColumn;
+    v1Column20: TcxGridDBColumn;
+    v1Column23: TcxGridDBColumn;
+    v1Column24: TcxGridDBColumn;
+    v1Column25: TcxGridDBColumn;
+    v1Column26: TcxGridDBColumn;
+    v1Column27: TcxGridDBColumn;
+    v1Column28: TcxGridDBColumn;
+    RMDBDataSet1: TRMDBDataSet;
+    ClientDataSet1: TClientDataSet;
+    v1Column14: TcxGridDBColumn;
+    CDS_WJG: TClientDataSet;
+    RMDBWJG: TRMDBDataSet;
+    v1Column18: TcxGridDBColumn;
+    v1Column29: TcxGridDBColumn;
+    Label6: TLabel;
+    BatchNoHZ: TEdit;
+    v1Column31: TcxGridDBColumn;
+    v1Column30: TcxGridDBColumn;
+    v1Column32: TcxGridDBColumn;
+    v1Column33: TcxGridDBColumn;
+    v1Column34: TcxGridDBColumn;
+    KHNAME: TEdit;
+    Label7: TLabel;
+    CDS_HZ: TClientDataSet;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+//    procedure TBEditClick(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+  //  procedure TBExportClick(Sender: TObject);
+//    procedure TBPrintClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+  //  procedure TBAddClick(Sender: TObject);
+   // procedure ConNoChange(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure conPress(Sender: TObject; var Key: Char);
+//    procedure TBViewClick(Sender: TObject);
+//    procedure TBCopyClick(Sender: TObject);
+//    procedure ToolButton1Click(Sender: TObject);
+//    procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+    procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+    procedure Tv1DblClick(Sender: TObject);
+  private
+    FInt, PFInt: Integer;
+    procedure InitGrid();
+    procedure InitForm();
+    function DelData(): Boolean;
+//    procedure InitButton();
+    { Private declarations }
+  public
+    canshu1, FCheJian: string;
+    { Public declarations }
+  end;
+
+var
+  frmClothSCList: TfrmClothSCList;
+
+implementation
+
+uses
+  U_DataLink, U_Fun, U_ZDYHelp;
+  // U_ClothSCInPut,U_SCPerson, U_ClothSCInPutSC;
+
+{$R *.dfm}
+
+procedure TfrmClothSCList.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action := caFree;
+end;
+
+//procedure TfrmClothSCList.InitButton();
+//begin
+//
+//  if Trim(canshu1) = '查询' then
+//  begin
+//
+//
+//
+//    TBDel.Visible := False;
+//  end;
+//  if (Trim(canshu1) = '一车间生产') or (Trim(canshu1) = '二车间生产') then
+//  begin
+//    TBAdd.Visible := False;
+//    TBCopy.Visible := False;
+//    TBEdit.Visible := False;
+//    TBDel.Visible := False;
+//
+//  end;
+//
+//end;
+
+procedure TfrmClothSCList.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('坯布生产计划单', Tv1, '坯布生产管理');
+end;
+
+procedure TfrmClothSCList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered := False;
+      Close;
+      sql.Clear;
+      sql.Add('select A.*,B.*,CustomerNoName=(select TOP 1 CustomerNoName  from JYOrderCon_Main_PB X where X.MainId=A.ConMainId)  ');
+      sql.Add(' ,HTSYRName=(select TOP 1 SYRName  from JYOrderCon_Main_PB X where X.MainId=A.ConMainId)');
+      sql.Add(' ,ConPayment=(select TOP 1 Payment  from JYOrderCon_Main_PB X where X.MainId=A.ConMainId)');
+      sql.Add(' ,ConPRTPrice=(select TOP 1 PRTPrice  from JYOrderCon_Sub_PB X where X.SubId=A.ConSubId) ');
+      sql.Add(' ,ConDYMoney=(select TOP 1 DYMoney  from JYOrderCon_Sub_PB X where X.SubId=A.ConSubId) ');
+      sql.Add(' ,ZdyNameZ=(select  TOP 1 X.ZdyNameZ from KH_Zdy_Attachment X inner join JYOrderCon_Main_PB Y on X.Type=''KHName'' and X.ZdyCode=Y.CustomerNo where Y.MainId=A.ConMainId) ');
+      sql.Add(' ,DDZT=(case when BegFlag=0 then ''待开始'' else (case when EndFlag=0 then ''已开始'' else ''已结束'' end ) end) ');
+      sql.Add(' from Cloth_Main A inner join CLoth_Sub B on A.Mainid=B.MainId');
+      sql.Add(' where A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
+      sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain, Order_Main);
+    SInitCDSData20(ADOQueryMain, Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmClothSCList.InitForm();
+begin
+//   InitButton();
+  ReadCxGrid('坯布生产计划单', Tv1, '坯布生产管理');
+  BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 90;
+  EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
+  InitGrid();
+end;
+
+procedure TfrmClothSCList.TBFindClick(Sender: TObject);
+begin
+  if ADOQueryMain.Active = False then
+    Exit;
+  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+  SCreateCDS20(ADOQueryMain, Order_Main);
+  SInitCDSData20(ADOQueryMain, Order_Main);
+end;
+
+//procedure TfrmClothSCList.TBEditClick(Sender: TObject);
+//begin
+//  if Order_Main.IsEmpty then
+//    Exit;
+//  try
+//    frmClothSCInPut := TfrmClothSCInPut.Create(Application);
+//    with frmClothSCInPut do
+//    begin
+//      PState := 1;
+//      FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
+//      FSubId := Trim(Self.Order_Main.fieldbyname('SubId').AsString);
+//      if ShowModal = 1 then
+//      begin
+//        InitGrid();
+//        Self.Order_Main.Locate('MainId', frmClothSCInPut.FMainId, []);
+//      end;
+//    end;
+//  finally
+//    frmClothSCInPut.Free;
+//  end;
+//end;
+
+procedure TfrmClothSCList.TBDelClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add('select A.*');
+    sql.Add('from JYCon_Sub_AnPai A');
+    sql.Add(' where A.SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
+    sql.Add(' and A.MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+    Open;
+  end;
+  if ADOQueryTemp.IsEmpty = False then
+  begin
+    Application.MessageBox('已产生安排数据不能删除!', '提示', 0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
+    Exit;
+  if DelData() then
+  begin
+    //TBRafresh.Click;
+    //TBFind.Click;
+    Order_Main.Delete;
+  end;
+end;
+
+function TfrmClothSCList.DelData(): Boolean;
+begin
+  try
+    Result := false;
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete Cloth_Sub where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
+      ExecSQL;
+    end;
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from Cloth_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+      Open;
+    end;
+    if ADOQueryTemp.IsEmpty then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('delete Cloth_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+        ExecSQL;
+      end;
+    end;
+    if Trim(Order_Main.fieldbyname('SubId').AsString) = '' then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('delete Cloth_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+        ExecSQL;
+      end;
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+      ExecSQL;
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete Cloth_YCL_PB where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+      ExecSQL;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result := True;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Result := False;
+    Application.MessageBox('数据删除异常！', '提示', 0);
+  end;
+end;
+
+
+
+//procedure TfrmClothSCList.TBPrintClick(Sender: TObject);
+//var
+//  fPrintFile, FWeiZhi: string;
+//  i, j, k: integer;
+//begin
+//  if Order_Main.IsEmpty then
+//    Exit;
+//  ExportFtErpFile(trim(ComboBox1.Text) + '.rmf', ADOQueryTemp);
+//  fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + trim(ComboBox1.Text) + '.rmf';
+//
+//  with ADOQueryTemp do
+//  begin
+//    Close;
+//    sql.Clear;
+//    sql.Add('select  PZNote1=PZNote,WeiZhi1=WeiZhi,SPZ1=PZ1,SPZ2=PZ2,SPZ3=PZ3,SPZ4=PZ4,SPZ5=PZ5,SPZ6=PZ6,SPZ7=PZ7,SPZ8=PZ8,SPZ9=PZ9,SPZ10=PZ10 ');
+//    sql.Add(' ,SPZ11=PZ11,SPZ12=PZ12,SPZ13=PZ13,SPZ14=PZ14,SPZ15=PZ15,SPZ16=PZ16,SPZ17=PZ17,SPZ18=PZ18,SPZ19=PZ19,SPZ20=PZ20 ');
+//    sql.Add(' ,SPZ21=PZ21,SPZ22=PZ22,SPZ23=PZ23,SPZ24=PZ24,SPZ25=PZ25,SPZ26=PZ26,SPZ27=PZ27,SPZ28=PZ28,SPZ29=PZ29,SPZ30=PZ30 ');
+//    sql.Add(' ,SPZ31=PZ31,SPZ32=PZ32,SPZ33=PZ33,SPZ34=PZ34,SPZ35=PZ35,SPZ36=PZ36,SPZ37=PZ37, SPZ38=PZ38, SPZ39=PZ39, SPZ40=PZ40 ');
+//    sql.Add(' ,SPZ41=PZ41, SPZ42=PZ42, SPZ43=PZ43, SPZ44=PZ44, SPZ45=PZ45, SPZ46=PZ46, SPZ47=PZ47, SPZ48=PZ48, SPZ49=PZ49, SPZ50=PZ50 ');
+//    sql.Add(' ,SPZ51=PZ51, SPZ52=PZ52, SPZ53=PZ53, SPZ54=PZ54, SPZ55=PZ55, SPZ56=PZ56, SPZ57=PZ57, SPZ58=PZ58, SPZ59=PZ59, SPZ60=PZ60');
+//    sql.Add(' ,SPZ61=PZ61, SPZ62=PZ62, SPZ63=PZ63, SPZ64=PZ64, SPZ65=PZ65, SPZ66=PZ66, SPZ67=PZ67, SPZ68=PZ68, SPZ69=PZ69, SPZ70=PZ70');
+//    sql.Add(' ,SPZ71=PZ71, SPZ72=PZ72, SPZ73=PZ73, SPZ74=PZ74, SPZ75=PZ75, SPZ76=PZ76, SPZ77=PZ77, SPZ78=PZ78, SPZ79=PZ79, SPZ80=PZ80');
+//    sql.Add(' ,SPZ81=PZ81, SPZ82=PZ82, SPZ83=PZ83, SPZ84=PZ84, SPZ85=PZ85, SPZ86=PZ86, SPZ87=PZ87, SPZ88=PZ88, SPZ89=PZ89, SPZ90=PZ90');
+//    sql.Add(' ,SPZ91=PZ91, SPZ92=PZ92, SPZ93=PZ93, SPZ94=PZ94, SPZ95=PZ95, SPZ96=PZ96, SPZ97=PZ97, SPZ98=PZ98, SPZ99=PZ99, SPZ100=PZ100');
+//    sql.Add(' ,SPZ101=PZ101, SPZ102=PZ102, SPZ103=PZ103, SPZ104=PZ104, SPZ105=PZ105, SPZ106=PZ106, SPZ107=PZ107, SPZ108=PZ108 ,SPZ109=PZ109 ,SPZ110=PZ110');
+//    sql.Add(',SPZ111=PZ111 ,SPZ112=PZ112 ,SPZ113=PZ113 ,SPZ114=PZ114 ,SPZ115=PZ115 ,SPZ116=PZ116 ,SPZ117=PZ117 ,SPZ118=PZ118 ,SPZ119=PZ119 ,SPZ120=PZ120');
+//    sql.Add(',SPZ121=PZ121 ,SPZ122=PZ122 ,SPZ123=PZ123 ,SPZ124=PZ124 ,SPZ125=PZ125 ,SPZ126=PZ126 ,SPZ127=PZ127 ,SPZ128=PZ128 ,SPZ129=PZ129 ,SPZ130=PZ130');
+//    sql.Add(',SPZ131=PZ131 ,SPZ132=PZ132 ,SPZ133=PZ133 ,SPZ134=PZ134 ,SPZ135=PZ135 ,SPZ136=PZ136 ,SPZ137=PZ137 ,SPZ138=PZ138 ,SPZ139=PZ139 ,SPZ140=PZ140');
+//    sql.Add(',SPZ141=PZ141 ,SPZ142=PZ142 ,SPZ143=PZ143 ,SPZ144=PZ144    ');
+//    sql.Add(' from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+//    sql.Add(' and RTrim(PZType)=''排针'' ');
+//    Open;
+//  end;
+//  SCreateCDS20(ADOQueryTemp, CDS_PZ);
+//  SInitCDSData20(ADOQueryTemp, CDS_PZ);
+//  if CDS_PZ.IsEmpty then
+//  begin
+//    CDS_PZ.Append;
+//    CDS_PZ.Post;
+//  end;
+//
+//  with ADOQueryTemp do
+//  begin
+//    Close;
+//    sql.Clear;
+//    sql.Add('select * from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+//    sql.Add(' and RTrim(PZType)=''三角'' ');
+//    Open;
+//  end;
+//  SCreateCDS20(ADOQueryTemp, CDS_SJ);
+////  SInitCDSData20(ADOQueryTemp, CDS_SJ);
+//
+//  j := 0;
+//  k := 1;
+//
+//  ADOQueryTemp.First;
+//  FWeiZhi := ADOQueryTemp.FieldByName('WeiZhi').AsString;
+//  while not ADOQueryTemp.Eof do
+//  begin
+//    if Trim(ADOQueryTemp.FieldByName('WeiZhi').AsString) <> FWeiZhi then
+//    begin
+//      with CDS_SJ do
+//      begin
+//        Append;
+//        Post;
+//      end;
+//    end;
+//    FWeiZhi := ADOQueryTemp.FieldByName('WeiZhi').AsString;
+//    with CDS_SJ do
+//    begin
+//      Append;
+//      for i := 0 to ADOQueryTemp.FieldCount - 1 do
+//      begin
+//        fields[i].value := ADOQueryTemp.Fields[i].Value;
+//      end;
+//      fieldByName('Sflag').AsString := '1';
+//      fieldByName('Sindex').value := k;
+//      fieldByName('Ssel').value := false;
+//      fieldByName('SDefNote').value := '';
+//      inc(k);
+//      Post;
+//    end;
+//
+//    ADOQueryTemp.Next;
+//    j := j + 1;
+//  end;
+//
+//  if CDS_SJ.IsEmpty then
+//  begin
+//    CDS_SJ.Append;
+//    CDS_SJ.Post;
+//  end;
+//
+//  with ADOQueryTemp do
+//  begin
+//    Filtered := False;
+//    Close;
+//    sql.Clear;
+//    sql.Add('Select A.* ');
+//    sql.Add(',YLQty=Cast(C_Qty*PBQty*0.01*(1+isnull(ZPSH,0)*0.01) as decimal(18,1))');
+//    sql.Add(' from Cloth_YCL_PB A');
+//    sql.Add(' inner join Cloth_Sub B on A.SubId=B.SubId');
+//    sql.Add(' where A.SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
+//    Open;
+//  end;
+//  SCreateCDS20(ADOQueryTemp, CDS_PRT);
+//  SInitCDSData20(ADOQueryTemp, CDS_PRT);
+//
+//  if CDS_PRT.IsEmpty then
+//  begin
+//    CDS_PRT.Append;
+//    CDS_PRT.Post;
+//  end;
+//  with ADOQueryTemp do
+//  begin
+//    Close;
+//    sql.Clear;
+//    sql.Add('select * from Cloth_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+//    Open;
+//  end;
+//  SCreateCDS20(ADOQueryTemp, ClientDataSet1);
+//  SInitCDSData20(ADOQueryTemp, ClientDataSet1);
+//  if FileExists(fPrintFile) then
+//  begin
+//    RM1.LoadFromFile(fPrintFile);
+//    RMVariables['ZSCPS'] := ClientDataSet1.fieldbyname('ZSCPS').Value;
+//    RMVariables['ZSCQty'] := ClientDataSet1.fieldbyname('ZSCQty').Value;
+//    RMVariables['WFJHPSHZ'] := ClientDataSet1.fieldbyname('WFJHPSHZ').Value;
+//    RMVariables['WFJHQtyHZ'] := ClientDataSet1.fieldbyname('WFJHQtyHZ').Value;
+//    RMVariables['C_Code'] := Order_Main.fieldbyname('C_Code').Value;
+//    RMVariables['ConNo'] := Order_Main.fieldbyname('ConNo').Value;
+//    RMVariables['C_CodeName'] := Order_Main.fieldbyname('C_CodeName').Value;
+//    RMVariables['DayQty'] := Order_Main.fieldbyname('DayQty').Value;
+//    RMVariables['CarType'] := Order_Main.fieldbyname('CarType').Value;
+//    RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value;
+//    RMVariables['KZQty'] := Order_Main.fieldbyname('KZQty').Value;
+//    RMVariables['MFQty'] := Order_Main.fieldbyname('MFQty').Value;
+//    RMVariables['KZ'] := Order_Main.fieldbyname('KZ').Value;
+//    RMVariables['MF'] := Order_Main.fieldbyname('MF').Value;
+//    RMVariables['PiKgQty'] := Order_Main.fieldbyname('PiKgQty').Value;
+//    RMVariables['ZhuanQty'] := Order_Main.fieldbyname('ZhuanQty').Value;
+//    RMVariables['PiQty'] := Order_Main.fieldbyname('PiQty').Value;
+//    RMVariables['C_Qty'] := Order_Main.fieldbyname('C_Qty').Value;
+//    RMVariables['QDTime'] := Order_Main.fieldbyname('QDTime').Value;
+//    RMVariables['JHChejian'] := Order_Main.fieldbyname('JHChejian').Value;
+//    RMVariables['DeliveryDate'] := Order_Main.fieldbyname('DeliveryDate').Value;
+//    RMVariables['ShaChang1'] := Order_Main.fieldbyname('ShaChang').Value;
+//    RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value;
+//    RMVariables['C_Spec'] := Order_Main.fieldbyname('C_Spec').Value;
+//    RMVariables['C_Color'] := Order_Main.fieldbyname('C_Color').Value;
+//    RMVariables['C_Note'] := Order_Main.fieldbyname('C_Note').Value;
+//    RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value;
+//    RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value;
+//    RMVariables['PiKgQtyFD'] := Order_Main.fieldbyname('PiKgQtyFD').Value;
+//    RMVariables['BatchNoHZ'] := Order_Main.fieldbyname('BatchNoHZ').Value;
+//    RMVariables['ConPayment'] := Order_Main.fieldbyname('ConPayment').Value;
+//    RMVariables['ConPRTPrice'] := Order_Main.fieldbyname('ConPRTPrice').Value;
+//    RMVariables['ConDYMoney'] := Order_Main.fieldbyname('ConDYMoney').Value;
+//    RMVariables['ZdyNameZ'] := Order_Main.fieldbyname('ZdyNameZ').Value;
+//    RMVariables['Zdr'] := Order_Main.fieldbyname('Filler').Value;
+//    RMVariables['WzPrice'] := Order_Main.fieldbyname('WzPrice').Value;
+//    RMVariables['BZNote'] := Order_Main.fieldbyname('BZNote').Value;
+//    RMVariables['ZZYQ'] := Order_Main.fieldbyname('ZZYQ').Value;
+//    RMVariables['ZZSH'] := Order_Main.fieldbyname('ZZSH').Value;
+//    RMVariables['MFZZS'] := Order_Main.fieldbyname('MFZZS').Value;
+//    RMVariables['ALBL'] := Order_Main.fieldbyname('ALBL').Value;
+//    RMVariables['gongyi'] := Order_Main.fieldbyname('gongyi').Value;
+//    RMVariables['ZongJieNote'] := Order_Main.fieldbyname('ZongJieNote').Value;
+//    RMVariables['ZhenCun'] := Order_Main.fieldbyname('ZhenCun').Value;
+//    RMVariables['Filler'] := Order_Main.fieldbyname('Filler').Value;
+//    RMVariables['JHChejian'] := Order_Main.fieldbyname('JHChejian').Value;
+//    RMVariables['HTSYRName'] := Order_Main.fieldbyname('HTSYRName').Value;
+//    RMVariables['YWY'] := Order_Main.fieldbyname('YWY').Value;
+//    RMVariables['KJTS'] := Order_Main.fieldbyname('KJTS').Value;
+//    RMVariables['PBMF'] := Order_Main.fieldbyname('PBMF').Value;
+//    RMVariables['PBKZ'] := Order_Main.fieldbyname('PBKZ').Value;
+//    RMVariables['ZongZhenQty'] := Order_Main.fieldbyname('ZongZhenQty').Value;
+//    RMVariables['KHName'] := Order_Main.fieldbyname('KHName').Value;
+//    RMVariables['HZPaiSha'] := Order_Main.fieldbyname('HZPaiSha').Value;
+//    RMVariables['KHConNo'] := Order_Main.fieldbyname('KHConNo').Value;
+//    RM1.ShowReport;
+//  end
+//  else
+//  begin
+//    Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
+//  end;
+//end;
+
+procedure TfrmClothSCList.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+//procedure TfrmClothSCList.TBAddClick(Sender: TObject);
+//begin
+//
+//  try
+//    frmClothSCInPut := TfrmClothSCInPut.Create(Application);
+//    with frmClothSCInPut do
+//    begin
+//      PState := 0;
+//      FMainId := '';
+//      FSubId := '';
+//      if ShowModal = 1 then
+//      begin
+//        InitGrid();
+//      end;
+//    end;
+//  finally
+//    frmClothSCInPut.Free;
+//  end;
+//end;
+//
+//procedure TfrmClothSCList.ConNoChange(Sender: TObject);
+//begin
+//  if ADOQueryMain.Active = False then
+//    Exit;
+//  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+//  SCreateCDS20(ADOQueryMain, Order_Main);
+//  SInitCDSData20(ADOQueryMain, Order_Main);
+//end;
+
+procedure TfrmClothSCList.FormShow(Sender: TObject);
+begin
+  InitForm();
+end;
+
+procedure TfrmClothSCList.conPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then
+  begin
+    if Length(Trim(ConNo.Text)) < 4 then
+      Exit;
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        Filtered := False;
+        Close;
+        sql.Clear;
+        //sql.Add('exec Cloth_QryList :MainId,:WSql');
+       // Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+''''
+                                             // +' and ConType=''生产'' ';
+        sql.Add('select * from Cloth_Main A inner join CLoth_Sub B on A.Mainid=B.MainId');
+        sql.Add(' where A.ConNo like ''' + '%' + Trim(ConNo.Text) + '%' + '''');
+
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain, Order_Main);
+      SInitCDSData20(ADOQueryMain, Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end;
+end;
+
+//procedure TfrmClothSCList.TBViewClick(Sender: TObject);
+//begin
+//  try
+//    frmClothSCInPut := TfrmClothSCInPut.Create(Application);
+//    with frmClothSCInPut do
+//    begin
+//      PState := 1;
+//      FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
+//      FSubId := Trim(Self.Order_Main.fieldbyname('SubId').AsString);
+//      FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString);
+//      TBSave.Visible := False;
+//      ToolBar3.Visible := False;
+//      ScrollBox1.Enabled := False;
+//      if ShowModal = 1 then
+//      begin
+//
+//      end;
+//    end;
+//  finally
+//    frmClothSCInPut.Free;
+//  end;
+//end;
+
+//procedure TfrmClothSCList.TBCopyClick(Sender: TObject);
+//begin
+//  if Order_Main.IsEmpty then
+//    Exit;
+//  try
+//    frmClothSCInPut := TfrmClothSCInPut.Create(Application);
+//    with frmClothSCInPut do
+//    begin
+//      PState := 1;
+//      FCopyInt := 1;
+//      FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
+//      FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString);
+//      if ShowModal = 1 then
+//      begin
+//
+//      end;
+//    end;
+//  finally
+//    frmClothSCInPut.Free;
+//  end;
+//end;
+
+//procedure TfrmClothSCList.ToolButton1Click(Sender: TObject);
+//var
+//  fPrintFile: string;
+//begin
+//  if Order_Main.IsEmpty then
+//    Exit;
+//  if Trim(WFGYSName.Text) = '' then
+//  begin
+//    Application.MessageBox('外发单位不能为空!', '提示', 0);
+//    Exit;
+//  end;
+//  fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\外发工艺单.rmf';
+//
+//  with ADOQueryTemp do
+//  begin
+//    Close;
+//    sql.Clear;
+//    sql.Add('select  PZNote1=PZNote,WeiZhi1=WeiZhi,SPZ1=PZ1,SPZ2=PZ2,SPZ3=PZ3,SPZ4=PZ4,SPZ5=PZ5,SPZ6=PZ6,SPZ7=PZ7,SPZ8=PZ8,SPZ9=PZ9,SPZ10=PZ10 ');
+//    sql.Add(' ,SPZ11=PZ11,SPZ12=PZ12,SPZ13=PZ13,SPZ14=PZ14,SPZ15=PZ15,SPZ16=PZ16,SPZ17=PZ17,SPZ18=PZ18,SPZ19=PZ19,SPZ20=PZ20 ');
+//    sql.Add(' ,SPZ21=PZ21,SPZ22=PZ22,SPZ23=PZ23,SPZ24=PZ24,SPZ25=PZ25,SPZ26=PZ26,SPZ27=PZ27,SPZ28=PZ28,SPZ29=PZ29,SPZ30=PZ30 ');
+//    sql.Add(' ,SPZ31=PZ31,SPZ32=PZ32,SPZ33=PZ33,SPZ34=PZ34,SPZ35=PZ35,SPZ36=PZ36,SPZ37=PZ37, SPZ38=PZ38, SPZ39=PZ39, SPZ40=PZ40 ');
+//    sql.Add(' ,SPZ41=PZ41, SPZ42=PZ42, SPZ43=PZ43, SPZ44=PZ44, SPZ45=PZ45, SPZ46=PZ46, SPZ47=PZ47, SPZ48=PZ48, SPZ49=PZ49, SPZ50=PZ50 ');
+//    sql.Add(' ,SPZ51=PZ51, SPZ52=PZ52, SPZ53=PZ53, SPZ54=PZ54, SPZ55=PZ55, SPZ56=PZ56, SPZ57=PZ57, SPZ58=PZ58, SPZ59=PZ59, SPZ60=PZ60');
+//    sql.Add(' ,SPZ61=PZ61, SPZ62=PZ62, SPZ63=PZ63, SPZ64=PZ64, SPZ65=PZ65, SPZ66=PZ66, SPZ67=PZ67, SPZ68=PZ68, SPZ69=PZ69, SPZ70=PZ70');
+//    sql.Add(' ,SPZ71=PZ71, SPZ72=PZ72, SPZ73=PZ73, SPZ74=PZ74, SPZ75=PZ75, SPZ76=PZ76, SPZ77=PZ77, SPZ78=PZ78, SPZ79=PZ79, SPZ80=PZ80');
+//    sql.Add(' ,SPZ81=PZ81, SPZ82=PZ82, SPZ83=PZ83, SPZ84=PZ84, SPZ85=PZ85, SPZ86=PZ86, SPZ87=PZ87, SPZ88=PZ88, SPZ89=PZ89, SPZ90=PZ90');
+//    sql.Add(' ,SPZ91=PZ91, SPZ92=PZ92, SPZ93=PZ93, SPZ94=PZ94, SPZ95=PZ95, SPZ96=PZ96, SPZ97=PZ97, SPZ98=PZ98, SPZ99=PZ99, SPZ100=PZ100');
+//    sql.Add(' ,SPZ101=PZ101, SPZ102=PZ102, SPZ103=PZ103, SPZ104=PZ104, SPZ105=PZ105, SPZ106=PZ106, SPZ107=PZ107, SPZ108=PZ108 ,SPZ109=PZ109 ,SPZ110=PZ110');
+//    sql.Add(' ,SPZ111=PZ111 ,SPZ112=PZ112 ,SPZ113=PZ113 ,SPZ114=PZ114 ,SPZ115=PZ115 ,SPZ116=PZ116 ,SPZ117=PZ117 ,SPZ118=PZ118 ,SPZ119=PZ119 ,SPZ120=PZ120');
+//    sql.Add(' ,SPZ121=PZ121 ,SPZ122=PZ122 ,SPZ123=PZ123 ,SPZ124=PZ124 ,SPZ125=PZ125 ,SPZ126=PZ126 ,SPZ127=PZ127 ,SPZ128=PZ128 ,SPZ129=PZ129 ,SPZ130=PZ130');
+//    sql.Add(' ,SPZ131=PZ131 ,SPZ132=PZ132 ,SPZ133=PZ133 ,SPZ134=PZ134 ,SPZ135=PZ135 ,SPZ136=PZ136 ,SPZ137=PZ137 ,SPZ138=PZ138 ,SPZ139=PZ139 ,SPZ140=PZ140');
+//    sql.Add(' ,SPZ141=PZ141 ,SPZ142=PZ142 ,SPZ143=PZ143 ,SPZ144=PZ144    ');
+//    sql.Add(' from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+//    sql.Add(' and RTrim(PZType)=''排针'' ');
+//    Open;
+//  end;
+//  SCreateCDS20(ADOQueryTemp, CDS_PZ);
+//  SInitCDSData20(ADOQueryTemp, CDS_PZ);
+//  if CDS_PZ.IsEmpty then
+//  begin
+//    CDS_PZ.Append;
+//    CDS_PZ.Post;
+//  end;
+//
+//  with ADOQueryTemp do
+//  begin
+//    Close;
+//    sql.Clear;
+//    sql.Add('select * from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+//    sql.Add(' and RTrim(PZType)=''三角'' ');
+//    Open;
+//  end;
+//  SCreateCDS20(ADOQueryTemp, CDS_SJ);
+//  SInitCDSData20(ADOQueryTemp, CDS_SJ);
+//  if CDS_SJ.IsEmpty then
+//  begin
+//    CDS_SJ.Append;
+//    CDS_SJ.Post;
+//  end;
+//
+//  with ADOQueryTemp do
+//  begin
+//    Filtered := False;
+//    Close;
+//    sql.Clear;
+//    sql.Add('Select A.* ');
+//    sql.Add(',YLQty=Cast(C_Qty*PBQty*0.01*(1+isnull(ZPSH,0)*0.01) as decimal(18,1))');
+//    sql.Add(' from Cloth_YCL_PB A');
+//    sql.Add(' inner join Cloth_Sub B on A.SubId=B.SubId');
+//    sql.Add(' where A.SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
+//    Open;
+//  end;
+//  SCreateCDS20(ADOQueryTemp, CDS_PRT);
+//  SInitCDSData20(ADOQueryTemp, CDS_PRT);
+//  if CDS_PRT.IsEmpty then
+//  begin
+//    CDS_PRT.Append;
+//    CDS_PRT.Post;
+//  end;
+//  with ADOQueryTemp do
+//  begin
+//    Close;
+//    sql.Clear;
+//    sql.Add('select * from Cloth_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+//    Open;
+//  end;
+//  SCreateCDS20(ADOQueryTemp, ClientDataSet1);
+//  SInitCDSData20(ADOQueryTemp, ClientDataSet1);
+//  with ADOQueryTemp do
+//  begin
+//    Close;
+//    sql.Clear;
+//    sql.Add('select * from Cloth_WJG where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+//    sql.Add(' and WFGYSName=''' + Trim(WFGYSName.Text) + '''');
+//    Open;
+//  end;
+//  SCreateCDS20(ADOQueryTemp, CDS_WJG);
+//  SInitCDSData20(ADOQueryTemp, CDS_WJG);
+//  if FileExists(fPrintFile) then
+//  begin
+//    RM1.LoadFromFile(fPrintFile);
+//    RMVariables['WFGYSName'] := CDS_WJG.fieldbyname('WFGYSName').Value;
+//    RMVariables['WFJHPS'] := CDS_WJG.fieldbyname('WFJHPS').Value;
+//    RMVariables['WFJHQty'] := CDS_WJG.fieldbyname('WFJHQty').Value;
+//    RMVariables['JGPrice'] := CDS_WJG.fieldbyname('JGPrice').Value;
+//    RMVariables['JHJiaoQi'] := CDS_WJG.fieldbyname('JHJiaoQi').Value;
+//    RMVariables['C_Code'] := Order_Main.fieldbyname('C_Code').Value;
+//    RMVariables['ConNo'] := Order_Main.fieldbyname('ConNo').Value;
+//    RMVariables['C_CodeName'] := Order_Main.fieldbyname('C_CodeName').Value;
+//    RMVariables['DayQty'] := Order_Main.fieldbyname('DayQty').Value;
+//    RMVariables['CarType'] := Order_Main.fieldbyname('CarType').Value;
+//    RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value;
+//    RMVariables['KZQty'] := Order_Main.fieldbyname('KZQty').Value;
+//    RMVariables['MFQty'] := Order_Main.fieldbyname('MFQty').Value;
+//    RMVariables['KZ'] := Order_Main.fieldbyname('KZ').Value;
+//    RMVariables['MF'] := Order_Main.fieldbyname('MF').Value;
+//    RMVariables['PiKgQty'] := Order_Main.fieldbyname('PiKgQty').Value;
+//    RMVariables['ZhuanQty'] := Order_Main.fieldbyname('ZhuanQty').Value;
+//    RMVariables['PiQty'] := Order_Main.fieldbyname('PiQty').Value;
+//    RMVariables['C_Qty'] := Order_Main.fieldbyname('C_Qty').Value;
+//    RMVariables['QDTime'] := Order_Main.fieldbyname('QDTime').Value;
+//    RMVariables['C_Note'] := Order_Main.fieldbyname('C_Note').Value;
+//    RMVariables['DeliveryDate'] := Order_Main.fieldbyname('DeliveryDate').Value;
+//    RMVariables['ShaChang1'] := Order_Main.fieldbyname('ShaChang').Value;
+//    RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value;
+//    RMVariables['C_Spec'] := Order_Main.fieldbyname('C_Spec').Value;
+//    RMVariables['C_Color'] := Order_Main.fieldbyname('C_Color').Value;
+//    RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value;
+//    RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value;
+//    RMVariables['PiKgQtyFD'] := Order_Main.fieldbyname('PiKgQtyFD').Value;
+//    RMVariables['Price'] := Order_Main.fieldbyname('Price').Value;
+//    RMVariables['MFZZS'] := Order_Main.fieldbyname('MFZZS').Value;
+//    RMVariables['ALBL'] := Order_Main.fieldbyname('ALBL').Value;
+//    RMVariables['gongyi'] := Order_Main.fieldbyname('gongyi').Value;
+//    RMVariables['ZongJieNote'] := Order_Main.fieldbyname('ZongJieNote').Value;
+//    RMVariables['ZhenCun'] := Order_Main.fieldbyname('ZhenCun').Value;
+//    RMVariables['BZNote'] := Order_Main.fieldbyname('BZNote').Value;
+//    RMVariables['ZZYQ'] := Order_Main.fieldbyname('ZZYQ').Value;
+//    RMVariables['Zdr'] := Order_Main.fieldbyname('Filler').Value;
+//    RMVariables['JHChejian'] := Order_Main.fieldbyname('JHChejian').Value;
+//    RMVariables['HTSYRName'] := Order_Main.fieldbyname('HTSYRName').Value;
+//    RMVariables['YWY'] := Order_Main.fieldbyname('YWY').Value;
+//    RMVariables['KJTS'] := Order_Main.fieldbyname('KJTS').Value;
+//    RMVariables['PBMF'] := Order_Main.fieldbyname('PBMF').Value;
+//    RMVariables['PBKZ'] := Order_Main.fieldbyname('PBKZ').Value;
+//    RMVariables['ZongZhenQty'] := Order_Main.fieldbyname('ZongZhenQty').Value;
+//    RMVariables['KHName'] := Order_Main.fieldbyname('KHName').Value;
+//    RMVariables['HZPaiSha'] := Order_Main.fieldbyname('HZPaiSha').Value;
+//    RMVariables['KHConNo'] := Order_Main.fieldbyname('KHConNo').Value;
+//    RM1.ShowReport;
+//  end
+//  else
+//  begin
+//    Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\外发工艺单.rmf'), '提示', 0);
+//  end;
+//end;
+
+//procedure TfrmClothSCList.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+//var
+//  fsj: string;
+//begin
+//  if Order_Main.IsEmpty = False then
+//    fsj := 'select Name=WFGYSName,Code=WFGYSNo from Cloth_WJG where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''
+//  else
+//    fsj := 'select Name=WFGYSName,Code=WFGYSNo from Cloth_WJG where 1=2';
+//  WFGYSName.Items.Clear;
+//  SInitComBoxBySql(ADOQueryTemp, WFGYSName, True, fsj);
+//end;
+
+procedure TfrmClothSCList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+var
+  FDDZT: string;
+begin
+
+  if AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('DDZT').Index] = null then
+    Exit;
+
+  FDDZT := AViewInfo.GridRecord.Values[TcxGridDBTableView(Sender).GetColumnByFieldName('DDZT').Index];
+
+  if FDDZT = '已开始' then
+    ACanvas.Font.Color := $FF0000;
+  if FDDZT = '已结束' then
+    ACanvas.Font.Color := $0000FF;
+
+end;
+
+procedure TfrmClothSCList.Tv1DblClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then
+    exit;
+  ModalResult := 1;
+end;
+
+end.
+
--- a/发货申请(ShipmentRequest.dll)/U_ClothSCListSel.dfm
+++ b/发货申请(ShipmentRequest.dll)/U_ClothSCListSel.dfm
@ -0,0 +1,784 @@
+object frmClothSCList: TfrmClothSCList
+  Left = 317
+  Top = 157
+  Width = 1280
+  Height = 581
+  Caption = #36710#38388#29983#20135#35745#21010#21333
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1264
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 119
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_WeavingSchedule.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = TBFindClick
+    end
+    object TBAdd: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 1
+      OnClick = TBAddClick
+    end
+    object TBEdit: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 11
+      OnClick = TBEditClick
+    end
+    object TBView: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #26597#30475#24037#33402#21333
+      ImageIndex = 38
+      OnClick = TBViewClick
+    end
+    object TBDel: TToolButton
+      Left = 351
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 3
+      OnClick = TBDelClick
+    end
+    object ToolButton1: TToolButton
+      Left = 414
+      Top = 0
+      AutoSize = True
+      Caption = #22806#21457#24037#33402#21333
+      ImageIndex = 60
+      OnClick = ToolButton1Click
+    end
+    object Panel2: TPanel
+      Left = 513
+      Top = 0
+      Width = 173
+      Height = 30
+      BevelInner = bvRaised
+      BevelOuter = bvLowered
+      Color = clSkyBlue
+      TabOrder = 0
+      object Label4: TLabel
+        Left = 8
+        Top = 8
+        Width = 48
+        Height = 12
+        Caption = #22806#21457#21333#20301
+      end
+      object WFGYSName: TComboBox
+        Left = 59
+        Top = 5
+        Width = 110
+        Height = 20
+        Style = csDropDownList
+        ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+        ItemHeight = 12
+        TabOrder = 0
+      end
+    end
+    object TBPrint: TToolButton
+      Left = 686
+      Top = 0
+      AutoSize = True
+      Caption = #29983#20135#35745#21010#21333#25171#21360
+      ImageIndex = 4
+      OnClick = TBPrintClick
+    end
+    object TBCopy: TToolButton
+      Left = 809
+      Top = 0
+      AutoSize = True
+      Caption = #22797#21046
+      ImageIndex = 39
+      OnClick = TBCopyClick
+    end
+    object TBExport: TToolButton
+      Left = 872
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 68
+      OnClick = TBExportClick
+    end
+    object TBClose: TToolButton
+      Left = 935
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1264
+    Height = 54
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 23
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #30331#35760#26085#26399
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 161
+      Top = 22
+      Width = 18
+      Height = 12
+      Caption = '---'
+    end
+    object Label3: TLabel
+      Left = 283
+      Top = 22
+      Width = 39
+      Height = 12
+      Caption = #35746#21333#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 418
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label10: TLabel
+      Left = 569
+      Top = 22
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#32534#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 721
+      Top = 22
+      Width = 26
+      Height = 12
+      Caption = #25209#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object BegDate: TDateTimePicker
+      Left = 76
+      Top = 18
+      Width = 85
+      Height = 20
+      Date = 40675.464742650460000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464742650460000000
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 179
+      Top = 18
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 1
+    end
+    object ConNo: TEdit
+      Tag = 2
+      Left = 324
+      Top = 18
+      Width = 81
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 2
+      OnChange = ConNoChange
+      OnKeyPress = conPress
+    end
+    object C_CodeName: TEdit
+      Tag = 2
+      Left = 472
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 3
+      OnChange = ConNoChange
+    end
+    object C_Code: TEdit
+      Tag = 2
+      Left = 623
+      Top = 18
+      Width = 83
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 4
+      OnChange = ConNoChange
+    end
+    object BatchNoHZ: TEdit
+      Tag = 2
+      Left = 749
+      Top = 18
+      Width = 110
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 5
+      OnChange = ConNoChange
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 86
+    Width = 1264
+    Height = 457
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      OnMouseDown = Tv1MouseDown
+      NavigatorButtons.ConfirmDelete = False
+      DataController.DataSource = DataSource1
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column6
+        end
+        item
+          Kind = skSum
+          Column = v1Column6
+        end
+        item
+          Kind = skSum
+          Column = v1Column14
+        end
+        item
+          Kind = skSum
+          Column = v1Column1
+        end
+        item
+          Kind = skSum
+          Column = v1Column18
+        end
+        item
+          Kind = skSum
+          Column = v1Column29
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column14
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column1
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column18
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+          Column = v1Column29
+        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
+          Column = v1Column14
+        end
+        item
+          Kind = skSum
+          Column = v1Column1
+        end
+        item
+          Kind = skSum
+          Column = v1Column18
+        end
+        item
+          Kind = skSum
+          Column = v1Column29
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Header = DataLink_WeavingSchedule.Default
+      object v1OrderNo: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'ConNo'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_WeavingSchedule.Default
+        Width = 100
+      end
+      object v1Column31: TcxGridDBColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'KHName'
+        HeaderAlignmentHorz = taCenter
+        Width = 113
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #19979#21333#26085#26399
+        DataBinding.FieldName = 'QDTime'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_WeavingSchedule.Default
+        Width = 66
+      end
+      object v1Column16: TcxGridDBColumn
+        Caption = #24320#22987#26102#38388
+        DataBinding.FieldName = 'BegTime'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_WeavingSchedule.Default
+        Width = 73
+      end
+      object v1Column17: TcxGridDBColumn
+        Caption = #32467#26463#26102#38388
+        DataBinding.FieldName = 'EndTime'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_WeavingSchedule.Default
+        Width = 72
+      end
+      object v1Column19: TcxGridDBColumn
+        Caption = #20132#36135#26085#26399
+        DataBinding.FieldName = 'DeliveryDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.SaveTime = False
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_WeavingSchedule.Default
+        Width = 95
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'C_CodeName'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_WeavingSchedule.Default
+        Width = 58
+      end
+      object v1Column21: TcxGridDBColumn
+        Caption = #20135#21697#32534#21495
+        DataBinding.FieldName = 'C_Code'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_WeavingSchedule.Default
+        Width = 92
+      end
+      object v1Column20: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'C_Spec'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 88
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'C_Color'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_WeavingSchedule.Default
+        Width = 67
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #26085#20135
+        DataBinding.FieldName = 'DayQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_WeavingSchedule.Default
+        Width = 68
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #26426#22411
+        DataBinding.FieldName = 'CarType'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_WeavingSchedule.Default
+        Width = 69
+      end
+      object v1Column23: TcxGridDBColumn
+        Caption = #23433#25490#26426#21488#25968
+        DataBinding.FieldName = 'RTAPJTQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 84
+      end
+      object v1Column24: TcxGridDBColumn
+        Caption = #23433#25490#26426#21488#21495
+        DataBinding.FieldName = 'RTAPJTInfo'
+        HeaderAlignmentHorz = taCenter
+        Width = 79
+      end
+      object v1Column25: TcxGridDBColumn
+        Caption = #24403#21069#21551#29992#26426#21488#25968
+        DataBinding.FieldName = 'RTQYJTQty'
+        Width = 101
+      end
+      object v1Column26: TcxGridDBColumn
+        Caption = #24403#21069#21551#29992#26426#21488#21495
+        DataBinding.FieldName = 'RTQYJTInfo'
+        Width = 99
+      end
+      object v1Column27: TcxGridDBColumn
+        Caption = #24403#21069#20572#29992#26426#21488#25968
+        DataBinding.FieldName = 'RTTYJTQty'
+        Width = 98
+      end
+      object v1Column28: TcxGridDBColumn
+        Caption = #24403#21069#20572#29992#26426#21488#21495
+        DataBinding.FieldName = 'RTTYJTInfo'
+        Width = 97
+      end
+      object v1PRTMF: TcxGridDBColumn
+        Caption = #38376#24133'(cm)'
+        DataBinding.FieldName = 'MF'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_WeavingSchedule.Default
+        Width = 69
+      end
+      object v1Column32: TcxGridDBColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'CustomerNoName'
+        HeaderAlignmentHorz = taCenter
+        Width = 76
+      end
+      object v1PRTKZ: TcxGridDBColumn
+        Caption = #20811#37325'(g/'#13217')'
+        DataBinding.FieldName = 'KZ'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_WeavingSchedule.Default
+        Width = 76
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'PiQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_WeavingSchedule.Default
+        Width = 59
+      end
+      object v1Column22: TcxGridDBColumn
+        Caption = #31354#21152'(KG)'
+        DataBinding.FieldName = 'PiZhong'
+        Options.Editing = False
+        Styles.Header = DataLink_WeavingSchedule.Default
+        Width = 63
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #21305#37325'(KG)'
+        DataBinding.FieldName = 'PiKgQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_WeavingSchedule.Default
+        Width = 72
+      end
+      object v1PRTOrderQty: TcxGridDBColumn
+        Caption = #35746#21333#25968#37327'(KG)'
+        DataBinding.FieldName = 'C_Qty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_WeavingSchedule.Default
+        Width = 92
+      end
+      object v1Column12: TcxGridDBColumn
+        Caption = #36716#25968
+        DataBinding.FieldName = 'ZhuanQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_WeavingSchedule.Default
+        Width = 64
+      end
+      object v1Column14: TcxGridDBColumn
+        Caption = #22806#21457#21305#25968
+        DataBinding.FieldName = 'WFJHPSHZ'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 67
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #22806#21457#25968#37327
+        DataBinding.FieldName = 'WFJHQtyHZ'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_WeavingSchedule.FonePurple
+        Width = 79
+      end
+      object v1Column30: TcxGridDBColumn
+        Caption = #25209#21495
+        DataBinding.FieldName = 'BatchNoHZ'
+        HeaderAlignmentHorz = taCenter
+        Width = 66
+      end
+      object v1Column18: TcxGridDBColumn
+        Caption = #33258#20135#21305#25968
+        DataBinding.FieldName = 'ZSCPS'
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object v1Column29: TcxGridDBColumn
+        Caption = #33258#20135#25968#37327
+        DataBinding.FieldName = 'ZSCQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 68
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #32433#38271
+        DataBinding.FieldName = 'ShaChang'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_WeavingSchedule.FonePurple
+        Width = 61
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #21152#24037#36153
+        DataBinding.FieldName = 'Price'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_WeavingSchedule.FonePurple
+        Width = 61
+      end
+      object v1Column15: TcxGridDBColumn
+        Caption = #21305#37325#28014#21160#177'Kg'
+        DataBinding.FieldName = 'PiKgQtyFD'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_WeavingSchedule.FonePurple
+        Width = 100
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #35745#21010#19978#26426#26426#21488
+        DataBinding.FieldName = 'SJCarNO'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_WeavingSchedule.FonePurple
+        Width = 84
+      end
+      object v1Column4: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'C_Note'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_WeavingSchedule.Default
+        Width = 68
+      end
+      object v1Column33: TcxGridDBColumn
+        Caption = #35745#21010#36710#38388
+        DataBinding.FieldName = 'JHChejian'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 56
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 688
+    Top = 200
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_WeavingSchedule.ADOLink
+    Parameters = <>
+    Left = 600
+    Top = 184
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_WeavingSchedule.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 552
+    Top = 184
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_WeavingSchedule.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 640
+    Top = 192
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 840
+    Top = 232
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 808
+    Top = 232
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
+    DefaultCollate = 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 = 448
+    Top = 208
+    ReportData = {}
+  end
+  object RMXLSExport1: TRMXLSExport
+    ShowAfterExport = True
+    ExportPrecision = 1
+    PagesOfSheet = 1
+    ExportImages = True
+    ExportFrames = True
+    ExportImageFormat = ifBMP
+    JPEGQuality = 0
+    ScaleX = 1.000000000000000000
+    ScaleY = 1.000000000000000000
+    CompressFile = False
+    Left = 488
+    Top = 200
+  end
+  object CDS_PRT: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 464
+    Top = 280
+  end
+  object RMDBPRT: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_PRT
+    Left = 496
+    Top = 280
+  end
+  object RMDBPZ: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_PZ
+    Left = 504
+    Top = 320
+  end
+  object CDS_PZ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 472
+    Top = 320
+  end
+  object CDS_SJ: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 472
+    Top = 352
+  end
+  object RMDBSJ: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_SJ
+    Left = 504
+    Top = 352
+  end
+  object RMDBDataSet1: TRMDBDataSet
+    Visible = True
+    DataSet = ClientDataSet1
+    Left = 496
+    Top = 400
+  end
+  object ClientDataSet1: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 464
+    Top = 400
+  end
+  object CDS_WJG: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 464
+    Top = 440
+  end
+  object RMDBWJG: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_WJG
+    Left = 496
+    Top = 440
+  end
+end
--- a/发货申请(ShipmentRequest.dll)/U_ClothSCListSel.pas
+++ b/发货申请(ShipmentRequest.dll)/U_ClothSCListSel.pas
@ -0,0 +1,794 @@
+unit U_ClothSCListSel;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
+  cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
+  cxGrid, DBClient, cxCalendar, cxButtonEdit, cxSplitter, RM_Common, RM_Class,
+  RM_e_Xls, RM_Dataset, RM_System, RM_GridReport, cxTextEdit;
+
+type
+  TfrmClothSCList = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBAdd: TToolButton;
+    TBEdit: TToolButton;
+    TBDel: TToolButton;
+    TBPrint: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    Label1: TLabel;
+    Label2: TLabel;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    Label3: TLabel;
+    ConNo: TEdit;
+    Label5: TLabel;
+    C_CodeName: TEdit;
+    TBExport: TToolButton;
+    Order_Main: TClientDataSet;
+    RM1: TRMGridReport;
+    RMXLSExport1: TRMXLSExport;
+    CDS_PRT: TClientDataSet;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1OrderNo: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1PRTMF: TcxGridDBColumn;
+    v1PRTKZ: TcxGridDBColumn;
+    v1PRTOrderQty: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    RMDBPRT: TRMDBDataSet;
+    v1Column12: TcxGridDBColumn;
+    TBCopy: TToolButton;
+    TBView: TToolButton;
+    v1Column19: TcxGridDBColumn;
+    RMDBPZ: TRMDBDataSet;
+    CDS_PZ: TClientDataSet;
+    CDS_SJ: TClientDataSet;
+    RMDBSJ: TRMDBDataSet;
+    v1Column21: TcxGridDBColumn;
+    Label10: TLabel;
+    C_Code: TEdit;
+    v1Column22: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column11: TcxGridDBColumn;
+    v1Column15: TcxGridDBColumn;
+    v1Column13: TcxGridDBColumn;
+    v1Column16: TcxGridDBColumn;
+    v1Column17: TcxGridDBColumn;
+    v1Column20: TcxGridDBColumn;
+    v1Column23: TcxGridDBColumn;
+    v1Column24: TcxGridDBColumn;
+    v1Column25: TcxGridDBColumn;
+    v1Column26: TcxGridDBColumn;
+    v1Column27: TcxGridDBColumn;
+    v1Column28: TcxGridDBColumn;
+    ToolButton1: TToolButton;
+    RMDBDataSet1: TRMDBDataSet;
+    ClientDataSet1: TClientDataSet;
+    Panel2: TPanel;
+    WFGYSName: TComboBox;
+    Label4: TLabel;
+    v1Column14: TcxGridDBColumn;
+    CDS_WJG: TClientDataSet;
+    RMDBWJG: TRMDBDataSet;
+    v1Column18: TcxGridDBColumn;
+    v1Column29: TcxGridDBColumn;
+    Label6: TLabel;
+    BatchNoHZ: TEdit;
+    v1Column31: TcxGridDBColumn;
+    v1Column30: TcxGridDBColumn;
+    v1Column32: TcxGridDBColumn;
+    v1Column33: TcxGridDBColumn;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure TBEditClick(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure TBPrintClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure TBAddClick(Sender: TObject);
+    procedure ConNoChange(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure conPress(Sender: TObject; var Key: Char);
+    procedure TBViewClick(Sender: TObject);
+    procedure TBCopyClick(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+  private
+    FInt, PFInt: Integer;
+    procedure InitGrid();
+    procedure InitForm();
+    function DelData(): Boolean;
+    procedure InitButton();
+    { Private declarations }
+  public
+    canshu1, FCheJian: string;
+    { Public declarations }
+  end;
+
+//var
+  //frmClothSCList: TfrmClothSCList;
+
+implementation
+
+uses
+  U_DataLink, U_ClothSCInPut, U_Fun, U_ZDYHelp, U_SCPerson, U_ClothSCInPutSC;
+
+{$R *.dfm}
+
+procedure TfrmClothSCList.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action := caFree;
+end;
+
+procedure TfrmClothSCList.InitButton();
+begin
+
+  if Trim(canshu1) = '查询' then
+  begin
+    TBAdd.Visible := False;
+    TBCopy.Visible := False;
+    TBEdit.Visible := False;
+    TBDel.Visible := False;
+  end;
+  if (Trim(canshu1) = '一车间生产') or (Trim(canshu1) = '二车间生产') then
+  begin
+    TBAdd.Visible := False;
+    TBCopy.Visible := False;
+    TBEdit.Visible := False;
+    TBDel.Visible := False;
+
+  end;
+
+end;
+
+procedure TfrmClothSCList.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('坯布生产计划单', Tv1, '坯布生产管理');
+end;
+
+procedure TfrmClothSCList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered := False;
+      Close;
+      sql.Clear;
+      sql.Add('select A.*,B.*,CustomerNoName=(select TOP 1 CustomerNoName  from JYOrderCon_Main_PB X where X.MainId=A.ConMainId)  ');
+      sql.Add(' ,HTSYRName=(select TOP 1 SYRName  from JYOrderCon_Main_PB X where X.MainId=A.ConMainId)');
+      sql.Add(' ,ConPayment=(select TOP 1 Payment  from JYOrderCon_Main_PB X where X.MainId=A.ConMainId)');
+      sql.Add(' ,ConPRTPrice=(select TOP 1 PRTPrice  from JYOrderCon_Sub_PB X where X.SubId=A.ConSubId) ');
+      sql.Add(' ,ConDYMoney=(select TOP 1 DYMoney  from JYOrderCon_Sub_PB X where X.SubId=A.ConSubId) ');
+      sql.Add(' ,ZdyNameZ=(select  TOP 1 X.ZdyNameZ from KH_Zdy_Attachment X inner join JYOrderCon_Main_PB Y on X.Type=''KHName'' and X.ZdyCode=Y.CustomerNo where Y.MainId=A.ConMainId) ');
+      sql.Add(' from Cloth_Main A inner join CLoth_Sub B on A.Mainid=B.MainId');
+      sql.Add(' where A.FillTIme>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
+      sql.Add(' and A.FillTIme<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''');
+      if canshu1 = '一车间生产' then
+      begin
+        sql.Add(' and B.JHChejian=''一车间'' ');
+      end;
+      if canshu1 = '二车间生产' then
+      begin
+        sql.Add(' and B.JHChejian=''二车间'' ');
+      end;
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain, Order_Main);
+    SInitCDSData20(ADOQueryMain, Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmClothSCList.InitForm();
+begin
+  InitButton();
+  ReadCxGrid('坯布生产计划单', Tv1, '坯布生产管理');
+  BegDate.DateTime := SGetServerDate10(ADOQueryTemp) - 7;
+  EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
+  InitGrid();
+end;
+
+procedure TfrmClothSCList.TBFindClick(Sender: TObject);
+begin
+  if ADOQueryMain.Active = False then
+    Exit;
+  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+  SCreateCDS20(ADOQueryMain, Order_Main);
+  SInitCDSData20(ADOQueryMain, Order_Main);
+end;
+
+procedure TfrmClothSCList.TBEditClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+  try
+    frmClothSCInPut := TfrmClothSCInPut.Create(Application);
+    with frmClothSCInPut do
+    begin
+      PState := 1;
+      FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
+      FSubId := Trim(Self.Order_Main.fieldbyname('SubId').AsString);
+      if ShowModal = 1 then
+      begin
+        InitGrid();
+        Self.Order_Main.Locate('MainId', frmClothSCInPut.FMainId, []);
+      end;
+    end;
+  finally
+    frmClothSCInPut.Free;
+  end;
+end;
+
+procedure TfrmClothSCList.TBDelClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add('select A.*');
+    sql.Add('from JYCon_Sub_AnPai A');
+    sql.Add(' where A.SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
+    sql.Add(' and A.MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+    Open;
+  end;
+  if ADOQueryTemp.IsEmpty = False then
+  begin
+    Application.MessageBox('已产生安排数据不能删除!', '提示', 0);
+    Exit;
+  end;
+  if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
+    Exit;
+  if DelData() then
+  begin
+    //TBRafresh.Click;
+    //TBFind.Click;
+    Order_Main.Delete;
+  end;
+end;
+
+function TfrmClothSCList.DelData(): Boolean;
+begin
+  try
+    Result := false;
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete Cloth_Sub where SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
+      ExecSQL;
+    end;
+    with ADOQueryTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from Cloth_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+      Open;
+    end;
+    if ADOQueryTemp.IsEmpty then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('delete Cloth_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+        ExecSQL;
+      end;
+    end;
+    if Trim(Order_Main.fieldbyname('SubId').AsString) = '' then
+    begin
+      with ADOQueryCmd do
+      begin
+        Close;
+        sql.Clear;
+        sql.Add('delete Cloth_Main where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+        ExecSQL;
+      end;
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+      ExecSQL;
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete Cloth_YCL_PB where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+      ExecSQL;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result := True;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Result := False;
+    Application.MessageBox('数据删除异常！', '提示', 0);
+  end;
+end;
+
+procedure TfrmClothSCList.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then
+    Exit;
+  TcxGridToExcel('坯布生产单', cxGrid1);
+end;
+
+procedure TfrmClothSCList.TBPrintClick(Sender: TObject);
+var
+  fPrintFile: string;
+  i, j, k: integer;
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+  fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\坯布生产计划单.rmf';
+
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select WeiZhi=WeiZhi1,SPZ1=PZ1,SPZ2=PZ2,SPZ3=PZ3,SPZ4=PZ4,SPZ5=PZ5,SPZ6=PZ6,SPZ7=PZ7,SPZ8=PZ8,SPZ9=PZ9,SPZ10=PZ10, ');
+    sql.Add(' SPZ11=PZ11,SPZ12=PZ12,SPZ13=PZ13,SPZ14=PZ14,SPZ15=PZ15,SPZ16=PZ16,SPZ17=PZ17,SPZ18=PZ18,SPZ19=PZ19,SPZ20=PZ20, ');
+    sql.Add(' SPZ21=PZ21,SPZ22=PZ22,SPZ23=PZ23,SPZ24=PZ24,SPZ25=PZ25,SPZ26=PZ26,SPZ27=PZ27,SPZ28=PZ28,SPZ29=PZ29,SPZ30=PZ30, ');
+    sql.Add(' SPZ31=PZ31,SPZ32=PZ32,SPZ33=PZ33,SPZ34=PZ34,SPZ35=PZ35,SPZ36=PZ36 ');
+    sql.Add(' from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+    sql.Add(' and RTrim(PZType)=''排针'' ');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp, CDS_PZ);
+  SInitCDSData20(ADOQueryTemp, CDS_PZ);
+  if CDS_PZ.IsEmpty then
+  begin
+    CDS_PZ.Append;
+    CDS_PZ.Post;
+  end;
+
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+    sql.Add(' and RTrim(PZType)=''三角'' ');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp, CDS_SJ);
+  j := 0;
+  k := 1;
+  if ADOQueryTemp.RecordCount < 2 then
+  begin
+    SInitCDSData20(ADOQueryTemp, CDS_SJ);
+  end
+  else
+  begin
+    ADOQueryTemp.First;
+    while not ADOQueryTemp.Eof do
+    begin
+      if j = 2 then
+      begin
+        with CDS_SJ do
+        begin
+          Append;
+          for i := 0 to ADOQueryTemp.FieldCount - 1 do
+          begin
+            if ((fields[i].FieldName <> 'Filltime') and (fields[i].FieldName <> 'Edittime')) then
+              fields[i].value := '__________';
+          end;
+          fieldByName('Sflag').AsString := '1';
+          fieldByName('Sindex').value := k;
+          fieldByName('Ssel').value := false;
+          fieldByName('SDefNote').value := '';
+          inc(k);
+          Post;
+        end;
+      end;
+
+      with CDS_SJ do
+      begin
+        Append;
+        for i := 0 to ADOQueryTemp.FieldCount - 1 do
+        begin
+          fields[i].value := ADOQueryTemp.Fields[i].Value;
+        end;
+        fieldByName('Sflag').AsString := '1';
+        fieldByName('Sindex').value := k;
+        fieldByName('Ssel').value := false;
+        fieldByName('SDefNote').value := '';
+        inc(k);
+        Post;
+      end;
+
+      ADOQueryTemp.Next;
+      j := j + 1;
+    end;
+  end;
+
+  if CDS_SJ.IsEmpty then
+  begin
+    CDS_SJ.Append;
+    CDS_SJ.Post;
+  end;
+
+  with ADOQueryTemp do
+  begin
+    Filtered := False;
+    Close;
+    sql.Clear;
+    sql.Add('Select A.* ');
+    sql.Add(',YLQty=Cast(C_Qty*PBQty*0.01*(1+isnull(ZPSH,0)*0.01) as decimal(18,1))');
+    sql.Add(' from Cloth_YCL_PB A');
+    sql.Add(' inner join Cloth_Sub B on A.SubId=B.SubId');
+    sql.Add(' where A.SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp, CDS_PRT);
+  SInitCDSData20(ADOQueryTemp, CDS_PRT);
+  if CDS_PRT.IsEmpty then
+  begin
+    CDS_PRT.Append;
+    CDS_PRT.Post;
+  end;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from Cloth_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp, ClientDataSet1);
+  SInitCDSData20(ADOQueryTemp, ClientDataSet1);
+  if FileExists(fPrintFile) then
+  begin
+    RM1.LoadFromFile(fPrintFile);
+    RMVariables['ZSCPS'] := ClientDataSet1.fieldbyname('ZSCPS').Value;
+    RMVariables['ZSCQty'] := ClientDataSet1.fieldbyname('ZSCQty').Value;
+    RMVariables['WFJHPSHZ'] := ClientDataSet1.fieldbyname('WFJHPSHZ').Value;
+    RMVariables['WFJHQtyHZ'] := ClientDataSet1.fieldbyname('WFJHQtyHZ').Value;
+    RMVariables['C_Code'] := Order_Main.fieldbyname('C_Code').Value;
+    RMVariables['ConNo'] := Order_Main.fieldbyname('ConNo').Value;
+    RMVariables['C_CodeName'] := Order_Main.fieldbyname('C_CodeName').Value;
+    RMVariables['DayQty'] := Order_Main.fieldbyname('DayQty').Value;
+    RMVariables['CarType'] := Order_Main.fieldbyname('CarType').Value;
+    RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value;
+    RMVariables['KZQty'] := Order_Main.fieldbyname('KZQty').Value;
+    RMVariables['MFQty'] := Order_Main.fieldbyname('MFQty').Value;
+    RMVariables['KZ'] := Order_Main.fieldbyname('KZ').Value;
+    RMVariables['MF'] := Order_Main.fieldbyname('MF').Value;
+    RMVariables['PiKgQty'] := Order_Main.fieldbyname('PiKgQty').Value;
+    RMVariables['ZhuanQty'] := Order_Main.fieldbyname('ZhuanQty').Value;
+    RMVariables['PiQty'] := Order_Main.fieldbyname('PiQty').Value;
+    RMVariables['C_Qty'] := Order_Main.fieldbyname('C_Qty').Value;
+    RMVariables['QDTime'] := Order_Main.fieldbyname('QDTime').Value;
+    RMVariables['JHChejian'] := Order_Main.fieldbyname('JHChejian').Value;
+    RMVariables['DeliveryDate'] := Order_Main.fieldbyname('DeliveryDate').Value;
+    RMVariables['ShaChang1'] := Order_Main.fieldbyname('ShaChang').Value;
+//    showmessage(Order_Main.fieldbyname('ShaChang').asstring);
+    RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value;
+    RMVariables['C_Spec'] := Order_Main.fieldbyname('C_Spec').Value;
+    RMVariables['C_Color'] := Order_Main.fieldbyname('C_Color').Value;
+    RMVariables['C_Note'] := Order_Main.fieldbyname('C_Note').Value;
+    RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value;
+    RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value;
+    RMVariables['PiKgQtyFD'] := Order_Main.fieldbyname('PiKgQtyFD').Value;
+    RMVariables['BatchNoHZ'] := Order_Main.fieldbyname('BatchNoHZ').Value;
+    RMVariables['ConPayment'] := Order_Main.fieldbyname('ConPayment').Value;
+    RMVariables['ConPRTPrice'] := Order_Main.fieldbyname('ConPRTPrice').Value;
+    RMVariables['ConDYMoney'] := Order_Main.fieldbyname('ConDYMoney').Value;
+    RMVariables['ZdyNameZ'] := Order_Main.fieldbyname('ZdyNameZ').Value;
+    RMVariables['Zdr'] := Order_Main.fieldbyname('Filler').Value;
+    RMVariables['WzPrice'] := Order_Main.fieldbyname('WzPrice').Value;
+    RMVariables['BZNote'] := Order_Main.fieldbyname('BZNote').Value;
+    RMVariables['ZZYQ'] := Order_Main.fieldbyname('ZZYQ').Value;
+    RMVariables['ZZSH'] := Order_Main.fieldbyname('ZZSH').Value;
+    RMVariables['MFZZS'] := Order_Main.fieldbyname('MFZZS').Value;
+    RMVariables['ALBL'] := Order_Main.fieldbyname('ALBL').Value;
+    RMVariables['gongyi'] := Order_Main.fieldbyname('gongyi').Value;
+    RMVariables['ZongJieNote'] := Order_Main.fieldbyname('ZongJieNote').Value;
+    RMVariables['ZhenCun'] := Order_Main.fieldbyname('ZhenCun').Value;
+    RMVariables['Filler'] := Order_Main.fieldbyname('Filler').Value;
+    RMVariables['JHChejian'] := Order_Main.fieldbyname('JHChejian').Value;
+    RMVariables['HTSYRName'] := Order_Main.fieldbyname('HTSYRName').Value;
+    RMVariables['YWY'] := Order_Main.fieldbyname('YWY').Value;
+    RMVariables['KJTS'] := Order_Main.fieldbyname('KJTS').Value;
+    RMVariables['PBMF'] := Order_Main.fieldbyname('PBMF').Value;
+    RMVariables['PBKZ'] := Order_Main.fieldbyname('PBKZ').Value;
+    RM1.ShowReport;
+  end
+  else
+  begin
+    Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\坯布生产计划单.rmf'), '提示', 0);
+  end;
+end;
+
+procedure TfrmClothSCList.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmClothSCList.TBAddClick(Sender: TObject);
+begin
+
+  try
+    frmClothSCInPut := TfrmClothSCInPut.Create(Application);
+    with frmClothSCInPut do
+    begin
+      PState := 0;
+      FMainId := '';
+      FSubId := '';
+      if ShowModal = 1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmClothSCInPut.Free;
+  end;
+end;
+
+procedure TfrmClothSCList.ConNoChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active = False then
+    Exit;
+  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+  SCreateCDS20(ADOQueryMain, Order_Main);
+  SInitCDSData20(ADOQueryMain, Order_Main);
+end;
+
+procedure TfrmClothSCList.FormShow(Sender: TObject);
+begin
+  InitForm();
+end;
+
+procedure TfrmClothSCList.conPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then
+  begin
+    if Length(Trim(ConNo.Text)) < 4 then
+      Exit;
+    try
+      ADOQueryMain.DisableControls;
+      with ADOQueryMain do
+      begin
+        Filtered := False;
+        Close;
+        sql.Clear;
+        //sql.Add('exec Cloth_QryList :MainId,:WSql');
+       // Parameters.ParamByName('WSql').Value:=' and OM.conNo like '''+'%'+Trim(ConNoM.Text)+'%'+''''
+                                             // +' and ConType=''生产'' ';
+        sql.Add('select * from Cloth_Main A inner join CLoth_Sub B on A.Mainid=B.MainId');
+        sql.Add(' where A.ConNo like ''' + '%' + Trim(ConNo.Text) + '%' + '''');
+
+        Open;
+      end;
+      SCreateCDS20(ADOQueryMain, Order_Main);
+      SInitCDSData20(ADOQueryMain, Order_Main);
+    finally
+      ADOQueryMain.EnableControls;
+    end;
+  end;
+end;
+
+procedure TfrmClothSCList.TBViewClick(Sender: TObject);
+begin
+  try
+    frmClothSCInPut := TfrmClothSCInPut.Create(Application);
+    with frmClothSCInPut do
+    begin
+      PState := 1;
+      FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
+      FSubId := Trim(Self.Order_Main.fieldbyname('SubId').AsString);
+      FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString);
+      TBSave.Visible := False;
+      ToolBar3.Visible := False;
+      ScrollBox1.Enabled := False;
+      if ShowModal = 1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmClothSCInPut.Free;
+  end;
+end;
+
+procedure TfrmClothSCList.TBCopyClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+  try
+    frmClothSCInPut := TfrmClothSCInPut.Create(Application);
+    with frmClothSCInPut do
+    begin
+      PState := 1;
+      FCopyInt := 1;
+      FMainId := Trim(Self.Order_Main.fieldbyname('MainId').AsString);
+      FConNo := Trim(Self.Order_Main.fieldbyname('ConNo').AsString);
+      if ShowModal = 1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmClothSCInPut.Free;
+  end;
+end;
+
+procedure TfrmClothSCList.ToolButton1Click(Sender: TObject);
+var
+  fPrintFile: string;
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+  if Trim(WFGYSName.Text) = '' then
+  begin
+    Application.MessageBox('外发单位不能为空!', '提示', 0);
+    Exit;
+  end;
+  fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\外发工艺单.rmf';
+
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select SPZ1=PZ1,SPZ2=PZ2,SPZ3=PZ3,SPZ4=PZ4,SPZ5=PZ5,SPZ6=PZ6,SPZ7=PZ7,SPZ8=PZ8,SPZ9=PZ9,SPZ10=PZ10, ');
+    sql.Add(' SPZ11=PZ11,SPZ12=PZ12,SPZ13=PZ13,SPZ14=PZ14,SPZ15=PZ15,SPZ16=PZ16,SPZ17=PZ17,SPZ18=PZ18,SPZ19=PZ19,SPZ20=PZ20, ');
+    sql.Add(' SPZ21=PZ21,SPZ22=PZ22,SPZ23=PZ23,SPZ24=PZ24,SPZ25=PZ25,SPZ26=PZ26,SPZ27=PZ27,SPZ28=PZ28,SPZ29=PZ29,SPZ30=PZ30, ');
+    sql.Add(' SPZ31=PZ31,SPZ32=PZ32,SPZ33=PZ33,SPZ34=PZ34,SPZ35=PZ35,SPZ36=PZ36 ');
+    sql.Add(' from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+    sql.Add(' and RTrim(PZType)=''排针'' ');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp, CDS_PZ);
+  SInitCDSData20(ADOQueryTemp, CDS_PZ);
+  if CDS_PZ.IsEmpty then
+  begin
+    CDS_PZ.Append;
+    CDS_PZ.Post;
+  end;
+
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from Cloth_PaiZhen where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+    sql.Add(' and RTrim(PZType)=''三角'' ');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp, CDS_SJ);
+  SInitCDSData20(ADOQueryTemp, CDS_SJ);
+  if CDS_SJ.IsEmpty then
+  begin
+    CDS_SJ.Append;
+    CDS_SJ.Post;
+  end;
+
+  with ADOQueryTemp do
+  begin
+    Filtered := False;
+    Close;
+    sql.Clear;
+    sql.Add('Select A.* ');
+    sql.Add(',YLQty=Cast(C_Qty*PBQty*0.01*(1+isnull(ZPSH,0)*0.01) as decimal(18,1))');
+    sql.Add(' from Cloth_YCL_PB A');
+    sql.Add(' inner join Cloth_Sub B on A.SubId=B.SubId');
+    sql.Add(' where A.SubId=''' + Trim(Order_Main.fieldbyname('SubId').AsString) + '''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp, CDS_PRT);
+  SInitCDSData20(ADOQueryTemp, CDS_PRT);
+  if CDS_PRT.IsEmpty then
+  begin
+    CDS_PRT.Append;
+    CDS_PRT.Post;
+  end;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from Cloth_Sub where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp, ClientDataSet1);
+  SInitCDSData20(ADOQueryTemp, ClientDataSet1);
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from Cloth_WJG where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + '''');
+    sql.Add(' and WFGYSName=''' + Trim(WFGYSName.Text) + '''');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp, CDS_WJG);
+  SInitCDSData20(ADOQueryTemp, CDS_WJG);
+  if FileExists(fPrintFile) then
+  begin
+    RM1.LoadFromFile(fPrintFile);
+    RMVariables['WFGYSName'] := CDS_WJG.fieldbyname('WFGYSName').Value;
+    RMVariables['WFJHPS'] := CDS_WJG.fieldbyname('WFJHPS').Value;
+    RMVariables['WFJHQty'] := CDS_WJG.fieldbyname('WFJHQty').Value;
+    RMVariables['JGPrice'] := CDS_WJG.fieldbyname('JGPrice').Value;
+    RMVariables['JHJiaoQi'] := CDS_WJG.fieldbyname('JHJiaoQi').Value;
+    RMVariables['C_Code'] := Order_Main.fieldbyname('C_Code').Value;
+    RMVariables['ConNo'] := Order_Main.fieldbyname('ConNo').Value;
+    RMVariables['C_CodeName'] := Order_Main.fieldbyname('C_CodeName').Value;
+    RMVariables['DayQty'] := Order_Main.fieldbyname('DayQty').Value;
+    RMVariables['CarType'] := Order_Main.fieldbyname('CarType').Value;
+    RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value;
+    RMVariables['KZQty'] := Order_Main.fieldbyname('KZQty').Value;
+    RMVariables['MFQty'] := Order_Main.fieldbyname('MFQty').Value;
+    RMVariables['KZ'] := Order_Main.fieldbyname('KZ').Value;
+    RMVariables['MF'] := Order_Main.fieldbyname('MF').Value;
+    RMVariables['PiKgQty'] := Order_Main.fieldbyname('PiKgQty').Value;
+    RMVariables['ZhuanQty'] := Order_Main.fieldbyname('ZhuanQty').Value;
+    RMVariables['PiQty'] := Order_Main.fieldbyname('PiQty').Value;
+    RMVariables['C_Qty'] := Order_Main.fieldbyname('C_Qty').Value;
+    RMVariables['QDTime'] := Order_Main.fieldbyname('QDTime').Value;
+    RMVariables['C_Note'] := Order_Main.fieldbyname('C_Note').Value;
+    RMVariables['DeliveryDate'] := Order_Main.fieldbyname('DeliveryDate').Value;
+    RMVariables['ShaChang1'] := Order_Main.fieldbyname('ShaChang').Value;
+    RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value;
+    RMVariables['C_Spec'] := Order_Main.fieldbyname('C_Spec').Value;
+    RMVariables['C_Color'] := Order_Main.fieldbyname('C_Color').Value;
+    RMVariables['SJCarNO'] := Order_Main.fieldbyname('SJCarNO').Value;
+    RMVariables['ChouZhen'] := Order_Main.fieldbyname('ChouZhen').Value;
+    RMVariables['PiKgQtyFD'] := Order_Main.fieldbyname('PiKgQtyFD').Value;
+    RMVariables['Price'] := Order_Main.fieldbyname('Price').Value;
+    RMVariables['MFZZS'] := Order_Main.fieldbyname('MFZZS').Value;
+    RMVariables['ALBL'] := Order_Main.fieldbyname('ALBL').Value;
+    RMVariables['gongyi'] := Order_Main.fieldbyname('gongyi').Value;
+    RMVariables['ZongJieNote'] := Order_Main.fieldbyname('ZongJieNote').Value;
+    RMVariables['ZhenCun'] := Order_Main.fieldbyname('ZhenCun').Value;
+    RMVariables['BZNote'] := Order_Main.fieldbyname('BZNote').Value;
+    RMVariables['ZZYQ'] := Order_Main.fieldbyname('ZZYQ').Value;
+    RMVariables['Zdr'] := Order_Main.fieldbyname('Filler').Value;
+    RMVariables['JHChejian'] := Order_Main.fieldbyname('JHChejian').Value;
+    RMVariables['HTSYRName'] := Order_Main.fieldbyname('HTSYRName').Value;
+    RM1.ShowReport;
+  end
+  else
+  begin
+    Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\外发工艺单.rmf'), '提示', 0);
+  end;
+end;
+
+procedure TfrmClothSCList.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+var
+  fsj: string;
+begin
+  if Order_Main.IsEmpty = False then
+    fsj := 'select Name=WFGYSName,Code=WFGYSNo from Cloth_WJG where MainId=''' + Trim(Order_Main.fieldbyname('MainId').AsString) + ''''
+  else
+    fsj := 'select Name=WFGYSName,Code=WFGYSNo from Cloth_WJG where 1=2';
+  WFGYSName.Items.Clear;
+  SInitComBoxBySql(ADOQueryTemp, WFGYSName, True, fsj);
+end;
+
+end.
+
--- a/发货申请(ShipmentRequest.dll)/U_ContractListNXSel.dfm
+++ b/发货申请(ShipmentRequest.dll)/U_ContractListNXSel.dfm
@ -0,0 +1,872 @@
+object frmContractListNXSel: TfrmContractListNXSel
+  Left = 242
+  Top = 99
+  Width = 1308
+  Height = 727
+  Align = alClient
+  Caption = #38144#21806#21512#21516
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1292
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_ShipmentRequest.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      Visible = False
+      OnClick = TBFindClick
+    end
+    object TBClose: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 75
+    Width = 1292
+    Height = 356
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      OnMouseDown = Tv1MouseDown
+      NavigatorButtons.ConfirmDelete = False
+      OnCustomDrawCell = Tv1CustomDrawCell
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Kind = skSum
+          Position = spFooter
+        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
+        item
+          Kind = skSum
+          Position = spFooter
+        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
+        item
+          Kind = skSum
+          Position = spFooter
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        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
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.GroupFooters = gfAlwaysVisible
+      OptionsView.Indicator = True
+      Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
+      Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
+      Styles.Selection = DataLink_ShipmentRequest.SHuangSe
+      Styles.Header = DataLink_ShipmentRequest.Default
+      object v1Column4: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.NullStyle = nssUnchecked
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 49
+      end
+      object v1ConNo: TcxGridDBColumn
+        Caption = #21512#21516#21495
+        DataBinding.FieldName = 'ConNo'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 67
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = 'PO#'
+        DataBinding.FieldName = 'KHConNo'
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object v1Column9: TcxGridDBColumn
+        Caption = #20135#21697#32534#21495
+        DataBinding.FieldName = 'PrtCode'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 90
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'PrtCodeName'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 90
+      end
+      object v1Column22: TcxGridDBColumn
+        Caption = #31867#22411
+        DataBinding.FieldName = 'XSType'
+        HeaderAlignmentHorz = taCenter
+        Width = 87
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #20379#26041
+        DataBinding.FieldName = 'SYRName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 89
+      end
+      object v1CustomerNoName: TcxGridDBColumn
+        Caption = #38656#26041
+        DataBinding.FieldName = 'CustomerNoName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 87
+      end
+      object v1OrdPerson1: TcxGridDBColumn
+        Caption = #19994#21153#21592
+        DataBinding.FieldName = 'ConPerson1'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 78
+      end
+      object v1DeliveryDate: TcxGridDBColumn
+        Caption = #20132#36135#26085#26399
+        DataBinding.FieldName = 'DlyDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 71
+      end
+      object v1OrdDate: TcxGridDBColumn
+        Caption = #21046#21333#26085#26399
+        DataBinding.FieldName = 'OrdDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 70
+      end
+      object v1PRTOrderQty: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'ConQty'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 67
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'ConQtyUnit'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Width = 64
+      end
+      object v1MPRTCF: TcxGridDBColumn
+        Caption = #28322#30701#35013
+        DataBinding.FieldName = 'QtyNote'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 88
+      end
+      object v1Column10: TcxGridDBColumn
+        DataBinding.FieldName = 'status'
+        Visible = False
+        Hidden = True
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #24050#20570#35745#21010#21333
+        DataBinding.FieldName = 'JHDFlag'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.NullStyle = nssUnchecked
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 74
+      end
+      object v1Column12: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'ForOrderNo'
+        HeaderAlignmentHorz = taCenter
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 32
+    Width = 1292
+    Height = 43
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 23
+      Top = 15
+      Width = 52
+      Height = 12
+      Caption = #21046#21333#26085#26399
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 263
+      Top = 15
+      Width = 40
+      Height = 12
+      Caption = #38656'  '#26041
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 399
+      Top = 15
+      Width = 39
+      Height = 12
+      Caption = #19994#21153#21592
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label8: TLabel
+      Left = 430
+      Top = 99
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label9: TLabel
+      Left = 526
+      Top = 15
+      Width = 39
+      Height = 12
+      Caption = #21512#21516#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label12: TLabel
+      Left = 303
+      Top = 99
+      Width = 26
+      Height = 12
+      Caption = #20811#37325
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label13: TLabel
+      Left = 303
+      Top = 123
+      Width = 26
+      Height = 12
+      Caption = #38376#24133
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 160
+      Top = 16
+      Width = 6
+      Height = 12
+      Caption = '-'
+    end
+    object Label3: TLabel
+      Left = 655
+      Top = 15
+      Width = 21
+      Height = 12
+      Caption = 'PO#'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label6: TLabel
+      Left = 770
+      Top = 15
+      Width = 26
+      Height = 12
+      Caption = #31867#22411
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label7: TLabel
+      Left = 890
+      Top = 17
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#32534#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object BegDate: TDateTimePicker
+      Left = 76
+      Top = 11
+      Width = 85
+      Height = 20
+      Date = 40675.464742650460000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464742650460000000
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 168
+      Top = 11
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 1
+    end
+    object CustomerNoName: TEdit
+      Tag = 2
+      Left = 311
+      Top = 11
+      Width = 78
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 2
+      OnChange = CustomerNoNameChange
+    end
+    object ConPerson1: TEdit
+      Tag = 2
+      Left = 440
+      Top = 11
+      Width = 76
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 3
+      OnChange = CustomerNoNameChange
+    end
+    object MPRTCodeName: TEdit
+      Tag = 2
+      Left = 483
+      Top = 95
+      Width = 76
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 9
+      OnChange = CustomerNoNameChange
+    end
+    object ConNo: TEdit
+      Tag = 2
+      Left = 567
+      Top = 11
+      Width = 77
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 4
+      OnChange = CustomerNoNameChange
+    end
+    object MPRTKZ: TEdit
+      Tag = 2
+      Left = 332
+      Top = 95
+      Width = 56
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 8
+      OnChange = CustomerNoNameChange
+    end
+    object MPRTMF: TEdit
+      Tag = 2
+      Left = 332
+      Top = 119
+      Width = 56
+      Height = 20
+      ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
+      TabOrder = 10
+      OnChange = CustomerNoNameChange
+    end
+    object KHConNO: TEdit
+      Tag = 2
+      Left = 677
+      Top = 11
+      Width = 80
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 5
+      OnChange = CustomerNoNameChange
+    end
+    object XSType: TComboBox
+      Tag = 1
+      Left = 800
+      Top = 12
+      Width = 80
+      Height = 20
+      Style = csDropDownList
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      ItemHeight = 12
+      TabOrder = 6
+      OnChange = CustomerNoNameChange
+      Items.Strings = (
+        #32463#38144
+        #21152#24037
+        #25171#26679
+        '')
+    end
+    object PrtCode: TEdit
+      Tag = 2
+      Left = 951
+      Top = 13
+      Width = 80
+      Height = 20
+      ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861
+      TabOrder = 7
+      OnChange = CustomerNoNameChange
+    end
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 0
+    Top = 431
+    Width = 1292
+    Height = 8
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    AlignSplitter = salBottom
+    Control = cxGrid2
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 439
+    Width = 1292
+    Height = 250
+    Align = alBottom
+    TabOrder = 4
+    object Tv2: TcxGridDBTableView
+      NavigatorButtons.ConfirmDelete = False
+      OnCellDblClick = Tv2CellDblClick
+      DataController.DataSource = DataSource2
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = '0'
+          Position = spFooter
+        end
+        item
+          Format = '0'
+          Position = spFooter
+          Column = cxGridDBColumn5
+        end
+        item
+          Format = '0'
+          Position = spFooter
+        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
+        item
+          Kind = skSum
+          Position = spFooter
+        end
+        item
+          Kind = skSum
+          Position = spFooter
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.FocusCellOnTab = True
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsSelection.CellSelect = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.GroupFooters = gfAlwaysVisible
+      Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
+      Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
+      Styles.Selection = DataLink_ShipmentRequest.SHuangSe
+      Styles.Header = DataLink_ShipmentRequest.Default
+      object v1XHNo: TcxGridDBColumn
+        Caption = #24207#21495
+        DataBinding.FieldName = 'XHNo'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 35
+      end
+      object v2Column2: TcxGridDBColumn
+        Caption = #20135#21697#32534#21495
+        DataBinding.FieldName = 'PrtCode'
+        HeaderAlignmentHorz = taCenter
+        Width = 87
+      end
+      object cxGridDBColumn2: TcxGridDBColumn
+        Caption = #20135#21697#21517#31216
+        DataBinding.FieldName = 'PrtCodeName'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.handBlack
+        Width = 107
+      end
+      object v1Column5: TcxGridDBColumn
+        Caption = #35268#26684
+        DataBinding.FieldName = 'prtspec'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.handBlack
+        Width = 70
+      end
+      object cxGridDBColumn3: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'PRTColor'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.ReadOnly = False
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Styles.Header = DataLink_ShipmentRequest.handBlack
+        Width = 90
+      end
+      object v1Column6: TcxGridDBColumn
+        Caption = #38376#24133'CM'
+        DataBinding.FieldName = 'prtmf'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.handBlack
+        Width = 59
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #20811#37325'g/'#13217
+        DataBinding.FieldName = 'prtkz'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.handBlack
+        Width = 64
+      end
+      object cxGridDBColumn5: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'PRTOrderQty'
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.handBlack
+        Width = 60
+      end
+      object v1OrderUnit: TcxGridDBColumn
+        Caption = #25968#37327#21333#20301
+        DataBinding.FieldName = 'OrderUnit'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.DropDownListStyle = lsFixedList
+        Properties.Items.Strings = (
+          'M'
+          'Y'
+          'KG')
+        HeaderAlignmentHorz = taCenter
+        Styles.Header = DataLink_ShipmentRequest.handBlack
+        Width = 62
+      end
+      object cxGridDBColumn10: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'SOrdDefNote1'
+        HeaderAlignmentHorz = taCenter
+        Width = 113
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv2
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 1016
+    Top = 184
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    Parameters = <>
+    Left = 704
+    Top = 176
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 728
+    Top = 176
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 776
+    Top = 176
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 984
+    Top = 184
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 960
+    Top = 184
+  end
+  object RMDBDataSet1: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_Print
+    Left = 280
+    Top = 136
+  end
+  object RMXLSExport1: TRMXLSExport
+    ShowAfterExport = True
+    ExportPrecision = 1
+    PagesOfSheet = 1
+    ExportImages = True
+    ExportFrames = True
+    ExportImageFormat = ifBMP
+    JPEGQuality = 0
+    ScaleX = 1.000000000000000000
+    ScaleY = 1.000000000000000000
+    CompressFile = False
+    Left = 376
+    Top = 136
+  end
+  object ADOQueryPrint: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 752
+    Top = 176
+  end
+  object CDS_Print: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 312
+    Top = 136
+  end
+  object ADOQuerySub: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    Parameters = <>
+    Left = 804
+    Top = 176
+  end
+  object DataSource2: TDataSource
+    DataSet = ClientDataSet2
+    Left = 464
+    Top = 608
+  end
+  object ClientDataSet2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 512
+    Top = 600
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 560
+    Top = 600
+  end
+  object CDS_Note: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 344
+    Top = 136
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDBDataSet1
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 248
+    Top = 136
+    ReportData = {}
+  end
+  object RMDBDataSet2: TRMDBDataSet
+    Visible = True
+    DataSet = CDS_Note
+    Left = 216
+    Top = 136
+  end
+end
--- a/发货申请(ShipmentRequest.dll)/U_ContractListNXSel.pas
+++ b/发货申请(ShipmentRequest.dll)/U_ContractListNXSel.pas
@ -0,0 +1,343 @@
+unit U_ContractListNXSel;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses,
+  cxControls, cxGridCustomView, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter,
+  RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport, RM_e_Xls,
+  Menus, cxPC, cxButtonEdit, RM_E_llPDF, cxDropDownEdit, cxTextEdit;
+
+type
+  TfrmContractListNXSel = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBClose: TToolButton;
+    Tv1: TcxGridDBTableView;
+    cxGrid1Level1: TcxGridLevel;
+    cxGrid1: TcxGrid;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    v1OrdDate: TcxGridDBColumn;
+    v1DeliveryDate: TcxGridDBColumn;
+    v1OrdPerson1: TcxGridDBColumn;
+    v1ConNo: TcxGridDBColumn;
+    v1MPRTCF: TcxGridDBColumn;
+    Order_Main: TClientDataSet;
+    RMDBDataSet1: TRMDBDataSet;
+    RMXLSExport1: TRMXLSExport;
+    v1CustomerNoName: TcxGridDBColumn;
+    v1PRTOrderQty: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    ADOQueryPrint: TADOQuery;
+    CDS_Print: TClientDataSet;
+    v1Column4: TcxGridDBColumn;
+    Panel1: TPanel;
+    Label1: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    Label8: TLabel;
+    Label9: TLabel;
+    Label12: TLabel;
+    Label13: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    CustomerNoName: TEdit;
+    ConPerson1: TEdit;
+    MPRTCodeName: TEdit;
+    ConNo: TEdit;
+    MPRTKZ: TEdit;
+    MPRTMF: TEdit;
+    v1Column2: TcxGridDBColumn;
+    cxSplitter1: TcxSplitter;
+    ADOQuerySub: TADOQuery;
+    DataSource2: TDataSource;
+    v1Column8: TcxGridDBColumn;
+    Label2: TLabel;
+    KHConNO: TEdit;
+    Label3: TLabel;
+    v1Column10: TcxGridDBColumn;
+    //RMllPDFExport1: TRMllPDFExport;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    v1XHNo: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    v1OrderUnit: TcxGridDBColumn;
+    cxGridDBColumn10: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    ClientDataSet2: TClientDataSet;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    CDS_Note: TClientDataSet;
+    v2Column2: TcxGridDBColumn;
+    RM1: TRMGridReport;
+    v1Column22: TcxGridDBColumn;
+    Label6: TLabel;
+    XSType: TComboBox;
+    RMDBDataSet2: TRMDBDataSet;
+    v1Column3: TcxGridDBColumn;
+    v1Column9: TcxGridDBColumn;
+    v1Column11: TcxGridDBColumn;
+    Label7: TLabel;
+    PrtCode: TEdit;
+    v1Column12: TcxGridDBColumn;
+    //RMllPDFExport1: TRMllPDFExport;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure CheckBox1Click(Sender: TObject);
+    procedure CheckBox2Click(Sender: TObject);
+    procedure N1Click(Sender: TObject);
+    procedure CustomerNoNameChange(Sender: TObject);
+    procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView;
+      ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
+      var ADone: Boolean);
+    procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton;
+      Shift: TShiftState; X, Y: Integer);
+    procedure Tv2CellDblClick(Sender: TcxCustomGridTableView;
+      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+      AShift: TShiftState; var AHandled: Boolean);
+  private
+    DQdate:TDateTime;
+    fuserName,canshu1,canshu2:string;
+    procedure InitGrid();
+    procedure InitForm();
+    function  DelData():Boolean;
+    procedure SetStatus();
+    { Private declarations }
+  public
+    FFInt,FCloth:Integer;
+
+    { Public declarations }
+  end;
+
+var
+  frmContractListNXSel: TfrmContractListNXSel;
+
+implementation
+uses
+  U_DataLink,U_Fun,U_ZDYHelp;
+
+{$R *.dfm}
+
+procedure TfrmContractListNXSel.SetStatus();
+begin
+  
+end;
+
+
+procedure TfrmContractListNXSel.FormDestroy(Sender: TObject);
+begin
+  frmContractListNXSel:=nil;
+end;
+
+procedure TfrmContractListNXSel.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmContractListNXSel.FormCreate(Sender: TObject);
+begin
+  canshu1:=Trim(DParameters1);
+  canshu2:=Trim(DParameters2);
+  cxgrid1.Align:=alClient;
+  DQdate:=SGetServerDate(ADOQueryTemp);
+end;
+
+procedure TfrmContractListNXSel.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('内销合同',Tv1,'生产指示单管理');
+  WriteCxGrid('内销合同11',Tv2,'生产指示单管理');
+end;
+
+procedure TfrmContractListNXSel.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      sql.Clear;
+      sql.Add(' select A.*  ');
+      sql.Add(',Case when isnull((select count(*) from TP_File where WBID=A.MainID and TFType=''合同'' ),0)>0 ');
+      sql.Add('then Cast(1 as bit) else Cast(0 as bit) end as FJFlag');
+      sql.Add(',PrtCode=cast((select distinct '' ''+ PrtCode from JYOrderCon_Sub_PB JCS where JCS.MainId=A.MainId for xml path('''')) as varchar(120))');
+      sql.Add(',PrtCodeName=cast((select distinct '' ''+ PrtCodeName from JYOrderCon_Sub_PB JCS where JCS.MainId=A.MainId  for xml path('''')) as varchar(120))');
+      sql.Add(',Case when isnull((select count(*) from Cloth_Main where ConMainId=A.MainID ),0)>0 ');
+      sql.Add('then Cast(1 as bit) else Cast(0 as bit) end as JHDFlag');
+      sql.Add(',ZdyNameZ=(select X.ZdyNameZ from KH_Zdy_Attachment X where X.Type=''KHName'' and X.ZdyCode=A.CustomerNo)');
+      sql.Add(' from JYOrderCon_Main_PB A where status=''1'' ');
+      sql.Add(' and A.OrdDate>='''+Trim(FormatDateTime('yyyy-MM-dd',BegDate.Date))+'''');
+      sql.Add(' and A.OrdDate<'''+Trim(FormatDateTime('yyyy-MM-dd',EndDate.Date+1))+'''');
+      SQL.Add(' order by A.OrdDate desc');
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,Order_Main);
+    SInitCDSData20(ADOQueryMain,Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+
+
+procedure TfrmContractListNXSel.InitForm();
+begin
+  ReadCxGrid('内销合同',Tv1,'生产指示单管理');
+  ReadCxGrid('内销合同11',Tv2,'生产指示单管理');
+  
+  EndDate.DateTime:=SGetServerDate10(ADOQueryTemp);
+  BegDate.DateTime:=EndDate.DateTime-90;
+end;
+
+procedure TfrmContractListNXSel.TBFindClick(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+function TfrmContractListNXSel.DelData():Boolean;
+begin
+  try
+    Result:=false;
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete JYOrderCon_Sub_PB where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+      ExecSQL;
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete JYOrderCon_Main_PB where MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''');
+      ExecSQL;
+    end;
+
+    ADOQueryCmd.Connection.CommitTrans;
+    Result:=True;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Result:=False;
+    Application.MessageBox('数据删除异常！','提示',0);
+  end;
+end;
+
+procedure TfrmContractListNXSel.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+  TBFind.Click;
+end;
+
+procedure TfrmContractListNXSel.FormShow(Sender: TObject);
+begin
+  fuserName:=DCode;
+  InitForm();
+  SetStatus();
+    InitGrid();
+end;
+
+procedure TfrmContractListNXSel.CheckBox1Click(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmContractListNXSel.CheckBox2Click(Sender: TObject);
+begin
+  TBRafresh.Click;
+end;
+
+procedure TfrmContractListNXSel.N1Click(Sender: TObject);
+var
+   fPrintFile:string;
+   Porderno:string;
+begin
+  if Order_Main.IsEmpty then Exit;
+  fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\生产指示单10.rmf' ;
+  SDofilter(ADOQueryMain,' OrderNoM='''+Trim(Order_Main.fieldbyname('OrderNoM').AsString)+'''');
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+  Porderno:=Trim(Order_Main.fieldbyname('OrderNoM').AsString);
+  if FileExists(fPrintFile) then
+  begin
+    //RMVariables['begindate']:=begindate.DateTime;
+    //RMVariables['enddate']:=enddate.DateTime;
+    //RMVariables['printtime']:=Now;
+    //RMVariables['printer']:=Trim(gUserName);
+    RM1.LoadFromFile(fPrintFile);
+    RM1.ShowReport;
+  end else
+  begin
+    Application.MessageBox(PChar('没有找'+ExtractFilePath(Application.ExeName)+'Report\生产指示单10.rmf'),'提示',0);
+  end;
+  SDofilter(ADOQueryMain,'');
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+  Order_Main.Locate('ordernoM',Porderno,[]);
+end;
+
+procedure TfrmContractListNXSel.CustomerNoNameChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active=False then Exit;
+  SDofilter(ADOQueryMain,SGetFilters(Panel1,1,2));
+  SCreateCDS20(ADOQueryMain,Order_Main);
+  SInitCDSData20(ADOQueryMain,Order_Main);
+end;
+
+procedure TfrmContractListNXSel.Tv1CustomDrawCell(
+  Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
+  AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+begin
+  IF AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('JHDFlag').Index]=True then
+    ACanvas.Brush.Color:=clSkyBlue;
+end;
+
+procedure TfrmContractListNXSel.Tv1MouseDown(Sender: TObject;
+  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    if Order_Main.IsEmpty=False then
+      sql.Add('select * from JYOrderCon_Sub_PB A where A.MainId='''+Trim(Order_Main.fieldbyname('MainId').AsString)+'''')
+    else
+      sql.Add('select * from JYOrderCon_Sub_PB A where 1=2');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp,ClientDataSet2);
+  SInitCDSData20(ADOQueryTemp,ClientDataSet2);
+end;
+
+procedure TfrmContractListNXSel.Tv2CellDblClick(
+  Sender: TcxCustomGridTableView;
+  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
+  AShift: TShiftState; var AHandled: Boolean);
+begin
+  ModalResult:=1;
+end;
+
+end.
--- a/发货申请(ShipmentRequest.dll)/U_CustomerInput.dfm
+++ b/发货申请(ShipmentRequest.dll)/U_CustomerInput.dfm
@ -0,0 +1,457 @@
+object frmCustomerInput: TfrmCustomerInput
+  Left = 261
+  Top = 149
+  Width = 1123
+  Height = 574
+  Caption = #23458#25143#36164#26009#24405#20837
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  OnClose = FormClose
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1107
+    Height = 31
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_ShipmentRequest.ThreeImgList
+    Flat = True
+    Images = DataLink_ShipmentRequest.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 0
+    object ToolButton3: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 5
+      OnClick = ToolButton3Click
+    end
+    object TBClose: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object ToolBar2: TToolBar
+    Left = 0
+    Top = 265
+    Width = 1107
+    Height = 31
+    ButtonHeight = 30
+    ButtonWidth = 119
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    DisabledImages = DataLink_ShipmentRequest.ThreeImgList
+    Flat = True
+    Images = DataLink_ShipmentRequest.ThreeImgList
+    List = True
+    ParentColor = False
+    ShowCaptions = True
+    TabOrder = 2
+    object ToolButton1: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #35774#20026#40664#35748#32852#31995#20154
+      ImageIndex = 22
+      OnClick = ToolButton1Click
+    end
+    object ToolButton4: TToolButton
+      Left = 123
+      Top = 0
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 57
+      OnClick = ToolButton4Click
+    end
+    object ToolButton5: TToolButton
+      Left = 186
+      Top = 0
+      AutoSize = True
+      Caption = #21024#34892
+      ImageIndex = 113
+      OnClick = ToolButton5Click
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 296
+    Width = 1107
+    Height = 239
+    Align = alClient
+    TabOrder = 3
+    object Tv1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      Navigator.Buttons.Delete.Enabled = False
+      Navigator.Buttons.Delete.Visible = False
+      DataController.DataSource = DSLXR
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Deleting = False
+      OptionsData.DeletingConfirmation = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Header = DataLink_ShipmentRequest.Default
+      object v3Column3: TcxGridDBColumn
+        Caption = #40664#35748
+        DataBinding.FieldName = 'IsDefault'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 76
+      end
+      object cxGridDBColumn1: TcxGridDBColumn
+        Caption = #32852#31995#20154
+        DataBinding.FieldName = 'Contacts'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.CharCase = ecUpperCase
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object cxGridDBColumn2: TcxGridDBColumn
+        Caption = #32844#20301
+        DataBinding.FieldName = 'position'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.CharCase = ecUpperCase
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object cxGridDBColumn3: TcxGridDBColumn
+        Caption = #20256#30495
+        DataBinding.FieldName = 'Fax'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.CharCase = ecUpperCase
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object cxGridDBColumn4: TcxGridDBColumn
+        Caption = #30005#35805
+        DataBinding.FieldName = 'Telephone'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.CharCase = ecUpperCase
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object cxGridDBColumn5: TcxGridDBColumn
+        Caption = #25163#26426
+        DataBinding.FieldName = 'PhoneNumber'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.CharCase = ecUpperCase
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #37038#31665
+        DataBinding.FieldName = 'Email'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.CharCase = ecUpperCase
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object v3Column2: TcxGridDBColumn
+        Caption = #24494#20449
+        DataBinding.FieldName = 'WeChat'
+        HeaderAlignmentHorz = taCenter
+        Width = 169
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ScrollBox1: TScrollBox
+    Left = 0
+    Top = 31
+    Width = 1107
+    Height = 234
+    Align = alTop
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Ctl3D = False
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -14
+    Font.Name = #23435#20307
+    Font.Style = []
+    ParentCtl3D = False
+    ParentFont = False
+    TabOrder = 1
+    object Label2: TLabel
+      Left = 42
+      Top = 35
+      Width = 56
+      Height = 14
+      Caption = #23458#25143#32534#21495
+    end
+    object Label6: TLabel
+      Left = 304
+      Top = 35
+      Width = 56
+      Height = 14
+      Caption = #23458#25143#21517#31216
+    end
+    object Label12: TLabel
+      Left = 42
+      Top = 61
+      Width = 56
+      Height = 14
+      Caption = #22320'    '#21306
+    end
+    object Label39: TLabel
+      Left = 304
+      Top = 61
+      Width = 56
+      Height = 14
+      Caption = #20844#21496#22320#22336
+    end
+    object Label7: TLabel
+      Left = 42
+      Top = 148
+      Width = 56
+      Height = 14
+      Caption = #22791'    '#27880
+    end
+    object Label19: TLabel
+      Left = 548
+      Top = 61
+      Width = 56
+      Height = 14
+      Caption = #19994' '#21153' '#21592
+    end
+    object Label1: TLabel
+      Left = 547
+      Top = 35
+      Width = 56
+      Height = 14
+      Caption = #23458#25143#31616#31216
+    end
+    object Label3: TLabel
+      Left = 41
+      Top = 88
+      Width = 56
+      Height = 14
+      Caption = #38134#34892#36134#25143
+    end
+    object Label4: TLabel
+      Left = 303
+      Top = 88
+      Width = 56
+      Height = 14
+      Caption = #24320' '#25143' '#34892
+    end
+    object Label5: TLabel
+      Left = 548
+      Top = 89
+      Width = 56
+      Height = 14
+      Caption = #23458#25143#31867#22411
+    end
+    object Label8: TLabel
+      Left = 41
+      Top = 117
+      Width = 56
+      Height = 14
+      Caption = #20449' '#29992' '#26399
+    end
+    object Label9: TLabel
+      Left = 304
+      Top = 117
+      Width = 56
+      Height = 14
+      Caption = #23458#25143#20195#30721
+    end
+    object Label10: TLabel
+      Left = 771
+      Top = 34
+      Width = 52
+      Height = 12
+      Caption = #26159#21542#21547#31246
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object CoName: TEdit
+      Tag = 2
+      Left = 367
+      Top = 32
+      Width = 140
+      Height = 20
+      TabOrder = 1
+    end
+    object CoAddress: TEdit
+      Tag = 2
+      Left = 368
+      Top = 58
+      Width = 140
+      Height = 20
+      TabOrder = 4
+    end
+    object Note: TMemo
+      Tag = 2
+      Left = 112
+      Top = 145
+      Width = 877
+      Height = 57
+      ScrollBars = ssVertical
+      TabOrder = 10
+    end
+    object CoHRName: TEdit
+      Tag = 2
+      Left = 612
+      Top = 32
+      Width = 140
+      Height = 20
+      TabOrder = 2
+    end
+    object CoCode: TEdit
+      Tag = 2
+      Left = 112
+      Top = 32
+      Width = 140
+      Height = 20
+      Enabled = False
+      TabOrder = 0
+    end
+    object Coarea: TEdit
+      Tag = 2
+      Left = 112
+      Top = 58
+      Width = 140
+      Height = 20
+      TabOrder = 3
+    end
+    object Salesman: TEdit
+      Tag = 2
+      Left = 612
+      Top = 59
+      Width = 140
+      Height = 20
+      TabOrder = 5
+    end
+    object BankName: TEdit
+      Tag = 2
+      Left = 367
+      Top = 85
+      Width = 140
+      Height = 20
+      TabOrder = 7
+    end
+    object BankNo: TEdit
+      Tag = 2
+      Left = 111
+      Top = 85
+      Width = 140
+      Height = 20
+      TabOrder = 6
+    end
+    object XinYuNote: TEdit
+      Tag = 2
+      Left = 108
+      Top = 115
+      Width = 140
+      Height = 20
+      TabOrder = 9
+    end
+    object FactType: TBtnEditA
+      Tag = 2
+      Left = 614
+      Top = 86
+      Width = 137
+      Height = 22
+      TabOrder = 8
+      OnBtnClick = FactTypeBtnClick
+    end
+    object CODM: TEdit
+      Tag = 2
+      Left = 368
+      Top = 114
+      Width = 140
+      Height = 20
+      TabOrder = 11
+    end
+    object sfhs: TComboBox
+      Tag = 2
+      Left = 826
+      Top = 30
+      Width = 66
+      Height = 22
+      Style = csDropDownList
+      ItemHeight = 14
+      ItemIndex = 2
+      TabOrder = 12
+      Items.Strings = (
+        #21547#31246
+        #19981#21547#31246
+        '')
+    end
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 419
+    Top = 264
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    Parameters = <>
+    Left = 462
+    Top = 264
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 525
+    Top = 281
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 382
+    Top = 382
+  end
+  object CDS_LXR: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 425
+    Top = 383
+  end
+  object DSLXR: TDataSource
+    DataSet = CDS_LXR
+    Left = 472
+    Top = 383
+  end
+end
--- a/发货申请(ShipmentRequest.dll)/U_CustomerInput.pas
+++ b/发货申请(ShipmentRequest.dll)/U_CustomerInput.pas
@ -0,0 +1,423 @@
+unit U_CustomerInput;
+
+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, BtnEdit, cxLookAndFeels,
+  cxLookAndFeelPainters, cxNavigator;
+
+type
+  TfrmCustomerInput = class(TForm)
+    ToolBar1: TToolBar;
+    TBClose: TToolButton;
+    ADOQueryTemp: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    ToolButton3: TToolButton;
+    ToolBar2: TToolBar;
+    ToolButton4: TToolButton;
+    ToolButton5: TToolButton;
+    CDS_LXR: TClientDataSet;
+    DSLXR: TDataSource;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    Tv1Column1: TcxGridDBColumn;
+    v3Column2: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    v3Column3: TcxGridDBColumn;
+    ToolButton1: TToolButton;
+    ScrollBox1: TScrollBox;
+    Label2: TLabel;
+    Label6: TLabel;
+    Label12: TLabel;
+    Label39: TLabel;
+    Label7: TLabel;
+    Label19: TLabel;
+    CoName: TEdit;
+    CoAddress: TEdit;
+    Note: TMemo;
+    Label1: TLabel;
+    CoHRName: TEdit;
+    CoCode: TEdit;
+    Coarea: TEdit;
+    Salesman: TEdit;
+    Label3: TLabel;
+    Label4: TLabel;
+    BankName: TEdit;
+    BankNo: TEdit;
+    Label5: TLabel;
+    Label8: TLabel;
+    XinYuNote: TEdit;
+    FactType: TBtnEditA;
+    Label9: TLabel;
+    CODM: TEdit;
+    Label10: TLabel;
+    sfhs: TComboBox;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure ToolButton4Click(Sender: TObject);
+    procedure ToolButton5Click(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure FactTypeBtnClick(Sender: TObject);
+  private
+    { Private declarations }
+    procedure InitGrid();
+    function  SaveData():Boolean;
+
+  public
+        fkhType:string;
+    { Public declarations }
+    FCOID:String;
+
+  end;
+
+var
+  frmCustomerInput: TfrmCustomerInput;
+
+implementation
+uses
+  U_DataLink,U_Fun,U_ZDYHelp;
+
+{$R *.dfm}
+
+
+procedure TfrmCustomerInput.InitGrid();
+begin
+  try
+
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      SQL.Clear;
+      sql.Add(' select * from Company where  CoType=''客户'' and COID='''+Trim(FCOID)+'''');
+      Open;
+    end;
+    SCSHData(ADOQueryMain,ScrollBox1,2);
+    with ADOQueryMain do
+    begin
+      Filtered:=False;
+      Close;
+      SQL.Clear;
+      sql.Add(' select * from Company_contact where COID='+quotedstr(Trim(FCOID)));
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain,CDS_LXR);
+    SInitCDSData20(ADOQueryMain,CDS_LXR);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+
+procedure TfrmCustomerInput.FormDestroy(Sender: TObject);
+begin
+  frmCustomerInput:=nil;
+end;
+
+procedure TfrmCustomerInput.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action:=caFree;
+end;
+
+procedure TfrmCustomerInput.TBCloseClick(Sender: TObject);
+begin
+  WriteCxGrid(trim(self.Caption),Tv1,'客户管理');
+   ModalResult:=1;
+end;
+procedure TfrmCustomerInput.FormShow(Sender: TObject);
+begin
+  ReadCxGrid(trim(self.Caption),Tv1,'客户管理');
+  InitGrid();
+end;
+
+procedure TfrmCustomerInput.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+function TfrmCustomerInput.SaveData():Boolean;
+var
+  MaxId,MaxSubId,FCoCode,FCCID:String;
+begin
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    if Trim(FCOID)='' then
+    begin
+      if GetLSNo(ADOQueryCmd,maxId,'CO','Company',4,1)=False then
+      begin
+        Result:=False;
+        ADOQueryCmd.Connection.RollbackTrans;
+        Application.MessageBox('取最大号失败！','提示',0);
+        Exit;
+      end;
+      if GetLSNo(ADOQueryCmd,FCoCode,'KH','Company',5,0)=False then
+      begin
+        Result:=False;
+        ADOQueryCmd.Connection.RollbackTrans;
+        Application.MessageBox('取最大号失败！','提示',0);
+        Exit;
+      end;
+      CoCode.Text:=trim(FCoCode);
+    end
+    else
+    begin
+      MaxId:=Trim(FCOID);
+    end;
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      SQL.Clear;
+      sql.Add('select * from Company where COID='''+Trim(FCOID)+'''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if Trim(FCOID)='' then
+      begin
+        Append;
+        FieldByName('Filler').Value:=Trim(DName);
+      end
+      else
+      begin
+        Edit;
+        FieldByName('Editer').Value:=Trim(DName);
+        FieldByName('Edittime').Value:=SGetServerDateTime(ADOQueryTemp);
+      end;
+      FieldByName('COID').Value:=Trim(maxId);
+      SSetsaveSqlNew(ADOQueryCmd,'Company',ScrollBox1,2);
+      FieldByName('CoType').Value:='客户';
+      Post;
+    end;
+
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from Company where CoName='+quotedstr(trim(CoName.Text)));
+      sql.Add(' and CoType=''客户''  and Valid=''Y''  ');
+      Open;
+    end;
+    if ADOQueryCmd.RecordCount>1 then
+    begin
+      ADOQueryCmd.Connection.RollbackTrans;
+      Application.MessageBox('客户名称重复!','提示',0);
+      Exit;
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from Company where CoCode='+quotedstr(trim(CoCode.Text)));
+      sql.Add(' and CoType=''客户''  and Valid=''Y''  ');
+      Open;
+    end;
+    if ADOQueryCmd.RecordCount>1 then
+    begin
+      ADOQueryCmd.Connection.RollbackTrans;
+      Application.MessageBox('编号重复!','提示',0);
+      Exit;
+    end;
+
+    IF not CDS_LXR.IsEmpty then
+    begin
+      with CDS_LXR do
+      begin
+        CDS_LXR.First;
+        while not Eof do
+        begin
+          FCCID:=Trim(CDS_LXR.fieldbyname('CCID').AsString);
+          if Trim(FCCID)='' then
+          begin
+            if GetLSNo(ADOQueryCmd,MaxSubId,'CCS','Company_contact',4,1)=False then
+            begin
+              ADOQueryCmd.Connection.RollbackTrans;
+              Application.MessageBox('取系人最大ID失败!','提示',0);
+              Exit;
+            end;
+          end
+          else
+          begin
+            MaxSubId:=trim(FCCID);
+          end;
+          
+          with ADOQueryCmd do
+          begin
+            Close;
+            sql.Clear;
+            sql.Add('select * from Company_contact where CCID='+quotedstr(Trim(MaxSubId)));
+            Open;
+          end;
+          with ADOQueryCmd do
+          begin
+            if Trim(FCCID)='' then
+            begin
+              Append;
+            end
+            else
+            begin
+              Edit;
+            end;
+            FieldByName('CCID').Value:=Trim(MaxSubId);
+            FieldByName('COID').Value:=Trim(maxId); 
+            RTSetSaveDataCDS(ADOQueryCmd,Tv1,CDS_LXR,'Company_contact',0);
+            Post;
+          end;
+          with CDS_LXR do
+          begin
+            Edit;
+            FieldByName('CCID').Value:=Trim(MaxSubId);
+            Post;
+          end;
+          CDS_LXR.Next;
+        end;
+      end;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    FCCID:=Trim(MaxSubId);
+    Result:=True;
+  except
+    Result:=false;
+    ADOQueryCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存异常!','提示',0);
+  end;
+end;
+
+procedure TfrmCustomerInput.ToolButton3Click(Sender: TObject);
+begin
+
+  if Trim(CoName.Text)='' then
+  begin
+    Application.MessageBox('客户名称不能为空!','提示',0);
+    Exit;
+  end;
+//  if Trim(CoCode.Text)='' then
+//  begin
+//    Application.MessageBox('客户编号不能为空!','提示',0);
+//    Exit;
+//  end;
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功!','提示',0);
+  end;
+end;
+
+
+procedure TfrmCustomerInput.ToolButton4Click(Sender: TObject);
+var
+  maxno:string;
+begin
+  if GetLSNo(ADOQueryCmd,maxno,'CC','Company_contact',4,1)=False then
+  begin
+    Application.MessageBox('取系人最大ID失败!','提示',0);
+    Exit;
+  end;
+  if CDS_LXR.IsEmpty then
+  begin
+    with CDS_LXR do
+    begin
+      Append;
+      fieldbyname('CCID').Value:=trim(maxno);
+      fieldbyname('IsDefault').Value:=true;
+      Post;
+    end;
+  end
+  else
+  begin
+    with CDS_LXR do
+    begin
+      Append;
+      fieldbyname('CCID').Value:=trim(maxno);
+      fieldbyname('IsDefault').Value:=false;
+      Post;
+    end;
+  end;
+
+end;
+
+procedure TfrmCustomerInput.ToolButton5Click(Sender: TObject);
+begin
+  if CDS_LXR.IsEmpty then Exit;
+  if Trim(CDS_LXR.fieldbyname('CCID').AsString)<>'' then
+  begin
+    if Application.MessageBox('确定要删除数据吗？','提示',32+4)<>IDYES then Exit;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete from Company_contact where CCID='''+Trim(CDS_LXR.fieldbyname('CCID').AsString)+'''');
+      ExecSQL;
+    end;
+  end;
+  CDS_LXR.Delete;
+  if CDS_LXR.IsEmpty=false then
+  begin
+     if CDS_LXR.Locate('IsDefault',true,[])=false then
+     begin
+       CDS_LXR.first;
+       CDS_LXR.edit;
+       CDS_LXR.FieldByName('IsDefault').value:=true;
+     end;
+  end;
+end;
+
+procedure TfrmCustomerInput.ToolButton1Click(Sender: TObject);
+var
+  DwFlag:string;
+begin
+  DwFlag:= trim(CDS_LXR.FieldByName('CCID').AsString);
+  if CDS_LXR.Locate('IsDefault',true,[]) then
+  begin
+    CDS_LXR.edit;
+    CDS_LXR.FieldByName('IsDefault').value:=false;
+  end;
+  if CDS_LXR.Locate('CCID',DwFlag,[]) then
+  begin
+    CDS_LXR.edit;
+    CDS_LXR.FieldByName('IsDefault').value:=true;
+  end;
+
+end;
+
+procedure TfrmCustomerInput.FactTypeBtnClick(Sender: TObject);
+begin
+
+  try
+    frmZDYHelp:=TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag:='KHFactType';
+      flagname:='客户类型';
+      if ShowModal=1 then
+      begin
+        TEdit(Sender).Text:=Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+end.
--- a/发货申请(ShipmentRequest.dll)/U_DataLink.dfm
+++ b/发货申请(ShipmentRequest.dll)/U_DataLink.dfm
--- a/发货申请(ShipmentRequest.dll)/U_DataLink.pas
+++ b/发货申请(ShipmentRequest.dll)/U_DataLink.pas
@ -0,0 +1,73 @@
+unit U_DataLink;
+
+interface
+
+uses
+  SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
+  Windows, Messages, forms, OleCtnrs, DateUtils, cxClasses, dxSkinsCore,
+  dxSkinsDefaultPainters;
+
+var
+  DConString: string;   {全局连接字符串}
+  server, dtbase, user, pswd: string;  {数据库连接参数}
+  DCurHandle: hwnd;     //当前窗体句柄
+  DName: string;   //#用户名#//
+  DCode: string;     //#用户编号#//
+  Ddatabase: string;    //#数据库名称#//
+  DTitCaption: string;  //#主窗体名称#//
+  DParameters1, DParameters2, DParameters3, DParameters4, DParameters5: string; // 外部参数；
+  DParameters6, DParameters7, DParameters8, DParameters9, DParameters10: string; //外部参数；
+  OldDllApp: Tapplication; //保存原有句柄
+  NewDllApp: Tapplication; //当前句柄
+  MainApplication: Tapplication;
+  DFormCode: integer;  //当前窗口号
+  IsDelphiLanguage: integer;
+  DServerDate: TdateTime; //服务器时间
+  DCompany: string;       //公司
+  PicSvr: string;
+
+type
+  TDataLink_ShipmentRequest = class(TDataModule)
+    AdoDataLink: TADOQuery;
+    ADOLink: TADOConnection;
+    ThreeImgList: TImageList;
+    ThreeLookAndFeelCol: TcxLookAndFeelController;
+    ThreeColorBase: TcxStyleRepository;
+    SHuangSe: TcxStyle;
+    SkyBlue: TcxStyle;
+    Default: TcxStyle;
+    QHuangSe: TcxStyle;
+    Red: TcxStyle;
+    FontBlue: TcxStyle;
+    TextSHuangSe: TcxStyle;
+    FonePurple: TcxStyle;
+    FoneClMaroon: TcxStyle;
+    FoneRed: TcxStyle;
+    RowColor: TcxStyle;
+    handBlack: TcxStyle;
+    cxBlue: TcxStyle;
+    SHuangSeCu: TcxStyle;
+    procedure DataModuleDestroy(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+  TMakebar = procedure(ucData: pchar; nDataLen: integer; nErrLevel: integer; nMask: integer; nBarEdition: integer; szBmpFileName: pchar; nScale: integer); stdcall;
+
+  TMixtext = procedure(szSrcBmpFileName: PChar; szDstBmpFileName: PChar; sztext: PChar; fontsize, txtheight, hmargin, vmargin, txtcntoneline: integer); stdcall;
+
+var
+  DataLink_ShipmentRequest: TDataLink_ShipmentRequest;
+
+implementation
+{$R *.dfm}
+
+procedure TDataLink_ShipmentRequest.DataModuleDestroy(Sender: TObject);
+begin
+  DataLink_ShipmentRequest := nil;
+end;
+
+end.
+
--- a/发货申请(ShipmentRequest.dll)/U_FHSQInPut.dfm
+++ b/发货申请(ShipmentRequest.dll)/U_FHSQInPut.dfm
@ -0,0 +1,544 @@
+object frmFHSQInPut: TfrmFHSQInPut
+  Left = 254
+  Top = 165
+  Width = 1219
+  Height = 635
+  Caption = #21457#36135#30003#35831#24405#20837
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1203
+    Height = 29
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clBtnFace
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_ShipmentRequest.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBSave: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 5
+      OnClick = TBSaveClick
+    end
+    object TBClose: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object ScrollBox1: TScrollBox
+    Left = 0
+    Top = 29
+    Width = 1203
+    Height = 146
+    Align = alClient
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    Color = clBtnFace
+    Ctl3D = False
+    ParentColor = False
+    ParentCtl3D = False
+    TabOrder = 1
+    object Label14: TLabel
+      Left = 31
+      Top = 15
+      Width = 67
+      Height = 12
+      Caption = #23458'    '#25143#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label1: TLabel
+      Left = 965
+      Top = 125
+      Width = 65
+      Height = 12
+      Caption = #20986#24211#31867#22411#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label12: TLabel
+      Left = 31
+      Top = 100
+      Width = 67
+      Height = 12
+      Caption = #22791'    '#27880#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label11: TLabel
+      Left = 897
+      Top = 72
+      Width = 65
+      Height = 12
+      Caption = #25910#36135#21333#20301#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label13: TLabel
+      Left = 33
+      Top = 71
+      Width = 65
+      Height = 12
+      Caption = #21457#36135#25260#22836#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 = 31
+      Top = 42
+      Width = 67
+      Height = 12
+      Caption = #26579'    '#21378#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label17: TLabel
+      Left = 968
+      Top = 45
+      Width = 66
+      Height = 12
+      Caption = #36710' '#29260' '#21495#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlack
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label18: TLabel
+      Left = 253
+      Top = 16
+      Width = 65
+      Height = 12
+      Caption = #25910#36135#25260#22836#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label26: TLabel
+      Left = 751
+      Top = 44
+      Width = 67
+      Height = 12
+      Caption = #25209'    '#21495#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlack
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label2: TLabel
+      Left = 901
+      Top = 99
+      Width = 65
+      Height = 12
+      Caption = #21496#26426#30005#35805#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlack
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label3: TLabel
+      Left = 777
+      Top = 154
+      Width = 65
+      Height = 12
+      Caption = #25910#36135#22320#22336#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+      Visible = False
+    end
+    object Label4: TLabel
+      Left = 463
+      Top = 15
+      Width = 52
+      Height = 12
+      Caption = #30003#35831#26085#26399
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object CRType: TComboBox
+      Tag = 1
+      Left = 1030
+      Top = 119
+      Width = 144
+      Height = 20
+      Style = csDropDownList
+      ItemHeight = 12
+      ItemIndex = 0
+      TabOrder = 0
+      Text = #38144#21806#20986#24211
+      Visible = False
+      Items.Strings = (
+        #38144#21806#20986#24211
+        #21152#24037#20986#24211
+        #20854#20182#20986#24211
+        #24320#21457#26679#20986#24211)
+    end
+    object Note: TEdit
+      Tag = 1
+      Left = 98
+      Top = 94
+      Width = 784
+      Height = 18
+      TabOrder = 5
+    end
+    object SHDanWei: TBtnEditC
+      Tag = 1
+      Left = 961
+      Top = 68
+      Width = 138
+      Height = 20
+      Hint = 'FYName/'#36153#29992#21517#31216
+      TabOrder = 1
+      Visible = False
+      OnBtnUpClick = SHDanWeiBtnUpClick
+      OnBtnDnClick = SHDanWeiBtnDnClick
+    end
+    object FHTaiTou: TBtnEditC
+      Tag = 1
+      Left = 98
+      Top = 66
+      Width = 144
+      Height = 20
+      Hint = 'FHTaiTou/'#21457#36135#25260#22836
+      TabOrder = 3
+      OnBtnUpClick = FHTaiTouBtnUpClick
+      OnBtnDnClick = FHTaiTouBtnDnClick
+    end
+    object ranchang: TBtnEditC
+      Tag = 1
+      Left = 97
+      Top = 38
+      Width = 352
+      Height = 20
+      Hint = 'FHTaiTou/'#21457#36135#25260#22836
+      TabOrder = 2
+      OnBtnUpClick = ranchangBtnUpClick
+      OnBtnDnClick = ranchangBtnDnClick
+    end
+    object TruckId: TEdit
+      Tag = 1
+      Left = 1033
+      Top = 41
+      Width = 138
+      Height = 18
+      TabOrder = 4
+      Visible = False
+    end
+    object CustomerNoName: TBtnEditA
+      Tag = 1
+      Left = 98
+      Top = 11
+      Width = 144
+      Height = 20
+      ReadOnly = True
+      TabOrder = 6
+      OnBtnClick = CustomerNoNameBtnClick
+    end
+    object SQBatchNoHZ: TEdit
+      Tag = 1
+      Left = 818
+      Top = 40
+      Width = 144
+      Height = 18
+      TabOrder = 7
+      Visible = False
+    end
+    object SJPHONE: TEdit
+      Tag = 1
+      Left = 961
+      Top = 95
+      Width = 138
+      Height = 18
+      TabOrder = 8
+      Visible = False
+    end
+    object SHDZ: TBtnEditC
+      Tag = 1
+      Left = 841
+      Top = 150
+      Width = 352
+      Height = 20
+      Hint = 'FHTaiTou/'#21457#36135#25260#22836
+      TabOrder = 9
+      Visible = False
+      OnBtnUpClick = SHDZBtnUpClick
+      OnBtnDnClick = SHDZBtnDnClick
+    end
+    object shouhuotaitou: TBtnEditC
+      Tag = 1
+      Left = 313
+      Top = 12
+      Width = 138
+      Height = 20
+      Hint = 'FYName/'#36153#29992#21517#31216
+      TabOrder = 10
+      OnBtnUpClick = shouhuotaitouBtnUpClick
+      OnBtnDnClick = shouhuotaitouBtnDnClick
+    end
+    object SQDate: TDateTimePicker
+      Tag = 1
+      Left = 516
+      Top = 11
+      Width = 85
+      Height = 20
+      Date = 40675.464742650460000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464742650460000000
+      TabOrder = 11
+    end
+  end
+  object ToolBar2: TToolBar
+    Left = 0
+    Top = 175
+    Width = 1203
+    Height = 33
+    Align = alBottom
+    ButtonHeight = 30
+    ButtonWidth = 59
+    Caption = 'ToolBar1'
+    Color = clBtnFace
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_ShipmentRequest.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 2
+    object ze: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 2
+      OnClick = zeClick
+    end
+    object ToolButton2: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #21024#34892
+      ImageIndex = 113
+      OnClick = ToolButton2Click
+    end
+    object ToolButton1: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 57
+      Visible = False
+      OnClick = ToolButton1Click
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 208
+    Width = 1203
+    Height = 388
+    Align = alBottom
+    TabOrder = 3
+    object Tv1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = '0'
+          Position = spFooter
+        end
+        item
+          Format = '0'
+          Position = spFooter
+        end
+        item
+          Format = '0'
+          Position = spFooter
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.FocusCellOnTab = True
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
+      Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
+      Styles.Selection = DataLink_ShipmentRequest.SHuangSe
+      Styles.Header = DataLink_ShipmentRequest.Default
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #23458#25143#21697#21517
+        DataBinding.FieldName = 'FHKHPM'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        Properties.OnButtonClick = Tv1Column1PropertiesButtonClick
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object v1PRTColor: TcxGridDBColumn
+        Caption = #30003#35831#21305#25968
+        DataBinding.FieldName = 'SQPS'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 90
+      end
+      object v1Column3: TcxGridDBColumn
+        Caption = #30003#35831#25968#37327
+        DataBinding.FieldName = 'SQQty'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 78
+      end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'SQPRICE'
+        PropertiesClassName = 'TcxTextEditProperties'
+        Properties.OnEditValueChanged = v1Column3PropertiesEditValueChanged
+        HeaderAlignmentHorz = taCenter
+        Width = 71
+      end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #24635#20215
+        DataBinding.FieldName = 'SQMONEY'
+        HeaderAlignmentHorz = taCenter
+        Width = 76
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ADOTemp: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 200
+    Top = 65533
+  end
+  object ADOCmd: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    Parameters = <>
+    Left = 168
+    Top = 65533
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Sub
+    Left = 1016
+    Top = 368
+  end
+  object Order_Sub: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 1000
+    Top = 352
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    Parameters = <>
+    Left = 136
+    Top = 65533
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 472
+    Top = 488
+  end
+end
--- a/发货申请(ShipmentRequest.dll)/U_FHSQInPut.pas
+++ b/发货申请(ShipmentRequest.dll)/U_FHSQInPut.pas
@ -0,0 +1,767 @@
+unit U_FHSQInPut;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+  cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
+  cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
+  StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
+  cxDropDownEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxLookAndFeels,
+  cxLookAndFeelPainters, cxNavigator;
+
+type
+  TfrmFHSQInPut = class(TForm)
+    ToolBar1: TToolBar;
+    TBSave: TToolButton;
+    TBClose: TToolButton;
+    ScrollBox1: TScrollBox;
+    ToolBar2: TToolBar;
+    ToolButton1: TToolButton;
+    ToolButton2: TToolButton;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    cxGrid1Level1: TcxGridLevel;
+    v1PRTColor: TcxGridDBColumn;
+    ADOTemp: TADOQuery;
+    ADOCmd: TADOQuery;
+    DataSource1: TDataSource;
+    Order_Sub: TClientDataSet;
+    ADOQuery1: TADOQuery;
+    Label14: TLabel;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    Label1: TLabel;
+    CRType: TComboBox;
+    Note: TEdit;
+    Label12: TLabel;
+    Label11: TLabel;
+    SHDanWei: TBtnEditC;
+    Label13: TLabel;
+    FHTaiTou: TBtnEditC;
+    Label16: TLabel;
+    ranchang: TBtnEditC;
+    Label17: TLabel;
+    TruckId: TEdit;
+    v1Column3: TcxGridDBColumn;
+    CustomerNoName: TBtnEditA;
+    Label18: TLabel;
+    Label26: TLabel;
+    SQBatchNoHZ: TEdit;
+    Tv1Column2: TcxGridDBColumn;
+    Tv1Column3: TcxGridDBColumn;
+    Label2: TLabel;
+    SJPHONE: TEdit;
+    Label3: TLabel;
+    SHDZ: TBtnEditC;
+    Tv1Column1: TcxGridDBColumn;
+    shouhuotaitou: TBtnEditC;
+    ze: TToolButton;
+    Label4: TLabel;
+    SQDate: TDateTimePicker;
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBSaveClick(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+//    procedure ConNoBtnClick(Sender: TObject);
+    procedure SHDanWeiBtnUpClick(Sender: TObject);
+    procedure SHDanWeiBtnDnClick(Sender: TObject);
+    procedure FHTaiTouBtnDnClick(Sender: TObject);
+    procedure FHTaiTouBtnUpClick(Sender: TObject);
+    procedure ranchangBtnUpClick(Sender: TObject);
+    procedure ShouKuanKeyPress(Sender: TObject; var Key: Char);
+    procedure SQPSHZExit(Sender: TObject);
+    procedure ScrollBox1Click(Sender: TObject);
+//    procedure PrtCodeBtnClick(Sender: TObject);
+    procedure CustomerNoNameBtnClick(Sender: TObject);
+    procedure v1Column3PropertiesEditValueChanged(Sender: TObject);
+    procedure SHDZBtnDnClick(Sender: TObject);
+    procedure ranchangBtnDnClick(Sender: TObject);
+    procedure SHDZBtnUpClick(Sender: TObject);
+    procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+    procedure shouhuotaitouBtnUpClick(Sender: TObject);
+    procedure shouhuotaitouBtnDnClick(Sender: TObject);
+    procedure v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+    procedure zeClick(Sender: TObject);
+  private
+    fuserName: string;
+    procedure InitData();
+    procedure ZDYHelp(FButn: TcxButtonEdit; LType: string);
+    function SaveData(): Boolean;
+    { Private declarations }
+  public
+    PState, CopyInt: Integer;
+    FMainId, FFMainId, ChkStr, ConPriceStr: string;
+    FXS: Integer;
+    { Public declarations }
+  end;
+
+var
+  frmFHSQInPut: TfrmFHSQInPut;
+  newh: hwnd;
+
+implementation
+
+uses
+  U_DataLink, U_ZDYHelp, U_RTFun, U_SQKCHZSelList, U_ContractListNXSel,
+  U_CPManageFMSel, U_ZdyAttachment, U_ClothSCList;
+
+{$R *.dfm}
+
+procedure TfrmFHSQInPut.TBCloseClick(Sender: TObject);
+begin
+
+  WriteCxGrid('发货申请录入1', Tv1, '发货管理9');
+  Close;
+end;
+
+procedure TfrmFHSQInPut.InitData();
+var
+  fsj: string;
+begin
+//  fsj := 'select Name=ZdyName from KH_Zdy where Type=''ClothType'' ';
+//  SInitComBoxBySql(ADOTemp, ClothType, False, fsj);
+  with ADOQuery1 do
+  begin
+    Close;
+    SQL.Clear;
+    sql.Add(' select A.*  ');
+    sql.Add(',GCCode=(select GCCode from Cloth_Main CM where CM.MainId=A.Mainid)');
+    sql.Add(',BatchNoHZ=(select BatchNoHZ from Cloth_Sub CS where CS.MainId=A.Mainid)');
+    sql.Add(' from FHSQ_Sub A');
+    if PState = 1 then
+    begin
+      sql.Add('where FSId=''' + Trim(FMainId) + '''');
+    end;
+    if PState = 0 then
+    begin
+      sql.Add(' where 1<>1');
+    end;
+    Open;
+  end;
+  SCreateCDS20(ADOQuery1, Order_Sub);
+  SInitCDSData20(ADOQuery1, Order_Sub);
+  if PState = 0 then
+  begin
+    SQDate.DateTime := SGetServerDate10(ADOTemp);
+  end;
+  with ADOQuery1 do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select A.* ');
+    sql.Add(' from FHSQ_Main A');
+    sql.Add(' where FSId=''' + Trim(FMainId) + ''' ');
+    Open;
+  end;
+  SCSHDataNew(ADOQuery1, ScrollBox1, 0);
+  SCSHDataNew(ADOQuery1, ScrollBox1, 1);
+//  ConNo.TxtCode := Trim(ADOQuery1.fieldbyname('ConSubId').AsString);
+
+  if CopyInt = 99 then
+  begin
+    FMainId := '';
+    SQDate.DateTime := SGetServerDate10(ADOTemp);
+    with Order_Sub do
+    begin
+      First;
+      while not eof do
+      begin
+        Edit;
+        FieldByName('FSId').Value := '';
+        FieldByName('SSid').Value := '';
+        Next;
+      end;
+    end;
+  end;
+end;
+
+procedure TfrmFHSQInPut.ZDYHelp(FButn: TcxButtonEdit; LType: string);
+var
+  FType, ZDYName, FText: string;
+begin
+end;
+
+procedure TfrmFHSQInPut.FormShow(Sender: TObject);
+begin
+  readCxGrid('发货申请录入1', Tv1, '发货管理9');
+  InitData();
+end;
+
+function TfrmFHSQInPut.SaveData(): Boolean;
+var
+  maxno, maxmnno, FSSId: string;
+  fconNO, fmxType: string;
+begin
+  try
+    ADOCmd.Connection.BeginTrans;
+    ///保存主表
+    if Trim(FMainId) = '' then
+    begin
+      if GetLSNoHZ(ADOCmd, maxno, 'SQ', 'FHSQ_Main', 3, 1, 3) = False then
+      begin
+        ADOCmd.Connection.RollbackTrans;
+        Application.MessageBox('取最大号失败!', '提示', 0);
+        Exit;
+      end;
+    end
+    else
+    begin
+      maxno := Trim(FMainId);
+    end;
+    with ADOCmd do
+    begin
+      Close;
+      sql.Clear;
+      SQL.Add('select * from FHSQ_Main where FSID=''' + Trim(FMainId) + '''');
+      Open;
+    end;
+    with ADOCmd do
+    begin
+      if Trim(FMainId) = '' then
+      begin
+        Append;
+      end
+      else
+      begin
+        Edit;
+      end;
+      FieldByName('FSID').Value := Trim(maxno);
+
+      RTSetsavedata(ADOCmd, 'FHSQ_Main', ScrollBox1, 1);
+//      FieldByName('ConSubId').Value := Trim(ConNo.TxtCode);
+
+      if Trim(FMainId) = '' then
+      begin
+        FieldByName('Filler').Value := Trim(DName);
+//        FieldByName('SQDate').Value := SGetServerDate(ADOTemp);
+      end
+      else
+      begin
+        FieldByName('Editer').Value := Trim(DName);
+        FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
+      end;
+      Post;
+    end;
+
+//    with ADOCmd do
+//    begin
+//      Close;
+//      sql.Clear;
+//      sql.Add('UPdate FHSQ_Main Set ConMainId=(select MainId from JYOrderCon_Sub_PB where SubId=''' + Trim(ConNo.TxtCode) + ''')');
+//      sql.Add(' where FSID=''' + Trim(maxno) + '''');
+//      ExecSQL;
+//    end;
+    FMainId := Trim(maxno);
+    ///保存子表
+    Order_Sub.DisableControls;
+    with Order_Sub do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Trim(Order_Sub.fieldbyname('SSId').AsString) = '' then
+        begin
+          if GetLSNo(ADOCmd, maxno, 'SS', 'FHSQ_Sub', 4, 1) = False then
+          begin
+            Order_Sub.EnableControls;
+            ADOCmd.Connection.RollbackTrans;
+            Application.MessageBox('取子流水号失败！', '提示', 0);
+            Exit;
+          end;
+        end
+        else
+        begin
+          maxno := Trim(Order_Sub.fieldbyname('SSId').AsString);
+        end;
+        with ADOCmd do
+        begin
+          Close;
+          SQL.Clear;
+          sql.Add('select * from FHSQ_Sub ');
+          sql.Add(' where SSId=''' + Trim(maxno) + '''');
+          Open;
+        end;
+        if ADOCmd.IsEmpty then
+        begin
+          FSSId := '';
+        end
+        else
+        begin
+          FSSId := Trim(maxno);
+        end;
+        with ADOCmd do
+        begin
+          if Trim(FSSId) = '' then
+          begin
+            Append;
+            FieldByName('Filler').Value := Trim(DName);
+          end
+          else
+          begin
+            Edit;
+            FieldByName('Editer').Value := Trim(DName);
+            FieldByName('EditTime').Value := SGetServerDateTime(ADOTemp);
+          end;
+          FieldByName('FSID').Value := Trim(FMainId);
+          FieldByName('SSID').Value := Trim(maxno);
+          FieldByName('P_cartype').ASSTRING := Order_Sub.fieldbyname('P_cartype').AsString;
+          RTSetSaveDataCDS(ADOCmd, Tv1, Order_Sub, 'FHSQ_Sub', 0);
+//          FieldByName('MainId').Value := Order_Sub.fieldbyname('MainId').Value;
+//          FieldByName('SubId').Value := Order_Sub.fieldbyname('SubId').Value;
+//          FieldByName('SSConMainId').Value := Order_Sub.fieldbyname('SSConMainId').Value;
+//          FieldByName('SSConSubId').Value := Order_Sub.fieldbyname('SSConSubId').Value;
+          Post;
+        end;
+        with ADOCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('EXEC P_SC_CLOTH @SSID=''' + Trim(maxno) + '''');
+          ExecSQL;
+        end;
+        Order_Sub.Edit;
+        Order_Sub.FieldByName('SSID').Value := Trim(maxno);
+        Next;
+      end;
+    end;
+    Order_Sub.EnableControls;
+    with ADOCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('Update FHSQ_Main Set ');
+      sql.Add('SQPSHZ=(select Sum(SQPS) from FHSQ_Sub A where A.FSID=FHSQ_Main.FSID)');
+      sql.Add(',SQQTYHZ=(select Sum(SQQTY) from FHSQ_Sub A where A.FSID=FHSQ_Main.FSID)');
+      sql.Add(',SQGCCode=dbo.F_Get_Order_SubStr_PB(FHSQ_Main.FSID,''SQGCCode'')');
+      sql.Add(',SQBatchNoHZ=dbo.F_Get_Order_SubStr_PB(FHSQ_Main.FSID,''SQBatchNoHZ'')');
+      sql.Add('where FSID=''' + Trim(FMainId) + '''');
+      ExecSQL;
+    end;
+
+    ADOCmd.Connection.CommitTrans;
+    Result := True;
+  except
+    ADOCmd.Connection.RollbackTrans;
+    Application.MessageBox('保存失败！', '提示', 0);
+    Result := False;
+  end;
+end;
+
+procedure TfrmFHSQInPut.TBSaveClick(Sender: TObject);
+var
+  Freal: Double;
+begin
+  ToolBar1.SetFocus;
+
+  if Trim(CRType.Text) = '' then
+  begin
+    Application.MessageBox('出库类型不能为空！', '提示', 0);
+    Exit;
+  end;
+
+  if Order_Sub.IsEmpty then
+  begin
+    Application.MessageBox('明细不能为空！', '提示', 0);
+    Exit;
+  end;
+
+  if Order_Sub.Locate('FHKHPM', null, []) = True then
+  begin
+    Application.MessageBox('客户品名不能为空！', '提示', 0);
+    Exit;
+  end;
+
+  if Order_Sub.Locate('SQPS', null, []) = True then
+  begin
+    Application.MessageBox('申请匹数不能为空！', '提示', 0);
+    Exit;
+  end;
+  if Order_Sub.Locate('SQPS', 0, []) = True then
+  begin
+    Application.MessageBox('申请匹数不能为0！', '提示', 0);
+    Exit;
+  end;
+//  if Order_Sub.Locate('SQQty', null, []) = True then
+//  begin
+//    Application.MessageBox('申请数量不能为空！', '提示', 0);
+//    Exit;
+//  end;
+
+  if SaveData() then
+  begin
+    Application.MessageBox('保存成功！', '提示', 0);
+    ModalResult := 1;
+  end;
+end;
+
+procedure TfrmFHSQInPut.ToolButton1Click(Sender: TObject);
+begin
+//  if Trim(PrtCode.Text) = '' then
+//  begin
+//    Application.MessageBox('没有产品！', '提示', 0);
+//    Exit;
+//  end;
+//  if Order_Sub.IsEmpty = false then
+//  begin
+//    Application.MessageBox('已有产品，请先删除！', '提示', 0);
+//    Exit;
+//  end;
+  try
+    frmSQKCHZSelList := TfrmSQKCHZSelList.Create(Application);
+    with frmSQKCHZSelList do
+    begin
+//      FCode := Trim(Self.PrtCode.Text);
+//      FClothType := Trim(ClothType.Text);
+//      FSeBie:=Trim(SeBie.Text);
+//      KHNAME.Text := Self.CustomerNoName.Text;
+      if ShowModal = 1 then
+      begin
+        if self.Order_Sub.locate('P_NAME', trim(CDS_Main.Fieldbyname('C_CodeName').AsString), []) then
+        begin
+          Application.MessageBox('已选择该产品！', '提示', 0);
+          Exit;
+        end;
+        with Self.Order_Sub do
+        begin
+          Append;
+
+          FieldByName('P_CODE').ASSTRING := frmSQKCHZSelList.CDS_Main.fieldbyname('C_Code').ASSTRING;
+          FieldByName('P_NAME').ASSTRING := frmSQKCHZSelList.CDS_Main.fieldbyname('C_CodeName').ASSTRING;
+
+          FieldByName('FHKHPM').ASSTRING := frmSQKCHZSelList.CDS_Main.fieldbyname('C_CodeName').ASSTRING;
+
+          FieldByName('SQPRICE').Value := 0;
+          FieldByName('SQMONEY').Value := 0;
+//            FieldByName('P_NAME').Value := frmSQKCHZSelList.CDS_Main.fieldbyname('C_CodeName').Value;
+
+          Post;
+        end;
+
+      end;
+    end;
+  finally
+    frmSQKCHZSelList.Free;
+  end;
+end;
+
+procedure TfrmFHSQInPut.ToolButton2Click(Sender: TObject);
+begin
+  if Order_Sub.IsEmpty then
+    Exit;
+  if Trim(Order_Sub.fieldbyname('SSId').AsString) <> '' then
+  begin
+    with ADOTemp do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('select * from FHSQ_Sub where SSId=''' + Trim(Order_Sub.fieldbyname('SSId').AsString) + '''');
+      sql.add(' and isnull(FHPS,0)>0');
+      Open;
+    end;
+    if ADOTemp.IsEmpty = False then
+    begin
+      Application.MessageBox('已发货不能删除数据!', '提示', 0);
+      exit;
+    end;
+    if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
+      Exit;
+    with ADOCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete FHSQ_Sub where SSId=''' + Trim(Order_Sub.fieldbyname('SSId').AsString) + '''');
+      ExecSQL;
+    end;
+    with ADOCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('Update FHSQ_Main Set ');
+      sql.Add('SQPSHZ=(select Sum(SQPS) from FHSQ_Sub A where A.FSID=FHSQ_Main.FSID)');
+      sql.Add('where FSID=''' + Trim(FMainId) + '''');
+      ExecSQL;
+    end;
+  end;
+  Order_Sub.Delete;
+end;
+
+procedure TfrmFHSQInPut.SHDanWeiBtnUpClick(Sender: TObject);
+begin
+  try
+    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag := 'SHDanWei';
+      flagname := '收货单位';
+      if ShowModal = 1 then
+      begin
+        Self.SHDanWei.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmFHSQInPut.SHDanWeiBtnDnClick(Sender: TObject);
+begin
+  SHDanWei.Text := '';
+end;
+
+procedure TfrmFHSQInPut.FHTaiTouBtnDnClick(Sender: TObject);
+begin
+  FHTaiTou.Text := '';
+end;
+
+procedure TfrmFHSQInPut.FHTaiTouBtnUpClick(Sender: TObject);
+begin
+  try
+    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag := 'FHTaiTou';
+      flagname := '发货抬头';
+      if ShowModal = 1 then
+      begin
+        Self.FHTaiTou.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmFHSQInPut.ranchangBtnUpClick(Sender: TObject);
+begin
+  try
+    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag := 'ranchang';
+      flagname := '染厂';
+      if ShowModal = 1 then
+      begin
+        Self.ranchang.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmFHSQInPut.ShouKuanKeyPress(Sender: TObject; var Key: Char);
+begin
+  if not (((Key >= '0') and (Key <= '9')) or (Key = '.') or (Key = #8)) then
+  begin
+    Key := #0;
+  end
+  else if (pos('.', TEdit(Sender).text) <> 0) then
+  begin
+    if Key = '.' then
+    begin
+      Key := #0;
+    end;
+  end;
+end;
+
+procedure TfrmFHSQInPut.SQPSHZExit(Sender: TObject);
+begin
+//  SQQtyHZ.Text := floattostr(strtofloatdef(SQPSHZ.Text, 0) * strtofloatdef(PiZhong.Text, 0));
+end;
+
+procedure TfrmFHSQInPut.ScrollBox1Click(Sender: TObject);
+begin
+  CustomerNoName.SetFocus();
+end;
+
+//procedure TfrmFHSQInPut.PrtCodeBtnClick(Sender: TObject);
+//begin
+//  try
+//    frmCPManageFMSel := TfrmCPManageFMSel.Create(Application);
+//    with frmCPManageFMSel do
+//    begin
+//      if ShowModal = 1 then
+//      begin
+//        PrtCode.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CYNo').AsString;
+//        PrtCodeName.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CYName').AsString;
+//        shouhuomingcheng.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CYName').AsString;
+//        prtmf.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CYMF').AsString;
+//        prtkz.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CYKZ').AsString;
+//        prtspec.Text := frmCPManageFMSel.CDS_Main.fieldbyname('CYSpec').AsString;
+//      end;
+//    end;
+//  finally
+//    frmCPManageFMSel.Free;
+//  end;
+//end;
+
+procedure TfrmFHSQInPut.CustomerNoNameBtnClick(Sender: TObject);
+begin
+  try
+    frmZdyAttachment := TfrmZdyAttachment.Create(Application);
+    with frmZdyAttachment do
+    begin
+      if ShowModal = 1 then
+      begin
+        CustomerNoName.Text := Trim(CDS_HZ.fieldbyname('CoName').AsString);
+        shouhuotaitou.Text := Trim(CDS_HZ.fieldbyname('CoName').AsString);
+      end;
+    end;
+  finally
+    frmZdyAttachment.Free;
+  end;
+end;
+
+procedure TfrmFHSQInPut.v1Column3PropertiesEditValueChanged(Sender: TObject);
+var
+  mvalue, FFieldName: string;
+  FQty, FPrice, FMxMoney: double;
+begin
+  mvalue := TcxTextEdit(Sender).EditingText;
+  FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
+  if Trim(mvalue) = '' then
+  begin
+    mvalue := '0';
+  end;
+  with Order_Sub do
+  begin
+    Edit;
+    FieldByName(FFieldName).Value := Trim(mvalue);
+    Post;
+  end;
+  with Order_Sub do
+  begin
+    Edit;
+    FQty := FieldByName('SQQty').AsFloat;
+    FPrice := FieldByName('SQPRICE').AsFloat;
+    Post;
+  end;
+  FMxMoney := strtofloat(format('%.2f', [FQty * FPrice]));
+  with Order_Sub do
+  begin
+    Edit;
+    FieldByName(FFieldName).Value := Trim(mvalue);
+    FieldbyName('SQMONEY').Value := FMxMoney;
+    Post;
+  end;
+  tv1.Controller.EditingController.ShowEdit();
+
+end;
+
+procedure TfrmFHSQInPut.SHDZBtnDnClick(Sender: TObject);
+begin
+  SHDZ.Text := '';
+end;
+
+procedure TfrmFHSQInPut.ranchangBtnDnClick(Sender: TObject);
+begin
+  RANCHANG.Text := '';
+end;
+
+procedure TfrmFHSQInPut.SHDZBtnUpClick(Sender: TObject);
+begin
+  try
+    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag := 'SHDZ';
+      flagname := '收货地址';
+      if ShowModal = 1 then
+      begin
+        Self.SHDZ.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmFHSQInPut.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag := 'KHPM';
+      flagname := '客户品名';
+      if ShowModal = 1 then
+      begin
+        with Order_Sub do
+        begin
+          Edit;
+          fieldbyname('fhkhpm').AsString := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+        end;
+
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmFHSQInPut.shouhuotaitouBtnUpClick(Sender: TObject);
+begin
+  try
+    frmZDYHelp := TfrmZDYHelp.Create(Application);
+    with frmZDYHelp do
+    begin
+      flag := 'taitou';
+      flagname := '收货单位';
+      if ShowModal = 1 then
+      begin
+        Self.shouhuotaitou.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+      end;
+    end;
+  finally
+    frmZDYHelp.Free;
+  end;
+end;
+
+procedure TfrmFHSQInPut.shouhuotaitouBtnDnClick(Sender: TObject);
+begin
+  shouhuotaitou.Text := '';
+end;
+
+procedure TfrmFHSQInPut.v1Column14PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmCPManageFMSel := TfrmCPManageFMSel.Create(Application);
+    with frmCPManageFMSel do
+    begin
+      if ShowModal = 1 then
+      begin
+        with Order_Sub do
+        begin
+          Edit;
+          FieldByName('P_CODE').AsString := frmCPManageFMSel.CDS_Main.fieldbyname('CYNo').AsString;
+          FieldByName('P_NAME').AsString := frmCPManageFMSel.CDS_Main.fieldbyname('CYname').AsString;
+          FieldByName('FHKHPM').AsString := frmCPManageFMSel.CDS_Main.fieldbyname('CYname').AsString;
+        end;
+
+      end;
+    end;
+  finally
+    frmCPManageFMSel.Free;
+  end;
+end;
+
+procedure TfrmFHSQInPut.zeClick(Sender: TObject);
+begin
+  with Self.Order_Sub do
+  begin
+    Append;
+    FieldByName('SQPS').Value := 0;
+    FieldByName('SQQTY').Value := 0;
+    FieldByName('SQPRICE').Value := 0;
+    FieldByName('SQMONEY').Value := 0;
+//            FieldByName('P_NAME').Value := frmSQKCHZSelList.CDS_Main.fieldbyname('C_CodeName').Value;
+
+    Post;
+  end;
+end;
+
+end.
+
--- a/发货申请(ShipmentRequest.dll)/U_FHSQList.dfm
+++ b/发货申请(ShipmentRequest.dll)/U_FHSQList.dfm
@ -0,0 +1,858 @@
+object frmFHSQList: TfrmFHSQList
+  Left = 191
+  Top = 114
+  Width = 1308
+  Height = 679
+  Caption = #21457#36135#30003#35831
+  Color = clBtnFace
+  Font.Charset = GB2312_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Font.Style = []
+  OldCreateOrder = False
+  Position = poScreenCenter
+  OnClose = FormClose
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 1292
+    Height = 62
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 107
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Flat = True
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_ShipmentRequest.ThreeImgList
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 0
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 63
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 20
+      OnClick = TBFindClick
+    end
+    object TBAdd: TToolButton
+      Left = 126
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 1
+      OnClick = TBAddClick
+    end
+    object tbCopy: TToolButton
+      Left = 189
+      Top = 0
+      AutoSize = True
+      Caption = #22797#21046
+      ImageIndex = 38
+      OnClick = tbCopyClick
+    end
+    object TBEdit: TToolButton
+      Left = 252
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 11
+      OnClick = TBEditClick
+    end
+    object ToolButton2: TToolButton
+      Left = 315
+      Top = 0
+      AutoSize = True
+      Caption = #21457#36135#26085#26399#20462#25913
+      ImageIndex = 11
+      OnClick = ToolButton2Click
+    end
+    object ToolButton1: TToolButton
+      Left = 426
+      Top = 0
+      AutoSize = True
+      Caption = #26597#30475
+      ImageIndex = 58
+      Wrap = True
+      OnClick = ToolButton1Click
+    end
+    object TBDel: TToolButton
+      Left = 0
+      Top = 30
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 3
+      OnClick = TBDelClick
+    end
+    object tchk: TToolButton
+      Left = 63
+      Top = 30
+      AutoSize = True
+      Caption = #23436#25104
+      ImageIndex = 31
+      OnClick = tchkClick
+    end
+    object Tnochk: TToolButton
+      Left = 126
+      Top = 30
+      AutoSize = True
+      Caption = #25764#38144#23436#25104
+      ImageIndex = 52
+      OnClick = TnochkClick
+    end
+    object TBExport: TToolButton
+      Left = 213
+      Top = 30
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 68
+      OnClick = TBExportClick
+    end
+    object TBPrint: TToolButton
+      Left = 276
+      Top = 30
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 4
+      OnClick = TBPrintClick
+    end
+    object TBClose: TToolButton
+      Left = 339
+      Top = 30
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 21
+      OnClick = TBCloseClick
+    end
+  end
+  object cxGrid1: TcxGrid
+    Left = 0
+    Top = 126
+    Width = 1292
+    Height = 250
+    Align = alClient
+    TabOrder = 3
+    object Tv1: TcxGridDBTableView
+      OnMouseDown = Tv1MouseDown
+      Navigator.Buttons.CustomButtons = <>
+      DataController.DataSource = DataSource1
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Kind = skSum
+          Position = spFooter
+        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
+        item
+          Kind = skSum
+          Position = spFooter
+        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
+        item
+          Kind = skSum
+          Position = spFooter
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        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
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v1Column26
+        end
+        item
+          Kind = skSum
+          Column = v1Column11
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      OptionsView.GroupFooters = gfAlwaysVisible
+      OptionsView.Indicator = True
+      Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
+      Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
+      Styles.Selection = DataLink_ShipmentRequest.SHuangSe
+      Styles.Header = DataLink_ShipmentRequest.Default
+      object v1Column4: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.NullStyle = nssUnchecked
+        Visible = False
+        HeaderAlignmentHorz = taCenter
+        Width = 49
+      end
+      object v1Column8: TcxGridDBColumn
+        Caption = #30003#35831#21333#21495
+        DataBinding.FieldName = 'FSID'
+        HeaderAlignmentHorz = taCenter
+        Width = 93
+      end
+      object v1CustomerNoName: TcxGridDBColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'CustomerNoName'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 87
+      end
+      object v1Column21: TcxGridDBColumn
+        Caption = #21457#36135#25260#22836
+        DataBinding.FieldName = 'FHTaiTou'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 118
+      end
+      object v1Column10: TcxGridDBColumn
+        Caption = #25910#36135#21333#20301
+        DataBinding.FieldName = 'SHDanWei'
+        HeaderAlignmentHorz = taCenter
+        Width = 87
+      end
+      object v1Column2: TcxGridDBColumn
+        Caption = #25910#36135#25260#22836
+        DataBinding.FieldName = 'shouhuotaitou'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 78
+      end
+      object v1OrdPerson1: TcxGridDBColumn
+        Caption = #19994#21153#21592
+        DataBinding.FieldName = 'ConPerson1'
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 74
+      end
+      object v1OrdDate: TcxGridDBColumn
+        Caption = #30003#35831#26085#26399
+        DataBinding.FieldName = 'SQDate'
+        PropertiesClassName = 'TcxDateEditProperties'
+        Properties.ShowTime = False
+        HeaderAlignmentHorz = taCenter
+        Options.Focusing = False
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 70
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #30003#35831#21305#25968
+        DataBinding.FieldName = 'SQPSHZ'
+        HeaderAlignmentHorz = taCenter
+        Width = 72
+      end
+      object v1Column26: TcxGridDBColumn
+        Caption = #30003#35831#25968#37327
+        DataBinding.FieldName = 'SQQtyHZ'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 74
+      end
+      object v1Column1: TcxGridDBColumn
+        Caption = #30003#35831#20154
+        DataBinding.FieldName = 'Filler'
+        HeaderAlignmentHorz = taCenter
+        Width = 66
+      end
+      object v1Column13: TcxGridDBColumn
+        Caption = #23457#26680#20154
+        DataBinding.FieldName = 'Chker'
+        HeaderAlignmentHorz = taCenter
+        Width = 65
+      end
+      object v1Column17: TcxGridDBColumn
+        Caption = #23457#26680#26085#26399
+        DataBinding.FieldName = 'ChkTime'
+        HeaderAlignmentHorz = taCenter
+        Width = 66
+      end
+      object v1Column18: TcxGridDBColumn
+        Caption = #21457#36135#21305#25968
+        DataBinding.FieldName = 'FHPSHZ'
+        HeaderAlignmentHorz = taCenter
+        Width = 66
+      end
+      object v1Column19: TcxGridDBColumn
+        Caption = #21457#36135#25968#37327
+        DataBinding.FieldName = 'FHQtyHZ'
+        HeaderAlignmentHorz = taCenter
+        Width = 65
+      end
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #26410#21457#21305#25968
+        DataBinding.FieldName = 'WFPSHS'
+        HeaderAlignmentHorz = taCenter
+        Width = 68
+      end
+      object v1Column23: TcxGridDBColumn
+        Caption = #26579#21378
+        DataBinding.FieldName = 'ranchang'
+        HeaderAlignmentHorz = taCenter
+        Width = 72
+      end
+      object v1Column7: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        Width = 70
+      end
+      object v1Column27: TcxGridDBColumn
+        Caption = #21457#36135#26085#26399
+        DataBinding.FieldName = 'fhDate'
+        HeaderAlignmentHorz = taCenter
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object Panel1: TPanel
+    Left = 0
+    Top = 62
+    Width = 1292
+    Height = 43
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 1
+    object Label1: TLabel
+      Left = 23
+      Top = 15
+      Width = 52
+      Height = 12
+      Caption = #30003#35831#26085#26399
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 263
+      Top = 15
+      Width = 26
+      Height = 12
+      Caption = #23458#25143
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label5: TLabel
+      Left = 380
+      Top = 15
+      Width = 39
+      Height = 12
+      Caption = #19994#21153#21592
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label8: TLabel
+      Left = 430
+      Top = 99
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label12: TLabel
+      Left = 303
+      Top = 99
+      Width = 26
+      Height = 12
+      Caption = #20811#37325
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label13: TLabel
+      Left = 303
+      Top = 123
+      Width = 26
+      Height = 12
+      Caption = #38376#24133
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 160
+      Top = 16
+      Width = 6
+      Height = 12
+      Caption = '-'
+    end
+    object BegDate: TDateTimePicker
+      Left = 76
+      Top = 11
+      Width = 85
+      Height = 20
+      Date = 40675.464742650460000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464742650460000000
+      TabOrder = 0
+    end
+    object EndDate: TDateTimePicker
+      Left = 168
+      Top = 11
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      TabOrder = 1
+    end
+    object CustomerNoName: TEdit
+      Tag = 2
+      Left = 293
+      Top = 11
+      Width = 78
+      Height = 20
+      TabOrder = 2
+      OnChange = CustomerNoNameChange
+    end
+    object ConPerson1: TEdit
+      Tag = 2
+      Left = 421
+      Top = 11
+      Width = 76
+      Height = 20
+      TabOrder = 3
+      OnChange = CustomerNoNameChange
+    end
+    object MPRTCodeName: TEdit
+      Tag = 2
+      Left = 483
+      Top = 95
+      Width = 76
+      Height = 20
+      TabOrder = 5
+      OnChange = CustomerNoNameChange
+    end
+    object MPRTKZ: TEdit
+      Tag = 2
+      Left = 332
+      Top = 95
+      Width = 56
+      Height = 20
+      TabOrder = 4
+      OnChange = CustomerNoNameChange
+    end
+    object MPRTMF: TEdit
+      Tag = 2
+      Left = 332
+      Top = 119
+      Width = 56
+      Height = 20
+      TabOrder = 6
+      OnChange = CustomerNoNameChange
+    end
+  end
+  object cxTabControl1: TcxTabControl
+    Left = 0
+    Top = 105
+    Width = 1292
+    Height = 21
+    Align = alTop
+    TabOrder = 2
+    Properties.CustomButtons.Buttons = <>
+    Properties.Style = 9
+    Properties.TabIndex = 0
+    Properties.Tabs.Strings = (
+      #26410#23436#25104
+      #24050#23436#25104
+      #20840#37096)
+    OnChange = cxTabControl1Change
+    ClientRectRight = 0
+    ClientRectTop = 0
+  end
+  object cxSplitter1: TcxSplitter
+    Left = 0
+    Top = 632
+    Width = 1292
+    Height = 8
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    AlignSplitter = salBottom
+    Visible = False
+  end
+  object Panel5: TPanel
+    Left = 444
+    Top = 216
+    Width = 273
+    Height = 101
+    Color = clSkyBlue
+    TabOrder = 5
+    Visible = False
+    object Label28: TLabel
+      Left = 33
+      Top = 38
+      Width = 60
+      Height = 12
+      Caption = #21457#36135#26102#38388#65306
+    end
+    object Label11: TLabel
+      Left = 33
+      Top = 12
+      Width = 60
+      Height = 12
+      Caption = #30003#35831#21333#21495#65306
+    end
+    object lblFSID: TLabel
+      Left = 101
+      Top = 12
+      Width = 48
+      Height = 12
+      Caption = #30003#35831#21333#21495
+    end
+    object Button5: TButton
+      Left = 32
+      Top = 64
+      Width = 60
+      Height = 21
+      Caption = #30830#23450
+      TabOrder = 0
+      OnClick = Button5Click
+    end
+    object Button6: TButton
+      Left = 172
+      Top = 64
+      Width = 60
+      Height = 21
+      Caption = #20851#38381
+      TabOrder = 1
+      OnClick = Button6Click
+    end
+    object DateTimePicker1: TDateTimePicker
+      Left = 101
+      Top = 34
+      Width = 86
+      Height = 20
+      Date = 40675.464761099540000000
+      Format = 'yyyy-MM-dd'
+      Time = 40675.464761099540000000
+      TabOrder = 2
+    end
+  end
+  object cxGrid2: TcxGrid
+    Left = 0
+    Top = 376
+    Width = 1292
+    Height = 256
+    Align = alBottom
+    TabOrder = 6
+    object TV2: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      DataController.DataSource = DataSource2
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = '0'
+          Position = spFooter
+        end
+        item
+          Format = '0'
+          Position = spFooter
+        end
+        item
+          Format = '0'
+          Position = spFooter
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.FocusCellOnTab = True
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      Styles.Inactive = DataLink_ShipmentRequest.SHuangSe
+      Styles.IncSearch = DataLink_ShipmentRequest.SHuangSe
+      Styles.Selection = DataLink_ShipmentRequest.SHuangSe
+      Styles.Header = DataLink_ShipmentRequest.Default
+      object cxGridDBColumn1: TcxGridDBColumn
+        Caption = #23458#25143#21697#21517
+        DataBinding.FieldName = 'FHKHPM'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 107
+      end
+      object v1PRTColor: TcxGridDBColumn
+        Caption = #30003#35831#21305#25968
+        DataBinding.FieldName = 'SQPS'
+        HeaderAlignmentHorz = taCenter
+        Options.Sorting = False
+        Styles.Header = DataLink_ShipmentRequest.Default
+        Width = 90
+      end
+      object cxGridDBColumn4: TcxGridDBColumn
+        Caption = #30003#35831#25968#37327
+        DataBinding.FieldName = 'SQQty'
+        HeaderAlignmentHorz = taCenter
+        Width = 78
+      end
+      object TV2Column1: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'sqprice'
+        HeaderAlignmentHorz = taCenter
+        Width = 68
+      end
+      object TV2Column2: TcxGridDBColumn
+        Caption = #24635#20215
+        DataBinding.FieldName = 'sqmoney'
+        HeaderAlignmentHorz = taCenter
+        Width = 66
+      end
+      object TV2Column3: TcxGridDBColumn
+        Caption = #21457#36135#21305#25968
+        DataBinding.FieldName = 'FHPS'
+        HeaderAlignmentHorz = taCenter
+        Width = 68
+      end
+      object TV2Column4: TcxGridDBColumn
+        Caption = #21457#36135#25968#37327
+        DataBinding.FieldName = 'fhqty'
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object TV2Column5: TcxGridDBColumn
+        Caption = #26410#21457#21305#25968
+        DataBinding.FieldName = 'wfps'
+        HeaderAlignmentHorz = taCenter
+        Width = 79
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = TV2
+    end
+  end
+  object cxGridPopupMenu1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 1000
+    Top = 184
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    Parameters = <>
+    Left = 504
+    Top = 156
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 640
+    Top = 176
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 704
+    Top = 176
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 968
+    Top = 184
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 936
+    Top = 184
+  end
+  object RMDBDataSet1: TRMDBDataSet
+    Visible = True
+    DataSet = ADOQueryPrint
+    Left = 464
+    Top = 156
+  end
+  object RMXLSExport1: TRMXLSExport
+    ShowAfterExport = True
+    ExportPrecision = 1
+    PagesOfSheet = 1
+    ExportImages = True
+    ExportFrames = True
+    ExportImageFormat = ifBMP
+    JPEGQuality = 0
+    ScaleX = 1.000000000000000000
+    ScaleY = 1.000000000000000000
+    CompressFile = False
+    Left = 375
+    Top = 184
+  end
+  object ADOQueryPrint: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 672
+    Top = 176
+  end
+  object CDS_Print: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 343
+    Top = 184
+  end
+  object ADOQuerySub: TADOQuery
+    Connection = DataLink_ShipmentRequest.ADOLink
+    Parameters = <>
+    Left = 740
+    Top = 176
+  end
+  object DataSource2: TDataSource
+    DataSet = ClientDataSet2
+    Left = 464
+    Top = 504
+  end
+  object ClientDataSet2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 496
+    Top = 504
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 528
+    Top = 504
+  end
+  object CDS_Note: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 408
+    Top = 184
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, pbExport, pbNavigator]
+    DefaultCollate = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDBDataSet1
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 312
+    Top = 184
+    ReportData = {}
+  end
+end
--- a/发货申请(ShipmentRequest.dll)/U_FHSQList.pas
+++ b/发货申请(ShipmentRequest.dll)/U_FHSQList.pas
@ -0,0 +1,738 @@
+unit U_FHSQList;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
+  cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
+  cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
+  cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
+  cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
+  RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxPC, cxButtonEdit,
+  RM_E_llPDF, cxDropDownEdit, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters,
+  cxNavigator, dxBarBuiltInMenu;
+
+type
+  TfrmFHSQList = class(TForm)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBAdd: TToolButton;
+    TBEdit: TToolButton;
+    TBDel: TToolButton;
+    TBPrint: TToolButton;
+    TBClose: TToolButton;
+    Tv1: TcxGridDBTableView;
+    cxGrid1Level1: TcxGridLevel;
+    cxGrid1: TcxGrid;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    TBExport: TToolButton;
+    v1OrdDate: TcxGridDBColumn;
+    v1OrdPerson1: TcxGridDBColumn;
+    Order_Main: TClientDataSet;
+    RMDBDataSet1: TRMDBDataSet;
+    RMXLSExport1: TRMXLSExport;
+    v1CustomerNoName: TcxGridDBColumn;
+    ToolButton1: TToolButton;
+    ADOQueryPrint: TADOQuery;
+    CDS_Print: TClientDataSet;
+    v1Column4: TcxGridDBColumn;
+    Panel1: TPanel;
+    Label1: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    Label8: TLabel;
+    Label12: TLabel;
+    Label13: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    CustomerNoName: TEdit;
+    ConPerson1: TEdit;
+    MPRTCodeName: TEdit;
+    MPRTKZ: TEdit;
+    MPRTMF: TEdit;
+    cxTabControl1: TcxTabControl;
+    tchk: TToolButton;
+    Tnochk: TToolButton;
+    cxSplitter1: TcxSplitter;
+    ADOQuerySub: TADOQuery;
+    DataSource2: TDataSource;
+    v1Column8: TcxGridDBColumn;
+    Label2: TLabel;
+    ClientDataSet2: TClientDataSet;
+    cxGridPopupMenu2: TcxGridPopupMenu;
+    CDS_Note: TClientDataSet;
+    RM1: TRMGridReport;
+    v1Column11: TcxGridDBColumn;
+    v1Column13: TcxGridDBColumn;
+    v1Column17: TcxGridDBColumn;
+    v1Column18: TcxGridDBColumn;
+    v1Column19: TcxGridDBColumn;
+    v1Column1: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column10: TcxGridDBColumn;
+    v1Column21: TcxGridDBColumn;
+    v1Column23: TcxGridDBColumn;
+    v1Column26: TcxGridDBColumn;
+    ToolButton2: TToolButton;
+    Panel5: TPanel;
+    Label28: TLabel;
+    Button5: TButton;
+    Button6: TButton;
+    DateTimePicker1: TDateTimePicker;
+    Label11: TLabel;
+    lblFSID: TLabel;
+    v1Column27: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    tbCopy: TToolButton;
+    cxGrid2: TcxGrid;
+    TV2: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    v1PRTColor: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    TV2Column1: TcxGridDBColumn;
+    TV2Column2: TcxGridDBColumn;
+    TV2Column3: TcxGridDBColumn;
+    TV2Column4: TcxGridDBColumn;
+    Tv1Column1: TcxGridDBColumn;
+    TV2Column5: TcxGridDBColumn;
+    //RMllPDFExport1: TRMllPDFExport;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure TBEditClick(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure TBPrintClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure TBAddClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure CheckBox1Click(Sender: TObject);
+    procedure CheckBox2Click(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure CustomerNoNameChange(Sender: TObject);
+    procedure tchkClick(Sender: TObject);
+    procedure TnochkClick(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure Button6Click(Sender: TObject);
+    procedure Button5Click(Sender: TObject);
+    procedure tbCopyClick(Sender: TObject);
+  private
+    procedure InitGrid();
+    procedure InitSubGrid();
+    procedure InitForm();
+    procedure SetStatus();
+    function DelData(): Boolean;
+    { Private declarations }
+  public
+    FFInt: Integer;
+    canshu1: string;
+    { Public declarations }
+  end;
+
+//var
+  //frmContractListNX: TfrmContractListNX;
+
+implementation
+
+uses
+  U_DataLink, U_FHSQInPut, U_Fun, U_ZDYHelp;
+
+{$R *.dfm}
+
+procedure TfrmFHSQList.SetStatus();
+begin
+  tchk.Visible := False;
+  Tnochk.Visible := False;
+  if canshu1 = '审核' then
+  begin
+    case cxTabControl1.TabIndex of
+      0:
+        begin
+          tchk.Visible := true;
+
+        end;
+      1:
+        begin
+          Tnochk.Visible := true;
+        end;
+      2:
+        begin
+
+        end;
+    end;
+  end
+  else if canshu1 = '高权限' then
+  begin
+    case cxTabControl1.TabIndex of
+      0:
+        begin
+          tchk.Visible := true;
+
+        end;
+      1:
+        begin
+          Tnochk.Visible := true;
+        end;
+      2:
+        begin
+
+        end;
+    end;
+  end
+  else
+  begin
+  end;
+end;
+
+procedure TfrmFHSQList.FormDestroy(Sender: TObject);
+begin
+  //frmFHSQList:=nil;
+end;
+
+procedure TfrmFHSQList.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  Action := caFree;
+end;
+
+procedure TfrmFHSQList.FormCreate(Sender: TObject);
+begin
+  cxgrid1.Align := alClient;
+end;
+
+procedure TfrmFHSQList.TBCloseClick(Sender: TObject);
+begin
+  Close;
+  WriteCxGrid('发货主表', Tv1, '发货管理');
+  WriteCxGrid('发货子表', Tv2, '发货管理');
+end;
+
+procedure TfrmFHSQList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered := False;
+      Close;
+      sql.Clear;
+      Sql.Add(' select A.*,WFPSHS=(SQPSHZ-ISNULL(FHPSHZ,0)) ');
+      sql.Add(' from FHSQ_Main A');
+      sql.Add(' where 1=1');
+      if cxTabControl1.TabIndex <> 0 then
+      begin
+        sql.Add(' and SQDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date)) + '''');
+        sql.Add(' and SQDate<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1)) + '''');
+      end;
+      if cxTabControl1.TabIndex = 0 then
+      begin
+        SQL.Add(' and isnull(A.Chker,'''')='''' ');
+      end
+      else if cxTabControl1.TabIndex = 1 then
+      begin
+        SQL.Add(' and isnull(A.Chker,'''')<>'''' ');
+      end;
+      if Trim(canshu1) = '录入' then
+      begin
+        sql.Add(' and isnull(A.Filler,'''')=''' + Trim(DName) + '''');
+      end;
+      Open;
+    end;
+    SCreateCDS20(ADOQueryMain, Order_Main);
+    SInitCDSData20(ADOQueryMain, Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmFHSQList.InitForm();
+begin
+
+  ReadCxGrid('发货主表', Tv1, '发货管理');
+  ReadCxGrid('发货子表', Tv2, '发货管理');
+
+  EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
+  BegDate.DateTime := EndDate.DateTime - 90;
+  InitGrid();
+
+end;
+
+procedure TfrmFHSQList.TBFindClick(Sender: TObject);
+begin
+  if ADOQueryMain.Active = False then
+    Exit;
+  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+  SCreateCDS20(ADOQueryMain, Order_Main);
+  SInitCDSData20(ADOQueryMain, Order_Main);
+end;
+
+procedure TfrmFHSQList.TBEditClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+  if cxTabControl1.TabIndex <> 0 then
+    Exit;
+  if Trim(canshu1) <> '高权限' then
+  begin
+    if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
+    begin
+      Application.MessageBox('不能操作他人的数据!', '提示', 0);
+      Exit;
+    end;
+  end;
+  with ADOQueryTemp do
+  begin
+    close;
+    sql.Clear;
+    sql.Add('select * from FHSQ_Main');
+    sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
+    Open;
+  end;
+  if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
+  begin
+    Application.MessageBox('已生成应收账款不能修改数据!', '提示', 0);
+    Exit;
+  end;
+  try
+    frmFHSQInPut := TfrmFHSQInPut.Create(Application);
+    with frmFHSQInPut do
+    begin
+      PState := 1;
+      FMainId := Trim(Self.Order_Main.fieldbyname('FSID').AsString);
+      if ShowModal = 1 then
+      begin
+        InitGrid();
+      end;
+    end;
+  finally
+    frmFHSQInPut.Free;
+  end;
+end;
+
+procedure TfrmFHSQList.TBDelClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+  if cxTabControl1.TabIndex <> 0 then
+    Exit;
+  if canshu1 <> '高权限' then
+  begin
+    if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
+    begin
+      Application.MessageBox('不能操作他人的数据!', '提示', 0);
+      Exit;
+    end;
+  end;
+
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('select * from FHSQ_Sub where SSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
+    sql.add(' and isnull(FHPS,0)>0');
+    Open;
+  end;
+  if ADOQueryTemp.IsEmpty = False then
+  begin
+    Application.MessageBox('已发货不能删除数据!', '提示', 0);
+    exit;
+  end;
+  with ADOQueryTemp do
+  begin
+    close;
+    sql.Clear;
+    sql.Add('select * from FHSQ_Main');
+    sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
+    Open;
+  end;
+  if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
+  begin
+    Application.MessageBox('已生成应收账款不能删除!', '提示', 0);
+    Exit;
+  end;
+
+  if ADOQueryTemp.FieldByName('FHPSHZ').AsInteger > 0 then
+  begin
+    Application.MessageBox('已发货不能删除数据!', '提示', 0);
+    exit;
+  end;
+
+  if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
+    Exit;
+  if DelData() then
+  begin
+    Order_Main.Delete;
+    InitSubGrid();
+  end;
+end;
+
+function TfrmFHSQList.DelData(): Boolean;
+begin
+  try
+    Result := false;
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete FHSQ_Sub where FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
+      ExecSQL;
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete FHSQ_Main where FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
+      ExecSQL;
+    end;
+
+    ADOQueryCmd.Connection.CommitTrans;
+    Result := True;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Result := False;
+    Application.MessageBox('数据删除异常！', '提示', 0);
+  end;
+end;
+
+procedure TfrmFHSQList.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then
+    Exit;
+  SelExportData(Tv1, ADOQueryMain, '发货申请列表');
+end;
+
+procedure TfrmFHSQList.TBPrintClick(Sender: TObject);
+var
+  fPrintFile: string;
+  Txt, fImagePath: string;
+  Moudle: THandle;
+  Makebar: TMakebar;
+  Mixtext: TMixtext;
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+  if cxTabControl1.TabIndex <> 1 then
+    Exit;
+
+  with ADOQueryPrint do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('exec P_Print_FHSQ');
+    sql.add('@FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
+    Open;
+  end;
+
+  SCreateCDS20(ADOQueryPrint, CDS_Print);
+  SInitCDSData20(ADOQueryPrint, CDS_Print);
+  ExportFtErpFile('发货申请单.rmf', ADOQueryTemp);
+  fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\发货申请单.rmf';
+  if FileExists(fPrintFile) then
+  begin
+    try
+      Moudle := LoadLibrary('MakeQRBarcode.dll');
+      @Makebar := GetProcAddress(Moudle, 'Make');
+      @Mixtext := GetProcAddress(Moudle, 'MixText');
+      Txt := Trim(Order_Main.fieldbyname('FSID').AsString);
+      fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
+      if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
+        CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
+      if FileExists(fImagePath) then
+        DeleteFile(fImagePath);
+      Makebar(pchar(Txt), Length(Txt), 3, 3, 0, PChar(fImagePath), 3);
+    except
+      application.MessageBox('条形码生成失败！', '提示信息', MB_ICONERROR);
+      exit;
+    end;
+    RMVariables['ConNo'] := Order_Main.fieldbyname('ConNo').Value;
+    RMVariables['PrtCode'] := Order_Main.fieldbyname('PrtCode').Value;
+    RMVariables['prtmf'] := Order_Main.fieldbyname('prtmf').Value;
+    RMVariables['khconno'] := Order_Main.fieldbyname('khconno').Value;
+    RMVariables['prtkz'] := Order_Main.fieldbyname('prtkz').Value;
+    RMVariables['PrtCodeName'] := Order_Main.fieldbyname('PrtCodeName').Value;
+    RMVariables['KHName'] := Order_Main.fieldbyname('CustomerNoName').Value;
+    RMVariables['SQPSHZ'] := Order_Main.fieldbyname('SQPSHZ').Value;
+    RMVariables['ClothType'] := Order_Main.fieldbyname('ClothType').Value;
+    RMVariables['SeBie'] := Order_Main.fieldbyname('SeBie').Value;
+    RMVariables['NoteZ'] := Trim(Order_Main.fieldbyname('Note').AsString);
+    RMVariables['QRBARCODE'] := fImagePath;
+    RM1.LoadFromFile(fPrintFile);
+    RM1.ShowReport;
+  end
+  else
+  begin
+    Application.MessageBox(PChar('没有找' + ExtractFilePath(Application.ExeName) + 'Report\发货申请单.rmf'), '提示', 0);
+  end;
+end;
+
+procedure TfrmFHSQList.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+  TBFind.Click;
+  InitSubGrid();
+end;
+
+procedure TfrmFHSQList.TBAddClick(Sender: TObject);
+var
+  maxno: string;
+begin
+  try
+    frmFHSQInPut := TfrmFHSQInPut.Create(Application);
+    with frmFHSQInPut do
+    begin
+      PState := 0;
+      FMainId := '';
+      if ShowModal = 1 then
+      begin
+        InitGrid();
+      end;
+    end;
+  finally
+    frmFHSQInPut.Free;
+  end;
+end;
+
+procedure TfrmFHSQList.FormShow(Sender: TObject);
+begin
+  InitForm();
+  SetStatus();
+end;
+
+procedure TfrmFHSQList.CheckBox1Click(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmFHSQList.CheckBox2Click(Sender: TObject);
+begin
+  TBRafresh.Click;
+end;
+
+procedure TfrmFHSQList.ToolButton1Click(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then
+    Exit;
+  try
+    frmFHSQInPut := TfrmFHSQInPut.Create(Application);
+    with frmFHSQInPut do
+    begin
+      PState := 1;
+      FMainId := Trim(Self.Order_Main.fieldbyname('FSID').AsString);
+      ToolBar2.Visible := False;
+      TBSave.Visible := False;
+      ScrollBox1.Enabled := False;
+      Tv1.OptionsSelection.CellSelect := False;
+      if ShowModal = 1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmFHSQInPut.Free;
+  end;
+end;
+
+procedure TfrmFHSQList.CustomerNoNameChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active = False then
+    Exit;
+  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+  SCreateCDS20(ADOQueryMain, Order_Main);
+  SInitCDSData20(ADOQueryMain, Order_Main);
+end;
+
+procedure TfrmFHSQList.tchkClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then
+    exit;
+  if cxTabControl1.TabIndex <> 0 then
+    exit;
+  try
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('update  FHSQ_Main SET Chker=''' + Trim(DName) + ''',ChkTime=getdate(),ChkStatus=''审核通过'' ');
+      sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
+      execsql;
+    end;
+    Order_Main.Delete;
+    InitSubGrid();
+    application.MessageBox('完成成功！', '提示信息');
+  except
+    application.MessageBox('完成失败！', '提示信息', 0);
+  end;
+end;
+
+procedure TfrmFHSQList.InitSubGrid();
+begin
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    if Order_Main.IsEmpty = False then
+      sql.Add('select *,wfps=(sqps-isnull(FHPS,0)) from FHSQ_Sub A where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''')
+    else
+      sql.Add('select *,wfps=0 from FHSQ_Sub A where 1=2');
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp, ClientDataSet2);
+  SInitCDSData20(ADOQueryTemp, ClientDataSet2);
+end;
+
+procedure TfrmFHSQList.TnochkClick(Sender: TObject);
+begin
+  if Order_Main.IsEmpty then
+    exit;
+  if cxTabControl1.TabIndex <> 1 then
+    exit;
+  with ADOQueryTemp do
+  begin
+    close;
+    sql.Clear;
+    sql.Add('select * from FHSQ_Main');
+    sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
+    Open;
+  end;
+  if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
+  begin
+    Application.MessageBox('已生成应收账款不能撤销!', '提示', 0);
+    Exit;
+  end;
+  try
+
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('update  FHSQ_Main SET Chker=Null,ChkTime=Null,ChkStatus=Null ');
+      sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
+      execsql;
+    end;
+    Order_Main.Delete;
+    InitSubGrid();
+    application.MessageBox('撤销成功！', '提示信息');
+  except
+    application.MessageBox('撤销失败！', '提示信息', 0);
+  end;
+end;
+
+procedure TfrmFHSQList.cxTabControl1Change(Sender: TObject);
+begin
+  TBRafresh.Click;
+  SetStatus();
+end;
+
+procedure TfrmFHSQList.Tv1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
+begin
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    if Order_Main.IsEmpty = False then
+    begin
+      sql.Add('select A.*,wfps=ISNULL(SQPS,0)-ISNULL(FHPS,0) from FHSQ_Sub A ');
+//      sql.Add(' inner join CLoth_Sub B on A.SubId=B.SubId');
+//      sql.Add(' inner join CLoth_Main C on B.MainId=C.MainId');
+      sql.Add(' where A.FSId=''' + Trim(Order_Main.fieldbyname('FSId').AsString) + '''');
+    end
+    else
+    begin
+      sql.Add('select A.* from FHSQ_Sub A ');
+//      sql.Add(' inner join CLoth_Sub B on A.SubId=B.SubId');
+//      sql.Add(' inner join CLoth_Main C on B.MainId=C.MainId');
+      sql.Add('  where 1=2');
+    end;
+
+    Open;
+  end;
+  SCreateCDS20(ADOQueryTemp, ClientDataSet2);
+  SInitCDSData20(ADOQueryTemp, ClientDataSet2);
+end;
+
+procedure TfrmFHSQList.ToolButton2Click(Sender: TObject);
+begin
+  if Trim(canshu1) <> '高权限' then
+  begin
+    if Trim(Order_Main.fieldbyname('Filler').AsString) <> Trim(DName) then
+    begin
+      Application.MessageBox('不能操作他人的数据!', '提示', 0);
+      Exit;
+    end;
+  end;
+  with ADOQueryTemp do
+  begin
+    close;
+    sql.Clear;
+    sql.Add('select * from FHSQ_Main');
+    sql.Add('where FSID=' + quotedstr(trim(Order_Main.fieldbyname('FSID').AsString)));
+    Open;
+  end;
+  if Trim(ADOQueryTemp.fieldbyname('YSID').AsString) <> '' then
+  begin
+    Application.MessageBox('已生成应收账款不能修改数据!', '提示', 0);
+    Exit;
+  end;
+  lblFSID.Caption := Order_Main.fieldbyname('FSID').AsString;
+  DateTimePicker1.DateTime := SGetServerDate10(ADOQueryTemp);
+  Panel5.Left := (self.Width - Panel5.Width) div 2;
+  Panel5.Visible := true;
+end;
+
+procedure TfrmFHSQList.Button6Click(Sender: TObject);
+begin
+  Panel5.Visible := false;
+end;
+
+procedure TfrmFHSQList.Button5Click(Sender: TObject);
+begin
+  try
+    with ADOQueryCmd do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('update  FHSQ_Main SET fhDate=' + QuotedStr(Trim(FormatDateTime('yyyy-MM-dd', DateTimePicker1.Date))));
+      sql.Add('where FSID=' + quotedstr(trim(lblFSID.Caption)));
+      execsql;
+    end;
+    InitGrid();
+    Order_Main.Locate('FSID', lblFSID.Caption, []);
+    Panel5.Visible := false;
+    application.MessageBox('修改成功！', '提示信息');
+  except
+    application.MessageBox('修改失败！', '提示信息', 0);
+  end;
+end;
+
+procedure TfrmFHSQList.tbCopyClick(Sender: TObject);
+begin
+  try
+    frmFHSQInPut := TfrmFHSQInPut.Create(Application);
+    with frmFHSQInPut do
+    begin
+      PState := 1;
+      CopyInt := 99;
+      FMainId := Trim(Self.Order_Main.fieldbyname('FSID').AsString);
+      if ShowModal = 1 then
+      begin
+        InitGrid();
+      end;
+    end;
+  finally
+    frmFHSQInPut.Free;
+  end;
+end;
+
+end.
+
--- a/Show More
+++ b/Show More