u_dm.dfm

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

    Top = 370
  end
  object ADO_Order3: TADOQuery
    Parameters = <>
    SQL.Strings = (
      'select * from xs_oder3')
    Left = 225
    Top = 325
  end
  object ADOQreport: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    Left = 307
    Top = 416
  end
  object ADO_Color: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 225
    Top = 371
  end
  object ADOConnection: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=huifeng;Data Source=CJZ;Use Procedure for Prepare=1;A' +
      'uto Translate=True;Packet Size=4096;Workstation ID=JICW;Use Encr' +
      'yption for Data=False;Tag with column collation when possible=Fa' +
      'lse'
    KeepConnection = False
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    AfterConnect = ADOConnectionAfterConnect
    Left = 368
    Top = 48
  end
  object FrmFxShop: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT     StoreCode AS 分销店编码, '
      '           StoreName AS 商店名称, '
      '             Address AS 地址, '
      '      RelationMethod AS 联系方式, '
      '      RelationPerson AS 联系人, '
      '                type AS 类型,'
      '                Memo AS 备注'
      'FROM  xs_store')
    Left = 448
    Top = 24
  end
  object Adoxsrbm: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from  kc_Goodmaster  where nywtype='#39'销售出库'#39)
    Left = 424
    Top = 456
    object Adoxsrbmckname: TStringField
      FieldKind = fkLookup
      FieldName = 'ckname'
      LookupDataSet = adock
      LookupKeyFields = 'nCKTCode'
      LookupResultField = 'nCKName'
      KeyFields = 'nCkCode'
      Size = 50
      Lookup = True
    end
    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: TBooleanField
      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
  end
  object adoxsrbd: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = adoxsrbdBeforePost
    Parameters = <>
    SQL.Strings = (
      'select * from kc_gooddetail')
    Left = 480
    Top = 456
    object adoxsrbdnId: TAutoIncField
      FieldName = 'nId'
      ReadOnly = True
    end
    object adoxsrbdnGoodCode: TWideStringField
      FieldName = 'nGoodCode'
      Size = 50
    end
    object adoxsrbdnGdAddCode: TWideStringField
      FieldName = 'nGdAddCode'
      Size = 50
    end
    object adoxsrbdnGoodName: TWideStringField
      FieldName = 'nGoodName'
      Size = 50
    end
    object adoxsrbdnBillid: TWideStringField
      FieldName = 'nBillid'
      Size = 50
    end
    object adoxsrbdnfsprice: TBCDField
      FieldName = 'nfsprice'
      Precision = 18
      Size = 8
    end
    object adoxsrbdnFsCount: TBCDField
      FieldName = 'nFsCount'
      Precision = 18
      Size = 8
    end
    object adoxsrbdnFsJine: TBCDField
      FieldName = 'nFsJine'
      Precision = 18
      Size = 8
    end
    object adoxsrbditax: TIntegerField
      FieldName = 'itax'
    end
    object adoxsrbdnUnit: TWideStringField
      FieldName = 'nUnit'
    end
    object adoxsrbdnGg: TWideStringField
      FieldName = 'nGg'
      Size = 50
    end
    object adoxsrbdnMemo: TWideStringField
      FieldName = 'nMemo'
      Size = 100
    end
    object adoxsrbdnbatch: TWideStringField
      FieldName = 'nbatch'
      Size = 50
    end
    object adoxsrbdnPosition: TWideStringField
      FieldName = 'nPosition'
      Size = 50
    end
    object adoxsrbdnColor: TWideStringField
      FieldName = 'nColor'
      Size = 50
    end
    object adoxsrbdfOod: TFloatField
      FieldName = 'fOod'
    end
    object adoxsrbdnCus1: TWideStringField
      FieldName = 'nCus1'
      Size = 50
    end
    object adoxsrbdnCus2: TWideStringField
      FieldName = 'nCus2'
      Size = 50
    end
    object adoxsrbdnCus3: TWideStringField
      FieldName = 'nCus3'
      Size = 50
    end
    object adoxsrbdnCus4: TWideStringField
      FieldName = 'nCus4'
      Size = 50
    end
    object adoxsrbdnCus5: TWideStringField
      FieldName = 'nCus5'
      Size = 50
    end
    object adoxsrbdnCus6: TWideStringField
      FieldName = 'nCus6'
      Size = 50
    end
    object adoxsrbdnCus7: TWideStringField
      FieldName = 'nCus7'
      Size = 50
    end
    object adoxsrbdnCus8: TWideStringField
      FieldName = 'nCus8'
      Size = 50
    end
    object adoxsrbdnCus9: TWideStringField
      FieldName = 'nCus9'
      Size = 50
    end
    object adoxsrbdnCus10: TWideStringField
      FieldName = 'nCus10'
      Size = 50
    end
    object adoxsrbdnCus11: TWideStringField
      FieldName = 'nCus11'
      Size = 50
    end
    object adoxsrbdnCus12: TWideStringField
      FieldName = 'nCus12'
      Size = 50
    end
    object adoxsrbdnCus13: TWideStringField
      FieldName = 'nCus13'
      Size = 50
    end
    object adoxsrbdnCus14: TWideStringField
      FieldName = 'nCus14'
      Size = 50
    end
    object adoxsrbdnCus15: TWideStringField
      FieldName = 'nCus15'
      Size = 50
    end
  end
  object ADOQuery4: TADOQuery
    Parameters = <>
    Left = 408
    Top = 207
  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
    Active = True
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select  * from s_ck')
    Left = 352
    Top = 298
  end
end