新增门市剪样

T05贸易门市管理/U_GetDllForm.pas

@@ -15,7 +15,7 @@ function GetsysParam(muserId: pchar; fparam1: pchar): Boolean;
 implementation
 
 uses
-  U_DataLink, U_iniParam, U_TradeMarketList, U_TradeDispatchedList,
+  U_DataLink, U_iniParam, U_TradeMarketList, U_TradeDispatchedList,U_TradeSampletList,
   U_TradeMarketList_JD, U_TradeMarketList_XY,U_TradeMarketList_JDT;
 
        /////////////////////////////////////////////////////////////////
@@ -178,18 +178,18 @@ begin
           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       //
-//        begin
-//          fFormID := FormID;
-//          FOrdType := '¼ôÑùµ¥';
-//          FormStyle := mstyle;
-//          WindowState := mstate;
-//          BorderStyle := mborderstyle;
-//          mnewHandle := Handle;
-//        end;
-//      end;
+    121:  //¼ôÑùµ¥
+      begin
+        with TfrmTradeSampleList.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;
 //
 //    121:  //Åä»õµ¥
 //      begin

T05贸易门市管理/U_TradeMarketList.dfm

@@ -21,7 +21,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
     Height = 30
     AutoSize = True
     ButtonHeight = 30
-    ButtonWidth = 107
+    ButtonWidth = 131
     Caption = 'ToolBar1'
     Images = DataLink_TradeMarket.cxImageList_bar
     List = True
@@ -36,7 +36,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TBRafreshClick
     end
     object TBAdd: TToolButton
-      Left = 63
+      Left = 71
       Top = 0
       AutoSize = True
       Caption = #26032#22686
@@ -44,7 +44,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TBAddClick
     end
     object btnCopy: TToolButton
-      Left = 126
+      Left = 142
       Top = 0
       AutoSize = True
       Caption = #22797#21046
@@ -52,7 +52,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = btnCopyClick
     end
     object TBEdit: TToolButton
-      Left = 189
+      Left = 213
       Top = 0
       AutoSize = True
       Caption = #20462#25913
@@ -60,7 +60,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TBEditClick
     end
     object TBDel: TToolButton
-      Left = 252
+      Left = 284
       Top = 0
       AutoSize = True
       Caption = #21024#38500
@@ -68,7 +68,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TBDelClick
     end
     object TBPrint: TToolButton
-      Left = 315
+      Left = 355
       Top = 0
       AutoSize = True
       Caption = #25171#21360
@@ -76,7 +76,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TBPrintClick
     end
     object TBCK: TToolButton
-      Left = 378
+      Left = 426
       Top = 0
       AutoSize = True
       Caption = #26597#30475
@@ -84,7 +84,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TBCKClick
     end
     object ToolButton4: TToolButton
-      Left = 441
+      Left = 497
       Top = 0
       AutoSize = True
       Caption = #38468#20214
@@ -92,7 +92,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = ToolButton4Click
     end
     object TBTJ: TToolButton
-      Left = 504
+      Left = 568
       Top = 0
       AutoSize = True
       Caption = #37197#36135#23436#25104
@@ -100,7 +100,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TBTJClick
     end
     object TBTJCX: TToolButton
-      Left = 591
+      Left = 671
       Top = 0
       AutoSize = True
       Caption = #25764#38144#37197#36135#23436#25104
@@ -108,7 +108,7 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TBTJCXClick
     end
     object TWC: TToolButton
-      Left = 702
+      Left = 806
       Top = 0
       AutoSize = True
       Caption = #24050#35013#36710
@@ -116,39 +116,15 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TWCClick
     end
     object TNowc: TToolButton
-      Left = 777
+      Left = 893
       Top = 0
       AutoSize = True
       Caption = #25764#38144#35013#36710
       ImageIndex = 11
       OnClick = TNowcClick
     end
-    object ToolButton2: TToolButton
-      Left = 864
-      Top = 0
-      AutoSize = True
-      Caption = #20445#23384#26684#24335
-      ImageIndex = 16
-      OnClick = ToolButton2Click
-    end
-    object ToolButton1: TToolButton
-      Left = 951
-      Top = 0
-      AutoSize = True
-      Caption = #23548#20986
-      ImageIndex = 28
-      OnClick = ToolButton1Click
-    end
-    object TBClose: TToolButton
-      Left = 1014
-      Top = 0
-      AutoSize = True
-      Caption = #20851#38381
-      ImageIndex = 7
-      OnClick = TBCloseClick
-    end
     object TBZF: TToolButton
