u_dm.dfm

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

object DM: TDM
  OldCreateOrder = False
  Left = 65445
  Top = 15
  Height = 580
  Width = 808
  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 = 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 adoxsrbd: TADOQuery
    Connection = ADOConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = adoxsrbdBeforePost
    Parameters = <
      item
        Name = 'pm1'
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = Null
      end>
    SQL.Strings = (
      'SELECT *'
      'FROM kc_Gooddetail where'
      '     nBillid=:pm1'
      ''
      '')
    Left = 512
    Top = 442
    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 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 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
    object adoxsrbdnGoodName: TStringField
      FieldKind = fkLookup
      FieldName = 'nGoodName'
      LookupDataSet = ADOSgoos
      LookupKeyFields = 'nGdCode'
      LookupResultField = 'nGdName'
      KeyFields = 'nGoodCode'
      ProviderFlags = [pfInUpdate, pfInWhere, pfHidden]
      Size = 50
      Lookup = True
    end
    object adoxsrbdnColor: TWideStringField
      FieldName = 'nColor'
      Size = 50
    end