upickgoodsform.dfm

DELPHI DFM资源文件内码批量转换程序

      Width = 259
      Height = 52
      Caption = #25968#25454#31867#22411
      TabOrder = 7
      object rbAll: TRadioButton
        Left = 10
        Top = 13
        Width = 70
        Height = 17
        Caption = #20840#37096
        TabOrder = 0
        OnClick = rbAllClick
      end
      object rbStock: TRadioButton
        Left = 10
        Top = 30
        Width = 70
        Height = 17
        Caption = #23384#36135
        TabOrder = 1
        OnClick = rbAllClick
      end
      object rbDisc: TRadioButton
        Left = 138
        Top = 30
        Width = 90
        Height = 17
        Caption = #25240#25187#39033#30446
        TabOrder = 2
        OnClick = rbAllClick
      end
      object rbDress: TRadioButton
        Left = 138
        Top = 13
        Width = 90
        Height = 17
        Caption = #38750#23384#36135'/'#26381#21153
        TabOrder = 3
        OnClick = rbAllClick
      end
    end
    object PYFindGoodsEdit: TEdit
      Left = 66
      Top = 128
      Width = 141
      Height = 20
      MaxLength = 40
      TabOrder = 8
      Visible = False
      OnChange = OnFilterChange
    end
    object Button1: TButton
      Left = 401
      Top = 130
      Width = 75
      Height = 21
      Caption = #20854#23427'...'
      TabOrder = 9
      OnClick = Button1Click
    end
    object TreeView: TSDTreeViewCombo
      Left = 66
      Top = 99
      Width = 142
      Height = 20
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 10
      OnChange = InStoreCKBClick
      TVFont.Charset = GB2312_CHARSET
      TVFont.Color = clWindowText
      TVFont.Height = -12
      TVFont.Name = 'Terminal'
      TVFont.Style = []
      TVHeight = 150
      TVHotTrack = True
      TVIndent = 19
      TVItems.Data = {
        020000001F0000000000000000000000FFFFFFFFFFFFFFFF0000000001000000
        06313233313233230000000000000000000000FFFFFFFFFFFFFFFF0000000000
        0000000A31323331323331323331250000000000000000000000FFFFFFFFFFFF
        FFFF00000000000000000C313233323133323133323133}
      TVReadOnly = True
      TVRowSelect = False
      TVShowButtons = True
      TVShowLines = True
      TVShowRoot = True
      TVToolTips = True
      TVWidth = 300
      TVFullExpand = False
    end
  end
  object dsGoods: TDataSource
    DataSet = qryGoods
    Left = 232
    Top = 198
  end
  object qryOnhand: TClientQuery
    Connection = StartupDB.DBStartup
    LockType = ltBatchOptimistic
    Parameters = <
      item
        Name = 'goodsid'
        Size = -1
        Value = Null
      end
      item
        Name = 'shopid'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select o.storeid, s.name, o.quantity, o.realqty from aa_onhand o'
      'left join L_store s on o.storeid=s.storeid '
      'where o.goodsid=:goodsid and s.shopid=:shopid')
    WriteUnknown = True
    Left = 276
    Top = 299
    object qryOnhandSTOREID: TIntegerField
      FieldName = 'STOREID'
      Origin = 'AA_ONHAND.STOREID'
      Required = True
    end
    object qryOnhandNAME: TStringField
      DisplayLabel = #20179#24211
      FieldName = 'NAME'
      Origin = 'L_STORE.NAME'
      Size = 64
    end
    object qryOnhandQUANTITY: TFloatField
      DisplayLabel = #24080#38754#25968#37327
      FieldName = 'QUANTITY'
      Origin = 'AA_ONHAND.QUANTITY'
      DisplayFormat = '#0.####'
    end
    object qryOnhandREALQTY: TFloatField
      DisplayLabel = #23454#38469#24211#23384
      FieldName = 'REALQTY'
      Origin = 'AA_ONHAND.REALQTY'
      Required = True
      DisplayFormat = '#0.####'
    end
  end
  object dsOnhand: TDataSource
    DataSet = qryOnhand
    Left = 318
    Top = 300
  end
  object qryGoods: TClientQuery
    CacheSize = 1000
    LockType = ltBatchOptimistic
    AfterOpen = cdsGoodsAfterOpen
    AfterScroll = cdsGoodsAfterScroll
    Parameters = <>
    SQL.Strings = (
      'select distinct g.goodsid, g.code goodscode,'
      'g.name goodsname, g.specs, '
      'u.unitname unitname, u.lprice1, u.lprice2, u.lprice3,'
      'u.lprice4,  u.lprice5, g.quantity, g.realqty,g.Kind,'
      'g.COSTTYPE,g.GUSERDEF1,g.GUSERDEF2,g.GUSERDEF3,'
      'g.GUSERDEF4,g.GUSERDEF5'
      'from L_goods g '
      'left join L_Goodsunit u on (g.unitid=u.unitid and u.isbase=1)'
      'left join aa_traderprice t on g.goodsid=t.goodsid'
      'left join aa_onhand o on g.goodsid=o.goodsid'
      'left join L_GoodsType s on g.GdTypeID=s.GdTypeID'
      'where 1=1'
      '')
    WriteUnknown = True
    Left = 320
    Top = 208
    object qryGoodsGOODSID: TIntegerField
      DisplayLabel = #36135#21697'ID'
      FieldName = 'GOODSID'
      Origin = 'L_GOODS.GOODSID'
      Required = True
    end
    object qryGoodsGOODSCODE: TStringField
      DisplayLabel = #36135#21697#32534#30721
      FieldName = 'GOODSCODE'
      Origin = 'L_GOODS.CODE'
      Required = True
      Size = 32
    end
    object qryGoodsGOODSNAME: TStringField
      DisplayLabel = #36135#21697#21517#31216
      FieldName = 'GOODSNAME'
      Origin = 'L_GOODS.NAME'
      Required = True
      Size = 64
    end
    object qryGoodsSPECS: TStringField
      DisplayLabel = #35268#26684
      FieldName = 'SPECS'
      Origin = 'L_GOODS.SPECS'
      Size = 64
    end
    object qryGoodsUNITNAME: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'UNITNAME'
      Origin = 'L_UNIT.NAME'
      Size = 64
    end
    object qryGoodsLPRICE1: TFloatField
      DisplayLabel = #19968#32423#25209#21457#20215
      FieldName = 'LPRICE1'
      Origin = 'L_GOODS.LPRICE1'
    end
    object qryGoodsLPRICE2: TFloatField
      DisplayLabel = #20108#32423#25209#21457#20215
      FieldName = 'LPRICE2'
      Origin = 'L_GOODS.LPRICE2'
    end
    object qryGoodsLPRICE3: TFloatField
      DisplayLabel = #19977#32423#25209#21457#20215
      FieldName = 'LPRICE3'
      Origin = 'L_GOODS.LPRICE3'
    end
    object qryGoodsLPRICE4: TFloatField
      DisplayLabel = #22235#32423#25209#21457#20215
      FieldName = 'LPRICE4'
      Origin = 'L_GOODS.LPRICE4'
    end
    object qryGoodsLPRICE5: TFloatField
      DisplayLabel = #20116#32423#25209#21457#20215
      FieldName = 'LPRICE5'
      Origin = 'L_GOODS.LPRICE5'
    end
    object qryGoodsQUANTITY: TFloatField
      DisplayLabel = #24635#24080#38754#24211#23384
      FieldName = 'QUANTITY'
      Origin = 'L_GOODS.QUANTITY'
      DisplayFormat = '#0.##'
    end
    object qryGoodsREALQTY: TFloatField
      DisplayLabel = #24635#23454#38469#24211#23384
      FieldName = 'REALQTY'
      Origin = 'L_GOODS.REALQTY'
      DisplayFormat = '#0.##'
    end
    object qryGoodsKIND: TSmallintField
      FieldName = 'KIND'
    end
    object qryGoodsCOSTTYPE: TIntegerField
      FieldName = 'COSTTYPE'
    end
    object qryGoodsGUSERDEF1: TStringField
      FieldName = 'GUSERDEF1'
      Size = 32
    end
    object qryGoodsGUSERDEF2: TStringField
      FieldName = 'GUSERDEF2'
      Size = 32
    end
    object qryGoodsGUSERDEF3: TStringField
      FieldName = 'GUSERDEF3'
      Size = 32
    end
    object qryGoodsGUSERDEF4: TStringField
      FieldName = 'GUSERDEF4'
      Size = 32
    end
    object qryGoodsGUSERDEF5: TStringField
      FieldName = 'GUSERDEF5'
      Size = 32
    end
  end
  object dspGoods: TDataSetProvider
    DataSet = qryGoods
    Constraints = True
    Left = 152
    Top = 176
  end
  object cdsGoods: TClientDataSet
    Aggregates = <>
    AutoCalcFields = False
    FetchOnDemand = False
    Params = <>
    ProviderName = 'dspGoods'
    AfterOpen = cdsGoodsAfterOpen
    AfterScroll = cdsGoodsAfterScroll
    Left = 80
    Top = 184
    object cdsGoodsGOODSID: TIntegerField
      DisplayLabel = #36135#21697'ID'
      FieldName = 'GOODSID'
      Origin = 'L_GOODS.GOODSID'
      Required = True
    end
    object cdsGoodsGOODSCODE: TStringField
      DisplayLabel = #36135#21697#32534#30721
      FieldName = 'GOODSCODE'
      Origin = 'L_GOODS.CODE'
      Required = True
      Size = 32
    end
    object cdsGoodsGOODSNAME: TStringField
      DisplayLabel = #36135#21697#21517#31216
      FieldName = 'GOODSNAME'
      Origin = 'L_GOODS.NAME'
      Required = True
      Size = 64
    end
    object cdsGoodsSPECS: TStringField
      DisplayLabel = #35268#26684
      FieldName = 'SPECS'
      Origin = 'L_GOODS.SPECS'
      Size = 64
    end
    object cdsGoodsUNITNAME: TStringField
      DisplayLabel = #21333#20301
      FieldName = 'UNITNAME'
      Origin = 'L_UNIT.NAME'
      Size = 64
    end
    object cdsGoodsLPRICE1: TFloatField
      DisplayLabel = #19968#32423#25209#21457#20215
      FieldName = 'LPRICE1'
      Origin = 'L_GOODS.LPRICE1'
    end
    object cdsGoodsLPRICE2: TFloatField
      DisplayLabel = #20108#32423#25209#21457#20215
      FieldName = 'LPRICE2'
      Origin = 'L_GOODS.LPRICE2'
    end
    object cdsGoodsLPRICE3: TFloatField
      DisplayLabel = #19977#32423#25209#21457#20215
      FieldName = 'LPRICE3'
      Origin = 'L_GOODS.LPRICE3'
    end
    object cdsGoodsLPRICE4: TFloatField
      DisplayLabel = #22235#32423#25209#21457#20215
      FieldName = 'LPRICE4'
      Origin = 'L_GOODS.LPRICE4'
    end
    object cdsGoodsLPRICE5: TFloatField
      DisplayLabel = #20116#32423#25209#21457#20215
      FieldName = 'LPRICE5'
      Origin = 'L_GOODS.LPRICE5'
    end
    object cdsGoodsQUANTITY: TFloatField
      DisplayLabel = #24635#24080#38754#24211#23384
      FieldName = 'QUANTITY'
      Origin = 'L_GOODS.QUANTITY'
      DisplayFormat = '#0.##'
    end
    object cdsGoodsREALQTY: TFloatField
      DisplayLabel = #24635#23454#38469#24211#23384
      FieldName = 'REALQTY'
      Origin = 'L_GOODS.REALQTY'
      DisplayFormat = '#0.##'
    end
    object cdsGoodsKIND: TSmallintField
      FieldName = 'KIND'
    end
    object cdsGoodsCOSTTYPE: TIntegerField
      FieldName = 'COSTTYPE'
    end
    object cdsGoodsGUSERDEF1: TStringField
      FieldName = 'GUSERDEF1'
      Size = 32
    end
    object cdsGoodsGUSERDEF2: TStringField
      FieldName = 'GUSERDEF2'
      Size = 32
    end
    object cdsGoodsGUSERDEF3: TStringField
      FieldName = 'GUSERDEF3'
      Size = 32
    end
    object cdsGoodsGUSERDEF4: TStringField
      FieldName = 'GUSERDEF4'
      Size = 32
    end
    object cdsGoodsGUSERDEF5: TStringField
      FieldName = 'GUSERDEF5'
      Size = 32
    end
  end
end