jm_kcdetail.dfm

省级集邮品管理ERP

object Frm_KCDetail: TFrm_KCDetail
  Left = 37
  Top = 109
  BorderStyle = bsDialog
  Caption = '库存一览表'
  ClientHeight = 487
  ClientWidth = 708
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 708
    Height = 101
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 0
    object XttxTitle: TRxLabel
      Left = 1
      Top = 1
      Width = 706
      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 dwmc: TLabel
      Left = 10
      Top = 39
      Width = 60
      Height = 12
      Caption = '使用单位：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Rgp_ppfl: TRadioGroup
      Left = 1
      Top = 57
      Width = 706
      Height = 43
      Align = alBottom
      Caption = '库存分类'
      Columns = 5
      ItemIndex = 1
      Items.Strings = (
        '营业员库存一览'
        '库存总量一览'
        '库存与营业员库存汇总一览')
      TabOrder = 0
      OnClick = Rgp_ppflClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 101
    Width = 708
    Height = 345
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 1
      Top = 1
      Width = 706
      Height = 343
      Align = alClient
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'TMC'
          Title.Caption = '名称'
          Width = 196
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ZH'
          Title.Caption = '志号'
          Width = 109
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JJ'
          Title.Caption = '进价(元)'
          Width = 105
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TS'
          Title.Caption = '库存数量(未包括前台)'
          Width = 125
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TYPE'
          Title.Caption = '票品类别'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'KFMC'
          Title.Caption = '库房名称'
          Width = 67
          Visible = True
        end>
    end
    object DBGrid3: TDBGrid
      Left = 1
      Top = 1
      Width = 706
      Height = 343
      Align = alClient
      DataSource = DataSource3
      TabOrder = 2
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'YGMC'
          Title.Caption = '营业员'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PPMC'
          Title.Caption = '名称'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ZH'
          Title.Caption = '志号'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JJ'
          Title.Caption = '进价(元)'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SL'
          Title.Caption = '库存数量'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'LB'
          Title.Caption = '票品类别'
          Visible = True
        end>
    end
    object DBGrid2: TDBGrid
      Left = 1
      Top = 1
      Width = 706
      Height = 343
      Align = alClient
      DataSource = DataSource2
      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 = 'TMC'
          Title.Caption = '名称'
          Width = 248
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ZH'
          Title.Caption = '志号'
          Width = 113
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JJ'
          Title.Caption = '进价(元)'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TS'
          Title.Caption = '库存总量(包括前台)'
          Width = 116
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TYPE'
          Title.Caption = '票品类别'
          Width = 80
          Visible = True
        end>
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 446
    Width = 708
    Height = 41
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 2
    object btn_find: TButton
      Left = 422
      Top = 7
      Width = 75
      Height = 28
      Caption = '查询(&F)'
      TabOrder = 0
    end
    object btn_print: TButton
      Left = 526
      Top = 7
      Width = 75
      Height = 28
      Caption = '打印(&P)'
      TabOrder = 1
      OnClick = btn_printClick
    end
    object btn_exit: TButton
      Left = 622
      Top = 7
      Width = 75
      Height = 28
      Caption = '关闭(&C)'
      TabOrder = 2
      OnClick = btn_exitClick
    end
  end
  object Qry_htkc: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'select a.jj/100 jj,b.tmc,a.ppdm,b.zh,a.ts,'#39'集邮票'#39' type,a.kfdm,c' +
        '.kfmc from tys_jyppkc a,tb_yzppxxb b,tgs_kfb c where a.ppdm=b.td' +
        'm and a.kfdm=c.kfdm '
      'union all'
      
        'select a.jj/100 jj,b.tmc,a.ppdm,b.zh,a.ts,'#39'集邮品'#39' type,a.kfdm,c' +
        '.kfmc from tys_yppkc a,tb_yzppxxb b,tgs_kfb c where a.ppdm=b.tdm' +
        ' and a.kfdm=c.kfdm '
      'union all'
      
        'select a.jj/100 jj,b.tmc,a.ppdm,b.zh,a.ts,'#39'购入票'#39' type,a.kfdm,c' +
        '.kfmc from tys_grppkc a,tb_yzppxxb b,tgs_kfb c where a.ppdm=b.td' +
        'm and a.kfdm=c.kfdm '
      'order by kfdm,type,ppdm,jj')
    Left = 108
    Top = 117
    object Qry_htkcJJ: TFloatField
      FieldName = 'JJ'
      DisplayFormat = '#,##0.00'
    end
    object Qry_htkcTMC: TStringField
      FieldName = 'TMC'
      Size = 120
    end
    object Qry_htkcPPDM: TStringField
      FieldName = 'PPDM'
      Size = 15
    end
    object Qry_htkcZH: TStringField
      FieldName = 'ZH'
      Size = 16
    end
    object Qry_htkcTS: TFloatField
      FieldName = 'TS'
      DisplayFormat = '#,##'
    end
    object Qry_htkcTYPE: TStringField
      FieldName = 'TYPE'
      FixedChar = True
      Size = 6
    end
    object Qry_htkcKFMC: TStringField
      FieldName = 'KFMC'
      Size = 30
    end
  end
  object DataSource1: TDataSource
    DataSet = Qry_htkc
    Left = 136
    Top = 117
  end
  object Qry_yyykc: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'SELECT B.YGMC, JJ, DECODE(LB,'#39'0'#39','#39'集邮票'#39','#39'1'#39','#39'集邮品'#39','#39'2'#39','#39'购入' +
        '票'#39') LB, ZH, PPMC, DJ, SL, YSSL, LSSL FROM TM_YYYKC a,TGS_RYB B ' +
        'WHERE A.YGDM=B.YGDM')
    Left = 108
    Top = 157
    object Qry_yyykcYGMC: TStringField
      FieldName = 'YGMC'
      Size = 12
    end
    object Qry_yyykcJJ: TFloatField
      FieldName = 'JJ'
      OnGetText = Qry_yyykcJJGetText
      OnSetText = Qry_yyykcJJSetText
    end
    object Qry_yyykcLB: TStringField
      FieldName = 'LB'
      Size = 6
    end
    object Qry_yyykcZH: TStringField
      FieldName = 'ZH'
      Size = 16
    end
    object Qry_yyykcPPMC: TStringField
      FieldName = 'PPMC'
      Size = 120
    end
    object Qry_yyykcDJ: TFloatField
      FieldName = 'DJ'
    end
    object Qry_yyykcSL: TFloatField
      FieldName = 'SL'
      DisplayFormat = '#,##'
    end
    object Qry_yyykcYSSL: TFloatField
      FieldName = 'YSSL'
      DisplayFormat = '#,##'
    end
    object Qry_yyykcLSSL: TFloatField
      FieldName = 'LSSL'
      DisplayFormat = '#,##'
    end
  end
  object Qry_hz: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'select sum(ts) ts,jj/100 jj,tmc,ppdm,zh,type from (select a.jj,b' +
        '.tmc,a.ppdm,b.zh,a.ts,'#39'集邮票'#39' type from tys_jyppkc a,tb_yzppxxb' +
        ' b where a.ppdm=b.tdm'
      'union all'
      
        'select a.jj,b.tmc,a.ppdm,b.zh,a.ts,'#39'集邮品'#39' type from tys_yppkc ' +
        'a,tb_yzppxxb b where a.ppdm=b.tdm'
      'union all'
      
        'select a.jj, b.tmc,a.ppdm,b.zh,a.ts,'#39'购入票'#39' type from tys_grppk' +
        'c a,tb_yzppxxb b where a.ppdm=b.tdm'
      'union all'
      
        'select  jj,ppmc tmc,ppdm,zh,sl ts,decode(lb,'#39'0'#39','#39'集邮票'#39','#39'1'#39','#39'集' +
        '邮品'#39','#39'2'#39','#39'购入票'#39') type from tm_yyykc) '
      'group by jj,tmc,ppdm,zh,type order by type,ppdm,jj ')
    Left = 108
    Top = 197
    object Qry_hzJJ: TFloatField
      FieldName = 'JJ'
      DisplayFormat = '#,##0.00'
    end
    object Qry_hzTMC: TStringField
      FieldName = 'TMC'
      Size = 120
    end
    object Qry_hzPPDM: TStringField
      FieldName = 'PPDM'
      Size = 15
    end
    object Qry_hzZH: TStringField
      FieldName = 'ZH'
      Size = 16
    end
    object Qry_hzTS: TFloatField
      FieldName = 'TS'
      DisplayFormat = '#,##'
    end
    object Qry_hzTYPE: TStringField
      FieldName = 'TYPE'
      Size = 6
    end
  end
  object DataSource2: TDataSource
    DataSet = Qry_hz
    Left = 136
    Top = 197
  end
  object DataSource3: TDataSource
    AutoEdit = False
    DataSet = Qry_yyykc
    Left = 136
    Top = 156
  end
end