sy_fhdsc.dfm

省级集邮品管理ERP

inherited frmSY_FHD: TfrmSY_FHD
  Left = 89
  Top = 29
  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 Panel1: TPanel
    Left = 0
    Top = 45
    Width = 169
    Height = 397
    Align = alLeft
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 1
    object Label8: TLabel
      Left = 3
      Top = 9
      Width = 108
      Height = 12
      Caption = '依据单(出库计划)号'
    end
    object DBG_fhd: TDBGrid
      Left = 1
      Top = 52
      Width = 167
      Height = 344
      Align = alBottom
      DataSource = DS_fhd
      ImeName = '微软拼音输入法 3.0'
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
      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 = 'qxdw'
          Title.Caption = '单位名称'
          Width = 132
          Visible = True
        end>
    end
    object ComboBox1: TComboBox
      Left = 1
      Top = 25
      Width = 164
      Height = 20
      Style = csDropDownList
      ImeName = '微软拼音输入法 3.0'
      ItemHeight = 12
      TabOrder = 1
      OnClick = ComboBox1Click
    end
  end
  object Panel2: TPanel
    Left = 169
    Top = 45
    Width = 523
    Height = 397
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvNone
    TabOrder = 2
    object Label3: TLabel
      Left = 256
      Top = 41
      Width = 48
      Height = 12
      Caption = '开单日期'
    end
    object Label4: TLabel
      Left = 15
      Top = 14
      Width = 48
      Height = 12
      Caption = '出库性质'
    end
    object Label5: TLabel
      Left = 268
      Top = 14
      Width = 36
      Height = 12
      Caption = '制表人'
    end
    object Label7: TLabel
      Left = 38
      Top = 68
      Width = 24
      Height = 12
      Caption = '备注'
    end
    object Label1: TLabel
      Left = 16
      Top = 42
      Width = 48
      Height = 12
      Caption = '发货单号'
    end
    object DBG_ckpp: TDBGrid
      Left = 1
      Top = 100
      Width = 521
      Height = 296
      Align = alBottom
      DataSource = DS_ckpp
      ImeName = '微软拼音输入法 3.0'
      Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      PopupMenu = data.pm_Export
      TabOrder = 5
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'ZH'
          Title.Caption = '志号'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'TMC'
          Title.Caption = '名称'
          Width = 132
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'SL'
          Title.Caption = '数量'
          Width = 57
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JJ'
          Title.Caption = '进价(元)'
          Width = 51
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'XJ'
          Title.Caption = '销价(元)'
          Width = 51
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'ZK'
          Title.Caption = '折扣(%)'
          Width = 44
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JSJ'
          Title.Caption = '结算价(元)'
          Width = 63
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'FXRQ'
          Title.Caption = '发行日期'
          Visible = False
        end
        item
          Expanded = False
          FieldName = 'JSJE'
          Title.Caption = '结算金额(元)'
          Visible = True
        end>
    end
    object DBEdit2: TDBEdit
      Left = 312
      Top = 37
      Width = 121
      Height = 20
      Color = clMenu
      DataField = 'KDRQ'
      DataSource = DS_fhd
      ImeName = '微软拼音输入法 3.0'
      TabOrder = 3
    end
    object DBEdit4: TDBEdit
      Left = 312
      Top = 10
      Width = 121
      Height = 20
      Color = clMenu
      DataField = 'ZBR'
      DataSource = DS_fhd
      ImeName = '微软拼音输入法 3.0'
      TabOrder = 1
    end
    object DBEdit7: TDBEdit
      Left = 72
      Top = 65
      Width = 361
      Height = 20
      Color = clMenu
      DataField = 'BZ'
      DataSource = DS_fhd
      ImeName = '微软拼音输入法 3.0'
      TabOrder = 4
    end
    object DBEdit1: TDBEdit
      Left = 72
      Top = 38
      Width = 141
      Height = 20
      Color = clMenu
      DataField = 'FHDH'
      DataSource = DS_fhd
      ImeName = '微软拼音输入法 3.0'
      TabOrder = 2
    end
    object DBEdit3: TDBEdit
      Left = 72
      Top = 10
      Width = 141
      Height = 20
      Color = clMenu
      DataField = 'RCKXZMC'
      DataSource = DS_fhd
      ImeName = '微软拼音输入法 3.0'
      TabOrder = 0
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 692
    Height = 45
    Align = alTop
    BevelOuter = bvLowered
    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 = 23
      Width = 60
      Height = 12
      Caption = '使用单位：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label6: 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 Qry_TMP: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      '')
    Left = 88
  end
  object StoredProc1: TStoredProc
    DatabaseName = 'YZPP'
    StoredProcName = 'PUBLIC_PROCESS.GET_NO'
    Left = 36
    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 DS_fhd: TDataSource
    DataSet = Qry_FHD
    Left = 108
    Top = 184
  end
  object Qry_FHD: TQuery
    AfterScroll = Qry_FHDAfterScroll
    DatabaseName = 'YZPP'
    Left = 80
    Top = 184
  end
  object Qry_CKPP: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'select b.FHDH,b.PPDM,b.KFDM,b.KWH,a.zh,a.tmc,b.sl,'
      '  b.xj/100 xj,b.jj/100 jj,b.jsj/100 jsj,b.zk,a.fxrq,'
      '  SL*(b.xj*nvl(b.zk/100, 0)+nvl(b.jsj,0))/100 jsje '
      ' from tb_yzpptxxb a ,tks_jyckpp b '
      ' where a.tdm(+)=b.ppdm and fhdh=:FHDH')
    Left = 80
    Top = 224
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'FHDH'
        ParamType = ptUnknown
      end>
    object Qry_CKPPFHDH: TStringField
      FieldName = 'FHDH'
    end
    object Qry_CKPPPPDM: TStringField
      FieldName = 'PPDM'
      Size = 13
    end
    object Qry_CKPPKFDM: TStringField
      FieldName = 'KFDM'
      Size = 3
    end
    object Qry_CKPPKWH: TStringField
      FieldName = 'KWH'
      Size = 30
    end
    object Qry_CKPPZH: TStringField
      FieldName = 'ZH'
      Size = 11
    end
    object Qry_CKPPTMC: TStringField
      FieldName = 'TMC'
      Size = 60
    end
    object Qry_CKPPSL: TFloatField
      FieldName = 'SL'
      DisplayFormat = '#,##'
    end
    object Qry_CKPPXJ: TFloatField
      FieldName = 'XJ'
      DisplayFormat = '#,##0.00'
    end
    object Qry_CKPPJJ: TFloatField
      FieldName = 'JJ'
      DisplayFormat = '#,##0.00'
    end
    object Qry_CKPPJSJ: TFloatField
      FieldName = 'JSJ'
      DisplayFormat = '#,##0.00'
    end
    object Qry_CKPPZK: TFloatField
      FieldName = 'ZK'
    end
    object Qry_CKPPFXRQ: TDateTimeField
      FieldName = 'FXRQ'
    end
    object Qry_CKPPJSJE: TFloatField
      FieldName = 'JSJE'
      DisplayFormat = '#,##0.00'
    end
  end
  object DS_ckpp: TDataSource
    DataSet = Qry_CKPP
    Left = 108
    Top = 224
  end
  object Qry_tmp1: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      '')
    Left = 128
  end
  object Sqls_FKD: TSqlStrings
    jyp_Sql.Strings = (
      'select a.FHDH,a.YJDH,c.RCKXZMC,b.DWJC QXDW,a.KDRQ,a.ZBR,a.BZ'
      ' from TKS_JYFHD a,TGS_GXDWSJB b,TGS_JRCKXZDM c'
      ' where a.QXDW=b.DWDM '
      '  and a.CKXZ=c.RCKXZDM '
      '  and YJDH=:YJDH '
      ' order by b.PXM')
    txp_Sql.Strings = (
      'select a.FHDH,a.YJDH,c.RCKXZMC,b.DWJC QXDW,a.KDRQ,a.ZBR,a.BZ'
      ' from TKS_TXFHD a,TGS_GXDWSJB b,TGS_JRCKXZDM c'
      ' where a.QXDW=b.DWDM '
      '  and a.CKXZ=c.RCKXZDM '
      '  and YJDH=:YJDH '
      ' order by b.PXM')
    yp_Sql.Strings = (
      'select a.FHDH,a.YJDH,c.RCKXZMC,b.DWJC QXDW,a.KDRQ,a.ZBR,a.BZ'
      ' from TKS_YPFHD a,TGS_GXDWSJB b,TGS_JRCKXZDM c'
      ' where a.QXDW=b.DWDM '
      '  and a.CKXZ=c.RCKXZDM '
      '  and YJDH=:YJDH '
      ' order by b.PXM')
    grp_Sql.Strings = (
      'select a.FHDH,a.YJDH,c.RCKXZMC,b.DWJC QXDW,a.KDRQ,a.ZBR,a.BZ'
      ' from TKS_GRPFHD a,TGS_GXDWSJB b,TGS_JRCKXZDM c'
      ' where a.QXDW=b.DWDM '
      '  and a.CKXZ=c.RCKXZDM '
      '  and YJDH=:YJDH '
      ' order by b.PXM')
    Left = 52
    Top = 184
  end
  object Sqls_CKPP: TSqlStrings
    jyp_Sql.Strings = (
      'select b.FHDH,b.PPDM,b.KFDM,b.KWH,a.zh,a.tmc,b.sl,'
      '  b.xj/100 xj,b.jj/100 jj,b.jsj/100 jsj,b.zk,a.fxrq,'
      '  SL*(b.xj*nvl(b.zk/100, 0)+nvl(b.jsj,0))/100 jsje '
      ' from tb_yzpptxxb a ,tks_jyckpp b '
      ' where a.tdm(+)=b.ppdm and fhdh=:FHDH')
    txp_Sql.Strings = (
      'select b.FHDH,b.tuDM PPDM,b.KFDM,b.KWH,a.zh,a.tmc,b.sl,'
      '  b.xj/100 xj,b.jj/100 jj,b.jsj/100 jsj,b.zk,a.fxrq,'
      '  SL*(b.xj*nvl(b.zk/100, 0)+nvl(b.jsj,0))/100 jsje '
      ' from tb_yzppxxb a ,tks_txckpp b '
      ' where a.tdm(+)=b.tudm and fhdh=:FHDH')
    yp_Sql.Strings = (
      'select b.FHDH,b.PPDM,b.KFDM,b.KWH,a.zh,a.mc tmc,b.sl,'
      '  b.xj/100 xj,b.jj/100 jj,b.jsj/100 jsj,b.zk,a.fxrq,'
      '  SL*(b.xj*nvl(b.zk/100, 0)+nvl(b.jsj,0))/100 jsje '
      ' from tb_jyptxxb a ,tks_ypckpp b '
      ' where a.tdm(+)=b.ppdm and fhdh=:FHDH')
    grp_Sql.Strings = (
      'select b.FHDH,b.PPDM,b.KFDM,b.KWH,a.zh,a.tmc tmc,b.sl,'
      '  b.xj/100 xj,b.jj/100 jj,b.jsj/100 jsj,b.zk,a.fxrq,'
      '  SL*(b.xj*nvl(b.zk/100, 0)+nvl(b.jsj,0))/100 jsje '
      ' from tb_yzppxxb a ,tks_grpckpp b '
      ' where a.tdm(+)=b.ppdm and fhdh=:FHDH')
    Left = 52
    Top = 224
  end
end