sy_txprkdbl.dfm

省级集邮品管理ERP

inherited frm_TXPRKDBL: Tfrm_TXPRKDBL
  Tag = 33200
  Left = 157
  Top = 56
  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]
      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 = 305
      Top = 48
      Width = 48
      Height = 12
      Caption = '开单日期'
    end
    object Label5: TLabel
      Left = 318
      Top = 76
      Width = 36
      Height = 12
      Caption = '制表人'
    end
    object Label4: TLabel
      Left = 20
      Top = 19
      Width = 48
      Height = 12
      Caption = '发货单号'
    end
    object Label1: TLabel
      Left = 20
      Top = 76
      Width = 48
      Height = 12
      Caption = '结算金额'
    end
    object Label2: TLabel
      Left = 44
      Top = 104
      Width = 24
      Height = 12
      Caption = '备注'
    end
    object Label6: TLabel
      Left = 20
      Top = 49
      Width = 48
      Height = 12
      Caption = '来源单位'
    end
    object Label7: TLabel
      Left = 305
      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 = '中文 (简体) - 全拼'
      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 = 'TMC'
          ReadOnly = True
          Title.Caption = '名称'
          Width = 143
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'MZ'
          ReadOnly = True
          Title.Caption = '面值(元)'
          Width = 52
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'SJ'
          Title.Caption = '销价(元)'
          Width = 52
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'CKZS'
          Title.Caption = '数量(套)'
          Width = 60
          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 = '结算价(元)'
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'JSJE'
          ReadOnly = True
          Title.Caption = '结算金额(元)'
          Visible = True
        end>
    end
    object DBM_bz: TDBMemo
      Left = 75
      Top = 100
      Width = 406
      Height = 53
      DataField = 'BZ'
      DataSource = DS_fhd
      TabOrder = 6
    end
    object DBDE_kdrq: TDBDateEdit
      Left = 360
      Top = 43
      Width = 122
      Height = 21
      DataField = 'KDRQ'
      DataSource = DS_fhd
      NumGlyphs = 2
      TabOrder = 3
      YearDigits = dyFour
    end
    object DBEdt_fhdh: TDBEdit
      Left = 75
      Top = 16
      Width = 121
      Height = 20
      DataField = 'FHDH'
      DataSource = DS_fhd
      TabOrder = 0
    end
    object DBEdt_zbr: TDBEdit
      Left = 360
      Top = 72
      Width = 121
      Height = 20
      DataField = 'ZBR'
      DataSource = DS_fhd
      TabOrder = 5
    end
    object DBEdt_jsje: TDBEdit
      Left = 75
      Top = 72
      Width = 121
      Height = 20
      DataField = 'JSJE'
      DataSource = DS_fhd
      TabOrder = 4
    end
    object DBLCBo_dw: TDBLookupComboBox
      Left = 75
      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 = 360
      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 = 68
    Top = 109
  end
  object DS_fhpp: TDataSource
    DataSet = Qry_fhpp
    Left = 310
    Top = 332
  end
  object Query1: TQuery
    DatabaseName = 'yzpp'
    Left = 462
    Top = 324
  end
  object Qry_fhpp: TQuery
    CachedUpdates = True
    DatabaseName = 'YZPP'
    DataSource = DS_fhd
    RequestLive = True
    SQL.Strings = (
      
        'select a.FHDH, a.TUDM, a.CKZS, a.MZ,a.SJ, a.ZK, a.JSJ, b.ZH, b.T' +
        'MC, a.CKZS*(nvl(a.JSJ,0)+a.SJ*nvl(a.ZK,0)/100) JSJE'
      ' from TK_TXCKPP a, TB_YZPPXXB b'
      ' where a.TUDM=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_TXCKPP.FHDH'
    end
    object Qry_fhppTUDM: TStringField
      FieldName = 'TUDM'
      Origin = 'YZPP.TK_TXCKPP.TUDM'
      Size = 13
    end
    object Qry_fhppCKZS: TFloatField
      FieldName = 'CKZS'
      Origin = 'YZPP.TK_TXCKPP.CKZS'
      OnChange = Qry_fhppZKChange
      DisplayFormat = '#,##'
    end
    object Qry_fhppMZ: TFloatField
      FieldName = 'MZ'
      Origin = 'YZPP.TK_TXCKPP.MZ'
      OnGetText = Qry_fhppMZGetText
      OnSetText = Qry_fhppMZSetText
    end
    object Qry_fhppSJ: TFloatField
      FieldName = 'SJ'
      Origin = 'YZPP.TK_TXCKPP.SJ'
      OnChange = Qry_fhppZKChange
      OnGetText = Qry_fhppMZGetText
      OnSetText = Qry_fhppMZSetText
    end
    object Qry_fhppZK: TFloatField
      FieldName = 'ZK'
      Origin = 'YZPP.TK_TXCKPP.ZK'
      OnChange = Qry_fhppZKChange
    end
    object Qry_fhppJSJ: TFloatField
      FieldName = 'JSJ'
      Origin = 'YZPP.TK_TXCKPP.JSJ'
      OnChange = Qry_fhppZKChange
      OnGetText = Qry_fhppMZGetText
      OnSetText = Qry_fhppMZSetText
    end
    object Qry_fhppZH: TStringField
      FieldName = 'ZH'
      Origin = 'YZPP.TB_YZPPXXB.ZH'
      Size = 16
    end
    object Qry_fhppTMC: TStringField
      FieldName = 'TMC'
      Origin = 'YZPP.TB_YZPPXXB.TMC'
      Size = 120
    end
    object Qry_fhppJSJE: TFloatField
      FieldName = 'JSJE'
      OnChange = Qry_fhppJSJEChange
      OnGetText = Qry_fhppMZGetText
    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_TXFHD'
      ' where '
      '  FHDH not in(select nvl(YJDH,-1) from TKS_TXRKD)')
    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_fhdZTZT: TStringField
      FieldName = 'ZTZT'
      Size = 1
    end
    object Qry_fhdZBR: TStringField
      FieldName = 'ZBR'
      Size = 12
    end
    object Qry_fhdJSJE: TFloatField
      FieldName = 'JSJE'
      OnGetText = Qry_fhdJSJEGetText
      OnSetText = Qry_fhdJSJESetText
    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_TXFHD'
      '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_TXFHD'
      
        '  (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_TXFHD'
      'where'
      '  FHDH = :OLD_FHDH')
    Left = 96
    Top = 109
  end
  object USQL_fhpp: TUpdateSQL
    ModifySQL.Strings = (
      'update tk_txckpp'
      'set'
      '  FHDH = :FHDH,'
      '  CKZS = :CKZS, '
      '  MZ = MZ, '
      '  SJ = :SJ,'
      '  ZK = :ZK,'
      '  JSJ = :JSJ'
      'where'
      '  FHDH = :OLD_FHDH and'
      '  TUDM = :OLD_TUDM')
    InsertSQL.Strings = (
      'insert into tk_txckpp'
      '  (FHDH, TUDM, CKZS, MZ, SJ, ZK, JSJ)'
      'values'
      '  (:FHDH, :TUDM, :CKZS, :MZ, :SJ, :ZK, :JSJ)')
    DeleteSQL.Strings = (
      'delete from tk_txckpp'
      'where'
      '  FHDH = :OLD_FHDH and'
      '  TUDM = :OLD_TUDM')
    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 (TXYW='#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 = 81
  end
  object DS_dw: TDataSource
    DataSet = Qry_dw
    Left = 317
    Top = 81
  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_TRCKXZDM')
    Left = 545
    Top = 57
  end
end