untitembarcode.dfm

实达企业在线EOL源码

      OnExit = Edit1Exit
    end
    object Button1: TButton
      Left = 328
      Top = 8
      Width = 75
      Height = 25
      Caption = '增加文件'
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 464
      Top = 8
      Width = 75
      Height = 25
      Caption = '浏览图片'
      TabOrder = 2
      OnClick = Button2Click
    end
  end
  inherited dsMast: TDataSource
    DataSet = cdsMat_Basic
    Left = 96
    Top = 104
  end
  object scEOLShQ: TSocketConnection
    ServerName = 'EOLServer.EOLGServer'
    Host = 'kfbserver'
    Left = 16
    Top = 104
  end
  object wwLookupDialog1: TwwLookupDialog
    GridTitleAlignment = taCenter
    GridColor = clWhite
    GridOptions = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgPerfectRowFit]
    LookupTable = cdsLItemType
    Caption = '商品类型选择'
    MaxWidth = 0
    MaxHeight = 209
    CharCase = ecNormal
    Left = 488
    Top = 201
  end
  object wwLookupDialog2: TwwLookupDialog
    GridTitleAlignment = taCenter
    GridColor = clWhite
    GridOptions = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgPerfectRowFit]
    LookupTable = cdsLMeasure
    Caption = '计量方式选择'
    MaxWidth = 0
    MaxHeight = 209
    CharCase = ecNormal
    Left = 488
    Top = 233
  end
  object cdsLItemType: TstClientDataSet
    Aggregates = <>
    IndexName = 'DEFAULT_ORDER'
    Params = <
      item
        DataType = ftString
        Name = 'CompanyCode'
        ParamType = ptInput
        Value = #39#39
      end>
    ProviderName = 'prvItemType'
    RemoteServer = scEOLShQ
    BeforeOpen = cdsLItemTypeBeforeOpen
    Left = 520
    Top = 200
    object StringField7: TStringField
      DisplayLabel = '公司代码'
      DisplayWidth = 10
      FieldName = 'CompanyCode'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object StringField41: TStringField
      DisplayLabel = '类型代码'
      DisplayWidth = 10
      FieldName = 'ItemType'
      FixedChar = True
      Size = 10
    end
    object StringField42: TStringField
      DisplayLabel = '类型名称'
      DisplayWidth = 20
      FieldName = 'TypeName'
    end
    object StringField43: TStringField
      DisplayLabel = '上级类型代码'
      FieldName = 'ParentCode'
      FixedChar = True
      Size = 10
    end
    object StringField44: TStringField
      DisplayLabel = '属性1代码'
      FieldName = 'Prop1Code'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object StringField45: TStringField
      DisplayLabel = '属性2代码'
      FieldName = 'Prop2Code'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object StringField46: TStringField
      DisplayLabel = '属性3代码'
      FieldName = 'Prop3Code'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object StringField47: TStringField
      DisplayLabel = '属性4代码'
      FieldName = 'Prop4Code'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object StringField48: TStringField
      DisplayLabel = '属性5代码'
      FieldName = 'Prop5Code'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object StringField49: TStringField
      DisplayLabel = '属性6代码'
      FieldName = 'Prop6Code'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object StringField50: TStringField
      DisplayLabel = '属性7代码'
      FieldName = 'Prop7Code'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object StringField51: TStringField
      DisplayLabel = '属性8代码'
      FieldName = 'Prop8Code'
      Visible = False
      FixedChar = True
      Size = 10
    end
  end
  object cdsLMeasure: TstClientDataSet
    Aggregates = <>
    Filter = 'AllowUsed='#39'1'#39
    Filtered = True
    IndexName = 'DEFAULT_ORDER'
    Params = <
      item
        DataType = ftString
        Name = 'CompanyCode'
        ParamType = ptInput
        Value = ''
      end>
    ProviderName = 'prvMeasure'
    RemoteServer = scEOLShQ
    BeforeOpen = cdsLItemTypeBeforeOpen
    Left = 520
    Top = 232
    object cdsLMeasureMeasureCode: TStringField
      DisplayLabel = '计量方式代码'
      DisplayWidth = 4
      FieldName = 'MeasureCode'
      FixedChar = True
      Size = 4
    end
    object cdsLMeasureMeasureName: TStringField
      DisplayLabel = '计量方式名称'
      DisplayWidth = 16
      FieldName = 'MeasureName'
    end
    object cdsLMeasureBasicUnit: TStringField
      DisplayLabel = '基本单位'
      DisplayWidth = 10
      FieldName = 'BasicUnit'
      FixedChar = True
      Size = 10
    end
    object cdsLMeasureCompanyCode: TStringField
      DisplayLabel = '公司代码'
      DisplayWidth = 10
      FieldName = 'CompanyCode'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object cdsLMeasureSecondUnit: TStringField
      DisplayLabel = '第二计量单位'
      DisplayWidth = 10
      FieldName = 'SecondUnit'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object cdsLMeasureSecondCoef: TBCDField
      DisplayLabel = '第二转换系数'
      DisplayWidth = 13
      FieldName = 'SecondCoef'
      Visible = False
      Precision = 12
      Size = 2
    end
    object cdsLMeasureThirdUnit: TStringField
      DisplayLabel = '第三计量单位'
      DisplayWidth = 10
      FieldName = 'ThirdUnit'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object cdsLMeasureThirdCoef: TBCDField
      DisplayLabel = '第三转换系数'
      DisplayWidth = 13
      FieldName = 'ThirdCoef'
      Visible = False
      Precision = 12
      Size = 2
    end
    object cdsLMeasureFourthUnit: TStringField
      DisplayLabel = '第四计量单位'
      DisplayWidth = 10
      FieldName = 'FourthUnit'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object cdsLMeasureFourthCoef: TBCDField
      DisplayLabel = '第四转换系数'
      DisplayWidth = 13
      FieldName = 'FourthCoef'
      Visible = False
      Precision = 12
      Size = 2
    end
    object cdsLMeasureFifthUnit: TStringField
      DisplayLabel = '第五计量单位'
      DisplayWidth = 10
      FieldName = 'FifthUnit'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object cdsLMeasureFifthCoef: TBCDField
      DisplayLabel = '第五转换系数'
      DisplayWidth = 13
      FieldName = 'FifthCoef'
      Visible = False
      Precision = 12
      Size = 2
    end
    object cdsLMeasureSixthUnit: TStringField
      DisplayLabel = '第六计量单位'
      DisplayWidth = 10
      FieldName = 'SixthUnit'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object cdsLMeasureSixthCoef: TBCDField
      DisplayLabel = '第六转换系数'
      DisplayWidth = 13
      FieldName = 'SixthCoef'
      Visible = False
      Precision = 12
      Size = 2
    end
    object cdsLMeasureAllowUsed: TStringField
      DisplayLabel = '允许使用'
      DisplayWidth = 1
      FieldName = 'AllowUsed'
      Visible = False
      FixedChar = True
      Size = 1
    end
    object cdsLMeasureDefaultPur: TIntegerField
      DisplayLabel = '采购默认单位'
      DisplayWidth = 10
      FieldName = 'DefaultPur'
      Visible = False
    end
    object cdsLMeasureDefaultInv: TIntegerField
      DisplayLabel = '库存默认单位'
      DisplayWidth = 10
      FieldName = 'DefaultInv'
      Visible = False
    end
    object cdsLMeasureDefaultSal: TIntegerField
      DisplayLabel = '销售默认单位'
      DisplayWidth = 10
      FieldName = 'DefaultSal'
      Visible = False
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 468
    Top = 10
  end
  object PopupMenu1: TPopupMenu
    Left = 424
    Top = 192
    object addimage: TMenuItem
      Caption = '增加图片'
      OnClick = addimageClick
    end
  end
  object cdsMat_Basic: TClientDataSet
    Aggregates = <>
    PacketRecords = 1
    Params = <
      item
        DataType = ftString
        Name = 'BarCode'
        ParamType = ptInput
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'ItemNo'
        ParamType = ptInput
        Value = #39#39
      end>
    ProviderName = 'prvItemByBarCode'
    RemoteServer = scEOLShQ
    OnNewRecord = cdsMat_BasicNewRecord
    Left = 56
    Top = 104
    object cdsMat_BasicItemNo: TStringField
      DisplayLabel = '货号'
      DisplayWidth = 20
      FieldName = 'ItemNo'
    end
    object cdsMat_BasicBarCode: TStringField
      DisplayLabel = '条形码'
      DisplayWidth = 30
      FieldName = 'BarCode'
      Size = 30
    end
    object cdsMat_BasicItemName: TStringField
      DisplayLabel = '货名'
      DisplayWidth = 20
      FieldName = 'ItemName'
    end
    object cdsMat_BasicMeasureMethod: TStringField
      DisplayLabel = '单位'
      DisplayWidth = 4
      FieldName = 'MeasureMethod'
      Size = 4
    end
    object cdsMat_BasicModeSpec: TStringField
      DisplayLabel = '规格'
      DisplayWidth = 20
      FieldName = 'ModeSpec'
    end
    object cdsMat_BasicCompanyCode: TStringField
      FieldName = 'CompanyCode'
      Visible = False
      Size = 10
    end
    object cdsMat_BasicStandardPrice: TBCDField
      FieldName = 'StandardPrice'
      Visible = False
      Precision = 12
      Size = 2
    end
    object cdsMat_BasicItemType: TStringField
      DisplayLabel = '类别'
      FieldName = 'ItemType'
      Visible = False
      Size = 10
    end
    object cdsMat_BasicCostPrice: TBCDField
      FieldName = 'CostPrice'
      Visible = False
      Precision = 12
      Size = 2
    end
    object cdsMat_BasicIsPurchase: TStringField
      FieldName = 'IsPurchase'
      Visible = False
      Size = 1
    end
    object cdsMat_BasicIsMake: TStringField
      FieldName = 'IsMake'
      Visible = False
      Size = 1
    end
    object cdsMat_BasicIsSale: TStringField
      FieldName = 'IsSale'
      Visible = False
      Size = 1
    end
    object cdsMat_BasicAllowUsed: TStringField
      FieldName = 'AllowUsed'
      Visible = False
      Size = 1
    end
    object cdsMat_BasicReqBatchNo: TStringField
      FieldName = 'ReqBatchNo'
      Visible = False
      Size = 1
    end
    object cdsMat_BasicRemark: TStringField
      FieldName = 'Remark'
      Visible = False
      Size = 140
    end
    object cdsMat_BasicImage: TBlobField
      FieldName = 'Image'
      Visible = False
      BlobType = ftBlob
    end
    object cdsMat_BasicSaleType: TStringField
      FieldName = 'SaleType'
      Visible = False
      FixedChar = True
      Size = 1
    end
    object cdsMat_BasicVendCustCode: TStringField
      FieldName = 'VendCustCode'
      Visible = False
    end
    object cdsMat_BasicMemberPrice: TBCDField
      FieldName = 'MemberPrice'
      Visible = False
      Precision = 12
      Size = 2
    end
    object cdsMat_BasicSalePrice: TBCDField
      FieldName = 'SalePrice'
      Visible = False
      Precision = 12
      Size = 2
    end
    object cdsMat_BasicComparePrice: TBCDField
      FieldName = 'ComparePrice'
      Visible = False
      Precision = 12
      Size = 2
    end
    object cdsMat_BasicBatchPrice: TBCDField
      FieldName = 'BatchPrice'
      Visible = False
      Precision = 12
      Size = 2
    end
    object cdsMat_BasicProdArea: TStringField
      FieldName = 'ProdArea'
      Visible = False
    end
    object cdsMat_BasicTaxRate: TBCDField
      FieldName = 'TaxRate'
      Visible = False
      Precision = 12
      Size = 2
    end
    object cdsMat_BasicIsInCode: TStringField
      FieldName = 'IsInCode'
      Visible = False
      FixedChar = True
      Size = 1
    end
    object cdsMat_BasicFirstDate: TDateTimeField
      FieldName = 'FirstDate'
      Visible = False
    end
    object cdsMat_BasicLastDate: TDateTimeField
      FieldName = 'LastDate'
      Visible = False
    end
    object cdsMat_BasicRackId: TIntegerField
      FieldName = 'RackId'
      Visible = False
    end
    object cdsMat_BasicTrademark: TStringField
      FieldName = 'Trademark'
      Visible = False
    end
    object cdsMat_BasicIsModiPrice: TStringField
      FieldName = 'IsModiPrice'
      Visible = False
      FixedChar = True
      Size = 1
    end
    object cdsMat_BasicOperator: TStringField
      FieldName = 'Operator'
      Visible = False
      Size = 8
    end
    object cdsMat_BasicOtherPrice: TStringField
      FieldName = 'OtherPrice'
      Visible = False
      FixedChar = True
      Size = 1
    end
    object cdsMat_BasicIsPack: TStringField
      FieldName = 'IsPack'
      Visible = False
      FixedChar = True
      Size = 1
    end
  end
end