u_dm.~dfm

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

object DM: TDM
  OldCreateOrder = False
  Left = 65356
  Top = 86
  Height = 420
  Width = 792
  object ADOTableFHP: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'xs_FHP'
    Left = 22
    Top = 6
  end
  object ADOTableZHXD: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    AfterPost = ADOTableZHXDAfterPost
    TableName = 'xs_ZHXD'
    Left = 22
    Top = 197
  end
  object ADOTableWTS: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'xs_WTS'
    Left = 22
    Top = 293
  end
  object ADOQueryBGDChild: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    AfterPost = ADOQueryBGDChildAfterPost
    Parameters = <>
    SQL.Strings = (
      'select * from xs_BGDChild '
      ' ')
    Left = 149
    Top = 96
  end
  object ADOQueryZHXDCX: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      'select * from xs_ZHXD ')
    Left = 149
    Top = 190
  end
  object ADOQueryWTDCX: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      'select * from xs_WTS ')
    Left = 149
    Top = 289
  end
  object ADOQueryFPCX: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      'select * from xs_fhp '
      ' '
      ' '
      ' ')
    Left = 149
    Top = 3
  end
  object ADOQueryBGDCX: TADOQuery
    Connection = ADOConnection
    AfterPost = ADOQueryBGDCXAfterPost
    Parameters = <>
    SQL.Strings = (
      'select * from xs_BGD ')
    Left = 149
    Top = 46
  end
  object ADOQueryMXDCX: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      'select * from xs_MXD ')
    Left = 149
    Top = 238
  end
  object ADOQueryDDCX1: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from XS_Order1 ')
    Left = 273
    Top = 3
  end
  object ADOQueryDDCX2: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from XS_Order2')
    Left = 273
    Top = 49
  end
  object ADOQueryDDCX3: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select * from XS_Order3')
    Left = 273
    Top = 96
  end
  object ADOQueryDDCX4: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      'Select * from XS_Order4')
    Left = 273
    Top = 143
  end
  object ADOTableDD1: TADOTable
    CursorType = ctDynamic
    TableName = 'XS_Order1'
    Left = 65526
    Top = 323
    object ADOTableDD1OrderNo: TWideStringField
      FieldName = 'OrderNo'
      Size = 15
    end
    object ADOTableDD1OrderDate: TDateTimeField
      FieldName = 'OrderDate'
      DisplayFormat = 'YYYY-MM-DD'
    end
    object ADOTableDD1CoName: TWideStringField
      FieldName = 'CoName'
      Size = 50
    end
    object ADOTableDD1intype: TWideStringField
      FieldName = 'intype'
      Size = 50
    end
  end
  object ADOTableDD4: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    TableName = 'XS_Order4'
    Left = 273
    Top = 280
  end
  object ADOTableDD2: TADOTable
    AutoCalcFields = False
    CursorType = ctStatic
    IndexFieldNames = 'OrderNo'
    MasterFields = 'OrderNo'
    TableName = 'XS_Order2'
    Left = 65526
    Top = 370
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    AfterPost = ADOQuery1AfterPost
    Parameters = <>
    Prepared = True
    SQL.Strings = (
      'select * from xs_order3 ')
    Left = 449
    Top = 116
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 449
    Top = 72
  end
  object ADOTableDD3: TADOTable
    CursorType = ctStatic
    IndexFieldNames = 'OrderNo'
    MasterFields = 'OrderNo'
    TableName = 'XS_Order3'
    Left = 65526
    Top = 419
  end
  object ADOTableJS: TADOTable
    Connection = ADOConnection
    Left = 546
    Top = 282
  end
  object DataSourceJS: TDataSource
    Left = 546
    Top = 330
  end
  object ADOTableBGD: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    AfterPost = ADOTableBGDAfterPost
    TableName = 'XS_BGD'
    Left = 22
    Top = 53
  end
  object ADOTableMXD: TADOTable
    Connection = ADOConnection
    AfterPost = ADOTableMXDAfterPost
    TableName = 'XS_MXD'
    Left = 22
    Top = 245
  end
  object ADOQueryJS1: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      'select * from js_region ')
    Left = 546
    Top = 93
  end
  object ADOQueryJS2: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      'select * from js_product1 ')
    Left = 546
    Top = 139
  end
  object ADOQueryJS3: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      'select * from js_product1 ')
    Left = 546
    Top = 185
  end
  object ADOQueryJS4: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      'select * from js_color ')
    Left = 546
    Top = 233
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 449
    Top = 184
  end
  object ADOQuery2: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from xs_order4 ')
    Left = 449
    Top = 232
  end
  object ADOTable2: TADOTable
    MasterSource = DataSource1
    TableName = 'XS_Order4'
    Left = 361
    Top = 119
  end
  object ADOTableDDTJ: TADOTable
    Connection = ADOConnection
    IndexFieldNames = 'orderdate'
    TableName = 'xs_ordertj'
    Left = 273
    Top = 187
  end
  object ADOQueryddtj1: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      'Select * from XS_Order2')
    Left = 273
    Top = 234
  end
  object ADOQuery3: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 225
    Top = 417
  end
  object ADOQuerySGOODS: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      'select * from s_goods ')
    Left = 546
    Top = 378
  end
  object DataSourceBGJC: TDataSource
    DataSet = ADOTableBGJC
    OnDataChange = DataSourceBGJCDataChange
    Left = 117
    Top = 318
  end
  object ADOTableBGJC: TADOTable
    Connection = ADOConnection
    TableName = 'xs_bgjc'
    Left = 22
    Top = 149
  end
  object ADOQueryBGJC: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      'select * from xs_bgjc')
    Left = 149
    Top = 142
  end
  object PubQry: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    Left = 546
    Top = 2
  end
  object ADOTableBGDchild: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    IndexFieldNames = 'DingDanNo'
    MasterFields = 'DingDanNo'
    TableName = 'XS_BGDChild'
    Left = 22
    Top = 101
  end
  object ADOQueryDD2: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      'select * from xs_order2')
    Left = 117
    Top = 368
  end
  object ADOQueryDD3: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      'select * from xs_order3')
    Left = 125
    Top = 416
  end
  object ADOQKC: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      'select * from s_Customer')
    Left = 546
    Top = 48
  end
  object ADOQueryTemp: TADOQuery
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 307
    Top = 324
  end
  object ADOQuerySize: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    SQL.Strings = (
      '')
    Left = 307
    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
    KeepConnection = False
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    AfterConnect = ADOConnectionAfterConnect
    Left = 360
    Top = 32
  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 xs_rbm')
    Left = 424
    Top = 456
    object Adoxsrbmid: TBCDField
      FieldName = 'id'
      ReadOnly = True
      Precision = 18
      Size = 0
    end
    object Adoxsrbmsxsrbno: TWideStringField
      FieldName = 'sxsrbno'
    end
    object Adoxsrbmsclientno: TWideStringField
      FieldName = 'sclientno'
    end
    object Adoxsrbmdrbdate: TDateTimeField
      FieldName = 'drbdate'
    end
    object Adoxsrbmsmemo: TWideStringField
      FieldName = 'smemo'
      Size = 50
    end
    object Adoxsrbmname: TStringField
      FieldKind = fkLookup
      FieldName = 'name'
      LookupDataSet = adoclient
      LookupKeyFields = 'nCCode'
      LookupResultField = 'nCName'
      KeyFields = 'sclientno'
      Size = 150
      Lookup = True
    end
  end
  object adoxsrbd: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = adoxsrbdBeforePost
    Parameters = <>
    SQL.Strings = (
      'select * from xs_rbd')
    Left = 480
    Top = 456
    object adoxsrbdId: TWideStringField
      FieldName = 'Id'
      Size = 50
    end
    object adoxsrbdsgoodno: TWideStringField
      FieldName = 'sgoodno'
      OnSetText = adoxsrbdsgoodnoSetText
    end
    object adoxsrbdscolor: TWideStringField
      FieldName = 'scolor'
      Size = 50
    end
    object adoxsrbdnprice: TBCDField
      FieldName = 'nprice'
      Precision = 19
      Size = 2
    end
    object adoxsrbdndw: TWideStringField
      FieldName = 'ndw'
      Size = 15
    end
    object adoxsrbdntotal: TBCDField
      FieldName = 'ntotal'
      Precision = 18
      Size = 2
    end
    object adoxsrbdsmemo: TWideStringField
      FieldName = 'smemo'
      Size = 50
    end
    object adoxsrbdndd1: TBCDField
      FieldName = 'ndd1'
      Precision = 18
      Size = 0
    end
    object adoxsrbdndd2: TBCDField
      FieldName = 'ndd2'
      Precision = 18
      Size = 0
    end
    object adoxsrbdndd3: TBCDField
      FieldName = 'ndd3'
      Precision = 18
      Size = 0
    end
    object adoxsrbdndd4: TBCDField
      FieldName = 'ndd4'
      Precision = 18
      Size = 0
    end
    object adoxsrbdndd5: TBCDField
      FieldName = 'ndd5'
      Precision = 18
      Size = 0
    end
    object adoxsrbdndd6: TBCDField
      FieldName = 'ndd6'
      Precision = 18
      Size = 0
    end
    object adoxsrbdndd7: TBCDField
      FieldName = 'ndd7'
      Precision = 18
      Size = 0
    end
    object adoxsrbdndd8: TBCDField
      FieldName = 'ndd8'
      Precision = 18
      Size = 0
    end
    object adoxsrbdndd9: TBCDField
      FieldName = 'ndd9'
      Precision = 18
      Size = 0
    end
    object adoxsrbdndd10: TBCDField
      FieldName = 'ndd10'
      Precision = 18
      Size = 0
    end
    object adoxsrbdndd11: TBCDField
      FieldName = 'ndd11'
      Precision = 18
      Size = 0
    end
    object adoxsrbdndd12: TBCDField
      FieldName = 'ndd12'
      Precision = 18
      Size = 0
    end
    object adoxsrbdndd13: TBCDField
      FieldName = 'ndd13'
      Precision = 18
      Size = 0
    end
    object adoxsrbdndd14: TBCDField
      FieldName = 'ndd14'
      Precision = 18
      Size = 0
    end
    object adoxsrbdndd15: TBCDField
      FieldName = 'ndd15'
      Precision = 18
      Size = 0
    end
    object adoxsrbdndd16: TWideStringField
      FieldName = 'ndd16'
      Size = 50
    end
    object adoxsrbdndd17: TWideStringField
      FieldName = 'ndd17'
      Size = 50
    end
    object adoxsrbdamount: TBCDField
      FieldName = 'amount'
      Precision = 18
      Size = 0
    end
  end
  object ADOQuery4: TADOQuery
    Parameters = <>
    Left = 528
    Top = 200
  end
  object adoclient: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select  * from s_customer')
    Left = 368
    Top = 303
  end
  object adoxsbm: TADOQuery
    Parameters = <>
    Left = 536
    Top = 296
  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
end