jm_srcx.dfm

省级集邮品管理ERP

object frm_SRCX: Tfrm_SRCX
  Left = -4
  Top = -4
  BorderStyle = bsDialog
  Caption = '集邮门市管理——营业员查询'
  ClientHeight = 581
  ClientWidth = 800
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -15
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 15
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 800
    Height = 53
    Align = alTop
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 0
    object XttxTitle: TRxLabel
      Left = 1
      Top = 1
      Width = 798
      Height = 24
      Align = alTop
      Alignment = taCenter
      Caption = '营业员收入查询'
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -24
      Font.Name = '楷体_GB2312'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object Lbl_user: TLabel
      Left = 20
      Top = 28
      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 = 53
    Width = 800
    Height = 528
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 1
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 798
      Height = 44
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object Label1: TLabel
        Left = 4
        Top = 16
        Width = 48
        Height = 12
        Caption = '起始日期'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 404
        Top = 16
        Width = 36
        Height = 12
        Caption = '营业员'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 192
        Top = 16
        Width = 48
        Height = 12
        Caption = '截至日期'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
      end
      object DateEdit1: TDateEdit
        Left = 68
        Top = 12
        Width = 109
        Height = 21
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        NumGlyphs = 2
        ParentFont = False
        PopupFont.Charset = DEFAULT_CHARSET
        PopupFont.Color = clWindowText
        PopupFont.Height = -11
        PopupFont.Name = 'MS Sans Serif'
        PopupFont.Style = []
        YearDigits = dyFour
        TabOrder = 0
      end
      object DateEdit2: TDateEdit
        Left = 256
        Top = 12
        Width = 109
        Height = 21
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        NumGlyphs = 2
        ParentFont = False
        PopupFont.Charset = DEFAULT_CHARSET
        PopupFont.Color = clWindowText
        PopupFont.Height = -11
        PopupFont.Name = 'MS Sans Serif'
        PopupFont.Style = []
        YearDigits = dyFour
        TabOrder = 1
      end
      object CB_ygdm: TComboBox
        Left = 456
        Top = 12
        Width = 145
        Height = 20
        Style = csDropDownList
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ItemHeight = 12
        ParentFont = False
        TabOrder = 2
      end
      object BitBtn1: TBitBtn
        Left = 620
        Top = 8
        Width = 75
        Height = 25
        Caption = '查询'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = BitBtn1Click
      end
      object BitBtn2: TBitBtn
        Left = 708
        Top = 8
        Width = 75
        Height = 25
        Caption = '返回'
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = BitBtn2Click
      end
    end
    object DBG_srcx: TDBGrid
      Left = 1
      Top = 45
      Width = 798
      Height = 482
      Align = alClient
      DataSource = DataSource1
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      PopupMenu = data.pm_Export
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -15
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'YGMC'
          Title.Caption = '营业员'
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'YFK'
          Title.Caption = '预付款(元)'
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BZJ'
          Title.Caption = '保证金(元)'
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'GBF'
          Title.Caption = '工本费(元)'
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'QTFY'
          Title.Caption = '其他费用(元)'
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'LS'
          Title.Caption = '零售(元)'
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JS'
          Title.Caption = '加收(元)'
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TB'
          Title.Caption = '退补(元)'
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'CKLS'
          Title.Caption = '磁卡零售(元)'
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TBZJ'
          Title.Caption = '退保证金(元)'
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'HK'
          Title.Caption = '换卡(元)'
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 62
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SUM'
          Title.Caption = '合计(元)'
          Title.Font.Charset = GB2312_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -12
          Title.Font.Name = '宋体'
          Title.Font.Style = []
          Width = 62
          Visible = True
        end>
    end
  end
  object Qry_find: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      
        'select a.YGDM,YGMC, 0 sum,sum(YFK) YFK, sum(BZJ) BZJ, sum(GBF) G' +
        'BF, sum(QTFY) QTFY, sum(LS) LS, sum(JS) jS, sum(TB) TB, sum(CKLS' +
        ') CKLS, sum(HK) HK, sum(TBZJ) TBZJ'
      'from VW_JYMXB a, TGS_RYB b'
      
        'where a.ygdm=b.ygdm and to_char(JYRQ, '#39'YYYYMMDD'#39') >='#39'20011231'#39' a' +
        'nd to_char(JYRQ, '#39'YYYYMMDD'#39') <='#39'20011231'#39' '
      'group by a.YGDM,YGMC'
      '')
    Left = 300
    Top = 241
    object Qry_findYGDM: TStringField
      FieldName = 'YGDM'
      Size = 8
    end
    object Qry_findYGMC: TStringField
      FieldName = 'YGMC'
      Size = 12
    end
    object Qry_findYFK: TFloatField
      FieldName = 'YFK'
      OnGetText = Qry_findYFKGetText
    end
    object Qry_findLS: TFloatField
      FieldName = 'LS'
      OnGetText = Qry_findYFKGetText
    end
    object Qry_findLS_1: TFloatField
      FieldName = 'JS'
      OnGetText = Qry_findYFKGetText
    end
    object Qry_findTB: TFloatField
      FieldName = 'TB'
      OnGetText = Qry_findYFKGetText
    end
    object Qry_findCKLS: TFloatField
      FieldName = 'CKLS'
      OnGetText = Qry_findYFKGetText
    end
    object Qry_findHK: TFloatField
      FieldName = 'HK'
      OnGetText = Qry_findYFKGetText
    end
    object Qry_findSUM: TFloatField
      FieldName = 'SUM'
      OnGetText = Qry_findYFKGetText
    end
    object Qry_findTBZJ: TFloatField
      FieldName = 'TBZJ'
      OnGetText = Qry_findYFKGetText
    end
    object Qry_findBZJ: TFloatField
      FieldName = 'BZJ'
      OnGetText = Qry_findYFKGetText
    end
    object Qry_findGBF: TFloatField
      FieldName = 'GBF'
      OnGetText = Qry_findYFKGetText
    end
    object Qry_findQTFY: TFloatField
      FieldName = 'QTFY'
      OnGetText = Qry_findYFKGetText
    end
  end
  object DataSource1: TDataSource
    DataSet = Qry_find
    Left = 336
    Top = 241
  end
end