jm_xsqktj.dfm

省级集邮品管理ERP

object frm_XSQKTJ: Tfrm_XSQKTJ
  Left = -15
  Top = 64
  BorderStyle = bsDialog
  Caption = '集邮门市管理'
  ClientHeight = 581
  ClientWidth = 800
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 800
    Height = 59
    Align = alTop
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 0
    object XttxTitle: TRxLabel
      Left = 1
      Top = 1
      Width = 798
      Height = 29
      Align = alTop
      Alignment = taCenter
      Caption = '销售情况统计'
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -29
      Font.Name = '楷体_GB2312'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object Lbl_user: TLabel
      Left = 9
      Top = 38
      Width = 48
      Height = 12
      Caption = '操作员：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 59
    Width = 800
    Height = 522
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Label6: TLabel
      Left = 12
      Top = 12
      Width = 48
      Height = 12
      Caption = '销售情况'
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 631
      Height = 522
      Align = alClient
      BevelOuter = bvLowered
      TabOrder = 0
      object DBGrid1: TDBGrid
        Left = 1
        Top = 1
        Width = 629
        Height = 520
        Align = alClient
        DataSource = DataSource1
        PopupMenu = data.pm_Export
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ZH'
            Title.Alignment = taCenter
            Title.Caption = '志号'
            Width = 51
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PPMC'
            Title.Caption = '名称'
            Width = 65
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SJ'
            Title.Caption = '售价'
            Width = 38
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SUM(LSSL)'
            Title.Caption = '零售数量'
            Width = 57
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SUM(LSJE)'
            Title.Caption = '零售金额'
            Width = 61
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SUM(CKLSSL)'
            Title.Caption = '奖品票数量'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SUM(CKLSJE)'
            Title.Caption = '奖品票金额'
            Width = 69
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SUM(CKYSSL)'
            Title.Caption = '预售数量'
            Width = 58
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SUM(CKYSJE)'
            Title.Caption = '预售金额'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SUM(JSJE)'
            Title.Caption = '加收金额'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SUM(TBJE)'
            Title.Caption = '退补金额'
            Visible = True
          end>
      end
    end
    object Panel3: TPanel
      Left = 631
      Top = 0
      Width = 169
      Height = 522
      Align = alRight
      BevelOuter = bvLowered
      TabOrder = 1
      object GroupBox2: TGroupBox
        Left = 7
        Top = 4
        Width = 156
        Height = 101
        Caption = '查询范围'
        TabOrder = 0
        object CheckBox1: TCheckBox
          Left = 22
          Top = 28
          Width = 65
          Height = 17
          Caption = '集邮票'
          Checked = True
          State = cbChecked
          TabOrder = 0
        end
        object CheckBox2: TCheckBox
          Left = 22
          Top = 51
          Width = 97
          Height = 17
          Caption = '集邮品'
          TabOrder = 1
        end
        object CheckBox3: TCheckBox
          Left = 22
          Top = 74
          Width = 97
          Height = 17
          Caption = '购入票'
          TabOrder = 2
        end
      end
      object GroupBox1: TGroupBox
        Left = 7
        Top = 109
        Width = 157
        Height = 249
        Caption = '查询条件'
        TabOrder = 1
        object Label1: TLabel
          Left = 23
          Top = 21
          Width = 48
          Height = 12
          Caption = '起始日期'
        end
        object Label2: TLabel
          Left = 23
          Top = 72
          Width = 48
          Height = 12
          Caption = '截止日期'
        end
        object CBo_PP: TCheckBox
          Left = 23
          Top = 198
          Width = 101
          Height = 14
          Caption = '按票品查询'
          TabOrder = 0
          OnClick = CBo_PPClick
        end
        object YzppSelect: TYzppSelect
          Left = 23
          Top = 221
          Width = 115
          Height = 20
          Enabled = False
          TabOrder = 1
          DatabaseName = 'yzpp'
          PPLX = lx_custom
          SQL.Strings = (
            
              'SELECT a.Tdm, a.zh, a.TJC, b.mc FROM TB_YZPPTXXB a, TG_YZPPTZDM ' +
              'b  '
            ' where substr(a.TDM, 10, 2) = b.TZDM(+)  order by zh')
          Title_Str = '面值(元)'
          OnEnter = CBo_PPClick
          DropDownCount = 8
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          Color = clWindow
          ShowHint = False
          ReadOnly = False
        end
        object DEd_from: TDateEdit
          Left = 23
          Top = 42
          Width = 115
          Height = 21
          NumGlyphs = 2
          PopupFont.Charset = DEFAULT_CHARSET
          PopupFont.Color = clWindowText
          PopupFont.Height = -11
          PopupFont.Name = 'MS Sans Serif'
          PopupFont.Style = []
          YearDigits = dyFour
          TabOrder = 2
        end
        object DEd_to: TDateEdit
          Left = 23
          Top = 93
          Width = 115
          Height = 21
          NumGlyphs = 2
          PopupFont.Charset = DEFAULT_CHARSET
          PopupFont.Color = clWindowText
          PopupFont.Height = -11
          PopupFont.Name = 'MS Sans Serif'
          PopupFont.Style = []
          YearDigits = dyFour
          TabOrder = 3
        end
        object RB_YYY: TRadioButton
          Left = 23
          Top = 147
          Width = 115
          Height = 17
          Caption = '营业员销售'
          Checked = True
          TabOrder = 4
          TabStop = True
        end
        object cmbYYY: TComboBox
          Left = 23
          Top = 169
          Width = 115
          Height = 20
          ItemHeight = 12
          TabOrder = 5
        end
        object RB_BDW: TRadioButton
          Left = 23
          Top = 122
          Width = 115
          Height = 17
          Caption = '本单位销售'
          TabOrder = 6
        end
      end
      object btnFind: TButton
        Left = 55
        Top = 376
        Width = 75
        Height = 29
        Caption = '查询'
        TabOrder = 2
        OnClick = btnFindClick
      end
      object btnPrint: TButton
        Left = 55
        Top = 405
        Width = 75
        Height = 29
        Caption = '打印'
        TabOrder = 3
        OnClick = btnPrintClick
      end
      object btnEdit: TButton
        Left = 55
        Top = 434
        Width = 75
        Height = 29
        Caption = '退出'
        ModalResult = 1
        TabOrder = 4
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = rxQry_find
    Left = 220
    Top = 133
  end
  object rxQry_find: TRxQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'SELECT A.*,B.TMC PPMC,B.ZH FROM (select ppdm,lb,sj,sum(lssl),sum' +
        '(lsje),sum(CKLSSL), sum(CKLSJE), sum(CKYSSL), sum(CKYSJE), sum(J' +
        'SJE), sum(TBJE) from tm_xsqkmx where (ppdm,lb) in (select ppdm,l' +
        'b '
      ' from tm_jymxb  where jylx='#39'ls'#39') group by ppdm,lb,sj '
      'union '
      
        'select ppdm,lb,sj,sum(lssl),sum(lsje),sum(CKLSSL), sum(CKLSJE), ' +
        'sum(CKYSSL), sum(CKYSJE), sum(JSJE), sum(TBJE) from tm_xsqkmx wh' +
        'ere (ppdm,lb) in (select ppdm,lb'
      'from tm_jymxb where jylx='#39'tb'#39') group by ppdm,lb,sj  '
      ' union '
      
        'select ppdm,lb,sj,sum(lssl),sum(lsje),sum(CKLSSL), sum(CKLSJE), ' +
        'sum(CKYSSL), sum(CKYSJE), sum(JSJE), sum(TBJE) from tm_xsqkmx wh' +
        'ere (ppdm,lb) in (select ppdm,lb'
      
        ' from tm_jymxb where jylx='#39'js'#39') group by ppdm,lb,sj ) A,TB_YZPPX' +
        'XB B WHERE A.PPDM=B.TDM '
      ' order by ppdm,lb ')
    Macros = <>
    Left = 184
    Top = 173
    object rxQry_findPPDM: TStringField
      FieldName = 'PPDM'
      Size = 15
    end
    object rxQry_findLB: TStringField
      FieldName = 'LB'
      Size = 5
    end
    object rxQry_findSJ: TFloatField
      FieldName = 'SJ'
      OnGetText = rxQry_findSJGetText
      OnSetText = rxQry_findSJSetText
    end
    object rxQry_findSUMLSSL: TFloatField
      FieldName = 'SUM(LSSL)'
      DisplayFormat = '#,##'
    end
    object rxQry_findSUMCKLSJE: TFloatField
      FieldName = 'SUM(CKLSJE)'
      OnGetText = rxQry_findSUMCKLSJEGetText
      OnSetText = rxQry_findSUMCKLSJESetText
    end
    object rxQry_findSUMCKLSSL: TFloatField
      FieldName = 'SUM(CKLSSL)'
      DisplayFormat = '#,##'
    end
    object rxQry_findSUMLSJE: TFloatField
      FieldName = 'SUM(LSJE)'
      OnGetText = rxQry_findSUMLSJEGetText
      OnSetText = rxQry_findSUMLSJESetText
    end
    object rxQry_findSUMJSJE: TFloatField
      FieldName = 'SUM(JSJE)'
      OnGetText = rxQry_findSUMJSJEGetText
      OnSetText = rxQry_findSUMJSJESetText
    end
    object rxQry_findSUMCKYSSL: TFloatField
      FieldName = 'SUM(CKYSSL)'
      DisplayFormat = '#,##'
    end
    object rxQry_findSUMCKYSJE: TFloatField
      FieldName = 'SUM(CKYSJE)'
      OnGetText = rxQry_findSUMCKYSJEGetText
      OnSetText = rxQry_findSUMCKYSJESetText
    end
    object rxQry_findSUMTBJE: TFloatField
      FieldName = 'SUM(TBJE)'
      OnGetText = rxQry_findSUMTBJEGetText
      OnSetText = rxQry_findSUMTBJESetText
    end
    object rxQry_findPPMC: TStringField
      FieldName = 'PPMC'
      Size = 120
    end
    object rxQry_findZH: TStringField
      FieldName = 'ZH'
    end
  end
  object Qry_YYY: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'Select YGDM,YGMC from TGS_RYB'
      '')
    Left = 720
    Top = 221
  end
  object DataSource2: TDataSource
    DataSet = Qry_YYY
    Left = 748
    Top = 221
  end
end