sy_kcmxcx.dfm

省级集邮品管理ERP

object FrmY_kcmxcx: TFrmY_kcmxcx
  Left = 2
  Top = 41
  BorderStyle = bsDialog
  Caption = '集邮品库存明细查询'
  ClientHeight = 523
  ClientWidth = 742
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 12
  object GroupBox1: TGroupBox
    Left = 12
    Top = 44
    Width = 589
    Height = 81
    Caption = '查询条件'
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 23
      Width = 48
      Height = 12
      Caption = '库房名称'
    end
    object Label2: TLabel
      Left = 283
      Top = 23
      Width = 48
      Height = 12
      Caption = '票品名称'
    end
    object Label3: TLabel
      Left = 340
      Top = 50
      Width = 12
      Height = 12
      Caption = '从'
    end
    object Label4: TLabel
      Left = 452
      Top = 50
      Width = 12
      Height = 12
      Caption = '到'
    end
    object Label5: TLabel
      Left = 24
      Top = 51
      Width = 48
      Height = 12
      Caption = '志号定位'
    end
    object CBo_kfmc: TComboBox
      Left = 80
      Top = 19
      Width = 169
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 0
      OnChange = CBo_kfmcChange
      Items.Strings = (
        '全部')
    end
    object CBo_ppmc: TComboBox
      Left = 336
      Top = 19
      Width = 221
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 1
      Items.Strings = (
        '全部')
    end
    object CheckBox1: TCheckBox
      Left = 266
      Top = 49
      Width = 75
      Height = 17
      Caption = '日期范围'
      TabOrder = 3
      OnClick = CheckBox1Click
    end
    object Edit1: TEdit
      Left = 79
      Top = 46
      Width = 89
      Height = 20
      MaxLength = 10
      TabOrder = 2
      OnChange = Edit1Change
    end
    object d1: TDateEdit
      Left = 358
      Top = 46
      Width = 86
      Height = 20
      ButtonWidth = 18
      NumGlyphs = 2
      PopupFont.Charset = DEFAULT_CHARSET
      PopupFont.Color = clWindowText
      PopupFont.Height = -11
      PopupFont.Name = 'MS Sans Serif'
      PopupFont.Style = []
      YearDigits = dyFour
      TabOrder = 4
      Text = '2000-01-30'
    end
    object d2: TDateEdit
      Left = 471
      Top = 46
      Width = 86
      Height = 20
      ButtonWidth = 18
      NumGlyphs = 2
      PopupFont.Charset = DEFAULT_CHARSET
      PopupFont.Color = clWindowText
      PopupFont.Height = -11
      PopupFont.Name = 'MS Sans Serif'
      PopupFont.Style = []
      YearDigits = dyFour
      TabOrder = 5
      Text = '2000-01-30'
    end
  end
  object DBGid_kc: TDBGrid
    Left = 0
    Top = 132
    Width = 742
    Height = 391
    Align = alBottom
    DataSource = DS_kc
    PopupMenu = PM_Exp
    TabOrder = 3
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'KFMC'
        Title.Caption = '库房名称'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MC'
        Title.Caption = '票品名称'
        Width = 101
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZH'
        Title.Caption = '志号'
        Width = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CRKDH'
        Title.Caption = '出入库单号'
        Width = 125
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZI'
        Title.Caption = '字'
        Width = 14
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'RQ'
        Title.Caption = '日期'
        Width = 65
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZY'
        Title.Caption = '摘要'
        Width = 88
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JSSL'
        Title.Caption = '减少数量（套）'
        Width = 87
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZJSL'
        Title.Caption = '增加数量（套）'
        Width = 87
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JCSL'
        Title.Caption = '结存数量（套）'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZBR'
        Title.Caption = '制表人'
        Width = 47
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SDATE'
        Visible = False
      end>
  end
  object BitBtn1: TBitBtn
    Left = 636
    Top = 48
    Width = 75
    Height = 25
    Action = Act_sel
    Caption = '查询'
    TabOrder = 1
    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 = 636
    Top = 80
    Width = 75
    Height = 25
    Action = Act_rtn
    Caption = '返回'
    TabOrder = 2
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
      F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
      000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
      338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
      45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
      3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
      F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
      000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
      338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
      4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
      8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
      333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
      0000}
    NumGlyphs = 2
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 742
    Height = 38
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 4
    object XttxTitle: TRxLabel
      Left = 0
      Top = 0
      Width = 742
      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 Panel3: TPanel
      Left = 524
      Top = 4
      Width = 149
      Height = 41
      BevelOuter = bvNone
      TabOrder = 0
    end
  end
  object ActionList1: TActionList
    Left = 456
    Top = 176
    object Act_sel: TAction
      Caption = '查询'
      ImageIndex = 20
      OnExecute = Act_selExecute
    end
    object Act_rtn: TAction
      Caption = '返回'
      ImageIndex = 15
      OnExecute = Act_rtnExecute
    end
  end
  object Qry_kcmx: TQuery
    AfterOpen = Qry_kcmxAfterOpen
    DatabaseName = 'YZPP'
    SQL.Strings = (
      
        'select a.ppdm,a.kfdm,a.crkdh,a.zi,a.rq,a.zy,a.jssl,a.zjsl,a.jcsl' +
        ',a.zbr,a.sdate,b.kfmc,c.mc, c.zh'
      'from TKS_YPMXFLZ a, TGS_KFB b, TB_JYPTXXB c'
      'where a.kfdm=b.kfdm'
      '  and a.ppdm=c.tdm'
      'order by a.kfdm,a.ppdm')
    Left = 212
    Top = 136
  end
  object DS_kc: TDataSource
    DataSet = Qry_kcmx
    Left = 240
    Top = 136
  end
  object Query1: TQuery
    Left = 252
    Top = 104
  end
  object SqlStrings1: TSqlStrings
    jyp_Sql.Strings = (
      
        'select a.ppdm,a.kfdm,a.crkdh,a.zi,a.rq,a.zy,a.jssl,a.zjsl,a.jcsl' +
        ',a.zbr,a.sdate,b.kfmc,c.tmc, c.zh'
      ' from TKS_JYPMXFLZ a, TGS_KFB b, TB_YZPPXXB c ')
    txp_Sql.Strings = (
      
        'select a.ppdm,a.kfdm,a.crkdh,a.zi,a.rq,a.zy,a.jssl,a.zjsl,a.jcsl' +
        ',a.zbr,a.sdate,b.kfmc,c.tmc, c.zh'
      ' from tks_txpmxflz a, TGS_KFB b, TB_YZPPXXB c ')
    yp_Sql.Strings = (
      
        'select a.ppdm,a.kfdm,a.crkdh,a.zi,a.rq,a.zy,a.jssl,a.zjsl,a.jcsl' +
        ',a.zbr,a.sdate,b.kfmc,c.mc, c.zh'
      ' from TKS_YPMXFLZ a, TGS_KFB b, TB_JYPTXXB c ')
    grp_Sql.Strings = (
      
        'select a.ppdm,a.kfdm,a.crkdh,a.zi,a.rq,a.zy,a.jssl,a.zjsl,a.jcsl' +
        ',a.zbr,a.sdate,b.kfmc,c.tmc, c.zh'
      ' from TKS_GRPMXFLZ a, TGS_KFB b, TB_YZPPXXB c')
    Left = 184
    Top = 136
  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