~

T02贸易汇总仓库/TradeTotalClothStk.dpr

@@ -28,7 +28,7 @@ uses
   U_PurchaseContractSel in '..\T00óÒ×ͨÓô°Ìå\U_PurchaseContractSel.pas' {frmPurchaseContractSel},
   U_TradeClothOutInspList in 'U_TradeClothOutInspList.pas' {frmTradeClothOutInspList},
   U_PictureList in '..\A00ͨÓô°Ìå\U_PictureList.pas' {frmPictureList},
-  U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel},
+  U_MachineManageSel in '..\A00通用窗体\U_MachineManageSel.pas' {frmMachineManageSel},
   U_TradeGreyClothInEdit in 'U_TradeGreyClothInEdit.pas' {frmTradeGreyClothInEdit},
   U_BaseDataLink in '..\..\..\public10\design\U_BaseDataLink.pas' {BaseDataLink: TDataModule},
   U_TradeGreyClothInList in 'U_TradeGreyClothInList.pas' {frmTradeGreyClothInList},
@@ -78,7 +78,7 @@ uses
   U_TradeRRInPut in 'U_TradeRRInPut.pas' {frmTradeRRInPut},
   U_RPFun in '..\..\..\public10\ThreeFun\Fun\U_RPFun.pas',
   U_InputReceiptType in 'U_InputReceiptType.pas' {frmInputReceiptType},
-  U_MachineManageSel in '..\A00通用窗体\U_MachineManageSel.pas' {frmMachineManageSel};
+  U_CompanySel in '..\A00通用窗体\U_CompanySel.pas' {frmCompanySel};
 
 {$R *.res}
 

T02贸易汇总仓库/TradeTotalClothStk.dproj

@@ -196,8 +196,8 @@
             <Form>frmPictureList</Form>
             <FormType>dfm</FormType>
         </DCCReference>
-        <DCCReference Include="..\A00通用窗体\U_CompanySel.pas">
+        <DCCReference Include="..\A00通用窗体\U_MachineManageSel.pas">
-            <Form>frmCompanySel</Form>
+            <Form>frmMachineManageSel</Form>
             <FormType>dfm</FormType>
         </DCCReference>
         <DCCReference Include="U_TradeGreyClothInEdit.pas">
@@ -364,8 +364,8 @@
         <DCCReference Include="U_InputReceiptType.pas">
             <Form>frmInputReceiptType</Form>
         </DCCReference>
-        <DCCReference Include="..\A00通用窗体\U_MachineManageSel.pas">
+        <DCCReference Include="..\A00通用窗体\U_CompanySel.pas">
-            <Form>frmMachineManageSel</Form>
+            <Form>frmCompanySel</Form>
             <FormType>dfm</FormType>
         </DCCReference>
         <BuildConfiguration Include="Debug">

T02贸易汇总仓库/U_PlanScanInEdit.dfm

@@ -1,30 +1,30 @@
 inherited frmPlanScanInEdit: TfrmPlanScanInEdit
   Caption = #24211#23384#24211#20301#25195#25551
-  ClientHeight = 632
+  ClientHeight = 473
-  ClientWidth = 1350
+  ClientWidth = 1172
   Visible = True
-  ExplicitWidth = 1366
+  ExplicitWidth = 1188
-  ExplicitHeight = 671
+  ExplicitHeight = 512
   PixelsPerInch = 96
   TextHeight = 17
   object Panel1: TPanel [0]
     Left = 0
     Top = 0
-    Width = 1350
+    Width = 1172
     Height = 145
     Align = alTop
     BevelInner = bvRaised
     BevelOuter = bvLowered
     TabOrder = 2
+    ExplicitWidth = 1350
     object Panel3: TPanel
       Left = 2
       Top = 2
-      Width = 1346
+      Width = 1168
       Height = 141
       Align = alClient
       TabOrder = 0
-      ExplicitLeft = 3
+      ExplicitWidth = 1346
-      ExplicitTop = -1
       object Label6: TLabel
         Left = 13
         Top = 68
@@ -92,7 +92,7 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
         Tag = 1
         Left = 1
         Top = 1
-        Width = 1344
+        Width = 1166
         Height = 30
         AutoSize = True
         ButtonHeight = 30
@@ -110,6 +110,7 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
         ParentFont = False
         ShowCaptions = True
         TabOrder = 0
+        ExplicitWidth = 1344
         object ToolButton3: TToolButton
           Left = 0
           Top = 0
@@ -166,13 +167,14 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
         TabOrder = 1
         OnKeyPress = edtScanKeyPress
       end
-      object IOPosition: TBtnEditA
+      object wlCompany: TBtnEditA
+        Tag = 1
         Left = 535
         Top = 69
         Width = 121
-        Height = 30
+        Height = 26
         TabOrder = 2
-        OnBtnClick = IOPositionBtnClick
+        OnBtnClick = wlCompanyBtnClick
       end
       object InNo: TEdit
         Left = 1070
@@ -208,32 +210,44 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
           #36864#36135#20837#24211)
       end
       object carPlate: TBtnEditA
+        Tag = 1
         Left = 742
         Top = 69
         Width = 121
-        Height = 30
+        Height = 26
         TabOrder = 6
         OnBtnClick = carPlateBtnClick
       end
+      object Tqueren: TButton
+        Left = 896
+        Top = 69
+        Width = 75
+        Height = 25
+        Caption = #30830#23450#32465#23450
+        TabOrder = 7
+        OnClick = TquerenClick
+      end
     end
   end
   object Panel2: TPanel [1]
     Left = 0
     Top = 145
-    Width = 1350
+    Width = 1172
-    Height = 487
+    Height = 328
     Align = alClient
     Caption = 'Panel2'
     TabOrder = 3
+    ExplicitWidth = 1350
+    ExplicitHeight = 487
     object cxGrid3: TcxGrid
       Left = 1
       Top = 1