-      Left = 1077
+      Left = 996
       Top = 0
       AutoSize = True
       Caption = #20316#24223
@@ -156,13 +132,37 @@ inherited frmTradeMarketList: TfrmTradeMarketList
       OnClick = TBZFClick
     end
     object TBNOZF: TToolButton
-      Left = 1140
+      Left = 1067
       Top = 0
       AutoSize = True
       Caption = #25764#38144#20316#24223
       ImageIndex = 11
       OnClick = TBNOZFClick
     end
+    object ToolButton2: TToolButton
+      Left = 1170
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+      OnClick = ToolButton2Click
+    end
+    object ToolButton1: TToolButton
+      Left = 1273
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 28
+      OnClick = ToolButton1Click
+    end
+    object TBClose: TToolButton
+      Left = 1344
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
   end
   object Panel1: TPanel [1]
     Left = 0

T05贸易门市管理/U_TradeSampletList.dfm

@@ -0,0 +1,691 @@
+inherited frmTradeSampleList: TfrmTradeSampleList
+  Left = 165
+  Top = 13
+  Caption = #38376#24215#21098#26679
+  ClientHeight = 594
+  ClientWidth = 1924
+  Color = clBtnFace
+  Font.Height = -16
+  FormStyle = fsMDIChild
+  Position = poScreenCenter
+  Visible = True
+  ExplicitWidth = 1940
+  ExplicitHeight = 633
+  PixelsPerInch = 96
+  TextHeight = 21
+  object ToolBar1: TToolBar [0]
+    Tag = 1
+    Left = 0
+    Top = 0
+    Width = 1924
+    Height = 30
+    AutoSize = True
+    ButtonHeight = 30
+    ButtonWidth = 131
+    Caption = 'ToolBar1'
+    Images = DataLink_TradeMarket.cxImageList_bar
+    List = True
+    ShowCaptions = True
+    TabOrder = 4
+    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
+      Visible = False
+      OnClick = TBAddClick
+    end
+    object btnCopy: TToolButton
+      Left = 142
+      Top = 0
+      AutoSize = True
+      Caption = #22797#21046
+      ImageIndex = 13
+      Visible = False
+      OnClick = btnCopyClick
+    end
+    object TBEdit: TToolButton
+      Left = 213
+      Top = 0
+      AutoSize = True
+      Caption = #20462#25913
+      ImageIndex = 3
+      Visible = False
+      OnClick = TBEditClick
+    end
+    object TBDel: TToolButton
+      Left = 284
+      Top = 0
+      AutoSize = True
+      Caption = #21024#38500
+      ImageIndex = 5
+      Visible = False
+      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
+      Visible = False
+      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 = #37197#36135#23436#25104
+      ImageIndex = 12
+      Visible = False
+      OnClick = TBTJClick
+    end
+    object TBTJCX: TToolButton
+      Left = 671
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#37197#36135#23436#25104
+      ImageIndex = 11
+      Visible = False
+      OnClick = TBTJCXClick
+    end
+    object TWC: TToolButton
+      Left = 806
+      Top = 0
+      AutoSize = True
+      Caption = #24050#35013#36710
+      ImageIndex = 12
+      Visible = False
+      OnClick = TWCClick
+    end
+    object TNowc: TToolButton
+      Left = 893
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#35013#36710
+      ImageIndex = 11
+      Visible = False
+      OnClick = TNowcClick
+    end
+    object ToolButton2: TToolButton
+      Left = 996
+      Top = 0
+      AutoSize = True
+      Caption = #20445#23384#26684#24335
+      ImageIndex = 16
+      OnClick = ToolButton2Click
+    end
+    object ToolButton1: TToolButton
+      Left = 1099
+      Top = 0
+      AutoSize = True
+      Caption = #23548#20986
+      ImageIndex = 28
+      OnClick = ToolButton1Click
+    end
+    object TBClose: TToolButton
+      Left = 1170
+      Top = 0
+      AutoSize = True
+      Caption = #20851#38381
+      ImageIndex = 7
+      OnClick = TBCloseClick
+    end
+    object TBZF: TToolButton
+      Left = 1241
+      Top = 0
+      AutoSize = True
+      Caption = #20316#24223
+      ImageIndex = 31
+      Visible = False
+      OnClick = TBZFClick
+    end
+    object TBNOZF: TToolButton
+      Left = 1312
+      Top = 0
+      AutoSize = True
+      Caption = #25764#38144#20316#24223
+      ImageIndex = 11
+      Visible = False
+      OnClick = TBNOZFClick
+    end
+  end
+  object Panel1: TPanel [1]
+    Left = 0
+    Top = 30
+    Width = 1924
+    Height = 91
+    Align = alTop
+    BevelInner = bvRaised
+    BevelOuter = bvLowered
+    ParentBackground = False
+    TabOrder = 5
+    object Label3: TLabel
+      Left = 24
+      Top = 51
+      Width = 64
+      Height = 21
+      Caption = #21333#25454#32534#21495
+    end
+    object Label1: TLabel
+      Left = 408
+      Top = 51
+      Width = 32
+      Height = 21
+      Caption = #23458#25143
+    end
+    object Label2: TLabel
+      Left = 216
+      Top = 51
+      Width = 64
+      Height = 21
+      Caption = #33394#24067#21517#31216
+    end
+    object Label4: TLabel
+      Left = 568
+      Top = 51
+      Width = 48
+      Height = 21
+      Caption = #21512#21516#21495
+    end
+    object TMMNo: TcxTextEdit
+      Tag = 2
+      Left = 92
+      Top = 47
+      TabOrder = 0
+      OnKeyPress = TMMNoKeyPress
+      Width = 120
+    end
+    object CustName: TcxTextEdit
+      Tag = 2
+      Left = 444
+      Top = 47
+      TabOrder = 1
+      OnKeyPress = TMMNoKeyPress
+      Width = 120
+    end
+    object C_Name: TcxTextEdit
+      Tag = 2
+      Left = 284
+      Top = 47
+      TabOrder = 2
+      OnKeyPress = TMMNoKeyPress
+      Width = 120
+    end
+    object ConNo: TcxTextEdit
+      Tag = 2
+      Left = 620
+      Top = 47
+      TabOrder = 3
+      OnKeyPress = TMMNoKeyPress
+      Width = 120
+    end
+    inline frmFrameDateSel1: TfrmFrameDateSel
+      Left = 2
+      Top = 2
+      Width = 1920
+      Height = 37
+      Align = alTop
+      Color = clWhite
+      ParentBackground = False
+      ParentColor = False
+      TabOrder = 4
+      ExplicitLeft = 2
+      ExplicitTop = 2
+      ExplicitWidth = 1920
+      ExplicitHeight = 37
+      inherited lbl2: TLabel
+        Width = 16
+        Height = 21
+        ExplicitWidth = 16
+        ExplicitHeight = 21
+      end
+    end
+  end
+  object cxGrid1: TcxGrid [2]
+    Left = 0
+    Top = 152
+    Width = 1924
+    Height = 442
+    Align = alClient
+    PopupMenu = PM_1
+    TabOrder = 3
+    object Tv1: TcxGridDBTableView
+      OnDblClick = Tv1DblClick
+      Navigator.Buttons.CustomButtons = <>
+      ScrollbarAnnotations.CustomAnnotations = <>
+      OnCellDblClick = Tv1CellDblClick
+      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 = #36873#25321
+        DataBinding.FieldName = 'SSel'
+        DataBinding.IsNullValueType = True
+        PropertiesClassName = 'TcxCheckBoxProperties'
+        Properties.ImmediatePost = True
+        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 Tv1Column2: TcxGridDBColumn
+        Caption = #32463#33829#21333#20301
+        DataBinding.FieldName = 'OurCoName'
+        DataBinding.IsNullValueType = True
+        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 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
+        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
+      object Tv1Column3: TcxGridDBColumn
+        Caption = #21457#36135#22320#22336
+        DataBinding.FieldName = 'ShippingAddress'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 77
+      end
+      object Tv1Column5: TcxGridDBColumn
+        Caption = #32852#31995#26041#24335
+        DataBinding.FieldName = 'CONTACT'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 77
+      end
+      object Tv1Column8: TcxGridDBColumn
+        Caption = #20135#21697#32534#21495
+        DataBinding.FieldName = 'C_Code'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 77
+      end
+      object Tv1Column9: TcxGridDBColumn
+        Caption = #33394#24067#21517#31216
+        DataBinding.FieldName = 'C_Name'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 77
+      end
+      object Tv1Column12: TcxGridDBColumn
+        Caption = #39068#33394
+        DataBinding.FieldName = 'C_Color'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 77
+      end
+      object Tv1Column17: TcxGridDBColumn
+        Caption = #33394#21495
+        DataBinding.FieldName = 'C_ColorNo'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 58
+      end
+      object Tv1Column11: TcxGridDBColumn
+        Caption = #25253#21333#25968#37327
+        DataBinding.FieldName = 'OrderQty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 104
+      end
+      object Tv1Column22: TcxGridDBColumn
+        Caption = #20986#24211#25968#37327
+        DataBinding.FieldName = 'OutQty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 84
+      end
+      object Tv1Column23: TcxGridDBColumn
+        Caption = #21333#20215
+        DataBinding.FieldName = 'Price'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object Tv1Column24: TcxGridDBColumn
+        Caption = #37329#39069
+        DataBinding.FieldName = 'Amount'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 70
+      end
+      object Tv1Column13: TcxGridDBColumn
+        Caption = #25253#21333#21333#20301
+        DataBinding.FieldName = 'OrderUnit'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 91
+      end
+      object Tv1Column19: TcxGridDBColumn
+        Caption = #27424#21333#25968
+        DataBinding.FieldName = 'OrderOweQty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 84
+      end
+      object Tv1Column14: TcxGridDBColumn
+        Caption = #24211#23384#38656#27714
+        DataBinding.FieldName = 'TMSQty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 95
+      end
+      object Tv1Column18: TcxGridDBColumn
+        Caption = #22791#36135#25968#37327
+        DataBinding.FieldName = 'StkQty'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 111
+      end
+      object Tv1Column15: TcxGridDBColumn
+        Caption = #22791#36135#21333#20301
+        DataBinding.FieldName = 'TMSUnit'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 93
+      end
+      object Tv1Column21: TcxGridDBColumn
+        Caption = #22791#36135#29366#24577
+        DataBinding.FieldName = 'StkStatus'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 92
+      end
+      object Tv1Column10: TcxGridDBColumn
+        Caption = #27004#23618
+        DataBinding.FieldName = 'StkPosition'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 95
+      end
+      object Tv1Column16: TcxGridDBColumn
+        Caption = #22791#27880
+        DataBinding.FieldName = 'OrdSNote'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 77
+      end
+      object Tv1Column20: TcxGridDBColumn
+        Caption = #32039#24613#31243#24230
+        DataBinding.FieldName = 'Urgent'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Options.Editing = False
+        Width = 88
+      end
+      object Tv1Column25: TcxGridDBColumn
+        Caption = #35746#21333#31867#22411
+        DataBinding.FieldName = 'OrdType'
+        DataBinding.IsNullValueType = True
+        HeaderAlignmentHorz = taCenter
+        Width = 60
+      end
+    end
+    object cxGrid1Level1: TcxGridLevel
+      GridView = Tv1
+    end
+  end
+  object cxTabControl1: TcxTabControl [3]
+    Left = 0
+    Top = 121
+    Width = 1924
+    Height = 31
+    Align = alTop
+    TabOrder = 2
+    Properties.CustomButtons.Buttons = <>
+    Properties.Style = 9
+    Properties.TabIndex = 0
+    Properties.Tabs.Strings = (
+      '      '#26410#23436#25104'       '
+      '      '#24050#23436#25104'       '
+      '      '#20840#37096'      ')
+    OnChange = cxTabControl1Change
+    ClientRectBottom = 31
+    ClientRectRight = 1924
+    ClientRectTop = 28
+  end
+  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
+  inherited ADOQueryBaseCmd: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Left = 255
+    Top = 314
+  end
+  inherited ADOQueryBaseTemp: TADOQuery
+    Connection = DataLink_TradeMarket.ADOLink
+    Left = 157
+    Top = 256
+  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
+    end
+  end
+  object cxgrdpmn2: TcxGridPopupMenu
+    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
+    object N5: TMenuItem
+      Caption = #20840#36873
+      OnClick = N5Click
+    end
+    object N6: TMenuItem
+      Caption = #20840#24323
+      OnClick = N6Click
+    end
+  end
+  object GPM_3: TcxGridPopupMenu
+    PopupMenus = <>
+    Left = 860
+    Top = 228
+  end
+end