1

public10/ThreeFun/Form/U_ZDYHelpSel.dfm

@@ -23,9 +23,16 @@ object frmZDYHelpSel: TfrmZDYHelpSel
     Top = 88
     Width = 481
     Height = 377
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #24494#36719#38597#40657
+    Font.Style = []
+    ParentFont = False
     TabOrder = 0
     object TV1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       OnCellDblClick = TV1CellDblClick
       DataController.DataSource = DataSource1
       DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
@@ -40,6 +47,7 @@ object frmZDYHelpSel: TfrmZDYHelpSel
       object V1Code: TcxGridDBColumn
         Caption = #32534#21495
         DataBinding.FieldName = 'ZDYNo'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         Width = 97
@@ -47,6 +55,7 @@ object frmZDYHelpSel: TfrmZDYHelpSel
       object V1Column1: TcxGridDBColumn
         Caption = #36873#25321
         DataBinding.FieldName = 'SSel'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxCheckBoxProperties'
         Properties.ImmediatePost = True
         Properties.NullStyle = nssUnchecked
@@ -57,6 +66,7 @@ object frmZDYHelpSel: TfrmZDYHelpSel
         Tag = 2
         Caption = #21517#31216
         DataBinding.FieldName = 'ZDYName'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.OnEditValueChanged = V1NamePropertiesEditValueChanged
         HeaderAlignmentHorz = taCenter
@@ -65,6 +75,7 @@ object frmZDYHelpSel: TfrmZDYHelpSel
       object V1Note: TcxGridDBColumn
         Caption = #22791#27880
         DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         Properties.OnEditValueChanged = V1NotePropertiesEditValueChanged
         Visible = False
@@ -74,6 +85,7 @@ object frmZDYHelpSel: TfrmZDYHelpSel
       object V1OrderNo: TcxGridDBColumn
         Caption = #39034#24207#21495
         DataBinding.FieldName = 'OrderNo'
+        DataBinding.IsNullValueType = True
         Visible = False
         HeaderAlignmentHorz = taCenter
         Width = 53
@@ -87,18 +99,18 @@ object frmZDYHelpSel: TfrmZDYHelpSel
     Left = 0
     Top = 0
     Width = 512
-    Height = 38
+    Height = 30
     AutoSize = True
-    ButtonHeight = 38
+    ButtonHeight = 30
-    ButtonWidth = 75
+    ButtonWidth = 59
     Caption = 'ToolBar1'
     Color = clWhite
     Font.Charset = GB2312_CHARSET
     Font.Color = clWindowText
-    Font.Height = -12
+    Font.Height = -16
-    Font.Name = #23435#20307
+    Font.Name = #24494#36719#38597#40657
     Font.Style = []
-    Images = ImageList_new32
+    Images = DataLink_TradeMarket.cxImageList_bar
     List = True
     ParentColor = False
     ParentFont = False
@@ -112,28 +124,28 @@ object frmZDYHelpSel: TfrmZDYHelpSel
       OnClick = ToolButton1Click
     end
     object TBAdd: TToolButton
-      Left = 75
+      Left = 59
       Top = 0
       Caption = #22686#34892
       ImageIndex = 2
       OnClick = TBAddClick
     end
     object TBDel: TToolButton
-      Left = 150
+      Left = 118
       Top = 0
       Caption = #21024#34892
       ImageIndex = 6
       OnClick = TBDelClick
     end
     object TBEdit: TToolButton
-      Left = 225
+      Left = 177
       Top = 0
       Caption = #20462#25913
       ImageIndex = 3
       OnClick = TBEditClick
     end
     object TBSave: TToolButton
-      Left = 300
+      Left = 236
       Top = 0
       Caption = #20445#23384
       ImageIndex = 16
@@ -141,7 +153,7 @@ object frmZDYHelpSel: TfrmZDYHelpSel
       OnClick = TBSaveClick
     end
     object TBClose: TToolButton
-      Left = 375
+      Left = 295
       Top = 0
       Caption = #20851#38381
       ImageIndex = 7
@@ -150,20 +162,27 @@ object frmZDYHelpSel: TfrmZDYHelpSel
   end
   object Panel1: TPanel
     Left = 0
-    Top = 38
+    Top = 30
     Width = 512
     Height = 44
     Align = alTop
     BevelInner = bvRaised
     BevelOuter = bvLowered
     Color = clWhite
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #24494#36719#38597#40657
+    Font.Style = []
     ParentBackground = False
+    ParentFont = False
     TabOrder = 2
+    ExplicitTop = 38
     object Label1: TLabel
-      Left = 19
+      Left = 21
-      Top = 17
+      Top = 11
-      Width = 24
+      Width = 32
-      Height = 12
+      Height = 21
       Caption = #21517#31216
     end
     object Label2: TLabel
@@ -181,14 +200,12 @@ object frmZDYHelpSel: TfrmZDYHelpSel
       ParentColor = False
       ParentFont = False
     end
-    object ZDYName: TEdit
+    object ZDYName: TcxTextEdit
       Tag = 2
-      Left = 54
+      Left = 56
-      Top = 12
+      Top = 6
-      Width = 169
-      Height = 20
       TabOrder = 0
-      OnChange = ZDYNameChange
+      Width = 169
     end
   end
   object ADOQueryMain: TADOQuery

public10/ThreeFun/Form/U_ZDYHelpSel.pas

@@ -10,7 +10,8 @@ uses
   cxGridCustomView, cxGrid, DBClient, ADODB, ImgList, StdCtrls, ExtCtrls,
   cxCheckBox, cxTextEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
   dxSkinsDefaultPainters, cxNavigator, dxDateRanges, System.ImageList,
-  System.Types, dxBarBuiltInMenu, cxGridCustomPopupMenu, cxGridPopupMenu;
+  System.Types, dxBarBuiltInMenu, cxGridCustomPopupMenu, cxGridPopupMenu,
+  dxSkinWXI, dxScrollbarAnnotations, cxContainer;
 
 type
   TfrmZDYHelpSel = class(TForm)
@@ -36,7 +37,7 @@ type
     ADOConnection1: TADOConnection;
     Panel1: TPanel;
     Label1: TLabel;
-    ZDYName: TEdit;
+    ZDYName: TcxTextEdit;
     ThreeImgList: TImageList;
     V1Column1: TcxGridDBColumn;
     Label2: TLabel;

public10/design/U_BaseDataLink.pas

@@ -8,7 +8,23 @@ uses
   cxLookAndFeels, dxSkinsForm, cxContainer, cxEdit,
   System.ImageList, Vcl.ImgList, Vcl.Controls, cxImageList, cxGraphics, cxStyles,
   dxSkinBasic, dxSkinWXI,  dxLayoutLookAndFeels,
-  cxLocalization, dxSkinHighContrast;
+  cxLocalization, dxSkinHighContrast, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
+  dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
+  dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
+  dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky,
+  dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark,
+  dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
+  dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
+  dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2010Silver,
+  dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray, dxSkinOffice2013White,
+  dxSkinOffice2016Colorful, dxSkinOffice2016Dark, dxSkinOffice2019Black,
+  dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray, dxSkinOffice2019White,
+  dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
+  dxSkinSilver, dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008,
+  dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
+  dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
+  dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint,
+  dxSkinXmas2008Blue;
 
 type
   TBaseDataLink = class(TDataModule)

项目代码/RTBasicsV1/F01染色坯布仓库/ProjectGroup1.groupproj.local

@@ -2,6 +2,6 @@
 <BorlandProject>
 	<Transactions/>
 	<Default.Personality>
-		<Projects ActiveProject="D:\Dp10Repo\项目代码\RTBasics\F01染色坯布仓库\DyeGreyClothStk.dproj"/>
+		<Projects ActiveProject="D:\RTFormwork\项目代码\RTBasicsV1\F01染色坯布仓库\DyeGreyClothStk.dproj"/>
 	</Default.Personality>
 </BorlandProject>

项目代码/RTBasicsV1/T01贸易生产计划/TradePlan.dproj.local

@@ -8,8 +8,8 @@
     <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.937,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorInPut.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.537,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanCard.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.329,=D:\Dp10Repo\项目代码\RTBasics\G01贸易生产计划\U_TradeInspSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.764,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInStk.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInPut.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.505,D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradeLabelSel.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradeInspSet.pas</Transaction>
@@ -37,42 +37,42 @@
     <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.753,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradeCardInPut.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.053,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanList.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.895,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.334,D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule1.pas=D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.365,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_PictureUpload.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.555,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.053,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanList.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.053,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.334,D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule1.dfm=D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.396,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.713,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.134,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.747,=D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.396,=D:\Dp10RepoV1\项目代码\花蝴蝶\A00通用组件\FrameDateSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.442,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\PdfPrint.dll=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.103,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\PdfPrint.dll</Transaction>
     <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.629,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanColorList.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofList.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.442,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\PdfPrint.dll=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.103,=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\PdfPrint.dll</Transaction>
     <Transaction>1899-12-30 00:00:00.000.780,=D:\Dp10RepoV1\项目代码\花蝴蝶\T01贸易生产计划\U_TradePlanList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.081,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.pas=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanInPut.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.686,=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.082,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanInPut.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.560,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.370,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.956,D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanList.dfm=D:\Dp10Repo\项目代码\RTBasics\T01贸易生产计划\U_TradePlanMulFtyList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.082,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanProofInPut.dfm=D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_TradePlanInPut.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.686,=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.424,=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleString.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.440,D:\Dp10RepoV1\项目代码\须上\T01贸易生产计划\U_InputBoxCard.dfm=D:\Dp10RepoV1\项目代码\须上\A00通用窗体\U_InputBoxSingleNumber.dfm</Transaction>
-    <Transaction>2024-07-23 21:02:39.334,D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule1.pas=D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule.pas</Transaction>
-    <Transaction>2024-07-23 21:02:39.334,D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule1.dfm=D:\RTFormwork\项目代码\RTBasicsV1\T01贸易生产计划\U_TradePlanSchedule.dfm</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="android-support-v4.dex.jar"/>

项目代码/RTBasicsV1/T02贸易汇总仓库/TradeTotalClothStk.dproj.local

@@ -1,109 +1,109 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
+    <Transaction>1899-12-30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.247,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.591,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.659,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.591,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.336,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeClothOutInspList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.327,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.795,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.713,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothOutEdit.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.110,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.722,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.336,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeClothOutInspList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.dfm=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.327,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.pas=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.266,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.033,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutEdit.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.389,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFinishClothStkList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.929,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.282,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothOutList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.018,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutEdit.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.266,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.472,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.295,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.801,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.585,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInEdit.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.465,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInEdit.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.350,=D:\Dp10RepoV1\项目代码\永亮\T02贸易汇总仓库\U_TradeGreyClothInList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.893,D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\TradeTotalClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\G02贸易汇总仓库\InformationBase.dproj</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.473,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutEdit.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.908,D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_PictureList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.892,=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.129,=D:\Dp10Repo\项目代码\路尚\T00贸易通用窗体\U_PurchaseContractSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.465,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.323,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.780,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInEdit.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.621,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothStkList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.908,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.224,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.558,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutEdit.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.029,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.478,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.621,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothStkList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothOutList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.202,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.892,=D:\Dp10Repo\项目代码\雅尚\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.839,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothScheduleList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.215,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.473,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.010,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.307,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.110,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.736,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInEdit.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.656,=D:\RTFormwork\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeTotallClothStkSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.210,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.549,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.435,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeGreyClothInEdit.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.252,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.656,=D:\RTFormwork\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.038,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothInList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.881,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradePlanClothEnterInput.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.736,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInEdit.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.252,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.472,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.307,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.889,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeTotallClothStkSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.323,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.780,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothInEdit.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.908,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeGreyClothOutList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.224,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothStkList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.890,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalOutList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothOutList.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.545,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.226,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.210,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.dfm</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="android-support-v4.dex.jar"/>

项目代码/RTBasicsV1/T02贸易汇总仓库/U_TradeReturnClothInEdit.dfm

@@ -18,13 +18,20 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
   object cxGrid2: TcxGrid [0]
     Tag = 2
     Left = 0
-    Top = 132
+    Top = 116
     Width = 992
-    Height = 432
+    Height = 448
     Align = alClient
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #24494#36719#38597#40657
+    Font.Style = []
+    ParentFont = False
     TabOrder = 0
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       OnFocusedRecordChanged = Tv1FocusedRecordChanged
       DataController.DataSource = DataSource3
       DataController.Summary.DefaultGroupSummaryItems = <>
@@ -51,23 +58,18 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
       OptionsView.Footer = True
       OptionsView.GroupByBox = False
       OptionsView.Indicator = True
-      Styles.IncSearch = DataLink_TradeTotalClothStk.SHuangSe
-      Styles.Header = DataLink_TradeTotalClothStk.Default
-      Styles.Inactive = DataLink_TradeTotalClothStk.SHuangSe
-      Styles.Selection = DataLink_TradeTotalClothStk.SHuangSe
       object v1Column6: TcxGridDBColumn
         Caption = #20837#24211#21333#21495
         DataBinding.FieldName = 'BCIOID'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
         Width = 83
       end
       object Tv1Column8: TcxGridDBColumn
         Caption = #32534#21495
         DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -76,13 +78,11 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
           end>
         Properties.OnButtonClick = ButtonEdit
         HeaderAlignmentHorz = taCenter
-        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
       end
       object v1SPName: TcxGridDBColumn
         Caption = #21697#21517
         DataBinding.FieldName = 'C_Name'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -91,14 +91,12 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
           end>
         Properties.OnButtonClick = v2Column1PropertiesButtonClick
         HeaderAlignmentHorz = taCenter
-        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
         Width = 101
       end
       object v1SPSpec: TcxGridDBColumn
         Caption = #35268#26684
         DataBinding.FieldName = 'C_Spec'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -108,61 +106,49 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
         Properties.OnButtonClick = v1Column8PropertiesButtonClick
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
-        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
         Width = 112
       end
       object v1SPMF: TcxGridDBColumn
         Caption = #38376#24133
         DataBinding.FieldName = 'C_Width'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
         Width = 75
       end
       object v1Column8: TcxGridDBColumn
         Caption = #20811#37325
         DataBinding.FieldName = 'C_GramWeight'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
         Width = 73
       end
       object Tv1Column7: TcxGridDBColumn
         Caption = #26579#21378#32568#21495
         DataBinding.FieldName = 'FtyPCId'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
         Width = 81
       end
       object v1Column9: TcxGridDBColumn
         Caption = #21305#25968
         DataBinding.FieldName = 'Piece'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         HeaderAlignmentHorz = taCenter
-        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
         Width = 68
       end
       object v2Column6: TcxGridDBColumn
         Caption = #38271#24230
         DataBinding.FieldName = 'Qty'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxTextEditProperties'
         HeaderAlignmentHorz = taCenter
-        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
         Width = 92
       end
       object v1QtyUnit: TcxGridDBColumn
         Caption = #21333#20301
         DataBinding.FieldName = 'QtyUnit'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxComboBoxProperties'
         Properties.DropDownListStyle = lsEditFixedList
         Properties.Items.Strings = (
@@ -170,23 +156,19 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
           'Y'
           'Kg')
         HeaderAlignmentHorz = taCenter
-        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
         Width = 64
       end
       object Tv1Column1: TcxGridDBColumn
         Caption = #37325#37327
         DataBinding.FieldName = 'KGQty'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
         Width = 80
       end
       object v1Column5: TcxGridDBColumn
         Caption = #24211#20301
         DataBinding.FieldName = 'StkPosition'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxButtonEditProperties'
         Properties.Buttons = <
           item
@@ -196,86 +178,67 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
         Properties.ReadOnly = False
         Properties.OnButtonClick = v1Column5PropertiesButtonClick
         HeaderAlignmentHorz = taCenter
