sy_jypxxwh_yd.dfm

省级集邮品管理ERP

object frm_JYPXXWH_yd: Tfrm_JYPXXWH_yd
  Left = 250
  Top = 195
  BorderStyle = bsDialog
  Caption = '邮资票品管理信息系统——集邮品业务'
  ClientHeight = 273
  ClientWidth = 395
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 232
    Width = 395
    Height = 41
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object BitBtn1: TBitBtn
      Left = 220
      Top = 8
      Width = 75
      Height = 25
      Caption = '确定'
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 304
      Top = 8
      Width = 75
      Height = 25
      Caption = '取消'
      ModalResult = 2
      TabOrder = 1
    end
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 395
    Height = 232
    ActivePage = TabSheet1
    Align = alClient
    Style = tsFlatButtons
    TabOrder = 1
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = '套信息'
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 387
        Height = 202
        Align = alClient
        DataSource = DataSource1
        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 = 'ND'
            Title.Caption = '年度'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'XH'
            Title.Caption = '序号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TMC'
            Title.Caption = '套名称'
            Width = 150
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'FXDWMC'
            Title.Caption = '发行单位名称'
            Width = 150
            Visible = True
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = '枚信息'
      ImageIndex = 1
      object DBGrid2: TDBGrid
        Left = 0
        Top = 0
        Width = 387
        Height = 202
        Align = alClient
        DataSource = DataSource2
        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 = 'MXH'
            Title.Caption = '枚序号'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TUMC'
            Title.Caption = '枚名称'
            Width = 291
            Visible = True
          end>
      end
    end
  end
  object Query1: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'select JHH, ND, XH, JYPLB, TZDM, DW, TMC, TJC, QTMS, CB, QTSJ, F' +
        'XRQ, JHFXL, FXDWDM, FXDWMC, PZR, ZBR, ZBRQ, BZ, SDATEFX '
      'from TF_YPFXJHTAO'
      'order by ND')
    Left = 42
    Top = 64
    object Query1JHH: TStringField
      FieldName = 'JHH'
    end
    object Query1ND: TStringField
      FieldName = 'ND'
      Size = 4
    end
    object Query1XH: TStringField
      FieldName = 'XH'
      Size = 2
    end
    object Query1JYPLB: TStringField
      FieldName = 'JYPLB'
      Size = 4
    end
    object Query1TZDM: TStringField
      FieldName = 'TZDM'
      Size = 2
    end
    object Query1DW: TStringField
      FieldName = 'DW'
      Size = 6
    end
    object Query1TMC: TStringField
      FieldName = 'TMC'
      Size = 60
    end
    object Query1TJC: TStringField
      FieldName = 'TJC'
      Size = 16
    end
    object Query1QTMS: TFloatField
      FieldName = 'QTMS'
    end
    object Query1CB: TFloatField
      FieldName = 'CB'
    end
    object Query1QTSJ: TFloatField
      FieldName = 'QTSJ'
    end
    object Query1FXRQ: TDateTimeField
      FieldName = 'FXRQ'
    end
    object Query1JHFXL: TFloatField
      FieldName = 'JHFXL'
    end
    object Query1FXDWDM: TStringField
      FieldName = 'FXDWDM'
      Size = 60
    end
    object Query1FXDWMC: TStringField
      FieldName = 'FXDWMC'
      Size = 60
    end
    object Query1PZR: TStringField
      FieldName = 'PZR'
      Size = 12
    end
    object Query1ZBR: TStringField
      FieldName = 'ZBR'
      Size = 12
    end
    object Query1ZBRQ: TDateTimeField
      FieldName = 'ZBRQ'
    end
    object Query1BZ: TStringField
      FieldName = 'BZ'
      Size = 100
    end
    object Query1SDATEFX: TDateTimeField
      FieldName = 'SDATEFX'
    end
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 72
    Top = 64
  end
  object Query2: TQuery
    DatabaseName = 'yzpp'
    DataSource = DataSource1
    SQL.Strings = (
      
        'select JHH, MXH, PPLB, DW, TUMC, TUJC, CB, SJ, JHFXL, BZ, SDATEF' +
        'X'
      'from TF_YPFXJHM'
      'where JHH=:JHH'
      'order by to_number(MXH)')
    Left = 208
    Top = 72
    ParamData = <
      item
        DataType = ftString
        Name = 'JHH'
        ParamType = ptUnknown
      end>
    object Query2JHH: TStringField
      FieldName = 'JHH'
      Size = 8
    end
    object Query2MXH: TFloatField
      FieldName = 'MXH'
    end
    object Query2PPLB: TStringField
      FieldName = 'PPLB'
      Size = 4
    end
    object Query2DW: TStringField
      FieldName = 'DW'
      Size = 6
    end
    object Query2TUMC: TStringField
      FieldName = 'TUMC'
      Size = 60
    end
    object Query2TUJC: TStringField
      FieldName = 'TUJC'
      Size = 16
    end
    object Query2CB: TFloatField
      FieldName = 'CB'
    end
    object Query2SJ: TFloatField
      FieldName = 'SJ'
    end
    object Query2JHFXL: TFloatField
      FieldName = 'JHFXL'
    end
    object Query2BZ: TStringField
      FieldName = 'BZ'
      Size = 100
    end
    object Query2SDATEFX: TDateTimeField
      FieldName = 'SDATEFX'
    end
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 236
    Top = 72
  end
end