-      Width = 1348
+      Width = 1170
-      Height = 485
+      Height = 326
       Align = alClient
       TabOrder = 0
-      ExplicitLeft = 2
+      ExplicitWidth = 1348
-      ExplicitTop = -2
+      ExplicitHeight = 485
       object Tv3: TcxGridDBTableView
         Navigator.Buttons.CustomButtons = <>
         ScrollbarAnnotations.CustomAnnotations = <>
@@ -264,11 +278,49 @@ inherited frmPlanScanInEdit: TfrmPlanScanInEdit
         OptionsView.GroupByBox = False
         object cxGridDBColumn4: TcxGridDBColumn
           Caption = #20986#24211#21333
-          DataBinding.FieldName = 'PieceNo'
+          DataBinding.FieldName = 'BCIONO'
           DataBinding.IsNullValueType = True
+          FooterAlignmentHorz = taCenter
           HeaderAlignmentHorz = taCenter
+          HeaderGlyphAlignmentHorz = taCenter
           Options.Editing = False
-          Width = 207
+          Width = 90
+        end
+        object Tv3Column1: TcxGridDBColumn
+          Caption = #23458#25143
+          DataBinding.FieldName = 'ToCoName'
+          DataBinding.IsNullValueType = True
+          FooterAlignmentHorz = taCenter
+          HeaderAlignmentHorz = taCenter
+          HeaderGlyphAlignmentHorz = taCenter
+          Width = 90
+        end
+        object Tv3Column2: TcxGridDBColumn
+          Caption = #21697#21517
+          DataBinding.FieldName = 'C_Name'
+          DataBinding.IsNullValueType = True
+          FooterAlignmentHorz = taCenter
+          HeaderAlignmentHorz = taCenter
+          HeaderGlyphAlignmentHorz = taCenter
+          Width = 90
+        end
+        object Tv3Column3: TcxGridDBColumn
+          Caption = #21305#25968
+          DataBinding.FieldName = 'Pieceint'
+          DataBinding.IsNullValueType = True
+          FooterAlignmentHorz = taCenter
+          HeaderAlignmentHorz = taCenter
+          HeaderGlyphAlignmentHorz = taCenter
+          Width = 90
+        end
+        object Tv3Column4: TcxGridDBColumn
+          Caption = #25968#37327
+          DataBinding.FieldName = 'Qty'
+          DataBinding.IsNullValueType = True
+          FooterAlignmentHorz = taCenter
+          HeaderAlignmentHorz = taCenter
+          HeaderGlyphAlignmentHorz = taCenter
+          Width = 90
         end
       end
       object cxGridLevel1: TcxGridLevel

T02贸易汇总仓库/U_PlanScanInEdit.pas

@@ -61,7 +61,7 @@ type
     Label1: TLabel;
     ToolButton5: TToolButton;
     Label2: TLabel;
-    IOPosition: TBtnEditA;
+    wlCompany: TBtnEditA;
     Label5: TLabel;
     InNo: TEdit;
     Label4: TLabel;
@@ -69,6 +69,11 @@ type
     Label11: TLabel;
     CRType: TComboBox;
     carPlate: TBtnEditA;
+    Tv3Column1: TcxGridDBColumn;
+    Tv3Column2: TcxGridDBColumn;
+    Tv3Column3: TcxGridDBColumn;
+    Tv3Column4: TcxGridDBColumn;
+    Tqueren: TButton;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
@@ -78,11 +83,12 @@ type
     procedure ToolButton8Click(Sender: TObject);
     procedure edtScanKeyPress(Sender: TObject; var Key: Char);
     procedure ToolButton5Click(Sender: TObject);
-    procedure IOPositionBtnClick(Sender: TObject);
+    procedure wlCompanyBtnClick(Sender: TObject);
     procedure carPlateBtnClick(Sender: TObject);
+    procedure TquerenClick(Sender: TObject);
   private
     { Private declarations }
-    FScan, FSubIds: string;
+    FScan, FSubIds,FZCID: string;
     procedure PlayWav(MWav: string);
     procedure InitKC();
     procedure ScanKW();
@@ -111,20 +117,16 @@ end;
 procedure TfrmPlanScanInEdit.InitKC();
 begin
 
-  if IOPosition.Text = '' then
+  if carPlate.Text = '' then
     exit;
 
   with ADOQueryTemp do
   begin
     Close;
     sql.Clear;
-    sql.Add('select A.IOFlag,A.IONo,A.IOID,A.IOPosition,B.* from Trade_Cloth_IO A    ');
+    sql.Add('select A.* from Trade_Cloth_IO A    ');
-    sql.Add('inner join Trade_Cloth_Stock B on A.StkId=B.StkId and A.IOCycles=B.StkCycles   ');
+    sql.Add('where A.ioFlag=''出库''  ');
-    sql.Add('where A.IOFlag=''Èë¿â'' and B.StkExists=1 ');
+    sql.add('and VNO =' + QuotedStr(TRIm(FScan)));
-    if IOPosition.Text <> '' then
-      sql.add('and IOPosition =' + QuotedStr(TRIm(IOPosition.Text)))
-    else
-      sql.add('and 1=2');
     Open;
   end;
   SCreateCDS(ADOQueryTemp, CDS_3);
@@ -145,7 +147,7 @@ begin
       open;
     end;
 
-    IOPosition.Text := ADOQueryTemp.FieldByName('posno').AsString;
+    wlCompany.Text := ADOQueryTemp.FieldByName('posno').AsString;
 
     btnGetOutNo.Click;
   except
@@ -159,7 +161,7 @@ var
   MStkIds: string;
 begin
   try
-    if Trim(IOPosition.Text) = '' then
+    if Trim(wlCompany.Text) = '' then
       raise Exception.Create('库位不能为空!');
     if Trim(InNo.Text) = '' then
       raise Exception.Create('入库单号不能为空!');
