jm_tjfh.dfm

省级集邮品管理ERP

object frm_tjfh: Tfrm_tjfh
  Left = 25
  Top = 19
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = '集邮门市管理'
  ClientHeight = 477
  ClientWidth = 664
  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 = 664
    Height = 49
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 0
    object XttxTitle: TRxLabel
      Left = 1
      Top = 1
      Width = 662
      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 = 17
      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 = 49
    Width = 664
    Height = 428
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Panel4: TPanel
      Left = 0
      Top = 387
      Width = 664
      Height = 41
      Align = alBottom
      BevelOuter = bvLowered
      TabOrder = 0
      object btnSave: TButton
        Left = 395
        Top = 8
        Width = 75
        Height = 25
        Caption = '复核'
        TabOrder = 0
        OnClick = btnSaveClick
      end
      object btnPrint: TButton
        Left = 477
        Top = 8
        Width = 75
        Height = 25
        Caption = '打印'
        TabOrder = 1
        OnClick = btnPrintClick
      end
      object btnExit: TButton
        Left = 575
        Top = 8
        Width = 75
        Height = 25
        Caption = '退出'
        ModalResult = 1
        TabOrder = 2
      end
    end
    object Panel5: TPanel
      Left = 0
      Top = 39
      Width = 664
      Height = 348
      Align = alClient
      BevelOuter = bvSpace
      TabOrder = 1
      object Panel6: TPanel
        Left = 1
        Top = 1
        Width = 185
        Height = 346
        Align = alLeft
        BevelOuter = bvLowered
        TabOrder = 0
        object DBGrid1: TDBGrid
          Left = 1
          Top = 33
          Width = 183
          Height = 312
          Align = alClient
          DataSource = DataSource1
          PopupMenu = data.pm_Export
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          OnDrawColumnCell = DBGrid1DrawColumnCell
          Columns = <
            item
              Expanded = False
              FieldName = 'FPDH'
              Title.Caption = '退缴单号'
              Width = 158
              Visible = True
            end>
        end
        object Panel3: TPanel
          Left = 1
          Top = 1
          Width = 183
          Height = 32
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 1
          object CheckBox1: TCheckBox
            Left = 8
            Top = 11
            Width = 141
            Height = 17
            Caption = '显示未处理退缴单'
            Checked = True
            State = cbChecked
            TabOrder = 0
            OnClick = CheckBox1Click
          end
        end
      end
      object Panel7: TPanel
        Left = 186
        Top = 1
        Width = 477
        Height = 346
        Align = alClient
        BevelOuter = bvLowered
        TabOrder = 1
        object Label2: TLabel
          Left = 16
          Top = 15
          Width = 48
          Height = 12
          Caption = '营业员：'
        end
        object Label3: TLabel
          Left = 16
          Top = 41
          Width = 60
          Height = 12
          Caption = '开单日期：'
        end
        object Label4: TLabel
          Left = 16
          Top = 65
          Width = 60
          Height = 12
          Caption = '复核日期：'
        end
        object Label1: TLabel
          Left = 243
          Top = 15
          Width = 54
          Height = 12
          Caption = '回退库房:'
        end
        object DBGrid2: TDBGrid
          Left = 1
          Top = 88
          Width = 475
          Height = 257
          Align = alBottom
          DataSource = DataSource2
          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 = 'FPDH'
              Visible = False
            end
            item
              Expanded = False
              FieldName = 'ZH'
              Title.Caption = '票品志号'
              Width = 57
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PPDM'
              Visible = False
            end
            item
              Expanded = False
              FieldName = 'PPMC'
              Title.Caption = '票品名称'
              Width = 116
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'JJ'
              Title.Caption = '进价(元)'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SJ'
              Title.Caption = '售价(元)'
              Width = 86
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'LBMC'
              ReadOnly = True
              Title.Caption = '类别'
              Width = 55
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'SL'
              Title.Caption = '退缴数量'
              Visible = True
            end>
        end
        object DBEdit1: TDBEdit
          Left = 88
          Top = 12
          Width = 121
          Height = 20
          Color = cl3DLight
          DataField = 'YGMC'
          DataSource = DataSource1
          TabOrder = 1
        end
        object DBDateEdit1: TDBDateEdit
          Left = 88
          Top = 36
          Width = 121
          Height = 21
          DataField = 'KDRQ'
          DataSource = DataSource1
          Color = cl3DLight
          NumGlyphs = 2
          TabOrder = 2
          YearDigits = dyFour
        end
        object DBDateEdit2: TDBDateEdit
          Left = 88
          Top = 62
          Width = 121
          Height = 21
          DataField = 'GHRQ'
          DataSource = DataSource1
          Color = cl3DLight
          NumGlyphs = 2
          TabOrder = 3
          YearDigits = dyFour
        end
        object DateEdit1: TDateEdit
          Left = 268
          Top = 56
          Width = 115
          Height = 21
          NumGlyphs = 2
          PopupFont.Charset = DEFAULT_CHARSET
          PopupFont.Color = clWindowText
          PopupFont.Height = -11
          PopupFont.Name = 'MS Sans Serif'
          PopupFont.Style = []
          TabOrder = 4
          Visible = False
        end
        object Cmb_kfdm: TComboBox
          Left = 300
          Top = 11
          Width = 145
          Height = 20
          ItemHeight = 12
          TabOrder = 5
        end
      end
    end
    object Panel8: TPanel
      Left = 0
      Top = 0
      Width = 664
      Height = 39
      Align = alTop
      BevelOuter = bvLowered
      TabOrder = 2
      object Rgp_ppfl: TRadioGroup
        Left = 1
        Top = 1
        Width = 662
        Height = 37
        Align = alClient
        Caption = '营业员票品分类'
        Columns = 5
        ItemIndex = 0
        Items.Strings = (
          '集邮票'
          '集邮品'
          '购入票')
        TabOrder = 0
        OnClick = Rgp_ppflClick
      end
    end
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = Qry_tpd
    Left = 108
    Top = 161
  end
  object Qry_tpd: TQuery
    CachedUpdates = True
    AfterOpen = Qry_tpdAfterOpen
    AfterScroll = Qry_tpdAfterOpen
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      'select  FPDH ,YGDM ,CKXZ,QXDW ,KDRQ ,GHRQ from tm_qttjd')
    UpdateObject = UpdateSQL1
    Left = 136
    Top = 161
    object Qry_tpdFPDH: TStringField
      FieldName = 'FPDH'
      Origin = 'JM_YZPP.TM_QTTJD.FPDH'
      Size = 15
    end
    object Qry_tpdYGDM: TStringField
      FieldName = 'YGDM'
      Origin = 'JM_YZPP.TM_QTTJD.YGDM'
      Size = 8
    end
    object Qry_tpdCKXZ: TStringField
      FieldName = 'CKXZ'
      Origin = 'JM_YZPP.TM_QTTJD.CKXZ'
      Size = 2
    end
    object Qry_tpdQXDW: TStringField
      FieldName = 'QXDW'
      Origin = 'JM_YZPP.TM_QTTJD.QXDW'
      Size = 8
    end
    object Qry_tpdKDRQ: TDateTimeField
      FieldName = 'KDRQ'
      Origin = 'JM_YZPP.TM_QTTJD.KDRQ'
    end
    object Qry_tpdGHRQ: TDateTimeField
      FieldName = 'GHRQ'
      Origin = 'JM_YZPP.TM_QTTJD.GHRQ'
    end
    object Qry_tpdYGMC: TStringField
      FieldKind = fkLookup
      FieldName = 'YGMC'
      LookupDataSet = Query1
      LookupKeyFields = 'YGDM'
      LookupResultField = 'YGMC'
      KeyFields = 'YGDM'
      Size = 10
      Lookup = True
    end
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'UPDATE TM_QTTJD'
      'SET'
      '  FPDH=:FPDH ,'
      '  YGDM=:YGDM ,'
      '  CKXZ=:CKXZ,'
      '  QXDW=:QXDW ,'
      '  KDRQ=:KDRQ ,'
      '  GHRQ=:GHRQ'
      'WHERE FPDH=:OLD_FPDH')
    Left = 165
    Top = 162
  end
  object DataSource2: TDataSource
    AutoEdit = False
    DataSet = Qry_tjpp
    Left = 345
    Top = 155
  end
  object Qry_tjpp: TQuery
    CachedUpdates = True
    BeforeInsert = Qry_tjppBeforeInsert
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      
        'select FPDH, KFDM, PPDM, JJ, lb, ZH, PPMC, SJ, SL, BZ from TM_QT' +
        'TJPPMX')
    UpdateObject = UpdateSQL2
    Left = 373
    Top = 155
    object Qry_tjppFPDH: TStringField
      FieldName = 'FPDH'
      Origin = 'YZPP.TM_QTTJPPMX.FPDH'
      Size = 16
    end
    object Qry_tjppKFDM: TStringField
      FieldName = 'KFDM'
      Origin = 'YZPP.TM_QTTJPPMX.KFDM'
      Size = 3
    end
    object Qry_tjppPPDM: TStringField
      FieldName = 'PPDM'
      Origin = 'YZPP.TM_QTTJPPMX.PPDM'
      Size = 15
    end
    object Qry_tjppJJ: TFloatField
      FieldName = 'JJ'
      Origin = 'YZPP.TM_QTTJPPMX.JJ'
      OnGetText = Qry_tjppJJGetText
      OnSetText = Qry_tjppJJSetText
    end
    object Qry_tjppLB: TStringField
      FieldName = 'LB'
      Origin = 'YZPP.TM_QTTJPPMX.LB'
      Size = 5
    end
    object Qry_tjppZH: TStringField
      FieldName = 'ZH'
      Origin = 'YZPP.TM_QTTJPPMX.ZH'
      Size = 16
    end
    object Qry_tjppPPMC: TStringField
      FieldName = 'PPMC'
      Origin = 'YZPP.TM_QTTJPPMX.PPMC'
      Size = 120
    end
    object Qry_tjppSJ: TFloatField
      FieldName = 'SJ'
      Origin = 'YZPP.TM_QTTJPPMX.SJ'
      OnGetText = Qry_tjppSJGetText
      OnSetText = Qry_tjppSJSetText
    end
    object Qry_tjppSL: TFloatField
      FieldName = 'SL'
      Origin = 'YZPP.TM_QTTJPPMX.SL'
      DisplayFormat = '#,##'
    end
    object Qry_tjppBZ: TStringField
      FieldName = 'BZ'
      Origin = 'YZPP.TM_QTTJPPMX.BZ'
      Size = 100
    end
    object Qry_tjppLBMC: TStringField
      FieldKind = fkLookup
      FieldName = 'LBMC'
      LookupDataSet = Qry_pplb
      LookupKeyFields = 'LB'
      LookupResultField = 'PPLB'
      KeyFields = 'LB'
      Lookup = True
    end
  end
  object Query1: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select ygdm,ygmc from tgs_ryb')
    Left = 109
    Top = 199
  end
  object Qry_kfdm: TQuery
    DatabaseName = 'yzpp'
    Left = 518
    Top = 97
  end
  object UpdateSQL2: TUpdateSQL
    ModifySQL.Strings = (
      'update TM_QTTJPPMX'
      'set'
      '  FPDH = :FPDH,'
      '  KFDM = :KFDM,'
      '  PPDM = :PPDM,'
      '  JJ = :JJ,'
      '  LB = :LB,'
      '  ZH = :ZH,'
      '  PPMC = :PPMC,'
      '  SJ = :SJ,'
      '  SL = :SL,'
      '  BZ = :BZ'
      'where'
      '  FPDH = :OLD_FPDH and'
      '  KFDM = :OLD_KFDM and'
      '  PPDM = :OLD_PPDM and'
      '  JJ = :OLD_JJ and'
      '  LB = :OLD_LB')
    InsertSQL.Strings = (
      'insert into TM_QTTJPPMX'
      '  (FPDH, KFDM, PPDM, JJ, LB, ZH, PPMC, SJ, SL, BZ)'
      'values'
      '  (:FPDH, :KFDM, :PPDM, :JJ, :LB, :ZH, :PPMC, :SJ, :SL, :BZ)')
    DeleteSQL.Strings = (
      'delete from TM_QTTJPPMX'
      'where'
      '  FPDH = :OLD_FPDH and'
      '  KFDM = :OLD_KFDM and'
      '  PPDM = :OLD_PPDM and'
      '  JJ = :OLD_JJ and'
      '  LB = :OLD_LB')
    Left = 402
    Top = 157
  end
  object Qry_pplb: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      
        'select distinct lb,decode(lb,'#39'0'#39','#39'集邮票'#39','#39'1'#39','#39'集邮品'#39','#39'2'#39','#39'购入' +
        '票'#39') pplb from tm_QTTJPPMX')
    Left = 374
    Top = 189
  end
end