ckjh_jjw_addpp.dfm

省级集邮品管理ERP

              TitleFont.Name = '宋体'
              TitleFont.Style = []
              Columns = <
                item
                  Expanded = False
                  FieldName = 'QLDH'
                  Title.Alignment = taCenter
                  Title.Caption = '请领单号'
                  Visible = True
                end>
            end
          end
          object TabSheet4: TTabSheet
            Caption = 'TabSheet4'
            ImageIndex = 1
            TabVisible = False
            object bbtn_PPSel: TBitBtn
              Left = 538
              Top = 278
              Width = 75
              Height = 25
              Caption = '查询票品'
              TabOrder = 0
              OnClick = bbtn_PPSelClick
              Glyph.Data = {
                F6000000424DF600000000000000760000002800000010000000100000000100
                0400000000008000000000000000000000001000000000000000000000000000
                80000080000000808000800000008000800080800000C0C0C000808080000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
                DDDDDDDDDDDDDDDDDDDDCCCCCDDDDDCCCCCDCFCCCDDDDDCFCCCDCFCCCDDDDDCF
                CCCDCCCCCCCDCCCCCCCDCCFCCCCCCFCCCCCDCCFCCCDCCFCCCCCDCCFCCCDCCFCC
                CCCDDCCCCCCCCCCCCCDDDDCFCCCDCFCCCDDDDDCCCCCDCCCCCDDDDDDCCCDDDCCC
                DDDDDDDCFCDDDCFCDDDDDDDCCCDDDCCCDDDDDDDDDDDDDDDDDDDD}
            end
            object dbg_PP: TDBGrid
              Left = 0
              Top = 0
              Width = 615
              Height = 263
              Align = alTop
              DataSource = ds_PP_N
              Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
              TabOrder = 1
              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
          end
        end
      end
    end
  end
  object BitBtn1: TBitBtn
    Left = 506
    Top = 392
    Width = 75
    Height = 25
    Caption = '取消(&C)'
    TabOrder = 4
    Kind = bkCancel
  end
  object qry_DW: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'select DWDM, DWMC, DWJC, DH, LXR, EMAIL, DZ, BZ, BJ, ZJSJ, SJFH,' +
        ' ZJXJ, KH, GYS, TXYW, JYYW, PXM, GKGX, FHDX, HOSTNAME from TGS_G' +
        'XDWSJB')
    Left = 320
    Top = 16
  end
  object qry_YJD: TQuery
    AfterScroll = qry_YJDAfterScroll
    DatabaseName = 'yzpp'
    Left = 376
    Top = 16
  end
  object qry_PPInfo_Y: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'select DWDM,PPMC,TDM, XQZTS from TY_JJWXQB')
    Left = 424
    Top = 16
  end
  object qry_PPInfo_N: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'Select b.TYPE, a.KFDM, d.KFMC, a.PPDM, b.TMC PPMC, b.ZH, b.TPMZ ' +
        'MZ, b.TPSJ SJ, a.KWH, b.PPLB, a.JJ, a.XJ, a.JSJ, a.ZK, a.TS SL '
      ' from TYS_TXPPKC a, TB_YZPPXXB b, TGS_KFB d'
      ' where a.PPDM = b.TDM  and d.KFDM = a.KFDM ')
    Left = 480
    Top = 16
    object qry_PPInfo_NTYPE: TStringField
      FieldName = 'TYPE'
      Origin = 'YZPP.TB_YZPPXXB.TYPE'
      Size = 4
    end
    object qry_PPInfo_NKFDM: TStringField
      FieldName = 'KFDM'
      Origin = 'YZPP.TYS_TXPPKC.KFDM'
      Size = 3
    end
    object qry_PPInfo_NKFMC: TStringField
      FieldName = 'KFMC'
      Origin = 'YZPP.TGS_KFB.KFMC'
      Size = 30
    end
    object qry_PPInfo_NPPDM: TStringField
      FieldName = 'PPDM'
      Origin = 'YZPP.TYS_TXPPKC.PPDM'
      Size = 13
    end
    object qry_PPInfo_NPPMC: TStringField
      FieldName = 'PPMC'
      Origin = 'YZPP.TB_YZPPXXB.TMC'
      Size = 120
    end
    object qry_PPInfo_NZH: TStringField
      FieldName = 'ZH'
      Origin = 'YZPP.TB_YZPPXXB.ZH'
    end
    object qry_PPInfo_NMZ: TFloatField
      FieldName = 'MZ'
      Origin = 'YZPP.TB_YZPPXXB.TPMZ'
      OnGetText = qry_PPInfo_NMZGetText
    end
    object qry_PPInfo_NSJ: TFloatField
      FieldName = 'SJ'
      Origin = 'YZPP.TB_YZPPXXB.TPSJ'
      OnGetText = qry_PPInfo_NJJGetText
    end
    object qry_PPInfo_NKWH: TStringField
      FieldName = 'KWH'
      Origin = 'YZPP.TYS_TXPPKC.KWH'
      Size = 30
    end
    object qry_PPInfo_NPPLB: TStringField
      FieldName = 'PPLB'
      Origin = 'YZPP.TB_YZPPXXB.PPLB'
      Size = 4
    end
    object qry_PPInfo_NJJ: TFloatField
      FieldName = 'JJ'
      Origin = 'YZPP.TYS_TXPPKC.JJ'
      OnGetText = qry_PPInfo_NJJGetText
    end
    object qry_PPInfo_NXJ: TFloatField
      FieldName = 'XJ'
      Origin = 'YZPP.TYS_TXPPKC.XJ'
      OnGetText = qry_PPInfo_NJJGetText
    end
    object qry_PPInfo_NJSJ: TFloatField
      FieldName = 'JSJ'
      Origin = 'YZPP.TYS_TXPPKC.JSJ'
      OnGetText = qry_PPInfo_NJJGetText
    end
    object qry_PPInfo_NZK: TFloatField
      FieldName = 'ZK'
      Origin = 'YZPP.TYS_TXPPKC.ZK'
    end
    object qry_PPInfo_NSL: TFloatField
      FieldName = 'SL'
      Origin = 'YZPP.TYS_TXPPKC.TS'
      OnGetText = qry_PPInfo_NSLGetText
    end
  end
  object ds_dW: TDataSource
    DataSet = qry_DW
    Left = 308
    Top = 103
  end
  object ds_DH: TDataSource
    DataSet = qry_YJD
    Left = 380
    Top = 103
  end
  object qry_PP_Y: TDataSource
    DataSet = qry_PPInfo_Y
    Left = 428
    Top = 95
  end
  object ds_PP_N: TDataSource
    DataSet = qry_PPInfo_N
    Left = 484
    Top = 103
  end
end