jm_kccx.dfm

省级集邮品管理ERP

object frm_KCCX: Tfrm_KCCX
  Left = -10
  Top = -7
  BorderStyle = bsDialog
  Caption = '集邮门市管理'
  ClientHeight = 502
  ClientWidth = 744
  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 Label4: TLabel
    Left = 668
    Top = 26
    Width = 36
    Height = 12
    Caption = '年度：'
  end
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 744
    Height = 49
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 0
    object XttxTitle: TRxLabel
      Left = 1
      Top = 1
      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 Lbl_user: TLabel
      Left = 20
      Top = 28
      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 = 90
    Width = 744
    Height = 412
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object Label6: TLabel
      Left = 12
      Top = 12
      Width = 48
      Height = 12
      Caption = '库存票品'
    end
    object Panel2: TPanel
      Left = 557
      Top = 0
      Width = 187
      Height = 412
      Align = alRight
      BevelOuter = bvLowered
      Caption = 'Panel2'
      TabOrder = 0
      object GroupBox2: TGroupBox
        Left = 12
        Top = 6
        Width = 165
        Height = 87
        Caption = '查询范围'
        TabOrder = 0
        object Label3: TLabel
          Left = 14
          Top = 24
          Width = 48
          Height = 12
          Caption = '营业员：'
        end
        object ComboBox1: TComboBox
          Left = 16
          Top = 44
          Width = 100
          Height = 20
          ItemHeight = 12
          TabOrder = 0
          Text = '全部'
          OnChange = ComboBox1Change
          Items.Strings = (
            '全部')
        end
      end
      object GroupBox1: TGroupBox
        Left = 13
        Top = 101
        Width = 164
        Height = 189
        Caption = '查询条件'
        TabOrder = 1
        object Label1: TLabel
          Left = 14
          Top = 60
          Width = 24
          Height = 12
          Caption = '起始'
        end
        object Label2: TLabel
          Left = 14
          Top = 88
          Width = 24
          Height = 12
          Caption = '截止'
        end
        object CheckBox1: TCheckBox
          Left = 15
          Top = 25
          Width = 129
          Height = 17
          Caption = '按库存量查询'
          TabOrder = 0
        end
        object CheckBox7: TCheckBox
          Left = 14
          Top = 128
          Width = 121
          Height = 14
          Caption = '按票品查询'
          TabOrder = 3
          OnClick = CheckBox7Click
        end
        object edtSLStart: TEdit
          Left = 53
          Top = 56
          Width = 100
          Height = 20
          TabOrder = 1
          OnKeyPress = edtSLStartKeyPress
        end
        object edtSLend: TEdit
          Left = 53
          Top = 84
          Width = 100
          Height = 20
          TabOrder = 2
          OnKeyPress = edtSLendKeyPress
        end
        object YzppSelect1: TYzppSelect
          Left = 53
          Top = 156
          Width = 100
          Height = 20
          Enabled = False
          TabOrder = 4
          DatabaseName = 'YZPP'
          PPLX = lx_custom
          SQL.Strings = (
            
              'SELECT a.Tdm, a.zh, a.TJC, b.mc FROM TB_YZPPTXXB a, TG_YZPPTZDM ' +
              'b  '
            ' where substr(a.TDM, 10, 2) = b.TZDM(+)  order by zh')
          Title_Str = '面值(元)'
          OnEnter = CheckBox7Click
          DropDownCount = 8
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          Color = clWindow
          ShowHint = False
          ReadOnly = False
        end
      end
      object btnFind: TButton
        Left = 18
        Top = 340
        Width = 75
        Height = 25
        Caption = '查询'
        TabOrder = 2
        OnClick = btnFindClick
      end
      object Button2: TButton
        Left = 18
        Top = 374
        Width = 75
        Height = 25
        Caption = '志号定位'
        TabOrder = 3
        OnClick = Button2Click
      end
      object btnPrint: TButton
        Left = 101
        Top = 340
        Width = 75
        Height = 25
        Caption = '打印'
        TabOrder = 4
        OnClick = btnPrintClick
      end
      object btnEdit: TButton
        Left = 101
        Top = 374
        Width = 75
        Height = 25
        Caption = '退出'
        ModalResult = 1
        TabOrder = 5
      end
    end
    object Panel3: TPanel
      Left = 0
      Top = 0
      Width = 557
      Height = 412
      Align = alClient
      BevelOuter = bvLowered
      TabOrder = 1
      object DBGrid1: TDBGrid
        Left = 1
        Top = 1
        Width = 555
        Height = 410
        Align = alClient
        DataSource = DataSource1
        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 = []
        Columns = <
          item
            Expanded = False
            FieldName = 'ZH'
            Title.Alignment = taCenter
            Title.Caption = '志号'
            Width = 75
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'PPMC'
            Title.Caption = '名称'
            Width = 121
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'JJ'
            Title.Caption = '进价(元)'
            Width = 75
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DJ'
            Title.Caption = '售价(元)'
            Width = 61
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FXRQ'
            Title.Caption = '发行日期'
            Width = 97
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SL'
            Title.Caption = '实际库存数量'
            Width = 72
            Visible = True
          end>
      end
    end
  end
  object Panel5: TPanel
    Left = 0
    Top = 49
    Width = 744
    Height = 41
    Align = alTop
    BevelOuter = bvLowered
    Caption = 'Panel5'
    TabOrder = 2
    object Rgp_ppfl: TRadioGroup
      Left = 1
      Top = 1
      Width = 742
      Height = 39
      Align = alClient
      Caption = '票品类别'
      Columns = 5
      Items.Strings = (
        '集邮票'
        '集邮品'
        '购入票')
      TabOrder = 0
      OnClick = Rgp_ppflClick
    end
  end
  object Qry_find: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select * from tm_yyykc')
    Left = 184
    Top = 133
    object Qry_findPPDM: TStringField
      FieldName = 'PPDM'
      Origin = 'JM_YZPP.TM_HTKC.PPDM'
      Size = 15
    end
    object Qry_findLB: TStringField
      FieldName = 'LB'
      Origin = 'JM_YZPP.TM_HTKC.LB'
      Size = 5
    end
    object Qry_findZH: TStringField
      FieldName = 'ZH'
      Origin = 'JM_YZPP.TM_HTKC.ZH'
      Size = 11
    end
    object Qry_findPPMC: TStringField
      FieldName = 'PPMC'
      Origin = 'JM_YZPP.TM_HTKC.PPMC'
      Size = 60
    end
    object Qry_findDJ: TFloatField
      FieldName = 'DJ'
      Origin = 'JM_YZPP.TM_HTKC.DJ'
      OnGetText = Qry_findDJGetText
      OnSetText = Qry_findDJSetText
    end
    object Qry_findTDM: TStringField
      FieldName = 'TDM'
      Origin = 'JM_YZPP.TB_YZPPXXB.TDM'
      Size = 15
    end
    object Qry_findSL: TFloatField
      FieldName = 'SL'
      DisplayFormat = '#,##'
    end
    object Qry_findFXRQ: TStringField
      FieldName = 'FXRQ'
      Size = 75
    end
    object Qry_findJJ: TFloatField
      FieldName = 'JJ'
      Origin = 'YZPP.TM_YYYKC.JJ'
      OnGetText = Qry_findJJGetText
      OnSetText = Qry_findJJSetText
    end
  end
  object DataSource1: TDataSource
    DataSet = Qry_find
    Left = 220
    Top = 133
  end
  object Query1: TQuery
    DatabaseName = 'YZPP'
    Left = 572
    Top = 181
  end
  object Qry_ryb: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select ygdm,ygmc from tgs_ryb')
    Left = 188
    Top = 177
    object Qry_rybYGDM: TStringField
      FieldName = 'YGDM'
      Origin = 'JM_YZPP.TGS_RYB.YGDM'
      Size = 8
    end
    object Qry_rybYGMC: TStringField
      FieldName = 'YGMC'
      Origin = 'JM_YZPP.TGS_RYB.YGMC'
      Size = 12
    end
  end
end