dailyproductfindfrm.dfm

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

inherited DailyProductFindForm: TDailyProductFindForm
  Left = 1
  Top = 1
  Width = 798
  Height = 470
  Caption = 'DailyProductFindForm'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited Panel1: TPanel
    Width = 790
    inherited Image1: TImage
      Width = 790
    end
  end
  inherited Panel2: TPanel
    Width = 790
    object Label1: TLabel [2]
      Left = 372
      Top = 18
      Width = 48
      Height = 12
      Caption = '产品编码'
    end
    inherited BitBtn4: TBitBtn
      TabOrder = 6
    end
    object cbProductCode: TComboBox
      Left = 424
      Top = 16
      Width = 145
      Height = 20
      ItemHeight = 12
      TabOrder = 5
      Text = 'cbProductCode'
      OnChange = cbProductCodeChange
    end
  end
  inherited Panel3: TPanel
    Width = 790
    Height = 346
    inherited LCount: TLabel
      Width = 778
    end
    inherited DBGridEh1: TDBGridEh
      Width = 778
      Height = 322
      FooterRowCount = 1
      FooterColor = clInfoBk
      Columns = <
        item
          Alignment = taCenter
          FieldName = '日报编码'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.TitleButton = True
          Width = 92
          Footer.Font.Charset = GB2312_CHARSET
          Footer.Font.Color = clBlack
          Footer.Font.Height = -12
          Footer.Font.Name = '宋体'
          Footer.Font.Style = []
          Footer.ValueType = fvtStaticText
          Footer.Value = '合计:'
          KeyList.Strings = ()
          Footers = <>
        end
        item
          Alignment = taCenter
          FieldName = '上报时间'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.TitleButton = True
          Width = 99
          Footer.Font.Charset = GB2312_CHARSET
          Footer.Font.Color = clBlack
          Footer.Font.Height = -12
          Footer.Font.Name = '宋体'
          Footer.Font.Style = []
          KeyList.Strings = ()
          Footers = <>
        end
        item
          Alignment = taCenter
          FieldName = '分销店名称'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.TitleButton = True
          Width = 93
          Footer.Font.Charset = GB2312_CHARSET
          Footer.Font.Color = clBlack
          Footer.Font.Height = -12
          Footer.Font.Name = '宋体'
          Footer.Font.Style = []
          KeyList.Strings = ()
          Footers = <>
        end
        item
          Alignment = taCenter
          FieldName = '产品编码'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.TitleButton = True
          Width = 112
          Footer.Font.Charset = GB2312_CHARSET
          Footer.Font.Color = clBlack
          Footer.Font.Height = -12
          Footer.Font.Name = '宋体'
          Footer.Font.Style = []
          KeyList.Strings = ()
          Footers = <>
        end
        item
          Alignment = taCenter
          FieldName = '数量'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.TitleButton = True
          Width = 67
          Footer.Font.Charset = GB2312_CHARSET
          Footer.Font.Color = clBlack
          Footer.Font.Height = -12
          Footer.Font.Name = '宋体'
          Footer.Font.Style = []
          Footer.ValueType = fvtSum
          Footer.FieldName = '数量'
          KeyList.Strings = ()
          Footers = <>
        end
        item
          Alignment = taCenter
          FieldName = '金额'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Title.TitleButton = True
          Width = 69
          Footer.Font.Charset = GB2312_CHARSET
          Footer.Font.Color = clBlack
          Footer.Font.Height = -12
          Footer.Font.Name = '宋体'
          Footer.Font.Style = []
          Footer.ValueType = fvtSum
          Footer.FieldName = '金额'
          KeyList.Strings = ()
          Footers = <>
        end
        item
          Alignment = taCenter
          FieldName = '备注'
          PickList.Strings = ()
          Title.Alignment = taCenter
          Width = 92
          Footer.Font.Charset = GB2312_CHARSET
          Footer.Font.Color = clBlack
          Footer.Font.Height = -12
          Footer.Font.Name = '宋体'
          Footer.Font.Style = []
          KeyList.Strings = ()
          Footers = <>
        end>
    end
  end
  inherited ActionList1: TActionList
    Left = 384
    Top = 73
    inherited APrint: TAction
      OnExecute = APrintExecute
    end
    inherited AReview: TAction
      OnExecute = AReviewExecute
    end
  end
  inherited ADOQuery1: TADOQuery
    CursorType = ctStatic
    SQL.Strings = (
      'select xs_dailyMaster.dailyCode '#39'日报编码'#39',               '
      'xs_store.storeName '#39'分销店名称'#39',                   '
      'xs_dailyMaster.DateTime  '#39'上报时间'#39',               '
      'xs_dailyDetail.productCode '#39'产品编码'#39',             '
      'js_shoeskind1.s_name '#39'样式'#39',                       '
      'js_shoeskind2.s_name '#39'鞋别'#39',                       '
      'xs_dailyDetail.Total    '#39'数量'#39',                   '
      'xs_dailyDetail.Amount    '#39'金额'#39','
      'xs_dailyMaster.memo '#39'备注'#39'                    '
      'from xs_dailyMaster inner join xs_dailyDetail        '
      'on Xs_dailyMaster.DailyCode = Xs_dailyDetail.DailyCode'
      'Left outer join xs_store on                           '
      'xs_dailyMaster.StoreCode = xs_store.StoreCode         '
      'inner join js_product1 on                             '
      'js_product1.shoes_num = xs_dailyDetail.productCode     '
      '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        ')
    Left = 360
    Top = 265
    object ADOQuery1DSDesigner: TWideStringField
      FieldName = '日报编码'
      Size = 50
    end
    object ADOQuery1DSDesigner2: TWideStringField
      FieldName = '分销店名称'
      Size = 50
    end
    object ADOQuery1DSDesigner3: TDateTimeField
      FieldName = '上报时间'
    end
    object ADOQuery1DSDesigner4: TWideStringField
      FieldName = '产品编码'
      Size = 50
    end
    object ADOQuery1DSDesigner7: TFloatField
      FieldName = '数量'
      DisplayFormat = '#0 双'
    end
    object ADOQuery1DSDesigner8: TFloatField
      FieldName = '金额'
      DisplayFormat = '￥ #0.00'
    end
    object ADOQuery1DSDesigner9: TWideStringField
      FieldName = '备注'
      Size = 100
    end
  end
  inherited DataSource1: TDataSource
    Left = 320
    Top = 265
  end
  object ADOQuery2: TADOQuery
    Connection = DM.ADOConnection
    Parameters = <>
    Left = 424
    Top = 73
  end
end