sy_jyprkdbl.dfm

省级集邮品管理ERP

inherited frm_JYPRKDBL: Tfrm_JYPRKDBL
  Tag = 23200
  Left = 58
  Top = 61
  Caption = '邮资票品管理信息系统——集邮票业务'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object ModiPanel1: TModiPanel
    Left = 0
    Top = 442
    Width = 692
    Height = 31
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 0
    DisButton = [bnAdd, bnDelete, bnEdit, bnSave, bnCancel, bnClose]
    BtnWidth = 70
    OnBtnClick = ModiPanel1BtnClick
  end
  object Panel1: TPanel
    Left = 0
    Top = 45
    Width = 161
    Height = 397
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object DBG_fhd: TDBGrid
      Left = 0
      Top = 0
      Width = 161
      Height = 397
      Align = alClient
      DataSource = DS_fhd
      ImeName = '中文 (简体) - 全拼'
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      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 = 'FHDH'
          Title.Caption = '发货单号'
          Width = 121
          Visible = True
        end>
    end
  end
  object Pnl_edit: TPanel
    Left = 161
    Top = 45
    Width = 531
    Height = 397
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 2
    object Label3: TLabel
      Left = 317
      Top = 48
      Width = 48
      Height = 12
      Caption = '开单日期'
    end
    object Label5: TLabel
      Left = 330
      Top = 76
      Width = 36
      Height = 12
      Caption = '制表人'
    end
    object Label4: TLabel
      Left = 32
      Top = 19
      Width = 48
      Height = 12
      Caption = '发货单号'
    end
    object Label1: TLabel
      Left = 32
      Top = 76
      Width = 48
      Height = 12
      Alignment = taRightJustify
      Caption = '结算金额'
    end
    object Label2: TLabel
      Left = 56
      Top = 104
      Width = 24
      Height = 12
      Caption = '备注'
    end
    object Label6: TLabel
      Left = 32
      Top = 49
      Width = 48
      Height = 12
      Caption = '来源单位'
    end
    object Label7: TLabel
      Left = 317
      Top = 20
      Width = 48
      Height = 12
      Caption = '出库性质'
    end
    object DBG_fhpp: TDBGrid
      Left = 1
      Top = 164
      Width = 529
      Height = 232
      Align = alBottom
      DataSource = DS_fhpp
      FixedColor = clMenu
      ImeName = '中文 (简体) - 全拼'
      PopupMenu = data.pm_Export
      TabOrder = 7
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'ZH'
          ReadOnly = True
          Title.Caption = '志号'
          Width = 68
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'TJC'
          ReadOnly = True
          Title.Caption = '名称'
          Width = 116
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'SL'
          Title.Caption = '数量(套)'
          Width = 61
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'SJ'
          Title.Caption = '销价(元)'
          Width = 65
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'ZK'
          Title.Caption = '折扣(%)'
          Width = 45
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'JSJ'
          Title.Caption = '结算价(元)'
          Width = 65
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'JSJE'
          ReadOnly = True
          Title.Caption = '结算金额(元)'
          Visible = True
        end>
    end
    object DBM_bz: TDBMemo
      Left = 83
      Top = 100
      Width = 406
      Height = 41
      DataField = 'BZ'
      DataSource = DS_fhd
      TabOrder = 6
    end
    object DBDE_kdrq: TDBDateEdit
      Left = 368
      Top = 43
      Width = 122
      Height = 21
      DataField = 'KDRQ'
      DataSource = DS_fhd
      NumGlyphs = 2
      TabOrder = 3
      YearDigits = dyFour
    end
    object DBEdt_fhdh: TDBEdit
      Left = 83
      Top = 16
      Width = 121
      Height = 20
      CharCase = ecUpperCase
      DataField = 'FHDH'
      DataSource = DS_fhd
      TabOrder = 0
    end
    object DBEdt_zbr: TDBEdit
      Left = 368
      Top = 72
      Width = 121
      Height = 20
      DataField = 'ZBR'
      DataSource = DS_fhd
      TabOrder = 5
    end
    object DBEdt_jsje: TDBEdit
      Left = 83
      Top = 72
      Width = 121
      Height = 20
      DataField = 'JSJE'
      DataSource = DS_fhd
      TabOrder = 4
    end
    object DBLCBo_dw: TDBLookupComboBox
      Left = 83
      Top = 44
      Width = 193
      Height = 20
      DataField = 'DWDM'
      DataSource = DS_fhd
      KeyField = 'DWDM'
      ListField = 'DWMC'
      ListSource = DS_dw
      TabOrder = 2
    end
    object DBLCBo_ckxz: TDBLookupComboBox
      Left = 368
      Top = 15
      Width = 121
      Height = 20
      DataField = 'CKXZ'
      DataSource = DS_fhd
      KeyField = 'RCKXZDM'
      ListField = 'RCKXZMC'
      ListSource = DS_ckxz
      TabOrder = 1
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 692
    Height = 45
    Align = alTop
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 3
    object XttxTitle: TRxLabel
      Left = 1
      Top = 1
      Width = 690
      Height = 24
      Align = alTop
      Alignment = taCenter
      Caption = '入库依据单补录'
      Font.Charset = GB2312_CHARSET
      Font.Color = clGreen
      Font.Height = -24
      Font.Name = '楷体_GB2312'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object DWMC: TLabel
      Left = 20
      Top = 27
      Width = 60
      Height = 12
      Caption = '使用单位：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
  end
  object DS_fhd: TDataSource
    DataSet = Qry_fhd
    Left = 70
    Top = 109
  end
  object DS_fhpp: TDataSource
    DataSet = Qry_fhpp
    Left = 310
    Top = 332
  end
  object Qry_fhpp: TQuery
    CachedUpdates = True
    DatabaseName = 'YZPP'
    DataSource = DS_fhd
    RequestLive = True
    SQL.Strings = (
      
        'select a.FHDH, a.TDM, a.SL, a.SJ, a.ZK, a.JSJ, b.ZH, b.TJC, a.SL' +
        '*(nvl(a.JSJ,0)+a.SJ*nvl(a.ZK,0)/100) JSJE'
      ' from TK_JYCKPP a, TB_YZPPTXXB b'
      ' where a.TDM=b.TDM'
      '  and FHDH=:FHDH')
    UpdateObject = USQL_fhpp
    Left = 282
    Top = 332
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FHDH'
        ParamType = ptUnknown
      end>
    object Qry_fhppFHDH: TStringField
      FieldName = 'FHDH'
      Origin = 'YZPP.TK_JYCKPP.FHDH'
    end
    object Qry_fhppTDM: TStringField
      FieldName = 'TDM'
      Origin = 'YZPP.TK_JYCKPP.TDM'
      Size = 13
    end
    object Qry_fhppSL: TFloatField
      FieldName = 'SL'
      Origin = 'YZPP.TK_JYCKPP.SL'
      OnChange = Qry_fhppZKChange
      DisplayFormat = '#,##'
    end
    object Qry_fhppSJ: TFloatField
      FieldName = 'SJ'
      Origin = 'YZPP.TK_JYCKPP.SJ'
      OnChange = Qry_fhppZKChange
      OnGetText = Qry_fhppSJGetText
      OnSetText = Qry_fhppSJSetText
    end
    object Qry_fhppZK: TFloatField
      FieldName = 'ZK'
      Origin = 'YZPP.TK_JYCKPP.ZK'
      OnChange = Qry_fhppZKChange
    end
    object Qry_fhppJSJ: TFloatField
      FieldName = 'JSJ'
      Origin = 'YZPP.TK_JYCKPP.JSJ'
      OnChange = Qry_fhppZKChange
      OnGetText = Qry_fhppSJGetText
      OnSetText = Qry_fhppSJSetText
    end
    object Qry_fhppZH: TStringField
      FieldName = 'ZH'
      Origin = 'YZPP.TB_YZPPTXXB.ZH'
      Size = 11
    end
    object Qry_fhppTJC: TStringField
      FieldName = 'TJC'
      Origin = 'YZPP.TB_YZPPTXXB.TJC'
      Size = 60
    end
    object Qry_fhppJSJE: TFloatField
      FieldName = 'JSJE'
      OnChange = Qry_fhppJSJEChange
      OnGetText = Qry_fhppSJGetText
    end
  end
  object Qry_fhd: TQuery
    CachedUpdates = True
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      
        'select FHDH, DWDM, DWMC, CKXZ, QXDW, KDRQ, ZTZT, ZBR, JSJE, BZ, ' +
        'CZBZ'
      ' from TK_JYFHD'
      ' where'
      '  FHDH not in(select nvl(YJDH,-1) from TKS_JYRKD)')
    UpdateObject = USQL_fhd
    Left = 40
    Top = 109
    object Qry_fhdFHDH: TStringField
      FieldName = 'FHDH'
    end
    object Qry_fhdDWDM: TStringField
      FieldName = 'DWDM'
      Size = 8
    end
    object Qry_fhdDWMC: TStringField
      FieldName = 'DWMC'
    end
    object Qry_fhdCKXZ: TStringField
      FieldName = 'CKXZ'
      Size = 2
    end
    object Qry_fhdQXDW: TStringField
      FieldName = 'QXDW'
      Size = 8
    end
    object Qry_fhdKDRQ: TDateTimeField
      FieldName = 'KDRQ'
    end
    object Qry_fhdZBR: TStringField
      FieldName = 'ZBR'
      Size = 12
    end
    object Qry_fhdZTZT: TStringField
      FieldName = 'ZTZT'
      Size = 1
    end
    object Qry_fhdJSJE: TFloatField
      FieldName = 'JSJE'
      OnGetText = Qry_fhppSJGetText
      OnSetText = Qry_fhppSJSetText
    end
    object Qry_fhdBZ: TStringField
      FieldName = 'BZ'
      Size = 40
    end
    object Qry_fhdCZBZ: TStringField
      FieldName = 'CZBZ'
      Size = 1
    end
  end
  object USQL_fhd: TUpdateSQL
    ModifySQL.Strings = (
      'update TK_JYFHD'
      'set'
      '  FHDH = :FHDH,'
      '  DWDM = :DWDM,'
      '  DWMC = :DWMC,'
      '  CKXZ = :CKXZ,'
      '  QXDW = :QXDW,'
      '  KDRQ = :KDRQ,'
      '  ZBR = :ZBR,'
      '  JSJE = :JSJE,'
      '  BZ = :BZ'
      'where'
      '  FHDH = :OLD_FHDH')
    InsertSQL.Strings = (
      'insert into TK_JYFHD'
      
        '  (FHDH, DWDM, DWMC, CKXZ, QXDW, KDRQ, ZTZT, ZBR, JSJE, BZ, CZBZ' +
        ')'
      'values'
      
        '  (:FHDH, :DWDM, :DWMC, :CKXZ, :QXDW, :KDRQ, :ZTZT, :ZBR, :JSJE,' +
        ' :BZ, :CZBZ)')
    DeleteSQL.Strings = (
      'delete from TK_JYFHD'
      'where'
      '  FHDH = :OLD_FHDH')
    Left = 100
    Top = 109
  end
  object USQL_fhpp: TUpdateSQL
    ModifySQL.Strings = (
      'update tk_jyckpp'
      'set'
      '  FHDH = :FHDH,'
      '  SL = :SL,'
      '  SJ = :SJ,'
      '  ZK = :ZK,'
      '  JSJ = :JSJ'
      'where'
      '  FHDH = :OLD_FHDH and'
      '  TDM = :OLD_TDM')
    InsertSQL.Strings = (
      'insert into tk_jyckpp'
      '  (FHDH, TDM, SL, SJ, ZK, JSJ)'
      'values'
      '  (:FHDH, :TDM, :SL, :SJ, :ZK, :JSJ)')
    DeleteSQL.Strings = (
      'delete from tk_jyckpp'
      'where'
      '  FHDH = :OLD_FHDH and'
      '  TDM = :OLD_TDM')
    Left = 338
    Top = 332
  end
  object Qry_dw: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select DWDM, DWJC DWMC, ZJSJ, SJFH, ZJXJ '
      ' from TGS_GXDWSJB'
      ' where BJ<>'#39'1'#39'  '
      '  and (JYYW='#39'1'#39' or (ZJSJ='#39'1'#39' or SJFH='#39'1'#39'))'
      '  and DWDM not in('#39'-1'#39','#39'-2'#39','#39'-3'#39','#39'-4'#39')'
      ' order by PXM')
    Left = 289
    Top = 85
  end
  object DS_dw: TDataSource
    DataSet = Qry_dw
    Left = 321
    Top = 85
  end
  object DS_ckxz: TDataSource
    DataSet = Qry_ckxz
    Left = 573
    Top = 57
  end
  object Qry_ckxz: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select RCKXZDM, RCKXZMC'
      ' from TG_JRCKXZDM'
      '')
    Left = 545
    Top = 57
  end
end