gy_addppdm.dfm

省级集邮品管理ERP

object FrmY_ADDPPDM1: TFrmY_ADDPPDM1
  Left = 122
  Top = 155
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = '选择票品'
  ClientHeight = 293
  ClientWidth = 546
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label3: TLabel
    Left = 414
    Top = 7
    Width = 36
    Height = 12
    Caption = '年度：'
  end
  object BitBtn1: TBitBtn
    Left = 360
    Top = 262
    Width = 75
    Height = 25
    Caption = '确定'
    Default = True
    ModalResult = 1
    TabOrder = 0
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 451
    Top = 262
    Width = 75
    Height = 25
    Cancel = True
    Caption = '取消'
    ModalResult = 2
    TabOrder = 1
    NumGlyphs = 2
  end
  object ND: TSpinEdit
    Left = 462
    Top = 3
    Width = 54
    Height = 21
    Hint = '更改年度'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    MaxLength = 4
    MaxValue = 9999
    MinValue = 0
    ParentFont = False
    TabOrder = 2
    Value = 9999
    OnChange = NDChange
  end
  object DBG_YZPPTXXB: TDBGrid
    Left = 7
    Top = 27
    Width = 530
    Height = 225
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    PopupMenu = data.pm_Export
    TabOrder = 3
    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 = 74
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TMC'
        Title.Alignment = taCenter
        Title.Caption = '票品名称'
        Width = 174
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MC'
        Title.Alignment = taCenter
        Title.Caption = '类别'
        Width = 81
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TPMS'
        Title.Alignment = taCenter
        Title.Caption = '全套枚数'
        Width = 52
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'TPMZ'
        Title.Alignment = taCenter
        Title.Caption = '面值(元)'
        Width = 51
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'FXRQ'
        Title.Alignment = taCenter
        Title.Caption = '发行日期'
        Width = 56
        Visible = True
      end>
  end
  object Qry_PPDM: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'Select A.TDM,A.TMC,A.ZH,A.TPMS,A.TPSJ,A.TPMZ,A.FXRQ,A.JHH,B.MC f' +
        'rom TB_YZPPTXXB A,TG_YZPPLDMB B'
      'WHERE A.PPLB=B.YZLDM')
    Left = 121
    Top = 83
    object Qry_PPDMTDM: TStringField
      FieldName = 'TDM'
      Size = 13
    end
    object Qry_PPDMZH: TStringField
      FieldName = 'ZH'
      Size = 11
    end
    object Qry_PPDMTPMS: TFloatField
      FieldName = 'TPMS'
    end
    object Qry_PPDMTPMZ: TFloatField
      FieldName = 'TPMZ'
      OnGetText = Qry_PPDMTPMZGetText
    end
    object Qry_PPDMTPSJ: TFloatField
      FieldName = 'TPSJ'
      OnGetText = Qry_PPDMTPMZGetText
    end
    object Qry_PPDMTMC: TStringField
      FieldName = 'TMC'
      Size = 60
    end
    object Qry_PPDMFXRQ: TDateTimeField
      FieldName = 'FXRQ'
    end
    object Qry_PPDMJHH: TStringField
      FieldName = 'JHH'
      Size = 8
    end
    object Qry_PPDMMC: TStringField
      FieldName = 'MC'
      Origin = 'YZPP.TG_YZPPLDMB.MC'
    end
  end
  object DataSource1: TDataSource
    DataSet = Qry_PPDM
    Left = 169
    Top = 83
  end
end