-        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
         Width = 79
       end
       object v1Column7: TcxGridDBColumn
         Caption = #36710#38388
         DataBinding.FieldName = 'Workshop'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxComboBoxProperties'
         Properties.DropDownListStyle = lsFixedList
         Properties.Items.Strings = (
           #19968#36710#38388
           #20108#36710#38388)
         HeaderAlignmentHorz = taCenter
-        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
         Width = 70
       end
       object Tv1Column2: TcxGridDBColumn
         Caption = #39068#33394
         DataBinding.FieldName = 'C_Color'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
         Width = 68
       end
       object Tv1Column6: TcxGridDBColumn
         Caption = #33394#21495
         DataBinding.FieldName = 'C_ColorNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
         Width = 67
       end
       object Tv1Column9: TcxGridDBColumn
         Caption = #27454#21495
         DataBinding.FieldName = 'C_StyleNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
         Width = 66
       end
       object Tv1Column10: TcxGridDBColumn
         Caption = #25104#20998
         DataBinding.FieldName = 'C_Composition'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
         Width = 66
       end
       object Tv1Column13: TcxGridDBColumn
         Caption = #26412#21378#32568#21495
         DataBinding.FieldName = 'BatchNo'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
         Width = 68
       end
       object Tv1Column11: TcxGridDBColumn
         Caption = #33457#22411
         DataBinding.FieldName = 'C_Pattern'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
         Width = 66
       end
       object v1Column12: TcxGridDBColumn
         Caption = #22791#27880
         DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
-        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
         Width = 66
       end
     end
@@ -288,18 +251,18 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
     Left = 0
     Top = 0
     Width = 1465
-    Height = 38
+    Height = 30
     AutoSize = True
-    ButtonHeight = 38
+    ButtonHeight = 30
-    ButtonWidth = 91
+    ButtonWidth = 99
     Caption = 'ToolBar1'
     Color = clSkyBlue
     Font.Charset = GB2312_CHARSET
     Font.Color = clWindowText
-    Font.Height = -12
+    Font.Height = -16
-    Font.Name = #23435#20307
+    Font.Name = #24494#36719#38597#40657
     Font.Style = []
-    Images = DataLink_TradeTotalClothStk.ImageList_new32
+    Images = DataLink_TradeTotalClothStk.cxImageList_bar
     List = True
     ParentColor = False
     ParentFont = False
@@ -322,7 +285,7 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
       OnClick = ToolButton1Click
     end
     object TBClose: TToolButton
-      Left = 166
+      Left = 174
       Top = 0
       AutoSize = True
       Caption = #20851#38381
@@ -330,7 +293,7 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
       OnClick = TBCloseClick
     end
     object ToolButton2: TToolButton
-      Left = 237
+      Left = 245
       Top = 0
       AutoSize = True
       Caption = #25209#37327#25171#21360
@@ -341,23 +304,30 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
   end
   object GroupBox1: TGroupBox [2]
     Left = 992
-    Top = 132
+    Top = 116
     Width = 473
-    Height = 432
+    Height = 448
     Align = alRight
     Caption = #22238#20179#26126#32454#20449#24687'('#21452#20987#21024#38500#26126#32454#20449#24687')'
     TabOrder = 2
     object cxGrid1: TcxGrid
       Left = 2
-      Top = 52
+      Top = 44
       Width = 469
-      Height = 378
+      Height = 402
       Align = alClient
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #24494#36719#38597#40657
+      Font.Style = []
+      ParentFont = False
       PopupMenu = PopupMenu1
       TabOrder = 0
       object Tv2: TcxGridDBTableView
         OnMouseDown = Tv2MouseDown
         Navigator.Buttons.CustomButtons = <>
+        ScrollbarAnnotations.CustomAnnotations = <>
         OnCellDblClick = Tv2CellDblClick
         OnCustomDrawCell = Tv2CustomDrawCell
         DataController.DataSource = DSMX
@@ -393,86 +363,68 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
         OptionsView.GroupByBox = False
         OptionsView.Indicator = True
         OptionsView.IndicatorWidth = 40
-        Styles.Content = DataLink_TradeTotalClothStk.Default
-        Styles.Header = DataLink_TradeTotalClothStk.Default
         object Tv2Column4: TcxGridDBColumn
           Caption = #36873#25321
           DataBinding.FieldName = 'Ssel'
+          DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
-          Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-          Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-          Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
           Width = 41
         end
         object v2Column5: TcxGridDBColumn
           Caption = #21367#21495
           DataBinding.FieldName = 'Pieceno'
+          DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
-          Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-          Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-          Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
           Width = 43
         end
         object v2Column3: TcxGridDBColumn
           Caption = #21367#26465#30721
           DataBinding.FieldName = 'CIID'
+          DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
-          Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-          Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-          Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
           Width = 80
         end
         object v2Column4: TcxGridDBColumn
           Caption = #38271#24230
           DataBinding.FieldName = 'InputLen'
+          DataBinding.IsNullValueType = True
           PropertiesClassName = 'TcxTextEditProperties'
           Properties.OnEditValueChanged = v2Column4PropertiesEditValueChanged
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
-          Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-          Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-          Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
           Width = 67
         end
         object Tv2Column2: TcxGridDBColumn
           Caption = #38271#24230#21333#20301
           DataBinding.FieldName = 'LenUnit'
+          DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
-          Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-          Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-          Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
           Width = 70
         end
         object Tv2Column1: TcxGridDBColumn
           Caption = #20928#37325
           DataBinding.FieldName = 'NetWeight'
+          DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
-          Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-          Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-          Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
           Width = 80
         end
         object Tv2Column3: TcxGridDBColumn
           Caption = #30382#37325
           DataBinding.FieldName = 'Tare'
+          DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
-          Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-          Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-          Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
           Width = 65
         end
         object Tv2Column5: TcxGridDBColumn
           Caption = #25171#21360#27425#25968
           DataBinding.FieldName = 'PrtCount'
+          DataBinding.IsNullValueType = True
           HeaderAlignmentHorz = taCenter
-          Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
-          Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
-          Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
           Width = 60
         end
       end
@@ -485,18 +437,18 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
       Left = 2
       Top = 14
       Width = 469
-      Height = 38
+      Height = 30
       AutoSize = True
-      ButtonHeight = 38
+      ButtonHeight = 30
-      ButtonWidth = 75
+      ButtonWidth = 67
       Caption = 'ToolBar1'
       Color = clSkyBlue
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
-      Font.Height = -12
+      Font.Height = -16
-      Font.Name = #23435#20307
+      Font.Name = #24494#36719#38597#40657
       Font.Style = []
-      Images = DataLink_TradeTotalClothStk.ImageList_new32
+      Images = DataLink_TradeTotalClothStk.cxImageList_bar
       List = True
       ParentColor = False
       ParentFont = False
@@ -514,86 +466,54 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
   end
   object Panel1: TPanel [3]
     Left = 0
-    Top = 38
+    Top = 30
     Width = 1465
     Height = 56
     Align = alTop
     BevelInner = bvRaised
     BevelOuter = bvLowered
     Color = clSkyBlue
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #24494#36719#38597#40657
+    Font.Style = []
+    ParentFont = False
     TabOrder = 3
     object Label1: TLabel
-      Left = 36
+      Left = 26
-      Top = 20
+      Top = 17
-      Width = 48
+      Width = 64
-      Height = 12
+      Height = 21
       Caption = #20837#24211#26085#26399
     end
     object Label8: TLabel
       Left = 116
       Top = 120
-      Width = 48
+      Width = 64
-      Height = 12
+      Height = 21
       Caption = #20837#24211#21333#21495
     end
     object Label2: TLabel
-      Left = 232
+      Left = 231
-      Top = 20
+      Top = 17
-      Width = 48
+      Width = 64
-      Height = 12
+      Height = 21
       Caption = #20837#24211#31867#22411
     end
     object Label4: TLabel
-      Left = 440
+      Left = 436
-      Top = 20
+      Top = 17
-      Width = 48
+      Width = 64
-      Height = 12
+      Height = 21
       Caption = #26469#33258#21333#20301
     end
-    object IOTime: TDateTimePicker
+    object InoutNo: TcxTextEdit
-      Left = 90
-      Top = 17
-      Width = 100
-      Height = 20
-      Date = 41509.000000000000000000
-      Format = 'yyyy-MM-dd'
-      Time = 0.970132187503622800
-      TabOrder = 0
-    end
-    object InoutNo: TEdit
       Left = 164
       Top = 116
+      ParentFont = False
+      TabOrder = 0
       Width = 100
-      Height = 20
-      TabOrder = 1
-    end
-    object IOType: TComboBox
-      Left = 284
-      Top = 16
-      Width = 117
-      Height = 20
-      Style = csDropDownList
-      ItemIndex = 0
-      TabOrder = 2
-      Text = #21152#24037#23436#25104
-      Items.Strings = (
-        #21152#24037#23436#25104
-        #22238#20462#23436#25104
-        #26816#39564#36864#22238
-        #26399#21021#20837#24211
-        #25104#21697#37319#36141
-        #21152#24037#36180#27454
-        #26579#21378#26399#21021#20837#24211
-        #23458#25143#36864#36135
-        #26679#21697#35843#25320#20837#24211)
-    end
-    object FromCoName: TBtnEditA
-      Left = 494
-      Top = 16
-      Width = 213
-      Height = 20
-      TabOrder = 3
-      OnBtnClick = FromCoNameBtnClick
     end
     object Panel3: TPanel
       Left = 883
@@ -603,73 +523,49 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
       Align = alRight
       BevelOuter = bvNone
       Color = clSkyBlue
-      TabOrder = 4
+      TabOrder = 1
+      ExplicitLeft = 885
+      ExplicitTop = -2
       object Label3: TLabel
         Left = 297
         Top = 16
-        Width = 44
+        Width = 32
         Height = 21
         Caption = #25968#37327
-        Font.Charset = GB2312_CHARSET
-        Font.Color = clRed
-        Font.Height = -21
-        Font.Name = #23435#20307
-        Font.Style = [fsBold]
-        ParentFont = False
       end
       object Label5: TLabel
-        Left = 466
+        Left = 470
-        Top = 21
+        Top = 16
-        Width = 24
+        Width = 32
-        Height = 12
+        Height = 21
         Caption = #30382#37325
       end
       object Label6: TLabel
         Left = 32
-        Top = 21
+        Top = 16
-        Width = 24
+        Width = 32
-        Height = 12
+        Height = 21
         Caption = #21367#25968
       end
-      object QtyMX: TEdit
+      object QtyMX: TcxTextEdit
-        Left = 347
+        Left = 339
-        Top = 15
+        Top = 10
-        Width = 65
-        Height = 22
-        Font.Charset = GB2312_CHARSET
-        Font.Color = clRed
-        Font.Height = -14
-        Font.Name = #23435#20307
-        Font.Style = [fsBold]
-        ParentFont = False
         TabOrder = 0
         OnKeyPress = QtyMXKeyPress
-      end
-      object QtyFJ: TEdit
-        Left = 494
-        Top = 15
         Width = 65
-        Height = 22
+      end
-        Font.Charset = GB2312_CHARSET
+      object QtyFJ: TcxTextEdit
-        Font.Color = clRed
+        Left = 512
-        Font.Height = -14
+        Top = 10
-        Font.Name = #23435#20307
-        Font.Style = [fsBold]
-        ParentFont = False
         TabOrder = 1
+        Width = 65
       end
       object LenUnit: TComboBox
         Left = 414
-        Top = 15
+        Top = 12
         Width = 46
-        Height = 23
+        Height = 29
-        Font.Charset = GB2312_CHARSET
-        Font.Color = clWindowText
-        Font.Height = -15
-        Font.Name = #23435#20307
-        Font.Style = []
         ItemIndex = 0
-        ParentFont = False
         TabOrder = 2
         Text = 'M'
         Items.Strings = (
@@ -677,68 +573,84 @@ inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
           'Y'
           'KG')
       end
-      object edtMJXH: TEdit
+      object edtMJXH: TcxTextEdit
-        Left = 210
+        Left = 222
-        Top = 15
+        Top = 10
-        Width = 65
-        Height = 22
-        Font.Charset = GB2312_CHARSET
-        Font.Color = clRed
-        Font.Height = -14
-        Font.Name = #23435#20307
-        Font.Style = [fsBold]
-        ParentFont = False
         TabOrder = 3
+        Width = 65
       end
       object chkMJJH: TCheckBox
-        Left = 141
+        Left = 149
         Top = 11
         Width = 63
         Height = 32
         Caption = #21367#21495
         Color = clWindow
-        Font.Charset = GB2312_CHARSET
-        Font.Color = clRed
-        Font.Height = -21
-        Font.Name = #23435#20307
-        Font.Style = [fsBold]
         ParentColor = False
-        ParentFont = False
         TabOrder = 4
         OnClick = chkMJJHClick
       end
-      object CountMX: TEdit
+      object CountMX: TcxTextEdit
-        Left = 62
+        Left = 74
-        Top = 15
+        Top = 10
-        Width = 65
-        Height = 22
-        Font.Charset = GB2312_CHARSET
-        Font.Color = clRed
-        Font.Height = -14
-        Font.Name = #23435#20307
-        Font.Style = [fsBold]
-        ParentFont = False
         TabOrder = 5
+        Width = 65
       end
     end
+    object IOTime: TcxDateEdit
+      Left = 100
+      Top = 11
+      TabOrder = 2
+      Width = 121
+    end
+    object IOType: TcxComboBox
+      Left = 305
+      Top = 11
+      Properties.Items.Strings = (
+        #21152#24037#23436#25104
+        #22238#20462#23436#25104
+        #26816#39564#36864#22238
+        #26399#21021#20837#24211
+        #25104#21697#37319#36141
+        #21152#24037#36180#27454
+        #26579#21378#26399#21021#20837#24211
+        #23458#25143#36864#36135
+        #26679#21697#35843#25320#20837#24211)
+      TabOrder = 3
+      Text = #21152#24037#23436#25104
+      Width = 121
+    end
+    object FromCoName: TcxButtonEdit
+      Left = 510
+      Top = 11
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = FromCoNamePropertiesButtonClick
+      TabOrder = 4
+      OnDblClick = FromCoNameDblClick
+      Width = 213
+    end
   end
   object ToolBar2: TToolBar [4]
     Tag = 1
     Left = 0
-    Top = 94
+    Top = 86
     Width = 1465
-    Height = 38
+    Height = 30
     AutoSize = True
-    ButtonHeight = 38
+    ButtonHeight = 30
-    ButtonWidth = 75
+    ButtonWidth = 67
     Caption = 'ToolBar1'
     Color = clSkyBlue
     Font.Charset = GB2312_CHARSET
     Font.Color = clWindowText
-    Font.Height = -12
+    Font.Height = -16
-    Font.Name = #23435#20307
+    Font.Name = #24494#36719#38597#40657
     Font.Style = []
-    Images = DataLink_TradeTotalClothStk.ImageList_new32
+    Images = DataLink_TradeTotalClothStk.cxImageList_bar
     List = True
     ParentColor = False
     ParentFont = False

项目代码/RTBasicsV1/T02贸易汇总仓库/U_TradeReturnClothInEdit.pas

@@ -12,7 +12,24 @@ uses
   cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxSkinsCore,
   dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, U_BaseInput,
   System.ImageList, Vcl.ImgList, BtnEdit, Vcl.Menus, RM_Common, RM_Class,
-  RM_GridReport, RM_Dataset;
+  RM_GridReport, RM_Dataset, dxSkinBasic, dxSkinBlack, dxSkinBlue,
+  dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide,
+  dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
+  dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
+  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
+  dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
+  dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
+  dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
+  dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
+  dxSkinOffice2013White, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
+  dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
+  dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
+  dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
+  dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
+  dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
+  dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
+  dxSkinXmas2008Blue, dxScrollbarAnnotations, cxContainer, dxCore, cxDateUtils,
+  cxMaskEdit;
 
 type
   TfrmTradeReturnClothInEdit = class(TfrmBaseInput)
@@ -60,15 +77,12 @@ type
     Label8: TLabel;
     Label2: TLabel;
     Label4: TLabel;
-    IOTime: TDateTimePicker;
+    InoutNo: TcxTextEdit;
-    InoutNo: TEdit;
-    IOType: TComboBox;
-    FromCoName: TBtnEditA;
     Panel3: TPanel;
     Label3: TLabel;
     Label5: TLabel;
-    QtyMX: TEdit;
+    QtyMX: TcxTextEdit;
-    QtyFJ: TEdit;
+    QtyFJ: TcxTextEdit;
     ToolBar2: TToolBar;
     TBAdd: TToolButton;
     TBDel: TToolButton;
@@ -80,13 +94,13 @@ type
     LenUnit: TComboBox;
     Tv1Column1: TcxGridDBColumn;
     Tv2Column3: TcxGridDBColumn;
-    edtMJXH: TEdit;
+    edtMJXH: TcxTextEdit;
     chkMJJH: TCheckBox;
     ToolButton2: TToolButton;
     ToolBar3: TToolBar;
     ToolButton6: TToolButton;
     Label6: TLabel;
-    CountMX: TEdit;
+    CountMX: TcxTextEdit;
     Tv2Column4: TcxGridDBColumn;
     PopupMenu1: TPopupMenu;
     N1: TMenuItem;
@@ -95,6 +109,9 @@ type
     RMDB_1: TRMDBDataSet;
     RM1: TRMGridReport;
     Tv2Column5: TcxGridDBColumn;
+    IOTime: TcxDateEdit;
+    IOType: TcxComboBox;
+    FromCoName: TcxButtonEdit;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure TBAddClick(Sender: TObject);
     procedure TBCloseClick(Sender: TObject);
@@ -120,17 +137,20 @@ type
     procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
     procedure ToolButton2Click(Sender: TObject);
     procedure ToolButton6Click(Sender: TObject);
-    procedure FromCoNameBtnClick(Sender: TObject);
+    procedure FromCoName1BtnClick(Sender: TObject);
     procedure N1Click(Sender: TObject);
     procedure N2Click(Sender: TObject);
     procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
     procedure Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+    procedure FromCoNamePropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure FromCoNameClick(Sender: TObject);
+    procedure FromCoNameDblClick(Sender: TObject);
   private
     { Private declarations }
     Printsavefalg: Integer;
     function SaveCKData(): Boolean;
     procedure initMJID();
-
   public
     { Public declarations }
     FBCId, canshu3, FSTKName, FKHName: string;
@@ -195,7 +215,7 @@ end;
 procedure TfrmTradeReturnClothInEdit.FormCreate(Sender: TObject);
 begin
   inherited;
-  IOTime.DateTime := now();
+  IOTime.Date := now();
 end;
 
 procedure TfrmTradeReturnClothInEdit.TBAddClick(Sender: TObject);
@@ -276,11 +296,11 @@ begin
           end;
           RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_Sub, 'BS_Cloth_IO', 0);
 
-          FieldByName('IOTime').Value := IOTime.DateTime;
+          FieldByName('IOTime').Value := IOTime.Date;
           FieldByName('IOType').Value := IOType.Text;
           FieldByName('FromCoName').Value := FromCoName.Text;
 
-          FieldByName('FromCoNo').Value := FromCoName.TxtCode;
+          FieldByName('FromCoNo').Value := FromCoName.Properties.LookupItems.Text;
           FieldByName('StkCoNo').Value := CDS_Sub.fieldbyname('StkCoNo').Value;
 
           FieldByName('FromMainId').Value := CDS_Sub.fieldbyname('FromMainId').Value;
@@ -421,9 +441,9 @@ begin
   if not CDS_Sub.IsEmpty then
   begin
     IOTime.Date := CDS_Sub.fieldbyname('IOTime').AsDateTime;
-    IOType.ItemIndex := IOType.Items.IndexOf(trim(CDS_Sub.fieldbyname('IOType').AsString));
+    IOType.ItemIndex := IOType.properties.Items.IndexOf(trim(CDS_Sub.fieldbyname('IOType').AsString));
     FromCoName.Text := trim(CDS_Sub.fieldbyname('FromCoName').AsString);
-    FromCoName.TxtCode := trim(CDS_Sub.fieldbyname('FromCoNo').AsString);
+    FromCoName.Properties.LookupItems.Text := trim(CDS_Sub.fieldbyname('FromCoNo').AsString);
   end;
 
   chkMJJH.Checked := True;
@@ -432,7 +452,60 @@ begin
 
 end;
 
-procedure TfrmTradeReturnClothInEdit.FromCoNameBtnClick(Sender: TObject);
+procedure TfrmTradeReturnClothInEdit.FromCoName1BtnClick(Sender: TObject);
+begin
+  inherited;
+  if iotype.Text = '¿Í»§ÍË»õ' then
+  begin
+    try
+      frmCompanySel := TfrmCompanySel.Create(Application);
+      with frmCompanySel do
+      begin
+        FCoType := '¿Í»§';
+        if ShowModal = 1 then
+        begin
+          FromCoName.Text := Trim(CDS_1.fieldbyname('CoName').AsString);
+        end;
+      end;
+    finally
+      frmCompanySel.Free;
+    end;
+  end
+  else
+  begin
+    try
+      frmZDYHelp := TfrmZDYHelp.Create(Application);
+      with frmZDYHelp do
+      begin
+        flag := 'GYSName';
+        flagname := '¹©Ó¦ÉÌ';
+        MainType := FSTKName;
+        if ShowModal = 1 then
+        begin
+          FromCoName.Text := Trim(frmZDYHelp.ClientDataSet1.fieldbyname('ZdyName').AsString);
+        end;
+      end;
+    finally
+      frmZDYHelp.Free;
+    end;
+  end;
+
+end;
+
+procedure TfrmTradeReturnClothInEdit.FromCoNameClick(Sender: TObject);
+begin
+  TcxButtonEdit(Sender).Text := '';
+  TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
+end;
+
+procedure TfrmTradeReturnClothInEdit.FromCoNameDblClick(Sender: TObject);
+begin
+  TcxButtonEdit(Sender).Text := '';
+  TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
+end;
+
+procedure TfrmTradeReturnClothInEdit.FromCoNamePropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
 begin
   inherited;
   if iotype.Text = '客户退货' then
@@ -762,7 +835,7 @@ procedure TfrmTradeReturnClothInEdit.TBSaveClick(Sender: TObject);
 begin
   if CDS_Sub.IsEmpty then
     Exit;
-  if IOTime.DateTime = null then
+  if IOTime.Date = null then
   begin
     Application.MessageBox('入库时间不能为空!', '提示', 0);
     Exit;
@@ -1107,7 +1180,6 @@ begin
 //      sql.Add(',Qty=Qty-(select InputLen from Trade_Cloth_Inspect X where X.CIID=''' + trim(CDS_MX.fieldbyName('CIID').AsString) + ''' ) ');
 //      sql.Add(',KGQty=KGQty-(select NetWeight from Trade_Cloth_Inspect X where X.CIID=''' + trim(CDS_MX.fieldbyName('CIID').AsString) + ''' ) ');
 //      sql.Add(' where BCIOID=''' + trim(CDS_Sub.fieldbyname('BCIOID').AsString) + '''');
-
 //      sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
 //      sql.Add(' ' + quotedstr(trim(DName)));
 //      sql.Add(',getdate() ');

项目代码/RTBasicsV1/T02贸易汇总仓库/U_TradeReturnClothInList.dfm

@@ -2,29 +2,29 @@
   Left = 165
   Top = 111
   Caption = #22238#20179#20837#24211#21015#34920
-  ClientHeight = 478
+  ClientHeight = 538
-  ClientWidth = 1374
+  ClientWidth = 1386
-  ExplicitWidth = 1390
+  ExplicitWidth = 1402
-  ExplicitHeight = 517
+  ExplicitHeight = 577
   PixelsPerInch = 96
   TextHeight = 17
   object ToolBar1: TToolBar [0]
     Tag = 1
     Left = 0
     Top = 0
-    Width = 1374
+    Width = 1386
-    Height = 38
+    Height = 30
     AutoSize = True
-    ButtonHeight = 38
+    ButtonHeight = 30
-    ButtonWidth = 91
+    ButtonWidth = 99
     Caption = 'ToolBar1'
     Color = clSkyBlue
     Font.Charset = GB2312_CHARSET
     Font.Color = clWindowText
-    Font.Height = -12
+    Font.Height = -16
-    Font.Name = #23435#20307
+    Font.Name = #24494#36719#38597#40657
     Font.Style = []
-    Images = DataLink_TradeTotalClothStk.ImageList_new32
+    Images = DataLink_TradeTotalClothStk.cxImageList_bar
     List = True
     ParentColor = False
     ParentFont = False
@@ -104,7 +104,7 @@
       OnClick = ToolButton1Click
     end
     object ToolButton4: TToolButton
-      Left = 663
+      Left = 671
       Top = 0
       AutoSize = True
       Caption = #22238#20179#26085#24535
@@ -112,7 +112,7 @@
       OnClick = ToolButton4Click
     end
     object TBClose: TToolButton
-      Left = 758
+      Left = 774
       Top = 0
       AutoSize = True
       Caption = #20851#38381
@@ -122,253 +122,153 @@
   end
   object Panel1: TPanel [1]
     Left = 0
-    Top = 38
+    Top = 30
-    Width = 1374
+    Width = 1386
-    Height = 75
+    Height = 120
     Align = alTop
     BevelInner = bvRaised
     BevelOuter = bvLowered
     Color = clWhite
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #24494#36719#38597#40657
+    Font.Style = []
     ParentBackground = False
+    ParentFont = False
     TabOrder = 1
-    object Label1: TLabel
-      Left = 28
-      Top = 12
-      Width = 64
-      Height = 16
-      Caption = #26597#35810#26102#38388
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = #23435#20307
-      Font.Style = []
-      ParentFont = False
-    end
-    object Label2: TLabel
-      Left = 64
-      Top = 41
-      Width = 16
-      Height = 16
-      Caption = #33267
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = #23435#20307
-      Font.Style = []
-      ParentFont = False
-    end
     object Label3: TLabel
-      Left = 391
+      Left = 225
-      Top = 12
+      Top = 48
       Width = 32
-      Height = 16
+      Height = 21
       Caption = #21697#21517
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = #23435#20307
-      Font.Style = []
-      ParentFont = False
     end
     object Label4: TLabel
-      Left = 540
+      Left = 377
-      Top = 12
+      Top = 48
       Width = 64
-      Height = 16
+      Height = 21
       Caption = #26469#33258#21333#20301
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = #23435#20307
-      Font.Style = []
-      ParentFont = False
     end
     object Label5: TLabel
-      Left = 199
+      Left = 19
-      Top = 12
+      Top = 48
       Width = 64
-      Height = 16
+      Height = 21
       Caption = #20837#24211#21333#21495
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = #23435#20307
-      Font.Style = []
-      ParentFont = False
     end
     object Label8: TLabel
-      Left = 391
+      Left = 225
-      Top = 41
+      Top = 87
       Width = 32
-      Height = 16
+      Height = 21
       Caption = #35268#26684
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = #23435#20307
-      Font.Style = []
-      ParentFont = False
     end
     object Label12: TLabel
-      Left = 200
+      Left = 20
-      Top = 41
+      Top = 87
       Width = 64
-      Height = 16
+      Height = 21
       Caption = #20837#24211#31867#22411
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = #23435#20307
-      Font.Style = []
-      ParentFont = False
     end
     object Label10: TLabel
-      Left = 540
+      Left = 377
-      Top = 41
+      Top = 87
       Width = 64
-      Height = 16
+      Height = 21
       Caption = #26412#21378#32568#21495
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = #23435#20307
-      Font.Style = []
-      ParentFont = False
     end
     object 已打印: TLabel
-      Left = 919
+      Left = 733
-      Top = 16
+      Top = 48
-      Width = 51
+      Width = 48
-      Height = 16
+      Height = 21
       Hint = '1'
       Caption = #24050#25171#21360
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      ParentFont = False
     end
     object Label6: TLabel
-      Left = 718
+      Left = 561
-      Top = 12
+      Top = 48
-      Width = 64
+      Width = 52
-      Height = 16
+      Height = 21
       Caption = #33457'    '#22411
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = #23435#20307
-      Font.Style = []
-      ParentFont = False
     end
-    object BegDate: TDateTimePicker
+    object C_name: TcxTextEdit
-      Left = 98
+      Tag = 2
-      Top = 8
+      Left = 267
-      Width = 87
+      Top = 42
-      Height = 24
-      Date = 40768.000000000000000000
-      Time = 0.458268587972270300
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = #23435#20307
-      Font.Style = []
-      ParentFont = False
       TabOrder = 0
+      Width = 100
     end
-    object EndDate: TDateTimePicker
+    object FromCoName: TcxTextEdit
-      Left = 98
+      Tag = 2
-      Top = 37
+      Left = 451
-      Width = 87
+      Top = 42
-      Height = 24
-      Date = 40768.000000000000000000
-      Time = 0.458268587972270300
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = #23435#20307
-      Font.Style = []
-      ParentFont = False
       TabOrder = 1
-    end
-    object C_name: TEdit
-      Tag = 2
-      Left = 426
-      Top = 8
       Width = 100
-      Height = 24
+    end
-      Font.Charset = GB2312_CHARSET
+    object BCIOID: TcxTextEdit
-      Font.Color = clWindowText
+      Tag = 2
-      Font.Height = -16
+      Left = 93
-      Font.Name = #23435#20307
+      Top = 42
-      Font.Style = []
-      ParentFont = False
       TabOrder = 2
-      OnChange = TBFindClick
+      Width = 122
     end
-    object FromCoName: TEdit
+    object C_spec: TcxTextEdit
       Tag = 2
-      Left = 608
+      Left = 267
-      Top = 8
+      Top = 81
-      Width = 100
-      Height = 24
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = #23435#20307
-      Font.Style = []
-      ParentFont = False
       TabOrder = 3
-      OnChange = FromCoNameChange
-    end
-    object BCIOID: TEdit
-      Tag = 2
-      Left = 268
-      Top = 8
-      Width = 109
-      Height = 24
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = #23435#20307
-      Font.Style = []
-      ParentFont = False
-      TabOrder = 4
-      OnChange = BCIOIDChange
-    end
-    object C_spec: TEdit
-      Tag = 2
-      Left = 426
-      Top = 37
       Width = 100
-      Height = 24
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = #23435#20307
-      Font.Style = []
-      ParentFont = False
-      TabOrder = 5
-      OnChange = C_specChange
     end
-    object IOType: TComboBox
+    object BatchNo: TcxTextEdit
       Tag = 2
-      Left = 268
+      Left = 451
-      Top = 37
+      Top = 81
-      Width = 109
+      TabOrder = 4
-      Height = 24
+      Width = 100
-      Style = csDropDownList
+    end
-      DropDownCount = 20
+    object Panel3: TPanel
-      Font.Charset = GB2312_CHARSET
+      Left = 791
+      Top = 45
+      Width = 57
+      Height = 27
+      Color = 15659150
+      ParentBackground = False
+      TabOrder = 5
+    end
+    object C_Pattern: TcxTextEdit
+      Tag = 2
+      Left = 623
+      Top = 42
+      TabOrder = 6
+      Width = 100
+    end
+    inline frmFrameDateSel1: TfrmFrameDateSel
+      Left = 2
+      Top = 2
+      Width = 1382
+      Height = 37
+      Align = alTop
+      Color = clWhite
+      Font.Charset = ANSI_CHARSET
       Font.Color = clWindowText
       Font.Height = -16
-      Font.Name = #23435#20307
+      Font.Name = #24494#36719#38597#40657
       Font.Style = []
+      ParentBackground = False
+      ParentColor = False
       ParentFont = False
-      TabOrder = 6
+      TabOrder = 7
-      OnChange = TBFindClick
+      ExplicitLeft = 2
-      Items.Strings = (
+      ExplicitTop = 2
+      ExplicitWidth = 1583
+    end
+    object IOType: TcxComboBox
+      Left = 94
+      Top = 81
+      Properties.Items.Strings = (
         ''
         #37319#36141#20837#24211
         #21152#24037#20837#24211
@@ -376,55 +276,26 @@
         #38144#21806#36864#22238
         #30424#30408#20837#24211
         #26399#21021#20837#24211)
-    end
-    object BatchNo: TEdit
-      Tag = 2
-      Left = 608
-      Top = 36
-      Width = 100
-      Height = 24
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = #23435#20307
-      Font.Style = []
-      ParentFont = False
-      TabOrder = 7
-      OnChange = FromCoNameChange
-    end
-    object Panel3: TPanel
-      Left = 976
-      Top = 11
-      Width = 57
-      Height = 27
-      Color = 15659150
-      ParentBackground = False
       TabOrder = 8
-    end
+      Width = 121
-    object C_Pattern: TEdit
-      Tag = 2
-      Left = 787
-      Top = 8
-      Width = 100
-      Height = 24
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = #23435#20307
-      Font.Style = []
-      ParentFont = False
-      TabOrder = 9
-      OnChange = FromCoNameChange
     end
   end
   object cxGrid1: TcxGrid [2]
     Left = 0
-    Top = 113
+    Top = 150
-    Width = 906
+    Width = 918
-    Height = 365
+    Height = 388
     Align = alClient
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #24494#36719#38597#40657
+    Font.Style = []
+    ParentFont = False
     PopupMenu = PopupMenu1
     TabOrder = 2
+    ExplicitTop = 204
+    ExplicitHeight = 334
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>
@@ -464,10 +335,6 @@
       OptionsView.GroupByBox = False
       OptionsView.Indicator = True
       OptionsView.IndicatorWidth = 40
-      Styles.IncSearch = DataLink_TradeTotalClothStk.SHuangSe
-      Styles.Header = DataLink_TradeTotalClothStk.Default
-      Styles.Inactive = DataLink_TradeTotalClothStk.SHuangSe
-      Styles.Selection = DataLink_TradeTotalClothStk.SHuangSe
       object Tv1Column7: TcxGridDBColumn
         Caption = #36873#25321
         DataBinding.FieldName = 'ssel'
@@ -754,21 +621,30 @@
     end
   end
   object Panel2: TPanel [3]
-    Left = 906
+    Left = 918
-    Top = 113
+    Top = 150
     Width = 468
-    Height = 365
+    Height = 388
     Align = alRight
     Caption = 'Panel2'
     TabOrder = 3
+    ExplicitTop = 204
+    ExplicitHeight = 334
     object cxGrid2: TcxGrid
       Left = 1
-      Top = 39
+      Top = 31
       Width = 466
-      Height = 325
+      Height = 356
       Align = alClient
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #24494#36719#38597#40657
+      Font.Style = []
+      ParentFont = False
       PopupMenu = PopupMenu2
       TabOrder = 0
+      ExplicitHeight = 302
       object Tv2: TcxGridDBTableView
         PopupMenu = PopupMenu2
         Navigator.Buttons.CustomButtons = <>
@@ -807,8 +683,6 @@
         OptionsView.GroupByBox = False
         OptionsView.Indicator = True
         OptionsView.IndicatorWidth = 30
-        Styles.Content = DataLink_TradeTotalClothStk.Default
-        Styles.Header = DataLink_TradeTotalClothStk.Default
         object Tv2Column4: TcxGridDBColumn
           Caption = #36873#25321
           DataBinding.FieldName = 'ssel'
@@ -882,18 +756,18 @@
       Left = 1
       Top = 1
       Width = 466
-      Height = 38
+      Height = 30
       AutoSize = True
-      ButtonHeight = 38
+      ButtonHeight = 30
-      ButtonWidth = 75
+      ButtonWidth = 67
       Caption = 'ToolBar1'
       Color = clSkyBlue
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
-      Font.Height = -12
+      Font.Height = -16
-      Font.Name = #23435#20307
+      Font.Name = #24494#36719#38597#40657
       Font.Style = []
-      Images = DataLink_TradeTotalClothStk.ImageList_new32
+      Images = DataLink_TradeTotalClothStk.cxImageList_bar
       List = True
       ParentColor = False
       ParentFont = False

项目代码/RTBasicsV1/T02贸易汇总仓库/U_TradeReturnClothInList.pas

@@ -28,7 +28,8 @@ uses
   dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
   dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
   dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
-  dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations;
+  dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations,
+  cxContainer, FrameDateSel, cxMaskEdit;
 
 type
   TfrmTradeReturnClothInList = class(TfrmBaseList)
@@ -43,10 +44,6 @@ type
     ADOQueryTemp: TADOQuery;
     DataSource1: TDataSource;
     cxGridPopupMenu1: TcxGridPopupMenu;
-    Label1: TLabel;
-    Label2: TLabel;
-    BegDate: TDateTimePicker;
-    EndDate: TDateTimePicker;
     CDS_Main: TClientDataSet;
     TBDel: TToolButton;
     PopupMenu1: TPopupMenu;
@@ -59,11 +56,10 @@ type
     Label5: TLabel;
     Label8: TLabel;
     Label12: TLabel;
-    C_name: TEdit;
+    C_name: TcxTextEdit;
-    FromCoName: TEdit;
+    FromCoName: TcxTextEdit;
-    BCIOID: TEdit;
+    BCIOID: TcxTextEdit;
-    C_spec: TEdit;
+    C_spec: TcxTextEdit;
-    IOType: TComboBox;
     cxGrid1: TcxGrid;
     Tv1: TcxGridDBTableView;
     v1Column6: TcxGridDBColumn;
@@ -78,7 +74,7 @@ type
     v1Column12: TcxGridDBColumn;
     cxGrid1Level1: TcxGridLevel;
     Label10: TLabel;
-    BatchNo: TEdit;
+    BatchNo: TcxTextEdit;
     v1Column11: TcxGridDBColumn;
     v1Column13: TcxGridDBColumn;
     v1Column15: TcxGridDBColumn;
@@ -127,10 +123,12 @@ type
     ÒÑ´òÓ¡: TLabel;
     Tv2Column5: TcxGridDBColumn;
     Label6: TLabel;
-    C_Pattern: TEdit;
+    C_Pattern: TcxTextEdit;
     cxStyleRepository1: TcxStyleRepository;
     cxStyle1: TcxStyle;
     ToolButton4: TToolButton;
+    frmFrameDateSel1: TfrmFrameDateSel;
+    IOType: TcxComboBox;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
     procedure TBRafreshClick(Sender: TObject);
@@ -189,8 +187,8 @@ end;
 procedure TfrmTradeReturnClothInList.FormCreate(Sender: TObject);
 begin
   inherited;
-  EndDate.DateTime := SGetServerDate(ADOQueryTemp);
+  frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
-  BegDate.DateTime := EndDate.DateTime - 30;
+  frmFrameDateSel1.BegDate.Date := frmFrameDateSel1.EndDate.Date - 30;
   canshu1 := Trim(self.fParameters1);
   canshu2 := Trim(self.fParameters2);
   canshu3 := Trim(self.fParameters3);
@@ -209,8 +207,8 @@ begin
       sql.Add(',FJFlag=CAST((CASE WHEN (SELECT COUNT(X.FileName) FROM FJ_File X where X.TFType=''óÒ×»ã×ܲ¼'' and X.WBID=A.BCIOID)>0 THEN 1 ELSE 0 END) AS BIT)                ');
 
       sql.Add(' from BS_Cloth_IO A');
-      sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''');
+      sql.add(' where A.IOTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''');
-      sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
+      sql.Add(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1. enddate.Date + 1)) + '''');
       sql.Add(' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''');
       SQL.Add(' and IOFlag=''Èë¿â''  ');
       SQL.Add(' order by IOTime desc');
@@ -226,7 +224,7 @@ end;
 
 procedure TfrmTradeReturnClothInList.TBRafreshClick(Sender: TObject);
 begin
-  BegDate.SetFocus;
+  frmFrameDateSel1.BegDate.SetFocus;
   InitGrid();
 end;
 

项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.dpr

@@ -10,9 +10,6 @@ uses
   U_GetDllForm in 'U_GetDllForm.pas',
   U_DataLink in 'U_DataLink.pas' {DataLink_TradeMarket: TDataModule},
   U_iniParam in 'U_iniParam.pas',
-  U_BaseHelp in '..\..\..\public10\design\U_BaseHelp.pas' {frmBaseHelp},
-  U_BaseInput in '..\..\..\public10\design\U_BaseInput.pas' {frmBaseInput},
-  U_BaseList in '..\..\..\public10\design\U_BaseList.pas' {frmBaseList},
   U_CompressionFun in '..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas',
   U_RTFun in '..\..\..\public10\ThreeFun\Fun\U_RTFun.pas',
   U_ZDYHelp in '..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas' {frmZDYHelp},
@@ -32,8 +29,12 @@ uses
   U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
   U_globalVar in '..\..\..\public10\design\U_globalVar.pas',
   U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas',
-  FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame},
+  FramePagingSel in '..\A00通用组件\FramePagingSel.pas' {frmFramePagingSel: TFrame},
-  FramePagingSel in '..\A00通用组件\FramePagingSel.pas' {frmFramePagingSel: TFrame};
+  U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
+  U_BaseHelp in '..\..\..\public10\design\U_BaseHelp.pas' {frmBaseHelp},
+  U_BaseInput in '..\..\..\public10\design\U_BaseInput.pas' {frmBaseInput},
+  U_BaseList in '..\..\..\public10\design\U_BaseList.pas' {frmBaseList},
+  FrameDateSel in '..\A00通用组件\FrameDateSel.pas' {frmFrameDateSel: TFrame};
 
 {$R *.res}
 

