jm_jkfh.dfm

省级集邮品管理ERP

object frm_qtjkfh: Tfrm_qtjkfh
  Left = 149
  Top = 59
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = '集邮门市管理'
  ClientHeight = 444
  ClientWidth = 594
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 594
    Height = 45
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 0
    object XttxTitle: TRxLabel
      Left = 1
      Top = 1
      Width = 592
      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 Label11: TLabel
      Left = 20
      Top = 27
      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 = 45
    Width = 594
    Height = 72
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 1
    object CB_notcheck: TCheckBox
      Left = 8
      Top = 14
      Width = 125
      Height = 17
      Caption = '只显示未处理缴款单'
      Checked = True
      State = cbChecked
      TabOrder = 0
    end
    object CB_yyy: TCheckBox
      Left = 168
      Top = 44
      Width = 109
      Height = 17
      Caption = '查看单个营业员'
      TabOrder = 4
    end
    object CBox_yyy: TComboBox
      Left = 280
      Top = 42
      Width = 145
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 5
    end
    object CB_date: TCheckBox
      Left = 168
      Top = 12
      Width = 309
      Height = 17
      Caption = '按缴款日期显示                  到'
      Checked = True
      State = cbChecked
      TabOrder = 1
    end
    object Btn_sel: TBitBtn
      Left = 500
      Top = 36
      Width = 75
      Height = 25
      Caption = '查询'
      TabOrder = 6
      OnClick = Btn_selClick
    end
    object DE_from: TDateEdit
      Left = 279
      Top = 9
      Width = 94
      Height = 21
      DefaultToday = True
      NumGlyphs = 2
      PopupFont.Charset = DEFAULT_CHARSET
      PopupFont.Color = clWindowText
      PopupFont.Height = -11
      PopupFont.Name = 'MS Sans Serif'
      PopupFont.Style = []
      YearDigits = dyFour
      TabOrder = 2
      Text = '2002-01-01'
    end
    object DE_to: TDateEdit
      Left = 395
      Top = 9
      Width = 94
      Height = 21
      DefaultToday = True
      NumGlyphs = 2
      PopupFont.Charset = DEFAULT_CHARSET
      PopupFont.Color = clWindowText
      PopupFont.Height = -11
      PopupFont.Name = 'MS Sans Serif'
      PopupFont.Style = []
      YearDigits = dyFour
      TabOrder = 3
      Text = '2002-01-01'
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 400
    Width = 594
    Height = 44
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 3
    object BitBtn2: TBitBtn
      Left = 224
      Top = 8
      Width = 75
      Height = 25
      Caption = '批量复核'
      TabOrder = 0
      OnClick = BitBtn2Click
    end
    object btnSave: TButton
      Left = 323
      Top = 8
      Width = 75
      Height = 25
      Caption = '复核'
      TabOrder = 1
      OnClick = btnSaveClick
    end
    object btnPrint: TButton
      Left = 397
      Top = 8
      Width = 75
      Height = 25
      Caption = '打印'
      TabOrder = 2
      OnClick = btnPrintClick
    end
    object btnExit: TButton
      Left = 493
      Top = 8
      Width = 75
      Height = 25
      Caption = '退出'
      ModalResult = 1
      TabOrder = 3
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 117
    Width = 594
    Height = 283
    Align = alClient
    BevelOuter = bvLowered
    Caption = 'Panel4'
    TabOrder = 2
    object Splitter1: TSplitter
      Left = 1
      Top = 141
      Width = 592
      Height = 3
      Cursor = crVSplit
      Align = alBottom
    end
    object DBGridEh1: TDBGridEh
      Left = 1
      Top = 1
      Width = 592
      Height = 140
      LineColor = clBlack
      SelectedFontColor = clHighlightText
      Align = alClient
      DataSource = DS_jkd
      PopupMenu = data.pm_Export
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnDrawColumnCell = DBGridEh1DrawColumnCell
      FooterRowCount = 1
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = '宋体'
      FooterFont.Style = []
      FooterColor = clWindow
      SumList.Active = True
      OnGetFooterParams = DBGridEh1GetFooterParams
      CurrencyStyle.CurrencyFont.Charset = DEFAULT_CHARSET
      CurrencyStyle.CurrencyFont.Color = clWindowText
      CurrencyStyle.CurrencyFont.Height = -11
      CurrencyStyle.CurrencyFont.Name = 'MS Sans Serif'
      CurrencyStyle.CurrencyFont.Style = []
      CurrencyStyle.CurrencySymbol = '￥'
      CurrencyStyle.CompartColor = clSilver
      CurrencyStyle.KilobitColor = clGreen
      CurrencyStyle.RadixColor = clRed
      CurrencyStyle.ShowMinus = True
      CurrencyStyle.ShowZero = False
      CurrencyStyle.MinusColor = clRed
      CurrencyStyle.Layout = tlCenter
      CurrencyStyle.HeadFont.Charset = DEFAULT_CHARSET
      CurrencyStyle.HeadFont.Color = clWindowText
      CurrencyStyle.HeadFont.Height = -11
      CurrencyStyle.HeadFont.Name = '楷体_GB2312'
      CurrencyStyle.HeadFont.Style = []
      Columns = <
        item
          FieldName = 'JKDH'
          Title.Caption = '缴款单号'
          Width = 105
          Footer.ValueType = fvtCount
          Footers = <>
        end
        item
          FieldName = 'YGMC'
          Title.Caption = '营业员'
          Width = 75
          Footers = <>
        end
        item
          FieldName = 'JKRQ'
          Title.Caption = '缴款日期'
          Width = 95
          Footers = <>
        end
        item
          FieldName = 'JKJE'
          Title.Caption = '缴款单总金额(元)'
          Width = 100
          Footer.ValueType = fvtSum
          Footers = <>
        end
        item
          FieldName = 'GHZT'
          Title.Caption = '复核状态'
          Width = 86
          Footers = <>
        end
        item
          FieldName = 'GHRQ'
          Title.Caption = '复核日期'
          Width = 84
          Footers = <>
        end>
    end
    object DBGrid1: TDBGrid
      Left = 1
      Top = 144
      Width = 592
      Height = 138
      Align = alBottom
      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 = 'JKLX'
          Title.Caption = '缴款类型 '
          Width = 115
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JKJE'
          Title.Caption = '缴款金额(元)'
          Width = 136
          Visible = True
        end>
    end
  end
  object Qry_jkfh: TQuery
    DatabaseName = 'YZPP'
    DataSource = DS_jkd
    SQL.Strings = (
      'select JKLX, JKJE from TM_JKDB where JKDH=:JKDH'
      'order by JKLX')
    Left = 220
    Top = 297
    ParamData = <
      item
        DataType = ftString
        Name = 'JKDH'
        ParamType = ptUnknown
      end>
    object Qry_jkfhJKLX: TStringField
      FieldName = 'JKLX'
      Origin = 'YZPP.TM_JKDB.JKLX'
      Size = 10
    end
    object Qry_jkfhJKJE: TFloatField
      FieldName = 'JKJE'
      Origin = 'YZPP.TM_JKDB.JKJE'
      OnGetText = Qry_jkdJKJEGetText
    end
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = Qry_jkfh
    Left = 248
    Top = 297
  end
  object Qry_check: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'Select * from TM_JKDB WHERE JKDH='#39'00'#39)
    Left = 152
    Top = 297
  end
  object Qry_jkd: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      
        'select a.jkdh, a.ygdm, b.ygmc, to_char(a.jkrq,'#39'YYYY-MM-DD'#39') jkrq' +
        ', sum(a.jkje) jkje, '
      
        'decode(a.ghrq, null, '#39'未勾核'#39', '#39'已勾核'#39') ghzt, to_char(a.ghrq,'#39'Y' +
        'YYY-MM-DD'#39') ghrq '
      'from tm_jkdb a, TGS_RYB b '
      'where a.YGDM=b.YGDM  '
      'group by a.jkdh, a.ygdm, b.ygmc, a.jkrq, a.ghrq')
    Left = 104
    Top = 185
    object Qry_jkdJKDH: TStringField
      FieldName = 'JKDH'
      Size = 15
    end
    object Qry_jkdYGMC: TStringField
      FieldName = 'YGMC'
      Size = 12
    end
    object Qry_jkdJKJE: TFloatField
      FieldName = 'JKJE'
      OnGetText = Qry_jkdJKJEGetText
    end
    object Qry_jkdGHZT: TStringField
      FieldName = 'GHZT'
      Size = 6
    end
    object Qry_jkdJKRQ: TStringField
      FieldName = 'JKRQ'
      Size = 75
    end
    object Qry_jkdGHRQ: TStringField
      FieldName = 'GHRQ'
      Size = 75
    end
    object Qry_jkdYGDM: TStringField
      FieldName = 'YGDM'
      Size = 8
    end
  end
  object DS_jkd: TDataSource
    DataSet = Qry_jkd
    Left = 132
    Top = 185
  end
end