jm_fhdsc_getpp.dfm

省级集邮品管理ERP

object frm_FHDSC_GETPP: Tfrm_FHDSC_GETPP
  Left = 189
  Top = 102
  BorderStyle = bsDialog
  Caption = '邮资票品门市子系统——营业员分票'
  ClientHeight = 413
  ClientWidth = 578
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Panel2: TPanel
    Left = 0
    Top = 85
    Width = 578
    Height = 287
    Align = alClient
    BevelOuter = bvLowered
    Caption = 'Panel2'
    TabOrder = 0
    object Panel1: TPanel
      Left = 1
      Top = 1
      Width = 300
      Height = 285
      Align = alLeft
      BevelOuter = bvNone
      Caption = 'Panel1'
      TabOrder = 0
      object DBG_kxpp: TDBGrid
        Left = 0
        Top = 0
        Width = 300
        Height = 285
        Align = alClient
        DataSource = DS_kxpp
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        PopupMenu = data.pm_Export
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        OnDblClick = DBG_kxppDblClick
        Columns = <
          item
            Expanded = False
            FieldName = 'ZH'
            Title.Caption = '志号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PPMC'
            Title.Caption = '名称'
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TS'
            Title.Caption = '库存数量'
            Width = 66
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'JJ'
            Title.Caption = '进价(元)'
            Width = 51
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'KFDM'
            Title.Caption = '库房代码'
            Visible = False
          end>
      end
    end
    object DBG_ckpp: TDBGrid
      Left = 301
      Top = 1
      Width = 276
      Height = 285
      Align = alClient
      DataSource = DS_ckpp
      PopupMenu = data.pm_Export
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'FHDH'
          Title.Caption = '营业员'
          Width = 54
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SL'
          Title.Caption = '数量'
          Width = 69
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ZH'
          ReadOnly = True
          Title.Caption = '志号'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PPMC'
          ReadOnly = True
          Title.Caption = '名称'
          Width = 54
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 578
    Height = 85
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 1
    object Label1: TLabel
      Left = 24
      Top = 60
      Width = 24
      Height = 12
      Caption = '库房'
    end
    object rg_fplb: TRadioGroup
      Left = 1
      Top = 1
      Width = 576
      Height = 43
      Align = alTop
      Caption = '请选择分配类别'
      Columns = 3
      Items.Strings = (
        '全部营业员分配'
        '单个营业员分配')
      TabOrder = 0
      OnClick = rg_fplbClick
    end
    object DCBo_yyy: TDBLookupComboBox
      Left = 320
      Top = 16
      Width = 133
      Height = 20
      KeyField = 'YGDM'
      ListField = 'YGMC'
      ListSource = ds_yyy
      TabOrder = 1
    end
    object Cmb_kfdm: TComboBox
      Left = 72
      Top = 56
      Width = 145
      Height = 20
      ItemHeight = 12
      TabOrder = 2
      OnChange = Cmb_kfdmChange
    end
    object GroupBox1: TGroupBox
      Left = 248
      Top = 44
      Width = 317
      Height = 37
      Caption = '票品定位'
      TabOrder = 3
      object SpeedButton1: TSpeedButton
        Left = 252
        Top = 10
        Width = 57
        Height = 22
        Caption = '定位'
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33333333333333333333333333333333333333FF333333333333300333333333
          33333773FF33333333333090033333333333373773FF33333333330990033333
          3333337F3773FF33333333099990033333333373F33773FFF333333099999007
          33333337F33337773333333099999903333333373F3333733333333309999033
          333333337F3337F333333333099990733333333373F3F77F3333333330900907
          3333333337F77F77F33333333003709073333333377377F77F33333337333709
          073333333733377F77F33333333333709033333333333377F7F3333333333337
          0733333333333337773333333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = SpeedButton1Click
      end
      object RBtn_zh: TRadioButton
        Left = 8
        Top = 12
        Width = 49
        Height = 17
        Caption = '志号'
        TabOrder = 0
      end
      object Rbtn_mc: TRadioButton
        Left = 64
        Top = 12
        Width = 57
        Height = 17
        Caption = '名称'
        TabOrder = 1
      end
      object Edt_loc: TEdit
        Left = 124
        Top = 11
        Width = 121
        Height = 20
        TabOrder = 2
      end
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 372
    Width = 578
    Height = 41
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 2
    object BBt_ok: TBitBtn
      Left = 212
      Top = 8
      Width = 75
      Height = 25
      Caption = '确定'
      TabOrder = 0
      OnClick = BBt_okClick
    end
    object BBt_next: TBitBtn
      Left = 335
      Top = 8
      Width = 75
      Height = 25
      Caption = '继续'
      TabOrder = 1
      OnClick = BBt_nextClick
    end
    object BBt_can: TBitBtn
      Left = 449
      Top = 8
      Width = 75
      Height = 25
      Caption = '返回'
      ModalResult = 2
      TabOrder = 2
    end
  end
  object rxQry_kxpp: TRxQuery
    DatabaseName = 'yzpp'
    OnFilterRecord = rxQry_kxppFilterRecord
    SQL.Strings = (
      
        'select a.KFDM, a.PPDM, b.zh,b.tmc ppmc,a.JJ, a.KWH,a.YJ, a.XJ, a' +
        '.JSJ, a.ZK, a.TS, a.BZ from tys_jyppkc a,tb_yzpptxxb b'
      'where a.ppdm(+)=b.tdm and a.ts>0'
      '')
    Macros = <>
    Left = 104
    Top = 204
    object rxQry_kxppKFDM: TStringField
      FieldName = 'KFDM'
      Size = 3
    end
    object rxQry_kxppPPDM: TStringField
      FieldName = 'PPDM'
      Size = 13
    end
    object rxQry_kxppZH: TStringField
      FieldName = 'ZH'
      Size = 11
    end
    object rxQry_kxppPPMC: TStringField