贸易现货

rtnew/U_printPdf.pas

@@ -0,0 +1,26 @@
+unit U_printPdf;
+interface
+uses
+  Windows,forms;
+  // formId =1    功能id
+  //mRecid='文件表记录号'
+  //printNumber=1 打印份数
+  //printFlag=1  '打印预览;0立即打印
+  //DataBaseStr
+  function printPdf(App:Tapplication; FormID:integer;Title:PChar; GCode: PChar; GName: PChar;mRecid:PChar;printNumber:Integer;printFlag:Integer;printer:integer;DataBaseStr:PChar):hwnd;stdcall;external 'pdfPrint.dll' Name 'GetDllForm' ;
+  // formId =1    功能id
+  //mRecid='文件表记录号'
+  //printNumber=1 打印份数
+  //printFlag=1  '打印预览;0立即打印
+  //DataBaseStr
+  function printReport(App:Tapplication; FormID:integer;Title:PChar; GCode: PChar; GName: PChar;mRecid:PChar;printNumber:Integer;printFlag:Integer;printer:integer;DataBaseStr:PChar):hwnd;stdcall;external 'pdfPrint.dll' Name 'GetDllForm' ;
+  // formId =1    功能id
+  //mRecid='文件表记录号'
+  //exportFileType=1 导出文件类型 pdf ,bmp ,jpg
+  //DataBaseStr
+  //返回结果，保存文件的记录号 主键
+  function exportFile(App:Tapplication; FormID:integer;Title:PChar; GCode: PChar; GName: PChar;mRecid:PChar;exportFileType:PChar;DataBaseStr:PChar):hwnd;stdcall;external 'pdfPrint.dll' Name 'ExportFile' ;
+
+implementation
+
+end.

项目代码/RTBasicsV1/A00通用窗体/U_ClothInfoSel.dfm

@@ -208,6 +208,8 @@ inherited frmClothInfoSel: TfrmClothInfoSel
       Height = 448
       Align = alClient
       TabOrder = 1
+      ExplicitLeft = -2
+      ExplicitTop = 41
       object Tv1: TcxGridDBTableView
         OnDblClick = Tv1DblClick
         Navigator.Buttons.CustomButtons = <>

项目代码/RTBasicsV1/A00通用窗体/U_ClothInfoSel.pas

@@ -164,6 +164,7 @@ type
   public
     IsMultipleSelection: Boolean;
     FCTType: string;
+    xzflag: Integer;
     { Public declarations }
   end;
 
@@ -396,6 +397,17 @@ end;
 
 procedure TfrmClothInfoSel.ToolButton1Click(Sender: TObject);
 begin
+
+  if xzflag = 1 then
+  begin
+    if cds_1.Locate('ssel', true, []) = False then
+    begin
+      Application.MessageBox('请选择数据!', '提示', 0);
+      exit;
+    end;
+
+  end;
+
   ModalResult := 1;
 end;
 

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

@@ -65,7 +65,8 @@ uses
   U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
   U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
   U_ClothScheduleList in 'U_ClothScheduleList.pas' {frmClothScheduleList},
-  U_ClothPurchaseEnterList in 'U_ClothPurchaseEnterList.pas' {frmClothPurchaseEnterList};
+  U_ClothPurchaseEnterList in 'U_ClothPurchaseEnterList.pas' {frmClothPurchaseEnterList},
+  U_SysLogHelp in '..\..\..\public10\ThreeFun\Form\U_SysLogHelp.pas' {frmSysLogHelp};
 
 {$R *.res}
 

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

@@ -338,6 +338,10 @@
             <Form>frmClothPurchaseEnterList</Form>
             <FormType>dfm</FormType>
         </DCCReference>
+        <DCCReference Include="..\..\..\public10\ThreeFun\Form\U_SysLogHelp.pas">
+            <Form>frmSysLogHelp</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
         <BuildConfiguration Include="Debug">
             <Key>Cfg_2</Key>
             <CfgParent>Base</CfgParent>

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

@@ -1,108 +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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.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.591,=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.247,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_ClothPurchaseEnterList.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.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.247,=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.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.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.033,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothOutEdit.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.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.048,=D:\Dp10Repo\public10\design\U_BaseList.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.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.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.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.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.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInEdit.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.832,=D:\Dp10Repo\public10\design\U_BaseHelp.pas</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.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.801,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkList.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.484,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeSampleClothInEdit.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.048,=D:\Dp10Repo\public10\design\U_BaseList.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.585,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradePackClothStkSel.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.456,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalInList.dfm</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.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.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.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.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.252,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.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.549,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.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.883,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothStkList.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.038,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothInList.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.435,=D:\Dp10Repo\项目代码\RTBasics\T02贸易汇总仓库\U_TradeGreyClothInEdit.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.472,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.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.647,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessCastingInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessOutInput.pas</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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
-    <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.736,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T02贸易汇总仓库\U_TradeFtyClothInEdit.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.110,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutList.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.736,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothOutEdit.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTransferInput.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.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.307,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothOutEdit.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.136,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothTotalStkList.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.889,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeTotallClothStkSel.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.770,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeFinishClothInList.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothInList.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>
+    <Transaction>1899-12-30 00:00:00.000.038,=D:\Dp10RepoV1\项目代码\花蝴蝶\T02贸易汇总仓库\U_TradeFinishClothInList.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.591,D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothCompleteInput.pas=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_TradeClothProcessInput.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.252,=D:\Dp10RepoV1\项目代码\须上\T02贸易汇总仓库\U_PurClothEnterInput.pas</Transaction>
+    <Transaction>2024-07-29 09:58:02.656,=D:\RTFormwork\public10\ThreeFun\Form\U_SysLogHelp.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="android-support-v4.dex.jar"/>
@@ -177,6 +178,8 @@
     <File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
     <File Path="..\..\..\public10\ThreeFun"/>
     <File Path="..\..\..\public10\ThreeFun\Form"/>
+    <File Path="..\..\..\public10\ThreeFun\Form\U_SysLogHelp.pas"/>
+    <File Path="..\..\..\public10\ThreeFun\Form\U_SysLogHelp.dfm"/>
     <File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
     <File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.dfm"/>
     <File Path="..\..\..\public10\ThreeFun\Fun"/>

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

@@ -22,7 +22,7 @@ uses
   U_TradePackClothOutList, U_TradePackClothStkList, U_TradeSampleClothInList,
   U_TradeSampleClothOutList, U_TradeSampleClothStkList, U_ClothPurchaseEnterList,
   U_ClothScheduleList, U_TradeClothTotalStkList, U_TradeClothTotalInList,
-  U_TradeClothTotalOutList;
+  U_TradeClothTotalOutList, U_TradeReturnClothInList;
 
        /////////////////////////////////////////////////////////////////
       //         功能说明:取Dll中得窗体                              //
@@ -160,8 +160,6 @@ begin
         end;
       end;
 
-
-
     921:  //贸易布匹入库
       begin
         with TfrmTradeClothTotalInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
@@ -409,6 +407,19 @@ begin
         end;
       end;
 
+    611:  //»Ø²Ö¼Èë
+      begin
+        with TfrmTradeReturnClothInList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
+        begin
+          FSTKName := 'ÏÖ»õ»Ø²Ö';
+          fFormID := FormID;
+          FormStyle := mstyle;
+          WindowState := mstate;
+          BorderStyle := mborderstyle;
+          mnewHandle := Handle;
+        end;
+      end;
+
     10000:
       begin
         for i := 0 to application.MainForm.MDIChildCount - 1 do

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

@@ -0,0 +1,878 @@
+inherited frmTradeReturnClothInEdit: TfrmTradeReturnClothInEdit
+  Left = 67
+  Top = 126
+  Caption = #22238#20179#30331#35760
+  ClientHeight = 564
+  ClientWidth = 1465
+  Color = clWhite
+  Font.Charset = GB2312_CHARSET
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Position = poScreenCenter
+  WindowState = wsMaximized
+  OnClose = FormClose
+  ExplicitWidth = 1481
+  ExplicitHeight = 603
+  PixelsPerInch = 96
+  TextHeight = 12
+  object cxGrid2: TcxGrid [0]
+    Tag = 2
+    Left = 0
+    Top = 132
+    Width = 992
+    Height = 432
+    Align = alClient
+    TabOrder = 0
+    object Tv1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      OnFocusedRecordChanged = Tv1FocusedRecordChanged
+      DataController.DataSource = DataSource3
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skCount
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+          Column = v2Column6
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsCustomize.ColumnFiltering = False
+      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'
+        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'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          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'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          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'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        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'
+        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'
+        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'
+        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'
+        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'
+        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'
+        PropertiesClassName = 'TcxComboBoxProperties'
+        Properties.DropDownListStyle = lsEditFixedList
+        Properties.Items.Strings = (
+          'M'
+          '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'
+        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'
+        PropertiesClassName = 'TcxButtonEditProperties'
+        Properties.Buttons = <
+          item
+            Default = True
+            Kind = bkEllipsis
+          end>
+        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'
+        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'
+        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'
+        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'
+        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'
+        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'
+        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'
+        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'
+        HeaderAlignmentHorz = taCenter
+        Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
+        Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
+        Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
+        Width = 66
+      end
+    end
+    object cxGrid2Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object ToolBar1: TToolBar [1]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1465
+    Height = 38
+    AutoSize = True
+    ButtonHeight = 38
+    ButtonWidth = 91
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_TradeTotalClothStk.ImageList_new32
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 1
+    object TBSave: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 16
+      OnClick = TBSaveClick
+    end
+    object ToolButton1: TToolButton
+      Left = 71
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+      OnClick = ToolButton1Click
+    end
+    object TBClose: TToolButton
+      Left = 166
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+    object ToolButton2: TToolButton
+      Left = 237
+      Top = 0
+      AutoSize = True
+      Caption = #25209#37327#25171#21360
+      ImageIndex = 21
+      Visible = False
+      OnClick = ToolButton2Click
+    end
+  end
+  object GroupBox1: TGroupBox [2]
+    Left = 992
+    Top = 132
+    Width = 473
+    Height = 432
+    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
+      Width = 469
+      Height = 378
+      Align = alClient
+      PopupMenu = PopupMenu1
+      TabOrder = 0
+      object Tv2: TcxGridDBTableView
+        OnMouseDown = Tv2MouseDown
+        Navigator.Buttons.CustomButtons = <>
+        OnCellDblClick = Tv2CellDblClick
+        OnCustomDrawCell = Tv2CustomDrawCell
+        DataController.DataSource = DSMX
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <
+          item
+            Format = 'C_Code'
+          end>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+          end
+          item
+            Format = #20849' 0 '#21367
+            Kind = skCount
+            Column = v2Column3
+          end
+          item
+            Kind = skSum
+            Column = v2Column4
+          end
+          item
+            Kind = skSum
+            Column = Tv2Column1
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsBehavior.FocusCellOnTab = True
+        OptionsBehavior.GoToNextCellOnEnter = True
+        OptionsBehavior.FocusCellOnCycle = True
+        OptionsCustomize.ColumnFiltering = False
+        OptionsData.Deleting = False
+        OptionsView.Footer = True
+        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'
+          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'
+          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'
+          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'
+          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'
+          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'
+          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'
+          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'
+          HeaderAlignmentHorz = taCenter
+          Styles.Content = DataLink_TradeTotalClothStk.cxStyle1
+          Styles.Footer = DataLink_TradeTotalClothStk.cxStyle1
+          Styles.Header = DataLink_TradeTotalClothStk.cxStyle1
+          Width = 60
+        end
+      end
+      object cxGridLevel1: TcxGridLevel
+        GridView = Tv2
+      end
+    end
+    object ToolBar3: TToolBar
+      Tag = 1
+      Left = 2
+      Top = 14
+      Width = 469
+      Height = 38
+      AutoSize = True
+      ButtonHeight = 38
+      ButtonWidth = 75
+      Caption = 'ToolBar1'
+      Color = clSkyBlue
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      Images = DataLink_TradeTotalClothStk.ImageList_new32
+      List = True
+      ParentColor = False
+      ParentFont = False
+      ShowCaptions = True
+      TabOrder = 1
+      object ToolButton6: TToolButton
+        Left = 0
+        Top = 0
+        AutoSize = True
+        Caption = #25171#21360
+        ImageIndex = 21
+        OnClick = ToolButton6Click
+      end
+    end
+  end
+  object Panel1: TPanel [3]
+    Left = 0
+    Top = 38
+    Width = 1465
+    Height = 56
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 3
+    object Label1: TLabel
+      Left = 36
+      Top = 20
+      Width = 48
+      Height = 12
+      Caption = #20837#24211#26085#26399
+    end
+    object Label8: TLabel
+      Left = 116
+      Top = 120
+      Width = 48
+      Height = 12
+      Caption = #20837#24211#21333#21495
+    end
+    object Label2: TLabel
+      Left = 232
+      Top = 20
+      Width = 48
+      Height = 12
+      Caption = #20837#24211#31867#22411
+    end
+    object Label4: TLabel
+      Left = 440
+      Top = 20
+      Width = 48
+      Height = 12
+      Caption = #26469#33258#21333#20301
+    end
+    object IOTime: TDateTimePicker
+      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
+      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
+      Top = 2
+      Width = 580
+      Height = 52
+      Align = alRight
+      BevelOuter = bvNone
+      Color = clSkyBlue
+      TabOrder = 4
+      object Label3: TLabel
+        Left = 297
+        Top = 16
+        Width = 44
+        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
+        Top = 21
+        Width = 24
+        Height = 12
+        Caption = #30382#37325
+      end
+      object Label6: TLabel
+        Left = 32
+        Top = 21
+        Width = 24
+        Height = 12
+        Caption = #21367#25968
+      end
+      object QtyMX: TEdit
+        Left = 347
+        Top = 15
+        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
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clRed
+        Font.Height = -14
+        Font.Name = #23435#20307
+        Font.Style = [fsBold]
+        ParentFont = False
+        TabOrder = 1
+      end
+      object LenUnit: TComboBox
+        Left = 414
+        Top = 15
+        Width = 46
+        Height = 23
+        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 = (
+          'M'
+          'Y'
+          'KG')
+      end
+      object edtMJXH: TEdit
+        Left = 210
+        Top = 15
+        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
+      end
+      object chkMJJH: TCheckBox
+        Left = 141
+        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
+        Left = 62
+        Top = 15
+        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
+      end
+    end
+  end
+  object ToolBar2: TToolBar [4]
+    Tag = 1
+    Left = 0
+    Top = 94
+    Width = 1465
+    Height = 38
+    AutoSize = True
+    ButtonHeight = 38
+    ButtonWidth = 75
+    Caption = 'ToolBar1'
+    Color = clSkyBlue
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_TradeTotalClothStk.ImageList_new32
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 4
+    object TBAdd: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 2
+      OnClick = TBAddClick
+    end
+    object TBDel: TToolButton
+      Left = 71
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 6
+      OnClick = TBDelClick
+    end
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    Left = 185
+    Top = 200
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    Left = 273
+    Top = 225
+  end
+  inherited ImageList_new32: TImageList
+    Left = 120
+    Top = 224
+  end
+  object DataSource3: TDataSource
+    DataSet = CDS_Sub
+    Left = 664
+    Top = 232
+  end
+  object CDS_Sub: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 600
+    Top = 216
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    Parameters = <>
+    Left = 232
+    Top = 208
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 368
+    Top = 192
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 464
+    Top = 200
+  end
+  object cxGridPopupMenu2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 504
+    Top = 208
+  end
+  object ADOMX: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    Parameters = <>
+    Left = 1276
+    Top = 190
+  end
+  object CDS_MX: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 1232
+    Top = 246
+  end
+  object DSMX: TDataSource
+    DataSet = CDS_MX
+    Left = 1252
+    Top = 310
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 1104
+    Top = 328
+    object N1: TMenuItem
+      Caption = #20840#36873
+      OnClick = N1Click
+    end
+    object N2: TMenuItem
+      Caption = #20840#24323
+      OnClick = N2Click
+    end
+  end
+  object ADOQueryPrint: TADOQuery
+    Connection = DataLink_TradeTotalClothStk.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 488
+    Top = 440
+  end
+  object RMDB_1: TRMDBDataSet
+    Visible = True
+    DataSet = ADOQueryPrint
+    Left = 564
+    Top = 440
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbExport, rmpbNavigator]
+    DefaultCollate = False
+    ShowPrintDialog = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    Dataset = RMDB_1
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 620
+    Top = 440
+    ReportData = {}
+  end
+end

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

