sy_rkdsc.dfm

省级集邮品管理ERP

inherited frmSY_RKD: TfrmSY_RKD
  Left = 39
  Top = 51
  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, bnPrint, bnClose]
    BtnWidth = 65
    OnBtnClick = ModiPanel1BtnClick
  end
  object Panel2: TPanel
    Left = 0
    Top = 45
    Width = 692
    Height = 397
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 1
    object Label2: TLabel
      Left = 24
      Top = 34
      Width = 48
      Height = 12
      Caption = '发货单位'
    end
    object Label3: TLabel
      Left = 339
      Top = 56
      Width = 48
      Height = 12
      Caption = '开单日期'
    end
    object Label4: TLabel
      Left = 339
      Top = 35
      Width = 48
      Height = 12
      Caption = '入库性质'
    end
    object Label5: TLabel
      Left = 38
      Top = 57
      Width = 36
      Height = 12
      Caption = '制表人'
    end
    object Label6: TLabel
      Left = 340
      Top = 14
      Width = 48
      Height = 12
      Caption = '入库单号'
    end
    object Label8: TLabel
      Left = 25
      Top = 13
      Width = 48
      Height = 12
      Caption = '依据单号'
    end
    object Label1: TLabel
      Left = 633
      Top = 64
      Width = 42
      Height = 12
      Alignment = taRightJustify
      Caption = '金额:元'
    end
    object DBGrid3: TDBGrid
      Left = 1
      Top = 84
      Width = 690
      Height = 312
      Align = alBottom
      DataSource = DS_RKPP
      ImeName = '微软拼音输入法 3.0'
      Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      PopupMenu = data.pm_Export
      TabOrder = 6
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'ZH'
          Title.Caption = '志号'
          Width = 58
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TMC'
          Title.Caption = '名称'
          Width = 142
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SL'
          Title.Caption = '数量'
          Width = 55
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TPMZ'
          Title.Caption = '面值'
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JJ'
          Title.Caption = '进价'
          Width = 50
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'XJ'
          Title.Caption = '销价'
          Width = 51
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ZK'
          Title.Caption = '折扣(%)'
          Width = 45
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JSJ'
          Title.Caption = '结算价'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JSJE'
          Title.Caption = '结算金额'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BZ'
          Title.Caption = '备注'
          Width = 78
          Visible = True
        end>
    end
    object DBEdit2: TDBEdit
      Left = 397
      Top = 53
      Width = 121
      Height = 20
      Color = clMenu
      DataField = 'KDRQ'
      DataSource = DS_RKD
      ImeName = '微软拼音输入法 3.0'
      TabOrder = 5
    end
    object DBEdit4: TDBEdit
      Left = 82
      Top = 53
      Width = 121
      Height = 20
      Color = clMenu
      DataField = 'ZBR'
      DataSource = DS_RKD
      ImeName = '微软拼音输入法 3.0'
      TabOrder = 4
    end
    object ComboBox1: TComboBox
      Left = 82
      Top = 9
      Width = 203
      Height = 20
      Style = csDropDownList
      ImeName = '微软拼音输入法 3.0'
      ItemHeight = 12
      TabOrder = 0
      OnClick = ComboBox1Click
    end
    object DBEdit1: TDBEdit
      Left = 397
      Top = 9
      Width = 121
      Height = 20
      Color = clMenu
      DataField = 'RKDH'
      DataSource = DS_RKD
      ImeName = '微软拼音输入法 3.0'
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 397
      Top = 31
      Width = 121
      Height = 20
      Color = clMenu
      DataField = 'RCKXZMC'
      DataSource = DS_RKD
      ImeName = '微软拼音输入法 3.0'
      TabOrder = 3
    end
    object DBEdit5: TDBEdit
      Left = 82
      Top = 31
      Width = 202
      Height = 20
      Color = clMenu
      DataField = 'DWMC'
      DataSource = DS_RKD
      ImeName = '微软拼音输入法 3.0'
      TabOrder = 2
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 692
    Height = 45
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 2
    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 = 19
      Width = 60
      Height = 12
      Caption = '使用单位：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 548
      Top = 22
      Width = 12
      Height = 12
      Caption = '年'
    end
    object Label9: TLabel
      Left = 620
      Top = 22
      Width = 12
      Height = 12
      Caption = '月'
    end
    object SEd_Y: TSpinEdit
      Left = 563
      Top = 17
      Width = 50
      Height = 21
      MaxLength = 4
      MaxValue = 2050
      MinValue = 1990
      TabOrder = 0
      Value = 1990
      OnChange = SEd_YChange
    end
    object SEd_M: TSpinEdit
      Left = 635
      Top = 16
      Width = 38
      Height = 21
      MaxLength = 2
      MaxValue = 12
      MinValue = 1
      TabOrder = 1
      Value = 12
      OnChange = SEd_YChange
    end
  end
  object StoredProc1: TStoredProc
    DatabaseName = 'YZPP'
    StoredProcName = 'PUBLIC_PROCESS.GET_NO'
    Left = 52
    Top = 332
    ParamData = <
      item
        DataType = ftString
        Name = 'Result'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = 'BILLID'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'SORTCODE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'DEPARTMENT'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'CYEAR'
        ParamType = ptInput
      end>
  end
  object Qry_RKPP: TQuery
    CachedUpdates = True
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      
        'select b.rkdh,b.PPDM,b.KFDM,a.zh,a.tmc,b.sl,a.tpmz,b.xj,b.zk,b.j' +
        'j,jsj,b.SL*(nvl(JSJ,0)+b.XJ*nvl(b.ZK,0)/100) JSJE, b.bz from tb_' +
        'yzpptxxb a ,tks_jyrkpp b where a.tdm(+)=b.ppdm')
    UpdateObject = USQL_JYRKPP
    Left = 253
    Top = 144
    object Qry_RKPPRKDH: TStringField
      FieldName = 'RKDH'
    end
    object Qry_RKPPPPDM: TStringField
      FieldName = 'PPDM'
      Size = 13
    end
    object Qry_RKPPKFDM: TStringField
      FieldName = 'KFDM'
      Size = 3
    end
    object Qry_RKPPZH: TStringField
      FieldName = 'ZH'
      Size = 11
    end
    object Qry_RKPPTMC: TStringField
      FieldName = 'TMC'
      Size = 60
    end
    object Qry_RKPPSL: TFloatField
      FieldName = 'SL'
      DisplayFormat = '#,##'
    end
    object Qry_RKPPTPMZ: TFloatField
      FieldName = 'TPMZ'
      OnGetText = Qry_RKPPTPMZGetText
    end
    object Qry_RKPPXJ: TFloatField
      FieldName = 'XJ'
      OnGetText = Qry_RKPPTPMZGetText
    end
    object Qry_RKPPZK: TFloatField
      FieldName = 'ZK'
    end
    object Qry_RKPPJJ: TFloatField
      FieldName = 'JJ'
      OnGetText = Qry_RKPPTPMZGetText
    end
    object Qry_RKPPJSJ: TFloatField
      FieldName = 'JSJ'
      OnGetText = Qry_RKPPTPMZGetText
    end
    object Qry_RKPPJSJE: TFloatField
      FieldName = 'JSJE'
      OnGetText = Qry_RKPPTPMZGetText
    end
    object Qry_RKPPBZ: TStringField
      FieldName = 'BZ'
      Size = 60
    end
  end
  object DS_RKPP: TDataSource
    DataSet = Qry_RKPP
    Left = 281
    Top = 144
  end
  object Qry_RKD: TQuery
    CachedUpdates = True
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      
        'select RKDH, YJDH, RKXZ,c.RCKXZMC, LYDW, b.DWJC DWMC, RKRQ, JSZT' +
        ', KDRQ, DJRQ, FZR, SHR, ZBR, YSY, JZY, KGY'
      '  from TKS_JYRKD a, TGS_GXDWSJB b, TGS_JRCKXZDM c'
      '  where a.LYDW=b.DWDM and a.RKXZ=c.RCKXZDM')
    UpdateObject = USQL_JYRKD
    Left = 44
    Top = 144
  end
  object DS_RKD: TDataSource
    DataSet = Qry_RKD
    Left = 72
    Top = 144
  end
  object Qry_TMP: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      '')
    Left = 88
  end
  object Qry_tmp1: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      '')
    Left = 128
  end
  object USQL_JYRKD: TUpdateSQL
    InsertSQL.Strings = (
      'insert into tks_jyrkd'
      
        '  (RKDH, YJDH, RKXZ, LYDW, RKRQ, JSZT, KDRQ, DJRQ, FZR, SHR, ZBR' +
        ', YSY, '
      '   JZY, KGY)'
      'values'
      
        '  (:RKDH, :YJDH, :RKXZ, :LYDW, :RKRQ, :JSZT, trunc(sysdate), :DJ' +
        'RQ, :FZR, :SHR, '
      '   :ZBR, :YSY, :JZY, :KGY)')
    Left = 100
    Top = 144
  end
  object USQL_JYRKPP: TUpdateSQL
    ModifySQL.Strings = (
      'update tks_jyrkpp'
      'set'
      '  RKDH = :RKDH,'
      '  PPDM = :PPDM,'
      '  JJ = :JJ,'
      '  KFDM = :KFDM,'
      '  KWH = :KWH,'
      '  YJ = :YJ,'
      '  XJ = :XJ,'
      '  ZK = :ZK,'
      '  JSJ = :JSJ,'
      '  SL = :SL,'
      '  BZ = :BZ'
      'where'
      '  RKDH = :OLD_RKDH')
    InsertSQL.Strings = (
      'insert into tks_jyrkpp'
      '  (RKDH, PPDM, JJ, KFDM,  XJ, ZK, JSJ, SL, BZ)'
      'values'
      '  (:RKDH, :PPDM, :JJ, :KFDM, :XJ, :ZK, :JSJ, :SL, :BZ)')
    DeleteSQL.Strings = (
      'delete from tks_jyrkpp'
      'where'
      '  RKDH = :OLD_RKDH')
    Left = 309
    Top = 144
  end
  object Sqls_RKD: TSqlStrings
    jyp_Sql.Strings = (
      'select RKDH, YJDH, RKXZ,c.RCKXZMC, LYDW, b.DWJC DWMC, RKRQ, '
      '  JSZT, KDRQ, DJRQ, FZR, SHR, ZBR, YSY, JZY, KGY'
      ' from TKS_JYRKD a, TGS_GXDWSJB b, TGS_JRCKXZDM c'
      ' where a.LYDW=b.DWDM '
      '  and a.RKXZ=c.RCKXZDM '
      '  and YJDH=:YJDH')
    txp_Sql.Strings = (
      'select RKDH, YJDH, RKXZ,c.RCKXZMC, LYDW, b.DWJC DWMC, RKRQ, '
      '  JSZT, KDRQ, DJRQ, FZR, SHR, ZBR, YSY, JZY, KGY'
      ' from TKS_TXRKD a, TGS_GXDWSJB b, TGS_JRCKXZDM c'
      ' where a.LYDW=b.DWDM '
      '  and a.RKXZ=c.RCKXZDM '
      '  and YJDH=:YJDH')
    yp_Sql.Strings = (
      'select RKDH, YJDH, RKXZ,c.RCKXZMC, LYDW, b.DWJC DWMC, RKRQ, '
      '  JSZT, KDRQ, DJRQ, FZR, SHR, ZBR, YSY, JZY, KGY'
      ' from TKS_YPRKD a, TGS_GXDWSJB b, TGS_JRCKXZDM c'
      ' where a.LYDW=b.DWDM '
      '  and a.RKXZ=c.RCKXZDM '
      '  and YJDH=:YJDH')
    grp_Sql.Strings = (
      'select RKDH, YJDH, RKXZ,c.RCKXZMC, LYDW, b.DWJC DWMC, RKRQ, '
      '  JSZT, KDRQ, DJRQ, FZR, SHR, ZBR, YSY, JZY, KGY'
      ' from TKS_GRPRKD a, TGS_GXDWSJB b, TGS_JRCKXZDM c'
      ' where a.LYDW=b.DWDM '
      '  and a.RKXZ=c.RCKXZDM '
      '  and YJDH=:YJDH')
    Left = 16
    Top = 144
  end
  object Sqls_RKPP: TSqlStrings
    jyp_Sql.Strings = (
      'select b.rkdh,b.PPDM,b.KFDM,a.zh,a.tmc,b.sl,a.tpmz,b.xj,b.zk,'
      '  b.jj,jsj,b.SL*(nvl(JSJ,0)+b.XJ*nvl(b.ZK,0)/100) JSJE, b.bz '
      ' from tb_yzpptxxb a ,tks_jyrkpp b '
      ' where a.tdm(+)=b.ppdm '
      '  and b.rkdh=:RKDH')
    txp_Sql.Strings = (
      
        'select b.rkdh,b.tudm PPDM,b.KFDM,a.zh,a.tmc,b.sl,a.tpmz,b.xj,b.z' +
        'k,'
      '  b.jj,jsj,b.SL*(nvl(JSJ,0)+b.XJ*nvl(b.ZK,0)/100) JSJE, b.bz '
      ' from tb_yzppxxb a ,tks_txrkpp b '
      ' where a.tdm(+)=b.tudm '
      '  and b.rkdh=:RKDH')
    yp_Sql.Strings = (
      '  and b.rkdh=:RKDH')
    grp_Sql.Strings = (
      
        'select b.rkdh,b.PPDM,b.KFDM,a.zh,a.mc tmc,b.sl,a.sj tpmz,b.xj,b.' +
        'zk,'
      ' b.jj,jsj,b.SL*(nvl(JSJ,0)+b.XJ*nvl(b.ZK,0)/100) JSJE, b.bz '
      ' from tb_jyptxxb a ,tks_grprkpp b '
      ' where a.tdm(+)=b.ppdm '
      '  and b.rkdh=:RKDH')
    Left = 225
    Top = 144
  end
  object USQL_TXRKD: TUpdateSQL
    InsertSQL.Strings = (
      'insert into tks_txrkd'
      
        '  (RKDH, YJDH, RKXZ, LYDW, RKRQ, JSZT, KDRQ, DJRQ, FZR, SHR, ZBR' +
        ', YSY, '
      '   JZY, KGY)'
      'values'
      
        '  (:RKDH, :YJDH, :RKXZ, :LYDW, :RKRQ, :JSZT, trunc(sysdate), :DJ' +
        'RQ, :FZR, :SHR, '
      '   :ZBR, :YSY, :JZY, :KGY)')
    Left = 100
    Top = 172
  end
  object USQL_TXRKPP: TUpdateSQL
    InsertSQL.Strings = (
      'insert into tks_txrkpp'
      '  (TUDM, RKDH, KFDM, SL, JJ, XJ, ZK, JSJ, BZ)'
      'values'
      '  (:PPDM, :RKDH, :KFDM, :SL, :JJ, :XJ, :ZK, :JSJ, :BZ)')
    Left = 309
    Top = 172
  end
end