@@ -178,7 +180,7 @@ begin
         Sql.Add(',@IOTime=' + Quotedstr(FormatDateTime('yyyy-MM-dd', CRTime.DateTime)));
         Sql.Add(',@IOType=' + Quotedstr(crtype.Text));
         Sql.Add(',@IONO=' + Quotedstr(InNo.Text));
-        Sql.Add(',@StkPosition=' + Quotedstr(IOPosition.Text));
+        Sql.Add(',@StkPosition=' + Quotedstr(wlCompany.Text));
         Sql.Add(',@FillId=' + Quotedstr(DCode));
         Sql.Add(',@Filler=' + Quotedstr(DName));
 //        ShowMessage(sql.Text);
@@ -284,7 +286,7 @@ begin
   end;  }
 end;
 
-procedure TfrmPlanScanInEdit.IOPositionBtnClick(Sender: TObject);
+procedure TfrmPlanScanInEdit.wlCompanyBtnClick(Sender: TObject);
 begin
   try
     frmZDYHelp := TfrmZDYHelp.Create(Application);
@@ -312,7 +314,7 @@ begin
     begin
       if ShowModal = 1 then
       begin
-        carPlate.text := Trim(CDS_HZ.fieldbyname('VNO').AsString);
+        carPlate.text := Trim(CDS_1.fieldbyname('VNO').AsString);
       end;
     end;
   finally
@@ -346,5 +348,117 @@ begin
   WriteCxGrid(self.caption + 'Tv3', Tv3, '成品仓库');
 end;
 
