selldailyfrm.~dfm

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

      Caption = 'ToolButton2'
      ImageIndex = 0
      Style = tbsSeparator
    end
    object BitBtn11: TBitBtn
      Left = 382
      Top = 2
      Width = 35
      Height = 40
      Caption = '设置'
      TabOrder = 11
      OnClick = BitBtn11Click
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000120B0000120B00000000000000000000BFBFBFBFBFBF
        BFBFBFBFBFBF000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000007F7F00000000BFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        0000007F7F007F7F00000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBF0000000000007F7F007F7F007F7F0000000000000000
        0000000000000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF000000
        7F7F007F7F007F7F00000000FFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBF0000007F7F007F7F00000000000000FFFFFFFF
        FFFF000000BFBFBFBFBFBFBFBFBFBFBFBF7F0000BFBFBFBFBFBFBFBFBF000000
        7F7F007F7F007F7F00000000FFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBF7F00
        007F0000BFBFBFBFBFBFBFBFBF0000007F7F007F7F007F7F00000000FFFFFFFF
        FFFF000000BFBFBFBFBFBF7F00007F00007F00007F00007F0000BFBFBF000000
        7F7F007F7F007F7F00000000FFFFFFFFFFFF000000BFBFBF7F00007F00007F00
        007F00007F00007F0000BFBFBF0000007F7F007F7F007F7F00000000FFFFFFFF
        FFFF000000BFBFBFBFBFBF7F00007F00007F00007F00007F0000BFBFBF000000
        7F7F007F7F00000000FFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBF7F00
        007F0000BFBFBFBFBFBFBFBFBF0000007F7F00000000FFFFFFFFFFFFFFFFFFFF
        FFFF000000BFBFBFBFBFBFBFBFBFBFBFBF7F0000BFBFBFBFBFBFBFBFBF000000
        000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBF00000000000000000000000000000000000000
        0000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF}
      Layout = blGlyphTop
    end
    object BitBtn5: TBitBtn
      Left = 417
      Top = 2
      Width = 35
      Height = 40
      Action = AExit
      Caption = '退出'
      TabOrder = 10
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000120B0000120B00000000000000000000BFBFBFBFBFBF
        BFBFBFBFBFBF000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000007F7F00000000BFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        0000007F7F007F7F00000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBF0000000000007F7F007F7F007F7F0000000000000000
        0000000000000000000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF000000
        7F7F007F7F007F7F00000000FFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBF0000007F7F007F7F00000000000000FFFFFFFF
        FFFF000000BFBFBFBFBFBFBFBFBFBFBFBF7F0000BFBFBFBFBFBFBFBFBF000000
        7F7F007F7F007F7F00000000FFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBF7F00
        007F0000BFBFBFBFBFBFBFBFBF0000007F7F007F7F007F7F00000000FFFFFFFF
        FFFF000000BFBFBFBFBFBF7F00007F00007F00007F00007F0000BFBFBF000000
        7F7F007F7F007F7F00000000FFFFFFFFFFFF000000BFBFBF7F00007F00007F00
        007F00007F00007F0000BFBFBF0000007F7F007F7F007F7F00000000FFFFFFFF
        FFFF000000BFBFBFBFBFBF7F00007F00007F00007F00007F0000BFBFBF000000
        7F7F007F7F00000000FFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBF7F00
        007F0000BFBFBFBFBFBFBFBFBF0000007F7F00000000FFFFFFFFFFFFFFFFFFFF
        FFFF000000BFBFBFBFBFBFBFBFBFBFBFBF7F0000BFBFBFBFBFBFBFBFBF000000
        000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBF00000000000000000000000000000000000000
        0000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF}
      Layout = blGlyphTop
    end
  end
  object DataSource1: TDataSource
    DataSet = Rb1
    OnDataChange = DataSource1DataChange
    Left = 557
    Top = 13
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 21
    Top = 229
  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 = 632
    Top = 160
    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 = 101
    Top = 229
    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 = 64
    Top = 225
  end
end