uorder.dfm

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

          Footers = <>
        end
        item
          Color = clWhite
          FieldName = 'Total'
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Width = 53
          Footer.Alignment = taRightJustify
          Footer.ValueType = fvtSum
          Footer.FieldName = 'Total'
          Footers = <>
        end>
    end
    object DBGridEh4: TDBGridEh
      Left = 32
      Top = 34
      Width = 276
      Height = 157
      TabStop = False
      Color = clInfoBk
      DataSource = DataSourceDD3
      FixedColor = clWhite
      ReadOnly = True
      TabOrder = 11
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      FooterRowCount = 1
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = '宋体'
      FooterFont.Style = []
      FooterColor = clInfoBk
      SumList.Active = True
      OptionsEh = [dghFixed3D, dghFrozen3D, dghHighlightFocus, dghClearSelection]
      Columns = <
        item
          Color = clWhite
          FieldName = 'R_name'
          Title.Alignment = taCenter
          Title.Caption = '款式'
          Width = 54
          Footer.Alignment = taCenter
          Footer.ValueType = fvtStaticText
          Footer.Value = '合 计'
          Footers = <>
        end
        item
          Color = clWhite
          FieldName = 'ShoesNo'
          Title.Alignment = taCenter
          Title.Caption = '编号'
          Width = 59
          Footers = <>
        end
        item
          Color = clWhite
          FieldName = 'Color'
          Title.Alignment = taCenter
          Title.Caption = '颜色'
          Width = 48
          Footers = <>
        end
        item
          Color = clWhite
          FieldName = 'Size'
          Title.Alignment = taCenter
          Title.Caption = '尺码'
          Width = 30
          Footers = <>
        end
        item
          Color = clWhite
          FieldName = 'Amount'
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Width = 59
          Footer.ValueType = fvtSum
          Footer.FieldName = 'Amount'
          Footers = <>
        end>
    end
  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 = 530
    Top = 172
  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 = 312
    Top = 122
  end
  object myAdo: TADOQuery
    Connection = DM.ADOConnection
    Parameters = <>
    SQL.Strings = (
      'select * from xs_order3 ')
    Left = 560
    Top = 335
  end
  object DataSource1: TDataSource
    DataSet = ImageSql
    Left = 530
    Top = 144
  end
  object DataSourceDD4: TDataSource
    Left = 532
    Top = 343
  end
  object DSDD2: TDataSource
    DataSet = ADOQueryNDD2
    OnDataChange = DSDD2DataChange
    Left = 489
    Top = 160
  end
  object ADOQueryNDD2: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'pm1'
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 15
        Value = '%'
      end>
    SQL.Strings = (
      'select * from xs_order2 where orderno=:pm1')
    Left = 461
    Top = 160
  end
  object ADOQueryNDD3: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'pm1'
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 15
        Value = '%'
      end
      item
        Name = 'pm2'
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = '%'
      end>
    SQL.Strings = (
      'select * from xs_order3 where orderno=:pm1 and R_name=:pm2')
    Left = 216
    Top = 335
  end
  object DataSourceDD3: TDataSource
    DataSet = ADOQueryNDD3
    OnDataChange = DataSourceDD3DataChange
    Left = 244
    Top = 335
  end
  object DataSourceDD1: TDataSource
    DataSet = ADOQueryNDD1
    Left = 76
    Top = 40
  end
  object ImageSql: TADOQuery
    Parameters = <
      item
        Name = 'OrderNo'
        DataType = ftString
        Value = ''
      end
      item
        Name = 'R_Name'
        DataType = ftString
        Value = ''
      end>
    SQL.Strings = (
      'select Picture from xs_Order2'
      'where orderNo=:OrderNo and R_Name=:R_Name')
    Left = 558
    Top = 144
  end
  object ADOQueryNDD1: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'pm1'
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 15
        Value = '%'
      end>
    SQL.Strings = (
      'select * from xs_order1 where OrderNo =:pm1 ')
    Left = 104
    Top = 40
  end
  object DSkh: TDataSource
    DataSet = ADOQkh
    Left = 280
    Top = 40
  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 = 408
    Top = 48
  end
  object DSks: TDataSource
    DataSet = ADOQks
    Left = 184
    Top = 92
  end
  object DSxx: TDataSource
    DataSet = ADOQxx
    Left = 384
    Top = 76
  end
  object DScolor: TDataSource
    DataSet = ADOcolor
    Left = 232
    Top = 298
  end
  object ADOQkh: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select ncname from s_customer')
    Left = 248
    Top = 40
  end
  object ADOQxx: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select X_number from js_xuan2')
    Left = 384
    Top = 104
  end
  object ADOcolor: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'pm1'
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      
        'SELECT Js_Color.Co_name, Js_product1.Style_num,Js_product1.shoes' +
        '_num'
      'FROM Js_Color INNER JOIN'
      '      Js_product1 ON Js_Color.Co_short = Js_product1.color_num'
      'WHERE Js_product1.Style_num = :pm1 ')
    Left = 260
    Top = 298
  end
  object ADOQks: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select R_name from js_region')
    Left = 184
    Top = 120
  end
  object ADOQuery1: TADOQuery
    Connection = DM.ADOConnection
    Parameters = <
      item
        Name = 'pm1'
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'pm2'
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 40
        Value = Null
      end>
    SQL.Strings = (
      
        'select shoes_num from js_product1 where style_num=:pm1 and color' +
        '_num=:pm2')
    Left = 152
    Top = 309
  end
  object DSorder4: TDataSource
    DataSet = ADOQorder4
    Left = 552
    Top = 301
  end
  object ADOQorder4: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'pm1'
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 15
        Value = '%'
      end>
    SQL.Strings = (
      'select * from xs_order4 where orderno=:pm1')
    Left = 581
    Top = 301
  end
  object ADOSPcal: TADOStoredProc
    Connection = DM.ADOConnection
    ProcedureName = 'xs_calnumber;1'
    Parameters = <
      item
        Name = '@RETURN_VALUE'
        DataType = ftInteger
        Direction = pdReturnValue
        Precision = 10
        Value = Null
      end
      item
        Name = '@orderno'
        Attributes = [paNullable]
        DataType = ftFixedChar
        Size = 15
        Value = Null
      end>
    Left = 616
    Top = 301
  end
  object ADOQuerydy: TADOQuery
    Connection = DM.ADOConnection
    Parameters = <>
    Left = 336
  end
end