uorder.~dfm

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

        0000000000000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF000000
        7F7F007F7F007F7F00000000FFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBF0000007F7F007F7F00000000000000FFFFFFFF
        FFFF000000BFBFBFBFBFBFBFBFBFBFBFBF7F0000BFBFBFBFBFBFBFBFBF000000
        7F7F007F7F007F7F00000000FFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBF7F00
        007F0000BFBFBFBFBFBFBFBFBF0000007F7F007F7F007F7F00000000FFFFFFFF
        FFFF000000BFBFBFBFBFBF7F00007F00007F00007F00007F0000BFBFBF000000
        7F7F007F7F007F7F00000000FFFFFFFFFFFF000000BFBFBF7F00007F00007F00
        007F00007F00007F0000BFBFBF0000007F7F007F7F007F7F00000000FFFFFFFF
        FFFF000000BFBFBFBFBFBF7F00007F00007F00007F00007F0000BFBFBF000000
        7F7F007F7F00000000FFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBF7F00
        007F0000BFBFBFBFBFBFBFBFBF0000007F7F00000000FFFFFFFFFFFFFFFFFFFF
        FFFF000000BFBFBFBFBFBFBFBFBFBFBFBF7F0000BFBFBFBFBFBFBFBFBF000000
        000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBF00000000000000000000000000000000000000
        0000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF}
      Layout = blGlyphTop
    end
  end
  object DBComboBox1: TDBComboBox
    Left = 224
    Top = 69
    Width = 129
    Height = 20
    DataField = 'CoName'
    DataSource = DataSourceDD1
    ItemHeight = 12
    TabOrder = 4
    OnDropDown = DBComboBox1DropDown
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Filter = 
      'All (*.jpg;*.jpeg;*.bmp)|*.jpg;*.jpeg;*.bmp;|JPEG Image File (*.' +
      'jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg|Bitmaps (*.bmp)|*.bmp'
    Left = 442
    Top = 196
  end
  object OpenPictureDialog2: TOpenPictureDialog
    Filter = 
      'All (*.jpg;*.jpeg;*.bmp)|*.jpg;*.jpeg;*.bmp|CompuServe GIF Image' +
      ' (*.gif)|*.gif|JPEG Image File (*.jpg)|*.jpg|JPEG Image File (*.' +
      'jpeg)|*.jpeg|Bitmaps (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced ' +
      'Metafiles (*.emf)|*.emf|Metafiles (*.wmf)|*.wmf'
    Left = 448
    Top = 218
  end
  object myAdo: TADOQuery
    Connection = DM.ADOConnection
    Parameters = <>
    SQL.Strings = (
      'select * from xs_order3 ')
    Left = 608
    Top = 343
  end
  object DataSourceDD4: TDataSource
    Left = 564
    Top = 303
  end
  object DSDD2: TDataSource
    DataSet = ADOQueryNDD2
    OnDataChange = DSDD2DataChange
    Left = 33
    Top = 160
  end
  object ADOQueryNDD2: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    OnNewRecord = ADOQueryNDD2NewRecord
    Parameters = <>
    SQL.Strings = (
      'select * from xs_order2 ')
    Left = 61
    Top = 160
    object ADOQueryNDD2OrderNo: TWideStringField
      FieldName = 'OrderNo'
      Size = 15
    end
    object ADOQueryNDD2R_name: TWideStringField
      FieldName = 'R_name'
      Size = 10
    end
    object ADOQueryNDD2Make: TWideStringField
      FieldName = 'Make'
      Size = 50
    end
    object ADOQueryNDD2Amount: TIntegerField
      FieldName = 'Amount'
    end
    object ADOQueryNDD2Face: TWideStringField
      FieldName = 'Face'
    end
    object ADOQueryNDD2Brand: TBlobField
      FieldName = 'Brand'
      BlobType = ftBlob
    end
    object ADOQueryNDD2Model: TWideStringField
      FieldName = 'Model'
    end
    object ADOQueryNDD2Overdate: TDateTimeField
      FieldName = 'Overdate'
    end
    object ADOQueryNDD2InPerson: TWideStringField
      FieldName = 'InPerson'
      Size = 10
    end
    object ADOQueryNDD2Picture: TBlobField
      FieldName = 'Picture'
      BlobType = ftBlob
    end
    object ADOQueryNDD2ZlDate: TDateTimeField
      FieldName = 'ZlDate'
    end
    object ADOQueryNDD2ScDate: TDateTimeField
      FieldName = 'ScDate'
    end
    object ADOQueryNDD2SendDate: TDateTimeField
      FieldName = 'SendDate'
    end
    object ADOQueryNDD2SCOverdate: TDateTimeField
      FieldName = 'SCOverdate'
    end
    object ADOQueryNDD2MadePlanning: TBooleanField
      FieldName = 'MadePlanning'
    end
  end
  object DataSourceDD3: TDataSource
    DataSet = ADOTable1
    Left = 20
    Top = 343
  end
  object DataSourceDD1: TDataSource
    DataSet = ADOQueryNDD1
    Left = 76
    Top = 48
  end
  object ADOQueryNDD1: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'select * from xs_order1')
    Left = 104
    Top = 48
    object ADOQueryNDD1OrderNo: TWideStringField
      FieldName = 'OrderNo'
      Size = 15
    end
    object ADOQueryNDD1OrderDate: TDateTimeField
      FieldName = 'OrderDate'
    end
    object ADOQueryNDD1CoName: TWideStringField
      FieldName = 'CoName'
      Size = 50
    end
    object ADOQueryNDD1CgOverDate: TDateTimeField
      FieldName = 'CgOverDate'
    end
    object ADOQueryNDD1Amount: TIntegerField
      FieldName = 'Amount'
    end
    object ADOQueryNDD1InPerson: TWideStringField
      FieldName = 'InPerson'
      Size = 30
    end
  end
  object DSkh: TDataSource
    DataSet = ADOQkh
    Left = 280
    Top = 48
  end
  object ADOSPdelorder: TADOStoredProc
    Connection = DM.ADOConnection
    ProcedureName = 'xs_delorder;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@Orderno'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Size = 50
        Value = Null
      end>
    Left = 544
    Top = 56
  end
  object DSks: TDataSource
    DataSet = ADOQks
    Left = 152
    Top = 44
  end
  object DSxx: TDataSource
    DataSet = ADOTable2
    OnDataChange = DSxxDataChange
    Left = 480
    Top = 124
  end
  object DScolor: TDataSource
    DataSet = ADOcolor
    Left = 344
    Top = 282
  end
  object ADOQkh: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select ncname from s_customer')
    Left = 248
    Top = 48
  end
  object ADOcolor: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT Js_Color.Co_name,Js_Color.Co_short, Js_product1.Style_num' +
        ',Js_product1.shoes_num'
      'FROM Js_Color INNER JOIN'
      '      Js_product1 ON Js_Color.Co_short = Js_product1.color_num'
      '')
    Left = 396
    Top = 258
    object ADOcolorCo_name: TWideStringField
      FieldName = 'Co_name'
      Size = 40
    end
    object ADOcolorStyle_num: TWideStringField
      FieldName = 'Style_num'
      Size = 10
    end
    object ADOcolorshoes_num: TWideStringField
      FieldName = 'shoes_num'
      Size = 50
    end
    object ADOcolorCo_short: TWideStringField
      FieldName = 'Co_short'
      Size = 40
    end
  end
  object ADOQks: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select R_name from js_region')
    Left = 184
    Top = 48
  end
  object DSorder4: TDataSource
    DataSet = ADOQorder4
    Left = 544
    Top = 245
  end
  object ADOQorder4: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = ADOQorder4BeforePost
    Parameters = <>
    SQL.Strings = (
      'select * from xs_order4 ')
    Left = 573
    Top = 245
  end
  object ADOSPcal: TADOStoredProc
    Connection = DM.ADOConnection
    ProcedureName = 'xs_calnumber;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = 0
      end
      item
        Name = '@orderno'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Size = 15
        Value = Null
      end>
    Left = 632
    Top = 277
  end
  object ADOQuerydy: TADOQuery
    Connection = DM.ADOConnection
    Parameters = <>
    Left = 584
    Top = 24
  end
  object ADOTable1: TADOTable
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Filtered = True
    LockType = ltBatchOptimistic
    MaxRecords = 20000
    OnNewRecord = ADOTable1NewRecord
    IndexFieldNames = 'OrderNo;R_name'
    MasterFields = 'OrderNo;R_name'
    MasterSource = DSDD2
    TableName = 'XS_Order3'
    Left = 49
    Top = 344
    object ADOTable1OrderNo: TWideStringField
      FieldName = 'OrderNo'
      Size = 15
    end
    object ADOTable1R_name: TWideStringField
      FieldName = 'R_name'
      Size = 10
    end
    object ADOTable1ShoesNo: TWideStringField
      FieldName = 'ShoesNo'
      Size = 50
    end
    object ADOTable1Color: TWideStringField
      FieldName = 'Color'
      Size = 40
    end
    object ADOTable1Face: TWideStringField
      FieldName = 'Face'
      Size = 50
    end
    object ADOTable1Size: TWideStringField
      FieldName = 'Size'
      Size = 10
    end
    object ADOTable1Amount: TIntegerField
      FieldName = 'Amount'
    end
    object ADOTable1coname: TStringField
      FieldKind = fkLookup
      FieldName = 'coname'
      LookupDataSet = ADOcolor
      LookupKeyFields = 'Co_short'
      LookupResultField = 'Co_name'
      KeyFields = 'Color'
      Size = 30
      Lookup = True
    end
  end
  object ADOTable2: TADOTable
    Connection = DM.ADOConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    IndexFieldNames = 'R_name'
    MasterFields = 'R_name'
    MasterSource = DSDD2
    TableName = 'Js_region'
    Left = 512
    Top = 125
  end
end