selldailyfrm.~dfm

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

          Visible = False
          Footers = <>
        end
        item
          Alignment = taCenter
          FieldName = '产品编码1'
          Title.Alignment = taCenter
          Title.Caption = '产品编码'
          Width = 134
          Footer.Font.Charset = ANSI_CHARSET
          Footer.Font.Color = clBlack
          Footer.Font.Height = -12
          Footer.Font.Name = '宋体'
          Footer.Font.Style = []
          Footer.ValueType = fvtStaticText
          Footer.FieldName = '产品编码1'
          Footer.Value = '合计:'
          Footers = <>
        end
        item
          ButtonStyle = cbsNone
          FieldName = '鞋别'
          Title.Alignment = taCenter
          Footer.Font.Charset = ANSI_CHARSET
          Footer.Font.Color = clBlack
          Footer.Font.Height = -12
          Footer.Font.Name = '宋体'
          Footer.Font.Style = []
          Footers = <>
        end
        item
          Alignment = taCenter
          ButtonStyle = cbsNone
          FieldName = '样式'
          Title.Alignment = taCenter
          Footer.Font.Charset = ANSI_CHARSET
          Footer.Font.Color = clBlack
          Footer.Font.Height = -12
          Footer.Font.Name = '宋体'
          Footer.Font.Style = []
          Footers = <>
        end
        item
          Alignment = taCenter
          FieldName = '数量'
          Title.Alignment = taCenter
          Title.Caption = '数量（双）'
          Width = 179
          Footer.Alignment = taCenter
          Footer.Font.Charset = ANSI_CHARSET
          Footer.Font.Color = clBlack
          Footer.Font.Height = -12
          Footer.Font.Name = '宋体'
          Footer.Font.Style = []
          Footer.ValueType = fvtSum
          Footer.FieldName = '数量'
          Footers = <>
        end
        item
          Alignment = taCenter
          FieldName = '金额'
          Title.Alignment = taCenter
          Width = 177
          Footer.Alignment = taCenter
          Footer.Font.Charset = ANSI_CHARSET
          Footer.Font.Color = clBlack
          Footer.Font.Height = -12
          Footer.Font.Name = '宋体'
          Footer.Font.Style = []
          Footer.ValueType = fvtSum
          Footer.FieldName = '金额'
          Footers = <>
        end>
    end
  end
  object DataSource1: TDataSource
    DataSet = Rb1
    OnDataChange = DataSource1DataChange
    Left = 581
    Top = 29
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 525
    Top = 157
  end
  object Rb3: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  StoreCode AS 分销店编码, '
      '        StoreName AS 分销店名称'
      'FROM xs_Store')
    Left = 645
    Top = 37
  end
  object ActionList1: TActionList
    Left = 264
    Top = 168
    object AInsert: TAction
      Caption = '新建'
      OnExecute = AInsertExecute
    end
    object AEdit: TAction
      Caption = '编辑'
      OnExecute = AEditExecute
    end
    object ADelete: TAction
      Caption = '删除'
      OnExecute = ADeleteExecute
    end
    object AAccept: TAction
      Caption = '保存'
      OnExecute = AAcceptExecute
    end
    object ACancel: TAction
      Caption = '取消'
      OnExecute = ACancelExecute
    end
    object AExit: TAction
      Caption = '退出'
      OnExecute = AExitExecute
    end
    object APrint: TAction
      Caption = '打印'
      OnExecute = APrintExecute
    end
    object AAddRow: TAction
      Caption = '增行'
      OnExecute = AAddRowExecute
    end
    object ADeleteRow: TAction
      Caption = '删行'
      OnExecute = ADeleteRowExecute
    end
    object preview: TAction
      Caption = 'preview'
      OnExecute = previewExecute
    end
  end
  object Rb5: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    Left = 701
    Top = 37
  end
  object Rb1: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'SELECT  DailyCode AS 日报编号, '
      '        StoreCode AS 分销店编码, '
      '         DateTime AS 上报时间, '
      '            Tatol AS 总数量, '
      '           Amount AS 总金额, '
      '      InputPerson AS 录入人,'
      '             memo AS 备注'
      'FROM xs_DailyMaster')
    Left = 669
    Top = 37
    object Rb1DSDesigner: TWideStringField
      FieldName = '日报编号'
      Size = 50
    end
    object Rb1DSDesigner2: TWideStringField
      FieldName = '分销店编码'
      LookupDataSet = Rb3
      KeyFields = '分销店编码'
      Size = 50
    end
    object Rb1DSDesigner3: TDateTimeField
      FieldName = '上报时间'
    end
    object Rb1DSDesigner4: TFloatField
      FieldName = '总数量'
      KeyFields = '总数量'
    end
    object Rb1DSDesigner5: TFloatField
      FieldName = '总金额'
    end
    object Rb1DSDesigner6: TWideStringField
      FieldName = '录入人'
      Size = 50
    end
    object Rb1Field: TStringField
      FieldKind = fkLookup
      FieldName = '分销店名称'
      LookupDataSet = Rb3
      LookupKeyFields = '分销店编码'
      LookupResultField = '分销店名称'
      KeyFields = '分销店编码'
      Size = 50
      Lookup = True
    end
    object Rb1DSDesigner7: TWideStringField
      FieldName = '备注'
      Size = 100
    end
  end
  object ADOQuery2: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    OnPostError = ADOQuery2PostError
    Parameters = <>
    SQL.Strings = (
      
        'SELECT DailyCode AS 日报编号, ProductCode AS 产品编码, Total AS ' +
        '数量, '
      '      Amount AS 金额'
      'FROM  xs_DailyDetail'
      ''
      '')
    Left = 461
    Top = 253
    object ADOQuery2DSDesigner: TWideStringField
      FieldName = '日报编号'
      Size = 50
    end
    object ADOQuery2DSDesigner2: TWideStringField
      FieldName = '产品编码'
      Size = 50
    end
    object ADOQuery2DSDesigner3: TFloatField
      DisplayWidth = 10
      FieldName = '数量'
      DisplayFormat = ' #0 '
    end
    object ADOQuery2DSDesigner4: TFloatField
      FieldName = '金额'
      DisplayFormat = '￥ #0.00'
    end
    object ADOQuery2StringField: TStringField
      Alignment = taCenter
      FieldKind = fkLookup
      FieldName = '鞋别'
      LookupDataSet = ADOQuery4
      LookupKeyFields = '产品编码'
      LookupResultField = '鞋别'
      KeyFields = '产品编码'
      ReadOnly = True
      Size = 16
      Lookup = True
    end
    object ADOQuery2Field: TStringField
      FieldKind = fkLookup
      FieldName = '样式'
      LookupDataSet = ADOQuery4
      LookupKeyFields = '产品编码'
      LookupResultField = '样式'
      KeyFields = '产品编码'
      ReadOnly = True
      Size = 16
      Lookup = True
    end
    object ADOQuery2Field1: TStringField
      FieldKind = fkLookup
      FieldName = '产品编码1'
      LookupDataSet = ADOQuery4
      LookupKeyFields = '产品编码'
      LookupResultField = '产品编码'
      KeyFields = '产品编码'
      Size = 50
      Lookup = True
    end
  end
  object ADOQuery4: TADOQuery
    Connection = DM.ADOConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT js_product1.shoes_num '#39'产品编码'#39',js_shoeskind1.s_name '#39'样' +
        '式'#39',js_shoeskind2.s_name '#39'鞋别'#39
      'FROM  js_product1 inner join '
      
        '      js_shoeskind1 on js_product1.shoes1_num = js_shoeskind1.s_' +
        'number'
      '      inner join '
      
        '      js_shoeskind2 on js_product1.shoes2_num = js_shoeskind2.s_' +
        'number '
      'ORDER BY js_product1.shoes_num ')
    Left = 464
    Top = 217
  end
end