项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.dproj

@@ -136,18 +136,6 @@
             <DesignClass>TDataModule</DesignClass>
         </DCCReference>
         <DCCReference Include="U_iniParam.pas"/>
-        <DCCReference Include="..\..\..\public10\design\U_BaseHelp.pas">
-            <Form>frmBaseHelp</Form>
-            <FormType>dfm</FormType>
-        </DCCReference>
-        <DCCReference Include="..\..\..\public10\design\U_BaseInput.pas">
-            <Form>frmBaseInput</Form>
-            <FormType>dfm</FormType>
-        </DCCReference>
-        <DCCReference Include="..\..\..\public10\design\U_BaseList.pas">
-            <Form>frmBaseList</Form>
-            <FormType>dfm</FormType>
-        </DCCReference>
         <DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
         <DCCReference Include="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
         <DCCReference Include="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas">
@@ -203,13 +191,30 @@
         <DCCReference Include="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
         <DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/>
         <DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/>
-        <DCCReference Include="..\A00通用组件\FrameDateSel.pas">
+        <DCCReference Include="..\A00通用组件\FramePagingSel.pas">
-            <Form>frmFrameDateSel</Form>
+            <Form>frmFramePagingSel</Form>
             <FormType>dfm</FormType>
             <DesignClass>TFrame</DesignClass>
         </DCCReference>
-        <DCCReference Include="..\A00通用组件\FramePagingSel.pas">
+        <DCCReference Include="..\..\..\public10\design\U_BaseDataLink.pas">
-            <Form>frmFramePagingSel</Form>
+            <Form>BaseDataLink</Form>
+            <FormType>dfm</FormType>
+            <DesignClass>TDataModule</DesignClass>
+        </DCCReference>
+        <DCCReference Include="..\..\..\public10\design\U_BaseHelp.pas">
+            <Form>frmBaseHelp</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="..\..\..\public10\design\U_BaseInput.pas">
+            <Form>frmBaseInput</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="..\..\..\public10\design\U_BaseList.pas">
+            <Form>frmBaseList</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="..\A00通用组件\FrameDateSel.pas">
+            <Form>frmFrameDateSel</Form>
             <FormType>dfm</FormType>
             <DesignClass>TFrame</DesignClass>
         </DCCReference>

项目代码/RTBasicsV1/T05贸易门市管理/TradeMarket.dproj.local

@@ -1,52 +1,53 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
-    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.556,=D:\RTFormwork\public10\design\U_BaseDataLink.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.530,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedList.dfm=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedSel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.020,D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeDispatchedList.pas=D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeMarketList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.530,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedList.pas=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.530,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedList.dfm=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedSel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.075,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisSel.dfm=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisScan.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.197,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisSel.dfm=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketInPut.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.844,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_AttachmentUpload.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.623,=D:\RTFormwork\public10\design\U_cxGridCustomSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.075,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisSel.pas=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisScan.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.197,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisSel.pas=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketInPut.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.298,=D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeMarketInPut.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.020,D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeDispatchedList.dfm=D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeMarketList.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.339,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.530,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedList.pas=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.623,=D:\RTFormwork\public10\design\U_cxGridCustomSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.783,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FrameDateSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.901,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FramePagingSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.448,=D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeMarketList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\希风\T00贸易通用窗体\U_StockPlanSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.996,D:\Dp10Repo\项目代码\希风\T00贸易通用窗体\U_StockPlanSel.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.728,=D:\Dp10Repo\项目代码\希风\T00贸易通用窗体\U_StockPlanSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.667,=D:\RTFormwork\public10\design\U_FormLayOutDesign.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.736,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ModuleNote.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\T05门市订单管理\TradeMarket.dproj=D:\Dp10Repo\项目代码\RTBasics\T05门市订单管理\InformationBase.dproj</Transaction>
     <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.931,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.901,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.293,=D:\Dp10Repo\项目代码\宝磊\A00通用窗体\U_PictureUpload.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.901,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelpSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.487,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelpSel.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>2024-08-16 14:51:13.783,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FrameDateSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>2024-08-16 14:51:13.901,=D:\RTFormwork\项目代码\RTBasicsV1\A00通用组件\FramePagingSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.293,=D:\Dp10Repo\项目代码\宝磊\A00通用窗体\U_PictureUpload.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="android-support-v4.dex.jar"/>
@@ -112,6 +113,8 @@
     <File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
     <File Path="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
     <File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
+    <File Path="..\..\..\public10\design\U_BaseDataLink.pas"/>
+    <File Path="..\..\..\public10\design\U_BaseDataLink.dfm"/>
     <File Path="..\..\..\public10\ThreeFun"/>
     <File Path="..\..\..\public10\ThreeFun\Form"/>
     <File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>

项目代码/RTBasicsV1/T05贸易门市管理/U_DataLink.dfm

@@ -1,9 +1,29 @@
-object DataLink_TradeMarket: TDataLink_TradeMarket
+inherited DataLink_TradeMarket: TDataLink_TradeMarket
-  OldCreateOrder = False
-  OnCreate = DataModuleCreate
   OnDestroy = DataModuleDestroy
-  Height = 349
+  Height = 359
-  Width = 482
+  Width = 498
+  inherited cxEditStyleController1: TcxEditStyleController
+    PixelsPerInch = 96
+  end
+  inherited cxDefaultEditStyleController1: TcxDefaultEditStyleController
+    PixelsPerInch = 96
+  end
+  inherited cxImageList_bar: TcxImageList
+    FormatVersion = 1
+    Left = 300
+    Top = 172
+    DesignInfo = 11272492
+  end
+  inherited ThreeColorBase: TcxStyleRepository
+    PixelsPerInch = 96
+  end
+  inherited dxLayoutLookAndFeelList1: TdxLayoutLookAndFeelList
+    Left = 403
+    Top = 154
+    inherited dxLayoutSkinLookAndFeel1: TdxLayoutSkinLookAndFeel
+      PixelsPerInch = 96
+    end
+  end
   object AdoDataLink: TADOQuery
     Connection = ADOLink
     Parameters = <>
@@ -10423,139 +10443,6 @@ object DataLink_TradeMarket: TDataLink_TradeMarket
       FF800001000000F003FFFE00FFE0000300000000000000000000000000000000
       000000000000}
   end
-  object ThreeLookAndFeelCol: TcxLookAndFeelController
-    Kind = lfStandard
-    NativeStyle = False
-    Left = 253
-    Top = 12
-  end
-  object ThreeColorBase: TcxStyleRepository
-    Left = 147
-    Top = 80
-    PixelsPerInch = 96
-    object SHuangSe: TcxStyle
-      AssignedValues = [svColor, svFont, svTextColor]
-      Color = 4707838
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = []
-      TextColor = clBtnText
-    end
-    object SkyBlue: TcxStyle
-      AssignedValues = [svColor, svFont, svTextColor]
-      Color = clSkyBlue
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = []
-      TextColor = clBlack
-    end
-    object Default: TcxStyle
-      AssignedValues = [svFont]
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-    end
-    object QHuangSe: TcxStyle
-      AssignedValues = [svColor, svFont]
-      Color = 8454143
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = []
-    end
-    object Red: TcxStyle
-      AssignedValues = [svColor, svFont]
-      Color = clRed
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = []
-    end
-    object FontBlue: TcxStyle
-      AssignedValues = [svFont, svTextColor]
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clBlue
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      TextColor = clBlue
-    end
-    object TextSHuangSe: TcxStyle
-      AssignedValues = [svFont, svTextColor]
-      Font.Charset = ANSI_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      TextColor = clOlive
-    end
-    object FonePurple: TcxStyle
-      AssignedValues = [svFont, svTextColor]
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindow
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      TextColor = clPurple
-    end
-    object FoneClMaroon: TcxStyle
-      AssignedValues = [svFont, svTextColor]
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      TextColor = clMaroon
-    end
-    object FoneRed: TcxStyle
-      AssignedValues = [svFont, svTextColor]
-      Font.Charset = ANSI_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      TextColor = clRed
-    end
-    object RowColor: TcxStyle
-      AssignedValues = [svColor]
-      Color = 16311512
-    end
-    object handBlack: TcxStyle
-      AssignedValues = [svFont]
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-    end
-    object cxBlue: TcxStyle
-      AssignedValues = [svColor, svFont]
-      Color = 16711731
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = []
-    end
-    object SHuangSeCu: TcxStyle
-      AssignedValues = [svColor, svFont, svTextColor]
-      Color = 4707838
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clBlack
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      TextColor = clRed
-    end
-  end
   object Timer_link: TTimer
     Interval = 15000
     OnTimer = Timer_linkTimer
