ckjh_jjw_addpp2.dfm

省级集邮品管理ERP

object Frm_CKJH_JJW_AddPP2: TFrm_CKJH_JJW_AddPP2
  Left = 112
  Top = 95
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '选择票品'
  ClientHeight = 372
  ClientWidth = 593
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 8
    Top = 12
    Width = 24
    Height = 12
    Caption = '年度'
  end
  object sp_ND: TSpinEdit
    Left = 48
    Top = 6
    Width = 63
    Height = 21
    MaxValue = 0
    MinValue = 0
    TabOrder = 0
    Value = 0
    OnChange = sp_NDChange
  end
  object bbtn_OK: TBitBtn
    Left = 179
    Top = 336
    Width = 75
    Height = 25
    Caption = '确认(&Y)'
    TabOrder = 1
    OnClick = bbtn_OKClick
    Kind = bkOK
  end
  object bbtn_Cancel: TBitBtn
    Left = 339
    Top = 336
    Width = 75
    Height = 25
    Caption = '取消(&C)'
    TabOrder = 2
    Kind = bkCancel
  end
  object dbg_PP: TDBGrid
    Left = 0
    Top = 30
    Width = 587
    Height = 290
    DataSource = DataSource1
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
    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 = 60
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PPMC'
        Title.Alignment = taCenter
        Title.Caption = '票品名称'
        Width = 128
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'KFMC'
        Title.Alignment = taCenter
        Title.Caption = '库房'
        Width = 62
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SL'
        Title.Alignment = taCenter
        Title.Caption = '库存数量'
        Width = 59
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'MZ'
        Title.Alignment = taCenter
        Title.Caption = '面值(元)'
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JJ'
        Title.Alignment = taCenter
        Title.Caption = '进价(元)'
        Width = 52
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'XJ'
        Title.Caption = '销价(元)'
        Width = 50
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZK'
        Title.Alignment = taCenter
        Title.Caption = '折扣%'
        Width = 40
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JSJ'
        Title.Alignment = taCenter
        Title.Caption = '结算价(元)'
        Width = 60
        Visible = True
      end>
  end
  object qry_SelPP: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        '    Select a.KFDM, d.KFMC, a.PPDM , b.TMC PPMC, b.ZH, b.TPMZ MZ,' +
        ' b.TPSJ/100 SJ, a.KWH, b.PPLB, a.JJ/100 JJ, a.XJ/100 XJ , a.JSJ/' +
        '100 JSJ, a.ZK, a.TS SL '
      ' from TYS_JYPPKC a, TB_YZPPTXXB b, TGS_KFRYDZB c, TGS_KFB d '
      ' where a.PPDM = b.TDM  and d.KFDM = a.KFDM  and c.KFDM = d.KFDM '
      ' and a.TS>0 ')
    Left = 192
    Top = 152
    object qry_SelPPKFDM: TStringField
      FieldName = 'KFDM'
      Origin = 'YZPP.TYS_JYPPKC.KFDM'
      Size = 3
    end
    object qry_SelPPKFMC: TStringField
      FieldName = 'KFMC'
      Origin = 'YZPP.TGS_KFB.KFMC'
      Size = 30
    end
    object qry_SelPPPPDM: TStringField
      FieldName = 'PPDM'
      Origin = 'YZPP.TYS_JYPPKC.PPDM'
      Size = 13
    end
    object qry_SelPPPPMC: TStringField
      FieldName = 'PPMC'
      Origin = 'YZPP.TB_YZPPTXXB.TMC'
      Size = 60
    end
    object qry_SelPPZH: TStringField
      FieldName = 'ZH'
      Origin = 'YZPP.TB_YZPPTXXB.ZH'
      Size = 11
    end
    object qry_SelPPMZ: TFloatField
      FieldName = 'MZ'
      Origin = 'YZPP.TB_YZPPTXXB.TPMZ'
      OnGetText = qry_SelPPJJGetText
    end
    object qry_SelPPSJ: TFloatField
      FieldName = 'SJ'
      Origin = 'YZPP.TB_YZPPTXXB.TPSJ'
      OnGetText = qry_SelPPJJGetText
    end
    object qry_SelPPKWH: TStringField
      FieldName = 'KWH'
      Origin = 'YZPP.TYS_JYPPKC.KWH'
      Size = 30
    end
    object qry_SelPPPPLB: TStringField
      FieldName = 'PPLB'
      Origin = 'YZPP.TB_YZPPTXXB.PPLB'
      Size = 4
    end
    object qry_SelPPJJ: TFloatField
      FieldName = 'JJ'
      Origin = 'YZPP.TYS_JYPPKC.JJ'
      OnGetText = qry_SelPPJJGetText
    end
    object qry_SelPPXJ: TFloatField
      FieldName = 'XJ'
      Origin = 'YZPP.TYS_JYPPKC.XJ'
      OnGetText = qry_SelPPJJGetText
    end
    object qry_SelPPJSJ: TFloatField
      FieldName = 'JSJ'
      Origin = 'YZPP.TYS_JYPPKC.JSJ'
      OnGetText = qry_SelPPJJGetText
    end
    object qry_SelPPZK: TFloatField
      FieldName = 'ZK'
      Origin = 'YZPP.TYS_JYPPKC.ZK'
    end
    object qry_SelPPSL: TFloatField
      FieldName = 'SL'
      Origin = 'YZPP.TYS_JYPPKC.TS'
      OnGetText = qry_SelPPSLGetText
    end
  end
  object DataSource1: TDataSource
    DataSet = qry_SelPP
    Left = 344
    Top = 160
  end
end