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

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 = 30
    AutoSize = True
    ButtonHeight = 30
    ButtonWidth = 99
    Caption = 'ToolBar1'
    Color = clWhite
    EdgeInner = esNone
    EdgeOuter = esNone
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = []
    Images = DataLink_TradeMarket.cxImageList_bar
    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 = 174
      Top = 0
      AutoSize = True
      Caption = #20851#38381
      ImageIndex = 7
      OnClick = TBCloseClick
    end
  end
  object ToolBar2: TToolBar [1]
    Left = 0
    Top = 245
    Width = 1540
    Height = 28
    ButtonHeight = 30
    ButtonWidth = 99
    Caption = 'ToolBar1'
    Color = clBtnFace
    EdgeInner = esNone
    EdgeOuter = esNone
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = []
    Images = DataLink_TradeMarket.cxImageList_bar
    List = True
    ParentColor = False
    ParentFont = False
    ShowCaptions = True
    TabOrder = 1
    ExplicitTop = 213
    object ToolButton4: TToolButton
      Left = 0
      Top = 0
      AutoSize = True
      Caption = #20135#21697#36873#25321
      ImageIndex = 4
      OnClick = ToolButton4Click
    end
    object ToolButton1: TToolButton
      Left = 103
      Top = 0
      AutoSize = True
      Caption = #22686#34892
      ImageIndex = 2
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 174
      Top = 0
      AutoSize = True
      Caption = #21024#34892
      ImageIndex = 6
      OnClick = ToolButton2Click
    end
    object ToolButton5: TToolButton
      Left = 245
      Top = 0
      Caption = #19968#38190#26367#25442
      ImageIndex = 17
      OnClick = ToolButton3Click
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 273
    Width = 1540
    Height = 377
    Align = alClient
    Caption = 'Panel2'
    TabOrder = 2
    ExplicitTop = 241
    ExplicitHeight = 409
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 900
      Height = 375
      Align = alLeft
      Caption = 'Panel2'
      TabOrder = 0
      ExplicitHeight = 407
      object cxGrid1: TcxGrid
        Left = 1
        Top = 1
        Width = 898
        Height = 373
        Align = alClient
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #24494#36719#38597#40657
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        ExplicitHeight = 405
        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
          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
            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
            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 = 375
      Align = alClient
      Caption = 'Panel4'
      TabOrder = 1
      ExplicitHeight = 407
      object Panel5: TPanel
        Left = 1
        Top = 1
        Width = 636
        Height = 41
        Align = alTop
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #24494#36719#38597#40657
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        object Label33: TLabel
          Left = 20
          Top = 8
          Width = 32
          Height = 21
          Caption = #25968#37327
        end
        object Label38: TLabel
          Left = 304
          Top = 8
          Width = 32
          Height = 21
          Caption = #24207#21495
        end
        object QtyMX: TcxTextEdit
          Left = 70
          Top = 2
          TabOrder = 0
          OnKeyPress = QtyMXKeyPress
          Width = 89
        end
      end
      object GroupBox2: TGroupBox
        Left = 1
        Top = 42
        Width = 636
        Height = 332
        Align = alClient
        Caption = #21452#20987#21024#38500#26126#32454#20449#24687
        TabOrder = 1
        ExplicitHeight = 364
        object cxGrid2: TcxGrid
          Left = 2
          Top = 14
          Width = 632
          Height = 316
          Align = alClient
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -16
          Font.Name = #24494#36719#38597#40657
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          ExplicitHeight = 348
          object TvMX: TcxGridDBTableView
            Navigator.Buttons.CustomButtons = <>
            Navigator.Buttons.Delete.Enabled = False
            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 = 48
      Height = 22
      Caption = #21305#25968#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #24494#36719#38597#40657
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label23: TLabel
      Left = 212
      Top = 4
      Width = 48
      Height = 22
      Caption = #25968#37327#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #24494#36719#38597#40657
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label29: TLabel
      Left = 12
      Top = 4
      Width = 48
      Height = 22
      Caption = #21333#20215#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #24494#36719#38597#40657
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label34: TLabel
      Left = 335
      Top = 4
      Width = 48
      Height = 22
      Caption = #21305#25968#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #24494#36719#38597#40657
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label35: TLabel
      Left = 435
      Top = 4
      Width = 48
      Height = 22
      Caption = #25968#37327#65306
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #24494#36719#38597#40657
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object ScrollBox1: TScrollBox [4]
    Left = 0
    Top = 30
    Width = 1540
    Height = 215
    Align = alTop
    BevelInner = bvNone
    BevelOuter = bvNone
    BorderStyle = bsNone
    Color = clWhite
    Ctl3D = False
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #24494#36719#38597#40657
    Font.Style = []
    ParentColor = False
    ParentCtl3D = False
    ParentFont = False
    TabOrder = 4
    OnClick = ScrollBox1Click
    object Label3: TLabel
      Left = 442
      Top = 10
      Width = 64
      Height = 21
      Caption = #21046#21333#26085#26399
    end
    object Label25: TLabel
      Left = 237
      Top = 10
      Width = 64
      Height = 21
      Caption = #20132#36135#26085#26399
    end
    object Label1: TLabel
      Left = 23
      Top = 133
      Width = 77
      Height = 21
      Caption = #22791'         '#27880
    end
    object Label2: TLabel
      Left = 23
      Top = 10
      Width = 48
      Height = 21
      Caption = #35746#21333#21495
    end
    object Label14: TLabel
      Left = 237
      Top = 56
      Width = 72
      Height = 21
      Caption = #23458'        '#25143
    end
    object Label20: TLabel
      Left = 23
      Top = 56
      Width = 64
      Height = 21
      Caption = #32463#33829#21333#20301
    end
    object Label19: TLabel
      Left = 237
      Top = 97
      Width = 80
      Height = 21
      Caption = #32852#31995#26041#24335#65306
    end
    object Label37: TLabel
      Left = 23
      Top = 97
      Width = 80
      Height = 21
      Caption = #35746#21333#31867#22411#65306
    end
    object Label18: TLabel
      Left = 442
      Top = 56
      Width = 64
      Height = 21
      Caption = #21457#36135#22320#22336
    end
    object TMMNo: TcxTextEdit
      Tag = 2
      Left = 109
      Top = 3
      TabOrder = 0
      Width = 122
    end
    object DLYDate: TcxDateEdit
      Left = 311
      Top = 4
      TabOrder = 1
      Width = 121
    end
    object TMMDate: TcxDateEdit
      Left = 516
      Top = 4
      TabOrder = 2
      Width = 121
    end
    object OurCoName: TcxButtonEdit
      Left = 110
      Top = 50
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.OnButtonClick = OurCoNamePropertiesButtonClick
      TabOrder = 3
      OnDblClick = OurCoNameDblClick
      Width = 121
    end
    object CustName: TcxButtonEdit
      Left = 311
      Top = 50
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.OnButtonClick = cxButtonEdit1PropertiesButtonClick
      TabOrder = 4
      OnDblClick = OurCoNameDblClick
      Width = 121
    end
    object ShippingAddress: TcxButtonEdit
      Left = 516
      Top = 50
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.OnButtonClick = cxButtonEdit2PropertiesButtonClick
      TabOrder = 5
      OnDblClick = OurCoNameDblClick
      Width = 121
    end
    object CONTACT: TcxButtonEdit
      Left = 311
      Top = 91
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.OnButtonClick = CONTACTPropertiesButtonClick
      TabOrder = 6
      OnDblClick = OurCoNameDblClick
      Width = 326
    end
    object OrdType: TcxComboBox
      Left = 110
      Top = 91
      Enabled = False
      TabOrder = 7
      Text = #27491#24120#21333
      Width = 121
    end
    object OrdNote: TcxMemo
      Left = 110
      Top = 133
      Hint = 'OrdNote/'#22791#27880
      Properties.OnChange = OrdNotePropertiesChange
      TabOrder = 8
      OnDblClick = OrdNoteDblClick
      Height = 71
      Width = 527
    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