@@ -10566,8 +10453,8 @@ object DataLink_TradeMarket: TDataLink_TradeMarket
     DrawingStyle = dsTransparent
     Height = 32
     Width = 32
-    Left = 256
+    Left = 222
-    Top = 184
+    Top = 188
     Bitmap = {
       494C010119002400040020002000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
       000000000000360000002800000080000000E0000000010020000000000000C0

项目代码/RTBasicsV1/T05贸易门市管理/U_DataLink.pas

@@ -4,10 +4,10 @@ interface
 
 uses
   SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
-  Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
+  U_BaseDataLink, Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls,
-  dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, dxSkinBasic,
+  SyncObjs, cxClasses, dxSkinsCore, dxSkinsDefaultPainters, System.ImageList,
-  dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee,
+  dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
-  dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
+  dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
   dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
   dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
   dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
@@ -21,7 +21,9 @@ uses
   dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
   dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
   dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
-  dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue;
+  dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxCore, cxLocalization,
+  dxLayoutLookAndFeels, cxImageList, cxGraphics, cxEdit, cxContainer,
+  dxSkinsForm;
 
 type
   TMyThread = class(TThread)
@@ -53,7 +55,7 @@ var
   UserDataFlag: string;
 
 type
-  TDataLink_TradeMarket = class(TDataModule)
+  TDataLink_TradeMarket = class(TBaseDataLink)
     AdoDataLink: TADOQuery;
     ADOLink: TADOConnection;
     ThreeImgList: TImageList;
@@ -125,6 +127,7 @@ end;
 
 procedure TDataLink_TradeMarket.DataModuleDestroy(Sender: TObject);
 begin
+  inherited;
   CriticalSection.Free;
   DataLink_TradeMarket := nil;
 end;
@@ -136,6 +139,7 @@ end;
 
 procedure TDataLink_TradeMarket.DataModuleCreate(Sender: TObject);
 begin
+  inherited;
   CriticalSection := TCriticalSection.Create;
 end;
 

项目代码/RTBasicsV1/T05贸易门市管理/U_TradeDispatchedList.dfm

@@ -16,18 +16,18 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
     Left = 0
     Top = 0
     Width = 1540
-    Height = 38
+    Height = 30
     AutoSize = True
-    ButtonHeight = 38
+    ButtonHeight = 30
-    ButtonWidth = 103
+    ButtonWidth = 115
     Caption = 'ToolBar1'
     Color = clBtnFace
     Font.Charset = GB2312_CHARSET
     Font.Color = clWindowText
-    Font.Height = -12
+    Font.Height = -16
-    Font.Name = #23435#20307
+    Font.Name = #24494#36719#38597#40657
     Font.Style = []
-    Images = DataLink_TradeMarket.ImageList_new32
+    Images = DataLink_TradeMarket.cxImageList_bar
     List = True
     ParentColor = False
     ParentFont = False
@@ -50,7 +50,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
       OnClick = ToolButton1Click
     end
     object TBPrint: TToolButton
-      Left = 166
+      Left = 174
       Top = 0
       AutoSize = True
       Caption = #25171#21360
@@ -58,7 +58,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
       OnClick = TBPrintClick
     end
     object TBPrint1: TToolButton
-      Left = 237
+      Left = 245
       Top = 0
       AutoSize = True
       Caption = #25171#21360#20986#24211#21333
@@ -66,7 +66,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
       OnClick = TBPrint1Click
     end
     object TBCK: TToolButton
-      Left = 344
+      Left = 364
       Top = 0
       AutoSize = True
       Caption = #26597#30475
@@ -74,7 +74,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
       OnClick = TBCKClick
     end
     object TBFJ: TToolButton
-      Left = 415
+      Left = 435
       Top = 0
       AutoSize = True
       Caption = #38468#20214
@@ -82,7 +82,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
       OnClick = TBFJClick
     end
     object ToolButton2: TToolButton
-      Left = 486
+      Left = 506
       Top = 0
       AutoSize = True
       Caption = #20445#23384#26684#24335
@@ -90,7 +90,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
       OnClick = ToolButton2Click
     end
     object TBClose: TToolButton
-      Left = 581
+      Left = 609
       Top = 0
       AutoSize = True
       Caption = #20851#38381
@@ -100,159 +100,127 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
   end
   object Panel1: TPanel [1]
     Left = 0
-    Top = 38
+    Top = 30
     Width = 1540
-    Height = 67
+    Height = 80
     Align = alTop
     BevelInner = bvRaised
     BevelOuter = bvLowered
     Color = clWhite
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #24494#36719#38597#40657
+    Font.Style = []
     ParentBackground = False
+    ParentFont = False
     TabOrder = 1
     object Label3: TLabel
-      Left = 283
+      Left = 22
-      Top = 20
+      Top = 45
-      Width = 52
+      Width = 64
-      Height = 12
+      Height = 21
       Caption = #22823#36135#21333#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 = 613
+      Left = 548
-      Top = 119
+      Top = 45
-      Width = 26
+      Width = 32
-      Height = 12
+      Height = 21
       Caption = #20811#37325
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      ParentFont = False
     end
     object Label1: TLabel
-      Left = 612
+      Left = 392
-      Top = 20
+      Top = 45
-      Width = 26
+      Width = 32
-      Height = 12
+      Height = 21
       Caption = #23458#25143
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      ParentFont = False
     end
     object Label2: TLabel
-      Left = 449
+      Left = 207
-      Top = 20
+      Top = 45
-      Width = 52
+      Width = 64
-      Height = 12
+      Height = 21
       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 TMMNo: TEdit
+    object Label4: TLabel
+      Left = 697
+      Top = 45
+      Width = 32
+      Height = 21
+      Caption = #20840#36873
+    end
+    object TMMNo: TcxTextEdit
       Tag = 2
-      Left = 341
+      Left = 96
-      Top = 16
+      Top = 41
-      Width = 101
-      Height = 25
       TabOrder = 0
       OnKeyPress = TMMNoKeyPress
+      Width = 101
     end
-    object MPRTKZ: TEdit
+    object MPRTKZ: TcxTextEdit
       Tag = 2
-      Left = 654
+      Left = 590
-      Top = 99
+      Top = 42
-      Width = 56
-      Height = 25
       TabOrder = 1
+      Width = 56
     end
-    object CustName: TEdit
+    object CustName: TcxTextEdit
       Tag = 2
-      Left = 644
+      Left = 434
-      Top = 16
+      Top = 41
-      Width = 104
-      Height = 25
       TabOrder = 2
       OnKeyPress = TMMNoKeyPress
+      Width = 104
     end
-    object C_Name: TEdit
+    object C_Name: TcxTextEdit
       Tag = 2
-      Left = 504
+      Left = 281
-      Top = 16
+      Top = 41
-      Width = 101
-      Height = 25
       TabOrder = 3
       OnKeyPress = TMMNoKeyPress
-    end
-    object CheckBox3: TCheckBox
-      Left = 776
-      Top = 16
-      Width = 99
-      Height = 19
-      Caption = #20840#36873
-      TabOrder = 4
-      OnClick = CheckBox3Click
-    end
-    object BegDate: TDateTimePicker
-      Left = 152
-      Top = 16
       Width = 101
-      Height = 20
+    end
-      Date = 40675.000000000000000000
+    object cxCheckBox1: TcxCheckBox
-      Format = 'yyyy-MM-dd'
+      Left = 671
-      Time = 0.464742650459811600
+      Top = 41
+      Style.TransparentBorder = False
+      TabOrder = 4
+      OnClick = cxCheckBox1Click
+    end
+    inline frmFrameDateSel1: TfrmFrameDateSel
+      Left = 2
+      Top = 2
+      Width = 1536
+      Height = 37
+      Align = alTop
+      Color = clWhite
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #24494#36719#38597#40657
+      Font.Style = []
+      ParentBackground = False
+      ParentColor = False
+      ParentFont = False
       TabOrder = 5
-    end
+      ExplicitLeft = 2
-    object EndDate: TDateTimePicker
+      ExplicitTop = 2
-      Left = 152
+      ExplicitWidth = 1536
-      Top = 42
-      Width = 102
-      Height = 20
-      Date = 40675.000000000000000000
-      Format = 'yyyy-MM-dd'
-      Time = 0.464761099538009100
-      TabOrder = 6
-    end
-    object ComboBox1: TComboBox
-      Left = 49
-      Top = 16
-      Width = 93
-      Height = 25
-      TabOrder = 7
-      Text = #21046#21333#26085#26399
-      OnChange = ComboBox1Change
-      Items.Strings = (
-        #21046#21333#26085#26399
-        #20132#36135#26085#26399)
-    end
-    object CheckBox1: TCheckBox
-      Left = 28
-      Top = 18
-      Width = 19
-      Height = 17
-      Checked = True
-      State = cbChecked
-      TabOrder = 8
     end
   end
   object cxGrid1: TcxGrid [2]
     Left = 0
-    Top = 127
+    Top = 136
     Width = 1540
-    Height = 205
+    Height = 195
     Align = alClient
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #24494#36719#38597#40657
+    Font.Style = []
+    ParentFont = False
     PopupMenu = PM_1
     TabOrder = 2
     object Tv1: TcxGridDBTableView
@@ -277,12 +245,6 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
       OptionsView.Footer = True
       OptionsView.GroupByBox = False
       OptionsView.IndicatorWidth = 30
-      Styles.Content = DataLink_TradeMarket.Default
-      Styles.IncSearch = DataLink_TradeMarket.SHuangSe
-      Styles.Footer = DataLink_TradeMarket.Default
-      Styles.Header = DataLink_TradeMarket.Default
-      Styles.Inactive = DataLink_TradeMarket.SHuangSe
-      Styles.Selection = DataLink_TradeMarket.SHuangSe
       object v1Column16: TcxGridDBColumn
         Caption = #36873#25321
         DataBinding.FieldName = 'SSel'
@@ -307,7 +269,6 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
         Properties.ShowTime = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_TradeMarket.Default
         Width = 66
       end
       object Tv1Column2: TcxGridDBColumn
@@ -316,7 +277,6 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_TradeMarket.FontBlue
         Width = 66
       end
       object Tv1Column4: TcxGridDBColumn
@@ -325,7 +285,6 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_TradeMarket.FoneClMaroon
         Width = 66
       end
       object v1DeliveryDate: TcxGridDBColumn
@@ -336,7 +295,6 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
         Properties.ShowTime = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_TradeMarket.Default
         Width = 66
       end
       object Tv1Column9: TcxGridDBColumn
@@ -450,6 +408,12 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
       Width = 1540
       Height = 231
       Align = alTop
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #24494#36719#38597#40657
+      Font.Style = []
+      ParentFont = False
       TabOrder = 0
       object TV2: TcxGridDBTableView
         Navigator.Buttons.CustomButtons = <>
@@ -643,114 +607,109 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
   end
   object cxTabControl1: TcxTabControl [4]
     Left = 0
-    Top = 105
+    Top = 110
     Width = 1540
-    Height = 22
+    Height = 26
     Align = alTop
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #24494#36719#38597#40657
+    Font.Style = []
+    ParentFont = False
     TabOrder = 4
     Properties.CustomButtons.Buttons = <>
     Properties.Style = 9
     Properties.TabIndex = 0
     Properties.Tabs.Strings = (
-      #26410#37197#36135
+      '      '#26410#37197#36135'      '
-      #24050#37197#36135
+      '      '#24050#37197#36135'      '
-      #24050#21457#36135
+      '      '#24050#21457#36135'      '
-      #20840#37096)
+      '      '#20840#37096'      ')
     OnChange = cxTabControl1Change
     ClientRectRight = 0
     ClientRectTop = 0
   end
   object Panel3: TPanel [5]
     Left = 0
-    Top = 332
+    Top = 331
     Width = 1540
-    Height = 34
+    Height = 35
     Align = alBottom
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #24494#36719#38597#40657
+    Font.Style = []
+    ParentFont = False
     TabOrder = 5
     object Label14: TLabel
       Left = 500
       Top = 60
-      Width = 36
+      Width = 48
-      Height = 12
+      Height = 21
       Caption = #21367#26465#30721
       Font.Charset = GB2312_CHARSET
       Font.Color = clRed
-      Font.Height = -12
+      Font.Height = -16
-      Font.Name = #23435#20307
+      Font.Name = #24494#36719#38597#40657
       Font.Style = []
       ParentFont = False
     end
     object Label15: TLabel
-      Left = 881
+      Left = 962
-      Top = 11
+      Top = 6
-      Width = 48
+      Width = 64
-      Height = 17
+      Height = 21
       Caption = #20986#24211#26085#26399
     end
+    object Label5: TLabel
+      Left = 1195
+      Top = 6
+      Width = 32
+      Height = 21
+      Caption = #20840#36873
+    end
     object Panel4: TPanel
       Left = 1286
       Top = 1
       Width = 253
-      Height = 32
+      Height = 33
       Align = alRight
       BevelOuter = bvNone
       TabOrder = 0
     end
-    object Edit1: TEdit
+    object Edit1: TcxTextEdit
-      Left = 536
+      Left = 558
       Top = 56
-      Width = 145
-      Height = 24
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -16
-      Font.Name = #23435#20307
-      Font.Style = []
       ParentFont = False
       TabOrder = 1
-    end
+      Width = 145
-    object CRdate: TDateTimePicker
-      Left = 935
-      Top = 7
-      Width = 91
-      Height = 21
-      Date = 41557.000000000000000000
-      Format = 'yyyy-MM-dd'
-      Time = 0.498293449083576000
-      TabOrder = 2
-    end
-    object CheckBox2: TCheckBox
-      Left = 1038
-      Top = 7
-      Width = 99
-      Height = 19
-      Caption = #20840#36873
-      TabOrder = 3
-      OnClick = CheckBox2Click
     end
     object ToolBar2: TToolBar
       Tag = 1
       Left = 1
       Top = 1
-      Width = 874
+      Width = 852
+      Height = 33
       Align = alLeft
-      ButtonHeight = 38
+      ButtonHeight = 30
-      ButtonWidth = 91
+      ButtonWidth = 99
       Caption = 'ToolBar1'
       Color = clWhite
       EdgeInner = esNone
       EdgeOuter = esNone
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
-      Font.Height = -12
+      Font.Height = -16
-      Font.Name = #23435#20307
+      Font.Name = #24494#36719#38597#40657
       Font.Style = []
-      Images = DataLink_TradeMarket.ImageList_new32
+      Images = DataLink_TradeMarket.cxImageList_bar
       List = True
       ParentColor = False
       ParentFont = False
       ShowCaptions = True
-      TabOrder = 4
+      TabOrder = 2
       object ToolButton4: TToolButton
         Left = 0
         Top = 0
@@ -760,7 +719,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
         OnClick = ToolButton4Click
       end
       object phwc: TToolButton
-        Left = 95
+        Left = 103
         Top = 0
         AutoSize = True
         Caption = #37197#36135#23436#25104
@@ -768,7 +727,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
         OnClick = phwcClick
       end
       object ToolButton6: TToolButton
-        Left = 190
+        Left = 206
         Top = 0
         AutoSize = True
         Caption = #20462#25913#37197#36135
@@ -776,7 +735,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
         OnClick = ToolButton6Click
       end
       object phok: TToolButton
-        Left = 285
+        Left = 309
         Top = 0
         AutoSize = True
         Caption = #37197#36135#30830#35748
@@ -784,7 +743,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
         OnClick = phokClick
       end
       object fh: TToolButton
-        Left = 380
+        Left = 412
         Top = 0
         AutoSize = True
         Caption = #25104#21697#21457#36135
@@ -792,7 +751,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
         OnClick = fhClick
       end
       object ToolButton9: TToolButton
-        Left = 475
+        Left = 515
         Top = 0
         AutoSize = True
         Caption = #25171#21360#26631#31614
@@ -800,7 +759,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
         OnClick = ToolButton9Click
       end
       object del: TToolButton
-        Left = 570
+        Left = 618
         Top = 0
         AutoSize = True
         Caption = #21024#38500
@@ -808,7 +767,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
         OnClick = delClick
       end
       object ToolButton5: TToolButton
-        Left = 641
+        Left = 689
         Top = 0
         AutoSize = True
         Caption = #25972#21333#25764#38144
@@ -816,7 +775,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
         OnClick = ToolButton5Click
       end
       object Tdbchexiao: TToolButton
-        Left = 736
+        Left = 792
         Top = 0
         AutoSize = True
         Caption = #25972#31508#25764#38144
@@ -824,7 +783,7 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
         OnClick = TdbchexiaoClick
       end
       object ToolButton3: TToolButton
-        Left = 831
+        Left = 895
         Top = 0
         AutoSize = True
         Caption = #25764#38144#21457#36135
@@ -832,6 +791,25 @@ inherited frmTradeDispatchedList: TfrmTradeDispatchedList
         OnClick = ToolButton3Click
       end
     end
+    object cxCheckBox2: TcxCheckBox
+      Left = 1167
+      Top = 2
+      ParentBackground = False
+      ParentColor = False
+      ParentFont = False
+      Style.Color = clMenu
+      Style.TransparentBorder = False
+      TabOrder = 3
+      OnClick = cxCheckBox2Click
+    end
+    object CRdate: TcxDateEdit
+      Left = 1036
+      Top = 1
+      EditValue = 45548d
+      ParentFont = False
+      TabOrder = 4
+      Width = 121
+    end
   end
   inherited ADOQueryBaseCmd: TADOQuery
     Connection = DataLink_TradeMarket.ADOLink

项目代码/RTBasicsV1/T05贸易门市管理/U_TradeDispatchedList.pas

@@ -31,7 +31,8 @@ uses
   dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
   dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
   dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
-  dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations;
+  dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, dxScrollbarAnnotations,
+  FrameDateSel, dxCore, cxDateUtils;
 
 type
   TfrmTradeDispatchedList = class(TfrmBaseList)
@@ -49,13 +50,13 @@ type
     ADOQueryTemp: TADOQuery;
     DataSource1: TDataSource;
     Label3: TLabel;
-    TMMNo: TEdit;
+    TMMNo: TcxTextEdit;
     v1OrdDate: TcxGridDBColumn;
     v1DeliveryDate: TcxGridDBColumn;
     Order_Main: TClientDataSet;
     TBCK: TToolButton;
     Label12: TLabel;
-    MPRTKZ: TEdit;
+    MPRTKZ: TcxTextEdit;
     ADOQuerySub: TADOQuery;
     DataSource2: TDataSource;
     TBFJ: TToolButton;
@@ -70,7 +71,7 @@ type
     N3: TMenuItem;
     N4: TMenuItem;
     Label1: TLabel;
-    CustName: TEdit;
+    CustName: TcxTextEdit;
     Tv1Column6: TcxGridDBColumn;
     cxgrdpmn2: TcxGridPopupMenu;
     Tv1Column2: TcxGridDBColumn;
@@ -78,7 +79,7 @@ type
     Tv1Column11: TcxGridDBColumn;
     Tv1Column1: TcxGridDBColumn;
     Label2: TLabel;
-    C_Name: TEdit;
+    C_Name: TcxTextEdit;
     CDS_WXTS: TClientDataSet;
     ToolButton2: TToolButton;
     PM_1: TPopupMenu;
@@ -93,9 +94,7 @@ type
     Label14: TLabel;
     Label15: TLabel;
     Panel4: TPanel;
-    Edit1: TEdit;
+    Edit1: TcxTextEdit;
-    CRdate: TDateTimePicker;
-    CheckBox2: TCheckBox;
     ADO_PH: TADOQuery;
     DS_PH: TDataSource;
     CDS_PH: TClientDataSet;
@@ -138,13 +137,14 @@ type
     RM1: TRMGridReport;
     ToolButton5: TToolButton;
     Tdbchexiao: TToolButton;
-    CheckBox3: TCheckBox;
     ToolButton1: TToolButton;
     ToolButton3: TToolButton;
-    BegDate: TDateTimePicker;
+    cxCheckBox1: TcxCheckBox;
-    EndDate: TDateTimePicker;
+    cxCheckBox2: TcxCheckBox;
-    ComboBox1: TComboBox;
+    frmFrameDateSel1: TfrmFrameDateSel;
-    CheckBox1: TCheckBox;
+    Label4: TLabel;
+    Label5: TLabel;
+    CRdate: TcxDateEdit;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -155,7 +155,6 @@ type
     procedure FormShow(Sender: TObject);
     procedure TBTPClick(Sender: TObject);
     procedure CheckBox1Click(Sender: TObject);
-    procedure CheckBox2Click(Sender: TObject);
     procedure TBCKClick(Sender: TObject);
     procedure TMMNoKeyPress(Sender: TObject; var Key: Char);
     procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
@@ -179,9 +178,10 @@ type
     procedure ToolButton9Click(Sender: TObject);
     procedure delClick(Sender: TObject);
     procedure TdbchexiaoClick(Sender: TObject);
-    procedure CheckBox3Click(Sender: TObject);
     procedure ToolButton1Click(Sender: TObject);
     procedure ToolButton3Click(Sender: TObject);
+    procedure cxCheckBox1Click(Sender: TObject);
+    procedure cxCheckBox2Click(Sender: TObject);
   private
     DQdate: TDateTime;
     MSubIds: string;
@@ -339,7 +339,7 @@ begin
   inherited;
   cxgrid1.Align := alClient;
   DQdate := SGetServerDate(ADOQueryTemp);
-  CRdate.DateTime := DQdate;
+  CRdate.Date := DQdate;
 end;
 
 procedure TfrmTradeDispatchedList.TBCloseClick(Sender: TObject);
@@ -382,26 +382,26 @@ begin
       sql.add(' from Trade_Market_Sub B');
       sql.add(' inner join Trade_Market_Main A on B.TMMID=A.TMMID ');
 
-      if (ComboBox1.Text = '制单日期') and (CheckBox1.Checked = True) then
+      if (cxComboBox1.Text = '制单日期') and (cxCheckBox3.Checked = True) then
       begin
-        sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
+        sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date))));
-        sql.add(' and  A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
+        sql.add(' and  A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
       end;
-      if (ComboBox1.Text = '制单日期') and (CheckBox1.Checked = False) then
+      if (cxComboBox1.Text = '制单日期') and (cxCheckBox3.Checked = False) then
       begin
-        sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime - 39999))));
+        sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date - 39999))));
-        sql.add(' and  A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
+        sql.add(' and  A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
       end;
 
-      if (ComboBox1.Text = '交货日期') and (CheckBox1.Checked = True) then
+      if (cxComboBox1.Text = '交货日期') and (cxCheckBox3.Checked = True) then
       begin
-        sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
+        sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date))));
-        sql.add(' and  A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
+        sql.add(' and  A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
       end;
-      if (ComboBox1.Text = '交货日期') and (CheckBox1.Checked = False) then
+      if (cxComboBox1.Text = '交货日期') and (cxCheckBox3.Checked = False) then
       begin
-        sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime - 39999))));
+        sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date - 39999))));
-        sql.add(' and  A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
+        sql.add(' and  A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
       end;
 
       if canshu1 = '录入' then
@@ -487,7 +487,7 @@ begin
       Close;
       sql.Clear;
       sql.Add('exec Order_QryList :TMMId,:WSql');
-      Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''';
+      Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.EndDate.Date + 1)) + '''';
       Open;
     end;
     SCreateCDS(ADOQueryMain, Order_Main);
@@ -501,8 +501,8 @@ procedure TfrmTradeDispatchedList.InitForm();
 begin
   ReadCxGrid('指示单列表FF1', Tv1, '生产指示单管理');
   ReadCxGrid('指示单列表FFTv21', Tv2, '生产指示单管理');
-  BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 180;
+  frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 180;
-  EndDate.DateTime := SGetServerDate(ADOQueryTemp);
+  frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
 
   SetStatus();
   InitGrid();
@@ -595,46 +595,9 @@ begin
   InitGrid();
 end;
 
-procedure TfrmTradeDispatchedList.CheckBox2Click(Sender: TObject);
-begin
-  if CDS_PH.IsEmpty then
-    exit;
-  with CDS_PH do
-  begin
-    DisableControls;
-    first;
-    while not eof do
-    begin
-      edit;
-      fieldbyname('ssel').Value := checkbox2.Checked;
-      post;
-      next;
-    end;
-    First;
-    EnableControls;
-  end;
-end;
 
-procedure TfrmTradeDispatchedList.CheckBox3Click(Sender: TObject);
+
-begin
+
-  inherited;
-  if Order_Main.IsEmpty then
-    exit;
-  with Order_Main do
-  begin
-    DisableControls;
-    first;
-    while not eof do
-    begin
-      edit;
-      fieldbyname('ssel').Value := checkbox1.Checked;
-      post;
-      next;
-    end;
-    First;
-    EnableControls;
-  end;
-end;
 
 procedure TfrmTradeDispatchedList.TBCKClick(Sender: TObject);
 begin
@@ -833,7 +796,7 @@ begin
       Sql.Clear;
       Sql.Add('exec P_Trade_Cloth_Out ');
       Sql.Add(' @StkIds=' + quotedstr(trim(MStkIds)));
-      Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRDate.DateTime)));
+      Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRDate.Date)));
       Sql.Add(',@IOType=' + Quotedstr('配货出库'));
       Sql.Add(',@IONO=' + Quotedstr(maxno));
       Sql.Add(',@FillId=' + Quotedstr(DCode));