@@ -0,0 +1,678 @@
+unit U_TradeReturnClothInList;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+  cxEdit, DB, cxDBData, cxGridCustomTableView, cxGridTableView,
+  cxGridBandedTableView, cxGridDBBandedTableView, cxGridLevel, cxClasses,
+  cxControls, cxGridCustomView, cxGridDBTableView, cxGrid, StdCtrls, ComCtrls,
+  ExtCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, ADODB, DBClient,
+  cxDropDownEdit, cxCheckBox, RM_Common, RM_Class, RM_e_Xls, RM_Dataset,
+  RM_System, RM_GridReport, Menus, cxCalendar, cxButtonEdit, cxTextEdit, cxPC,
+  cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
+  cxNavigator, dxDateRanges, dxBarBuiltInMenu, U_BaseList, 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;
+
+type
+  TfrmTradeReturnClothInList = class(TfrmBaseList)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    TBExport: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    cxGridPopupMenu1: TcxGridPopupMenu;
+    Label1: TLabel;
+    Label2: TLabel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    CDS_Main: TClientDataSet;
+    TBDel: TToolButton;
+    PopupMenu1: TPopupMenu;
+    N1: TMenuItem;
+    N2: TMenuItem;
+    TBAdd: TToolButton;
+    TBEdit: TToolButton;
+    Label3: TLabel;
+    Label4: TLabel;
+    Label5: TLabel;
+    Label8: TLabel;
+    Label12: TLabel;
+    C_name: TEdit;
+    FromCoName: TEdit;
+    BCIOID: TEdit;
+    C_spec: TEdit;
+    IOType: TComboBox;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column6: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column4: TcxGridDBColumn;
+    v1Column14: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    v1Column8: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    v1Column12: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    Label10: TLabel;
+    BatchNo: TEdit;
+    v1Column11: TcxGridDBColumn;
+    v1Column13: TcxGridDBColumn;
+    v1Column15: TcxGridDBColumn;
+    v1Column20: TcxGridDBColumn;
+    ToolButton1: TToolButton;
+    Tv1Column1: TcxGridDBColumn;
+    ToolButton2: TToolButton;
+    Tv1Column2: TcxGridDBColumn;
+    Tv1Column4: TcxGridDBColumn;
+    Tv1Column6: TcxGridDBColumn;
+    Tv1Column7: TcxGridDBColumn;
+    Tv1Column8: TcxGridDBColumn;
+    Tv1Column9: TcxGridDBColumn;
+    Tv1Column10: TcxGridDBColumn;
+    ToolButton3: TToolButton;
+    Tv1Column12: TcxGridDBColumn;
+    Tv1Column14: TcxGridDBColumn;
+    Tv1Column15: TcxGridDBColumn;
+    Tv1Column16: TcxGridDBColumn;
+    Tv1Column17: TcxGridDBColumn;
+    Tv1Column18: TcxGridDBColumn;
+    ADOMX: TADOQuery;
+    CDS_MX: TClientDataSet;
+    DSMX: TDataSource;
+    Tv1Column3: TcxGridDBColumn;
+    Panel2: TPanel;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    v2Column5: TcxGridDBColumn;
+    v2Column3: TcxGridDBColumn;
+    v2Column4: TcxGridDBColumn;
+    Tv2Column2: TcxGridDBColumn;
+    Tv2Column1: TcxGridDBColumn;
+    Tv2Column3: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    ToolBar3: TToolBar;
+    ToolButton6: TToolButton;
+    Tv2Column4: TcxGridDBColumn;
+    PopupMenu2: TPopupMenu;
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    ADOQueryPrint: TADOQuery;
+    RMDB_1: TRMDBDataSet;
+    RM1: TRMGridReport;
+    Panel3: TPanel;
+    已打印: TLabel;
+    Tv2Column5: TcxGridDBColumn;
+    Label6: TLabel;
+    C_Pattern: TEdit;
+    cxStyleRepository1: TcxStyleRepository;
+    cxStyle1: TcxStyle;
+    ToolButton4: TToolButton;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure ConNoMChange(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBExportClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure N1Click(Sender: TObject);
+    procedure N2Click(Sender: TObject);
+    procedure TBDelClick(Sender: TObject);
+    procedure TBAddClick(Sender: TObject);
+    procedure TBEditClick(Sender: TObject);
+    procedure BCIOIDChange(Sender: TObject);
+    procedure C_specChange(Sender: TObject);
+    procedure FromCoNameChange(Sender: TObject);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure ToolButton3Click(Sender: TObject);
+    procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+    procedure ToolButton6Click(Sender: TObject);
+    procedure MenuItem1Click(Sender: TObject);
+    procedure MenuItem2Click(Sender: TObject);
+    procedure Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+    procedure ToolButton4Click(Sender: TObject);
+  private
+    canshu1, canshu2, canshu3: string;
+    procedure InitGrid();
+    procedure setStatus();
+    procedure InitMJID();
+    { Private declarations }
+  public
+    FSTKName: string;
+    { Public declarations }
+  end;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun, U_LabelPrint, U_AttachmentUpload,
+  U_TradeFinishClothInEdit, U_TradeReturnClothInEdit, U_SysLogHelp;
+
+{$R *.dfm}
+procedure TfrmTradeReturnClothInList.setStatus();
+begin
+
+end;
+
+procedure TfrmTradeReturnClothInList.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  Action := caFree;
+end;
+
+procedure TfrmTradeReturnClothInList.FormCreate(Sender: TObject);
+begin
+  inherited;
+  EndDate.DateTime := SGetServerDate(ADOQueryTemp);
+  BegDate.DateTime := EndDate.DateTime - 30;
+  canshu1 := Trim(self.fParameters1);
+  canshu2 := Trim(self.fParameters2);
+  canshu3 := Trim(self.fParameters3);
+end;
+
+procedure TfrmTradeReturnClothInList.InitGrid();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered := False;
+      Close;
+      sql.Clear;
+      sql.Add(' select A.* ');
+      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(' and A.IOTime<''' + Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1)) + '''');
+      sql.Add(' and isnull(STKNAME,'''')=''' + Trim(FSTKNAME) + '''');
+      SQL.Add(' and IOFlag=''入库''  ');
+      SQL.Add(' order by IOTime desc');
+      Open;
+    end;
+    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+    SCreateCDS(ADOQueryMain, CDS_Main);
+    SInitCDSData(ADOQueryMain, CDS_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmTradeReturnClothInList.TBRafreshClick(Sender: TObject);
+begin
+  BegDate.SetFocus;
+  InitGrid();
+end;
+
+procedure TfrmTradeReturnClothInList.ToolButton1Click(Sender: TObject);
+begin
+  WriteCxGrid(Self.Caption, Tv1, '贸易汇总仓库');
+end;
+
+procedure TfrmTradeReturnClothInList.ToolButton2Click(Sender: TObject);
+var
+  MBCIOID: string;
+begin
+  if CDS_Main.IsEmpty then
+    Exit;
+  if CDS_Main.Locate('SSel', True, []) = False then
+  begin
+    Application.MessageBox('没有选择数据!', '提示', 0);
+    Exit;
+  end;
+
+  MBCIOID := '';
+  CDS_Main.DisableControls;
+  with CDS_Main do
+  begin
+    First;
+    while CDS_Main.Locate('SSel', True, []) do
+    begin
+
+      MBCIOID := MBCIOID + ',' + (Trim(CDS_Main.fieldbyname('BCIOID').AsString));
+
+      Edit;
+      FieldByName('SSel').Value := False;
+      Post;
+    end;
+  end;
+  CDS_Main.EnableControls;
+
+  try
+    frmLabelPrint := TfrmLabelPrint.Create(Application);
+    with frmLabelPrint do
+    begin
+      FLMType := 'TradeReturnClothInPrt1';
+      FFiltration1 := MBCIOID;
+      if ShowModal = 1 then
+      begin
+//        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmLabelPrint.Free;
+  end;
+end;
+
+procedure TfrmTradeReturnClothInList.ToolButton3Click(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then
+    Exit;
+  try
+    frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
+    with frmAttachmentUpload do
+    begin
+      fkeyNO := Trim(Self.CDS_Main.fieldbyname('BCIOID').AsString);
+      fType := '贸易汇总布';
+      FEditAuthority := True;
+      if ShowModal = 1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmAttachmentUpload.Free;
+  end;
+end;
+
+procedure TfrmTradeReturnClothInList.ToolButton4Click(Sender: TObject);
+begin
+  inherited;
+  try
+    frmSysLogHelp := TfrmSysLogHelp.Create(Application);
+    with frmSysLogHelp do
+    begin
+      fModel := '回仓日志';
+      if ShowModal = 1 then
+      begin
+
+      end;
+    end;
+  finally
+    frmSysLogHelp.Free;
+  end;
+end;
+
+procedure TfrmTradeReturnClothInList.ToolButton6Click(Sender: TObject);
+var
+  fPrintFile, FLabVolume: string;
+begin
+  if CDS_MX.IsEmpty then
+    Exit;
+  if CDS_MX.Locate('SSel', True, []) = False then
+  begin
+    Application.MessageBox('没有选择数据!', '提示', 0);
+    Exit;
+  end;
+  CDS_MX.DisableControls;
+  with CDS_MX do
+  begin
+    First;
+    while not Eof do
+    begin
+      if CDS_MX.FieldByName('SSel').AsBoolean = True then
+      begin
+        with ADOQueryCmd do
+        begin
+          Close;
+          sql.Clear;
+          sql.Add('Update Trade_Cloth_Inspect Set PrtCount=PrtCount+1,PrtDate=getdate(),Prter=''' + Trim(DName) + '''');
+          sql.Add(' where CIID=''' + Trim(CDS_MX.fieldbyname('CIID').AsString) + '''');
+          ExecSQL;
+        end;
+
+        with ADOQueryPrint do
+        begin
+          Close;
+          SQL.Clear;
+          sql.Add(' EXEC P_Trade_Insp_Prt_Lab ');
+          SQL.Add(' @CIID=''' + Trim(CDS_MX.fieldbyname('CIID').AsString) + '''');
+          Open;
+        end;
+        if ADOQueryPrint.IsEmpty then
+        begin
+          application.MessageBox('标签内容未找到！', '提示信息', MB_ICONERROR);
+          CDS_MX.EnableControls;
+          exit;
+        end;
+
+        if Trim(ADOQueryPrint.fieldbyname('Grade').AsString) = '正品' then
+          FLabVolume := Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString)
+        else
+          FLabVolume := '次品标签';
+
+        ExportFtErpFile(FLabVolume + '.rmf', ADOQueryTemp);
+        fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\' + FLabVolume + '.rmf';
+
+        if FileExists(fPrintFile) then
+        begin
+          RM1.LoadFromFile(fPrintFile);
+          if Trim(ADOQueryPrint.fieldbyname('LabVolume').AsString) <> '次品标签' then
+            Rm1.DefaultCopies := 1
+          else
+            Rm1.DefaultCopies := 1;
+          RM1.PrintReport;
+        end
+        else
+        begin
+          Application.MessageBox(PChar('没有找' + fPrintFile), '提示', 0);
+        end;
+      end;
+      Next;
+    end;
+  end;
+  CDS_MX.EnableControls;
+
+  initMJID();
+end;
+
+procedure TfrmTradeReturnClothInList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+begin
+  inherited;
+  initMJID();
+end;
+
+procedure TfrmTradeReturnClothInList.Tv2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+begin
+  inherited;
+  if AViewInfo.GridRecord.Values[tv2.GetColumnByFieldName('PrtCount').Index] > 0 then
+    ACanvas.Brush.Color := $00EEF08E;
+end;
+
+procedure TfrmTradeReturnClothInList.initMJID();
+begin
+  try
+    with ADOMX do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('select * from Trade_Cloth_Inspect A');
+      sql.Add('where BCIOID=' + quotedstr(trim(cds_main.fieldByName('BCIOID').AsString)));
+      open;
+    end;
+    SCreateCDS(ADOMX, CDS_MX);
+    SInitCDSData(ADOMX, CDS_MX);
+  except
+  end;
+end;
+
+procedure TfrmTradeReturnClothInList.MenuItem1Click(Sender: TObject);
+begin
+  inherited;
+  SelOKNo(cds_mx, True);
+end;
+
+procedure TfrmTradeReturnClothInList.MenuItem2Click(Sender: TObject);
+begin
+  inherited;
+  SelOKNo(cds_mx, False);
+end;
+
+procedure TfrmTradeReturnClothInList.ConNoMChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+  end;
+end;
+
+procedure TfrmTradeReturnClothInList.TBCloseClick(Sender: TObject);
+begin
+
+  Close;
+end;
+
+procedure TfrmTradeReturnClothInList.FormShow(Sender: TObject);
+begin
+  inherited;
+  ReadCxGrid(Self.Caption, Tv1, '贸易汇总仓库');
+  setStatus();
+  InitGrid();
+end;
+
+procedure TfrmTradeReturnClothInList.TBExportClick(Sender: TObject);
+begin
+  if ADOQueryMain.IsEmpty then
+    exit;
+  TcxGridToExcel(FSTKName + '入库列表', cxGrid1);
+end;
+
+procedure TfrmTradeReturnClothInList.TBFindClick(Sender: TObject);
+begin
+  if ADOQueryMain.Active then
+  begin
+    SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+    SCreateCDS(ADOQueryMain, CDS_Main);
+    SInitCDSData(ADOQueryMain, CDS_Main);
+  end;
+end;
+
+procedure TfrmTradeReturnClothInList.N1Click(Sender: TObject);
+begin
+  SelOKNo(CDS_Main, True);
+end;
+
+procedure TfrmTradeReturnClothInList.N2Click(Sender: TObject);
+begin
+  SelOKNo(CDS_Main, False);
+end;
+
+procedure TfrmTradeReturnClothInList.TBDelClick(Sender: TObject);
+var
+  MBCIOID: string;
+begin
+  if CDS_Main.IsEmpty then
+    Exit;
+
+  if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
+    Exit;
+
+  if CDS_Main.IsEmpty then
+    Exit;
+  if CDS_Main.Locate('SSel', True, []) = False then
+  begin
+    Application.MessageBox('没有选择数据!', '提示', 0);
+    Exit;
+  end;
+
+  MBCIOID := '';
+  CDS_Main.DisableControls;
+  with CDS_Main do
+  begin
+    First;
+    while CDS_Main.Locate('SSel', True, []) do
+    begin
+
+      MBCIOID := MBCIOID + ',' + Trim(CDS_Main.fieldbyname('BCIOID').AsString);
+
+      CDS_Main.Delete;
+    end;
+  end;
+  CDS_Main.EnableControls;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('exec P_Fin_Flow_Judge ');
+    Sql.Add(' @FFIDS=' + quotedstr(MBCIOID));
+    Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+    Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+    Open;
+  end;
+  if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then
+  begin
+    Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0);
+    exit;
+  end;
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      Sql.Clear;
+      sql.Add('insert into Finance_Need_Up(UType,UDataId,UOperation,UOperator,UModule,UDetails)       ');
+      sql.Add('values(''现货回仓入库''    ');
+      sql.Add(',' + quotedstr(MBCIOID));
+      sql.Add(',''删除''   ');
+      sql.Add(',' + quotedstr(DName));
+      sql.Add(',' + quotedstr(trim(self.Caption)));
+      sql.Add(',' + quotedstr(MBCIOID));
+      sql.Add(')  ');
+
+//      sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+//      sql.Add(' ' + quotedstr(trim(DName)));
+//      sql.Add(',getdate() ');
+//      sql.Add(',' + quotedstr(trim('回仓日志')));
+//      sql.Add(',' + quotedstr(trim('回仓录入删除')));
+//      sql.Add(',' + quotedstr(trim('入库单号：' + quotedstr(MBCIOID))));
+//      sql.Add(',' + quotedstr(trim('成功')));
+//      sql.Add(')');
+
+      sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result)  ');
+      sql.Add(' select ''' + trim(DName) + ''',getdate(),''回仓日志'',''回仓录入删除'' ');
+      sql.Add(',''入库单号：'' + ''' + MBCIOID + '''+'' 品名：'' +C_Name+'' 花型：'' +C_Pattern+'' 数量：'' +cast(Qty as varchar(20)) ');
+      sql.Add(',''成功'' ');
+      sql.Add('from BS_Cloth_IO where BCIOID in (select RTValue from [dbo].[F_Tool_SplitString](''' + MBCIOID + ''','','') )');
+
+      Sql.Add('exec P_BS_Cloth_In_Del ');
+      Sql.Add(' @BCIOIDS=' + quotedstr(MBCIOID));
+      Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+      Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+      Open;
+    end;
+    if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
+      raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
+    ADOQueryCmd.Connection.CommitTrans;
+//    CDS_Main.Delete;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+    InitGrid();
+  end;
+
+end;
+
+procedure TfrmTradeReturnClothInList.TBAddClick(Sender: TObject);
+begin
+  try
+    frmTradeReturnClothInEdit := TfrmTradeReturnClothInEdit.Create(Application);
+    with frmTradeReturnClothInEdit do
+    begin
+      FBCId := '';
+      frmTradeReturnClothInEdit.canshu3 := Trim(Self.canshu3);
+      FSTKName := Self.FSTKName;
+      if ShowModal = 1 then
+      begin
+        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmTradeReturnClothInEdit.Free;
+  end;
+end;
+
+procedure TfrmTradeReturnClothInList.TBEditClick(Sender: TObject);
+begin
+  if CDS_Main.IsEmpty then
+    Exit;
+  with ADOQueryTemp do
+  begin
+    Close;
+    sql.Clear;
+    sql.Add('exec P_Fin_Flow_Judge ');
+    Sql.Add(' @FFIDS=' + quotedstr(Trim(CDS_Main.fieldbyname('BCIOID').AsString)));
+    Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+    Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+    Open;
+  end;
+  if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then
+  begin
+    Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0);
+    exit;
+  end;
+  with ADOQueryTemp do
+  begin
+    Close;
+    Sql.Clear;
+    Sql.Add('exec P_BS_Cloth_In_Edit ');
+    Sql.Add(' @BCIOIDS=' + quotedstr(Trim(CDS_Main.fieldbyname('BCIOID').AsString)));
+    Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
+    Sql.Add(',@DName=' + quotedstr(Trim(DName)));
+    Open;
+  end;
+  if ADOQueryTemp.FieldByName('intReturn').AsInteger = -1 then
+  begin
+    Application.MessageBox(PChar(ADOQueryTemp.fieldbyname('ShowMsg').AsString), '提示', 0);
+    exit;
+  end;
+  try
+    frmTradeReturnClothInEdit := TfrmTradeReturnClothInEdit.Create(Application);
+    with frmTradeReturnClothInEdit do
+    begin
+      FBCId := Trim(CDS_Main.fieldbyname('BCIOID').AsString);
+      TBDel.Visible := False;
+      TBAdd.Visible := False;
+      FSTKName := Self.FSTKName;
+      if ShowModal = 1 then
+      begin
+        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmTradeReturnClothInEdit.Free;
+  end;
+end;
+
+procedure TfrmTradeReturnClothInList.BCIOIDChange(Sender: TObject);
+begin
+  if Length(Trim(BCIOID.Text)) < 4 then
+  begin
+    if Trim(BCIOID.Text) <> '' then
+      Exit;
+  end;
+  TBFind.Click;
+end;
+
+procedure TfrmTradeReturnClothInList.C_specChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmTradeReturnClothInList.FromCoNameChange(Sender: TObject);
+begin
+  TBFind.Click;
+end;
+
+procedure TfrmTradeReturnClothInList.cxTabControl1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+end.
+

项目代码/RTBasicsV1/T03贸易布匹检验/TradeInsp.dproj.local

@@ -1,47 +1,47 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
+    <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.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj</Transaction>
     <Transaction>1899-12-30 00:00:00.000.521,=D:\Dp10RepoV1\项目代码\RTBasicsV1\A00通用窗体\U_LabelPrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.024,D:\Dp10RepoV1\项目代码\RTBasicsV1\A00通用窗体\U_LabelPrint.pas=D:\Dp10RepoV1\项目代码\RTBasicsV1\A00通用窗体\U_LabelPrintSql.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.322,=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\U_TradeMachInsp.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.841,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T03贸易布匹检验\U_TradeClothInspList.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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.363,D:\Dp10Repo\项目代码\RTBasics\T03贸易布匹检验\U_TradeMachInsp.pas=D:\Dp10Repo\项目代码\RTBasics\T03贸易布匹检验\U_TradeMachFlipInsp.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.582,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.983,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\Unit1.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.703,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj</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.841,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T03贸易布匹检验\U_TradeClothInspList.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
     <Transaction>1899-12-30 00:00:00.000.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
-    <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.581,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInsp.dproj</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.024,D:\Dp10RepoV1\项目代码\RTBasicsV1\A00通用窗体\U_LabelPrintSql.dfm=D:\Dp10RepoV1\项目代码\RTBasicsV1\A00通用窗体\U_LabelPrint.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.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.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.532,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeMachInsp.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.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.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.589,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.965,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInsp.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\InformationBase.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.024,D:\Dp10RepoV1\项目代码\RTBasicsV1\A00通用窗体\U_LabelPrintSql.pas=D:\Dp10RepoV1\项目代码\RTBasicsV1\A00通用窗体\U_LabelPrint.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.363,D:\Dp10Repo\项目代码\RTBasics\T03贸易布匹检验\U_TradeMachFlipInsp.pas=D:\Dp10Repo\项目代码\RTBasics\T03贸易布匹检验\U_TradeMachInsp.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.909,=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\U_DyeClothInspList.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.019,=D:\Dp10Repo\项目代码\RTBasics\T03贸易布匹检验\U_TradePack.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.136,=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.363,D:\Dp10Repo\项目代码\RTBasics\T03贸易布匹检验\U_TradeMachFlipInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\T03贸易布匹检验\U_TradeMachInsp.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.363,D:\Dp10Repo\项目代码\RTBasics\T03贸易布匹检验\U_TradeMachInsp.dfm=D:\Dp10Repo\项目代码\RTBasics\T03贸易布匹检验\U_TradeMachFlipInsp.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.024,D:\Dp10RepoV1\项目代码\RTBasicsV1\A00通用窗体\U_LabelPrint.dfm=D:\Dp10RepoV1\项目代码\RTBasicsV1\A00通用窗体\U_LabelPrintSql.dfm</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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="android-support-v4.dex.jar"/>

项目代码/RTBasicsV1/T03贸易布匹检验/TradeInspLogin.dproj.local

@@ -49,7 +49,7 @@
     <File Path="U_upPassword.dfm"/>
   </ProjectSortOrder>
 	<Transactions>
-    <Transaction>1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.635,D:\Dp10Repo\项目代码\RTBasics\F05染色检验\WFBProduction.dproj=D:\Dp10Repo\项目代码\RTBasics\F05染色检验\DyeInspLogin.dproj</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.296,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInspLogin.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.296,D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\TradeInspLogin.dproj=D:\Dp10Repo\项目代码\RTBasics\G03贸易布匹检验\DyeInspLogin.dproj</Transaction>
   </Transactions>
 </BorlandProject>

项目代码/RTBasicsV1/T04贸易明细仓库/TradeClothStk.dproj.local

@@ -1,73 +1,73 @@
 <?xml version="1.0" encoding="utf-8"?>
 <BorlandProject>
 	<Transactions>
-    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.734,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.823,D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkList.dfm=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkListSel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.046,=D:\Dp10RepoV1\public10\design\U_cxGridCustomSet.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.734,=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.163,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.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.823,D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkList.pas=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkListSel.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.728,D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.dfm=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FramePagingSel.dfm</Transaction>
     <Transaction>1899-12-30 00:00:00.000.987,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothStkList.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.493,=D:\Dp10Repo\项目代码\RTBasics\A00通用模板\Unit1.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.585,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothOutList.dfm=C:\Users\Administrator\Desktop\U_TatClothOutList.dfm</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.123,=D:\Dp10Repo\public10\design\U_globalVar.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.997,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothOutEdit.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.716,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ProcessSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\TradeClothStk.dproj=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\InformationBase.dproj</Transaction>
     <Transaction>1899-12-30 00:00:00.000.649,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.097,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.073,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.003,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothInList.dfm=C:\Users\Administrator\Desktop\U_TatClothInList.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothInList.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.163,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.900,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.097,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelPrint.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.059,=D:\Dp10RepoV1\public10\design\U_FormLayOutDesign.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.728,D:\Dp10RepoV1\项目代码\须上\A00通用组件\FramePagingSel.pas=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.073,=D:\Dp10RepoV1\public10\design\U_BaseDataLink.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.630,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.585,C:\Users\Administrator\Desktop\U_TatClothOutList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothOutList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.699,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothInList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.585,C:\Users\Administrator\Desktop\U_TatClothOutList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothOutList.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.728,D:\Dp10RepoV1\项目代码\须上\A00通用组件\FramePagingSel.dfm=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.dfm</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.048,=D:\Dp10Repo\public10\design\U_BaseList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.585,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothOutList.pas=C:\Users\Administrator\Desktop\U_TatClothOutList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.572,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.pas=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.432,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothOutList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.434,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.952,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.903,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.003,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothInList.pas=C:\Users\Administrator\Desktop\U_TatClothInList.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.928,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.611,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.pas=C:\Users\Administrator\Desktop\U_TatClothStkList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.432,=D:\Dp10Repo\项目代码\RTBasics\T04贸易明细仓库\U_TradeClothOutList.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.903,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.952,D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.299,=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeDRSel.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.252,=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\TradeClothStk.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.003,C:\Users\Administrator\Desktop\U_TatClothInList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothInList.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.015,=D:\Dp10Repo\public10\ThreeFun\Fun\U_RTFun.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.793,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.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.868,=D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\U_TradeClothWaitStorage.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.pas=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.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.891,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.793,=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradeSalesContractSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeDeliveryRequest.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.434,=D:\Dp10Repo\项目代码\华府\A00通用窗体\U_LabelMapSet.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.035,C:\Users\Administrator\Desktop\U_TatClothInList.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.823,D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkListSel.pas=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.084,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeDeliveryRequestInPut.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.572,D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.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.347,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.728,D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FramePagingSel.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.413,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.370,D:\Dp10Repo\项目代码\RTBasics\G04贸易明细仓库\Unit1.pas=</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.611,D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.dfm=C:\Users\Administrator\Desktop\U_TatClothStkList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.158,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeDeliveryRequest.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.611,C:\Users\Administrator\Desktop\U_TatClothStkList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.pas</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.299,=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeDRSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.035,C:\Users\Administrator\Desktop\U_TatClothInList.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.003,C:\Users\Administrator\Desktop\U_TatClothInList.pas=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothInList.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.413,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.347,=D:\Dp10RepoV1\项目代码\须上\A00通用组件\FrameDateSel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.891,=D:\Dp10RepoV1\public10\ThreeFun\Fun\U_printPdf.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.823,D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkListSel.dfm=D:\Dp10RepoV1\项目代码\须上\T04贸易明细仓库\U_TradeClothStkList.dfm</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.611,C:\Users\Administrator\Desktop\U_TatClothStkList.dfm=D:\Dp10RepoV1\项目代码\花蝴蝶\T04贸易明细仓库\U_TradeClothStkList.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.084,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeDeliveryRequestInPut.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.876,=D:\Dp10RepoV1\项目代码\RTBasicsV1\T04贸易明细仓库\U_TradeClothInEdit.pas</Transaction>
     <Transaction>1899-12-30 00:00:00.000.760,=D:\Dp10Repo\项目代码\RTBasics\T00贸易通用窗体\U_TradePlanSel.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.572,D:\Dp10Repo\项目代码\RTBasics\D03针织成品仓库\U_KnitPlanSel.dfm=D:\Dp10Repo\项目代码\RTBasics\G00贸易通用窗体\U_TradePlanSel.dfm</Transaction>
-    <Transaction>1899-12-30 00:00:00.000.975,=D:\Dp10Repo\public10\ThreeFun\Fun\U_CompressionFun.pas</Transaction>
   </Transactions>
 	<ProjectSortOrder AutoSort="0" SortType="0">
     <File Path="android-support-v4.dex.jar"/>

项目代码/RTBasicsV1/T05贸易门市管理/File.INI

@@ -0,0 +1,4 @@
+[生产车间配置]
+卷条码机台标志=99
+成品DLL文件=CYZZ.dll
+成品DLL调用号=11

项目代码/RTBasicsV1/T05贸易门市管理/FileHelp.ini

@@ -0,0 +1,7 @@
+[FILEPATH]
+FileClass=YP,AA,BB,HT
+YP=D:\YP
+AA=D:\AA
+BB=D:\BB
+HT=D:\HT
+OTHER=D:\OTHER

项目代码/RTBasicsV1/T05贸易门市管理/ProjectGroup1.bpg

@@ -0,0 +1,23 @@
+#------------------------------------------------------------------------------
+VERSION = BWS.01
+#------------------------------------------------------------------------------
+!ifndef ROOT
+ROOT = $(MAKEDIR)\..
+!endif
+#------------------------------------------------------------------------------
+MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
+DCC = $(ROOT)\bin\dcc32.exe $**
+BRCC = $(ROOT)\bin\brcc32.exe $**
+#------------------------------------------------------------------------------
+PROJECTS = testDll.exe ProductPrice.dll
+#------------------------------------------------------------------------------
+default: $(PROJECTS)
+#------------------------------------------------------------------------------
+
+testDll.exe: testDll.dpr
+  $(DCC)
+
+ProductPrice.dll: ProductPrice.dpr
+  $(DCC)
+
+

项目代码/RTBasicsV1/T05贸易门市管理/ProjectGroup1.groupproj

@@ -0,0 +1,48 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <ProjectGuid>{D75EC075-444C-40C2-8ACB-0AAD801B39FF}</ProjectGuid>
+    </PropertyGroup>
+    <ItemGroup>
+        <Projects Include="TradeMarket.dproj">
+            <Dependencies/>
+        </Projects>
+        <Projects Include="testDll.dproj">
+            <Dependencies/>
+        </Projects>
+    </ItemGroup>
+    <ProjectExtensions>
+        <Borland.Personality>Default.Personality.12</Borland.Personality>
+        <Borland.ProjectType/>
+        <BorlandProject>
+            <Default.Personality/>
+        </BorlandProject>
+    </ProjectExtensions>
+    <Target Name="TradeMarket">
+        <MSBuild Projects="TradeMarket.dproj"/>
+    </Target>
+    <Target Name="TradeMarket:Clean">
+        <MSBuild Projects="TradeMarket.dproj" Targets="Clean"/>
+    </Target>
+    <Target Name="TradeMarket:Make">
+        <MSBuild Projects="TradeMarket.dproj" Targets="Make"/>
+    </Target>
+    <Target Name="testDll">
+        <MSBuild Projects="testDll.dproj"/>
+    </Target>
+    <Target Name="testDll:Clean">
+        <MSBuild Projects="testDll.dproj" Targets="Clean"/>
+    </Target>
+    <Target Name="testDll:Make">
+        <MSBuild Projects="testDll.dproj" Targets="Make"/>
+    </Target>
+    <Target Name="Build">
+        <CallTarget Targets="TradeMarket;testDll"/>
+    </Target>
+    <Target Name="Clean">
+        <CallTarget Targets="TradeMarket:Clean;testDll:Clean"/>
+    </Target>
+    <Target Name="Make">
+        <CallTarget Targets="TradeMarket:Make;testDll:Make"/>
+    </Target>
+    <Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
+</Project>

项目代码/RTBasicsV1/T05贸易门市管理/ProjectGroup1.groupproj.local

@@ -0,0 +1,7 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<Transactions/>
+	<Default.Personality>
+		<Projects ActiveProject="D:\RTFormwork\项目代码\RTBasicsV1\T05贸易门市管理\TradeMarket.dproj"/>
+	</Default.Personality>
+</BorlandProject>

项目代码/RTBasicsV1/T05贸易门市管理/SYSTEMSET.ini

@@ -0,0 +1,6 @@
+[SERVER]
+服务器地址=101.132.143.144
+服务器地址类型=2002
+是否自动更新=1
+软件名称=睿特版本库
+登陆标题=sss

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

@@ -0,0 +1,61 @@
+ library TradeMarket;
+
+uses
+  SysUtils,
+  classes,
+  forms,
+  WinTypes,
+  WinProcs,
+  midaslib,
+  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},
+  Unit1 in 'Unit1.pas' {Form1},
+  U_AttachmentUpload in '..\A00通用窗体\U_AttachmentUpload.pas' {frmFjList_RZ},
+  U_ClothInfoSel in '..\A00通用窗体\U_ClothInfoSel.pas' {frmClothInfoSel},
+  U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel},
+  U_EmployeeSel in '..\A00通用窗体\U_EmployeeSel.pas' {frmEmployeeSel},
+  U_LabelMapSet in '..\A00通用窗体\U_LabelMapSet.pas' {frmLabelMapSet},
+  U_LabelPrint in '..\A00通用窗体\U_LabelPrint.pas' {frmLabelPrint},
+  U_ZDYHelpSel in '..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas' {frmZDYHelpSel},
+  U_PictureUpload in '..\A00通用窗体\U_PictureUpload.pas' {frmPictureUpload},
+  U_TradeMarketDisScan in 'U_TradeMarketDisScan.pas' {frmTradeMarketDisScan},
+  U_TradeDispatchedSel in 'U_TradeDispatchedSel.pas' {frmTradeDispatchedSel},
+  U_cxGridCustomCss in '..\..\..\public10\design\U_cxGridCustomCss.pas',
+  U_cxGridCustomSet in '..\..\..\public10\design\U_cxGridCustomSet.pas',
+  U_FormLayOutDesign in '..\..\..\public10\design\U_FormLayOutDesign.pas',
+  U_globalVar in '..\..\..\public10\design\U_globalVar.pas',
+  U_WindowFormdesign in '..\..\..\public10\design\U_WindowFormdesign.pas';
+
+{$R *.res}
+
+procedure DllEnterPoint(dwReason: DWORD); far; stdcall;
+begin
+  DLLProc := @DLLEnterPoint;
+  DllEnterPoint(DLL_PROCESS_ATTACH);
+end;
+
+procedure DLLUnloadProc(Reason: Integer); register;
+begin
+//  if (Reason = DLL_PROCESS_DETACH) or (Reason = DLL_THREAD_DETACH) then
+//    Application := NewDllApp;
+end;
+
+exports
+  GetDllForm;
+
+begin
+  try
+    NewDllApp := Application;
+    DLLProc := @DLLUnloadProc;
+  except
+
+  end;
+end.
+

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

@@ -0,0 +1,941 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <ProjectGuid>{7B70AA99-C84C-40AE-B4AE-13C5223B874C}</ProjectGuid>
+        <MainSource>TradeMarket.dpr</MainSource>
+        <Base>True</Base>
+        <Config Condition="'$(Config)'==''">Debug</Config>
+        <TargetedPlatforms>38017</TargetedPlatforms>
+        <AppType>Library</AppType>
+        <FrameworkType>VCL</FrameworkType>
+        <ProjectVersion>19.2</ProjectVersion>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
+        <Base_Android64>true</Base_Android64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
+        <Base_iOSDevice64>true</Base_iOSDevice64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+        <Base_Win32>true</Base_Win32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+        <Base_Win64>true</Base_Win64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+        <Cfg_1>true</Cfg_1>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+        <Cfg_2>true</Cfg_2>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
+        <Cfg_2_Android64>true</Cfg_2_Android64>
+        <CfgParent>Cfg_2</CfgParent>
+        <Cfg_2>true</Cfg_2>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
+        <Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
+        <CfgParent>Cfg_2</CfgParent>
+        <Cfg_2>true</Cfg_2>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
+        <Cfg_2_OSX64>true</Cfg_2_OSX64>
+        <CfgParent>Cfg_2</CfgParent>
+        <Cfg_2>true</Cfg_2>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
+        <Cfg_2_Win32>true</Cfg_2_Win32>
+        <CfgParent>Cfg_2</CfgParent>
+        <Cfg_2>true</Cfg_2>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base)'!=''">
+        <DCC_E>false</DCC_E>
+        <DCC_F>false</DCC_F>
+        <DCC_K>false</DCC_K>
+        <DCC_N>true</DCC_N>
+        <DCC_S>false</DCC_S>
+        <DCC_ImageBase>00400000</DCC_ImageBase>
+        <DCC_DebugInformation>1</DCC_DebugInformation>
+        <DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+        <DCC_UnitSearchPath>D:\富通ERP;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
+        <DCC_UsePackage>vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;dclOffice2k;Rave50CLX;Rave50VCL;$(DCC_UsePackage)</DCC_UsePackage>
+        <GenDll>true</GenDll>
+        <SanitizedProjectName>TradeMarket</SanitizedProjectName>
+        <DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;Data.Win;$(DCC_Namespace)</DCC_Namespace>
+        <VerInfo_Locale>2052</VerInfo_Locale>
+        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Android64)'!=''">
+        <Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
+        <EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
+        <iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <DCC_Namespace>System.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+        <BT_BuildType>Debug</BT_BuildType>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <Icon_MainIcon>InformationBase_Icon.ico</Icon_MainIcon>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win64)'!=''">
+        <Icon_MainIcon>InformationBase_Icon.ico</Icon_MainIcon>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1)'!=''">
+        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+        <DCC_DebugInformation>0</DCC_DebugInformation>
+        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2)'!=''">
+        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+        <DCC_Optimize>false</DCC_Optimize>
+        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
+        <BT_BuildType>Debug</BT_BuildType>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
+        <BT_BuildType>Debug</BT_BuildType>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
+        <BT_BuildType>Debug</BT_BuildType>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
+        <Debugger_HostApplication>D:\RTFormwork\项目代码\RTBasicsV1\T05贸易门市管理\testDll.exe</Debugger_HostApplication>
+    </PropertyGroup>
+    <ItemGroup>
+        <DelphiCompile Include="$(MainSource)">
+            <MainSource>MainSource</MainSource>
+        </DelphiCompile>
+        <DCCReference Include="U_GetDllForm.pas"/>
+        <DCCReference Include="U_DataLink.pas">
+            <Form>DataLink_TradeMarket</Form>
+            <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">
+            <Form>frmZDYHelp</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="Unit1.pas">
+            <Form>Form1</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="..\A00通用窗体\U_AttachmentUpload.pas">
+            <Form>frmFjList_RZ</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="..\A00通用窗体\U_ClothInfoSel.pas">
+            <Form>frmClothInfoSel</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="..\A00通用窗体\U_CompanySel.pas">
+            <Form>frmCompanySel</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="..\A00通用窗体\U_EmployeeSel.pas">
+            <Form>frmEmployeeSel</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="..\A00通用窗体\U_LabelMapSet.pas">
+            <Form>frmLabelMapSet</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="..\A00通用窗体\U_LabelPrint.pas">
+            <Form>frmLabelPrint</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas">
+            <Form>frmZDYHelpSel</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="..\A00通用窗体\U_PictureUpload.pas">
+            <Form>frmPictureUpload</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="U_TradeMarketDisScan.pas">
+            <Form>frmTradeMarketDisScan</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="U_TradeDispatchedSel.pas">
+            <Form>frmTradeDispatchedSel</Form>
+            <FormType>dfm</FormType>
+        </DCCReference>
+        <DCCReference Include="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
+        <DCCReference Include="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
+        <DCCReference Include="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
+        <DCCReference Include="..\..\..\public10\design\U_globalVar.pas"/>
+        <DCCReference Include="..\..\..\public10\design\U_WindowFormdesign.pas"/>
+        <BuildConfiguration Include="Debug">
+            <Key>Cfg_2</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Base">
+            <Key>Base</Key>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Release">
+            <Key>Cfg_1</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+    </ItemGroup>
+    <ProjectExtensions>
+        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+        <Borland.ProjectType/>
+        <BorlandProject>
+            <Delphi.Personality>
+                <Source>
+                    <Source Name="MainSource">TradeMarket.dpr</Source>
+                </Source>
+            </Delphi.Personality>
+            <Platforms>
+                <Platform value="Android64">True</Platform>
+                <Platform value="iOSDevice64">True</Platform>
+                <Platform value="Linux64">True</Platform>
+                <Platform value="OSX64">True</Platform>
+                <Platform value="Win32">True</Platform>
+                <Platform value="Win64">False</Platform>
+            </Platforms>
+            <Deployment Version="3">
+                <DeployFile LocalName="TradeMarket.dll" Configuration="Debug" Class="ProjectOutput">
+                    <Platform Name="Win32">
+                        <RemoteName>TradeMarket.dll</RemoteName>
+                        <Overwrite>true</Overwrite>
+                    </Platform>
+                </DeployFile>
+                <DeployClass Name="AdditionalDebugSymbols">
+                    <Platform Name="OSX32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidClassesDexFile">
+                    <Platform Name="Android">
+                        <RemoteDir>classes</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>classes</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidFileProvider">
+                    <Platform Name="Android">
+                        <RemoteDir>res\xml</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\xml</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidGDBServer">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeArmeabiFile">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\armeabi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeArmeabiv7aFile">
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidLibnativeMipsFile">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\mips</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\mips</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidServiceOutput">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\arm64-v8a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidServiceOutput_Android32">
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashImageDef">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashStyles">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="AndroidSplashStylesV21">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\values-v21</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_Colors">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_DefaultAppIcon">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon144">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon192">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon36">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-ldpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-ldpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon48">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-mdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-mdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon72">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-hdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-hdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_LauncherIcon96">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_NotificationIcon24">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-mdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-mdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_NotificationIcon36">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-hdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-hdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_NotificationIcon48">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_NotificationIcon72">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_NotificationIcon96">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xxxhdpi</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage426">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-small</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-small</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage470">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-normal</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-normal</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage640">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-large</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-large</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_SplashImage960">
+                    <Platform Name="Android">
+                        <RemoteDir>res\drawable-xlarge</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\drawable-xlarge</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="Android_Strings">
+                    <Platform Name="Android">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>res\values</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DebugSymbols">
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DependencyFramework">
+                    <Platform Name="OSX32">
+                        <Operation>1</Operation>
+                        <Extensions>.framework</Extensions>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <Operation>1</Operation>
+                        <Extensions>.framework</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="DependencyModule">
+                    <Platform Name="OSX32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                        <Extensions>.dll;.bpl</Extensions>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Required="true" Name="DependencyPackage">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <Operation>1</Operation>
+                        <Extensions>.dylib</Extensions>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                        <Extensions>.bpl</Extensions>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="File">
+                    <Platform Name="Android">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <Operation>0</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iOS_AppStore1024">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_AppIcon152">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_AppIcon167">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Launch2x">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_LaunchDark2x">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Notification40">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_Setting58">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPad_SpotLight80">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_AppIcon120">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_AppIcon180">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch2x">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Launch3x">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_LaunchDark2x">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_LaunchDark3x">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\LaunchScreenImage.imageset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Notification40">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Notification60">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Setting58">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Setting87">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Spotlight120">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="iPhone_Spotlight80">
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <RemoteDir>..\$(PROJECTNAME).launchscreen\Assets\AppIcon.appiconset</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectAndroidManifest">
+                    <Platform Name="Android">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSDeviceDebug">
+                    <Platform Name="iOSDevice32">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectiOSEntitlements"/>
+                <DeployClass Name="ProjectiOSInfoPList"/>
+                <DeployClass Name="ProjectiOSLaunchScreen"/>
+                <DeployClass Name="ProjectiOSResource">
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOSXDebug"/>
+                <DeployClass Name="ProjectOSXEntitlements"/>
+                <DeployClass Name="ProjectOSXInfoPList"/>
+                <DeployClass Name="ProjectOSXResource">
+                    <Platform Name="OSX32">
+                        <RemoteDir>Contents\Resources</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <RemoteDir>Contents\Resources</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Required="true" Name="ProjectOutput">
+                    <Platform Name="Android">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\arm64-v8a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSDevice64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="iOSSimulator">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Linux64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="OSX64">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win32">
+                        <Operation>0</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectOutput_Android32">
+                    <Platform Name="Android64">
+                        <RemoteDir>library\lib\armeabi-v7a</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="ProjectUWPManifest">
+                    <Platform Name="Win32">
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win64">
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="UWP_DelphiLogo150">
+                    <Platform Name="Win32">
+                        <RemoteDir>Assets</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win64">
+                        <RemoteDir>Assets</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <DeployClass Name="UWP_DelphiLogo44">
+                    <Platform Name="Win32">
+                        <RemoteDir>Assets</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                    <Platform Name="Win64">
+                        <RemoteDir>Assets</RemoteDir>
+                        <Operation>1</Operation>
+                    </Platform>
+                </DeployClass>
+                <ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="OSX32" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="OSX64" Name="$(PROJECTNAME)"/>
+                <ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
+                <ProjectRoot Platform="Android64" Name="$(PROJECTNAME)"/>
+            </Deployment>
+        </BorlandProject>
+        <ProjectFileVersion>12</ProjectFileVersion>
+    </ProjectExtensions>
+    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
+    <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
+</Project>

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

@@ -0,0 +1,128 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<Transactions>
+    <Transaction>1899-12-30 00:00:00.000.075,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisScan.pas=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisSel.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.616,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LablePrint.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.135,D:\Dp10Repo\项目代码\睿特\新DLL初始化(CSH.dll)\U_ZDYHelp.pas=</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.075,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisScan.dfm=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisSel.dfm</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.873,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LbaelMapSet.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.939,=D:\Dp10Repo\public10\design\U_BaseInput.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.149,=D:\Dp10Repo\public10\ThreeFun\Form\U_ZDYHelp.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.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.692,D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_ClothInfoSel.dfm=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.dfm</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.684,D:\Dp10Repo\项目代码\RTBasics\T05门市订单管理\InformationBase.dproj=D:\Dp10Repo\项目代码\RTBasics\T05门市订单管理\TradeMarket.dproj</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.020,D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeMarketList.pas=D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeDispatchedList.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.197,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketInPut.pas=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisSel.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.178,=D:\Dp10Repo\public10\design\U_WindowFormdesign.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.530,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedSel.dfm=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedList.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.530,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedSel.pas=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeDispatchedList.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.086,=D:\Dp10Repo\public10\design\U_cxGridCustomCss.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.020,D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeMarketList.dfm=D:\Dp10Repo\项目代码\宝磊\T05贸易门市管理\U_TradeDispatchedList.dfm</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.135,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_LabelPrint.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.092,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_EmployeeSel.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.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.422,=D:\Dp10Repo\项目代码\RTBasics\A00通用窗体\U_CompanySel.pas</Transaction>
+    <Transaction>1899-12-30 00:00:00.000.197,D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketInPut.dfm=D:\Dp10Repo\项目代码\希风\T05贸易门市管理\U_TradeMarketDisSel.dfm</Transaction>
+    <Transaction>2024-07-29 11:45:50.623,=D:\RTFormwork\public10\design\U_cxGridCustomSet.pas</Transaction>
+    <Transaction>2024-07-29 11:45:50.667,=D:\RTFormwork\public10\design\U_FormLayOutDesign.pas</Transaction>
+  </Transactions>
+	<ProjectSortOrder AutoSort="0" SortType="0">
+    <File Path="android-support-v4.dex.jar"/>
+    <File Path="cloud-messaging.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-ads-base.17.2.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-ads.17.2.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-analytics.16.0.8.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-base.16.0.1.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-basement.16.2.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-gass.17.2.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-identity.16.0.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-maps.16.1.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-stats.16.0.1.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-tasks.16.0.1.dex.jar"/>
+    <File Path="com-google-android-gms.play-services-wallet.16.0.1.dex.jar"/>
+    <File Path="com-google-firebase.firebase-analytics.16.4.0.dex.jar"/>
+    <File Path="com-google-firebase.firebase-common.16.1.0.dex.jar"/>
+    <File Path="com-google-firebase.firebase-iid-interop.16.0.1.dex.jar"/>
+    <File Path="com-google-firebase.firebase-iid.17.1.1.dex.jar"/>
+    <File Path="com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar"/>
+    <File Path="com-google-firebase.firebase-messaging.17.5.0.dex.jar"/>
+    <File Path="fmx.dex.jar"/>
+    <File Path="google-play-billing.dex.jar"/>
+    <File Path="google-play-licensing.dex.jar"/>
+    <File Path="..\..\RTBasicsV1"/>
+    <File Path="..\A00通用窗体"/>
+    <File Path="..\A00通用窗体\U_AttachmentUpload.pas"/>
+    <File Path="..\A00通用窗体\U_AttachmentUpload.dfm"/>
+    <File Path="..\A00通用窗体\U_ClothInfoSel.pas"/>
+    <File Path="..\A00通用窗体\U_ClothInfoSel.dfm"/>
+    <File Path="..\A00通用窗体\U_CompanySel.pas"/>
+    <File Path="..\A00通用窗体\U_CompanySel.dfm"/>
+    <File Path="..\A00通用窗体\U_EmployeeSel.pas"/>
+    <File Path="..\A00通用窗体\U_EmployeeSel.dfm"/>
+    <File Path="..\A00通用窗体\U_LabelMapSet.pas"/>
+    <File Path="..\A00通用窗体\U_LabelMapSet.dfm"/>
+    <File Path="..\A00通用窗体\U_LabelPrint.pas"/>
+    <File Path="..\A00通用窗体\U_LabelPrint.dfm"/>
+    <File Path="..\A00通用窗体\U_PictureUpload.pas"/>
+    <File Path="..\A00通用窗体\U_PictureUpload.dfm"/>
+    <File Path="D:\RTFormwork"/>
+    <File Path="..\..\..\public10"/>
+    <File Path="..\..\..\public10\design"/>
+    <File Path="..\..\..\public10\design\U_BaseHelp.pas"/>
+    <File Path="..\..\..\public10\design\U_BaseHelp.dfm"/>
+    <File Path="..\..\..\public10\design\U_BaseInput.pas"/>
+    <File Path="..\..\..\public10\design\U_BaseInput.dfm"/>
+    <File Path="..\..\..\public10\design\U_BaseList.pas"/>
+    <File Path="..\..\..\public10\design\U_BaseList.dfm"/>
+    <File Path="..\..\..\public10\design\U_cxGridCustomCss.pas"/>
+    <File Path="..\..\..\public10\design\U_globalVar.pas"/>
+    <File Path="..\..\..\public10\design\U_WindowFormdesign.pas"/>
+    <File Path="..\..\..\public10\design\U_cxGridCustomSet.pas"/>
+    <File Path="..\..\..\public10\design\U_FormLayOutDesign.pas"/>
+    <File Path="..\..\..\public10\ThreeFun"/>
+    <File Path="..\..\..\public10\ThreeFun\Form"/>
+    <File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.pas"/>
+    <File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelp.dfm"/>
+    <File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.pas"/>
+    <File Path="..\..\..\public10\ThreeFun\Form\U_ZDYHelpSel.dfm"/>
+    <File Path="..\..\..\public10\ThreeFun\Fun"/>
+    <File Path="..\..\..\public10\ThreeFun\Fun\U_CompressionFun.pas"/>
+    <File Path="..\..\..\public10\ThreeFun\Fun\U_RTFun.pas"/>
+    <File Path="Unit1.pas"/>
+    <File Path="Unit1.dfm"/>
+    <File Path="U_DataLink.pas"/>
+    <File Path="U_DataLink.dfm"/>
+    <File Path="U_GetDllForm.pas"/>
+    <File Path="U_iniParam.pas"/>
+    <File Path="U_TradeMarketDisScan.pas"/>
+    <File Path="U_TradeMarketDisScan.dfm"/>
+    <File Path="U_TradeDispatchedSel.pas"/>
+    <File Path="U_TradeDispatchedSel.dfm"/>
+  </ProjectSortOrder>
+</BorlandProject>

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

@@ -0,0 +1,62 @@
+[ExpressSkins]
+Default=0
+ShowNotifications=1
+Enabled=1
+dxSkinBasic=0
+dxSkinBlack=0
+dxSkinBlue=0
+dxSkinBlueprint=0
+dxSkinCaramel=0
+dxSkinCoffee=0
+dxSkinDarkroom=0
+dxSkinDarkSide=0
+dxSkinDevExpressDarkStyle=0
+dxSkinDevExpressStyle=0
+dxSkinFoggy=0
+dxSkinGlassOceans=0
+dxSkinHighContrast=0
+dxSkiniMaginary=0
+dxSkinLilian=0
+dxSkinLiquidSky=0
+dxSkinLondonLiquidSky=0
+dxSkinMcSkin=0
+dxSkinMetropolis=0
+dxSkinMetropolisDark=0
+dxSkinMoneyTwins=0
+dxSkinOffice2007Black=0
+dxSkinOffice2007Blue=0
+dxSkinOffice2007Green=0
+dxSkinOffice2007Pink=0
+dxSkinOffice2007Silver=0
+dxSkinOffice2010Black=0
+dxSkinOffice2010Blue=0
+dxSkinOffice2010Silver=0
+dxSkinOffice2013DarkGray=0
+dxSkinOffice2013LightGray=0
+dxSkinOffice2013White=0
+dxSkinOffice2016Colorful=0
+dxSkinOffice2016Dark=0
+dxSkinOffice2019Black=0
+dxSkinOffice2019Colorful=0
+dxSkinOffice2019DarkGray=0
+dxSkinOffice2019White=0
+dxSkinPumpkin=0
+dxSkinSeven=0
+dxSkinSevenClassic=0
+dxSkinSharp=0
+dxSkinSharpPlus=0
+dxSkinSilver=0
+dxSkinSpringtime=0
+dxSkinStardust=0
+dxSkinSummer2008=0
+dxSkinTheAsphaltWorld=0
+dxSkinTheBezier=0
+dxSkinsDefaultPainters=1
+dxSkinValentine=0
+dxSkinVisualStudio2013Blue=0
+dxSkinVisualStudio2013Dark=0
+dxSkinVisualStudio2013Light=0
+dxSkinVS2010=0
+dxSkinWhiteprint=0
+dxSkinWXI=1
+dxSkinXmas2008Blue=0

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

@@ -0,0 +1,143 @@
+unit U_DataLink;
+
+interface
+
+uses
+  SysUtils, Classes, DB, ADODB, ImgList, Controls, cxStyles, cxLookAndFeels,
+  Windows, Messages, forms, OleCtnrs, DateUtils, ExtCtrls, SyncObjs, cxClasses,
+  dxSkinsCore, dxSkinsDefaultPainters, System.ImageList, 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;
+
+type
+  TMyThread = class(TThread)
+  protected
+    procedure Execute; override;
+  end;
+
+var
+  DConString: string;   {全局连接字符串}
+  server, dtbase, user, pswd: string;  {数据库连接参数}
+  DCurHandle: hwnd;     //当前窗体句柄
+  DName: string;   //#用户名#//
+  DCode: string;     //#用户编号#//
+  Ddatabase: string;    //#数据库名称#//
+  DTitCaption: string;  //#主窗体名称#//
+  PicSvr: string;
+  fDllFileName: string;
+  DParameters1, DParameters2, DParameters3, DParameters4, DParameters5: string; // 外部参数；
+  DParameters6, DParameters7, DParameters8, DParameters9, DParameters10: string; //外部参数；
+  OldDllApp: Tapplication; //保存原有句柄
+  NewDllApp: Tapplication; //当前句柄
+  MainApplication: Tapplication;
+  DFormCode: integer;  //当前窗口号
+  IsDelphiLanguage: integer;
+  DServerDate: TdateTime; //服务器时间
+  DCompany: string;       //公司
+  IpCall: Integer;
+  IpWLDZStr: string;
+  UserDataFlag: string;
+
+type
+  TDataLink_TradeMarket = class(TDataModule)
+    AdoDataLink: TADOQuery;
+    ADOLink: TADOConnection;
+    ThreeImgList: TImageList;
+    ThreeLookAndFeelCol: TcxLookAndFeelController;
+    ThreeColorBase: TcxStyleRepository;
+    SHuangSe: TcxStyle;
+    SkyBlue: TcxStyle;
+    Default: TcxStyle;
+    QHuangSe: TcxStyle;
+    Red: TcxStyle;
+    FontBlue: TcxStyle;
+    TextSHuangSe: TcxStyle;
+    FonePurple: TcxStyle;
+    FoneClMaroon: TcxStyle;
+    FoneRed: TcxStyle;
+    RowColor: TcxStyle;
+    handBlack: TcxStyle;
+    cxBlue: TcxStyle;
+    SHuangSeCu: TcxStyle;
+    Timer_link: TTimer;
+    ImageList_new32: TImageList;
+    procedure DataModuleDestroy(Sender: TObject);
+    procedure Timer_linkTimer(Sender: TObject);
+    procedure DataModuleCreate(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+  TMakebar = procedure(ucData: pchar; nDataLen: integer; nErrLevel: integer; nMask: integer; nBarEdition: integer; szBmpFileName: pchar; nScale: integer); stdcall;
+
+  TMixtext = procedure(szSrcBmpFileName: PChar; szDstBmpFileName: PChar; sztext: PChar; fontsize, txtheight, hmargin, vmargin, txtcntoneline: integer); stdcall;
+
+var
+  DataLink_TradeMarket: TDataLink_TradeMarket;
+  CriticalSection: TCriticalSection; {声明临界}
+
+implementation
+{$R *.dfm}
+
+procedure TMyThread.Execute;
+begin
+  FreeOnTerminate := True;
+  CriticalSection.Enter;
+  try
+    with DataLink_TradeMarket.AdoDataLink do
+    begin
+      close;
+      sql.Clear;
+      sql.Add('select getdate()');
+      open;
+    end;
+  except
+    try
+      with DataLink_TradeMarket.ADOLink do
+      begin
+        Connected := false;
+        ConnectionString := DConString;
+        LoginPrompt := false;
+        Connected := true;
+      end;
+    except
+
+    end;
+  end;
+  CriticalSection.Leave;
+end;
+
+procedure TDataLink_TradeMarket.DataModuleDestroy(Sender: TObject);
+begin
+  CriticalSection.Free;
+  DataLink_TradeMarket := nil;
+end;
+
+procedure TDataLink_TradeMarket.Timer_linkTimer(Sender: TObject);
+begin
+  TMyThread.Create(False);
+end;
+
+procedure TDataLink_TradeMarket.DataModuleCreate(Sender: TObject);
+begin
+  CriticalSection := TCriticalSection.Create;
+end;
+
+end.
+

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

@@ -0,0 +1,244 @@
+unit U_GetDllForm;
+
+interface
+
+uses
+  Windows, Messages, forms, OleCtnrs, DateUtils, SysUtils, ADODB, dxCore,
+  ActiveX, IniFiles;
+
+function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; export; stdcall;
+
+function ConnData(): Boolean;
+
+function GetsysParam(muserId: pchar; fparam1: pchar): Boolean;
+
+implementation
+
+uses
+  U_DataLink, U_iniParam, U_TradeMarketList, U_TradeDispatchedList;
+
+       /////////////////////////////////////////////////////////////////
+      //         功能说明:取Dll中得窗体                              //
+     //        参数说明：App>>调用应用程序；                        //
+    //                 FormH>>调用窗口句柄 ；                      //
+   //                 FormID>>窗口号;                             //
+  //                 Language>>语言种类;                         //
+ //                 WinStyle>>窗口类型；                        //
+/////////////////////////////////////////////////////////////////
+
+function GetDllForm(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd;
+var
+  i: Integer;
+  bFound: Boolean;
+  mnewHandle: hwnd;
+  mstyle: TFormStyle;     // 0:子窗口; 1：普通窗口
+  mstate: TWindowState;
+  mborderstyle: TFormBorderStyle;
+begin
+  mnewHandle := 0;
+  DName := PChar(GName);
+  DCode := PChar(GCode);
+  DdataBase := DataBase;
+  DTitCaption := Title;
+  DParameters1 := Parameters1;
+  DParameters2 := Parameters2;
+  DParameters3 := Parameters3;
+  DParameters4 := Parameters4;
+  DParameters5 := Parameters5;
+  DParameters6 := Parameters6;
+  DParameters7 := Parameters7;
+  DParameters8 := Parameters8;
+  DParameters9 := Parameters9;
+  DParameters10 := Parameters10;
+  SetLength(fDllFileName, 255);
+  GetModuleFileName(HInstance, PChar(fDllFileName), Length(fDllFileName));
+  fDllFileName := ExtractFileName(PChar(fDllFileName));
+  MainApplication := App;
+  DCurHandle := FormH;
+  IsDelphiLanguage := Language;
+
+  Application := TApplication(App);
+  DCurHandle := 0;
+
+
+   //赋值链接字符串
+  SetLength(server, 255);
+  SetLength(dtbase, 255);
+  SetLength(user, 255);
+  SetLength(pswd, 255);
+
+  if trim(DataBaseStr) = '' then
+  begin
+    server := '101.132.143.144,7781';
+    dtbase := 'RTBasicsData';
+    user := 'rtsa';
+    pswd := 'rightsoft@5740';
+
+    DConString := 'Provider=SQLOLEDB.1;Password=' + pswd + ';Persist Security Info=True;User ID=' + user + ';Initial Catalog=' + dtbase + ';Data Source=' + server;
+    DParameters1 := '高权限';
+  end
+  else
+  begin
+    DConString := DataBaseStr;
+  end;
+
+  if not ConnData() then
+  begin
+    result := 0;
+    exit;
+  end;
+  if IsINIFile() then
+    ReadINIFile()
+  else
+    WriteINIFile;
+  GetsysParam('', '');
+   // 定义窗口类型 、状态
+  if WinStyle = 0 then
+  begin
+    mstyle := fsMDIChild;
+    mstate := wsMaximized;
+    mborderstyle := bsSizeable;
+  end
+  else
+  begin
+    mstyle := fsNormal;
+    mstate := wsNormal;
+    mborderstyle := bsSizeable;
+  end;
+  bFound := False;
+  if FormID <> 10000 then
+  begin
+    for i := 0 to Application.MainForm.MDIChildCount - 1 do
+    begin
+      if Application.MainForm.MDIChildren[i].Caption = Title then
+      begin
+        mnewHandle := Application.MainForm.MDIChildren[i].Handle;
+        Application.MainForm.MDIChildren[i].BringToFront;
+        bFound := True;
+        Result := mnewHandle;
+        exit;
+      end;
+    end;
+  end;
+  /////////////////////
+  //调用子模块窗口
+  case FormID of
+
+    111:  //大货单
+      begin
+        with TfrmTradeMarketList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
+        begin
+          fFormID := FormID;
+          FOrdType := '正常单';
+          FormStyle := mstyle;
+          WindowState := mstate;
+          BorderStyle := mborderstyle;
+          mnewHandle := Handle;
+        end;
+      end;
+
+    112:  //剪样单
+      begin
+        with TfrmTradeMarketList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
+        begin
+          fFormID := FormID;
+          FOrdType := '剪样单';
+          FormStyle := mstyle;
+          WindowState := mstate;
+          BorderStyle := mborderstyle;
+          mnewHandle := Handle;
+        end;
+      end;
+
+    121:  //配货单
+      begin
+        with TfrmTradeDispatchedList.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10)) do       //
+        begin
+          fFormID := FormID;
+          FormStyle := mstyle;
+          WindowState := mstate;
+          BorderStyle := mborderstyle;
+          mnewHandle := Handle;
+        end;
+      end;
+
+    10000:
+      begin
+        for i := 0 to application.MainForm.MDIChildCount - 1 do
+        begin
+          if application.MainForm.MDIChildren[i].Caption = Title then
+          begin
+            application.MainForm.MDIChildren[i].Close;
+          end;
+        end;
+      end;
+  end;
+
+  Result := mnewHandle;
+end;
+
+function GetsysParam(muserId: pchar; fparam1: pchar): Boolean;
+begin
+  result := true;
+  //////////////////////////////
+//  shortDateFormat := 'yyyy-MM-dd';
+  //服务器日期
+  with DataLink_TradeMarket.AdoDataLink do
+  begin
+    close;
+    sql.Clear;
+    sql.Add('select getDate()as dt');
+    open;
+    DServerDate := fieldByName('dt').AsDatetime;
+  end;
+  result := true;
+end;
+
+//===========================================================
+  //建立数据库连接池
+//===========================================================
+
+function ConnData(): Boolean;
+var
+  IniFile: TIniFile;
+begin
+  try
+    IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'SYSTEMSET.INI');
+    PicSvr := IniFile.ReadString('SERVER', '服务器地址', '127.0.0.1');
+    UserDataFlag := IniFile.ReadString('SERVER', '服务器地址类型', '-1');
+  finally
+    IniFile.Free;
+  end;
+  if not Assigned(DataLink_TradeMarket) then
+    DataLink_TradeMarket := TDataLink_TradeMarket.Create(Application);
+  try
+    with DataLink_TradeMarket.ADOLink do
+    begin
+      if not Connected then
+      begin
+        Connected := false;
+        ConnectionString := DConString;
+        LoginPrompt := false;
+        Connected := true;
+      end;
+    end;
+    Result := true;
+  except
+    Result := false;
+    application.MessageBox('数据库连接失败！', '错误', mb_Ok + MB_ICONERROR);
+  end;
+
+end;
+
+initialization
+  CoInitialize(nil);
+  dxUnitsLoader.Initialize;
+
+
+finalization
+  DataLink_TradeMarket.Free;
+  application := NewDllApp;
+  dxUnitsLoader.Finalize;
+
+end.
+

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

@@ -0,0 +1,458 @@
+inherited frmTradeDispatchedSel: TfrmTradeDispatchedSel
+  Left = 165
+  Top = 13
+  Caption = #37197#36135#31649#29702
+  ClientHeight = 562
+  ClientWidth = 1540
+  Position = poScreenCenter
+  ExplicitLeft = -70
+  ExplicitWidth = 1556
+  ExplicitHeight = 601
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ToolBar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1540
+    Height = 38
+    AutoSize = True
+    ButtonHeight = 38
+    ButtonWidth = 91
+    Caption = 'ToolBar1'
+    Color = clBtnFace
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_TradeMarket.ImageList_new32
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 1
+      OnClick = TBRafreshClick
+    end
+    object ToolButton2: TToolButton
+      Left = 71
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+      OnClick = ToolButton2Click
+    end
+    object TBClose: TToolButton
+      Left = 166
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel [1]
+    Left = 0
+    Top = 38
+    Width = 1540
+    Height = 51
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clWhite
+    ParentBackground = False
+    TabOrder = 1
+    object Label3: TLabel
+      Left = 317
+      Top = 20
+      Width = 52
+      Height = 12
+      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
+      Top = 119
+      Width = 26
+      Height = 12
+      Caption = #20811#37325
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label1: TLabel
+      Left = 637
+      Top = 20
+      Width = 26
+      Height = 12
+      Caption = #23458#25143
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 478
+      Top = 20
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object BegDate: TDateTimePicker
+      Left = 128
+      Top = 16
+      Width = 85
+      Height = 20
+      Date = 40675.000000000000000000
+      Format = 'yyyy-MM-dd'
+      Time = 0.464742650459811600
+      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
+    end
+    object MPRTKZ: TEdit
+      Tag = 2
+      Left = 654
+      Top = 99
+      Width = 56
+      Height = 21
+      TabOrder = 3
+    end
+    object ComboBox1: TComboBox
+      Left = 49
+      Top = 16
+      Width = 71
+      Height = 21
+      Enabled = False
+      TabOrder = 4
+      Text = #21046#21333#26085#26399
+      OnChange = ComboBox1Change
+      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
+    end
+    object CheckBox1: TCheckBox
+      Left = 28
+      Top = 18
+      Width = 19
+      Height = 17
+      Checked = True
+      State = cbChecked
+      TabOrder = 7
+    end
+    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
+    Width = 1540
+    Height = 451
+    Align = alClient
+    TabOrder = 2
+    object Tv1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      OnCellDblClick = Tv1CellDblClick
+      DataController.DataSource = DataSource1
+      DataController.Filter.AutoDataSetFilter = True
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = Tv1Column11
+        end
+        item
+          Kind = skSum
+          Column = Tv1Column10
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsCustomize.ColumnFiltering = False
+      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'
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object v1OrdDate: TcxGridDBColumn
+        Caption = #21046#21333#26085#26399
+        DataBinding.FieldName = 'OrdDate'
+        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'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradeMarket.FontBlue
+        Width = 66
+      end
+      object Tv1Column4: TcxGridDBColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'CustName'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradeMarket.FoneClMaroon
+        Width = 66
+      end
+      object v1DeliveryDate: TcxGridDBColumn
+        Caption = #20132#36135#26085#26399
+        DataBinding.FieldName = 'DlyDate'
+        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'
+        HeaderAlignmentHorz = taCenter
+      end
+      object Tv1Column12: TcxGridDBColumn
+        Caption = #21697#21517
+        DataBinding.FieldName = 'C_Name'
+        HeaderAlignmentHorz = taCenter
+      end
+      object Tv1Column13: TcxGridDBColumn
+        Caption = #20013#25991#39068#33394
+        DataBinding.FieldName = 'C_Color'
+        HeaderAlignmentHorz = taCenter
+      end
+      object Tv1Column15: TcxGridDBColumn
+        Caption = #33457#22411
+        DataBinding.FieldName = 'C_Pattern'
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object Tv1Column11: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'TMSPiece'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column10: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'TMSQty'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column7: TcxGridDBColumn
+        Caption = #37197#36135#21305#25968
+        DataBinding.FieldName = 'PHRollNum'
+      end
+      object Tv1Column8: TcxGridDBColumn
+        Caption = #37197#36135#25968#37327
+        DataBinding.FieldName = 'PHQty'
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'OrdUnit'
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column6: TcxGridDBColumn
+        Caption = #21046#21333#20154
+        DataBinding.FieldName = 'FILLER'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'Note'
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #21457#36135#22320#22336
+        DataBinding.FieldName = 'ShippingAddress'
+        HeaderAlignmentHorz = taCenter
+        Width = 134
+      end
+      object Tv1Column5: TcxGridDBColumn
+        Caption = #32852#31995#26041#24335
+        DataBinding.FieldName = 'CONTACT'
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxTabControl1: TcxTabControl [3]
+    Left = 0
+    Top = 89
+    Width = 1540
+    Height = 22
+    Align = alTop
+    Enabled = False
+    TabOrder = 3
+    Properties.CustomButtons.Buttons = <>
+    Properties.Style = 9
+    Properties.TabIndex = 0
+    Properties.Tabs.Strings = (
+      #26410#37197#36135
+      #24050#37197#36135
+      #24050#21457#36135
+      #20840#37096)
+    OnChange = cxTabControl1Change
+    ClientRectRight = 0
+    ClientRectTop = 0
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Left = 257
+    Top = 152
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Left = 121
+    Top = 153
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Parameters = <>
+    Left = 568
+    Top = 240
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 428
+    Top = 176
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 328
+    Top = 168
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 812
+    Top = 440
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 724
+    Top = 432
+  end
+  object ADOQuerySub: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Parameters = <>
+    Left = 328
+    Top = 272
+  end
+  object DataSource2: TDataSource
+    DataSet = ORDER_SUB
+    Left = 616
+    Top = 420
+  end
+  object IdFTP1: TIdFTP
+    ConnectTimeout = 0
+    NATKeepAlive.UseKeepAlive = False
+    NATKeepAlive.IdleTimeMS = 0
+    NATKeepAlive.IntervalMS = 0
+    ProxySettings.ProxyType = fpcmNone
+    ProxySettings.Port = 0
+    ReadTimeout = 0
+    Left = 92
+    Top = 258
+  end
+  object ORDER_SUB: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 228
+    Top = 264
+  end
+end

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

@@ -0,0 +1,449 @@
+unit U_TradeDispatchedSel;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+  cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
+  cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
+  StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
+  cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls,
+  RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
+  cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
+  IdFTP, ShellAPI, cxDropDownEdit, cxCheckBox, RM_e_Graphic, RM_e_Jpeg,
+  cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, Math,
+  dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
+  IdExplicitTLSClientServerBase, U_BaseHelp, Vcl.Clipbrd, U_BaseList,
+  System.ImageList, Vcl.ImgList;
+
+type
+  TfrmTradeDispatchedSel = class(TfrmBaseHelp)
+    ToolBar1: TToolBar;
+    TBRafresh: TToolButton;
+    TBClose: TToolButton;
+    Panel1: TPanel;
+    BegDate: TDateTimePicker;
+    EndDate: TDateTimePicker;
+    Tv1: TcxGridDBTableView;
+    cxGrid1Level1: TcxGridLevel;
+    cxGrid1: TcxGrid;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    Label3: TLabel;
+    TMMNo: TEdit;
+    v1OrdDate: TcxGridDBColumn;
+    v1DeliveryDate: TcxGridDBColumn;
+    Order_Main: TClientDataSet;
+    Label12: TLabel;
+    MPRTKZ: TEdit;
+    ADOQuerySub: TADOQuery;
+    DataSource2: TDataSource;
+    IdFTP1: TIdFTP;
+    v1Column11: TcxGridDBColumn;
+    ORDER_SUB: TClientDataSet;
+    ComboBox1: TComboBox;
+    Label1: TLabel;
+    CustName: TEdit;
+    Tv1Column6: TcxGridDBColumn;
+    Tv1Column2: TcxGridDBColumn;
+    Tv1Column10: TcxGridDBColumn;
+    Tv1Column11: TcxGridDBColumn;
+    Tv1Column1: TcxGridDBColumn;
+    Label2: TLabel;
+    C_Name: TEdit;
+    CheckBox1: TCheckBox;
+    ToolButton2: TToolButton;
+    Tv1Column4: TcxGridDBColumn;
+    Tv1Column3: TcxGridDBColumn;
+    Tv1Column5: TcxGridDBColumn;
+    cxTabControl1: TcxTabControl;
+    Tv1Column7: TcxGridDBColumn;
+    Tv1Column8: TcxGridDBColumn;
+    Tv1Column9: TcxGridDBColumn;
+    Tv1Column12: TcxGridDBColumn;
+    Tv1Column13: TcxGridDBColumn;
+    Tv1Column14: TcxGridDBColumn;
+    Tv1Column15: TcxGridDBColumn;
+    CheckBox3: TCheckBox;
+    procedure FormDestroy(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure TBCloseClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure TMMNoMChange(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TBTPClick(Sender: TObject);
+    procedure CheckBox1Click(Sender: TObject);
+    procedure TMMNoKeyPress(Sender: TObject; var Key: Char);
+    procedure cxTabControl1Change(Sender: TObject);
+    procedure N3Click(Sender: TObject);
+    procedure N4Click(Sender: TObject);
+    procedure ComboBox1Change(Sender: TObject);
+    procedure CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
+    procedure JGTypeChange(Sender: TObject);
+    procedure ToolButton2Click(Sender: TObject);
+    procedure N1Click(Sender: TObject);
+    procedure fhClick(Sender: TObject);
+    procedure CheckBox3Click(Sender: TObject);
+    procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+  private
+    DQdate: TDateTime;
+    MSubIds: string;
+    procedure InitGrid();
+    procedure InitForm();
+    function DelData(): Boolean;
+    procedure InitGridFH();
+    procedure InitSub();
+    procedure InitPH();
+    procedure SetStatus();
+    procedure InitImage(fwbid: string);
+    function SaveData(): Boolean;
+
+    procedure SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string);
+    { Private declarations }
+  public
+    FFInt, FCloth: Integer;
+    canshu1, canshu2: string;
+    fFlileFlag: string;
+    FNOTE: string;
+    { Public declarations }
+  end;
+
+var
+  frmTradeDispatchedSel: TfrmTradeDispatchedSel;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_AttachmentUpload,
+  U_TradeMarketInPut, U_TradeMarketDisSel, U_TradeMarketDisScan;
+
+{$R *.dfm}
+
+procedure TfrmTradeDispatchedSel.InitImage(fwbid: string);
+begin
+
+end;
+
+procedure TfrmTradeDispatchedSel.SetStatus();
+begin
+
+end;
+
+procedure TfrmTradeDispatchedSel.InitSub();
+begin
+
+end;
+
+procedure TfrmTradeDispatchedSel.InitPH();
+begin
+
+end;
+
+procedure TfrmTradeDispatchedSel.JGTypeChange(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmTradeDispatchedSel.FormDestroy(Sender: TObject);
+begin
+  inherited;
+//  frmProductOrderList:=nil;
+end;
+
+procedure TfrmTradeDispatchedSel.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  Action := caFree;
+end;
+
+procedure TfrmTradeDispatchedSel.FormCreate(Sender: TObject);
+begin
+  inherited;
+  cxgrid1.Align := alClient;
+  DQdate := SGetServerDate(ADOQueryTemp);
+
+end;
+
+procedure TfrmTradeDispatchedSel.TBCloseClick(Sender: TObject);
+begin
+
+  Close;
+
+end;
+
+procedure TfrmTradeDispatchedSel.InitGrid();
+var
+  STRwhere, Pwhere: string;
+begin
+  STRwhere := '';
+  Pwhere := SGetFilters(Panel1, 1, 2);
+
+  begin
+    if trim(Pwhere) <> '' then
+      STRwhere := STRwhere + ' and ' + trim(Pwhere);
+  end;
+  STRwhere := STRwhere + ' and isnull(A.Status,''0'')=''9'' ';
+  if cxTabControl1.TabIndex = 0 then
+  begin
+    STRwhere := STRwhere + ' and isnull(substatus,''0'')=''' + inttostr(cxTabControl1.TabIndex) + '''';
+  end;
+  if (cxTabControl1.TabIndex >= 1) and (cxTabControl1.TabIndex < 3) then
+    STRwhere := STRwhere + ' and isnull(substatus,''0'')=''' + inttostr(cxTabControl1.TabIndex + 1) + '''';
+
+  try
+    ADOQueryMain.DisableControls;
+
+    with ADOQueryMain do
+    begin
+      Filtered := False;
+      Close;
+      sql.Clear;
+      sql.add(' select   *  ');
+      sql.Add(' ,PHRollNum=(select count(X.STKID) from Trade_Market_Distribution X where X.TMMID=A.TMMID and X.TMSID=B.TMSID)');
+      sql.Add(' ,PHQty=(select sum(STKMeter) from Trade_Market_Distribution X inner join Trade_Cloth_Stock XX on X.stkid=XX.stkid where X.TMMID=A.TMMID and X.TMSID=B.TMSID)');
+      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
+      begin
+        sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
+        sql.add(' and  A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
+      end;
+      if (ComboBox1.Text = '制单日期') and (CheckBox1.Checked = False) then
+      begin
+        sql.add(' where A.TMMDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime - 39999))));
+        sql.add(' and  A.TMMDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
+      end;
+
+      if (ComboBox1.Text = '交货日期') and (CheckBox1.Checked = True) then
+      begin
+        sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime))));
+        sql.add(' and  A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
+      end;
+      if (ComboBox1.Text = '交货日期') and (CheckBox1.Checked = False) then
+      begin
+        sql.add(' where A.DlyDate>=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime - 39999))));
+        sql.add(' and  A.DlyDate<' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', enddate.DateTime + 1))));
+      end;
+
+      if canshu1 = '录入' then
+      begin
+        sql.add(' and  A.Filler= ' + QuotedStr(Trim(DName)));
+      end;
+      sql.add('     ' + STRwhere);
+
+      sql.Add(' and ordtype=''正常单'' ');
+
+      sql.add(' order by  filltime desc');
+//      ShowMessage(SQL.Text);
+      Open;
+    end;
+
+    SCreateCDS(ADOQueryMain, Order_Main);
+    SInitCDSData(ADOQueryMain, Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+    TV1.DataController.Filter.Clear;
+
+  end;
+end;
+
+procedure TfrmTradeDispatchedSel.SendMessageQR(MDateId, KeyWord1, KeyWord2, KeyWord3: string);
+begin
+
+end;
+
+procedure TfrmTradeDispatchedSel.InitGridFH();
+begin
+  try
+    ADOQueryMain.DisableControls;
+    with ADOQueryMain do
+    begin
+      Filtered := False;
+      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)) + '''';
+      Open;
+    end;
+    SCreateCDS(ADOQueryMain, Order_Main);
+    SInitCDSData(ADOQueryMain, Order_Main);
+  finally
+    ADOQueryMain.EnableControls;
+  end;
+end;
+
+procedure TfrmTradeDispatchedSel.InitForm();
+begin
+  ReadCxGrid('指示单列表FF1', Tv1, '生产指示单管理');
+  BegDate.DateTime := SGetServerDate(ADOQueryTemp) - 180;
+  EndDate.DateTime := SGetServerDate(ADOQueryTemp);
+
+  SetStatus();
+  InitGrid();
+end;
+
+function TfrmTradeDispatchedSel.DelData(): Boolean;
+begin
+  try
+    Result := false;
+    ADOQueryCmd.Connection.BeginTrans;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      sql.Add('delete Trade_Market_Main where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + '''');
+      sql.Add('delete Trade_Market_Sub where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + '''');
+      sql.Add('delete Trade_Plan_Fty where TMMId=''' + Trim(Order_Main.fieldbyname('TMMId').AsString) + '''');
+
+      sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
+      sql.Add(' ' + quotedstr(trim(DName)));
+      sql.Add(',getdate() ');
+      sql.Add(',' + quotedstr(trim(self.Caption)));
+      sql.Add(',' + quotedstr(trim('指示单删除')));
+      sql.Add(',' + quotedstr(trim('指示单号：' + trim(Order_Main.FieldByName('TMMNo').AsString))));
+      sql.Add(',' + quotedstr(trim('成功')));
+      sql.Add(')');
+      ExecSQL;
+    end;
+
+    ADOQueryCmd.Connection.CommitTrans;
+    Result := True;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    Result := False;
+    Application.MessageBox('数据删除异常！', '提示', 0);
+  end;
+end;
+
+procedure TfrmTradeDispatchedSel.TBRafreshClick(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmTradeDispatchedSel.TMMNoMChange(Sender: TObject);
+begin
+  if ADOQueryMain.Active = False then
+    Exit;
+  SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
+  SCreateCDS(ADOQueryMain, Order_Main);
+  SInitCDSData(ADOQueryMain, Order_Main);
+end;
+
+procedure TfrmTradeDispatchedSel.FormShow(Sender: TObject);
+begin
+  inherited;
+  InitForm();
+end;
+
+procedure TfrmTradeDispatchedSel.TBTPClick(Sender: TObject);
+var
+  FQty, FQty1, FMxQty, FPQty, FMxQtyS, FPQtyS: string;
+begin
+end;
+
+procedure TfrmTradeDispatchedSel.CheckBox1Click(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmTradeDispatchedSel.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 TfrmTradeDispatchedSel.TMMNoKeyPress(Sender: TObject; var Key: Char);
+begin
+
+  if Key = #13 then
+  begin
+    initgrid();
+  end;
+end;
+
+procedure TfrmTradeDispatchedSel.fhClick(Sender: TObject);
+var
+  MStkIds, maxno: string;
+  i, fRoll: integer;
+  fNum: double;
+begin
+
+end;
+
+procedure TfrmTradeDispatchedSel.cxTabControl1Change(Sender: TObject);
+begin
+  SetStatus();
+  InitGrid();
+end;
+
+procedure TfrmTradeDispatchedSel.N1Click(Sender: TObject);
+begin
+  Clipboard.SetTextBuf(PChar(Trim(Order_Main.fieldbyname(TV1.Controller.FocusedColumn.DataBinding.FilterFieldName).AsString)));
+end;
+
+procedure TfrmTradeDispatchedSel.N3Click(Sender: TObject);
+begin
+  SelOKNoFiler(Tv1, True); //全选
+end;
+
+procedure TfrmTradeDispatchedSel.N4Click(Sender: TObject);
+begin
+  SelOKNoFiler(Tv1, False); //全弃
+end;
+
+procedure TfrmTradeDispatchedSel.ComboBox1Change(Sender: TObject);
+begin
+  InitGrid();
+end;
+
+procedure TfrmTradeDispatchedSel.CustomerNoNameKeyPress(Sender: TObject; var Key: Char);
+begin
+  if Key = #13 then
+  begin
+    InitGrid();
+  end;
+end;
+
+procedure TfrmTradeDispatchedSel.ToolButton2Click(Sender: TObject);
+begin
+  WriteCxGrid('指示单列表FF1', Tv1, '生产指示单管理');
+
+end;
+
+procedure TfrmTradeDispatchedSel.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+begin
+  inherited;
+  if Order_Main.IsEmpty then
+    exit;
+
+  ModalResult := 1;
+end;
+
+function TfrmTradeDispatchedSel.SaveData(): Boolean;
+begin
+
+end;
+
+end.
+

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

@@ -0,0 +1,704 @@
+inherited frmTradeMarketDisScan: TfrmTradeMarketDisScan
+  Left = 143
+  Top = 4
+  Caption = #25195#25551#37197#36135
+  ClientHeight = 650
+  ClientWidth = 1540
+  Color = clWhite
+  Font.Charset = GB2312_CHARSET
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Position = poMainFormCenter
+  WindowState = wsMaximized
+  ExplicitWidth = 1556
+  ExplicitHeight = 689
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1540
+    Height = 38
+    AutoSize = True
+    ButtonHeight = 38
+    ButtonWidth = 91
+    Caption = 'ToolBar1'
+    Color = clWhite
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_TradeMarket.ImageList_new32
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBSave: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 16
+      OnClick = TBSaveClick
+    end
+    object ToolButton3: TToolButton
+      Left = 71
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+    end
+    object TBClose: TToolButton
+      Left = 166
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object MovePanel2: TMovePanel [1]
+    Left = 408
+    Top = 192
+    Width = 289
+    Height = 49
+    BevelInner = bvLowered
+    Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
+    Color = clSkyBlue
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clRed
+    Font.Height = -13
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 1
+    Visible = False
+  end
+  object Panel1: TPanel [2]
+    Left = 0
+    Top = 38
+    Width = 1540
+    Height = 75
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 2
+    object Label1: TLabel
+      Left = 24
+      Top = 24
+      Width = 100
+      Height = 24
+      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
+      Top = 28
+      Width = 80
+      Height = 20
+      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
+      Left = 130
+      Top = 20
+      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
+    end
+    object PHYG: TBtnEditA
+      Left = 508
+      Top = 24
+      Width = 100
+      Height = 29
+      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
+      Font.Color = clWindowText
+      Font.Height = -24
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 2
+      OnClick = Button1Click
+    end
+  end
+  object cxGrid1: TcxGrid [3]
+    Left = 0
+    Top = 113
+    Width = 713
+    Height = 537
+    Align = alLeft
+    TabOrder = 3
+    object Tv1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
+      DataController.DataSource = DataSource1
+      DataController.Filter.AutoDataSetFilter = True
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = 'C_Code'
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = v1RollNum
+        end
+        item
+          Kind = skSum
+          Column = v1Qty
+        end
+        item
+          Kind = skSum
+        end
+        item
+          Kind = skSum
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.FocusCellOnTab = True
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsData.Editing = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      object v1MJID: TcxGridDBColumn
+        Caption = #35746#21333#21495
+        DataBinding.FieldName = 'TMMNO'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 133
+      end
+      object v1MJXH: TcxGridDBColumn
+        Caption = #23458#25143
+        DataBinding.FieldName = 'CustName'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 99
+      end
+      object v1P_Code: TcxGridDBColumn
+        Caption = #21697#21517
+        DataBinding.FieldName = 'C_Name'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 88
+      end
+      object v1P_Color: TcxGridDBColumn
+        Caption = #32534#21495
+        DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 62
+      end
+      object Tv1Column2: TcxGridDBColumn
+        Caption = #33457#22411
+        DataBinding.FieldName = 'C_Pattern'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 80
+      end
+      object v1RollNum: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'TMSPiece'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 73
+      end
+      object v1Qty: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'TMSQty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 76
+      end
+      object v1PHRollNum: TcxGridDBColumn
+        Caption = #37197#36135#21305#25968
+        DataBinding.FieldName = 'PHRollNum'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 131
+      end
+      object v1PHQty: TcxGridDBColumn
+        Caption = #37197#36135#25968#37327
+        DataBinding.FieldName = 'PHQty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 125
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxGrid2: TcxGrid [4]
+    Left = 713
+    Top = 113
+    Width = 827
+    Height = 537
+    Align = alClient
+    TabOrder = 4
+    object TV2: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
+      OnCustomDrawCell = TV2CustomDrawCell
+      DataController.DataSource = DataSource2
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <
+        item
+          Format = 'C_Code'
+        end>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = cxGridDBColumn5
+        end
+        item
+          Kind = skSum
+          Column = cxGridDBColumn6
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.FocusCellOnTab = True
+      OptionsBehavior.GoToNextCellOnEnter = True
+      OptionsBehavior.FocusCellOnCycle = True
+      OptionsCustomize.ColumnFiltering = False
+      OptionsCustomize.ColumnSorting = False
+      OptionsData.Deleting = False
+      OptionsData.Inserting = False
+      OptionsView.Footer = True
+      OptionsView.GroupByBox = False
+      object V2Column2: TcxGridDBColumn
+        Caption = #36873#25321
+        DataBinding.FieldName = 'Ssel'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        Properties.NullStyle = nssUnchecked
+        Width = 66
+      end
+      object cxGridDBColumn1: TcxGridDBColumn
+        Caption = #25195#25551#20449#24687
+        DataBinding.FieldName = 'SDefNote'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 204
+      end
+      object cxGridDBColumn5: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'RollNum'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 70
+      end
+      object cxGridDBColumn6: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'stkmetet'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 102
+      end
+      object cxGridDBColumn2: TcxGridDBColumn
+        Caption = #26465#30721
+        DataBinding.FieldName = 'ciid'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 166
+      end
+      object cxGridDBColumn4: TcxGridDBColumn
+        Caption = #21697#21517
+        DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 109
+      end
+      object cxGridDBColumn3: TcxGridDBColumn
+        Caption = #32534#21495
+        DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 78
+      end
+      object TV2Column1: TcxGridDBColumn
+        Caption = #33457#22411
+        DataBinding.FieldName = 'C_Pattern'
+        DataBinding.IsNullValueType = True
+      end
+      object V2Column1: TcxGridDBColumn
+        Caption = #32568#21495
+        DataBinding.FieldName = 'batchno'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 84
+      end
+      object cxGridDBColumn7: TcxGridDBColumn
+        Caption = #31561#32423
+        DataBinding.FieldName = 'Grade'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 93
+      end
+      object V2Column3: TcxGridDBColumn
+        Caption = #20811#37325
+        DataBinding.FieldName = 'C_GramWeight'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 67
+      end
+      object V2Column4: TcxGridDBColumn
+        Caption = #38376#24133
+        DataBinding.FieldName = 'C_Width'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+    end
+    object cxGridLevel1: TcxGridLevel
+      GridView = TV2
+    end
+  end
+  object MovePanel1: TMovePanel [5]
+    Left = 28
+    Top = 345
+    Width = 561
+    Height = 305
+    BevelInner = bvLowered
+    Color = clSkyBlue
+    TabOrder = 5
+    Visible = False
+    object Label2: TLabel
+      Left = 48
+      Top = 160
+      Width = 150
+      Height = 48
+      Caption = 'Label2'
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -48
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Edit2: TEdit
+      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'
+    end
+    object Button4: TButton
+      Left = 224
+      Top = 248
+      Width = 75
+      Height = 41
+      Caption = #20851#38381
+      TabOrder = 1
+      OnClick = Button4Click
+    end
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Left = 265
+    Top = 504
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Left = 353
+    Top = 505
+  end
+  inherited ImageList_new32: TImageList
+    Left = 1480
+    Top = 32
+  end
+  object GPM_1: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 436
+    Top = 509
+  end
+  object cxStyleRepository1: TcxStyleRepository
+    Left = 69
+    Top = 130
+    PixelsPerInch = 96
+    object cxStyle1: TcxStyle
+      AssignedValues = [svColor, svFont]
+      Color = clInactiveCaption
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -29
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+    end
+    object cxStyle2: TcxStyle
+      AssignedValues = [svColor, svFont, svTextColor]
+      Color = 4707838
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -29
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clBtnText
+    end
+    object cxStyle_gridRow: TcxStyle
+      AssignedValues = [svColor, svFont]
+      Color = 16311512
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -29
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+    end
+    object cxStyle_gridFoot: TcxStyle
+      AssignedValues = [svFont]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -29
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+    end
+    object cxStyle_gridHead: TcxStyle
+      AssignedValues = [svFont]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -29
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+    end
+    object cxStyle_gridGroupBox: TcxStyle
+      AssignedValues = [svColor, svFont]
+      Color = clMoneyGreen
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -29
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+    end
+    object cxStyle_yellow: TcxStyle
+      AssignedValues = [svColor, svFont]
+      Color = 8454143
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -29
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+    end
+    object cxStyle_Red: TcxStyle
+      AssignedValues = [svColor, svFont]
+      Color = clRed
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -29
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+    end
+    object cxStyle_fontBlack: TcxStyle
+      AssignedValues = [svFont]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -29
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+    end
+    object cxStyle_fontclFuchsia: TcxStyle
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -29
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clFuchsia
+    end
+    object cxStyle_fontclPurple: TcxStyle
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -29
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clPurple
+    end
+    object cxStyle_fontclGreen: TcxStyle
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -29
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clGreen
+    end
+    object cxStyle_fontclBlue: TcxStyle
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -29
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clBlue
+    end
+    object cxStyle_fontclTeal: TcxStyle
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -29
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clTeal
+    end
+    object cxStyle_fontclOlive: TcxStyle
+      AssignedValues = [svFont, svTextColor]
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -29
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      TextColor = clOlive
+    end
+  end
+  object CDSOrder: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 172
+    Top = 144
+  end
+  object DataSource1: TDataSource
+    DataSet = CDSOrder
+    Left = 232
+    Top = 160
+  end
+  object ADOQueryTmp: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Parameters = <>
+    Left = 352
+    Top = 312
+  end
+  object ADOQueryPrint: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 360
+    Top = 240
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Parameters = <>
+    Left = 404
+    Top = 216
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Parameters = <>
+    Left = 492
+    Top = 252
+  end
+  object RMDB_Main: TRMDBDataSet
+    Visible = True
+    Left = 608
+    Top = 264
+  end
+  object ADOQuery1: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 648
+    Top = 232
+  end
+  object CDSMJID: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 732
+    Top = 212
+  end
+  object DataSource2: TDataSource
+    DataSet = CDSMJID
+    Left = 872
+    Top = 248
+  end
+  object RMXLSExport2: TRMXLSExport
+    ShowAfterExport = True
+    ExportPrecision = 1
+    PagesOfSheet = 1
+    ExportImages = True
+    ExportFrames = True
+    ExportImageFormat = ifBMP
+    JPEGQuality = 0
+    ScaleX = 1.000000000000000000
+    ScaleY = 1.000000000000000000
+    CompressFile = False
+    Left = 860
+    Top = 164
+  end
+  object RM1: TRMGridReport
+    ThreadPrepareReport = True
+    InitialZoom = pzDefault
+    PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator]
+    DefaultCollate = False
+    ShowPrintDialog = False
+    SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
+    PreviewOptions.RulerUnit = rmutScreenPixels
+    PreviewOptions.RulerVisible = False
+    PreviewOptions.DrawBorder = False
+    PreviewOptions.BorderPen.Color = clGray
+    PreviewOptions.BorderPen.Style = psDash
+    CompressLevel = rmzcFastest
+    CompressThread = False
+    LaterBuildEvents = True
+    OnlyOwnerDataSet = False
+    Left = 784
+    Top = 136
+    ReportData = {}
+  end
+end

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

@@ -0,0 +1,603 @@
+unit U_TradeMarketDisScan;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+  cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
+  cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
+  StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
+  cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
+  RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus,
+  cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox,
+  dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC,
+  System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent,
+  IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
+  IdFTP, ShellAPI, MovePanel, RM_e_Xls, MMSystem, 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;
+
+type
+  TfrmTradeMarketDisScan = class(TfrmBaseInput)
+    ToolBar1: TToolBar;
+    TBSave: TToolButton;
+    TBClose: TToolButton;
+    GPM_1: TcxGridPopupMenu;
+    ToolButton3: TToolButton;
+    MovePanel2: TMovePanel;
+    Panel1: TPanel;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1MJID: TcxGridDBColumn;
+    v1MJXH: TcxGridDBColumn;
+    v1P_Code: TcxGridDBColumn;
+    v1P_Color: TcxGridDBColumn;
+    v1RollNum: TcxGridDBColumn;
+    v1Qty: TcxGridDBColumn;
+    v1PHRollNum: TcxGridDBColumn;
+    v1PHQty: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    cxGrid2: TcxGrid;
+    TV2: TcxGridDBTableView;
+    V2Column2: TcxGridDBColumn;
+    cxGridDBColumn1: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    cxGridDBColumn6: TcxGridDBColumn;
+    cxGridDBColumn2: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    cxGridDBColumn3: TcxGridDBColumn;
+    V2Column1: TcxGridDBColumn;
+    cxGridDBColumn7: TcxGridDBColumn;
+    V2Column3: TcxGridDBColumn;
+    V2Column4: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    MovePanel1: TMovePanel;
+    Label2: TLabel;
+    Edit2: TEdit;
+    Button4: TButton;
+    Label1: TLabel;
+    SmNO: TEdit;
+    Label15: TLabel;
+    PHYG: TBtnEditA;
+    cxStyleRepository1: TcxStyleRepository;
+    cxStyle1: TcxStyle;
+    cxStyle2: TcxStyle;
+    cxStyle_gridRow: TcxStyle;
+    cxStyle_gridFoot: TcxStyle;
+    cxStyle_gridHead: TcxStyle;
+    cxStyle_gridGroupBox: TcxStyle;
+    cxStyle_yellow: TcxStyle;
+    cxStyle_Red: TcxStyle;
+    cxStyle_fontBlack: TcxStyle;
+    cxStyle_fontclFuchsia: TcxStyle;
+    cxStyle_fontclPurple: TcxStyle;
+    cxStyle_fontclGreen: TcxStyle;
+    cxStyle_fontclBlue: TcxStyle;
+    cxStyle_fontclTeal: TcxStyle;
+    cxStyle_fontclOlive: TcxStyle;
+    CDSOrder: TClientDataSet;
+    DataSource1: TDataSource;
+    ADOQueryTmp: TADOQuery;
+    ADOQueryPrint: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryCmd: TADOQuery;
+    RMDB_Main: TRMDBDataSet;
+    ADOQuery1: TADOQuery;
+    CDSMJID: TClientDataSet;
+    DataSource2: TDataSource;
+    RMXLSExport2: TRMXLSExport;
+    RM1: TRMGridReport;
+    Tv1Column2: TcxGridDBColumn;
+    TV2Column1: TcxGridDBColumn;
+    Button1: TButton;
+    procedure TBCloseClick(Sender: TObject);
+    procedure CustomerNoNameBtnDnClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+    procedure SmNOKeyPress(Sender: TObject; var Key: Char);
+    procedure TBSaveClick(Sender: TObject);
+    procedure Button4Click(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
+  private
+    fCode, fColor, FPattern: string;
+    function SaveData(): Boolean;
+    procedure InitOrder();
+    procedure InitMJID();
+    procedure initGrid();
+
+    { Private declarations }
+  public
+    FMainid: string;
+    { Public declarations }
+  end;
+
+var
+  frmTradeMarketDisScan: TfrmTradeMarketDisScan;
+  newh: hwnd;
+
+implementation
+
+uses
+  U_DataLink, U_ZDYHelp, U_ZDYHelpSel, U_RTFun, U_CompanySel, U_PictureUpload,
+  U_ClothInfoSel, U_TradeDispatchedSel;
+
+
+{$R *.dfm}
+
+procedure TfrmTradeMarketDisScan.TBCloseClick(Sender: TObject);
+begin
+
+  Close;
+
+end;
+
+function TfrmTradeMarketDisScan.SaveData(): Boolean;
+var
+  phID: string;
+  P_ID: integer;
+begin
+
+  Result := false;
+  ADOQueryCmd.Connection.BeginTrans;
+  P_ID := 1;
+  try
+    with CDSMJID do
+    begin
+      DisableControls;
+      first;
+      while not eof do
+      begin
+        if trim(CDSMJID.fieldbyname('SDefNote').AsString) = '扫描成功' then
+        begin
+          if GetLSNo(ADOQueryTmp, phID, 'PH', 'Trade_Market_Distribution', 4, 1) = False then
+          begin
+            Application.MessageBox('取配货单号失败！', '提示', 0);
+            Exit;
+          end;
+          with ADOQueryCmd do
+          begin
+            close;
+            sql.Clear;
+            sql.Add('select * from Trade_Market_Distribution ');
+            sql.Add('where 1=2 ');
+            open;
+          end;
+          ADOQueryCmd.Append;
+          ADOQueryCmd.FieldByName('TMDID').Value := trim(phID);
+          ADOQueryCmd.FieldByName('TMMID').Value := trim(cdsmjid.fieldbyname('TMMID').AsString);
+          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('TMDType').Value := '扫描配货';
+          ADOQueryCmd.Post;
+
+          with ADOQueryCmd do
+          begin
+            close;
+            sql.Clear;
+            sql.Add('select * from Trade_Cloth_Stock ');
+            sql.Add('where stkid=' + quotedstr(trim(CDSMJID.fieldbyname('stkid').AsString)));
+            open;
+            edit;
+            fieldbyname('DISstatus').Value := '1';
+            post;
+          end;
+          with ADOQueryCmd do
+          begin
+            close;
+            sql.Clear;
+            sql.Add('select * from Trade_Market_Sub ');
+            sql.Add('where TMSID=' + quotedstr(trim(CDSMJID.fieldbyname('TMSID').AsString)));
+            open;
+            edit;
+            fieldbyname('substatus').Value := '2';
+            post;
+          end;
+        end;
+        next;
+      end;
+      first;
+      EnableControls;
+    end;
+    ADOQueryCmd.Connection.CommitTrans;
+    Result := true;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+  end;
+end;
+
+procedure TfrmTradeMarketDisScan.SmNOKeyPress(Sender: TObject; var Key: Char);
+begin
+  inherited;
+  if Key = #13 then
+  begin
+    MovePanel1.Visible := false;
+    if trim(smno.Text) = '' then
+      exit;
+    if uppercase(leftBstr(trim(smno.Text), 2)) = 'JM' then
+    begin
+      if not CDSMJID.IsEmpty then
+      begin
+        if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\数据未保存.wav')) then
+          PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\数据未保存.wav'), 0, SND_ASYNC);
+        exit;
+      end;
+      inItorder();
+    end
+    else
+    begin
+      if CDSOrder.IsEmpty then
+      begin
+        MovePanel1.Visible := true;
+        Edit2.Text := SmNO.Text;
+        Label2.Caption := '订单不能为空！';
+        smno.Text := '';
+        if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\订单不能为空.wav')) then
+          PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\订单不能为空.wav'), 0, SND_ASYNC);
+        exit;
+      end;
+      if not CDSMJID.Locate('CIID', trim(smNo.Text), []) then
+      begin
+        initMjid();
+      end
+      else
+      begin
+        if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\重复扫描.wav')) then
+          PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\重复扫描.wav'), 0, SND_ASYNC);
+      end;
+    end;
+    smno.Text := '';
+    smno.SetFocus;
+  end;
+end;
+
+procedure TfrmTradeMarketDisScan.TBRafreshClick(Sender: TObject);
+begin
+  inherited;
+  MovePanel2.Visible := True;
+  MovePanel2.Refresh;
+  initOrder();
+  MovePanel2.Visible := False;
+
+end;
+
+procedure TfrmTradeMarketDisScan.TBSaveClick(Sender: TObject);
+begin
+  inherited;
+  if CDSOrder.IsEmpty then
+    exit;
+  if CDSMJID.IsEmpty then
+    exit;
+
+  try
+    if not SaveData() then
+    begin
+      if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\保存失败.wav')) then
+        PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\保存失败.wav'), 0, SND_ASYNC);
+      exit;
+    end
+    else
+    begin
+      if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\保存成功.wav')) then
+        PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\保存成功.wav'), 0, SND_ASYNC);
+      initGrid();
+      exit;
+    end;
+  except
+  end;
+end;
+
+procedure TfrmTradeMarketDisScan.TV2CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
+begin
+  inherited;
+  var i: integer;
+  begin
+    i := tv2.GetColumnByFieldName('SDefNote').Index;
+    if (AViewInfo.GridRecord.Values[i] <> '扫描成功') then
+      ACanvas.Brush.Color := clred;
+  end;
+end;
+
+procedure TfrmTradeMarketDisScan.Button1Click(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.Button4Click(Sender: TObject);
+begin
+  inherited;
+  MovePanel1.Visible := False;
+end;
+
+procedure TfrmTradeMarketDisScan.CustomerNoNameBtnDnClick(Sender: TObject);
+begin
+  TBtnEditC(Sender).Text := '';
+  TBtnEditC(Sender).TxtCode := '';
+end;
+
+procedure TfrmTradeMarketDisScan.InitOrder();
+var
+  fP_No: string;
+begin
+  MovePanel1.Visible := false;
+  CDSMJID.EmptyDataSet;
+  with ADOQueryMain do
+  begin
+    Close;
+    sql.Clear;
+    sql.add(' select   *  ');
+    sql.Add(' ,PHRollNum=(select count(STKID) from Trade_Market_Distribution X where X.TMMID=A.TMMID and X.TMSID=B.TMSID),');
+    sql.Add(' PHQty=(select sum(STKMeter) from Trade_Market_Distribution X inner join Trade_Cloth_Stock XX on X.stkid=XX.stkid where X.TMMID=A.TMMID and X.TMSID=B.TMSID)');
+    sql.add(' from Trade_Market_Sub B');
+    sql.add(' inner join Trade_Market_Main A on B.TMMID=A.TMMID ');
+    SQL.Add(' where A.TMMID=' + quotedstr(trim(SmNO.text)));
+    SQL.Add(' and isnull(B.substatus,''0'')<=''2'' ');
+    Open;
+  end;
+  if ADOQueryMain.IsEmpty then
+  begin
+    MovePanel1.Visible := true;
+    Edit2.text := SmNO.Text;
+    Label2.Caption := '订单号未审核或已发货！';
+    if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\订单不存在.wav')) then
+      PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\订单不存在.wav'), 0, SND_ASYNC);
+    exit;
+  end
+  else
+  begin
+    SCreateCDS(ADOQueryMain, CDSOrder);
+    SInitCDSData(ADOQueryMain, CDSOrder);
+    with CDSOrder do
+    begin
+      DisableControls;
+      first;
+      while not eof do
+      begin
+
+        next;
+      end;
+      first;
+      EnableControls;
+    end;
+  end;
+
+end;
+
+procedure TfrmTradeMarketDisScan.InitGrid();
+begin
+  with ADOQueryMain do
+  begin
+    Close;
+    sql.Clear;
+    sql.add(' select   *  ');
+    sql.Add(' ,PHRollNum=(select count(X.STKID) from Trade_Market_Distribution X where X.TMMID=A.TMMID and X.TMSID=B.TMSID),');
+    sql.Add(' PHQty=(select sum(STKMeter) from Trade_Market_Distribution X inner join Trade_Cloth_Stock XX on X.stkid=XX.stkid where X.TMMID=A.TMMID and X.TMSID=B.TMSID)');
+    sql.add(' from Trade_Market_Sub B');
+    sql.add(' inner join Trade_Market_Main A on B.TMMID=A.TMMID ');
+    SQL.Add(' where 1=2 ');
+    Open;
+  end;
+  SCreateCDS(ADOQueryMain, CDSOrder);
+  SInitCDSData(ADOQueryMain, CDSOrder);
+
+  with ADOQueryMain do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add('select A.*,B.TMMID,TMSID,TMDID,cast(0 as int) as RollNum from Trade_Cloth_Stock A ');
+    SQL.Add('inner join Trade_Market_Distribution B on B.STKID=A.STKID  ');
+    SQL.Add('where 1=2 ');
+    Open;
+  end;
+  SCreateCDS(ADOQueryMain, CDSMJID);
+  SInitCDSData(ADOQueryMain, CDSMJID);
+
+end;
+
+procedure TfrmTradeMarketDisScan.FormShow(Sender: TObject);
+begin
+  MovePanel1.Left := (Width - MovePanel1.Width) div 2;
+  MovePanel1.top := (Height - MovePanel1.Height - 200) div 2;
+  InitGrid();
+end;
+
+procedure TfrmTradeMarketDisScan.InitMJID();
+var
+  fP_No: string;
+  i: integer;
+begin
+  MovePanel1.Visible := false;
+
+  with ADOQueryTmp do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add('select CIID from Trade_Cloth_Inspect A');
+    SQL.Add('where A.CIID=' + quotedstr(trim(SmNO.text)));
+    SQL.Add('and CIIOFlag=''未入库''');
+    Open;
+    if not IsEmpty then
+    begin
+      CDSMJID.Append;
+      CDSMJID.FieldByName('SDefNote').Value := '此条码未入库';
+      CDSMJID.FieldByName('CIID').Value := trim(SmNO.Text);
+      CDSMJID.Post;
+      if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\此条码未入库.wav')) then
+        PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\此条码未入库.wav'), 0, SND_ASYNC);
+      Exit;
+    end;
+  end;
+
+  with ADOQueryTmp do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add('select Stkid from Trade_Cloth_IO A');
+    SQL.Add('where A.stkid=' + quotedstr(trim(SmNO.text)));
+    SQL.Add('and IOFlag=''出库''');
+    Open;
+    if not IsEmpty then
+    begin
+      CDSMJID.Append;
+      CDSMJID.FieldByName('SDefNote').Value := '此条码已出库';
+      CDSMJID.FieldByName('Stkid').Value := trim(SmNO.Text);
+      CDSMJID.Post;
+      if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\此条码已出库.wav')) then
+        PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\此条码已出库.wav'), 0, SND_ASYNC);
+      Exit;
+    end;
+  end;
+
+  with ADOQueryMain do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add('select A.* from Trade_Market_Distribution A');
+    SQL.Add('where A.STKID=' + quotedstr(trim(SmNO.text)));
+//    ShowMessage(sql.Text);
+    Open;
+  end;
+  if ADOQueryMain.IsEmpty = false then
+  begin
+    CDSMJID.Append;
+    CDSMJID.FieldByName('SDefNote').Value := '此条码已配货';
+    CDSMJID.FieldByName('CIID').Value := trim(SmNO.Text);
+    CDSMJID.Post;
+    if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\扫描错误.wav')) then
+      PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\扫描错误.wav'), 0, SND_ASYNC);
+    exit;
+  end;
+
+  with ADOQueryMain do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add('select A.* from Trade_Cloth_Stock A');
+    sql.add('left join  Trade_Cloth_IO B on B.stkid=A.stkid and B.IOFlag=''入库'' ');
+    SQL.Add('where A.CIID=' + quotedstr(trim(SmNO.text)));
+    sql.Add('and isnull(A.DisStatus,''0'')=''0''  ');
+    sql.Add('and StkExists=1  ');
+//    ShowMessage(sql.Text);
+    Open;
+  end;
+  if ADOQueryMain.IsEmpty then
+  begin
+    CDSMJID.Append;
+    CDSMJID.FieldByName('SDefNote').Value := '此条码不存在或已出库';
+    CDSMJID.FieldByName('CIID').Value := trim(SmNO.Text);
+    CDSMJID.Post;
+    if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\扫描错误.wav')) then
+      PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\扫描错误.wav'), 0, SND_ASYNC);
+    exit;
+  end;
+  with ADOQueryTmp do
+  begin
+    Close;
+    sql.Clear;
+    SQL.Add('select A.STKID,B.TMMID,B.TMSID from Trade_Cloth_Stock A');
+    sql.Add('inner join Trade_Market_Sub B on isnull(B.C_Name,'''')=isnull(A.C_Name,'''') and isnull(B.C_Pattern,'''')= isnull(A.C_Pattern,'''')  ');
+    SQL.Add('where A.STKID=' + quotedstr(trim(SmNO.text)));
+    SQL.Add('and B.TMMID=' + quotedstr(trim(CDSOrder.Fieldbyname('TMMID').AsString)));
+ //   SQL.ADD('and isnull(B.PRTKZ,'''')<>'''' ');
+    Open;
+  end;
+
+  if ADOQueryTmp.IsEmpty then
+  begin
+    CDSMJID.Append;
+    CDSMJID.FieldByName('SDefNote').Value := '产品名称和花型不对应';
+    CDSMJID.FieldByName('STKID').Value := trim(SmNO.Text);
+    CDSMJID.Post;
+    if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\品名颜色不对应.wav')) then
+      PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\品名颜色不对应.wav'), 0, SND_ASYNC);
+    exit;
+  end;
+  i := 0;
+  while not ADOQueryTmp.eof do
+  begin
+    if CDSOrder.Locate('TMSID', trim(ADOQueryTmp.fieldbyname('TMSID').AsString), []) then
+    begin
+      if (CDSOrder.fieldbyName('TMSPiece').AsInteger = CDSOrder.FieldByName('PHRollNum').AsInteger) and (CDSOrder.fieldbyName('TMSPiece').AsInteger > 0) then
+      begin
+      end
+      else
+      begin
+        i := 1;
+        CDSMJID.Append;
+        CDSMJID.FieldByName('SDefNote').Value := '扫描成功';
+        CDSMJID.FieldByName('CIID').Value := trim(ADOQueryMain.Fieldbyname('CIID').AsString);
+        CDSMJID.FieldByName('stkid').Value := trim(ADOQueryMain.Fieldbyname('stkid').AsString);
+        CDSMJID.FieldByName('C_Name').Value := trim(ADOQueryMain.Fieldbyname('C_Name').AsString);
+        CDSMJID.FieldByName('C_Color').Value := trim(ADOQueryMain.Fieldbyname('C_Color').AsString);
+        CDSMJID.FieldByName('Grade').Value := trim(ADOQueryMain.Fieldbyname('Grade').AsString);
+        CDSMJID.FieldByName('RollNum').Value := 1;
+        CDSMJID.FieldByName('stkmeter').Value := ADOQueryMain.Fieldbyname('stkmeter').AsFloat;
+        CDSMJID.FieldByName('TMMID').Value := trim(ADOQueryTmp.Fieldbyname('TMMID').AsString);
+        CDSMJID.FieldByName('TMSID').Value := trim(ADOQueryTmp.Fieldbyname('TMSID').AsString);
+        CDSMJID.FieldByName('C_Width').Value := ADOQueryMain.Fieldbyname('C_Width').AsString;
+        CDSMJID.FieldByName('C_GramWeight').Value := ADOQueryMain.Fieldbyname('C_GramWeight').AsString;
+          //  CDSMJID.FieldByName('conNo').Value:=trim(ADOQueryMain.Fieldbyname('conNo').AsString);
+        CDSMJID.Post;
+        if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\正确.wav')) then
+          PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\正确.wav'), 0, SND_ASYNC);
+        CDSOrder.Edit;
+        CDSOrder.fieldbyName('PHRollNum').Value := CDSOrder.fieldbyName('PHRollNum').AsInteger + 1;
+        CDSOrder.fieldbyName('PHQty').Value := CDSOrder.fieldbyName('PHQty').AsFloat + ADOQueryMain.Fieldbyname('stkmeter').AsFloat;
+        CDSOrder.Post;
+        if tv1.DataController.Summary.FooterSummaryValues[0] <> 0 then
+        begin
+          if tv1.DataController.Summary.FooterSummaryValues[0] = tv2.DataController.Summary.FooterSummaryValues[0] then
+          begin
+            TBSave.Click;
+            exit;
+          end;
+        end;
+        exit;
+      end;
+    end;
+    ADOQueryTmp.Next;
+  end;
+
+  if i = 0 then
+  begin
+    if FileExists(PChar(ExtractFilePath(Application.ExeName) + 'wav\超出下单匹数.wav')) then
+      PlaySound(PChar(ExtractFilePath(Application.ExeName) + 'wav\超出下单匹数.wav'), 0, SND_ASYNC);
+
+  end;
+end;
+
+end.
+

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

@@ -0,0 +1,834 @@
+inherited frmTradeMarketDisSel: TfrmTradeMarketDisSel
+  Left = 143
+  Top = 4
+  Caption = #35746#21333#24405#20837
+  ClientHeight = 650
+  ClientWidth = 1540
+  Color = clWhite
+  Font.Charset = GB2312_CHARSET
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Position = poMainFormCenter
+  WindowState = wsMaximized
+  ExplicitWidth = 1556
+  ExplicitHeight = 689
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1540
+    Height = 38
+    AutoSize = True
+    ButtonHeight = 38
+    ButtonWidth = 91
+    Caption = 'ToolBar1'
+    Color = clWhite
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_TradeMarket.ImageList_new32
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 8
+      OnClick = TBRafreshClick
+    end
+    object TBFind: TToolButton
+      Left = 71
+      Top = 0
+      AutoSize = True
+      Caption = #36807#28388
+      ImageIndex = 0
+      OnClick = TBFindClick
+    end
+    object TBSave: TToolButton
+      Left = 142
+      Top = 0
+      AutoSize = True
+      Caption = #30830#35748#37197#36135
+      ImageIndex = 4
+      OnClick = TBSaveClick
+    end
+    object ToolButton3: TToolButton
+      Left = 237
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+    end
+    object TBClose: TToolButton
+      Left = 332
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel2: TPanel [1]
+    Left = 0
+    Top = 81
+    Width = 497
+    Height = 569
+    Align = alLeft
+    Caption = 'Panel2'
+    TabOrder = 1
+    object cxGrid3: TcxGrid
+      Left = 1
+      Top = 1
+      Width = 495
+      Height = 567
+      Align = alClient
+      TabOrder = 0
+      object Tv3: TcxGridDBTableView
+        Navigator.Buttons.CustomButtons = <>
+        OnFocusedRecordChanged = Tv3FocusedRecordChanged
+        DataController.DataSource = DS_1
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <>
+        DataController.Summary.SummaryGroups = <>
+        OptionsCustomize.ColumnFiltering = False
+        OptionsData.Editing = False
+        OptionsView.GroupByBox = False
+        Styles.IncSearch = DataLink_TradeMarket.SHuangSe
+        Styles.Header = DataLink_TradeMarket.Default
+        Styles.Inactive = DataLink_TradeMarket.SHuangSe
+        Styles.Selection = DataLink_TradeMarket.SHuangSe
+        object cxGridDBColumn1: TcxGridDBColumn
+          Caption = #36873#25321
+          DataBinding.FieldName = 'SSel'
+          PropertiesClassName = 'TcxCheckBoxProperties'
+          Properties.NullStyle = nssUnchecked
+          Visible = False
+          HeaderAlignmentHorz = taCenter
+          Width = 49
+        end
+        object v1OrderNo: TcxGridDBColumn
+          Caption = #35746#21333#21495
+          DataBinding.FieldName = 'TMMNO'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeMarket.Default
+          Width = 72
+        end
+        object v1CustomerNoName: TcxGridDBColumn
+          Caption = #23458#25143
+          DataBinding.FieldName = 'CustName'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeMarket.Default
+          Width = 73
+        end
+        object v1MPRTCodeName: TcxGridDBColumn
+          Caption = #32534#21495
+          DataBinding.FieldName = 'C_Code'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeMarket.Default
+          Width = 69
+        end
+        object v1PRTColor: TcxGridDBColumn
+          Caption = #39068#33394
+          DataBinding.FieldName = 'C_Color'
+          HeaderAlignmentHorz = taCenter
+          Width = 60
+        end
+        object v1MPRTKZ: TcxGridDBColumn
+          Caption = #20811#37325
+          DataBinding.FieldName = 'PRTKZ'
+          Visible = False
+          Options.Focusing = False
+          VisibleForCustomization = False
+          Width = 54
+        end
+        object v1PRTRollNum: TcxGridDBColumn
+          Caption = #21305#25968
+          DataBinding.FieldName = 'TMSPiece'
+          HeaderAlignmentHorz = taCenter
+          Width = 40
+        end
+        object v1PRTOrderQty: TcxGridDBColumn
+          Caption = #25968#37327
+          DataBinding.FieldName = 'TMSQty'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeMarket.Default
+          Width = 52
+        end
+        object cxGridDBColumn19: TcxGridDBColumn
+          Caption = #25968#37327#21333#20301
+          DataBinding.FieldName = 'TMSUnit'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Width = 58
+        end
+        object v1OrdDefStr1: TcxGridDBColumn
+          Caption = #20844#21496#32534#21495
+          DataBinding.FieldName = 'OrdDefStr1'
+          Visible = False
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Width = 90
+        end
+        object cxGridDBColumn17: TcxGridDBColumn
+          Caption = #20844#21496#21488#22836
+          DataBinding.FieldName = 'OrdDefStr2'
+          Visible = False
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Width = 90
+        end
+        object v1OrdPerson1: TcxGridDBColumn
+          Caption = #19994#21153#21592
+          DataBinding.FieldName = 'OrdPerson1'
+          Visible = False
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeMarket.Default
+          VisibleForCustomization = False
+          Width = 73
+        end
+        object v1JGFactoryName: TcxGridDBColumn
+          Caption = #26579#21378
+          DataBinding.FieldName = 'JGFactoryName'
+          Visible = False
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeMarket.Default
+          Width = 60
+        end
+        object v1OrdDate: TcxGridDBColumn
+          Caption = #21046#21333#26085#26399
+          DataBinding.FieldName = 'OrdDate'
+          PropertiesClassName = 'TcxDateEditProperties'
+          Properties.ShowTime = False
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeMarket.Default
+          Width = 68
+        end
+        object cxGridDBColumn18: TcxGridDBColumn
+          Caption = #22791#27880#21450#35201#27714
+          DataBinding.FieldName = 'Note'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeMarket.Default
+          Width = 96
+        end
+        object v1DeliveryDate: TcxGridDBColumn
+          Caption = #20132#36135#26085#26399
+          DataBinding.FieldName = 'DlyDate'
+          PropertiesClassName = 'TcxDateEditProperties'
+          Properties.ShowTime = False
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeMarket.Default
+          Width = 62
+        end
+        object v1MPRTSpec: TcxGridDBColumn
+          Caption = #35268#26684
+          DataBinding.FieldName = 'C_Spec'
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeMarket.Default
+          Width = 68
+        end
+        object v3Column11: TcxGridDBColumn
+          Caption = #33457#22411
+          DataBinding.FieldName = 'C_Pattern'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 60
+        end
+        object v1MPRTMF: TcxGridDBColumn
+          Caption = #38376#24133
+          DataBinding.FieldName = 'PRTMF'
+          Visible = False
+          HeaderAlignmentHorz = taCenter
+          Options.Focusing = False
+          Styles.Header = DataLink_TradeMarket.Default
+          VisibleForCustomization = False
+          Width = 70
+        end
+      end
+      object cxGrid1Level1: TcxGridLevel
+        GridView = Tv3
+      end
+    end
+  end
+  object Panel3: TPanel [2]
+    Left = 497
+    Top = 81
+    Width = 1043
+    Height = 569
+    Align = alClient
+    TabOrder = 2
+    object cxGrid2: TcxGrid
+      Left = 1
+      Top = 1
+      Width = 1041
+      Height = 207
+      Align = alClient
+      TabOrder = 0
+      object Tv1: TcxGridDBTableView
+        Navigator.Buttons.CustomButtons = <>
+        OnCellDblClick = Tv1CellDblClick
+        DataController.DataSource = DS_MX
+        DataController.Filter.AutoDataSetFilter = True
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skCount
+            Column = v1Column6
+          end
+          item
+            Kind = skSum
+            Column = v2Column5
+          end
+          item
+            Kind = skSum
+            Column = v2Column6
+          end
+          item
+            Kind = skSum
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsCustomize.ColumnFiltering = False
+        OptionsCustomize.ColumnSorting = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        OptionsView.Indicator = True
+        OptionsView.IndicatorWidth = 20
+        Styles.IncSearch = DataLink_TradeMarket.SHuangSe
+        Styles.Header = DataLink_TradeMarket.Default
+        Styles.Inactive = DataLink_TradeMarket.SHuangSe
+        Styles.Selection = DataLink_TradeMarket.SHuangSe
+        object v1Ssel: TcxGridDBColumn
+          Caption = #36873#25321
+          DataBinding.FieldName = 'Ssel'
+          PropertiesClassName = 'TcxCheckBoxProperties'
+          Properties.ImmediatePost = True
+          Properties.NullStyle = nssUnchecked
+          HeaderAlignmentHorz = taCenter
+          Width = 49
+        end
+        object v2Column1: TcxGridDBColumn
+          Caption = #32534#21495
+          DataBinding.FieldName = 'C_CODE'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Options.Focusing = False
+          Width = 91
+        end
+        object v2Column3: TcxGridDBColumn
+          Caption = #39068#33394
+          DataBinding.FieldName = 'C_Color'
+          Visible = False
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Options.Focusing = False
+          Width = 77
+        end
+        object v1C_Color: TcxGridDBColumn
+          Caption = #39068#33394
+          DataBinding.FieldName = 'C_Color'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 60
+        end
+        object v2Column6: TcxGridDBColumn
+          Caption = #24211#23384#25968#37327
+          DataBinding.FieldName = 'stkmeter'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Options.Focusing = False
+          Width = 85
+        end
+        object v1Column7: TcxGridDBColumn
+          Caption = #25968#37327#21333#20301
+          DataBinding.FieldName = 'lenUnit'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Options.Focusing = False
+          Width = 83
+        end
+        object v1Column2: TcxGridDBColumn
+          Caption = #32568#21495
+          DataBinding.FieldName = 'batchno'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 62
+        end
+        object v1Column3: TcxGridDBColumn
+          Caption = #31867#22411
+          DataBinding.FieldName = 'Grade'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 63
+        end
+        object v2Column5: TcxGridDBColumn
+          Caption = #24211#23384#20844#26020#25968
+          DataBinding.FieldName = 'KCKGQty'
+          Visible = False
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Options.Focusing = False
+          Width = 83
+        end
+        object v1Column6: TcxGridDBColumn
+          Caption = #26465#30721
+          DataBinding.FieldName = 'CIID'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 92
+        end
+        object v1KCKW: TcxGridDBColumn
+          Caption = #24211#20301
+          DataBinding.FieldName = 'IOPosition'
+          HeaderAlignmentHorz = taCenter
+          Width = 60
+        end
+        object v1Column5: TcxGridDBColumn
+          Caption = #33457#22411
+          DataBinding.FieldName = 'C_Pattern'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 60
+        end
+      end
+      object cxGrid2Level1: TcxGridLevel
+        GridView = Tv1
+      end
+    end
+    object cxGrid1: TcxGrid
+      Left = 1
+      Top = 208
+      Width = 1041
+      Height = 360
+      Align = alBottom
+      TabOrder = 1
+      object Tv2: TcxGridDBTableView
+        Navigator.Buttons.CustomButtons = <>
+        OnCellDblClick = Tv2CellDblClick
+        DataController.DataSource = DS_MXSel
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skCount
+            Column = cxGridDBColumn7
+          end
+          item
+            Kind = skSum
+            Column = cxGridDBColumn11
+          end
+          item
+            Kind = skSum
+            Column = cxGridDBColumn13
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsBehavior.GoToNextCellOnEnter = True
+        OptionsBehavior.FocusCellOnCycle = True
+        OptionsCustomize.ColumnFiltering = False
+        OptionsCustomize.ColumnSorting = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        OptionsView.Indicator = True
+        OptionsView.IndicatorWidth = 20
+        Styles.IncSearch = DataLink_TradeMarket.SHuangSe
+        Styles.Header = DataLink_TradeMarket.Default
+        Styles.Inactive = DataLink_TradeMarket.SHuangSe
+        Styles.Selection = DataLink_TradeMarket.SHuangSe
+        object cxGridDBColumn3: TcxGridDBColumn
+          Caption = #32534#21495
+          DataBinding.FieldName = 'C_CODE'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Options.Focusing = False
+          Width = 92
+        end
+        object cxGridDBColumn4: TcxGridDBColumn
+          Caption = #39068#33394
+          DataBinding.FieldName = 'C_Color'
+          Visible = False
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Options.Focusing = False
+          Width = 77
+        end
+        object cxGridDBColumn11: TcxGridDBColumn
+          Caption = #24211#23384#20844#26020#25968
+          DataBinding.FieldName = 'KCKGQty'
+          Visible = False
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Options.Focusing = False
+          Width = 83
+        end
+        object cxGridDBColumn16: TcxGridDBColumn
+          Caption = #39068#33394
+          DataBinding.FieldName = 'C_Color'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Options.Focusing = False
+          Width = 60
+        end
+        object cxGridDBColumn13: TcxGridDBColumn
+          Caption = #24211#23384#25968#37327
+          DataBinding.FieldName = 'stkmeter'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Options.Focusing = False
+          Width = 76
+        end
+        object cxGridDBColumn14: TcxGridDBColumn
+          Caption = #25968#37327#21333#20301
+          DataBinding.FieldName = 'kcQtyUnit'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Options.Focusing = False
+          Width = 68
+        end
+        object cxGridDBColumn15: TcxGridDBColumn
+          Caption = #26579#21378#32568#21495
+          DataBinding.FieldName = 'gangNO'
+          Visible = False
+          Options.Editing = False
+          Options.Focusing = False
+          Width = 60
+        end
+        object cxGridDBColumn10: TcxGridDBColumn
+          Caption = #31867#22411
+          DataBinding.FieldName = 'Grade'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Options.Focusing = False
+          Width = 63
+        end
+        object cxGridDBColumn9: TcxGridDBColumn
+          Caption = #21367#21495
+          DataBinding.FieldName = 'pieceno'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Options.Focusing = False
+          Width = 59
+        end
+        object cxGridDBColumn7: TcxGridDBColumn
+          Caption = #26465#30721
+          DataBinding.FieldName = 'ciid'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Options.Focusing = False
+          Width = 92
+        end
+        object cxGridDBColumn5: TcxGridDBColumn
+          Caption = #38376#24133
+          DataBinding.FieldName = 'C_Width'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Options.Focusing = False
+          Width = 70
+        end
+        object cxGridDBColumn6: TcxGridDBColumn
+          Caption = #20811#37325
+          DataBinding.FieldName = 'C_GramWeight'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Options.Focusing = False
+          Width = 59
+        end
+        object v2Column4: TcxGridDBColumn
+          Caption = #33457#22411
+          DataBinding.FieldName = 'C_Pattern'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 60
+        end
+        object v2Column7: TcxGridDBColumn
+          Caption = #32568#21495
+          DataBinding.FieldName = 'batchno'
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+      end
+      object cxGridLevel1: TcxGridLevel
+        GridView = Tv2
+      end
+    end
+  end
+  object MovePanel2: TMovePanel [3]
+    Left = 408
+    Top = 192
+    Width = 289
+    Height = 49
+    BevelInner = bvLowered
+    Caption = #27491#22312#26597#35810#25968#25454#65292#35831#31245#21518#12290#12290#12290
+    Color = clSkyBlue
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clRed
+    Font.Height = -13
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 3
+    Visible = False
+  end
+  object Panel1: TPanel [4]
+    Left = 0
+    Top = 38
+    Width = 1540
+    Height = 43
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clSkyBlue
+    TabOrder = 4
+    object Label3: TLabel
+      Left = 55
+      Top = 15
+      Width = 24
+      Height = 12
+      Caption = #32534#21495
+    end
+    object Label4: TLabel
+      Left = 201
+      Top = 15
+      Width = 24
+      Height = 12
+      Caption = #39068#33394
+    end
+    object Label7: TLabel
+      Left = 492
+      Top = 68
+      Width = 24
+      Height = 12
+      Caption = #31867#22411
+    end
+    object Label15: TLabel
+      Left = 844
+      Top = 15
+      Width = 48
+      Height = 12
+      Caption = #37197#36135#20154#21592
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      Visible = False
+    end
+    object Label1: TLabel
+      Left = 338
+      Top = 15
+      Width = 24
+      Height = 12
+      Caption = #32568#21495
+    end
+    object Label2: TLabel
+      Left = 471
+      Top = 15
+      Width = 24
+      Height = 12
+      Caption = #33457#22411
+    end
+    object c_code: TEdit
+      Tag = 2
+      Left = 83
+      Top = 11
+      Width = 100
+      Height = 20
+      ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
+      TabOrder = 1
+    end
+    object C_color: TEdit
+      Tag = 2
+      Left = 228
+      Top = 11
+      Width = 100
+      Height = 20
+      ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
+      TabOrder = 2
+    end
+    object CPType: TComboBox
+      Tag = 2
+      Left = 518
+      Top = 64
+      Width = 68
+      Height = 20
+      Style = csDropDownList
+      ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
+      TabOrder = 6
+      OnChange = TBFindClick
+      Items.Strings = (
+        #27491#21697
+        #27425#21697
+        #30041#26679
+        '')
+    end
+    object Button1: TButton
+      Left = 1008
+      Top = 8
+      Width = 75
+      Height = 25
+      Caption = #30830#23450#36873#25321
+      TabOrder = 0
+      OnClick = Button1Click
+    end
+    object PHYG: TBtnEditA
+      Left = 896
+      Top = 11
+      Width = 100
+      Height = 20
+      ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
+      TabOrder = 4
+      Visible = False
+    end
+    object CheckBox1: TCheckBox
+      Left = 1097
+      Top = 11
+      Width = 99
+      Height = 19
+      Caption = #20840#36873
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clRed
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      TabOrder = 5
+      OnClick = CheckBox1Click
+    end
+    object batchno: TEdit
+      Tag = 2
+      Left = 368
+      Top = 11
+      Width = 100
+      Height = 20
+      ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
+      TabOrder = 3
+    end
+    object C_Pattern: TEdit
+      Tag = 2
+      Left = 498
+      Top = 11
+      Width = 100
+      Height = 20
+      ImeName = #20013#25991'('#31616#20307') - '#30334#24230#36755#20837#27861
+      TabOrder = 7
+    end
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Left = 265
+    Top = 504
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Left = 353
+    Top = 505
+  end
+  inherited ImageList_new32: TImageList
+    Left = 1480
+    Top = 32
+  end
+  object ADOTemp: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 504
+    Top = 396
+  end
+  object ADOCmd: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Parameters = <>
+    Left = 592
+    Top = 389
+  end
+  object DS_1: TDataSource
+    DataSet = CDS_1
+    Left = 208
+    Top = 344
+  end
+  object CDS_1: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 139
+    Top = 348
+  end
+  object GPM_1: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 436
+    Top = 509
+  end
+  object ADOQueryLabel: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Parameters = <>
+    Left = 916
+    Top = 357
+  end
+  object IdFTP1: TIdFTP
+    ConnectTimeout = 0
+    NATKeepAlive.UseKeepAlive = False
+    NATKeepAlive.IdleTimeMS = 0
+    NATKeepAlive.IntervalMS = 0
+    ProxySettings.ProxyType = fpcmNone
+    ProxySettings.Port = 0
+    ReadTimeout = 0
+    Left = 840
+    Top = 162
+  end
+  object DS_MX: TDataSource
+    DataSet = CDS_MX
+    Left = 1040
+    Top = 156
+  end
+  object CDS_MX: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 992
+    Top = 156
+  end
+  object CDS_MXSel: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 1024
+    Top = 380
+  end
+  object DS_MXSel: TDataSource
+    DataSet = CDS_MXSel
+    Left = 1072
+    Top = 380
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 980
+    Top = 124
+  end
+end

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

@@ -0,0 +1,471 @@
+unit U_TradeMarketDisSel;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
+  cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
+  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
+  cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
+  StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
+  cxCurrencyEdit, cxGridCustomPopupMenu, cxGridPopupMenu, cxDropDownEdit,
+  RM_Common, RM_Preview, RM_System, RM_Class, RM_GridReport, RM_Dataset, Menus,
+  cxSplitter, cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, cxCheckBox,
+  dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges, dxBarBuiltInMenu, cxPC,
+  System.ImageList, Vcl.ImgList, U_BaseInput, cxImage, cxDBEdit, IdBaseComponent,
+  IdComponent, IdTCPConnection, IdTCPClient, IdExplicitTLSClientServerBase,
+  IdFTP, ShellAPI, MovePanel;
+
+type
+  TfrmTradeMarketDisSel = class(TfrmBaseInput)
+    ToolBar1: TToolBar;
+    TBSave: TToolButton;
+    TBClose: TToolButton;
+    ADOTemp: TADOQuery;
+    ADOCmd: TADOQuery;
+    DS_1: TDataSource;
+    CDS_1: TClientDataSet;
+    GPM_1: TcxGridPopupMenu;
+    ADOQueryLabel: TADOQuery;
+    ToolButton3: TToolButton;
+    IdFTP1: TIdFTP;
+    DS_MX: TDataSource;
+    CDS_MX: TClientDataSet;
+    Panel2: TPanel;
+    cxGrid3: TcxGrid;
+    Tv3: TcxGridDBTableView;
+    cxGridDBColumn1: TcxGridDBColumn;
+    v1OrderNo: TcxGridDBColumn;
+    v1CustomerNoName: TcxGridDBColumn;
+    v1MPRTCodeName: TcxGridDBColumn;
+    v1PRTColor: TcxGridDBColumn;
+    v1MPRTKZ: TcxGridDBColumn;
+    v1PRTRollNum: TcxGridDBColumn;
+    v1PRTOrderQty: TcxGridDBColumn;
+    cxGridDBColumn19: TcxGridDBColumn;
+    v1OrdDefStr1: TcxGridDBColumn;
+    cxGridDBColumn17: TcxGridDBColumn;
+    v1OrdPerson1: TcxGridDBColumn;
+    v1JGFactoryName: TcxGridDBColumn;
+    v1OrdDate: TcxGridDBColumn;
+    cxGridDBColumn18: TcxGridDBColumn;
+    v1DeliveryDate: TcxGridDBColumn;
+    v1MPRTSpec: TcxGridDBColumn;
+    v3Column11: TcxGridDBColumn;
+    v1MPRTMF: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    Panel3: TPanel;
+    cxGrid2: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Ssel: TcxGridDBColumn;
+    v2Column1: TcxGridDBColumn;
+    v2Column3: TcxGridDBColumn;
+    v1C_Color: TcxGridDBColumn;
+    v2Column6: TcxGridDBColumn;
+    v1Column7: TcxGridDBColumn;
+    v1Column2: TcxGridDBColumn;
+    v1Column3: TcxGridDBColumn;
+    v2Column5: TcxGridDBColumn;
+    v1Column6: TcxGridDBColumn;
+    v1KCKW: TcxGridDBColumn;
+    v1Column5: TcxGridDBColumn;
+    cxGrid2Level1: TcxGridLevel;
+    cxGrid1: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridDBColumn3: TcxGridDBColumn;
+    cxGridDBColumn4: TcxGridDBColumn;
+    cxGridDBColumn11: TcxGridDBColumn;
+    cxGridDBColumn16: TcxGridDBColumn;
+    cxGridDBColumn13: TcxGridDBColumn;
+    cxGridDBColumn14: TcxGridDBColumn;
+    cxGridDBColumn15: TcxGridDBColumn;
+    cxGridDBColumn10: TcxGridDBColumn;
+    cxGridDBColumn9: TcxGridDBColumn;
+    cxGridDBColumn7: TcxGridDBColumn;
+    cxGridDBColumn5: TcxGridDBColumn;
+    cxGridDBColumn6: TcxGridDBColumn;
+    v2Column4: TcxGridDBColumn;
+    v2Column7: TcxGridDBColumn;
+    cxGridLevel1: TcxGridLevel;
+    TBRafresh: TToolButton;
+    TBFind: TToolButton;
+    MovePanel2: TMovePanel;
+    CDS_MXSel: TClientDataSet;
+    DS_MXSel: TDataSource;
+    ADOQueryMain: TADOQuery;
+    Panel1: TPanel;
+    Label3: TLabel;
+    Label4: TLabel;
+    Label7: TLabel;
+    Label15: TLabel;
+    Label1: TLabel;
+    c_code: TEdit;
+    C_color: TEdit;
+    CPType: TComboBox;
+    Button1: TButton;
+    PHYG: TBtnEditA;
+    CheckBox1: TCheckBox;
+    batchno: TEdit;
+    Label2: TLabel;
+    C_Pattern: TEdit;
+    procedure TBCloseClick(Sender: TObject);
+    procedure CustomerNoNameBtnDnClick(Sender: TObject);
+    procedure TBRafreshClick(Sender: TObject);
+    procedure Tv3FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+    procedure FormShow(Sender: TObject);
+    procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+    procedure Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+    procedure TBSaveClick(Sender: TObject);
+    procedure TBFindClick(Sender: TObject);
+    procedure CheckBox1Click(Sender: TObject);
+    procedure Button1Click(Sender: TObject);
+  private
+    fCode, fColor, FPattern, FName: string;
+    function SaveData(): Boolean;
+    procedure InitOrder();
+    procedure InitGrid();
+
+    { Private declarations }
+  public
+    FMainid: string;
+    { Public declarations }
+  end;
+
+var
+  frmTradeMarketDisSel: TfrmTradeMarketDisSel;
+  newh: hwnd;
+
+implementation
+
+uses
+  U_DataLink, U_ZDYHelp, U_ZDYHelpSel, U_RTFun, U_CompanySel, U_PictureUpload,
+  U_ClothInfoSel;
+
+
+{$R *.dfm}
+
+procedure TfrmTradeMarketDisSel.TBCloseClick(Sender: TObject);
+begin
+
+  Close;
+
+end;
+
+procedure TfrmTradeMarketDisSel.TBFindClick(Sender: TObject);
+begin
+  inherited;
+  if ADOQueryMain.Active then
+  begin
+    SCreateCDS(ADOQueryMain, cds_mx);
+    SInitCDSData(ADOQueryMain, cds_mx);
+  end;
+end;
+
+function TfrmTradeMarketDisSel.SaveData(): Boolean;
+var
+  phID: string;
+  P_ID: integer;
+begin
+  Result := false;
+  ADOCmd.Connection.BeginTrans;
+  P_ID := 1;
+  try
+    with CDS_MXSel do
+    begin
+      DisableControls;
+      first;
+      while not eof do
+      begin
+        if GetLSNo(adotemp, phID, 'PH', 'Trade_Market_Distribution', 4, 1) = False then
+        begin
+          Application.MessageBox('取配货单号失败！', '提示', 0);
+          Exit;
+        end;
+        with ADOCmd do
+        begin
+          close;
+          sql.Clear;
+          sql.Add('select * from Trade_Market_Distribution ');
+          sql.Add('where 1=2 ');
+          open;
+        end;
+        ADOCmd.Append;
+        ADOCmd.FieldByName('TMDID').Value := trim(phID);
+        ADOCmd.FieldByName('TMMID').Value := trim(cds_1.fieldbyname('TMMID').AsString);
+        ADOCmd.FieldByName('TMSID').Value := trim(cds_1.fieldbyname('TMSID').AsString);
+        ADOCmd.FieldByName('STKID').Value := trim(cds_mxsel.fieldbyname('STKID').AsString);
+        ADOCmd.FieldByName('Filler').Value := trim(DName);
+        ADOCmd.Post;
+
+        with adocmd do
+        begin
+          close;
+          sql.Clear;
+          sql.Add('select * from Trade_Cloth_Stock ');
+          sql.Add('where STKID=' + quotedstr(trim(CDS_MXSel.fieldbyname('STKID').AsString)));
+          open;
+          edit;
+          fieldbyname('DisStatus').Value := '1';
+          post;
+        end;
+
+        next;
+      end;
+      first;
+      EnableControls;
+
+      with adocmd do
+      begin
+        close;
+        sql.Clear;
+        sql.Add('select * from Trade_Market_Sub ');
+        sql.Add('where TMMID=' + quotedstr(trim(cds_1.fieldbyname('TMMID').AsString)));
+        sql.Add('and TMSID=' + quotedstr(trim(cds_1.fieldbyname('TMSID').AsString)));
+//            ShowMessage(sql.Text);
+        open;
+        edit;
+        fieldbyname('substatus').Value := '2';
+        post;
+      end;
+    end;
+    ADOCmd.Connection.CommitTrans;
+    Result := true;
+  except
+    ADOCmd.Connection.RollbackTrans;
+  end;
+end;
+
+procedure TfrmTradeMarketDisSel.TBRafreshClick(Sender: TObject);
+begin
+  inherited;
+  MovePanel2.Visible := True;
+  MovePanel2.Refresh;
+  initOrder();
+  MovePanel2.Visible := False;
+
+end;
+
+procedure TfrmTradeMarketDisSel.TBSaveClick(Sender: TObject);
+begin
+  if CDS_MXSel.IsEmpty then
+    exit;
+  Panel1.SetFocus;
+  with CDS_MXSel do
+  begin
+    DisableControls;
+    first;
+    while not eof do
+    begin
+      if (trim(fieldbyname('C_Name').AsString) <> trim(cds_1.FieldByName('C_Name').AsString)) or (uppercase(trim(fieldbyname('C_Pattern').AsString)) <> uppercase(trim(cds_1.FieldByName('C_Pattern').AsString))) then
+      begin
+        application.MessageBox('产品名称,花型或者颜色不一样，不能配货！', '提示信息', 0);
+        EnableControls;
+        exit;
+      end;
+      next;
+    end;
+    first;
+    EnableControls;
+  end;
+
+  if SaveData() then
+  begin
+    application.MessageBox('配货成功!', '提示信息');
+    CDS_1.Delete;
+    CDS_MXSel.EmptyDataSet;
+   // TBRafresh.Click;
+  end
+  else
+  begin
+    application.MessageBox('配货失败!', '提示信息', 0);
+  end;
+end;
+
+procedure TfrmTradeMarketDisSel.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+var
+  i: Integer;
+begin
+  if cds_mx.IsEmpty then
+    Exit;
+  CDS_MXSel.Append;
+  for i := 0 to CDS_MXSel.FieldCount - 1 do
+  begin
+    CDS_MXSel.Fields[i].Value := cds_mx.Fields[i].Value;
+  end;
+  CDS_MXSel.Post;
+  CDS_MX.Delete;
+end;
+
+procedure TfrmTradeMarketDisSel.Tv2CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
+var
+  i: Integer;
+begin
+  if CDS_MXSel.IsEmpty then
+    Exit;
+  CDS_MX.Append;
+  for i := 0 to CDS_MX.FieldCount - 1 do
+  begin
+    CDS_MX.Fields[i].Value := CDS_MXSel.Fields[i].Value;
+  end;
+  CDS_MX.FieldByName('ssel').Value := false;
+  CDS_MX.Post;
+  CDS_MXSel.Delete;
+end;
+
+procedure TfrmTradeMarketDisSel.Tv3FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
+begin
+  inherited;
+  if CDS_1.IsEmpty then
+  begin
+    fCode := '!##@';
+    fColor := '!##@';
+    FPattern := '!##@';
+    fName := '!##@';
+  end
+  else
+  begin
+    FCode := trim(cds_1.FieldByName('C_Code').AsString);
+    fColor := trim(cds_1.FieldByName('C_Color').AsString);
+    FPattern := trim(cds_1.FieldByName('C_Pattern').AsString);
+    FCode := trim(cds_1.FieldByName('C_Name').AsString);
+  end;
+  InitGrid();
+end;
+
+procedure TfrmTradeMarketDisSel.Button1Click(Sender: TObject);
+var
+  i: integer;
+  mfieldName: string;
+begin
+  if CDS_MX.IsEmpty then
+    Exit;
+  CDS_mxSel.DisableControls;
+  with CDS_MX do
+  begin
+    DisableControls;
+    First;
+    while not eof do
+    begin
+      if (CDS_MX.Locate('ssel', true, [])) and not CDS_mxSel.Locate('stkid', CDS_MX.fieldbyname('stkid').AsInteger, []) then
+      begin
+        CDS_mxSel.Append;
+        for i := 0 to CDS_mxSel.FieldCount - 1 do
+        begin
+          mfieldName := trim(CDS_mxSel.fields[i].FieldName);
+          CDS_mxSel.Fields[i].Value := CDS_MX.fieldbyName(mfieldName).Value;
+        end;
+        CDS_mxSel.Post;
+        CDS_MX.Delete;
+      end;
+      next;
+    end;
+    EnableControls;
+    First;
+  end;
+  with CDS_MX do
+  begin
+    DisableControls;
+    First;
+    while not eof do
+    begin
+      if (CDS_MX.Locate('ssel', true, [])) and not CDS_mxSel.Locate('stkid', CDS_MX.fieldbyname('stkid').AsInteger, []) then
+      begin
+        CDS_mxSel.Append;
+        for i := 0 to CDS_mxSel.FieldCount - 1 do
+        begin
+          mfieldName := trim(CDS_mxSel.fields[i].FieldName);
+          CDS_mxSel.Fields[i].Value := CDS_MX.fieldbyName(mfieldName).Value;
+        //  CDS_SubSel.Fields[i].Value:=CDS_Main.Fields[i].Value;
+        end;
+        CDS_mxSel.Post;
+        CDS_MX.Delete;
+      end;
+      next;
+    end;
+    EnableControls;
+    First;
+  end;
+  CDS_mxSel.EnableControls;
+end;
+
+procedure TfrmTradeMarketDisSel.CheckBox1Click(Sender: TObject);
+begin
+  inherited;
+  if cds_mx.IsEmpty then
+    exit;
+  with cds_mx do
+  begin
+    DisableControls;
+    first;
+    while not eof do
+    begin
+      edit;
+      fieldbyname('ssel').Value := checkbox1.Checked;
+      post;
+      next;
+    end;
+    First;
+    EnableControls;
+  end;
+end;
+
+procedure TfrmTradeMarketDisSel.CustomerNoNameBtnDnClick(Sender: TObject);
+begin
+  TBtnEditC(Sender).Text := '';
+  TBtnEditC(Sender).TxtCode := '';
+end;
+
+procedure TfrmTradeMarketDisSel.InitOrder();
+begin
+  try
+    with ADOTemp do
+    begin
+      close;
+      sql.Clear;
+      sql.Add(' select A.* ');
+      sql.Add(' from Trade_Market_Sub A ');
+      sql.Add(' inner join Trade_Market_Main B on B.TMMID=A.TMMID');
+      sql.Add(' and isnull(substatus,''0'')=''0''');
+      sql.Add(' and A.TMMID=' + quotedstr(trim(fmainID)));
+      open;
+    end;
+    SCreateCDS(ADOTemp, cds_1);
+    SInitCDSData(ADOTemp, cds_1);
+  finally
+  //  Order_Main.EnableControls;
+  end;
+end;
+
+procedure TfrmTradeMarketDisSel.FormShow(Sender: TObject);
+begin
+  inherited;
+  TBRafresh.Click;
+end;
+
+procedure TfrmTradeMarketDisSel.InitGrid();
+begin
+  try
+    with ADOQueryMain do
+    begin
+      Filtered := False;
+      Close;
+      sql.Clear;
+      SQL.Add('exec P_Trade_Dispatched_View');
+      SQL.Add('@C_Code=' + quotedstr(trim(FCode)));
+      SQL.Add(',@C_Color=' + quotedstr(trim(fColor)));
+      SQL.Add(',@C_Pattern=' + quotedstr(trim(FPattern)));
+      SQL.Add(',@C_Name=' + quotedstr(trim(FName)));
+//      ShowMessage(sql.Text);
+      Open;
+    end;
+    SCreateCDS(ADOQueryMain, cds_mx);
+    SInitCDSData(ADOQueryMain, cds_mx);
+    SCreateCDS(ADOQueryMain, cds_mxSel);
+  finally
+    TBFind.Click;
+  end;
+end;
+
+end.
+

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

@@ -0,0 +1,872 @@
+inherited frmTradeMarketInPut: TfrmTradeMarketInPut
+  Left = 143
+  Top = 4
+  Caption = #35746#21333#24405#20837
+  ClientHeight = 650
+  ClientWidth = 1540
+  Color = clWhite
+  Font.Charset = GB2312_CHARSET
+  Font.Height = -12
+  Font.Name = #23435#20307
+  Position = poMainFormCenter
+  WindowState = wsMaximized
+  ExplicitWidth = 1556
+  ExplicitHeight = 689
+  PixelsPerInch = 96
+  TextHeight = 12
+  object ToolBar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1540
+    Height = 38
+    AutoSize = True
+    ButtonHeight = 38
+    ButtonWidth = 91
+    Caption = 'ToolBar1'
+    Color = clWhite
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_TradeMarket.ImageList_new32
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBSave: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384
+      ImageIndex = 16
+      OnClick = TBSaveClick
+    end
+    object ToolButton3: TToolButton
+      Left = 71
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+      OnClick = ToolButton3Click
+    end
+    object TBClose: TToolButton
+      Left = 166
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object ToolBar2: TToolBar [1]
+    Left = 0
+    Top = 217
+    Width = 1540
+    Height = 34
+    ButtonHeight = 38
+    ButtonWidth = 91
+    Caption = 'ToolBar1'
+    Color = clBtnFace
+    EdgeInner = esNone
+    EdgeOuter = esNone
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_TradeMarket.ImageList_new32
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 1
+    object ToolButton4: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #20135#21697#36873#25321
+      ImageIndex = 4
+      OnClick = ToolButton4Click
+    end
+    object ToolButton1: TToolButton
+      Left = 95
+      Top = 0
+      AutoSize = True
+      Caption = #22686#34892
+      ImageIndex = 2
+      OnClick = ToolButton1Click
+    end
+    object ToolButton2: TToolButton
+      Left = 166
+      Top = 0
+      AutoSize = True
+      Caption = #21024#34892
+      ImageIndex = 6
+      OnClick = ToolButton2Click
+    end
+    object ToolButton5: TToolButton
+      Left = 237
+      Top = 0
+      Caption = #19968#38190#26367#25442
+      ImageIndex = 17
+      OnClick = ToolButton3Click
+    end
+  end
+  object Panel2: TPanel [2]
+    Left = 0
+    Top = 251
+    Width = 1540
+    Height = 399
+    Align = alClient
+    Caption = 'Panel2'
+    TabOrder = 2
+    object Panel3: TPanel
+      Left = 1
+      Top = 1
+      Width = 900
+      Height = 397
+      Align = alLeft
+      Caption = 'Panel2'
+      TabOrder = 0
+      object cxGrid1: TcxGrid
+        Left = 1
+        Top = 1
+        Width = 898
+        Height = 395
+        Align = alClient
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clWindowText
+        Font.Height = -12
+        Font.Name = #23435#20307
+        Font.Style = []
+        ParentFont = False
+        TabOrder = 0
+        object Tv1: TcxGridDBTableView
+          Navigator.Buttons.CustomButtons = <>
+          ScrollbarAnnotations.CustomAnnotations = <>
+          OnFocusedRecordChanged = Tv1FocusedRecordChanged
+          DataController.DataSource = DS_1
+          DataController.Filter.AutoDataSetFilter = True
+          DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+          DataController.Summary.DefaultGroupSummaryItems = <
+            item
+              Format = '0'
+              Position = spFooter
+            end
+            item
+              Format = '0'
+              Position = spFooter
+              Column = v1PRTOrderQty
+            end
+            item
+              Format = '0'
+              Position = spFooter
+            end>
+          DataController.Summary.FooterSummaryItems = <
+            item
+              Kind = skSum
+              Column = v1PRTOrderQty
+            end
+            item
+              Kind = skSum
+            end
+            item
+              Kind = skSum
+            end
+            item
+              Kind = skSum
+              Column = VC_PRTPs
+            end>
+          DataController.Summary.SummaryGroups = <>
+          OptionsBehavior.FocusCellOnTab = True
+          OptionsBehavior.GoToNextCellOnEnter = True
+          OptionsBehavior.FocusCellOnCycle = True
+          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'
+            DataBinding.IsNullValueType = True
+            HeaderAlignmentHorz = taCenter
+            Width = 50
+          end
+          object v1Column11: TcxGridDBColumn
+            Tag = 99
+            Caption = #36873#25321
+            DataBinding.FieldName = 'SSel'
+            DataBinding.IsNullValueType = True
+            PropertiesClassName = 'TcxCheckBoxProperties'
+            Properties.ImmediatePost = True
+            Properties.NullStyle = nssUnchecked
+            HeaderAlignmentHorz = taCenter
+            Options.Sorting = False
+            Width = 66
+          end
+          object Tv1Column1: TcxGridDBColumn
+            Caption = #20135#21697#32534#21495
+            DataBinding.FieldName = 'C_Code'
+            DataBinding.IsNullValueType = True
+            PropertiesClassName = 'TcxButtonEditProperties'
+            Properties.Buttons = <
+              item
+                Default = True
+                Kind = bkEllipsis
+              end>
+            Properties.OnButtonClick = Tv1Column1PropertiesButtonClick
+            Properties.OnEditValueChanged = Tv1Column1PropertiesEditValueChanged
+            HeaderAlignmentHorz = taCenter
+            Width = 80
+          end
+          object Tv1Column7: TcxGridDBColumn
+            Caption = #20135#21697#21517#31216
+            DataBinding.FieldName = 'C_Name'
+            DataBinding.IsNullValueType = True
+            PropertiesClassName = 'TcxTextEditProperties'
+            Properties.OnEditValueChanged = Tv1Column1PropertiesEditValueChanged
+            HeaderAlignmentHorz = taCenter
+            Width = 80
+          end
+          object v1PRTColor: TcxGridDBColumn
+            Caption = #20013#25991#39068#33394
+            DataBinding.FieldName = 'C_Color'
+            DataBinding.IsNullValueType = True
+            PropertiesClassName = 'TcxButtonEditProperties'
+            Properties.Buttons = <
+              item
+                Default = True
+                Kind = bkEllipsis
+              end>
+            Properties.ReadOnly = False
+            HeaderAlignmentHorz = taCenter
+            Styles.Header = DataLink_TradeMarket.handBlack
+            Width = 116
+          end
+          object Tv1Column9: TcxGridDBColumn
+            Caption = #35268#26684
+            DataBinding.FieldName = 'C_Spec'
+            DataBinding.IsNullValueType = True
+            HeaderAlignmentHorz = taCenter
+            Width = 70
+          end
+          object Tv1Column11: TcxGridDBColumn
+            Caption = #33457#22411
+            DataBinding.FieldName = 'C_Pattern'
+            DataBinding.IsNullValueType = True
+            PropertiesClassName = 'TcxTextEditProperties'
+            Properties.OnEditValueChanged = Tv1Column1PropertiesEditValueChanged
+            HeaderAlignmentHorz = taCenter
+            Width = 80
+          end
+          object Tv1Column5: TcxGridDBColumn
+            Caption = #38376#24133
+            DataBinding.FieldName = 'C_Width'
+            DataBinding.IsNullValueType = True
+            HeaderAlignmentHorz = taCenter
+            Width = 70
+          end
+          object Tv1Column10: TcxGridDBColumn
+            Caption = #20811#37325
+            DataBinding.FieldName = 'C_GramWeight'
+            DataBinding.IsNullValueType = True
+            HeaderAlignmentHorz = taCenter
+            Width = 70
+          end
+          object VC_PRTPs: TcxGridDBColumn
+            Caption = #21305#25968
+            DataBinding.FieldName = 'TMSPiece'
+            DataBinding.IsNullValueType = True
+            HeaderAlignmentHorz = taCenter
+            Width = 112
+          end
+          object v1PRTOrderQty: TcxGridDBColumn
+            Caption = #25968#37327
+            DataBinding.FieldName = 'TMSQty'
+            DataBinding.IsNullValueType = True
+            PropertiesClassName = 'TcxTextEditProperties'
+            HeaderAlignmentHorz = taCenter
+            Styles.Header = DataLink_TradeMarket.Default
+            Width = 98
+          end
+          object Tv1Column8: TcxGridDBColumn
+            Caption = #25968#37327#21333#20301
+            DataBinding.FieldName = 'TMSUnit'
+            DataBinding.IsNullValueType = True
+            PropertiesClassName = 'TcxComboBoxProperties'
+            Properties.Items.Strings = (
+              'M'
+              'Y'
+              'Kg'
+              #21305)
+            HeaderAlignmentHorz = taCenter
+            Width = 70
+          end
+          object Tv1Column4: TcxGridDBColumn
+            Caption = #21333#20215
+            DataBinding.FieldName = 'Price'
+            DataBinding.IsNullValueType = True
+            HeaderAlignmentHorz = taCenter
+            Width = 70
+          end
+          object Tv1Column6: TcxGridDBColumn
+            Caption = #21253#32568#36153
+            DataBinding.FieldName = 'GangFee'
+            DataBinding.IsNullValueType = True
+            HeaderAlignmentHorz = taCenter
+            Width = 70
+          end
+          object Tv1Column13: TcxGridDBColumn
+            Caption = #36816#36153
+            DataBinding.FieldName = 'Transfee'
+            DataBinding.IsNullValueType = True
+            HeaderAlignmentHorz = taCenter
+            Width = 70
+          end
+          object Tv1Column14: TcxGridDBColumn
+            Caption = #20854#23427#36153
+            DataBinding.FieldName = 'Otherfee'
+            DataBinding.IsNullValueType = True
+            HeaderAlignmentHorz = taCenter
+            Width = 70
+          end
+          object Tv1Column2: TcxGridDBColumn
+            Caption = #22791#27880
+            DataBinding.FieldName = 'OrdSNote'
+            DataBinding.IsNullValueType = True
+            HeaderAlignmentHorz = taCenter
+            Width = 105
+          end
+        end
+        object cxGrid1Level1: TcxGridLevel
+          GridView = Tv1
+        end
+      end
+    end
+    object Panel4: TPanel
+      Left = 901
+      Top = 1
+      Width = 638
+      Height = 397
+      Align = alClient
+      Caption = 'Panel4'
+      TabOrder = 1
+      object Panel5: TPanel
+        Left = 1
+        Top = 1
+        Width = 636
+        Height = 41
+        Align = alTop
+        TabOrder = 0
+        object Label33: TLabel
+          Left = 20
+          Top = 8
+          Width = 44
+          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
+          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
+          Left = 70
+          Top = 9
+          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
+        end
+      end
+      object GroupBox2: TGroupBox
+        Left = 1
+        Top = 42
+        Width = 636
+        Height = 354
+        Align = alClient
+        Caption = #21452#20987#21024#38500#26126#32454#20449#24687
+        TabOrder = 1
+        object cxGrid2: TcxGrid
+          Left = 2
+          Top = 14
+          Width = 632
+          Height = 338
+          Align = alClient
+          TabOrder = 0
+          object TvMX: TcxGridDBTableView
+            Navigator.Buttons.CustomButtons = <>
+            Navigator.Buttons.Delete.Enabled = False
+            Navigator.Buttons.Delete.Visible = False
+            ScrollbarAnnotations.CustomAnnotations = <>
+            OnCellDblClick = TvMXCellDblClick
+            DataController.DataSource = DS_MX
+            DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+            DataController.Summary.DefaultGroupSummaryItems = <
+              item
+                Kind = skCount
+                Position = spFooter
+              end
+              item
+                Kind = skSum
+                Position = spFooter
+                Column = cxGridDBColumn8
+              end
+              item
+                Kind = skCount
+              end
+              item
+                Kind = skSum
+                Column = cxGridDBColumn8
+              end>
+            DataController.Summary.FooterSummaryItems = <
+              item
+                Kind = skSum
+                Column = cxGridDBColumn8
+              end
+              item
+                Kind = skCount
+                Column = cxGridDBColumn8
+              end>
+            DataController.Summary.SummaryGroups = <>
+            OptionsCustomize.ColumnFiltering = False
+            OptionsView.Footer = True
+            OptionsView.GroupByBox = False
+            OptionsView.Indicator = True
+            OptionsView.IndicatorWidth = 33
+            object cxGridDBColumn8: TcxGridDBColumn
+              Caption = #25968#37327
+              DataBinding.FieldName = 'Meter'
+              DataBinding.IsNullValueType = True
+              PropertiesClassName = 'TcxTextEditProperties'
+              Properties.Alignment.Horz = taCenter
+              HeaderAlignmentHorz = taCenter
+              Options.Editing = False
+              Options.Sorting = False
+              Width = 66
+            end
+          end
+          object cxGridLevel2: TcxGridLevel
+            GridView = TvMX
+          end
+        end
+      end
+    end
+  end
+  object Panel1: TPanel [3]
+    Left = 626
+    Top = 213
+    Width = 537
+    Height = 25
+    BevelOuter = bvNone
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clRed
+    Font.Height = -14
+    Font.Name = #23435#20307
+    Font.Style = [fsBold]
+    ParentFont = False
+    TabOrder = 3
+    object Label22: TLabel
+      Left = 112
+      Top = 4
+      Width = 45
+      Height = 14
+      Caption = #21305#25968#65306
+    end
+    object Label23: TLabel
+      Left = 212
+      Top = 4
+      Width = 45
+      Height = 14
+      Caption = #25968#37327#65306
+    end
+    object Label29: TLabel
+      Left = 12
+      Top = 4
+      Width = 45
+      Height = 14
+      Caption = #21333#20215#65306
+    end
+    object Label34: TLabel
+      Left = 335
+      Top = 4
+      Width = 45
+      Height = 14
+      Caption = #21305#25968#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -14
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label35: TLabel
+      Left = 435
+      Top = 4
+      Width = 45
+      Height = 14
+      Caption = #25968#37327#65306
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clBlue
+      Font.Height = -14
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+  end
+  object ScrollBox1: TScrollBox [4]
+    Left = 0
+    Top = 38
+    Width = 1540
+    Height = 179
+    Align = alTop
+    BevelInner = bvNone
+    BevelOuter = bvNone
+    BorderStyle = bsNone
+    Color = clWhite
+    Ctl3D = False
+    ParentColor = False
+    ParentCtl3D = False
+    TabOrder = 4
+    OnClick = ScrollBox1Click
+    object Label3: TLabel
+      Left = 404
+      Top = 7
+      Width = 52
+      Height = 15
+      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
+      Top = 7
+      Width = 52
+      Height = 15
+      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
+      Width = 53
+      Height = 15
+      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
+      Top = 6
+      Width = 39
+      Height = 15
+      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
+      Top = 35
+      Width = 50
+      Height = 15
+      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
+      Top = 35
+      Width = 52
+      Height = 15
+      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
+      Top = 64
+      Width = 65
+      Height = 12
+      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
+      Top = 64
+      Width = 65
+      Height = 12
+      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
+      Top = 35
+      Width = 52
+      Height = 12
+      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
+      Tag = 2
+      Left = 78
+      Top = 6
+      Width = 100
+      Height = 18
+      TabOrder = 0
+    end
+    object TMMDate: TDateTimePicker
+      Tag = 2
+      Left = 458
+      Top = 4
+      Width = 100
+      Height = 20
+      BevelInner = bvNone
+      Date = 40916.000000000000000000
+      Format = 'yyyy-MM-dd'
+      Time = 0.670856296288548000
+      TabOrder = 1
+    end
+    object DLYDate: TDateTimePicker
+      Tag = 2
+      Left = 273
+      Top = 4
+      Width = 100
+      Height = 20
+      BevelInner = bvNone
+      Date = 40916.000000000000000000
+      Format = 'yyyy-MM-dd'
+      Time = 0.670856296288548000
+      ShowCheckbox = True
+      TabOrder = 2
+    end
+    object OrdNote: TMemo
+      Tag = 2
+      Left = 82
+      Top = 107
+      Width = 476
+      Height = 58
+      Hint = 'OrdNote/'#22791#27880
+      ScrollBars = ssVertical
+      TabOrder = 3
+      OnDblClick = PackNoteDblClick
+    end
+    object CustName: TBtnEditC
+      Tag = 2
+      Left = 273
+      Top = 32
+      Width = 100
+      Height = 20
+      ReadOnly = True
+      TabOrder = 4
+      OnBtnUpClick = CustNameBtnUpClick
+      OnBtnDnClick = OurCoNameBtnDnClick
+    end
+    object OurCoName: TBtnEditC
+      Tag = 2
+      Left = 78
+      Top = 32
+      Width = 100
+      Height = 20
+      ReadOnly = True
+      TabOrder = 5
+      OnBtnUpClick = OurCoNameBtnUpClick
+      OnBtnDnClick = OurCoNameBtnDnClick
+    end
+    object CONTACT: TBtnEditC
+      Tag = 2
+      Left = 273
+      Top = 59
+      Width = 285
+      Height = 20
+      TabOrder = 6
+      OnBtnUpClick = CONTACTBtnUpClick
+    end
+    object OrdType: TComboBox
+      Tag = 2
+      Left = 78
+      Top = 59
+      Width = 100
+      Height = 20
+      Style = csDropDownList
+      Ctl3D = False
+      Enabled = False
+      ItemIndex = 0
+      ParentCtl3D = False
+      TabOrder = 7
+      Text = #27491#24120#21333
+      Items.Strings = (
+        #27491#24120#21333)
+    end
+    object ShippingAddress: TBtnEditC
+      Tag = 2
+      Left = 458
+      Top = 32
+      Width = 100
+      Height = 20
+      TabOrder = 8
+      OnBtnUpClick = ShippingAddressBtnUpClick
+    end
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Left = 265
+    Top = 504
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Left = 353
+    Top = 505
+  end
+  inherited ImageList_new32: TImageList
+    Left = 1480
+    Top = 32
+  end
+  object ADOTemp: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 504
+    Top = 396
+  end
+  object ADOCmd: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Parameters = <>
+    Left = 592
+    Top = 389
+  end
+  object DS_1: TDataSource
+    DataSet = CDS_1
+    Left = 584
+    Top = 512
+  end
+  object CDS_1: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 515
+    Top = 508
+  end
+  object GPM_1: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 436
+    Top = 509
+  end
+  object ADOQueryLabel: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Parameters = <>
+    Left = 932
+    Top = 421
+  end
+  object ADO_I1: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Parameters = <>
+    Left = 864
+    Top = 75
+  end
+  object DS_I1: TDataSource
+    DataSet = ADO_I1
+    Left = 884
+    Top = 71
+  end
+  object IdFTP1: TIdFTP
+    ConnectTimeout = 0
+    NATKeepAlive.UseKeepAlive = False
+    NATKeepAlive.IdleTimeMS = 0
+    NATKeepAlive.IntervalMS = 0
+    ProxySettings.ProxyType = fpcmNone
+    ProxySettings.Port = 0
+    ReadTimeout = 0
+    Left = 840
+    Top = 162
+  end
+  object ADO_I2: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Parameters = <>
+    Left = 1048
+    Top = 75
+  end
+  object DS_I2: TDataSource
+    DataSet = ADO_I2
+    Left = 1124
+    Top = 71
+  end
+  object DS_MX: TDataSource
+    DataSet = CDS_MX
+    Left = 1056
+    Top = 444
+  end
+  object CDS_MX: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 1008
+    Top = 412
+  end
+end

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

@@ -0,0 +1,819 @@
+inherited frmTradeMarketList: TfrmTradeMarketList
+  Left = 165
+  Top = 13
+  Caption = #29983#20135#35745#21010#21333#31649#29702
+  ClientHeight = 760
+  ClientWidth = 1540
+  FormStyle = fsMDIChild
+  Position = poScreenCenter
+  Visible = True
+  ExplicitWidth = 1556
+  ExplicitHeight = 799
+  PixelsPerInch = 96
+  TextHeight = 17
+  object ToolBar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1540
+    Height = 38
+    AutoSize = True
+    ButtonHeight = 38
+    ButtonWidth = 91
+    Caption = 'ToolBar1'
+    Color = clBtnFace
+    Font.Charset = GB2312_CHARSET
+    Font.Color = clWindowText
+    Font.Height = -12
+    Font.Name = #23435#20307
+    Font.Style = []
+    Images = DataLink_TradeMarket.ImageList_new32
+    List = True
+    ParentColor = False
+    ParentFont = False
+    ShowCaptions = True
+    TabOrder = 0
+    object TBRafresh: TToolButton
+      Left = 0
+      Top = 0
+      AutoSize = True
+      Caption = #21047#26032
+      ImageIndex = 1
+      OnClick = TBRafreshClick
+    end
+    object TBAdd: TToolButton
+      Left = 71
+      Top = 0
+      AutoSize = True
+      Caption = #26032#22686
+      ImageIndex = 9
+      OnClick = TBAddClick
+    end
+    object btnCopy: TToolButton
+      Left = 142
+      Top = 0
+      AutoSize = True
+      Caption = #22797#21046
+      ImageIndex = 13
+      OnClick = btnCopyClick
+    end
+    object TBEdit: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 3
+      OnClick = TBEditClick
+    end
+    object TBDel: TToolButton
+      Left = 284
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 5
+      OnClick = TBDelClick
+    end
+    object TBPrint: TToolButton
+      Left = 355
+      Top = 0
+      AutoSize = True
+      Caption = #25171#21360
+      ImageIndex = 21
+      OnClick = TBPrintClick
+    end
+    object TBCK: TToolButton
+      Left = 426
+      Top = 0
+      AutoSize = True
+      Caption = #26597#30475
+      ImageIndex = 8
+      OnClick = TBCKClick
+    end
+    object ToolButton4: TToolButton
+      Left = 497
+      Top = 0
+      AutoSize = True
+      Caption = #38468#20214
+      ImageIndex = 22
+      OnClick = ToolButton4Click
+    end
+    object TBTJ: TToolButton
+      Left = 568
+      Top = 0
+      AutoSize = True
+      Caption = #25552#20132
+      ImageIndex = 12
+      OnClick = TBTJClick
+    end
+    object TBTJCX: TToolButton
+      Left = 639
+      Top = 0
+      AutoSize = True
+      Caption = #25552#20132#25764#38144
+      ImageIndex = 11
+      OnClick = TBTJCXClick
+    end
+    object Tchk: TToolButton
+      Left = 734
+      Top = 0
+      AutoSize = True
+      Caption = #23457#26680
+      ImageIndex = 12
+      OnClick = TchkClick
+    end
+    object Tnochk: TToolButton
+      Left = 805
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#23457#26680
+      ImageIndex = 11
+      OnClick = TnochkClick
+    end
+    object TWC: TToolButton
+      Left = 900
+      Top = 0
+      AutoSize = True
+      Caption = #23436#25104
+      ImageIndex = 12
+      OnClick = TWCClick
+    end
+    object TNowc: TToolButton
+      Left = 971
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#23436#25104
+      ImageIndex = 11
+      OnClick = TNowcClick
+    end
+    object ToolButton2: TToolButton
+      Left = 1066
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+      OnClick = ToolButton2Click
+    end
+    object TBClose: TToolButton
+      Left = 1161
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+  end
+  object Panel1: TPanel [1]
+    Left = 0
+    Top = 38
+    Width = 1540
+    Height = 69
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    Color = clWhite
+    ParentBackground = False
+    TabOrder = 1
+    object Label3: TLabel
+      Left = 295
+      Top = 20
+      Width = 52
+      Height = 12
+      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
+      Top = 119
+      Width = 26
+      Height = 12
+      Caption = #20811#37325
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label1: TLabel
+      Left = 319
+      Top = 47
+      Width = 26
+      Height = 12
+      Caption = #23458#25143
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label2: TLabel
+      Left = 470
+      Top = 20
+      Width = 52
+      Height = 12
+      Caption = #20135#21697#21517#31216
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object Label4: TLabel
+      Left = 480
+      Top = 47
+      Width = 39
+      Height = 12
+      Caption = #21512#21516#21495
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = [fsBold]
+      ParentFont = False
+    end
+    object BegDate: TDateTimePicker
+      Left = 152
+      Top = 16
+      Width = 101
+      Height = 20
+      Date = 40675.000000000000000000
+      Format = 'yyyy-MM-dd'
+      Time = 0.464742650459811600
+      TabOrder = 0
+    end
+    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
+      TabOrder = 1
+      OnKeyPress = TMMNoKeyPress
+    end
+    object MPRTKZ: TEdit
+      Tag = 2
+      Left = 654
+      Top = 99
+      Width = 56
+      Height = 25
+      TabOrder = 3
+      OnChange = OrderNoMChange
+    end
+    object ComboBox1: TComboBox
+      Left = 49
+      Top = 16
+      Width = 93
+      Height = 25
+      TabOrder = 4
+      Text = #21046#21333#26085#26399
+      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
+      TabOrder = 5
+      OnKeyPress = TMMNoKeyPress
+    end
+    object C_Name: TEdit
+      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
+    Width = 1540
+    Height = 431
+    Align = alClient
+    PopupMenu = PM_1
+    TabOrder = 3
+    object Tv1: TcxGridDBTableView
+      Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
+      OnCellDblClick = Tv1CellDblClick
+      OnFocusedRecordChanged = Tv1FocusedRecordChanged
+      DataController.DataSource = DataSource1
+      DataController.Filter.AutoDataSetFilter = True
+      DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+      DataController.Summary.DefaultGroupSummaryItems = <>
+      DataController.Summary.FooterSummaryItems = <
+        item
+          Kind = skSum
+          Column = Tv1Column11
+        end
+        item
+          Kind = skSum
+          Column = Tv1Column10
+        end
+        item
+          Kind = skSum
+          Column = Tv1Column7
+        end>
+      DataController.Summary.SummaryGroups = <>
+      OptionsBehavior.CellHints = True
+      OptionsCustomize.ColumnFiltering = False
+      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'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        HeaderAlignmentHorz = taCenter
+        Width = 50
+      end
+      object v1OrdDate: TcxGridDBColumn
+        Caption = #21046#21333#26085#26399
+        DataBinding.FieldName = 'TMMDate'
+        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
+        OnCustomDrawCell = v1DeliveryDateCustomDrawCell
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Styles.Header = DataLink_TradeMarket.Default
+        Width = 66
+      end
+      object Tv1Column11: TcxGridDBColumn
+        Caption = #21305#25968
+        DataBinding.FieldName = 'HZPiQty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column10: TcxGridDBColumn
+        Caption = #25968#37327
+        DataBinding.FieldName = 'OrdQty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object v1Column11: TcxGridDBColumn
+        Caption = #21333#20301
+        DataBinding.FieldName = 'OrdUnit'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        HeaderGlyphAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column6: TcxGridDBColumn
+        Caption = #21046#21333#20154
+        DataBinding.FieldName = 'FILLER'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      object Tv1Column1: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'OrdNote'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 66
+      end
+      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
+      object Tv1Column7: TcxGridDBColumn
+        Caption = #37329#39069
+        DataBinding.FieldName = 'OrdMoney'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 102
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxSplitter1: TcxSplitter [3]
+    Left = 0
+    Top = 556
+    Width = 1540
+    Height = 8
+    HotZoneClassName = 'TcxMediaPlayer9Style'
+    AlignSplitter = salBottom
+  end
+  object cxTabControl1: TcxTabControl [4]
+    Left = 0
+    Top = 107
+    Width = 1540
+    Height = 18
+    Align = alTop
+    TabOrder = 2
+    Properties.CustomButtons.Buttons = <>
+    Properties.Style = 9
+    Properties.TabIndex = 0
+    Properties.Tabs.Strings = (
+      '      '#24453#25552#20132'      '
+      '      '#24453#23457#26680'      '
+      '      '#24050#23457#26680'      '
+      '      '#24050#23436#25104'      '
+      '      '#20840#37096'      ')
+    OnChange = cxTabControl1Change
+    ClientRectRight = 0
+    ClientRectTop = 0
+  end
+  object Panel2: TPanel [5]
+    Left = 0
+    Top = 564
+    Width = 1540
+    Height = 196
+    Align = alBottom
+    BevelOuter = bvNone
+    Caption = 'Panel2'
+    TabOrder = 5
+    object cxGrid2: TcxGrid
+      Left = 0
+      Top = 0
+      Width = 1540
+      Height = 196
+      Align = alClient
+      Font.Charset = GB2312_CHARSET
+      Font.Color = clWindowText
+      Font.Height = -12
+      Font.Name = #23435#20307
+      Font.Style = []
+      ParentFont = False
+      PopupMenu = PopupMenu2
+      TabOrder = 0
+      object TV2: TcxGridDBTableView
+        Navigator.Buttons.CustomButtons = <>
+        ScrollbarAnnotations.CustomAnnotations = <>
+        DataController.DataSource = DataSource2
+        DataController.Filter.AutoDataSetFilter = True
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <
+          item
+            Format = '0'
+            Position = spFooter
+          end
+          item
+            Format = '0'
+            Position = spFooter
+            Column = v1PRTOrderQty
+          end
+          item
+            Format = '0'
+            Position = spFooter
+          end>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+            Column = v1PRTOrderQty
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+            Column = VC_PRTPs
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsBehavior.FocusCellOnTab = True
+        OptionsBehavior.GoToNextCellOnEnter = True
+        OptionsBehavior.FocusCellOnCycle = True
+        OptionsCustomize.ColumnFiltering = False
+        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
+          DataBinding.FieldName = 'SSel'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxCheckBoxProperties'
+          Properties.ImmediatePost = True
+          Properties.NullStyle = nssUnchecked
+          Visible = False
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Options.Sorting = False
+          Width = 66
+        end
+        object TV2Column1: TcxGridDBColumn
+          Caption = #20135#21697#32534#21495
+          DataBinding.FieldName = 'C_Code'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 70
+        end
+        object TV2Column2: TcxGridDBColumn
+          Caption = #20135#21697#21517#31216
+          DataBinding.FieldName = 'C_Name'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 70
+        end
+        object v1PRTColor: TcxGridDBColumn
+          Caption = #20013#25991#39068#33394
+          DataBinding.FieldName = 'C_Color'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxButtonEditProperties'
+          Properties.Buttons = <
+            item
+              Default = True
+              Kind = bkEllipsis
+            end>
+          Properties.ReadOnly = False
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Styles.Header = DataLink_TradeMarket.handBlack
+          Width = 79
+        end
+        object TV2Column4: TcxGridDBColumn
+          Caption = #33457#22411
+          DataBinding.FieldName = 'C_Pattern'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object VC_PRTPs: TcxGridDBColumn
+          Caption = #21305#25968
+          DataBinding.FieldName = 'TMSPiece'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+        object v1PRTOrderQty: TcxGridDBColumn
+          Caption = #25968#37327
+          DataBinding.FieldName = 'TMSQty'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxTextEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Styles.Header = DataLink_TradeMarket.Default
+          Width = 66
+        end
+        object v1OrderUnit: TcxGridDBColumn
+          Caption = #21333#20301
+          DataBinding.FieldName = 'OrdUnit'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxComboBoxProperties'
+          Properties.Items.Strings = (
+            'M'
+            'Y'
+            'Kg')
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Styles.Header = DataLink_TradeMarket.Default
+          Width = 66
+        end
+        object TV2Column3: TcxGridDBColumn
+          Caption = #21333#20215
+          DataBinding.FieldName = 'price'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object cxGridDBColumn7: TcxGridDBColumn
+          Caption = #22791#27880
+          DataBinding.FieldName = 'OrdSNote'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 66
+        end
+      end
+      object cxGridLevel1: TcxGridLevel
+        GridView = TV2
+      end
+    end
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Left = 257
+    Top = 152
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Left = 121
+    Top = 153
+  end
+  object cxgrdpmn1: TcxGridPopupMenu
+    Grid = cxGrid1
+    PopupMenus = <>
+    Left = 660
+    Top = 428
+  end
+  object ADOQueryCmd: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Parameters = <>
+    Left = 568
+    Top = 240
+  end
+  object ADOQueryMain: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 420
+    Top = 216
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 320
+    Top = 224
+  end
+  object DataSource1: TDataSource
+    DataSet = Order_Main
+    Left = 812
+    Top = 440
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 724
+    Top = 432
+  end
+  object ADOQuerySub: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Parameters = <>
+    Left = 312
+    Top = 600
+  end
+  object DataSource2: TDataSource
+    DataSet = ORDER_SUB
+    Left = 408
+    Top = 604
+  end
+  object ADOQueryImage: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    EnableBCD = False
+    Parameters = <>
+    Left = 316
+    Top = 283
+  end
+  object DSImage: TDataSource
+    DataSet = ADOQueryImage
+    Left = 416
+    Top = 288
+  end
+  object IdFTP1: TIdFTP
+    ConnectTimeout = 0
+    NATKeepAlive.UseKeepAlive = False
+    NATKeepAlive.IdleTimeMS = 0
+    NATKeepAlive.IntervalMS = 0
+    ProxySettings.ProxyType = fpcmNone
+    ProxySettings.Port = 0
+    ReadTimeout = 0
+    Left = 92
+    Top = 258
+  end
+  object ORDER_SUB: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 212
+    Top = 608
+  end
+  object PopupMenu2: TPopupMenu
+    Left = 532
+    Top = 636
+    object N3: TMenuItem
+      Caption = #20840#36873
+      OnClick = N3Click
+    end
+    object N4: TMenuItem
+      Caption = #20840#24323
+      OnClick = N4Click
+    end
+    object N2: TMenuItem
+      Caption = #22797#21046
+      OnClick = N2Click
+    end
+  end
+  object cxgrdpmn2: TcxGridPopupMenu
+    Grid = cxGrid2
+    PopupMenus = <>
+    Left = 660
+    Top = 636
+  end
+  object CDS_WXTS: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 412
+    Top = 424
+  end
+  object PM_1: TPopupMenu
+    Left = 988
+    Top = 356
+    object N1: TMenuItem
+      Caption = #22797#21046
+      OnClick = N1Click
+    end
+  end
+  object GPM_3: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 860
+    Top = 228
+  end
+end

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

@@ -0,0 +1,77 @@
+unit U_iniParam;
+
+interface
+
+uses
+  IniFiles, SysUtils;
+
+var
+  Filename: string;      //文件名
+  iParam2: integer;
+  bParam1: Boolean;
+  bParam2: Boolean;
+  SCXFlag: string;  //生产线   根据此标志获取卷条码前缀 不能包含字母  1,2
+  SCXCount: string;  //机台个数
+  PortNoStr: string; //端口号
+  DllName: string; //端口Dll文件
+  DZCDYDllName: string; //电子秤调用Dll文件
+  MBDYDllName: string; // 码表调用Dll文件
+
+function IsINIFile(): Boolean;  //判断InI配置文件是否存在
+
+procedure ReadINIFile();
+
+procedure WriteINIFile();
+
+implementation
+///////////////////////////////////////////////////////////////////
+  //读取ini文件设置参数
+  //参数：
+////////////////////////////////////////////////////////////////////
+
+procedure ReadINIFile();
+var
+  programIni: Tinifile;  //配置文件名
+begin
+  FileName := ExtractFilePath(Paramstr(0)) + 'File.INI';
+  programIni := Tinifile.create(FileName);
+  SCXFlag := programIni.ReadString('生产车间配置', '卷条码机台标志', '1');
+  SCXCount := programIni.ReadString('生产车间配置', '机台个数', '1');
+  PortNoStr := programIni.ReadString('生产车间配置', '端口号', 'com1');
+  DllName := programIni.ReadString('生产车间配置', '端口Dll文件', 'JZCRS323C.DLL');
+  DZCDYDllName := programIni.ReadString('生产车间配置', '电子秤调用Dll文件', '');
+  MBDYDllName := programIni.ReadString('生产车间配置', '码表调用Dll文件', '');
+  programIni.Free;
+end;
+
+//////////////////////////////////////////////////////////////////
+  //写设置信息到INI文件
+  //参数
+//////////////////////////////////////////////////////////////////
+procedure WriteINIFile();
+var
+  programIni: Tinifile;  //配置文件名
+begin
+  FileName := ExtractFilePath(Paramstr(0)) + 'File.INI';
+  programIni := Tinifile.create(FileName);
+  programIni.WriteString('生产车间配置', '卷条码机台标志', SCXFlag);
+  programIni.WriteString('生产车间配置', '机台个数', SCXCount);
+  programIni.WriteString('生产车间配置', '端口号', PortNoStr);
+  programIni.WriteString('生产车间配置', '端口Dll文件', DllName);
+  programIni.Free;
+end;
+//////////////////////////////////////////////////////////////////
+  //判断InI文件是否存在
+//////////////////////////////////////////////////////////////////
+
+function IsINIFile(): Boolean;
+begin
+  FileName := ExtractFilePath(Paramstr(0)) + 'File.INI';
+  if FileExists(FileName) then
+    Result := true
+  else
+    Result := false;
+end;
+
+end.
+

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

@@ -0,0 +1,220 @@
+object Form1: TForm1
+  Left = 203
+  Top = 121
+  Caption = 'Form1'
+  ClientHeight = 426
+  ClientWidth = 716
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'MS Sans Serif'
+  Font.Style = []
+  FormStyle = fsMDIForm
+  Menu = MainMenu1
+  OldCreateOrder = False
+  WindowState = wsMaximized
+  OnClose = FormClose
+  OnResize = FormResize
+  PixelsPerInch = 96
+  TextHeight = 13
+  object ToolBar1: TToolBar
+    Left = 0
+    Top = 0
+    Width = 716
+    Height = 25
+    ButtonWidth = 57
+    Caption = 'ToolBar1'
+    Images = ImageList1
+    TabOrder = 0
+    object Edit1: TEdit
+      Left = 0
+      Top = 0
+      Width = 81
+      Height = 22
+      TabOrder = 0
+      Text = '1'
+    end
+    object ToolButton1: TToolButton
+      Left = 81
+      Top = 0
+      Caption = #20851#38381
+      ImageIndex = 0
+      OnClick = ToolButton1Click
+    end
+    object Label1: TLabel
+      Left = 138
+      Top = 0
+      Width = 79
+      Height = 22
+      Caption = '         DllName'#65306
+    end
+    object DllName: TEdit
+      Left = 217
+      Top = 0
+      Width = 135
+      Height = 22
+      TabOrder = 1
+    end
+  end
+  object MainMenu1: TMainMenu
+    Left = 232
+    Top = 40
+    object test1: TMenuItem
+      Caption = 'test'
+      OnClick = test1Click
+    end
+  end
+  object ImageList1: TImageList
+    Left = 320
+    Top = 56
+    Bitmap = {
+      494C010101000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      0000000000003600000028000000400000001000000001002000000000000010
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000EFEFEF000000
+      0000EFEFEF00EFEFEF000000000000000000EFEFEF0000000000000000000000
+      0000EFEFEF00EFEFEF0000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000EFEFEF0000000000EFEFEF00EFEFEF0000000000EFEFEF00000000008080
+      00008080000000000000C0C0C000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      00000000000000000000000000000000000000000000EFEFEF00EFEFEF000000
+      0000EFEFEF00EFEFEF000000000000000000C0C0C00000000000000000008080
+      00008080000080800000EFEFEF00EFEFEF000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000EFEFEF0000000000000000000000000000000000000000008080
+      0000808000008080000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000EFEFEF0000000000808080008080800080808000000000008080
+      0000808000008080000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000008080000000000000808080008080800080808000000000008080
+      0000000000008080000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000EFEFEF00EFEF
+      EF0000000000FFFF000080800000000000008080800080808000000000000000
+      0000000000008080000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000FFFF0000FFFF0000808000000000000080808000000000008080
+      0000000000008080000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000808000008080
+      000080800000FFFF0000FFFF0000FFFF00000000000080808000000000008080
+      0000808000008080000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000FFFF0000FFFF
+      0000FFFF0000FFFF000000000000FFFF00000000000080808000000000008080
+      0000808000008080000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000FFFF0000FFFF0000FFFF00000000000080808000000000008080
+      0000808000008080000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000808000000000000080808000808080008080800080808000FFFF
+      0000808000008080000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000808080008080800080808000808080000000
+      0000808000008080000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      0000000000000000000000000000000000000000000000000000000000000000
+      000000000000000000000000000000000000424D3E000000000000003E000000
+      2800000040000000100000000100010000000000800000000000000000000000
+      000000000000000000000000FFFFFF00FFFF000000000000D343000000000000
+      F4810000000000009340000000000000F801000000000000F001000000000000
+      F001000000000000C001000000000000C001000000000000C001000000000000
+      C201000000000000C001000000000000F001000000000000F001000000000000
+      FC03000000000000FFFF00000000000000000000000000000000000000000000
+      000000000000}
+  end
+  object ADOConnection1: TADOConnection
+    ConnectionString = 
+      'Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ' +
+      'ID=sa;Initial Catalog=rzdata;Data Source=6GMFFMYKYMJDZW7'
+    LoginPrompt = False
+    Provider = 'SQLOLEDB.1'
+    Left = 408
+    Top = 64
+  end
+end

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

@@ -0,0 +1,94 @@
+unit U_testdll;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, ExtCtrls, StdCtrls, Menus, ToolWin, ComCtrls, ImgList, DB, ADODB,
+  System.ImageList;
+
+type
+  TForm1 = class(TForm)
+    MainMenu1: TMainMenu;
+    test1: TMenuItem;
+    ToolBar1: TToolBar;
+    Edit1: TEdit;
+    ToolButton1: TToolButton;
+    ImageList1: TImageList;
+    ADOConnection1: TADOConnection;
+    DllName: TEdit;
+    Label1: TLabel;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure test1Click(Sender: TObject);
+    procedure ToolButton1Click(Sender: TObject);
+    procedure FormResize(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+  newh: hwnd;
+
+implementation
+
+{$R *.dfm}
+
+procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  sendmessage(newh, 1034, 4, 0);
+  Action := cafree;
+end;
+
+procedure TForm1.test1Click(Sender: TObject);
+type
+  TMyFunc = function(App: Tapplication; FormH: hwnd; FormID: integer; Language: integer; WinStyle: integer; GCode: Pchar; GName: Pchar; DataBase: Pchar; Title: PChar; Parameters1: PChar; Parameters2: PChar; Parameters3: PChar; Parameters4: PChar; Parameters5: PChar; Parameters6: PChar; Parameters7: PChar; Parameters8: PChar; Parameters9: PChar; Parameters10: PChar; DataBaseStr: PChar): hwnd; stdcall;
+var
+  Tf: TMyFunc;
+  Tp: TFarProc;
+  Th: Thandle;
+begin
+  //静态加载
+  //newh:=getForm(Application,1,ADOConnection1,PChar('sa'),PChar('dsa'));
+
+  //动态加载
+  // showMessage(intTostr(application.Handle));
+  Th := LoadLibrary('TradeMarket.dll');
+  if Th > 0 then
+  begin
+    try
+      Tp := GetProcAddress(Th, 'GetDllForm');
+      if Tp <> nil then
+      begin
+        Tf := TMyFunc(Tp);
+        newh := Tf(Application, 0, strToint(edit1.text), 0, 0, PChar('ygcode'), PChar('ygname'), PChar('datebase'), PChar('title'), PChar(''), PChar(''), '', '', '', '', '', '', '', '', '');
+      end
+      else
+      begin
+        ShowMessage('打印执行错误');
+      end;
+    finally
+    // FreeLibrary();
+    end;
+  end
+  else
+  begin
+    ShowMessage('找不到' + Trim(DllName.Text));
+  end;
+
+end;
+
+procedure TForm1.ToolButton1Click(Sender: TObject);
+begin
+  close;
+end;
+
+procedure TForm1.FormResize(Sender: TObject);
+begin
+  sendmessage(newh, 1034, 1, 0);
+end;
+
+end.
+

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

@@ -0,0 +1,64 @@
+inherited Form1: TForm1
+  Caption = 'Form1'
+  ClientHeight = 299
+  ClientWidth = 635
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  ExplicitWidth = 651
+  ExplicitHeight = 338
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Button1: TButton [0]
+    Left = 32
+    Top = 16
+    Width = 75
+    Height = 25
+    Caption = #23458#25143
+    TabOrder = 0
+    OnClick = Button1Click
+  end
+  object Button2: TButton [1]
+    Left = 32
+    Top = 47
+    Width = 75
+    Height = 25
+    Caption = #26679#21697
+    TabOrder = 1
+    OnClick = Button2Click
+  end
+  object Button3: TButton [2]
+    Left = 32
+    Top = 78
+    Width = 75
+    Height = 25
+    Caption = #24037#24207#36873#25321
+    TabOrder = 2
+  end
+  object Button4: TButton [3]
+    Left = 32
+    Top = 118
+    Width = 75
+    Height = 25
+    Caption = #21592#24037#36873#25321
+    TabOrder = 3
+    OnClick = Button4Click
+  end
+  object Button5: TButton [4]
+    Left = 32
+    Top = 174
+    Width = 75
+    Height = 25
+    Caption = #26631#31614#25171#21360
+    TabOrder = 4
+    OnClick = Button5Click
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_InformationBase.ADOLink
+    Left = 345
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_InformationBase.ADOLink
+  end
+end

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

@@ -0,0 +1,106 @@
+unit Unit1;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
+  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, U_BaseList,
+  Data.DB, Data.Win.ADODB, Vcl.StdCtrls;
+
+type
+  TForm1 = class(TfrmBaseList)
+    Button1: TButton;
+    Button2: TButton;
+    Button3: TButton;
+    Button4: TButton;
+    Button5: TButton;
+    procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+    procedure Button4Click(Sender: TObject);
+    procedure Button5Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+uses
+  U_DataLink, U_CompanySel, U_ClothInfoSel, U_EmployeeSel, U_LabelPrint;
+{$R *.dfm}
+
+procedure TForm1.Button1Click(Sender: TObject);
+begin
+  try
+    frmCompanySel := TfrmCompanySel.Create(Application);
+    with frmCompanySel do
+    begin
+      if ShowModal = 1 then
+      begin
+//        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmCompanySel.Free;
+  end;
+
+end;
+
+procedure TForm1.Button2Click(Sender: TObject);
+begin
+
+  try
+    frmClothInfoSel := TfrmClothInfoSel.Create(Application);
+    with frmClothInfoSel do
+    begin
+      if ShowModal = 1 then
+      begin
+//        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmClothInfoSel.Free;
+  end;
+end;
+
+procedure TForm1.Button4Click(Sender: TObject);
+begin
+  try
+    frmEmployeeSel := TfrmEmployeeSel.Create(Application);
+    with frmEmployeeSel do
+    begin
+      if ShowModal = 1 then
+      begin
+//        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmEmployeeSel.Free;
+  end;
+
+end;
+
+procedure TForm1.Button5Click(Sender: TObject);
+begin
+
+  try
+    frmLabelPrint := TfrmLabelPrint.Create(Application);
+    with frmLabelPrint do
+    begin
+      if ShowModal = 1 then
+      begin
+//        Self.InitGrid();
+      end;
+    end;
+  finally
+    frmLabelPrint.Free;
+  end;
+
+end;
+
+end.
+

项目代码/RTBasicsV1/T05贸易门市管理/consvr.ini

@@ -0,0 +1,2 @@
+[SERVER]
+SERVER=192.168.88.254

项目代码/RTBasicsV1/T05贸易门市管理/testDll.cfg

@@ -0,0 +1,38 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST

项目代码/RTBasicsV1/T05贸易门市管理/testDll.dof

@@ -0,0 +1,136 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=D:\selfware_83398\selfware\马国钢开发代码\项目代码\self\坯布码单待检DDMD.dll)\testDll.exe
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=2052
+CodePage=936
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=

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

@@ -0,0 +1,14 @@
+program testDll;
+
+uses
+  Forms,
+  U_testdll in 'U_testdll.pas' {Form1};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TForm1, Form1);
+  Application.Run;
+end.
+

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

@@ -0,0 +1,184 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+    <PropertyGroup>
+        <ProjectGuid>{6ED24B72-E038-4A45-BA13-AC1AB432C410}</ProjectGuid>
+        <MainSource>testDll.dpr</MainSource>
+        <Base>True</Base>
+        <Config Condition="'$(Config)'==''">Debug</Config>
+        <TargetedPlatforms>38017</TargetedPlatforms>
+        <AppType>Application</AppType>
+        <FrameworkType>VCL</FrameworkType>
+        <ProjectVersion>19.2</ProjectVersion>
+        <Platform Condition="'$(Platform)'==''">Win32</Platform>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Base)'=='true') or '$(Base_Android64)'!=''">
+        <Base_Android64>true</Base_Android64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Base)'=='true') or '$(Base_iOSDevice64)'!=''">
+        <Base_iOSDevice64>true</Base_iOSDevice64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
+        <Base_Win32>true</Base_Win32>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
+        <Base_Win64>true</Base_Win64>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
+        <Cfg_1>true</Cfg_1>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
+        <Cfg_1_Win32>true</Cfg_1_Win32>
+        <CfgParent>Cfg_1</CfgParent>
+        <Cfg_1>true</Cfg_1>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
+        <Cfg_2>true</Cfg_2>
+        <CfgParent>Base</CfgParent>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Android64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android64)'!=''">
+        <Cfg_2_Android64>true</Cfg_2_Android64>
+        <CfgParent>Cfg_2</CfgParent>
+        <Cfg_2>true</Cfg_2>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='iOSDevice64' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSDevice64)'!=''">
+        <Cfg_2_iOSDevice64>true</Cfg_2_iOSDevice64>
+        <CfgParent>Cfg_2</CfgParent>
+        <Cfg_2>true</Cfg_2>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='OSX64' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX64)'!=''">
+        <Cfg_2_OSX64>true</Cfg_2_OSX64>
+        <CfgParent>Cfg_2</CfgParent>
+        <Cfg_2>true</Cfg_2>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
+        <Cfg_2_Win32>true</Cfg_2_Win32>
+        <CfgParent>Cfg_2</CfgParent>
+        <Cfg_2>true</Cfg_2>
+        <Base>true</Base>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base)'!=''">
+        <DCC_E>false</DCC_E>
+        <DCC_F>false</DCC_F>
+        <DCC_K>false</DCC_K>
+        <DCC_N>true</DCC_N>
+        <DCC_S>false</DCC_S>
+        <DCC_ImageBase>00400000</DCC_ImageBase>
+        <DCC_DebugInformation>1</DCC_DebugInformation>
+        <DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo>
+        <SanitizedProjectName>testDll</SanitizedProjectName>
+        <DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;Data.Win;$(DCC_Namespace)</DCC_Namespace>
+        <VerInfo_Locale>2052</VerInfo_Locale>
+        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Android64)'!=''">
+        <Android_LauncherIcon192>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_192x192.png</Android_LauncherIcon192>
+        <EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;com-google-android-gms.play-services-ads-base.17.2.0.dex.jar;com-google-android-gms.play-services-ads-identifier.16.0.0.dex.jar;com-google-android-gms.play-services-ads-lite.17.2.0.dex.jar;com-google-android-gms.play-services-ads.17.2.0.dex.jar;com-google-android-gms.play-services-analytics-impl.16.0.8.dex.jar;com-google-android-gms.play-services-analytics.16.0.8.dex.jar;com-google-android-gms.play-services-base.16.0.1.dex.jar;com-google-android-gms.play-services-basement.16.2.0.dex.jar;com-google-android-gms.play-services-gass.17.2.0.dex.jar;com-google-android-gms.play-services-identity.16.0.0.dex.jar;com-google-android-gms.play-services-maps.16.1.0.dex.jar;com-google-android-gms.play-services-measurement-base.16.4.0.dex.jar;com-google-android-gms.play-services-measurement-sdk-api.16.4.0.dex.jar;com-google-android-gms.play-services-stats.16.0.1.dex.jar;com-google-android-gms.play-services-tagmanager-v4-impl.16.0.8.dex.jar;com-google-android-gms.play-services-tasks.16.0.1.dex.jar;com-google-android-gms.play-services-wallet.16.0.1.dex.jar;com-google-firebase.firebase-analytics.16.4.0.dex.jar;com-google-firebase.firebase-common.16.1.0.dex.jar;com-google-firebase.firebase-iid-interop.16.0.1.dex.jar;com-google-firebase.firebase-iid.17.1.1.dex.jar;com-google-firebase.firebase-measurement-connector.17.0.1.dex.jar;com-google-firebase.firebase-messaging.17.5.0.dex.jar;fmx.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar</EnabledSysJars>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_iOSDevice64)'!=''">
+        <iOS_AppStore1024>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_1024x1024.png</iOS_AppStore1024>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win32)'!=''">
+        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
+        <BT_BuildType>Debug</BT_BuildType>
+        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
+        <VerInfo_Locale>1033</VerInfo_Locale>
+        <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
+        <Icon_MainIcon>testDll_Icon.ico</Icon_MainIcon>
+        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
+        <UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
+        <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Base_Win64)'!=''">
+        <Icon_MainIcon>testDll_Icon.ico</Icon_MainIcon>
+        <UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
+        <UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1)'!=''">
+        <DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
+        <DCC_DebugInformation>0</DCC_DebugInformation>
+        <DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
+        <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
+        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
+        <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2)'!=''">
+        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
+        <DCC_Optimize>false</DCC_Optimize>
+        <DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_Android64)'!=''">
+        <BT_BuildType>Debug</BT_BuildType>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_iOSDevice64)'!=''">
+        <BT_BuildType>Debug</BT_BuildType>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_OSX64)'!=''">
+        <BT_BuildType>Debug</BT_BuildType>
+    </PropertyGroup>
+    <PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
+        <AppEnableRuntimeThemes>true</AppEnableRuntimeThemes>
+        <AppDPIAwarenessMode>PerMonitorV2</AppDPIAwarenessMode>
+        <VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
+    </PropertyGroup>
+    <ItemGroup>
+        <DelphiCompile Include="$(MainSource)">
+            <MainSource>MainSource</MainSource>
+        </DelphiCompile>
+        <DCCReference Include="U_testdll.pas">
+            <Form>Form1</Form>
+        </DCCReference>
+        <BuildConfiguration Include="Debug">
+            <Key>Cfg_2</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Base">
+            <Key>Base</Key>
+        </BuildConfiguration>
+        <BuildConfiguration Include="Release">
+            <Key>Cfg_1</Key>
+            <CfgParent>Base</CfgParent>
+        </BuildConfiguration>
+    </ItemGroup>
+    <ProjectExtensions>
+        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
+        <Borland.ProjectType/>
+        <BorlandProject>
+            <Delphi.Personality>
+                <Source>
+                    <Source Name="MainSource">testDll.dpr</Source>
+                </Source>
+            </Delphi.Personality>
+            <Platforms>
+                <Platform value="Android64">True</Platform>
+                <Platform value="iOSDevice64">True</Platform>
+                <Platform value="Linux64">True</Platform>
+                <Platform value="OSX64">True</Platform>
+                <Platform value="Win32">True</Platform>
+                <Platform value="Win64">False</Platform>
+            </Platforms>
+        </BorlandProject>
+        <ProjectFileVersion>12</ProjectFileVersion>
+    </ProjectExtensions>
+    <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
+    <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
+</Project>

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

@@ -0,0 +1,2 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject/>

项目代码/RTBasicsV1/T05贸易门市管理/testDllDJ.cfg

@@ -0,0 +1,38 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O+
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-LN"c:\program files (x86)\borland\delphi7\Projects\Bpl"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST

项目代码/RTBasicsV1/T05贸易门市管理/testDllDJ.dof

@@ -0,0 +1,136 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=1
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=
+Packages=
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=D:\selfware_83398\selfware\马国钢开发代码\项目代码\self\长阳针织(CYZZ.dll)\testDll.exe
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Language]
+ActiveLang=
+ProjectLang=
+RootDir=
+[Version Info]
+IncludeVerInfo=0
+AutoIncBuild=0
+MajorVer=1
+MinorVer=0
+Release=0
+Build=0
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=2052
+CodePage=936
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.0
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=