frmgoodsmanage.dfm

物流供应链管理系统

        TabOrder = 9
      end
      object DBEdtEOQ: TDBEdit
        Left = 88
        Top = 136
        Width = 73
        Height = 20
        DataField = 'EOQ'
        DataSource = DSGoodsData
        TabOrder = 10
      end
    end
  end
  object LCDBOperatTool1: TLCDBOperatTool
    Left = 24
    Top = 16
    Width = 553
    Height = 25
    VisibleBtn = [tbAdd, tbEdit, tbPost, tbCancel]
    EnabledBtn = [tbAdd, tbDel, tbEdit]
    DelConfirmId = 'PurchaseDeGoodsMange'
    DataSource = DSGoodsData
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 345
    Width = 577
    Height = 137
    DataSource = DSGoodsData
    ReadOnly = True
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'BarCode'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Name'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VendorId'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Amount'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Unit'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OrderPolicy'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SafetyStock'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MinOrder'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MaxOrder'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'EOQ'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'LifeSpan'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'LifeSpanUnit'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ABCCate'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Weight'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'WeightUnit'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Volume'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VolumeUnit'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CheckupGrade'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'UllageRate'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Price'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CurrencyUnit'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Picture'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'GoodsCategory'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'Alias'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'OrderInterval'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'LeadTime'
        Visible = True
      end>
  end
  object BtnNext: TButton
    Left = 504
    Top = 48
    Width = 81
    Height = 25
    Caption = #26174#31034#19979'20'#26465
    TabOrder = 3
  end
  object DSGoodsData: TDataSource
    DataSet = cdsGoods
    Left = 40
    Top = 384
  end
  object PicDlg: TOpenPictureDialog
    Left = 508
    Top = 183
  end
  object DSCheckupGrade: TDataSource
    DataSet = cdsCheckupGrade
    Left = 104
    Top = 384
  end
  object DSGoodsCate: TDataSource
    DataSet = cdsGoodsCate
    Left = 152
    Top = 384
  end
  object DSVendor: TDataSource
    DataSet = cdsVendor
    Left = 200
    Top = 384
  end
  object DSWeightUnit: TDataSource
    DataSet = cdsWeightUnit
    Left = 240
    Top = 384
  end
  object DSVolumnUnit: TDataSource
    DataSet = cdsVolumnUnit
    Left = 288
    Top = 384
  end
  object DSLifeSpanUnit: TDataSource
    DataSet = cdsLifeSpanUnit
    Left = 344
    Top = 384
  end
  object DSUnit: TDataSource
    DataSet = cdsUnit
    Left = 392
    Top = 384
  end
  object DSABCCate: TDataSource
    DataSet = cdsABCCate
    Left = 432
    Top = 384
  end
  object DSOrderPolicy: TDataSource
    DataSet = cdsOrderPolicy
    Left = 472
    Top = 384
  end
  object DSCurrencyUnit: TDataSource
    DataSet = cdsCurrencyUnit
    Left = 512
    Top = 384
  end
  object SocketConGoods: TSocketConnection
    Connected = True
    ServerGUID = '{275D2132-CD22-4655-AD07-FC0D6F5171E7}'
    ServerName = 'GoodsData.mtsGoodsObj'
    Address = '127.0.0.1'
    Left = 44
    Top = 295
  end
  object SocketConBaseInfo: TSocketConnection
    Connected = True
    ServerGUID = '{D5BD1246-D633-4FE9-8F95-D67905A4003A}'
    ServerName = 'BaseInfoBiz.mtsBaseInfoBiz'
    Address = '127.0.0.1'
    Left = 228
    Top = 271
  end
  object cdsGoods: TClientDataSet
    Active = True
    Aggregates = <>
    PacketRecords = 20
    Params = <>
    ProviderName = 'dspGoodsMaster'
    RemoteServer = SocketConGoods
    Left = 40
    Top = 352
    object cdsGoodsBarCode: TWideStringField
      FieldName = 'BarCode'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Size = 30
    end
    object cdsGoodsName: TWideStringField
      FieldName = 'Name'
      Size = 30
    end
    object cdsGoodsVendorId: TWideStringField
      FieldName = 'VendorId'
      Size = 10
    end
    object cdsGoodsAmount: TLargeintField
      FieldName = 'Amount'
    end
    object cdsGoodsUnit: TSmallintField
      FieldName = 'Unit'
    end
    object cdsGoodsOrderPolicy: TSmallintField
      FieldName = 'OrderPolicy'
    end
    object cdsGoodsSafetyStock: TLargeintField
      FieldName = 'SafetyStock'
    end
    object cdsGoodsMinOrder: TLargeintField
      FieldName = 'MinOrder'
    end
    object cdsGoodsMaxOrder: TLargeintField
      FieldName = 'MaxOrder'
    end
    object cdsGoodsEOQ: TLargeintField
      FieldName = 'EOQ'
    end
    object cdsGoodsLifeSpan: TIntegerField
      FieldName = 'LifeSpan'
    end
    object cdsGoodsLifeSpanUnit: TSmallintField
      FieldName = 'LifeSpanUnit'
    end
    object cdsGoodsABCCate: TSmallintField
      FieldName = 'ABCCate'
    end
    object cdsGoodsWeight: TIntegerField
      FieldName = 'Weight'
    end
    object cdsGoodsWeightUnit: TSmallintField
      FieldName = 'WeightUnit'
    end
    object cdsGoodsVolume: TIntegerField
      FieldName = 'Volume'
    end
    object cdsGoodsVolumeUnit: TSmallintField
      FieldName = 'VolumeUnit'
    end
    object cdsGoodsCheckupGrade: TSmallintField
      FieldName = 'CheckupGrade'
    end
    object cdsGoodsUllageRate: TFloatField
      FieldName = 'UllageRate'
    end
    object cdsGoodsPrice: TFloatField
      FieldName = 'Price'
    end
    object cdsGoodsCurrencyUnit: TSmallintField
      FieldName = 'CurrencyUnit'
    end
    object cdsGoodsGoodsCategory: TWideStringField
      FieldName = 'GoodsCategory'
      Size = 10
    end
    object cdsGoodsAlias: TWideStringField
      FieldName = 'Alias'
      Size = 30
    end
    object cdsGoodsOrderInterval: TIntegerField
      FieldName = 'OrderInterval'
    end
    object cdsGoodsLeadTime: TIntegerField
      FieldName = 'LeadTime'
    end
  end
  object cdsCheckupGrade: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCheckupGrade'
    RemoteServer = SocketConBaseInfo
    Left = 104
    Top = 352
  end
  object cdsGoodsCate: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspGoodsCate'
    RemoteServer = SocketConGoods
    Left = 160
    Top = 352
  end
  object cdsVendor: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspVendor'
    RemoteServer = SocketConBaseInfo
    Left = 200
    Top = 352
  end
  object cdsWeightUnit: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspWeightUnit'
    RemoteServer = SocketConBaseInfo
    Left = 240
    Top = 352
  end
  object cdsVolumnUnit: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspVolumnUnit'
    RemoteServer = SocketConBaseInfo
    Left = 288
    Top = 352
  end
  object cdsLifeSpanUnit: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspLifeSpanUnit'
    RemoteServer = SocketConBaseInfo
    Left = 344
    Top = 352
  end
  object cdsUnit: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspUnit'
    RemoteServer = SocketConBaseInfo
    Left = 392
    Top = 352
  end
  object cdsABCCate: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspABCCate'
    RemoteServer = SocketConGoods
    Left = 432
    Top = 352
  end
  object cdsOrderPolicy: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspOrderPolicy'
    RemoteServer = SocketConBaseInfo
    Left = 472
    Top = 352
  end
  object cdsCurrencyUnit: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCurrencyUnit'
    RemoteServer = SocketConBaseInfo
    Left = 512
    Top = 352
  end
end