@@ -864,7 +827,7 @@ begin
       TBPrint1.Click;
     end;
     TBRafresh.Click;
-    CRdate.DateTime := DQdate;
+    CRdate.Date := DQdate;
   except
     CDS_ph.EnableControls;
     Order_Main.EnableControls;
@@ -1002,6 +965,47 @@ begin
   end;
 end;
 
+procedure TfrmTradeDispatchedList.cxCheckBox1Click(Sender: TObject);
+begin
+  inherited;
+  if Order_Main.IsEmpty then
+    exit;
+  with Order_Main do
+  begin
+    DisableControls;
+    first;
+    while not eof do
+    begin
+      edit;
+      fieldbyname('ssel').Value := cxcheckbox1.Checked;
+      post;
+      next;
+    end;
+    First;
+    EnableControls;
+  end;
+end;
+
+procedure TfrmTradeDispatchedList.cxCheckBox2Click(Sender: TObject);
+begin
+  if CDS_PH.IsEmpty then
+    exit;
+  with CDS_PH do
+  begin
+    DisableControls;
+    first;
+    while not eof do
+    begin
+      edit;
+      fieldbyname('ssel').Value := cxcheckbox2.Checked;
+      post;
+      next;
+    end;
+    First;
+    EnableControls;
+  end;
+end;
+
 procedure TfrmTradeDispatchedList.cxTabControl1Change(Sender: TObject);
 begin
   SetStatus();

项目代码/RTBasicsV1/T05贸易门市管理/U_TradeDispatchedSel.dfm

@@ -5,7 +5,6 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
   ClientHeight = 562
   ClientWidth = 1540
   Position = poScreenCenter
-  ExplicitLeft = -70
   ExplicitWidth = 1556
   ExplicitHeight = 601
   PixelsPerInch = 96
@@ -15,18 +14,18 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
     Left = 0
     Top = 0
     Width = 1540
-    Height = 38
+    Height = 30
     AutoSize = True
-    ButtonHeight = 38
+    ButtonHeight = 30
-    ButtonWidth = 91
+    ButtonWidth = 99
     Caption = 'ToolBar1'
     Color = clBtnFace
     Font.Charset = GB2312_CHARSET
     Font.Color = clWindowText
-    Font.Height = -12
+    Font.Height = -16
-    Font.Name = #23435#20307
+    Font.Name = #24494#36719#38597#40657
     Font.Style = []
-    Images = DataLink_TradeMarket.ImageList_new32
+    Images = DataLink_TradeMarket.cxImageList_bar
     List = True
     ParentColor = False
     ParentFont = False
@@ -49,7 +48,7 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
       OnClick = ToolButton2Click
     end
     object TBClose: TToolButton
-      Left = 166
+      Left = 174
       Top = 0
       AutoSize = True
       Caption = #20851#38381
@@ -59,9 +58,9 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
   end
   object Panel1: TPanel [1]
     Left = 0
-    Top = 38
+    Top = 30
     Width = 1540
-    Height = 51
+    Height = 86
     Align = alTop
     BevelInner = bvRaised
     BevelOuter = bvLowered
@@ -69,153 +68,172 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
     ParentBackground = False
     TabOrder = 1
     object Label3: TLabel
-      Left = 317
+      Left = 221
-      Top = 20
+      Top = 49
-      Width = 52
+      Width = 64
-      Height = 12
+      Height = 22
       Caption = #22823#36135#21333#21495
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
-      Font.Height = -12
+      Font.Height = -16
-      Font.Name = #23435#20307
+      Font.Name = #24494#36719#38597#40657
       Font.Style = [fsBold]
       ParentFont = False
     end
     object Label12: TLabel
-      Left = 613
+      Left = 675
-      Top = 119
+      Top = 49
-      Width = 26
+      Width = 32
-      Height = 12
+      Height = 22
       Caption = #20811#37325
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
-      Font.Height = -12
+      Font.Height = -16
-      Font.Name = #23435#20307
+      Font.Name = #24494#36719#38597#40657
       Font.Style = [fsBold]
       ParentFont = False
     end
     object Label1: TLabel
-      Left = 637
+      Left = 543
-      Top = 20
+      Top = 49
-      Width = 26
+      Width = 32
-      Height = 12
+      Height = 22
       Caption = #23458#25143
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
-      Font.Height = -12
+      Font.Height = -16
-      Font.Name = #23435#20307
+      Font.Name = #24494#36719#38597#40657
       Font.Style = [fsBold]
       ParentFont = False
     end
     object Label2: TLabel
-      Left = 478
+      Left = 382
-      Top = 20
+      Top = 49
-      Width = 52
+      Width = 64
-      Height = 12
+      Height = 22
       Caption = #20135#21697#21517#31216
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
-      Font.Height = -12
+      Font.Height = -16
-      Font.Name = #23435#20307
+      Font.Name = #24494#36719#38597#40657
       Font.Style = [fsBold]
       ParentFont = False
     end
-    object BegDate: TDateTimePicker
+    object Label4: TLabel
-      Left = 128
+      Left = 783
-      Top = 16
+      Top = 49
-      Width = 85
+      Width = 32
-      Height = 20
+      Height = 22
-      Date = 40675.000000000000000000
+      Caption = #20840#36873
-      Format = 'yyyy-MM-dd'
+      Font.Charset = GB2312_CHARSET
-      Time = 0.464742650459811600
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #24494#36719#38597#40657
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object TMMNo: TcxTextEdit
+      Tag = 2
+      Left = 295
+      Top = 45
+      ParentFont = False
       TabOrder = 0
-    end
-    object EndDate: TDateTimePicker
-      Left = 219
-      Top = 16
-      Width = 86
-      Height = 20
-      Date = 40675.000000000000000000
-      Format = 'yyyy-MM-dd'
-      Time = 0.464761099538009200
-      TabOrder = 2
-    end
-    object TMMNo: TEdit
-      Tag = 2
-      Left = 375
-      Top = 16
-      Width = 77
-      Height = 21
-      TabOrder = 1
       OnKeyPress = TMMNoKeyPress
+      Width = 77
     end
-    object MPRTKZ: TEdit
+    object MPRTKZ: TcxTextEdit
       Tag = 2
-      Left = 654
+      Left = 717
-      Top = 99
+      Top = 46
+      ParentFont = False
+      TabOrder = 1
       Width = 56
-      Height = 21
-      TabOrder = 3
     end
-    object ComboBox1: TComboBox
+    object CustName: TcxTextEdit
-      Left = 49
+      Tag = 2
-      Top = 16
+      Left = 585
-      Width = 71
+      Top = 45
-      Height = 21
+      ParentFont = False
-      Enabled = False
+      TabOrder = 2
+      OnKeyPress = TMMNoKeyPress
+      Width = 80
+    end
+    object C_Name: TcxTextEdit
+      Tag = 2
+      Left = 456
+      Top = 45
+      ParentFont = False
+      TabOrder = 3
+      OnKeyPress = TMMNoKeyPress
+      Width = 77
+    end
+    object checkbox1: TcxCheckBox
+      Left = 826
+      Top = 45
+      ParentFont = False
+      Style.TransparentBorder = False
       TabOrder = 4
