u_dm.dfm

相关的销售服务管理行业的一个软件

  end
  object ADOQuery4: TADOQuery
    Parameters = <>
    Left = 360
    Top = 118
  end
  object adoclient: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select  * from s_customer')
    Left = 184
    Top = 248
  end
  object adoxsbm: TADOQuery
    Parameters = <>
    Left = 360
    Top = 167
  end
  object ADOStoredProc1: TADOStoredProc
    Connection = ADOConnection
    ProcedureName = 'GetRkCount;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@Ckcode'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Size = 30
        Value = Null
      end
      item
        Name = '@nDate1'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Size = 8
        Value = Null
      end
      item
        Name = '@ndate2'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Size = 8
        Value = Null
      end
      item
        Name = '@flag'
        Attributes = [paNullable]
        DataType = ftBoolean
        Value = Null
      end>
    Prepared = True
    Left = 312
    Top = 10
  end
  object adock: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select  * from s_ck')
    Left = 352
    Top = 298
  end
  object ADOSgoos: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from s_goods')
    Left = 400
    Top = 282
    object ADOSgoosnGdCode: TWideStringField
      FieldName = 'nGdCode'
      Size = 50
    end
    object ADOSgoosnGdAddCode: TWideStringField
      FieldName = 'nGdAddCode'
      Size = 50
    end
    object ADOSgoosnGdName: TWideStringField
      FieldName = 'nGdName'
      Size = 50
    end
    object ADOSgoosnGDColor: TWideStringField
      FieldName = 'nGDColor'
      Size = 50
    end
    object ADOSgoosnGdGg: TWideStringField
      FieldName = 'nGdGg'
      Size = 50
    end
    object ADOSgoosnGdCCode: TWideStringField
      FieldName = 'nGdCCode'
      Size = 100
    end
    object ADOSgoosnGdGyscode: TWideStringField
      FieldName = 'nGdGyscode'
      Size = 50
    end
    object ADOSgoosnGdUnit: TWideStringField
      FieldName = 'nGdUnit'
      Size = 50
    end
    object ADOSgoosnGdUnit1: TWideStringField
      FieldName = 'nGdUnit1'
      Size = 50
    end
    object ADOSgoosbGdPosition: TBooleanField
      FieldName = 'bGdPosition'
    end
    object ADOSgoosbGdSale: TBooleanField
      FieldName = 'bGdSale'
    end
    object ADOSgoosbGdOutsale: TBooleanField
      FieldName = 'bGdOutsale'
    end
    object ADOSgoosbGdMake: TBooleanField
      FieldName = 'bGdMake'
    end
    object ADOSgoosbGdSelf: TBooleanField
      FieldName = 'bGdSelf'
    end
    object ADOSgoosfGdExchRate: TFloatField
      FieldName = 'fGdExchRate'
    end
    object ADOSgoosiGdTaxRate: TIntegerField
      FieldName = 'iGdTaxRate'
    end
    object ADOSgoosfGdWeight: TFloatField
      FieldName = 'fGdWeight'
    end
    object ADOSgoosfGdVolume: TFloatField
      FieldName = 'fGdVolume'
    end
    object ADOSgoosmGdRCost: TBCDField
      FieldName = 'mGdRCost'
      Precision = 19
    end
    object ADOSgoosmGdSPrice: TBCDField
      FieldName = 'mGdSPrice'
      Precision = 19
    end
    object ADOSgoosmGdSCost: TBCDField
      FieldName = 'mGdSCost'
      Precision = 19
    end
    object ADOSgoosmGDHSCost: TBCDField
      FieldName = 'mGDHSCost'
      Precision = 19
    end
    object ADOSgoosmGdLSCost: TBCDField
      FieldName = 'mGdLSCost'
      Precision = 19
    end
    object ADOSgoosmGdNCost: TBCDField
      FieldName = 'mGdNCost'
      Precision = 19
    end
    object ADOSgoosfGdBatch: TFloatField
      FieldName = 'fGdBatch'
    end
    object ADOSgoosfGdSafeNum: TFloatField
      FieldName = 'fGdSafeNum'
    end
    object ADOSgoosfGdTopSum: TFloatField
      FieldName = 'fGdTopSum'
    end
    object ADOSgoosfGdFlowSum: TBCDField
      FieldName = 'fGdFlowSum'
      Precision = 19
    end
    object ADOSgoosmGdOverStock: TFloatField
      FieldName = 'mGdOverStock'
    end
    object ADOSgoosbGdQuality: TBooleanField
      FieldName = 'bGdQuality'
    end
    object ADOSgoosbColor: TBooleanField
      FieldName = 'bColor'
    end
    object ADOSgoosbGdBatch: TBooleanField
      FieldName = 'bGdBatch'
    end
    object ADOSgoosbGdOverStock: TBooleanField
      FieldName = 'bGdOverStock'
    end
    object ADOSgoosnGdSDate: TWideStringField
      FieldName = 'nGdSDate'
      Size = 10
    end
    object ADOSgoosnGdEDate: TWideStringField
      FieldName = 'nGdEDate'
      Size = 10
    end
    object ADOSgoosbUse: TBooleanField
      FieldName = 'bUse'
    end
    object ADOSgoosfCount: TFloatField
      FieldName = 'fCount'
    end
    object ADOSgoosiselCount: TIntegerField
      FieldName = 'iselCount'
    end
    object ADOSgoosipower: TIntegerField
      FieldName = 'ipower'
    end
    object ADOSgoosTotals: TBCDField
      FieldName = 'Totals'
      Precision = 18
      Size = 8
    end
    object ADOSgoosMGDP: TBCDField
      FieldName = 'MGDP'
      Precision = 19
    end
    object ADOSgoosnUD1: TWideStringField
      FieldName = 'nUD1'
      Size = 50
    end
    object ADOSgoosnUD2: TWideStringField
      FieldName = 'nUD2'
      Size = 50
    end
    object ADOSgoosnUD3: TWideStringField
      FieldName = 'nUD3'
      Size = 50
    end
    object ADOSgoosnUD4: TWideStringField
      FieldName = 'nUD4'
      Size = 50
    end
    object ADOSgoosnUD5: TWideStringField
      FieldName = 'nUD5'
      Size = 50
    end
    object ADOSgoosnUD6: TWideStringField
      FieldName = 'nUD6'
      Size = 50
    end
    object ADOSgoosnUD7: TWideStringField
      FieldName = 'nUD7'
      Size = 50
    end
    object ADOSgoosnUD8: TWideStringField
      FieldName = 'nUD8'
      Size = 50
    end
    object ADOSgoosnUD9: TWideStringField
      FieldName = 'nUD9'
      Size = 50
    end
    object ADOSgoosnUD10: TWideStringField
      FieldName = 'nUD10'
      Size = 50
    end
    object ADOSgoosnUD11: TWideStringField
      FieldName = 'nUD11'
      Size = 50
    end
    object ADOSgoosnUD12: TWideStringField
      FieldName = 'nUD12'
      Size = 50
    end
    object ADOSgoosnUD13: TWideStringField
      FieldName = 'nUD13'
      Size = 50
    end
    object ADOSgoosnUD14: TWideStringField
      FieldName = 'nUD14'
      Size = 50
    end
    object ADOSgoosnUD15: TWideStringField
      FieldName = 'nUD15'
      Size = 50
    end
    object ADOSgoosscolor: TStringField
      FieldKind = fkLookup
      FieldName = 'scolor'
      LookupDataSet = ADOcolor
      LookupKeyFields = 'nTcode'
      LookupResultField = 'Co_name'
      KeyFields = 'nGDColor'
      Size = 30
      Lookup = True
    end
  end
  object ADOcolor: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from js_color')
    Left = 456
    Top = 338
    object ADOcolorCo_short: TWideStringField
      FieldName = 'Co_short'
      Size = 40
    end
    object ADOcolorCo_name: TWideStringField
      FieldName = 'Co_name'
      Size = 40
    end
    object ADOcolorCo_name1: TWideStringField
      FieldName = 'Co_name1'
      Size = 40
    end
    object ADOcolornTcode: TWideStringField
      FieldName = 'nTcode'
      Size = 50
    end
  end
  object adoxsrbd3: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforeInsert = adoxsrbd3BeforeInsert
    IndexFieldNames = 'nBillid'
    MasterFields = 'nBillid'
    MasterSource = frmxsrb.DataSource1
    TableName = 'kc_Gooddetail'
    Left = 384
    Top = 360
    object adoxsrbd3nId: TAutoIncField
      FieldName = 'nId'
      ReadOnly = True
    end
    object adoxsrbd3nGoodCode: TWideStringField
      FieldName = 'nGoodCode'
      Size = 50
    end
    object adoxsrbd3nGdAddCode: TWideStringField
      FieldName = 'nGdAddCode'
      Size = 50
    end
    object adoxsrbd3nBillid: TWideStringField
      FieldName = 'nBillid'
      Size = 50
    end
    object adoxsrbd3nfsprice: TBCDField
      FieldName = 'nfsprice'
      Precision = 18
      Size = 8
    end
    object adoxsrbd3nFsCount: TBCDField
      FieldName = 'nFsCount'
      Precision = 18
      Size = 8
    end
    object adoxsrbd3nFsJine: TBCDField
      FieldName = 'nFsJine'
      Precision = 18
      Size = 8
    end
    object adoxsrbd3itax: TIntegerField
      FieldName = 'itax'
    end
    object adoxsrbd3nUnit: TWideStringField
      FieldName = 'nUnit'
    end
    object adoxsrbd3nGg: TWideStringField
      FieldName = 'nGg'
      Size = 50
    end
    object adoxsrbd3nMemo: TWideStringField
      FieldName = 'nMemo'
      Size = 100
    end
    object adoxsrbd3nbatch: TWideStringField
      FieldName = 'nbatch'
      Size = 50
    end
    object adoxsrbd3nPosition: TWideStringField
      FieldName = 'nPosition'
      Size = 50
    end
    object adoxsrbd3nColor: TWideStringField
      FieldName = 'nColor'
      Size = 50
    end
    object adoxsrbd3fOod: TFloatField
      FieldName = 'fOod'
    end
    object adoxsrbd3nCus1: TWideStringField
      FieldName = 'nCus1'
      Size = 50
    end
    object adoxsrbd3nCus2: TWideStringField
      FieldName = 'nCus2'
      Size = 50
    end
    object adoxsrbd3nCus3: TWideStringField
      FieldName = 'nCus3'
      Size = 50
    end
    object adoxsrbd3nCus4: TWideStringField
      FieldName = 'nCus4'
      Size = 50
    end
    object adoxsrbd3nCus5: TWideStringField
      FieldName = 'nCus5'
      Size = 50
    end
    object adoxsrbd3nCus6: TWideStringField
      FieldName = 'nCus6'
      Size = 50
    end
    object adoxsrbd3nCus7: TWideStringField
      FieldName = 'nCus7'
      Size = 50
    end
    object adoxsrbd3nCus8: TWideStringField
      FieldName = 'nCus8'
      Size = 50
    end
    object adoxsrbd3nCus9: TWideStringField
      FieldName = 'nCus9'
      Size = 50
    end
    object adoxsrbd3nCus10: TWideStringField
      FieldName = 'nCus10'
      Size = 50
    end
    object adoxsrbd3nCus11: TWideStringField
      FieldName = 'nCus11'
      Size = 50
    end
    object adoxsrbd3nCus12: TWideStringField
      FieldName = 'nCus12'
      Size = 50
    end
    object adoxsrbd3nCus13: TWideStringField
      FieldName = 'nCus13'
      Size = 50
    end
    object adoxsrbd3nCus14: TWideStringField
      FieldName = 'nCus14'
      Size = 50
    end
    object adoxsrbd3nCus15: TWideStringField
      FieldName = 'nCus15'
      Size = 50
    end
    object adoxsrbd3nGoodName: TStringField
      FieldKind = fkLookup
      FieldName = 'nGoodName'
      LookupDataSet = ADOSgoos
      LookupKeyFields = 'nGdCode'
      LookupResultField = 'nGdName'
      KeyFields = 'nGoodCode'
      Size = 30
      Lookup = True
    end
  end
  object Adoxsrbm: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from  kc_Goodmaster  where nywtype='#39'销售出库'#39)
    Left = 408
    Top = 440
    object AdoxsrbmnBillid: TWideStringField
      FieldName = 'nBillid'
    end
    object AdoxsrbmnDateRk: TWideStringField
      FieldName = 'nDateRk'
    end
    object AdoxsrbmnCkCode: TWideStringField
      FieldName = 'nCkCode'
      Size = 50
    end
    object AdoxsrbmnXsDept: TWideStringField
      FieldName = 'nXsDept'
      Size = 50
    end
    object AdoxsrbmnYwMan: TWideStringField
      FieldName = 'nYwMan'
      Size = 50
    end
    object AdoxsrbmnYwType: TWideStringField
      FieldName = 'nYwType'
      Size = 50
    end
    object AdoxsrbmnCusNo: TWideStringField
      FieldName = 'nCusNo'
      Size = 50
    end
    object AdoxsrbmnGysNo: TWideStringField
      FieldName = 'nGysNo'
      Size = 80
    end
    object AdoxsrbmnShMan: TWideStringField
      FieldName = 'nShMan'
      Size = 100
    end
    object AdoxsrbmnJsMan: TWideStringField
      FieldName = 'nJsMan'
      Size = 50
    end
    object AdoxsrbmnCzMan: TWideStringField
      FieldName = 'nCzMan'
      Size = 50
    end
    object AdoxsrbmnSfTtype: TWideStringField
      FieldName = 'nSfTtype'
      Size = 50
    end
    object AdoxsrbmnSfType_DbPd: TWideStringField
      FieldName = 'nSfType_DbPd'
      Size = 50
    end
    object AdoxsrbmtiisCg_xs: TBooleanField
      FieldName = 'tiisCg_xs'
    end
    object AdoxsrbmnRedBlue: TSmallintField
      FieldName = 'nRedBlue'
    end
    object AdoxsrbmnCgDdId: TWideStringField
      FieldName = 'nCgDdId'
      Size = 50
    end
    object AdoxsrbmnBillDb: TWideStringField
      FieldName = 'nBillDb'
      Size = 50
    end
    object AdoxsrbmnMemo: TMemoField
      FieldName = 'nMemo'
      BlobType = ftMemo
    end
    object AdoxsrbmnDdID: TWideStringField
      FieldName = 'nDdID'
      Size = 50
    end
    object AdoxsrbmnJzMan: TWideStringField
      FieldName = 'nJzMan'
      Size = 50
    end
    object Adoxsrbmckname: TStringField
      FieldKind = fkLookup
      FieldName = 'ckname'
      LookupDataSet = adock
      LookupKeyFields = 'nCKTCode'
      LookupResultField = 'nCKName'
      KeyFields = 'nCkCode'
      Size = 30
      Lookup = True
    end
  end
end