sy_jyywsrdj.dfm

省级集邮品管理ERP

    object Bevel1: TBevel
      Left = 0
      Top = 41
      Width = 592
      Height = 104
      Align = alClient
    end
    object DBEdit1: TDBEdit
      Left = 88
      Top = 49
      Width = 135
      Height = 20
      DataField = 'DWMC'
      DataSource = Dso_YWSR
      TabOrder = 5
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 592
      Height = 41
      Align = alTop
      BevelOuter = bvLowered
      Caption = 'Panel2'
      TabOrder = 6
      object Panel1: TRxLabel
        Left = 191
        Top = 9
        Width = 228
        Height = 24
        Caption = '集邮业务收入统计表'
        Font.Charset = GB2312_CHARSET
        Font.Color = clGreen
        Font.Height = -24
        Font.Name = '楷体_GB2312'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object DED_BYYWSR: TDBEdit
      Left = 88
      Top = 79
      Width = 135
      Height = 20
      DataField = 'JYPSR'
      DataSource = Dso_YWSR
      TabOrder = 1
    end
    object DED_BYMLR: TDBEdit
      Left = 87
      Top = 111
      Width = 135
      Height = 20
      DataField = 'QTSR'
      DataSource = Dso_YWSR
      TabOrder = 3
    end
    object DED_YWSRLJ: TDBEdit
      Left = 415
      Top = 79
      Width = 104
      Height = 20
      DataField = 'YPSR'
      DataSource = Dso_YWSR
      TabOrder = 2
    end
    object DED_MLRLJ: TDBEdit
      Left = 415
      Top = 111
      Width = 104
      Height = 20
      DataField = 'ML'
      DataSource = Dso_YWSR
      TabOrder = 4
    end
    object CB_DWMC: TFieldComboBox
      Left = 88
      Top = 49
      Width = 135
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 0
      OnChange = CB_DWMCChange
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 145
    Width = 592
    Height = 243
    Align = alClient
    DataSource = Dso_YWSR
    PopupMenu = data.pm_Export
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    OnTitleClick = DBGrid1TitleClick
    Columns = <
      item
        Expanded = False
        FieldName = 'DWMC'
        ReadOnly = True
        Title.Alignment = taCenter
        Width = 180
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ND'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '年度'
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'YF'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '月份'
        Visible = False
      end
      item
        Expanded = False
        FieldName = 'JYPSR'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '集邮票收入(万元)'
        Width = 95
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'YPSR'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '邮品收入(万元)'
        Width = 99
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'QTSR'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '其他收入(万元)'
        Width = 106
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ML'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '毛利(万元)'
        Width = 91
        Visible = True
      end>
  end
  object Qry_YWSR: TQuery
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      'select * from TYS_JYYWSRTJB')
    Left = 144
    Top = 184
    object Qry_YWSRDWDM: TStringField
      FieldName = 'DWDM'
      Origin = 'YZPP.TYS_JYYWSRTJB.DWDM'
      Size = 8
    end
    object Qry_YWSRND: TStringField
      FieldName = 'ND'
      Origin = 'YZPP.TYS_JYYWSRTJB.ND'
      Size = 4
    end
    object Qry_YWSRYF: TStringField
      FieldName = 'YF'
      Origin = 'YZPP.TYS_JYYWSRTJB.YF'
      Size = 2
    end
    object Qry_YWSRJYPSR: TFloatField
      FieldName = 'JYPSR'
      Origin = 'YZPP.TYS_JYYWSRTJB.JYPSR'
      OnGetText = Qry_YWSRJYPSRGetText
      OnSetText = Qry_YWSRJYPSRSetText
    end
    object Qry_YWSRYPSR: TFloatField
      FieldName = 'YPSR'
      Origin = 'YZPP.TYS_JYYWSRTJB.YPSR'
      OnGetText = Qry_YWSRJYPSRGetText
      OnSetText = Qry_YWSRJYPSRSetText
    end
    object Qry_YWSRQTSR: TFloatField
      FieldName = 'QTSR'
      Origin = 'YZPP.TYS_JYYWSRTJB.QTSR'
      OnGetText = Qry_YWSRJYPSRGetText
      OnSetText = Qry_YWSRJYPSRSetText
    end
    object Qry_YWSRML: TFloatField
      FieldName = 'ML'
      Origin = 'YZPP.TYS_JYYWSRTJB.ML'
      OnGetText = Qry_YWSRJYPSRGetText
      OnSetText = Qry_YWSRJYPSRSetText
    end
    object Qry_YWSRSPR: TStringField
      FieldName = 'SPR'
      Origin = 'YZPP.TYS_JYYWSRTJB.SPR'
      Size = 12
    end
    object Qry_YWSRZBR: TStringField
      FieldName = 'ZBR'
      Origin = 'YZPP.TYS_JYYWSRTJB.ZBR'
      Size = 12
    end
    object Qry_YWSRZT: TStringField
      FieldName = 'ZT'
      Origin = 'YZPP.TYS_JYYWSRTJB.ZT'
      Size = 1
    end
    object Qry_YWSRSDATE: TDateTimeField
      FieldName = 'SDATE'
      Origin = 'YZPP.TYS_JYYWSRTJB.SDATE'
    end
    object Qry_YWSRdwmc: TStringField
      DisplayLabel = '单位名称'
      FieldKind = fkLookup
      FieldName = 'DWMC'
      LookupDataSet = Qry_GXDWSJBG
      LookupKeyFields = 'DWDM'
      LookupResultField = 'DWMC'
      KeyFields = 'DWDM'
      Size = 40
      Lookup = True
    end
  end
  object Dso_YWSR: TDataSource
    DataSet = Qry_YWSR
    Left = 176
    Top = 184
  end
  object DataSource1: TDataSource
    DataSet = Qry_GXDWSJBG
    Left = 296
    Top = 216
  end
  object Qry_GXDWSJBG: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select DWDM,DWJC DWMC from TGS_GXDWSJB ')
    Left = 248
    Top = 216
  end
  object Qry_Static: TQuery
    DatabaseName = 'yzpp'
    Left = 368
    Top = 216
  end
end