-      Text = #21046#21333#26085#26399
+      OnClick = cxCheckBox1Click
-      OnChange = ComboBox1Change
+    end
-      Items.Strings = (
+    inline frmFrameDateSel1: TfrmFrameDateSel
+      Left = 2
+      Top = 2
+      Width = 1536
+      Height = 37
+      Align = alTop
+      Color = clWhite
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #24494#36719#38597#40657
+      Font.Style = []
+      ParentBackground = False
+      ParentColor = False
+      ParentFont = False
+      TabOrder = 5
+      ExplicitLeft = 2
+      ExplicitTop = 2
+      ExplicitWidth = 1536
+    end
+    object cxComboBox1: TcxComboBox
+      Left = 90
+      Top = 45
+      ParentFont = False
+      Properties.Items.Strings = (
         #21046#21333#26085#26399
         #20132#36135#26085#26399)
-    end
-    object CustName: TEdit
-      Tag = 2
-      Left = 669
-      Top = 16
-      Width = 80
-      Height = 21
-      TabOrder = 5
-      OnKeyPress = TMMNoKeyPress
-    end
-    object C_Name: TEdit
-      Tag = 2
-      Left = 533
-      Top = 16
-      Width = 77
-      Height = 21
       TabOrder = 6
-      OnKeyPress = TMMNoKeyPress
+      Text = #21046#21333#26085#26399
+      Width = 121
     end
-    object CheckBox1: TCheckBox
+    object CheckBox2: TcxCheckBox
-      Left = 28
+      Left = 59
-      Top = 18
+      Top = 42
-      Width = 19
+      ParentFont = False
-      Height = 17
+      State = cbsChecked
-      Checked = True
+      Style.TransparentBorder = False
-      State = cbChecked
       TabOrder = 7
-    end
+      OnClick = CheckBox2Click
-    object CheckBox3: TCheckBox
-      Left = 776
-      Top = 16
-      Width = 99
-      Height = 19
-      Caption = #20840#36873
-      TabOrder = 8
-      OnClick = CheckBox3Click
     end
   end
   object cxGrid1: TcxGrid [2]
     Left = 0
-    Top = 111
+    Top = 143
     Width = 1540
-    Height = 451
+    Height = 419
     Align = alClient
+    Font.Charset = ANSI_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #24494#36719#38597#40657
+    Font.Style = []
+    ParentFont = False
     TabOrder = 2
+    ExplicitTop = 158
+    ExplicitHeight = 404
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
       OnCellDblClick = Tv1CellDblClick
       DataController.DataSource = DataSource1
       DataController.Filter.AutoDataSetFilter = True
@@ -235,78 +253,78 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
       OptionsView.Footer = True
       OptionsView.GroupByBox = False
       OptionsView.IndicatorWidth = 30
-      Styles.Content = DataLink_TradeMarket.Default
-      Styles.IncSearch = DataLink_TradeMarket.SHuangSe
-      Styles.Footer = DataLink_TradeMarket.Default
-      Styles.Header = DataLink_TradeMarket.Default
-      Styles.Inactive = DataLink_TradeMarket.SHuangSe
-      Styles.Selection = DataLink_TradeMarket.SHuangSe
       object Tv1Column14: TcxGridDBColumn
         Caption = #22823#36135#21333#21495
         DataBinding.FieldName = 'TMMNO'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 70
       end
       object v1OrdDate: TcxGridDBColumn
         Caption = #21046#21333#26085#26399
         DataBinding.FieldName = 'OrdDate'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxDateEditProperties'
         Properties.ShowTime = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_TradeMarket.Default
         Width = 66
       end
       object Tv1Column2: TcxGridDBColumn
         Caption = #32463#33829#21333#20301
         DataBinding.FieldName = 'OurCoName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_TradeMarket.FontBlue
         Width = 66
       end
       object Tv1Column4: TcxGridDBColumn
         Caption = #23458#25143
         DataBinding.FieldName = 'CustName'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_TradeMarket.FoneClMaroon
         Width = 66
       end
       object v1DeliveryDate: TcxGridDBColumn
         Caption = #20132#36135#26085#26399
         DataBinding.FieldName = 'DlyDate'
+        DataBinding.IsNullValueType = True
         PropertiesClassName = 'TcxDateEditProperties'
         Properties.ShowTime = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_TradeMarket.Default
         Width = 66
       end
       object Tv1Column9: TcxGridDBColumn
         Caption = #32534#21495
         DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
       object Tv1Column12: TcxGridDBColumn
         Caption = #21697#21517
         DataBinding.FieldName = 'C_Name'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
       object Tv1Column13: TcxGridDBColumn
         Caption = #20013#25991#39068#33394
         DataBinding.FieldName = 'C_Color'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
       end
       object Tv1Column15: TcxGridDBColumn
         Caption = #33457#22411
         DataBinding.FieldName = 'C_Pattern'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 70
       end
       object Tv1Column11: TcxGridDBColumn
         Caption = #21305#25968
         DataBinding.FieldName = 'TMSPiece'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -314,6 +332,7 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
       object Tv1Column10: TcxGridDBColumn
         Caption = #25968#37327
         DataBinding.FieldName = 'TMSQty'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Options.Editing = False
@@ -322,14 +341,17 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
       object Tv1Column7: TcxGridDBColumn
         Caption = #37197#36135#21305#25968
         DataBinding.FieldName = 'PHRollNum'
+        DataBinding.IsNullValueType = True
       end
       object Tv1Column8: TcxGridDBColumn
         Caption = #37197#36135#25968#37327
         DataBinding.FieldName = 'PHQty'
+        DataBinding.IsNullValueType = True
       end
       object v1Column11: TcxGridDBColumn
         Caption = #21333#20301
         DataBinding.FieldName = 'OrdUnit'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         HeaderGlyphAlignmentHorz = taCenter
         Options.Editing = False
@@ -338,6 +360,7 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
       object Tv1Column6: TcxGridDBColumn
         Caption = #21046#21333#20154
         DataBinding.FieldName = 'FILLER'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -345,6 +368,7 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
       object Tv1Column1: TcxGridDBColumn
         Caption = #22791#27880
         DataBinding.FieldName = 'Note'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
         Width = 66
@@ -352,12 +376,14 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
       object Tv1Column3: TcxGridDBColumn
         Caption = #21457#36135#22320#22336
         DataBinding.FieldName = 'ShippingAddress'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 134
       end
       object Tv1Column5: TcxGridDBColumn
         Caption = #32852#31995#26041#24335
         DataBinding.FieldName = 'CONTACT'
+        DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Width = 80
       end
@@ -368,11 +394,17 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
   end
   object cxTabControl1: TcxTabControl [3]
     Left = 0
-    Top = 89
+    Top = 116
     Width = 1540
-    Height = 22
+    Height = 27
     Align = alTop
     Enabled = False
+    Font.Charset = ANSI_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #24494#36719#38597#40657
+    Font.Style = []
+    ParentFont = False
     TabOrder = 3
     Properties.CustomButtons.Buttons = <>
     Properties.Style = 9
@@ -383,6 +415,7 @@ inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
       #24050#21457#36135
       #20840#37096)
     OnChange = cxTabControl1Change
+    ExplicitTop = 131
     ClientRectRight = 0
     ClientRectTop = 0
   end

项目代码/RTBasicsV1/T05贸易门市管理/U_TradeDispatchedSel.pas

@@ -16,7 +16,7 @@ uses
   cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
   dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
   IdExplicitTLSClientServerBase, U_BaseHelp, Vcl.Clipbrd, U_BaseList,
-  System.ImageList, Vcl.ImgList;
+  System.ImageList, Vcl.ImgList, dxSkinWXI, dxScrollbarAnnotations, FrameDateSel;
 
 type
   TfrmTradeDispatchedSel = class(TfrmBaseHelp)
@@ -24,8 +24,6 @@ type
     TBRafresh: TToolButton;
     TBClose: TToolButton;
     Panel1: TPanel;
-    BegDate: TDateTimePicker;
-    EndDate: TDateTimePicker;
     Tv1: TcxGridDBTableView;
     cxGrid1Level1: TcxGridLevel;
     cxGrid1: TcxGrid;
@@ -34,28 +32,26 @@ type
     ADOQueryTemp: TADOQuery;
     DataSource1: TDataSource;
     Label3: TLabel;
-    TMMNo: TEdit;
+    TMMNo: TcxTextEdit;
     v1OrdDate: TcxGridDBColumn;
     v1DeliveryDate: TcxGridDBColumn;
     Order_Main: TClientDataSet;
     Label12: TLabel;
-    MPRTKZ: TEdit;
+    MPRTKZ: TcxTextEdit;
     ADOQuerySub: TADOQuery;
     DataSource2: TDataSource;
     IdFTP1: TIdFTP;
     v1Column11: TcxGridDBColumn;
     ORDER_SUB: TClientDataSet;
-    ComboBox1: TComboBox;
     Label1: TLabel;
-    CustName: TEdit;
+    CustName: TcxTextEdit;
     Tv1Column6: TcxGridDBColumn;
     Tv1Column2: TcxGridDBColumn;
     Tv1Column10: TcxGridDBColumn;
     Tv1Column11: TcxGridDBColumn;
     Tv1Column1: TcxGridDBColumn;
     Label2: TLabel;
-    C_Name: TEdit;
+    C_Name: TcxTextEdit;
-    CheckBox1: TCheckBox;
     ToolButton2: TToolButton;
     Tv1Column4: TcxGridDBColumn;
     Tv1Column3: TcxGridDBColumn;
@@ -68,7 +64,11 @@ type
     Tv1Column13: TcxGridDBColumn;
     Tv1Column14: TcxGridDBColumn;
     Tv1Column15: TcxGridDBColumn;
-    CheckBox3: TCheckBox;
+    Label4: TLabel;
+    frmFrameDateSel1: TfrmFrameDateSel;
+    cxComboBox1: TcxComboBox;
+    CheckBox2: TcxCheckBox;
+    checkbox1: TcxCheckBox;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -90,6 +90,9 @@ type
     procedure fhClick(Sender: TObject);
     procedure CheckBox3Click(Sender: TObject);
     procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+    procedure cxCheckBox1Click(Sender: TObject);
+    procedure Click(Sender: TObject);
+    procedure CheckBox2Click(Sender: TObject);
   private
     DQdate: TDateTime;
     MSubIds: string;
@@ -209,26 +212,26 @@ begin
       sql.add(' from Trade_Market_Sub B');
       sql.add(' inner join Trade_Market_Main A on B.TMMID=A.TMMID ');
 
-      if (ComboBox1.Text = '制单日期') and (CheckBox1.Checked = True) then
+      if (cxComboBox1.Text = '制单日期') and (CheckBox2.Checked = True) then
       begin
-        sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
+        sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date))));
-        sql.add(' and  A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
+        sql.add(' and  A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
       end;
-      if (ComboBox1.Text = '制单日期') and (CheckBox1.Checked = False) then
+      if (cxComboBox1.Text = '制单日期') and (CheckBox2.Checked = False) then
       begin
-        sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime - 39999))));
+        sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date - 39999))));
-        sql.add(' and  A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
+        sql.add(' and  A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
       end;
 
-      if (ComboBox1.Text = '交货日期') and (CheckBox1.Checked = True) then
+      if (cxComboBox1.Text = '交货日期') and (CheckBox2.Checked = True) then
       begin
-        sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
+        sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date))));
-        sql.add(' and  A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
+        sql.add(' and  A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
       end;
-      if (ComboBox1.Text = '交货日期') and (CheckBox1.Checked = False) then
+      if (cxComboBox1.Text = '交货日期') and (CheckBox2.Checked = False) then
       begin
-        sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime - 39999))));
+        sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date - 39999))));
-        sql.add(' and  A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
+        sql.add(' and  A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
       end;
 
       if canshu1 = '录入' then
@@ -268,7 +271,7 @@ begin
       Close;
       sql.Clear;
       sql.Add('exec Order_QryList :TMMId,:WSql');
-      Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', EndDate.DateTime + 1)) + '''';
+      Parameters.ParamByName('WSql').Value := ' and FillTime>=''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date)) + '''' + ' and FillTime<''' + Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.EndDate.Date + 1)) + '''';
       Open;
     end;
     SCreateCDS(ADOQueryMain, Order_Main);
@@ -281,8 +284,8 @@ end;
 procedure TfrmTradeDispatchedSel.InitForm();
 begin
   ReadCxGrid('指示单列表FF1', Tv1, '生产指示单管理');
-  BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 180;
+  frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 180;
-  EndDate.DateTime := SGetServerDate(ADOQueryTemp);
+  frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
 
   SetStatus();
   InitGrid();
@@ -352,6 +355,11 @@ begin
   InitGrid();
 end;
 
+procedure TfrmTradeDispatchedSel.CheckBox2Click(Sender: TObject);
+begin
+InitGrid();
+end;
+
 procedure TfrmTradeDispatchedSel.CheckBox3Click(Sender: TObject);
 begin
   inherited;
@@ -373,6 +381,11 @@ begin
   end;
 end;
 
+procedure TfrmTradeDispatchedSel.Click(Sender: TObject);
+begin
+  InitGrid();
+end;
+
 procedure TfrmTradeDispatchedSel.TMMNoKeyPress(Sender: TObject; var Key: Char);
 begin
 
@@ -391,6 +404,27 @@ begin
 
 end;
 
+procedure TfrmTradeDispatchedSel.cxCheckBox1Click(Sender: TObject);
+begin
+  inherited;
+  if Order_Main.IsEmpty then
+    exit;
+  with Order_Main do
+  begin
+    DisableControls;
+    first;
+    while not eof do
+    begin
+      edit;
+      fieldbyname('ssel').Value := checkbox1.Checked;
+      post;
+      next;
+    end;
+    First;
+    EnableControls;
+  end;
+end;
+
 procedure TfrmTradeDispatchedSel.cxTabControl1Change(Sender: TObject);
 begin
   SetStatus();

项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketDisScan.dfm

@@ -1,4 +1,4 @@
-inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
+inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
   Left = 143
   Top = 4
   Caption = #25195#25551#37197#36135
@@ -19,20 +19,20 @@ inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
     Left = 0
     Top = 0
     Width = 1540
-    Height = 38
+    Height = 30
     AutoSize = True
-    ButtonHeight = 38
+    ButtonHeight = 30
-    ButtonWidth = 91
+    ButtonWidth = 99
     Caption = 'ToolBar1'
     Color = clWhite
     EdgeInner = esNone
     EdgeOuter = esNone
     Font.Charset = GB2312_CHARSET
     Font.Color = clWindowText
-    Font.Height = -12
+    Font.Height = -16
-    Font.Name = #23435#20307
+    Font.Name = #24494#36719#38597#40657
     Font.Style = []
-    Images = DataLink_TradeMarket.ImageList_new32
+    Images = DataLink_TradeMarket.cxImageList_bar
     List = True
     ParentColor = False
     ParentFont = False
@@ -54,7 +54,7 @@ inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
       ImageIndex = 16
     end
     object TBClose: TToolButton
-      Left = 166
+      Left = 174
       Top = 0
       AutoSize = True
       Caption = #20851#38381
@@ -81,90 +81,74 @@ inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
   end
   object Panel1: TPanel [2]
     Left = 0
-    Top = 38
+    Top = 30
     Width = 1540
     Height = 75
     Align = alTop
     BevelInner = bvRaised
     BevelOuter = bvLowered
     Color = clSkyBlue
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #24494#36719#38597#40657
+    Font.Style = []
+    ParentFont = False
     TabOrder = 2
     object Label1: TLabel
       Left = 24
       Top = 24
-      Width = 100
+      Width = 64
-      Height = 24
+      Height = 21
       Caption = #26465#30721#32534#21495
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clBlue
-      Font.Height = -24
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      ParentFont = False
     end
     object Label15: TLabel
-      Left = 428
+      Left = 426
-      Top = 28
+      Top = 24
-      Width = 80
+      Width = 64
-      Height = 20
+      Height = 21
       Caption = #37197#36135#20154#21592
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -20
-      Font.Name = #23435#20307
-      Font.Style = []
-      ParentFont = False
     end
-    object SmNO: TEdit
+    object SmNO: TcxTextEdit
       Left = 130
-      Top = 20
+      Top = 18
-      Width = 153
-      Height = 32
-      CharCase = ecUpperCase
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clBlue
-      Font.Height = -24
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      ParentFont = False
       TabOrder = 0
       OnKeyPress = SmNOKeyPress
+      Width = 153
     end
-    object PHYG: TBtnEditA
+    object cxButton1: TcxButton
-      Left = 508
+      Left = 283
-      Top = 24
+      Top = 19
-      Width = 100
+      Width = 79
-      Height = 29
+      Height = 31
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -20
-      Font.Name = #23435#20307
-      Font.Style = []
-      ParentFont = False
-      TabOrder = 1
-    end
-    object Button1: TButton
-      Left = 281
-      Top = 20
-      Width = 75
-      Height = 33
       Caption = #36873#25321
-      Font.Charset = GB2312_CHARSET
+      TabOrder = 1
-      Font.Color = clWindowText
+      OnClick = cxButton1Click
-      Font.Height = -24
+    end
-      Font.Name = #23435#20307
+    object cxButtonEdit1: TcxButtonEdit
-      Font.Style = []
+      Left = 511
-      ParentFont = False
+      Top = 18
+      Properties.Buttons = <
+        item
+          Default = True
+          Kind = bkEllipsis
+        end>
       TabOrder = 2
-      OnClick = Button1Click
+      Width = 116
     end
   end
   object cxGrid1: TcxGrid [3]
     Left = 0
-    Top = 113
+    Top = 105
     Width = 713
-    Height = 537
+    Height = 545
     Align = alLeft
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #24494#36719#38597#40657
+    Font.Style = []
+    ParentFont = False
     TabOrder = 3
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
@@ -272,10 +256,16 @@ inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
   end
   object cxGrid2: TcxGrid [4]
     Left = 713
-    Top = 113
+    Top = 105
     Width = 827
-    Height = 537
+    Height = 545
     Align = alClient
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #24494#36719#38597#40657
+    Font.Style = []
+    ParentFont = False
     TabOrder = 4
     object TV2: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
@@ -404,8 +394,8 @@ inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
     end
   end
   object MovePanel1: TMovePanel [5]
-    Left = 28
+    Left = 63
-    Top = 345
+    Top = 303
     Width = 561
     Height = 305
     BevelInner = bvLowered
@@ -425,30 +415,29 @@ inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
       Font.Style = [fsBold]
       ParentFont = False
     end
-    object Edit2: TEdit
+    object Edit2: TcxTextEdit
       Left = 85
       Top = 35
-      Width = 386
-      Height = 72
       Enabled = False
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clRed
-      Font.Height = -64
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
       ParentFont = False
-      ReadOnly = True
       TabOrder = 0
       Text = '91209120001'
+      Width = 386
     end
-    object Button4: TButton
+    object 关闭: TcxButton
-      Left = 224
+      Left = 211
-      Top = 248
+      Top = 233
-      Width = 75
+      Width = 111
-      Height = 41
+      Height = 49
       Caption = #20851#38381
       TabOrder = 1
-      OnClick = Button4Click
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #24494#36719#38597#40657
+      Font.Style = [fsBold]
+      ParentFont = False
+      OnClick = 关闭Click
     end
   end
   inherited ADOQueryBaseCmd: TADOQuery

项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketDisScan.pas

@@ -31,7 +31,7 @@ uses
   dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
   dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
   dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
-  dxSkinXmas2008Blue, dxScrollbarAnnotations;
+  dxSkinXmas2008Blue, dxScrollbarAnnotations, cxButtons;
 
 type
   TfrmTradeMarketDisScan = class(TfrmBaseInput)
@@ -69,12 +69,10 @@ type
     cxGridLevel1: TcxGridLevel;
     MovePanel1: TMovePanel;
     Label2: TLabel;
-    Edit2: TEdit;
+    Edit2: TcxTextEdit;
-    Button4: TButton;
     Label1: TLabel;
-    SmNO: TEdit;
+    SmNO: TcxTextEdit;
     Label15: TLabel;
-    PHYG: TBtnEditA;
     cxStyleRepository1: TcxStyleRepository;
     cxStyle1: TcxStyle;
     cxStyle2: TcxStyle;
@@ -105,7 +103,9 @@ type
     RM1: TRMGridReport;
     Tv1Column2: TcxGridDBColumn;
     TV2Column1: TcxGridDBColumn;
-    Button1: TButton;
+    ¹Ø±Õ: TcxButton;
+    cxButton1: TcxButton;
+    cxButtonEdit1: TcxButtonEdit;
     procedure TBCloseClick(Sender: TObject);
     procedure CustomerNoNameBtnDnClick(Sender: TObject);
     procedure TBRafreshClick(Sender: TObject);
@@ -115,6 +115,8 @@ type
     procedure TBSaveClick(Sender: TObject);
     procedure Button4Click(Sender: TObject);
     procedure Button1Click(Sender: TObject);
+    procedure ¹Ø±ÕClick(Sender: TObject);
+    procedure cxButton1Click(Sender: TObject);
   private
     fCode, fColor, FPattern: string;
     function SaveData(): Boolean;
@@ -185,7 +187,7 @@ begin
           ADOQueryCmd.FieldByName('TMSID').Value := trim(cdsmjid.fieldbyname('TMSID').AsString);
           ADOQueryCmd.FieldByName('STKID').Value := trim(cdsmjid.fieldbyname('STKID').AsString);
           ADOQueryCmd.FieldByName('Filler').Value := trim(DName);
-          ADOQueryCmd.FieldByName('PHYG').Value := trim(PHYG.Text);
+//          ADOQueryCmd.FieldByName('PHYG').Value := trim(PHYG.Text);
           ADOQueryCmd.FieldByName('TMDType').Value := 'ɨÃèÅä»õ';
           ADOQueryCmd.Post;
 
@@ -316,6 +318,12 @@ begin
   end;
 end;
 
+procedure TfrmTradeMarketDisScan.¹Ø±ÕClick(Sender: TObject);
+begin
+  inherited;
+  MovePanel1.Visible := False;
+end;
+
 procedure TfrmTradeMarketDisScan.Button1Click(Sender: TObject);
 var
   key: Char;
@@ -348,6 +356,26 @@ begin
   TBtnEditC(Sender).TxtCode := '';
 end;
 
+procedure TfrmTradeMarketDisScan.cxButton1Click(Sender: TObject);
+var
+  key: Char;
+begin
+  inherited;
+  key := #13;
+  frmTradeDispatchedSel := TfrmTradeDispatchedSel.create(self);
+  with frmTradeDispatchedSel do
+  begin
+
+    if showmodal = 1 then
+    begin
+      smno.Text := trim(Order_Main.FieldByName('TMMID').AsString);
+
+      SmNOKeyPress(smno, key);
+    end;
+    free;
+  end;
+end;
+
 procedure TfrmTradeMarketDisScan.InitOrder();
 var
   fP_No: string;

项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketInPut.dfm

@@ -19,20 +19,20 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
     Left = 0
     Top = 0
     Width = 1540
-    Height = 38
+    Height = 30
     AutoSize = True
-    ButtonHeight = 38
+    ButtonHeight = 30
-    ButtonWidth = 91
+    ButtonWidth = 99
     Caption = 'ToolBar1'
     Color = clWhite
     EdgeInner = esNone
     EdgeOuter = esNone
     Font.Charset = GB2312_CHARSET
     Font.Color = clWindowText
-    Font.Height = -12
+    Font.Height = -16
-    Font.Name = #23435#20307
+    Font.Name = #24494#36719#38597#40657
     Font.Style = []
-    Images = DataLink_TradeMarket.ImageList_new32
+    Images = DataLink_TradeMarket.cxImageList_bar
     List = True
     ParentColor = False
     ParentFont = False
@@ -55,7 +55,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
       OnClick = ToolButton3Click
     end
     object TBClose: TToolButton
-      Left = 166
+      Left = 174
       Top = 0
       AutoSize = True
       Caption = #20851#38381
@@ -65,26 +65,27 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
   end
   object ToolBar2: TToolBar [1]
     Left = 0
-    Top = 217
+    Top = 245
     Width = 1540
-    Height = 34
+    Height = 28
-    ButtonHeight = 38
+    ButtonHeight = 30
-    ButtonWidth = 91
+    ButtonWidth = 99
     Caption = 'ToolBar1'
     Color = clBtnFace
     EdgeInner = esNone
     EdgeOuter = esNone
     Font.Charset = GB2312_CHARSET
     Font.Color = clWindowText
-    Font.Height = -12
+    Font.Height = -16
-    Font.Name = #23435#20307
+    Font.Name = #24494#36719#38597#40657
     Font.Style = []
-    Images = DataLink_TradeMarket.ImageList_new32
+    Images = DataLink_TradeMarket.cxImageList_bar
     List = True
     ParentColor = False
     ParentFont = False
     ShowCaptions = True
     TabOrder = 1
+    ExplicitTop = 213
     object ToolButton4: TToolButton
       Left = 0
       Top = 0
@@ -94,7 +95,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
       OnClick = ToolButton4Click
     end
     object ToolButton1: TToolButton
-      Left = 95
+      Left = 103
       Top = 0
       AutoSize = True
       Caption = #22686#34892
@@ -102,7 +103,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
       OnClick = ToolButton1Click
     end
     object ToolButton2: TToolButton
-      Left = 166
+      Left = 174
       Top = 0
       AutoSize = True
       Caption = #21024#34892
@@ -110,7 +111,7 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
       OnClick = ToolButton2Click
     end
     object ToolButton5: TToolButton
-      Left = 237
+      Left = 245
       Top = 0
       Caption = #19968#38190#26367#25442
       ImageIndex = 17
@@ -119,33 +120,37 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
   end
   object Panel2: TPanel [2]
     Left = 0
-    Top = 251
+    Top = 273
     Width = 1540
-    Height = 399
+    Height = 377
     Align = alClient
     Caption = 'Panel2'
     TabOrder = 2
+    ExplicitTop = 241
+    ExplicitHeight = 409
     object Panel3: TPanel
       Left = 1
       Top = 1
       Width = 900
-      Height = 397
+      Height = 375
       Align = alLeft
       Caption = 'Panel2'
       TabOrder = 0
+      ExplicitHeight = 407
       object cxGrid1: TcxGrid
         Left = 1
         Top = 1
         Width = 898
-        Height = 395
+        Height = 373
         Align = alClient
         Font.Charset = GB2312_CHARSET
         Font.Color = clWindowText
-        Font.Height = -12
+        Font.Height = -16
-        Font.Name = #23435#20307
+        Font.Name = #24494#36719#38597#40657
         Font.Style = []
         ParentFont = False
         TabOrder = 0
+        ExplicitHeight = 405
         object Tv1: TcxGridDBTableView
           Navigator.Buttons.CustomButtons = <>
           ScrollbarAnnotations.CustomAnnotations = <>
@@ -189,11 +194,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
           OptionsData.Deleting = False
           OptionsView.Footer = True
           OptionsView.GroupByBox = False
-          Styles.IncSearch = DataLink_TradeMarket.SHuangSe
-          Styles.Footer = DataLink_TradeMarket.Default
-          Styles.Header = DataLink_TradeMarket.Default
-          Styles.Inactive = DataLink_TradeMarket.SHuangSe
-          Styles.Selection = DataLink_TradeMarket.SHuangSe
           object Tv1Column3: TcxGridDBColumn
             Caption = #24207#21495
             DataBinding.FieldName = 'SerialNo'
@@ -249,7 +249,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
               end>
             Properties.ReadOnly = False
             HeaderAlignmentHorz = taCenter
-            Styles.Header = DataLink_TradeMarket.handBlack
             Width = 116
           end
           object Tv1Column9: TcxGridDBColumn
@@ -295,7 +294,6 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
             DataBinding.IsNullValueType = True
             PropertiesClassName = 'TcxTextEditProperties'
             HeaderAlignmentHorz = taCenter
-            Styles.Header = DataLink_TradeMarket.Default
             Width = 98
           end
           object Tv1Column8: TcxGridDBColumn
@@ -356,73 +354,69 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
       Left = 901
       Top = 1
       Width = 638
-      Height = 397
+      Height = 375
       Align = alClient
       Caption = 'Panel4'
       TabOrder = 1
+      ExplicitHeight = 407
       object Panel5: TPanel
         Left = 1
         Top = 1
         Width = 636
         Height = 41
         Align = alTop
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -16
+        Font.Name = #24494#36719#38597#40657
+        Font.Style = []
+        ParentFont = False
         TabOrder = 0
         object Label33: TLabel
           Left = 20
           Top = 8
-          Width = 44
+          Width = 32
           Height = 21
           Caption = #25968#37327
-          Font.Charset = GB2312_CHARSET
-          Font.Color = clRed
-          Font.Height = -21
-          Font.Name = #23435#20307
-          Font.Style = [fsBold]
-          ParentFont = False
         end
         object Label38: TLabel
           Left = 304
           Top = 8
-          Width = 44
+          Width = 32
           Height = 21
           Caption = #24207#21495
-          Font.Charset = GB2312_CHARSET
-          Font.Color = clRed
-          Font.Height = -21
-          Font.Name = #23435#20307
-          Font.Style = [fsBold]
-          ParentFont = False
         end
-        object QtyMX: TEdit
+        object QtyMX: TcxTextEdit
           Left = 70
-          Top = 9
+          Top = 2
-          Width = 89
-          Height = 22
-          Font.Charset = GB2312_CHARSET
-          Font.Color = clRed
-          Font.Height = -14
-          Font.Name = #23435#20307
-          Font.Style = [fsBold]
-          ParentFont = False
           TabOrder = 0
           OnKeyPress = QtyMXKeyPress
+          Width = 89
         end
       end
       object GroupBox2: TGroupBox
         Left = 1
         Top = 42
         Width = 636
-        Height = 354
+        Height = 332
         Align = alClient
         Caption = #21452#20987#21024#38500#26126#32454#20449#24687
         TabOrder = 1
+        ExplicitHeight = 364
         object cxGrid2: TcxGrid
           Left = 2
           Top = 14
           Width = 632
-          Height = 338
+          Height = 316
           Align = alClient
+          Font.Charset = GB2312_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -16
+          Font.Name = #24494#36719#38597#40657
+          Font.Style = []
+          ParentFont = False
           TabOrder = 0
+          ExplicitHeight = 348
           object TvMX: TcxGridDBTableView
             Navigator.Buttons.CustomButtons = <>
             Navigator.Buttons.Delete.Enabled = False
@@ -498,282 +492,241 @@ inherited frmTradeMarketInPut: TfrmTradeMarketInPut
     object Label22: TLabel
       Left = 112
       Top = 4
-      Width = 45
+      Width = 48
-      Height = 14
+      Height = 22
       Caption = #21305#25968#65306
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #24494#36719#38597#40657
+      Font.Style = [fsBold]
+      ParentFont = False
     end
     object Label23: TLabel
       Left = 212
       Top = 4
-      Width = 45
+      Width = 48
-      Height = 14
+      Height = 22
       Caption = #25968#37327#65306
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #24494#36719#38597#40657
+      Font.Style = [fsBold]
+      ParentFont = False
     end
     object Label29: TLabel
       Left = 12
       Top = 4
-      Width = 45
+      Width = 48
-      Height = 14
+      Height = 22
       Caption = #21333#20215#65306
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #24494#36719#38597#40657
+      Font.Style = [fsBold]
+      ParentFont = False
     end
     object Label34: TLabel
       Left = 335
       Top = 4
-      Width = 45
+      Width = 48
-      Height = 14
+      Height = 22
       Caption = #21305#25968#65306
-      Font.Charset = GB2312_CHARSET
+      Font.Charset = ANSI_CHARSET
-      Font.Color = clBlue
+      Font.Color = clWindowText
-      Font.Height = -14
+      Font.Height = -16
-      Font.Name = #23435#20307
+      Font.Name = #24494#36719#38597#40657
       Font.Style = [fsBold]
       ParentFont = False
     end
     object Label35: TLabel
       Left = 435
       Top = 4
-      Width = 45
+      Width = 48
-      Height = 14
+      Height = 22
       Caption = #25968#37327#65306
-      Font.Charset = GB2312_CHARSET
+      Font.Charset = ANSI_CHARSET
-      Font.Color = clBlue
+      Font.Color = clWindowText
-      Font.Height = -14
+      Font.Height = -16
-      Font.Name = #23435#20307
+      Font.Name = #24494#36719#38597#40657
       Font.Style = [fsBold]
       ParentFont = False
     end
   end
   object ScrollBox1: TScrollBox [4]
     Left = 0
-    Top = 38
+    Top = 30
     Width = 1540
-    Height = 179
+    Height = 215
     Align = alTop
     BevelInner = bvNone
     BevelOuter = bvNone
     BorderStyle = bsNone
     Color = clWhite
     Ctl3D = False
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #24494#36719#38597#40657
+    Font.Style = []
     ParentColor = False
     ParentCtl3D = False
+    ParentFont = False
     TabOrder = 4
     OnClick = ScrollBox1Click
     object Label3: TLabel
-      Left = 404
+      Left = 442
-      Top = 7
+      Top = 10
-      Width = 52
+      Width = 64
-      Height = 15
+      Height = 21
       Caption = #21046#21333#26085#26399
-      Font.Charset = ANSI_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = 'Times New Roman'
-      Font.Style = [fsBold]
-      ParentFont = False
     end
     object Label25: TLabel
-      Left = 215
+      Left = 237
-      Top = 7
+      Top = 10
-      Width = 52
+      Width = 64
-      Height = 15
+      Height = 21
       Caption = #20132#36135#26085#26399
-      Font.Charset = ANSI_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = 'Times New Roman'
-      Font.Style = [fsBold]
-      ParentFont = False
     end
     object Label1: TLabel
       Left = 23
-      Top = 102
+      Top = 133
-      Width = 53
+      Width = 77
-      Height = 15
+      Height = 21
       Caption = #22791'         '#27880
-      Font.Charset = ANSI_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = 'Times New Roman'
-      Font.Style = [fsBold]
-      ParentFont = False
     end
     object Label2: TLabel
-      Left = 37
+      Left = 23
-      Top = 6
+      Top = 10
-      Width = 39
+      Width = 48
-      Height = 15
+      Height = 21
       Caption = #35746#21333#21495
-      Font.Charset = ANSI_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = 'Times New Roman'
-      Font.Style = [fsBold]
-      ParentFont = False
     end
     object Label14: TLabel
-      Left = 217
+      Left = 237
-      Top = 35
+      Top = 56
-      Width = 50
+      Width = 72
-      Height = 15
+      Height = 21
       Caption = #23458'        '#25143
-      Font.Charset = ANSI_CHARSET
-      Font.Color = clMaroon
-      Font.Height = -12
-      Font.Name = 'Times New Roman'
-      Font.Style = [fsBold]
-      ParentFont = False
     end
     object Label20: TLabel
-      Left = 24
+      Left = 23
-      Top = 35
+      Top = 56
-      Width = 52
+      Width = 64
-      Height = 15
+      Height = 21
       Caption = #32463#33829#21333#20301
-      Font.Charset = ANSI_CHARSET
-      Font.Color = clBlue
-      Font.Height = -12
-      Font.Name = 'Times New Roman'
-      Font.Style = [fsBold]
-      ParentFont = False
     end
     object Label19: TLabel
-      Left = 202
+      Left = 237
-      Top = 64
+      Top = 97
-      Width = 65
+      Width = 80
-      Height = 12
+      Height = 21
       Caption = #32852#31995#26041#24335#65306
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      ParentFont = False
     end
     object Label37: TLabel
-      Left = 11
+      Left = 23
-      Top = 64
+      Top = 97
-      Width = 65
+      Width = 80
-      Height = 12
+      Height = 21
       Caption = #35746#21333#31867#22411#65306
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      ParentFont = False
     end
     object Label18: TLabel
-      Left = 404
+      Left = 442
-      Top = 35
+      Top = 56
-      Width = 52
+      Width = 64
-      Height = 12
+      Height = 21
       Caption = #21457#36135#22320#22336
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      ParentFont = False
     end
-    object TMMNo: TEdit
+    object TMMNo: TcxTextEdit
       Tag = 2
-      Left = 78
+      Left = 109
-      Top = 6
+      Top = 3
-      Width = 100
-      Height = 18
       TabOrder = 0
+      Width = 122
     end
-    object TMMDate: TDateTimePicker
+    object DLYDate: TcxDateEdit
-      Tag = 2
+      Left = 311
-      Left = 458
       Top = 4
-      Width = 100
-      Height = 20
-      BevelInner = bvNone
-      Date = 40916.000000000000000000
-      Format = 'yyyy-MM-dd'
-      Time = 0.670856296288548000
       TabOrder = 1
+      Width = 121
     end
-    object DLYDate: TDateTimePicker
+    object TMMDate: TcxDateEdit
-      Tag = 2
+      Left = 516
-      Left = 273
       Top = 4
-      Width = 100
-      Height = 20
-      BevelInner = bvNone
-      Date = 40916.000000000000000000
-      Format = 'yyyy-MM-dd'
-      Time = 0.670856296288548000
-      ShowCheckbox = True
       TabOrder = 2
+      Width = 121
     end
-    object OrdNote: TMemo
+    object OurCoName: TcxButtonEdit
-      Tag = 2
+      Left = 110
-      Left = 82
+      Top = 50
-      Top = 107
+      Properties.Buttons = <
-      Width = 476
+        item
-      Height = 58
+          Default = True
-      Hint = 'OrdNote/'#22791#27880
+          Kind = bkEllipsis
-      ScrollBars = ssVertical
+        end>
+      Properties.OnButtonClick = OurCoNamePropertiesButtonClick
       TabOrder = 3
-      OnDblClick = PackNoteDblClick
+      OnDblClick = OurCoNameDblClick
+      Width = 121
     end
-    object CustName: TBtnEditC
+    object CustName: TcxButtonEdit
-      Tag = 2
+      Left = 311
-      Left = 273
+      Top = 50
-      Top = 32
+      Properties.Buttons = <
-      Width = 100
+        item
-      Height = 20
+          Default = True
-      ReadOnly = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick
       TabOrder = 4
-      OnBtnUpClick = CustNameBtnUpClick
+      OnDblClick = OurCoNameDblClick
-      OnBtnDnClick = OurCoNameBtnDnClick
+      Width = 121
     end
-    object OurCoName: TBtnEditC
+    object ShippingAddress: TcxButtonEdit
-      Tag = 2
+      Left = 516
-      Left = 78
+      Top = 50
-      Top = 32
+      Properties.Buttons = <
-      Width = 100
+        item
-      Height = 20
+          Default = True
-      ReadOnly = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = cxButtonEdit2PropertiesButtonClick
       TabOrder = 5
-      OnBtnUpClick = OurCoNameBtnUpClick
+      OnDblClick = OurCoNameDblClick
-      OnBtnDnClick = OurCoNameBtnDnClick
+      Width = 121
     end
-    object CONTACT: TBtnEditC
+    object CONTACT: TcxButtonEdit
-      Tag = 2
+      Left = 311
-      Left = 273
+      Top = 91
-      Top = 59
+      Properties.Buttons = <
-      Width = 285
+        item
-      Height = 20
+          Default = True
+          Kind = bkEllipsis
+        end>
+      Properties.OnButtonClick = CONTACTPropertiesButtonClick
       TabOrder = 6
-      OnBtnUpClick = CONTACTBtnUpClick
+      OnDblClick = OurCoNameDblClick
+      Width = 326
     end
-    object OrdType: TComboBox
+    object OrdType: TcxComboBox
-      Tag = 2
+      Left = 110
-      Left = 78
+      Top = 91
-      Top = 59
-      Width = 100
-      Height = 20
-      Style = csDropDownList
-      Ctl3D = False
       Enabled = False
-      ItemIndex = 0
-      ParentCtl3D = False
       TabOrder = 7
       Text = #27491#24120#21333
-      Items.Strings = (
+      Width = 121
-        #27491#24120#21333)
     end
-    object ShippingAddress: TBtnEditC
+    object OrdNote: TcxMemo
-      Tag = 2
+      Left = 110
-      Left = 458
+      Top = 133
-      Top = 32
+      Hint = 'OrdNote/'#22791#27880
-      Width = 100
+      Properties.OnChange = OrdNotePropertiesChange
-      Height = 20
       TabOrder = 8
-      OnBtnUpClick = ShippingAddressBtnUpClick
+      OnDblClick = OrdNoteDblClick
+      Height = 71
+      Width = 527
     end
   end
   inherited ADOQueryBaseCmd: TADOQuery

项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketInPut.pas

@@ -15,7 +15,7 @@ uses
   dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC,
   System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent,
   IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
-  IdFTP, ShellAPI, dxSkinWXI, dxScrollbarAnnotations;
+  IdFTP, ShellAPI, dxSkinWXI, dxScrollbarAnnotations, dxCore, cxDateUtils;
 
 type
   TfrmTradeMarketInPut = class(TfrmBaseInput)
@@ -54,12 +54,7 @@ type
     Label2: TLabel;
     Label14: TLabel;
     Label20: TLabel;
-    TMMNo: TEdit;
+    TMMNo: TcxTextEdit;
-    TMMDate: TDateTimePicker;
-    DLYDate: TDateTimePicker;
-    OrdNote: TMemo;
-    CustName: TBtnEditC;
-    OurCoName: TBtnEditC;
     cxGrid1: TcxGrid;
     Tv1: TcxGridDBTableView;
     v1Column11: TcxGridDBColumn;
@@ -74,10 +69,7 @@ type
     Tv1Column9: TcxGridDBColumn;
     Label19: TLabel;
     Label37: TLabel;
-    CONTACT: TBtnEditC;
-    OrdType: TComboBox;
     Label18: TLabel;
-    ShippingAddress: TBtnEditC;
     Tv1Column4: TcxGridDBColumn;
     Tv1Column6: TcxGridDBColumn;
     Tv1Column13: TcxGridDBColumn;
@@ -86,7 +78,7 @@ type
     Panel5: TPanel;
     Label33: TLabel;
     Label38: TLabel;
-    QtyMX: TEdit;
+    QtyMX: TcxTextEdit;
     GroupBox2: TGroupBox;
     cxGrid2: TcxGrid;
     TvMX: TcxGridDBTableView;
@@ -98,6 +90,14 @@ type
     Tv1Column5: TcxGridDBColumn;
     Tv1Column10: TcxGridDBColumn;
     Tv1Column11: TcxGridDBColumn;
+    DLYDate: TcxDateEdit;
+    TMMDate: TcxDateEdit;
+    OurCoName: TcxButtonEdit;
+    CustName: TcxButtonEdit;
+    ShippingAddress: TcxButtonEdit;
+    CONTACT: TcxButtonEdit;
+    OrdType: TcxComboBox;
+    OrdNote: TcxMemo;
     procedure TBCloseClick(Sender: TObject);
     procedure FormShow(Sender: TObject);
     procedure TBSaveClick(Sender: TObject);
@@ -117,9 +117,9 @@ type
     procedure cxDBImage1DblClick(Sender: TObject);
     procedure SYRNameBtnUpClick(Sender: TObject);
     procedure ToolButton3Click(Sender: TObject);
-    procedure CustNameBtnUpClick(Sender: TObject);
+    procedure CustName1BtnUpClick(Sender: TObject);
-    procedure OurCoNameBtnUpClick(Sender: TObject);
+    procedure OurCoName1BtnUpClick(Sender: TObject);
-    procedure OurCoNameBtnDnClick(Sender: TObject);
+    procedure OurCoName1BtnDnClick(Sender: TObject);
     procedure TechnicsBtnUpClick(Sender: TObject);
     procedure TechnicsBtnDnClick(Sender: TObject);
     procedure PackNoteDblClick(Sender: TObject);
@@ -128,9 +128,20 @@ type
     procedure QtyMXKeyPress(Sender: TObject; var Key: Char);
     procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
     procedure TvMXCellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
-    procedure ShippingAddressBtnUpClick(Sender: TObject);
+    procedure ShippingAddress1BtnUpClick(Sender: TObject);
-    procedure CONTACTBtnUpClick(Sender: TObject);
+    procedure CONTACT1BtnUpClick(Sender: TObject);
     procedure Tv1Column1PropertiesEditValueChanged(Sender: TObject);
+    procedure OurCoNamePropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure OurCoNameDblClick(Sender: TObject);
+    procedure cxButtonEdit1PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure cxButtonEdit2PropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure CONTACTPropertiesButtonClick(Sender: TObject;
+      AButtonIndex: Integer);
+    procedure OrdNotePropertiesChange(Sender: TObject);
+    procedure OrdNoteDblClick(Sender: TObject);
   private
     FSCXDH: string;
     procedure InitData();
@@ -255,11 +266,11 @@ end;
 
 procedure TfrmTradeMarketInPut.InitData();
 var
-  FDate: TDateTime;
+  FDate: TDate;
 begin
-  FDate := SGetServerDateTime(ADOTemp);
+  FDate := SGetServerDate(ADOTemp);
-  TMMDate.DateTime := FDate;
+  TMMDate.Date := FDate;
-  DlyDate.DateTime := FDate;
+  DlyDate.Date := FDate;
 
   with ADOTemp do
   begin
@@ -272,8 +283,8 @@ begin
   SCSHData(ADOTemp, ScrollBox1, 5);
   SCSHData(ADOTemp, ScrollBox1, 9);
   SCSHData(ADOTemp, ScrollBox1, 7);
-  OurCoName.TxtCode := Trim(ADOTemp.FieldByName('OurCoNo').AsString);
+  OurCoName.Properties.LookupItems.Text := Trim(ADOTemp.FieldByName('OurCoNo').AsString);
-  CustName.TxtCode := Trim(ADOTemp.FieldByName('CustNo').AsString);
+  CustName.Properties.LookupItems.Text := Trim(ADOTemp.FieldByName('CustNo').AsString);
   with ADOTemp do
   begin
     Close;
@@ -294,8 +305,8 @@ begin
 
   if PState = 0 then
   begin
-    TMMDate.DateTime := SGetServerDateTime(ADOTemp);
+    TMMDate.Date := SGetServerDateTime(ADOTemp);
-    DlyDate.DateTime := TMMDate.DateTime;
+    DlyDate.Date := TMMDate.Date;
     TMMNo.Text := '';
     TMMNo.Enabled := True;
   end
@@ -309,7 +320,7 @@ begin
     TMMNo.Text := '';
     TMMNo.Enabled := True;
 
-    TMMDate.DateTime := FDate;
+    TMMDate.Date := FDate;
 
     with CDS_1 do
     begin
@@ -342,8 +353,8 @@ begin
   TMMNo.Text := '';
   fFlileFlag := UserDataFlag + 'HX';
   InitData();
-  ordtype.Items.Clear;
+  ordtype.Properties.Items.Clear;
-  ordtype.Items.Add(fordtype);
+  ordtype.Properties.Items.Add(fordtype);
   ordtype.ItemIndex := 0;
   InitImage1();
   InitImage2();
@@ -393,8 +404,8 @@ begin
       end;
       RTSetsavedata(ADOCmd, 'Trade_Market_Main', ScrollBox1, 2);
       FieldByName('TMMID').Value := Trim(maxno);
-      FieldByName('OurCoNo').Value := Trim(OurCoName.TxtCode);
+      FieldByName('OurCoNo').Value := Trim(OurCoName.Properties.LookupItems.Text);
-      FieldByName('CustNo').Value := Trim(CustName.TxtCode);
+      FieldByName('CustNo').Value := Trim(CustName.Properties.LookupItems.Text);
 
       Post;
     end;
@@ -769,7 +780,7 @@ var
   fsj: string;
   FWZ: Integer;
 begin
-  fsj := Trim(TEdit(Sender).Hint);
+  fsj := Trim(TcxTextEdit(Sender).Hint);
   FWZ := Pos('/', fsj);
   try
     frmZDYHelp := TfrmZDYHelp.Create(Application);
@@ -779,7 +790,7 @@ begin
       flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
       if ShowModal = 1 then
       begin
-        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+        TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
       end;
     end;
   finally
@@ -788,7 +799,7 @@ begin
 
 end;
 
-procedure TfrmTradeMarketInPut.CONTACTBtnUpClick(Sender: TObject);
+procedure TfrmTradeMarketInPut.CONTACT1BtnUpClick(Sender: TObject);
 begin
   inherited;
   frmZDYHelp := TfrmZDYHelp.Create(Application);
@@ -798,12 +809,28 @@ begin
     flagname := '联系方式';
     if ShowModal = 1 then
     begin
-      tedit(Sender).text := ClientDataSet1.FieldByName('ZDYName').AsString;
+      TcxTextEdit(Sender).text := ClientDataSet1.FieldByName('ZDYName').AsString;
     end;
   end;
 end;
 
-procedure TfrmTradeMarketInPut.CustNameBtnUpClick(Sender: TObject);
+procedure TfrmTradeMarketInPut.CONTACTPropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+begin
+  inherited;
+  frmZDYHelp := TfrmZDYHelp.Create(Application);
+  with frmZDYHelp do
+  begin
+    flag := 'FHTel';
+    flagname := '联系方式';
+    if ShowModal = 1 then
+    begin
+      TcxTextEdit(Sender).text := ClientDataSet1.FieldByName('ZDYName').AsString;
+    end;
+  end;
+end;
+
+procedure TfrmTradeMarketInPut.CustName1BtnUpClick(Sender: TObject);
 begin
   try
     frmCompanySel := TfrmCompanySel.Create(Application);
@@ -812,7 +839,7 @@ begin
       FCoType := '客户';
       if ShowModal = 1 then
       begin
-        self.CustName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
+        self.CustName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
         self.CustName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
         self.ShippingAddress.Text := frmCompanySel.CDS_1.FieldByName('CoAddress').AsString;
       end;
@@ -846,6 +873,60 @@ begin
   TBtnEditC(Sender).TxtCode := '';
 end;
 
+procedure TfrmTradeMarketInPut.cxButtonEdit1PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  try
+    frmCompanySel := TfrmCompanySel.Create(Application);
+    with frmCompanySel do
+    begin
+      FCoType := '客户';
+      if ShowModal = 1 then
+      begin
+        self.CustName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
+        self.CustName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
+        self.ShippingAddress.Text := frmCompanySel.CDS_1.FieldByName('CoAddress').AsString;
+      end;
+    end;
+
+  finally
+    frmCompanySel.Free;
+  end;
+
+  with ADOTemp do
+  begin
+    close;
+    sql.Clear;
+    sql.Add('select top 1 * from Trade_Market_Main where CustName=''' + CustName.Text + ''' ');
+    sql.Add(' and (isnull(ShippingAddress,'''')<>'''' or isnull(CONTACT,'''')<>'''' ) ');
+    sql.Add(' order by TMMDate desc ');
+    open;
+  end;
+
+  if ADOTemp.IsEmpty = False then
+  begin
+    ShippingAddress.Text := ADOTemp.FieldByName('ShippingAddress').AsString;
+    CONTACT.Text := ADOTemp.FieldByName('CONTACT').AsString;
+  end;
+
+end;
+
+procedure TfrmTradeMarketInPut.cxButtonEdit2PropertiesButtonClick(
+  Sender: TObject; AButtonIndex: Integer);
+begin
+  inherited;
+  frmZDYHelp := TfrmZDYHelp.Create(Application);
+  with frmZDYHelp do
+  begin
+    flag := 'FHAdress';
+    flagname := '发货地址';
+    if ShowModal = 1 then
+    begin
+      TcxTextEdit(Sender).text := ClientDataSet1.FieldByName('ZDYName').AsString;
+    end;
+  end;
+end;
+
 procedure TfrmTradeMarketInPut.cxDBImage1DblClick(Sender: TObject);
 begin
   if TcxDBImage(Sender).Picture.Height = 0 then
@@ -1024,7 +1105,7 @@ var
   fsj: string;
   FWZ: Integer;
 begin
-  fsj := Trim(TEdit(Sender).Hint);
+  fsj := Trim(TcxTextEdit(Sender).Hint);
   FWZ := Pos('/', fsj);
   try
     frmZDYHelp := TfrmZDYHelp.Create(Application);
@@ -1034,7 +1115,7 @@ begin
       flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
       if ShowModal = 1 then
       begin
-        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+        TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
       end;
     end;
   finally
@@ -1047,7 +1128,7 @@ begin
   TMMDate.SetFocus;
 end;
 
-procedure TfrmTradeMarketInPut.ShippingAddressBtnUpClick(Sender: TObject);
+procedure TfrmTradeMarketInPut.ShippingAddress1BtnUpClick(Sender: TObject);
 begin
   inherited;
   frmZDYHelp := TfrmZDYHelp.Create(Application);
@@ -1057,18 +1138,94 @@ begin
     flagname := '发货地址';
     if ShowModal = 1 then
     begin
-      tedit(Sender).text := ClientDataSet1.FieldByName('ZDYName').AsString;
+      TcxTextEdit(Sender).text := ClientDataSet1.FieldByName('ZDYName').AsString;
     end;
   end;
 end;
 
-procedure TfrmTradeMarketInPut.OurCoNameBtnDnClick(Sender: TObject);
+procedure TfrmTradeMarketInPut.OrdNoteDblClick(Sender: TObject);
+var
+  fsj: string;
+  FWZ: Integer;
+  i: integer;
+begin
+  fsj := Trim(TMemo(Sender).Hint);
+  FWZ := Pos('/', fsj);
+  i := 0;
+  try
+    frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
+    with frmZDYHelpSel do
+    begin
+      flag := Copy(fsj, 1, FWZ - 1);
+      flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
+      if ShowModal = 1 then
+      begin
+        TCXMemo(Sender).Lines.Clear;
+        with ClientDataSet1 do
+        begin
+          First;
+          while not Eof do
+          begin
+            if FieldByName('SSel').AsBoolean = True then
+            begin
+              i := i + 1;
+              TCXMemo(Sender).Lines.Add(FieldByName('ZDYName').AsString)      //inttostr(i)+'.'+
+            end;
+            Next;
+          end;
+        end;
+      end;
+    end;
+  finally
+    frmZDYHelpSel.Free;
+  end;
+end;
+
+procedure TfrmTradeMarketInPut.OrdNotePropertiesChange(Sender: TObject);
+var
+  fsj: string;
+  FWZ: Integer;
+  i: integer;
+begin
+  fsj := Trim(TMemo(Sender).Hint);
+  FWZ := Pos('/', fsj);
+  i := 0;
+  try
+    frmZDYHelpSel := TfrmZDYHelpSel.Create(Application);
+    with frmZDYHelpSel do
+    begin
+      flag := Copy(fsj, 1, FWZ - 1);
+      flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
+      if ShowModal = 1 then
+      begin
+        TMemo(Sender).Lines.Clear;
+        with ClientDataSet1 do
+        begin
+          First;
+          while not Eof do
+          begin
+            if FieldByName('SSel').AsBoolean = True then
+            begin
+              i := i + 1;
+              TMemo(Sender).Lines.Add(FieldByName('ZDYName').AsString)      //inttostr(i)+'.'+
+            end;
+            Next;
+          end;
+        end;
+      end;
+    end;
+  finally
+    frmZDYHelpSel.Free;
+  end;
+end;
+
+procedure TfrmTradeMarketInPut.OurCoName1BtnDnClick(Sender: TObject);
 begin
   TBtnEditC(Sender).Text := '';
   TBtnEditC(Sender).TxtCode := '';
 end;
 
-procedure TfrmTradeMarketInPut.OurCoNameBtnUpClick(Sender: TObject);
+procedure TfrmTradeMarketInPut.OurCoName1BtnUpClick(Sender: TObject);
 begin
   try
     frmCompanySel := TfrmCompanySel.Create(Application);
@@ -1077,7 +1234,34 @@ begin
       FCoType := '我司';
       if ShowModal = 1 then
       begin
-        self.OurCoName.TxtCode := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
+        self.OurCoName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
+        self.OurCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
+      end;
+    end;
+
+  finally
+    frmCompanySel.Free;
+  end;
+
+end;
+
+procedure TfrmTradeMarketInPut.OurCoNameDblClick(Sender: TObject);
+begin
+  TcxButtonEdit(Sender).Text := '';
+  TcxButtonEdit(Sender).Properties.LookupItems.Text := '';
+end;
+
+procedure TfrmTradeMarketInPut.OurCoNamePropertiesButtonClick(Sender: TObject;
+  AButtonIndex: Integer);
+begin
+  try
+    frmCompanySel := TfrmCompanySel.Create(Application);
+    with frmCompanySel do
+    begin
+      FCoType := '我司';
+      if ShowModal = 1 then
+      begin
+        self.OurCoName.Properties.LookupItems.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoCode').AsString);
         self.OurCoName.Text := Trim(frmCompanySel.CDS_1.fieldbyname('CoAbbrName').AsString);
       end;
     end;
@@ -1197,7 +1381,7 @@ var
   fsj: string;
   FWZ: Integer;
 begin
-  fsj := Trim(TEdit(Sender).Hint);
+  fsj := Trim(TcxTextEdit(Sender).Hint);
   FWZ := Pos('/', fsj);
   try
     frmZDYHelp := TfrmZDYHelp.Create(Application);
@@ -1208,7 +1392,7 @@ begin
       flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
       if ShowModal = 1 then
       begin
-        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+        TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
       end;
     end;
   finally
@@ -1383,7 +1567,7 @@ var
   fsj: string;
   FWZ: Integer;
 begin
-  fsj := Trim(TEdit(Sender).Hint);
+  fsj := Trim(TcxTextEdit(Sender).Hint);
   FWZ := Pos('/', fsj);
   try
     frmZDYHelp := TfrmZDYHelp.Create(Application);
@@ -1393,7 +1577,7 @@ begin
       flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
       if ShowModal = 1 then
       begin
-        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+        TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
       end;
     end;
   finally
@@ -1406,7 +1590,7 @@ var
   fsj: string;
   FWZ: Integer;
 begin
-  fsj := Trim(TEdit(Sender).Hint);
+  fsj := Trim(TcxTextEdit(Sender).Hint);
   FWZ := Pos('/', fsj);
   try
     frmZDYHelp := TfrmZDYHelp.Create(Application);
@@ -1422,7 +1606,7 @@ begin
       end;
       if ShowModal = 1 then
       begin
-        TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+        TcxTextEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
 
       end;
     end;

项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketList.dfm

@@ -16,18 +16,18 @@ inherited frmTradeMarketList: TfrmTradeMarketList
     Left = 0
     Top = 0
     Width = 1540
-    Height = 38
+    Height = 30
     AutoSize = True
-    ButtonHeight = 38
+    ButtonHeight = 30
-    ButtonWidth = 91
+    ButtonWidth = 99
     Caption = 'ToolBar1'
     Color = clBtnFace
     Font.Charset = GB2312_CHARSET
     Font.Color = clWindowText
-    Font.Height = -12
+    Font.Height = -16
-    Font.Name = #23435#20307
+    Font.Name = #24494#36719#38597#40657
     Font.Style = []
-    Images = DataLink_TradeMarket.ImageList_new32
+    Images = DataLink_TradeMarket.cxImageList_bar
     List = True
     ParentColor = False
     ParentFont = False
@@ -114,7 +114,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TBTJCXClick
     end
     object Tchk: TToolButton
-      Left = 734
+      Left = 742
       Top = 0
       AutoSize = True
       Caption = #23457#26680
@@ -122,7 +122,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TchkClick
     end
     object Tnochk: TToolButton
-      Left = 805
+      Left = 813
       Top = 0
       AutoSize = True
       Caption = #25764#38144#23457#26680
@@ -130,7 +130,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TnochkClick
     end
     object TWC: TToolButton
-      Left = 900
+      Left = 916
       Top = 0
       AutoSize = True
       Caption = #23436#25104
@@ -138,7 +138,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TWCClick
     end
     object TNowc: TToolButton
-      Left = 971
+      Left = 987
       Top = 0
       AutoSize = True
       Caption = #25764#38144#23436#25104
@@ -146,7 +146,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TNowcClick
     end
     object ToolButton2: TToolButton
-      Left = 1066
+      Left = 1090
       Top = 0
       AutoSize = True
       Caption = #20445#23384#26684#24335
@@ -154,7 +154,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = ToolButton2Click
     end
     object TBClose: TToolButton
-      Left = 1161
+      Left = 1193
       Top = 0
       AutoSize = True
       Caption = #20851#38381
@@ -164,175 +164,137 @@ inherited frmTradeMarketList: TfrmTradeMarketList
   end
   object Panel1: TPanel [1]
     Left = 0
-    Top = 38
+    Top = 30
     Width = 1540
-    Height = 69
+    Height = 91
     Align = alTop
     BevelInner = bvRaised
     BevelOuter = bvLowered
     Color = clWhite
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #24494#36719#38597#40657
+    Font.Style = []
     ParentBackground = False
+    ParentFont = False
     TabOrder = 1
     object Label3: TLabel
-      Left = 295
+      Left = 19
-      Top = 20
+      Top = 48
-      Width = 52
+      Width = 64
-      Height = 12
+      Height = 21
       Caption = #35745#21010#21333#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 = 613
+      Left = 747
-      Top = 119
+      Top = 51
-      Width = 26
+      Width = 32
-      Height = 12
+      Height = 21
       Caption = #20811#37325
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      ParentFont = False
     end
     object Label1: TLabel
-      Left = 319
+      Left = 400
-      Top = 47
+      Top = 48
-      Width = 26
+      Width = 32
-      Height = 12
+      Height = 21
       Caption = #23458#25143
-      Font.Charset = GB2312_CHARSET
-      Font.Color = clWindowText
-      Font.Height = -12
-      Font.Name = #23435#20307
-      Font.Style = [fsBold]
-      ParentFont = False
     end
     object Label2: TLabel
-      Left = 470
+      Left = 207
-      Top = 20
+      Top = 48
-      Width = 52
+      Width = 64
-      Height = 12
+      Height = 21
       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 Label4: TLabel
-      Left = 480
+      Left = 567
-      Top = 47
+      Top = 51
-      Width = 39
+      Width = 48
-      Height = 12
+      Height = 21
       Caption = #21512#21516#21495
-      Font.Charset = GB2312_CHARSET
+    end
-      Font.Color = clWindowText
+    object TMMNo: TcxTextEdit
-      Font.Height = -12
+      Tag = 2
-      Font.Name = #23435#20307
+      Left = 93
-      Font.Style = [fsBold]
+      Top = 45
       ParentFont = False
-    end
-    object BegDate: TDateTimePicker
-      Left = 152
-      Top = 16
-      Width = 101
-      Height = 20
-      Date = 40675.000000000000000000
-      Format = 'yyyy-MM-dd'
-      Time = 0.464742650459811600
       TabOrder = 0
-    end
+      OnKeyPress = TMMNoKeyPress
-    object EndDate: TDateTimePicker
-      Left = 152
-      Top = 42
-      Width = 102
-      Height = 20
-      Date = 40675.000000000000000000
-      Format = 'yyyy-MM-dd'
-      Time = 0.464761099538009100
-      TabOrder = 2
-    end
-    object TMMNo: TEdit
-      Tag = 2
-      Left = 353
-      Top = 16
       Width = 104
-      Height = 25
+    end
+    object MPRTKZ: TcxTextEdit
+      Tag = 2
+      Left = 789
+      Top = 47
+      ParentFont = False
       TabOrder = 1
-      OnKeyPress = TMMNoKeyPress
-    end
-    object MPRTKZ: TEdit
-      Tag = 2
-      Left = 654
-      Top = 99
       Width = 56
-      Height = 25
+    end
+    object CustName: TcxTextEdit
+      Tag = 2
+      Left = 445
+      Top = 47
+      ParentFont = False
+      TabOrder = 2
+      OnKeyPress = TMMNoKeyPress
+      Width = 104
+    end
+    object C_Name: TcxTextEdit
+      Tag = 2
+      Left = 281
+      Top = 45
+      ParentFont = False
       TabOrder = 3
-      OnChange = OrderNoMChange
+      OnKeyPress = TMMNoKeyPress
+      Width = 104
     end
-    object ComboBox1: TComboBox
+    object ConNo: TcxTextEdit
-      Left = 49
+      Tag = 2
-      Top = 16
+      Left = 633
-      Width = 93
+      Top = 47
-      Height = 25
+      ParentFont = False
       TabOrder = 4
-      Text = #21046#21333#26085#26399
+      OnKeyPress = TMMNoKeyPress
-      OnChange = ComboBox1Change
-      Items.Strings = (
-        #21046#21333#26085#26399
-        #20132#36135#26085#26399)
-    end
-    object CustName: TEdit
-      Tag = 2
-      Left = 351
-      Top = 43
       Width = 104
-      Height = 25
+    end
+    inline frmFrameDateSel1: TfrmFrameDateSel
+      Left = 2
+      Top = 2
+      Width = 1536
+      Height = 37
+      Align = alTop
+      Color = clWhite
+      Font.Charset = ANSI_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -16
+      Font.Name = #24494#36719#38597#40657
+      Font.Style = []
+      ParentBackground = False
+      ParentColor = False
+      ParentFont = False
       TabOrder = 5
-      OnKeyPress = TMMNoKeyPress
+      ExplicitLeft = 2
-    end
+      ExplicitTop = 2
-    object C_Name: TEdit
+      ExplicitWidth = 1536
-      Tag = 2
-      Left = 525
-      Top = 16
-      Width = 104
-      Height = 25
-      TabOrder = 6
-      OnKeyPress = TMMNoKeyPress
-    end
-    object ConNo: TEdit
-      Tag = 2
-      Left = 525
-      Top = 43
-      Width = 104
-      Height = 25
-      TabOrder = 7
-      OnKeyPress = TMMNoKeyPress
-    end
-    object CheckBox1: TCheckBox
-      Left = 28
-      Top = 18
-      Width = 19
-      Height = 17
-      Checked = True
-      State = cbChecked
-      TabOrder = 8
     end
   end
   object cxGrid1: TcxGrid [2]
     Left = 0
-    Top = 125
+    Top = 147
     Width = 1540
-    Height = 431
+    Height = 409
     Align = alClient
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #24494#36719#38597#40657
+    Font.Style = []
+    ParentFont = False
     PopupMenu = PM_1
     TabOrder = 3
+    ExplicitTop = 177
+    ExplicitHeight = 379
     object Tv1: TcxGridDBTableView
       Navigator.Buttons.CustomButtons = <>
       ScrollbarAnnotations.CustomAnnotations = <>
@@ -361,12 +323,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OptionsView.Footer = True
       OptionsView.GroupByBox = False
       OptionsView.IndicatorWidth = 30
-      Styles.Content = DataLink_TradeMarket.Default
-      Styles.IncSearch = DataLink_TradeMarket.SHuangSe
-      Styles.Footer = DataLink_TradeMarket.Default
-      Styles.Header = DataLink_TradeMarket.Default
-      Styles.Inactive = DataLink_TradeMarket.SHuangSe
-      Styles.Selection = DataLink_TradeMarket.SHuangSe
       object v1Column16: TcxGridDBColumn
         Caption = #36873#25321
         DataBinding.FieldName = 'SSel'
@@ -384,7 +340,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
         Properties.ShowTime = False
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_TradeMarket.Default
         Width = 66
       end
       object Tv1Column2: TcxGridDBColumn
@@ -393,7 +348,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_TradeMarket.FontBlue
         Width = 66
       end
       object Tv1Column4: TcxGridDBColumn
@@ -402,7 +356,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
         DataBinding.IsNullValueType = True
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_TradeMarket.FoneClMaroon
         Width = 66
       end
       object v1DeliveryDate: TcxGridDBColumn
@@ -414,7 +367,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
         OnCustomDrawCell = v1DeliveryDateCustomDrawCell
         HeaderAlignmentHorz = taCenter
         Options.Editing = False
-        Styles.Header = DataLink_TradeMarket.Default
         Width = 66
       end
       object Tv1Column11: TcxGridDBColumn
@@ -495,10 +447,16 @@ inherited frmTradeMarketList: TfrmTradeMarketList
   end
   object cxTabControl1: TcxTabControl [4]
     Left = 0
-    Top = 107
+    Top = 121
     Width = 1540
-    Height = 18
+    Height = 26
     Align = alTop
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -16
+    Font.Name = #24494#36719#38597#40657
+    Font.Style = []
+    ParentFont = False
     TabOrder = 2
     Properties.CustomButtons.Buttons = <>
     Properties.Style = 9
@@ -510,6 +468,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       '      '#24050#23436#25104'      '
       '      '#20840#37096'      ')
     OnChange = cxTabControl1Change
+    ExplicitTop = 151
     ClientRectRight = 0
     ClientRectTop = 0
   end
@@ -530,7 +489,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       Align = alClient
       Font.Charset = GB2312_CHARSET
       Font.Color = clWindowText
-      Font.Height = -12
+      Font.Height = -16
       Font.Name = #23435#20307
       Font.Style = []
       ParentFont = False
@@ -579,11 +538,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
         OptionsData.Deleting = False
         OptionsView.Footer = True
         OptionsView.GroupByBox = False
-        Styles.IncSearch = DataLink_TradeMarket.SHuangSe
-        Styles.Footer = DataLink_TradeMarket.Default
-        Styles.Header = DataLink_TradeMarket.Default
-        Styles.Inactive = DataLink_TradeMarket.SHuangSe
-        Styles.Selection = DataLink_TradeMarket.SHuangSe
         object cxGridDBColumn1: TcxGridDBColumn
           Tag = 99
           Caption = #36873#25321
@@ -625,7 +579,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
           Properties.ReadOnly = False
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
-          Styles.Header = DataLink_TradeMarket.handBlack
           Width = 79
         end
         object TV2Column4: TcxGridDBColumn
@@ -650,7 +603,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
           PropertiesClassName = 'TcxTextEditProperties'
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
-          Styles.Header = DataLink_TradeMarket.Default
           Width = 66
         end
         object v1OrderUnit: TcxGridDBColumn
@@ -664,7 +616,6 @@ inherited frmTradeMarketList: TfrmTradeMarketList
             'Kg')
           HeaderAlignmentHorz = taCenter
           Options.Editing = False
-          Styles.Header = DataLink_TradeMarket.Default
           Width = 66
         end
         object TV2Column3: TcxGridDBColumn

项目代码/RTBasicsV1/T05贸易门市管理/U_TradeMarketList.pas

@@ -16,7 +16,7 @@ uses
   cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
   dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
   IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd, dxSkinWXI,
-  dxScrollbarAnnotations;
+  dxScrollbarAnnotations, FrameDateSel;
 
 type
   TfrmTradeMarketList = class(TfrmBaseList)
@@ -28,8 +28,6 @@ type
     TBPrint: TToolButton;
     TBClose: TToolButton;
     Panel1: TPanel;
-    BegDate: TDateTimePicker;
-    EndDate: TDateTimePicker;
     Tv1: TcxGridDBTableView;
     cxGrid1Level1: TcxGridLevel;
     cxGrid1: TcxGrid;
@@ -39,13 +37,13 @@ type
     ADOQueryTemp: TADOQuery;
     DataSource1: TDataSource;
     Label3: TLabel;
-    TMMNo: TEdit;
+    TMMNo: TcxTextEdit;
     v1OrdDate: TcxGridDBColumn;
     v1DeliveryDate: TcxGridDBColumn;
     Order_Main: TClientDataSet;
     TBCK: TToolButton;
     Label12: TLabel;
-    MPRTKZ: TEdit;
+    MPRTKZ: TcxTextEdit;
     btnCopy: TToolButton;
     cxSplitter1: TcxSplitter;
     ADOQuerySub: TADOQuery;
@@ -68,9 +66,8 @@ type
     PopupMenu2: TPopupMenu;
     N3: TMenuItem;
     N4: TMenuItem;
-    ComboBox1: TComboBox;
     Label1: TLabel;
-    CustName: TEdit;
+    CustName: TcxTextEdit;
     Tv1Column6: TcxGridDBColumn;
     cxgrdpmn2: TcxGridPopupMenu;
     cxGrid2: TcxGrid;
@@ -87,11 +84,10 @@ type
     Tv1Column11: TcxGridDBColumn;
     Tv1Column1: TcxGridDBColumn;
     Label2: TLabel;
-    C_Name: TEdit;
+    C_Name: TcxTextEdit;
     CDS_WXTS: TClientDataSet;
     Label4: TLabel;
-    ConNo: TEdit;
+    ConNo: TcxTextEdit;
-    CheckBox1: TCheckBox;
     ToolButton2: TToolButton;
     PM_1: TPopupMenu;
     N1: TMenuItem;
@@ -105,6 +101,7 @@ type
     TV2Column3: TcxGridDBColumn;
     TV2Column4: TcxGridDBColumn;
     Tv1Column7: TcxGridDBColumn;
+    frmFrameDateSel1: TfrmFrameDateSel;
     procedure FormDestroy(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -334,26 +331,26 @@ begin
       sql.add(' from Trade_Market_Main A  ');
 //      Sql.add(' inner join Trade_Market_Sub B on B.TMMId=A.TMMId  ');
 
-      if (ComboBox1.Text = '制单日期') and (CheckBox1.Checked = True) then
+      if (cxComboBox1.Text = '制单日期') and (cxCheckBox1.Checked = True) then
       begin
-        sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
+        sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date))));
-        sql.add(' and  A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
+        sql.add(' and  A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
       end;
-      if (ComboBox1.Text = '制单日期') and (CheckBox1.Checked = False) then
+      if (cxComboBox1.Text = '制单日期') and (cxCheckBox1.Checked = False) then
       begin
-        sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime - 39999))));
+        sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date - 39999))));
-        sql.add(' and  A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
+        sql.add(' and  A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
       end;
 
-      if (ComboBox1.Text = '交货日期') and (CheckBox1.Checked = True) then
+      if (cxComboBox1.Text = '交货日期') and (cxCheckBox1.Checked = True) then
       begin
-        sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
+        sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date))));
-        sql.add(' and  A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
+        sql.add(' and  A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd',frmFrameDateSel1.enddate.Date + 1))));
       end;
-      if (ComboBox1.Text = '交货日期') and (CheckBox1.Checked = False) then
+      if (cxComboBox1.Text = '交货日期') and (cxCheckBox1.Checked = False) then
       begin
-        sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime - 39999))));
+        sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date - 39999))));
-        sql.add(' and  A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
+        sql.add(' and  A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1))));
       end;
 
       if canshu1 = '录入' then
@@ -432,8 +429,8 @@ procedure TfrmTradeMarketList.InitForm();
 begin
   ReadCxGrid('指示单列表FF1', Tv1, '生产指示单管理');
   ReadCxGrid('指示单列表FFTv21', Tv2, '生产指示单管理');
-  BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 180;
+  frmFrameDateSel1.BegDate.Date := SGetServerDate(ADOQueryTemp) - 180;
-  EndDate.DateTime := SGetServerDate(ADOQueryTemp);
+  frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
 
   SetStatus();
   InitGrid();