sj_kccx.dfm

省级集邮品管理ERP

object Frm_kccx: TFrm_kccx
  Left = 73
  Top = 26
  BorderStyle = bsDialog
  Caption = '集邮票库存查询'
  ClientHeight = 493
  ClientWidth = 693
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 16
    Top = 44
    Width = 577
    Height = 53
    Caption = '查询条件'
    TabOrder = 0
    object Label1: TLabel
      Left = 143
      Top = 24
      Width = 48
      Height = 12
      Caption = '库房名称'
    end
    object Label2: TLabel
      Left = 334
      Top = 25
      Width = 48
      Height = 12
      Caption = '票品名称'
    end
    object Label3: TLabel
      Left = 7
      Top = 26
      Width = 48
      Height = 12
      Caption = '志号定位'
    end
    object CBo_kfmc: TComboBox
      Left = 195
      Top = 20
      Width = 126
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 0
      OnChange = CBo_kfmcChange
      Items.Strings = (
        '全部')
    end
    object CBo_ppmc: TComboBox
      Left = 388
      Top = 20
      Width = 173
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 1
      Items.Strings = (
        '全部')
    end
    object Edit1: TEdit
      Left = 56
      Top = 21
      Width = 73
      Height = 20
      MaxLength = 10
      TabOrder = 2
      OnChange = Edit1Change
    end
  end
  object DBGid_kc: TDBGrid
    Left = 0
    Top = 104
    Width = 693
    Height = 389
    Align = alBottom
    DataSource = DS_kc
    PopupMenu = PM_Exp
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'KFDM'
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'KFMC'
        Title.Caption = '库房名称'
        Width = 88
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZH'
        Title.Caption = '志号'
        Width = 71
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TMC'
        Title.Caption = '票品名称'
        Width = 167
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'KWH'
        Title.Caption = '库位号'
        Width = 77
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TS'
        Title.Caption = '套数'
        Width = 103
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BZ'
        Title.Caption = '备注'
        Width = 99
        Visible = True
      end>
  end
  object BitBtn1: TBitBtn
    Left = 607
    Top = 43
    Width = 75
    Height = 25
    Action = Act_sel
    Caption = '查询(&F)'
    TabOrder = 2
    Glyph.Data = {
      36040000424D3604000000000000360000002800000010000000100000000100
      2000000000000004000000000000000000000000000000000000FF00FFBFFF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FFBFFF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000BFFF00
      0000FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF000000FF000000FF000000FF000000FF000000FF00FF00FF000000FFFF
      FF00FF0000BFFF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF000000FFFFFF00FF0000BFFF000000FF000000FF00FF00FF0000BFFFFF
      FF00FF0000BFFF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF000000FFFFFF00FF0000BFFF000000FF000000FF00FF00FF0000BFFF00
      0000FF000000FF000000FF000000FF000000FF000000FF00FF00FF000000FF00
      0000FF000000FF000000FF000000FF000000FF000000FF00FF00FF0000BFFF00
      0000FFFFFF00FF0000BFFF000000FF000000FF000000FF000000FF000000FFFF
      FF00FF0000BFFF000000FF000000FF000000FF000000FF00FF00FF0000BFFF00
      0000FFFFFF00FF0000BFFF000000FF000000FF00FF00FF000000FF000000FFFF
      FF00FF0000BFFF000000FF000000FF000000FF000000FF00FF00FF000000FF00
      0000FFFFFF00FF0000BFFF000000FF000000FF00FF00FF000000FF000000FFFF
      FF00FF0000BFFF000000FF000000FF000000FF000000FF00FF00FF00FFBFFF00
      0000FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF00
      0000FF000000FF000000FF000000FF000000FF00FF00FF00FF00FF00FFBFFF00
      FF00FF000000FFFFFF00FF0000BFFF000000FF000000FF00FF00FF000000FFFF
      FF00FF0000BFFF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF000000FF000000FF000000FF000000FF000000FF00FF00FF000000FF00
      0000FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00
      0000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FFBFFF00
      FF00FF00FF00FF000000FFFFFF00FF0000BFFF00FF00FF00FF00FF00FF00FF00
      0000FFFFFF00FF0000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00FFBFFF00
      FF00FF00FF00FF000000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00
      0000FF000000FF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
  end
  object BitBtn2: TBitBtn
    Left = 607
    Top = 70
    Width = 75
    Height = 25
    Action = Act_rtn
    Caption = '返回'
    TabOrder = 3
    Glyph.Data = {
      36040000424D3604000000000000360000002800000010000000100000000100
      2000000000000004000000000000000000000000000000000000FF00FF008080
      800080808080808080808080808080808080808080808080808080808080FF00
      FF80FF00FF00FFFFFF00FF00FFBFFFFFFF00808080BFFF00FF80800000008000
      000080000000800000000000000000000000808080008080808080808080FFFF
      FF80FFFFFFBFFFFFFFBF800000BF800000008000000080000000FF00FF00FF00
      FF00FF00FF0080000000FF00FF00800080BF0000000000000000FFFFFF00FFFF
      FFBFFFFFFFBFFFFFFFBF800000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF008000000080008000FF00FF808000800000000080FFFFFF00FFFF
      00BFFFFFFFBFFFFF00BF800000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF0080000000FF00FF00800080BFFF00FF00000000BFFFFFFF00FFFF
      FFBFFFFFFFBFFFFFFFBF800000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF008000000080008000FF00FF808000800000000080FFFFFF00FFFF
      00BFFFFFFFBFFFFF00BF800000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF0080000000FF00FF00800080BFFF00FF00000000BFFFFFFF00FFFF
      FFBFFFFFFFBFFFFFFFBF800000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF008000000080008000FF00FF808000800000000080FFFFFF00FFFF
      00BFFFFFFFBFFFFF00BF800000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF0080000000FF00FF00800080BFFF00FF00000000BFFFFF0000FFFF
      FF00FFFF00BFFFFFFF00800000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF008000000080008000FF00FF808000800000000080FFFFFF00FFFF
      00BFFFFFFFBFFFFF00BF800000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF0080000000FF00FF00800080BFFF00FF00000000BFFFFF0000FFFF
      FF00FFFF00BFFFFFFF00800000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF008000000080000000800000008000000080000000800000008000
      0000800000008000000080000000FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00000000000000000000000000000000000000
      000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF000000000000FF000000FF000000FF00BF00FF
      0000000000BFFF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
      FF00FF00FF00FF00FF00FF00FF00000000000000000000000000000000000000
      000000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 693
    Height = 38
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 4
    object XttxTitle: TRxLabel
      Left = 0
      Top = 0
      Width = 693
      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 = 20
      Top = 19
      Width = 60
      Height = 12
      Caption = '使用单位：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 700
      Top = 20
      Width = 36
      Height = 12
      Caption = 'Label1'
    end
    object Panel3: TPanel
      Left = 524
      Top = 8
      Width = 149
      Height = 41
      BevelOuter = bvNone
      TabOrder = 0
    end
  end
  object ActionList1: TActionList
    Left = 456
    Top = 175
    object Act_sel: TAction
      Caption = '查询'
      ImageIndex = 20
      OnExecute = Act_selExecute
    end
    object Act_rtn: TAction
      Caption = '返回'
      ImageIndex = 15
      OnExecute = Act_rtnExecute
    end
  end
  object DS_kc: TDataSource
    DataSet = RxQry
    Left = 220
    Top = 132
  end
  object RxQry: TRxQuery
    AfterOpen = RxQryAfterOpen
    DatabaseName = 'yzpp'
    Macros = <>
    Left = 188
    Top = 132
  end
  object SqlStrings1: TSqlStrings
    jyp_Sql.Strings = (
      'select a.KFDM,a.PPDM,a.KWH,a.TS,a.BZ,b.KFMC,c.TMC, c.ZH'
      ' from TKS_JYPPKC a, TGS_KFB b, TB_YZPPXXB c '
      ' where a.KFDM=b.KFDM and a.PPDM=c.TDM '
      '  and a.KFDM= %KFDM'
      '  and a.PPDM= %PPDM'
      '  and a.KFDM in (select KFDM from TGS_KFRYDZB where YGDM= :YGDM)'
      '  order by a.KFDM,a.PPDM')
    txp_Sql.Strings = (
      'select a.KFDM,a.PPDM,a.KWH,a.TS,a.BZ,b.KFMC,c.TMC, c.ZH'
      ' from TKS_TXPPKC a, TGS_KFB b, TB_YZPPXXB c'
      ' where a.KFDM=b.KFDM and a.PPDM=c.TDM'
      '  and a.KFDM= %KFDM'
      '  and a.PPDM= %PPDM'
      '  and a.KFDM in (select KFDM from TGS_KFRYDZB where YGDM=:YGDM)'
      '  order by a.KFDM,a.PPDM')
    yp_Sql.Strings = (
      'select a.KFDM,a.PPDM,a.KWH,a.TS,a.BZ,b.KFMC,c.MC TMC, c.ZH'
      ' from TKS_YPPKC a, TGS_KFB b, TB_JYPTXXB c '
      ' where a.KFDM=b.KFDM and a.PPDM=c.TDM'
      '  and a.kfdm= %KFDM'
      '  and a.ppdm= %PPDM'
      '  and a.KFDM in (select KFDM from TGS_KFRYDZB where YGDM= :YGDM)'
      '  order by a.KFDM,a.PPDM')
    grp_Sql.Strings = (
      'select a.KFDM,a.PPDM,a.KWH,a.TS,a.BZ,b.KFMC,c.TMC,c.ZH'
      ' from TKS_GRPPKC a, TGS_KFB b, TB_YZPPXXB c '
      ' where a.KFDM=b.KFDM and a.PPDM=c.TDM'
      '  and a.kfdm= %KFDM'
      '  and a.ppdm= %PPDM'
      '  and a.KFDM in (select KFDM from TGS_KFRYDZB where YGDM= :YGDM)'
      '  order by a.KFDM,a.PPDM')
    Left = 156
    Top = 132
  end
  object SqlStrings2: TSqlStrings
    jyp_Sql.Strings = (
      
        'select distinct a.PPDM, b.TMC,c.MC TZMC from TKS_JYPPKC a, TB_YZ' +
        'PPTXXB b, TG_YZPPTZDM c '
      ' where b.TDM=a.PPDM and b.tz=c.tzdm and a.KFDM= %KFDM')
    txp_Sql.Strings = (
      'select distinct a.PPDM, b.TMC from TKS_TXPPKC a, TB_YZPPXXB b'
      ' where b.TDM=a.PPDM and a.KFDM= %KFDM'
      ' ')
    yp_Sql.Strings = (
      'select distinct a.PPDM, b.MC TMC from TKS_YPPKC a, TB_JYPTXXB b '
      ' where b.TDM=a.PPDM and a.KFDM= %KFDM')
    grp_Sql.Strings = (
      
        'select distinct a.PPDM, b.TMC,c.MC TZMC from TKS_GRPPKC a, TB_YZ' +
        'PPTXXB b, TG_YZPPTZDM c '
      ' where b.TDM=a.PPDM and b.tz=c.tzdm and a.KFDM= %KFDM')
    Left = 464
    Top = 60
  end
  object RxQuery1: TRxQuery
    DatabaseName = 'yzpp'
    Macros = <>
    Left = 256
    Top = 64
  end
  object PM_Exp: TPopupMenu
    Left = 88
    Top = 336
    object MI_Exc: TMenuItem
      Caption = '导出到Excel'
      OnClick = MI_ExcClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object MI_txt: TMenuItem
      Caption = '导出到文本'
      OnClick = MI_txtClick
    end
  end
  object DBGE_rkd: TDBGridExport
    Show_Progress = True
    SpaceMark = csTab
    Title = '库存'
    SheetName = '库存'
    Left = 60
    Top = 336
  end
end