+procedure TfrmPlanScanInEdit.TquerenClick(Sender: TObject);
+var
+  MaxMid, MaxSid: string;
+begin
+  try
+    ADOQueryCmd.Connection.BeginTrans;
+    /////////////////              保存主表                /////////////////
+    if Trim(FZCID) = '' then
+    begin
+      if GetLSNo(ADOQueryCmd, MaxMid, 'ZC', 'Trade_Market_CarTransport', 4, 1) = False then
+        raise Exception.Create('取最大号失败！');
+    end
+    else
+    begin
+      MaxMid := Trim(FZCID);
+    end;
+    with ADOQueryCmd do
+    begin
+      Close;
+      sql.Clear;
+      SQL.Add('select * from Trade_Market_CarTransport where ZCID=''' + Trim(MaxMid) + '''');
+      Open;
+    end;
+    with ADOQueryCmd do
+    begin
+      if Trim(FZCID) = '' then
+      begin
+        Append;
+        FieldByName('FillID').Value := Trim(DCode);
+        FieldByName('Filler').Value := Trim(DName);
+      end
+      else
+      begin
+        Edit;
+        FieldByName('EditID').Value := Trim(DCode);
+        FieldByName('Editer').Value := Trim(DName);
+        FieldByName('EditTime').Value := SGetServerDateTime(ADOQuerytemp);
+      end;
+      RTSetsavedata(ADOQueryCmd, 'Trade_Market_CarTransport', panel3, 1);
+
+
+      FieldByName('DRMID').Value := Trim(MaxMid);
+
+      Post;
+    end;
+  /////////////////              保存主表                /////////////////
+  ///
+  /////////////////              保存子表                /////////////////
+    CDS_3.DisableControls;
+    with CDS_3 do
+    begin
+      First;
+      while not Eof do
+      begin
+        if Trim(CDS_3.fieldbyname('ZCMXID').AsString) = '' then
+        begin
+          if GetLSNo(ADOQueryCmd, MaxSid, 'DS', 'Trade_Market_CarTransportSub', 4, 1) = False then
+            raise Exception.Create('取子流水号失败！');
+        end
+        else
+        begin
+          MaxSid := Trim(CDS_3.fieldbyname('DRSID').AsString);
+        end;
+
+        with ADOQueryCmd do
+        begin
+          Close;
+          SQL.Clear;
+          sql.Add('select * from Trade_Market_CarTransportSub ');
+          sql.Add(' where DRMID=''' + Trim(MaxMid) + '''');
+          sql.Add(' and DRSID=''' + Trim(MaxSid) + '''');
+          Open;
+          if ADOQueryCmd.IsEmpty then
+          begin
+            Append;
+          end
+          else
+          begin
+            Edit;
+          end;
+          RTSetSaveDataCDS(ADOQueryCmd, Tv3, CDS_3, 'Trade_Market_CarTransportSub', 0);
+          FieldByName('DRMID').Value := Trim(MaxMid);
+          FieldByName('DRSID').Value := Trim(MaxSid);
+//          FieldByName('QtyUnit').Value := QtyUnit.Text;
+          FieldByName('MainId').Value := CDS_3.fieldbyname('MainId').Value;
+          FieldByName('SubId').Value := CDS_3.fieldbyname('SubId').Value;
+          FieldByName('ConMId').Value := CDS_3.fieldbyname('ConMId').Value;
+          FieldByName('ConSId').Value := CDS_3.fieldbyname('ConSId').Value;
+
+          FieldByName('ToConNo').Value := CDS_3.fieldbyname('ToConNo').Value;
+          FieldByName('ToConMId').Value := CDS_3.fieldbyname('ToConMId').Value;
+          FieldByName('ToConSId').Value := CDS_3.fieldbyname('ToConSId').Value;
+
+          Post;
+        end;
+        CDS_3.Edit;
+        CDS_3.FieldByName('DRSID').Value := Trim(MaxSid);
+        Next;
+      end;
+    end;
+    CDS_3.EnableControls;
+   /////////////////              保存子表                /////////////////
+    FZCID := Trim(MaxMid);
+    ADOQueryCmd.Connection.CommitTrans;
+//    Result := True;
+  except
+    ADOQueryCmd.Connection.RollbackTrans;
+    application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
+//    Result := False;
+  end;
+end;
+
 end.
 

T05贸易门市管理/U_GetDllForm.pas

@@ -16,7 +16,7 @@ implementation
 
 uses
   U_DataLink, U_iniParam, U_TradeMarketList, U_TradeDispatchedList,
-  U_TradeMarketList_JD, U_TradeMarketList_XY;
+  U_TradeMarketList_JD, U_TradeMarketList_XY,U_TradeMarketList_JDT;
 
        /////////////////////////////////////////////////////////////////
       //         功能说明:取Dll中得窗体                              //
@@ -166,7 +166,18 @@ begin
           mnewHandle := Handle;
         end;
       end;
-
+    113:  //´ó»õµ¥ 2
+      begin
+        with TfrmTradeMarketList_JDT.Create(Application.MainForm, Title, trim(Parameters1), trim(Parameters2), trim(Parameters3), trim(Parameters4), trim(Parameters5), trim(Parameters10), FormID, Title) 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),formId,title) do       //

T05贸易门市管理/U_TradeMarketList_JD.dfm

@@ -47,6 +47,19 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
       List = True
       ShowCaptions = True
       TabOrder = 0
+      object Label1: TLabel
+        Left = 0
+        Top = 0
+        Width = 76
+        Height = 30
+        Caption = #28201#23725#21439'W'
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clRed
+        Font.Height = -19
+        Font.Name = #24494#36719#38597#40657
+        Font.Style = []
+        ParentFont = False
+      end
     end
     object cxGrid1: TcxGrid
       Left = 1
@@ -141,11 +154,13 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
     end
     object cxGrid2: TcxGrid
       Left = 1
-      Top = 401
+      Top = 431
       Width = 782
-      Height = 232
+      Height = 202
       Align = alClient
       TabOrder = 2
+      ExplicitTop = 401
+      ExplicitHeight = 232
       object Tv2: TcxGridDBTableView
         Navigator.Buttons.CustomButtons = <>
         ScrollbarAnnotations.CustomAnnotations = <>
@@ -225,6 +240,34 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
         GridView = Tv2
       end
     end
+    object ToolBar4: TToolBar
+      Tag = 1
+      Left = 1
+      Top = 401
+      Width = 782
+      Height = 30
+      AutoSize = True
+      ButtonHeight = 30
+      ButtonWidth = 67
+      Caption = 'ToolBar1'
+      Images = DataLink_TradeMarket.cxImageList_bar
+      List = True
+      ShowCaptions = True
+      TabOrder = 3
+      object Label5: TLabel
+        Left = 0
+        Top = 0
+        Width = 71
+        Height = 30
+        Caption = #19996#22616#32447'D'
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clRed
+        Font.Height = -19
+        Font.Name = #24494#36719#38597#40657
+        Font.Style = []
+        ParentFont = False
+      end
+    end
   end
   object Panel2: TPanel [3]
     Left = 784
@@ -247,6 +290,31 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
       List = True
       ShowCaptions = True
       TabOrder = 0
+      object Label3: TLabel
+        Left = 0
+        Top = 0
+        Width = 68
+        Height = 30
+        Caption = #30707#31896#32447'S'
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clRed
+        Font.Height = -19
+        Font.Name = #24494#36719#38597#40657
+        Font.Style = []
+        ParentFont = False
+      end
+      object Label2: TLabel
+        Left = 68
+        Top = 0
+        Width = 6
+        Height = 30
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clRed
+        Font.Height = -19
+        Font.Name = #24494#36719#38597#40657
+        Font.Style = []
+        ParentFont = False
+      end
     end
     object cxGrid3: TcxGrid
       Left = 1
@@ -333,11 +401,13 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
     end
     object cxGrid4: TcxGrid
       Left = 1
-      Top = 395
+      Top = 425
       Width = 637
-      Height = 238
+      Height = 208
       Align = alClient
       TabOrder = 2
+      ExplicitTop = 395
+      ExplicitHeight = 238
       object Tv4: TcxGridDBTableView
         Navigator.Buttons.CustomButtons = <>
         ScrollbarAnnotations.CustomAnnotations = <>
@@ -414,6 +484,34 @@ inherited frmTradeMarketList_JD: TfrmTradeMarketList_JD
         GridView = Tv4
       end
     end
+    object ToolBar3: TToolBar
+      Tag = 1
+      Left = 1
+      Top = 395
+      Width = 637
+      Height = 30
+      AutoSize = True
+      ButtonHeight = 30
+      ButtonWidth = 67
+      Caption = 'ToolBar1'
+      Images = DataLink_TradeMarket.cxImageList_bar
+      List = True
+      ShowCaptions = True
+      TabOrder = 3
+      object Label4: TLabel
+        Left = 0
+        Top = 0
+        Width = 68
+        Height = 30
+        Caption = #19978#27915#26519'Y'
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clRed
+        Font.Height = -19
+        Font.Name = #24494#36719#38597#40657
+        Font.Style = []
+        ParentFont = False
+      end
+    end
   end
   inherited ADOQueryBaseCmd: TADOQuery
     Connection = DataLink_TradeMarket.ADOLink

T05贸易门市管理/U_TradeMarketList_JD.pas

@@ -91,6 +91,13 @@ type
     ADO_2: TADOQuery;
     ADO_3: TADOQuery;
     ADO_4: TADOQuery;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    ToolBar3: TToolBar;
+    Label4: TLabel;
+    ToolBar4: TToolBar;
+    Label5: TLabel;
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure FormShow(Sender: TObject);
   private

T05贸易门市管理/U_TradeMarketList_JDT.dfm

@@ -0,0 +1,681 @@
+inherited frmTradeMarketList_JDT: TfrmTradeMarketList_JDT
+  Left = 165
+  Top = 13
+  Caption = #22823#23631#26174#31034'2'
+  ClientHeight = 634
+  ClientWidth = 1423
+  Color = clBtnFace
+  Font.Height = -16
+  FormStyle = fsMDIChild
+  Position = poScreenCenter
+  Visible = True
+  ExplicitWidth = 1439
+  ExplicitHeight = 673
+  PixelsPerInch = 96
+  TextHeight = 21
+  inherited loadProcess: TPanel
+    Left = 720
+    Top = 354
+    ExplicitLeft = 720
+    ExplicitTop = 354
+  end
+  inherited cxProgressBar2: TcxProgressBar
+    Left = 720
+    Top = 296
+    ExplicitLeft = 720
+    ExplicitTop = 296
+    ExplicitHeight = 29
+  end
+  object Panel1: TPanel [2]
+    Left = 0
+    Top = 0
+    Width = 784
+    Height = 634
+    Align = alLeft
+    TabOrder = 2
+    object ToolBar1: TToolBar
+      Tag = 1
+      Left = 1
+      Top = 1
+      Width = 782
+      Height = 30
+      AutoSize = True
+      ButtonHeight = 30
+      ButtonWidth = 67
+      Caption = 'ToolBar1'
+      Images = DataLink_TradeMarket.cxImageList_bar
+      List = True
+      ShowCaptions = True
+      TabOrder = 0
+      object Label1: TLabel
+        Left = 0
+        Top = 0
+        Width = 69
+        Height = 30
+        Caption = #28504#37070#32447'P'
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clRed
+        Font.Height = -19
+        Font.Name = #24494#36719#38597#40657
+        Font.Style = []
+        ParentFont = False
+      end
+    end
+    object cxGrid1: TcxGrid
+      Left = 1
+      Top = 31
+      Width = 782
+      Height = 370
+      Align = alTop
+      TabOrder = 1
+      object Tv1: TcxGridDBTableView
+        Navigator.Buttons.CustomButtons = <>
+        ScrollbarAnnotations.CustomAnnotations = <>
+        DataController.DataSource = DataSource1
+        DataController.Filter.AutoDataSetFilter = True
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsBehavior.CellHints = True
+        OptionsCustomize.ColumnFiltering = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        OptionsView.IndicatorWidth = 30
+        object v1Column16: TcxGridDBColumn
+          Caption = #26159#21542#21152#24613
+          DataBinding.FieldName = 'Urgent'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxCheckBoxProperties'
+          Properties.ImmediatePost = True
+          Properties.NullStyle = nssUnchecked
+          HeaderAlignmentHorz = taCenter
+          Width = 77
+        end
+        object Tv1Column7: TcxGridDBColumn
+          Caption = #21333#25454#32534#21495
+          DataBinding.FieldName = 'TMMNo'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 77
+        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
+          Width = 77
+        end
+        object Tv1Column4: TcxGridDBColumn
+          Caption = #23458#25143
+          DataBinding.FieldName = 'CustName'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 77
+        end
+        object Tv1Column8: TcxGridDBColumn
+          Caption = #37197#36135#20154
+          DataBinding.FieldName = 'C_Code'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 77
+        end
+        object Tv1Column6: TcxGridDBColumn
+          Caption = #21046#21333#20154
+          DataBinding.FieldName = 'FILLER'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 77
+        end
+        object Tv1Column1: TcxGridDBColumn
+          Caption = #22791#27880
+          DataBinding.FieldName = 'OrdNote'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 77
+        end
+      end
+      object cxGrid1Level1: TcxGridLevel
+        GridView = Tv1
+      end
+    end
+    object cxGrid2: TcxGrid
+      Left = 1
+      Top = 431
+      Width = 782
+      Height = 202
+      Align = alClient
+      TabOrder = 2
+      ExplicitTop = 401
+      ExplicitHeight = 232
+      object Tv2: TcxGridDBTableView
+        Navigator.Buttons.CustomButtons = <>
+        ScrollbarAnnotations.CustomAnnotations = <>
+        DataController.DataSource = DataSource2
+        DataController.Filter.AutoDataSetFilter = True
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsBehavior.CellHints = True
+        OptionsCustomize.ColumnFiltering = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        OptionsView.IndicatorWidth = 30
+        object Tv2Column1: TcxGridDBColumn
+          Caption = #26159#21542#21152#24613
+          DataBinding.FieldName = 'Urgent'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxCheckBoxProperties'
+          Properties.NullStyle = nssUnchecked
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object Tv2Column2: TcxGridDBColumn
+          Caption = #21333#25454#32534#21495
+          DataBinding.FieldName = 'TMMNo'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object Tv2Column3: TcxGridDBColumn
+          Caption = #21046#21333#26085#26399
+          DataBinding.FieldName = 'TMMDate'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxDateEditProperties'
+          Properties.ShowTime = False
+          HeaderAlignmentHorz = taCenter
+          Options.Editing = False
+          Width = 80
+        end
+        object Tv2Column4: TcxGridDBColumn
+          Caption = #23458#25143
+          DataBinding.FieldName = 'CustName'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object Tv2Column5: TcxGridDBColumn
+          Caption = #37197#36135#20154
+          DataBinding.FieldName = 'C_Code'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object Tv2Column6: TcxGridDBColumn
+          Caption = #21046#21333#20154
+          DataBinding.FieldName = 'FILLER'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object Tv2Column7: TcxGridDBColumn
+          Caption = #22791#27880
+          DataBinding.FieldName = 'OrdNote'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+      end
+      object cxGridLevel1: TcxGridLevel
+        GridView = Tv2
+      end
+    end
+    object ToolBar4: TToolBar
+      Tag = 1
+      Left = 1
+      Top = 401
+      Width = 782
+      Height = 30
+      AutoSize = True
+      ButtonHeight = 30
+      ButtonWidth = 67
+      Caption = 'ToolBar1'
+      Images = DataLink_TradeMarket.cxImageList_bar
+      List = True
+      ShowCaptions = True
+      TabOrder = 3
+      object Label5: TLabel
+        Left = 0
+        Top = 0
+        Width = 89
+        Height = 30
+        Caption = #30707#21050#22836#32447'C'
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clRed
+        Font.Height = -19
+        Font.Name = #24494#36719#38597#40657
+        Font.Style = []
+        ParentFont = False
+      end
+    end
+  end
+  object Panel2: TPanel [3]
+    Left = 784
+    Top = 0
+    Width = 639
+    Height = 634
+    Align = alClient
+    TabOrder = 3
+    object ToolBar2: TToolBar
+      Tag = 1
+      Left = 1
+      Top = 1
+      Width = 637
+      Height = 30
+      AutoSize = True
+      ButtonHeight = 30
+      ButtonWidth = 67
+      Caption = 'ToolBar1'
+      Images = DataLink_TradeMarket.cxImageList_bar
+      List = True
+      ShowCaptions = True
+      TabOrder = 0
+      object Label3: TLabel
+        Left = 0
+        Top = 0
+        Width = 76
+        Height = 30
+        Caption = #29287#23679#32447'M'
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clRed
+        Font.Height = -19
+        Font.Name = #24494#36719#38597#40657
+        Font.Style = []
+        ParentFont = False
+      end
+      object Label2: TLabel
+        Left = 76
+        Top = 0
+        Width = 6
+        Height = 30
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clRed
+        Font.Height = -19
+        Font.Name = #24494#36719#38597#40657
+        Font.Style = []
+        ParentFont = False
+      end
+    end
+    object cxGrid3: TcxGrid
+      Left = 1
+      Top = 31
+      Width = 637
+      Height = 364
+      Align = alTop
+      TabOrder = 1
+      object Tv3: TcxGridDBTableView
+        Navigator.Buttons.CustomButtons = <>
+        ScrollbarAnnotations.CustomAnnotations = <>
+        DataController.DataSource = DataSource3
+        DataController.Filter.AutoDataSetFilter = True
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsBehavior.CellHints = True
+        OptionsCustomize.ColumnFiltering = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        OptionsView.IndicatorWidth = 30
+        object Tv3Column1: TcxGridDBColumn
+          Caption = #26159#21542#21152#24613
+          DataBinding.FieldName = 'Urgent'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxCheckBoxProperties'
+          Properties.NullStyle = nssUnchecked
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object Tv3Column2: TcxGridDBColumn
+          Caption = #21333#25454#32534#21495
+          DataBinding.FieldName = 'TMMNo'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object Tv3Column3: TcxGridDBColumn
+          Caption = #21046#21333#26085#26399
+          DataBinding.FieldName = 'TMMDate'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxDateEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object Tv3Column4: TcxGridDBColumn
+          Caption = #23458#25143
+          DataBinding.FieldName = 'CustName'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object Tv3Column5: TcxGridDBColumn
+          Caption = #37197#36135#20154
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object Tv3Column6: TcxGridDBColumn
+          Caption = #21046#21333#20154
+          DataBinding.FieldName = 'FILLER'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object Tv3Column7: TcxGridDBColumn
+          Caption = #22791#27880
+          DataBinding.FieldName = 'OrdNote'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+      end
+      object cxGridLevel2: TcxGridLevel
+        GridView = Tv3
+      end
+    end
+    object cxGrid4: TcxGrid
+      Left = 1
+      Top = 425
+      Width = 637
+      Height = 208
+      Align = alClient
+      TabOrder = 2
+      ExplicitTop = 395
+      ExplicitHeight = 238
+      object Tv4: TcxGridDBTableView
+        Navigator.Buttons.CustomButtons = <>
+        ScrollbarAnnotations.CustomAnnotations = <>
+        DataController.DataSource = DataSource4
+        DataController.Filter.AutoDataSetFilter = True
+        DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
+        DataController.Summary.DefaultGroupSummaryItems = <>
+        DataController.Summary.FooterSummaryItems = <
+          item
+            Kind = skSum
+          end
+          item
+            Kind = skSum
+          end>
+        DataController.Summary.SummaryGroups = <>
+        OptionsBehavior.CellHints = True
+        OptionsCustomize.ColumnFiltering = False
+        OptionsView.Footer = True
+        OptionsView.GroupByBox = False
+        OptionsView.IndicatorWidth = 30
+        object Tv4Column1: TcxGridDBColumn
+          Caption = #26159#21542#21152#24613
+          DataBinding.FieldName = 'Urgent'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxCheckBoxProperties'
+          Properties.NullStyle = nssUnchecked
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object Tv4Column2: TcxGridDBColumn
+          Caption = #21333#25454#32534#21495
+          DataBinding.FieldName = 'TMMNo'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object Tv4Column3: TcxGridDBColumn
+          Caption = #21046#21333#26085#26399
+          DataBinding.FieldName = 'TMMDate'
+          DataBinding.IsNullValueType = True
+          PropertiesClassName = 'TcxDateEditProperties'
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object Tv4Column4: TcxGridDBColumn
+          Caption = #23458#25143
+          DataBinding.FieldName = 'CustName'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object Tv4Column5: TcxGridDBColumn
+          Caption = #37197#36135#20154
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object Tv4Column6: TcxGridDBColumn
+          Caption = #21046#21333#20154
+          DataBinding.FieldName = 'FILLER'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+        object Tv4Column7: TcxGridDBColumn
+          Caption = #22791#27880
+          DataBinding.FieldName = 'OrdNote'
+          DataBinding.IsNullValueType = True
+          HeaderAlignmentHorz = taCenter
+          Width = 80
+        end
+      end
+      object cxGridLevel3: TcxGridLevel
+        GridView = Tv4
+      end
+    end
+    object ToolBar3: TToolBar
+      Tag = 1
+      Left = 1
+      Top = 395
+      Width = 637
+      Height = 30
+      AutoSize = True
+      ButtonHeight = 30
+      ButtonWidth = 67
+      Caption = 'ToolBar1'
+      Images = DataLink_TradeMarket.cxImageList_bar
+      List = True
+      ShowCaptions = True
+      TabOrder = 3
+      object Label4: TLabel
+        Left = 0
+        Top = 0
+        Width = 38
+        Height = 30
+        Caption = #26032#20313
+        Font.Charset = GB2312_CHARSET
+        Font.Color = clRed
+        Font.Height = -19
+        Font.Name = #24494#36719#38597#40657
+        Font.Style = []
+        ParentFont = False
+      end
+    end
+  end
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Left = 255
+    Top = 314
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Left = 37
+    Top = 280
+  end
+  object cxgrdpmn1: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 220
+    Top = 284
+  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 = 292
+    Top = 128
+  end
+  object ADOQueryTemp: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 320
+    Top = 224
+  end
+  object DataSource1: TDataSource
+    DataSet = CDS_1
+    Left = 468
+    Top = 112
+  end
+  object Order_Main: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 156
+    Top = 144
+  end
+  object DataSource2: TDataSource
+    DataSet = CDS_2
+    Left = 152
+    Top = 476
+  end
+  object ADOQueryImage: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    EnableBCD = False
+    Parameters = <>
+    Left = 316
+    Top = 283
+  end
+  object DSImage: TDataSource
+    DataSet = ADOQueryImage
+    Left = 256
+    Top = 192
+  end
+  object IdFTP1: TIdFTP
+    ConnectTimeout = 0
+    NATKeepAlive.UseKeepAlive = False
+    NATKeepAlive.IdleTimeMS = 0
+    NATKeepAlive.IntervalMS = 0
+    ProxySettings.ProxyType = fpcmNone
+    ProxySettings.Port = 0
+    ReadTimeout = 0
+    Left = 36
+    Top = 170
+  end
+  object PopupMenu2: TPopupMenu
+    Left = 532
+    Top = 636
+    object N3: TMenuItem
+      Caption = #20840#36873
+    end
+    object N4: TMenuItem
+      Caption = #20840#24323
+    end
+    object N2: TMenuItem
+      Caption = #22797#21046
+    end
+  end
+  object cxgrdpmn2: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 660
+    Top = 636
+  end
+  object CDS_WXTS: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 252
+    Top = 240
+  end
+  object GPM_3: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 188
+    Top = 236
+  end
+  object CDS_1: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 524
+    Top = 96
+  end
+  object DataSource3: TDataSource
+    DataSet = CDS_3
+    Left = 932
+    Top = 176
+  end
+  object CDS_2: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 228
+    Top = 464
+  end
+  object DataSource4: TDataSource
+    DataSet = CDS_4
+    Left = 940
+    Top = 472
+  end
+  object CDS_4: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 996
+    Top = 464
+  end
+  object CDS_3: TClientDataSet
+    Aggregates = <>
+    Params = <>
+    Left = 1012
+    Top = 216
+  end
+  object ADO_1: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 452
+    Top = 176
+  end
+  object ADO_2: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 308
+    Top = 464
+  end
+  object ADO_3: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 884
+    Top = 120
+  end
+  object ADO_4: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    LockType = ltReadOnly
+    Parameters = <>
+    Left = 860
+    Top = 464
+  end
+end

T05贸易门市管理/U_TradeMarketList_JDT.pas

@@ -0,0 +1,229 @@
+unit U_TradeMarketList_JDT;
+
+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,
+  dxDateRanges, IdExplicitTLSClientServerBase, U_BaseList, Vcl.Clipbrd,
+  dxScrollbarAnnotations, cxProgressBar, FrameDateSel, dxSkinsCore,
+  dxSkinsDefaultPainters;
+
+type
+  TfrmTradeMarketList_JDT = class(TfrmBaseList)
+    cxgrdpmn1: TcxGridPopupMenu;
+    ADOQueryCmd: TADOQuery;
+    ADOQueryMain: TADOQuery;
+    ADOQueryTemp: TADOQuery;
+    DataSource1: TDataSource;
+    Order_Main: TClientDataSet;
+    DataSource2: TDataSource;
+    ADOQueryImage: TADOQuery;
+    DSImage: TDataSource;
+    IdFTP1: TIdFTP;
+    PopupMenu2: TPopupMenu;
+    N3: TMenuItem;
+    N4: TMenuItem;
+    cxgrdpmn2: TcxGridPopupMenu;
+    CDS_WXTS: TClientDataSet;
+    N2: TMenuItem;
+    GPM_3: TcxGridPopupMenu;
+    Panel1: TPanel;
+    ToolBar1: TToolBar;
+    cxGrid1: TcxGrid;
+    Tv1: TcxGridDBTableView;
+    v1Column16: TcxGridDBColumn;
+    Tv1Column7: TcxGridDBColumn;
+    v1OrdDate: TcxGridDBColumn;
+    Tv1Column4: TcxGridDBColumn;
+    Tv1Column6: TcxGridDBColumn;
+    Tv1Column1: TcxGridDBColumn;
+    Tv1Column8: TcxGridDBColumn;
+    cxGrid1Level1: TcxGridLevel;
+    cxGrid2: TcxGrid;
+    Tv2: TcxGridDBTableView;
+    cxGridLevel1: TcxGridLevel;
+    Panel2: TPanel;
+    ToolBar2: TToolBar;
+    cxGrid3: TcxGrid;
+    Tv3: TcxGridDBTableView;
+    cxGridLevel2: TcxGridLevel;
+    cxGrid4: TcxGrid;
+    Tv4: TcxGridDBTableView;
+    cxGridLevel3: TcxGridLevel;
+    CDS_1: TClientDataSet;
+    DataSource3: TDataSource;
+    CDS_2: TClientDataSet;
+    DataSource4: TDataSource;
+    CDS_4: TClientDataSet;
+    CDS_3: TClientDataSet;
+    Tv2Column1: TcxGridDBColumn;
+    Tv2Column2: TcxGridDBColumn;
+    Tv2Column3: TcxGridDBColumn;
+    Tv2Column4: TcxGridDBColumn;
+    Tv2Column5: TcxGridDBColumn;
+    Tv2Column6: TcxGridDBColumn;
+    Tv2Column7: TcxGridDBColumn;
+    Tv3Column1: TcxGridDBColumn;
+    Tv3Column2: TcxGridDBColumn;
+    Tv3Column3: TcxGridDBColumn;
+    Tv3Column4: TcxGridDBColumn;
+    Tv3Column5: TcxGridDBColumn;
+    Tv3Column6: TcxGridDBColumn;
+    Tv4Column1: TcxGridDBColumn;
+    Tv4Column2: TcxGridDBColumn;
+    Tv4Column3: TcxGridDBColumn;
+    Tv4Column4: TcxGridDBColumn;
+    Tv4Column5: TcxGridDBColumn;
+    Tv4Column6: TcxGridDBColumn;
+    Tv4Column7: TcxGridDBColumn;
+    Tv3Column7: TcxGridDBColumn;
+    ADO_1: TADOQuery;
+    ADO_2: TADOQuery;
+    ADO_3: TADOQuery;
+    ADO_4: TADOQuery;
+    Label1: TLabel;
+    Label2: TLabel;
+    Label3: TLabel;
+    ToolBar3: TToolBar;
+    Label4: TLabel;
+    ToolBar4: TToolBar;
+    Label5: TLabel;
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure FormShow(Sender: TObject);
+  private
+    DQdate: TDateTime;
+    procedure InitGrid();
+    procedure InitGrid1();
+    procedure InitGrid2();
+    procedure InitGrid3();
+    procedure InitGrid4();
+//    procedure InitForm();
+
+    { Private declarations }
+  public
+    canshu1, canshu2, canshu4, FOrdType: string;
+
+    { Public declarations }
+  end;
+
+var
+  frmTradeMarketList_JDT: TfrmTradeMarketList_JDT;
+
+implementation
+
+uses
+  U_DataLink, U_RTFun, U_ZDYHelp, U_LabelPrint, U_AttachmentUpload,
+  U_TradeMarketInPut;
+
+{$R *.dfm}
+
+procedure TfrmTradeMarketList_JDT.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+  inherited;
+  inherited;
+  Action := caFree;
+end;
+
+procedure TfrmTradeMarketList_JDT.FormShow(Sender: TObject);
+begin
+  inherited;
+  InitGrid1();
+  InitGrid2();
+  InitGrid3();
+  InitGrid4();
+
+//  InitForm();
+end;
+
+procedure TfrmTradeMarketList_JDT.InitGrid();
+begin
+  with ADO_1 do
+  begin
+    Close;
+    sql.clear;
+    sql.add('select  cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as  Urgent,*  from  Trade_Market_Main A	inner join Trade_Market_Sub B on B.TMMId=A.TMMId  ');
+    sql.add('where 1=1');
+    Open;
+  end;
+  SCreateCDS(ADO_1, CDS_1);
+  SInitCDSData(ADO_1, CDS_1);
+  SCreateCDS(ADO_1, CDS_2);
+  SInitCDSData(ADO_1, CDS_2);
+  SCreateCDS(ADO_1, CDS_3);
+  SInitCDSData(ADO_1, CDS_3);
+  SCreateCDS(ADO_1, CDS_4);
+  SInitCDSData(ADO_1, CDS_4);
+end;
+
+procedure TfrmTradeMarketList_JDT.InitGrid1();
+begin
+  with ADO_1 do
+  begin
+    Close;
+    sql.clear;
+    sql.add('select  cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as  Urgent,*  from  Trade_Market_Main A	inner join Trade_Market_Sub B on B.TMMId=A.TMMId  ');
+    sql.add('where 1=1 ');
+    sql.add('and AddressArea=''潘郎线P'' ');
+    Open;
+  end;
+  SCreateCDS(ADO_1, CDS_1);
+  SInitCDSData(ADO_1, CDS_1);
+end;
+
+procedure TfrmTradeMarketList_JDT.InitGrid2();
+begin
+  with ADO_2 do
+  begin
+    Close;
+    sql.clear;
+    sql.add('select  cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as  Urgent,*  from  Trade_Market_Main A	inner join Trade_Market_Sub B on B.TMMId=A.TMMId  ');
+    sql.add('where 1=1');
+    sql.add('and AddressArea=''石刺头线C'' ');
+    Open;
+  end;
+  SCreateCDS(ADO_2, CDS_2);
+  SInitCDSData(ADO_2, CDS_2);
+end;
+
+procedure TfrmTradeMarketList_JDT.InitGrid3();
+begin
+  with ADO_3 do
+  begin
+    Close;
+    sql.clear;
+    sql.add('select cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as  Urgent,*  from  Trade_Market_Main A	inner join Trade_Market_Sub B on B.TMMId=A.TMMId  ');
+    sql.add('where 1=1');
+    sql.add('and AddressArea=''牧屿线M'' ');
+    Open;
+  end;
+  SCreateCDS(ADO_3, CDS_3);
+  SInitCDSData(ADO_3, CDS_3);
+end;
+
+procedure TfrmTradeMarketList_JDT.InitGrid4();
+begin
+  with ADO_4 do
+  begin
+    Close;
+    sql.clear;
+    sql.add('select  cast((case when isnull(Urgent,'''')<>'''' then 0 else 1 end )as int) as  Urgent,*  from  Trade_Market_Main A	inner join Trade_Market_Sub B on B.TMMId=A.TMMId  ');
+    sql.add('where 1=1');
+    sql.add('and AddressArea=''新余'' ');
+    Open;
+  end;
+  SCreateCDS(ADO_4, CDS_4);
+  SInitCDSData(ADO_4, CDS_4);
+end;
+
+end.
+