sy_kcpptj.dfm

省级集邮品管理ERP

inherited frmSJ_TJD: TfrmSJ_TJD
  Left = 22
  Top = 12
  Caption = '邮资票品管理信息系统——集邮票业务'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object PCo_jg: TPageControl
    Left = 0
    Top = 118
    Width = 692
    Height = 324
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 2
    OnChange = PCo_jgChange
    object TabSheet1: TTabSheet
      Caption = '调整销价'
      object RxDBGrid1: TRxDBGrid
        Left = 0
        Top = 0
        Width = 684
        Height = 297
        Align = alClient
        DataSource = DS_KC
        PopupMenu = data.pm_Export
        TabOrder = 0
        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 = 120
            Visible = True
          end
          item
            Color = cl3DLight
            Expanded = False
            FieldName = 'TMC'
            ReadOnly = True
            Title.Caption = '名称'
            Width = 259
            Visible = True
          end
          item
            Color = cl3DLight
            Expanded = False
            FieldName = 'KCHSJ'
            ReadOnly = True
            Title.Caption = '库存核算价(元)'
            Width = 138
            Visible = True
          end
          item
            Color = cl3DLight
            Expanded = False
            FieldName = 'XJ'
            ReadOnly = True
            Title.Caption = '销价(元)'
            Width = 127
            Visible = True
          end>
      end
      object Panel2: TPanel
        Left = 0
        Top = -18
        Width = 529
        Height = 14
        BevelOuter = bvNone
        TabOrder = 1
        object RGr_YorX: TRadioGroup
          Left = 12
          Top = -37
          Width = 225
          Height = 37
          Caption = '调整类型'
          Columns = 2
          ItemIndex = 1
          Items.Strings = (
            '调整原价'
            '调整销价')
          TabOrder = 0
          Visible = False
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = '调整结算价/折扣'
      ImageIndex = 1
      object RxDBGrid2: TRxDBGrid
        Left = 0
        Top = 0
        Width = 684
        Height = 297
        Align = alClient
        DataSource = DS_KC2
        PopupMenu = data.pm_Export
        TabOrder = 0
        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 = 120
            Visible = True
          end
          item
            Color = cl3DLight
            Expanded = False
            FieldName = 'TMC'
            ReadOnly = True
            Title.Caption = '名称'
            Width = 250
            Visible = True
          end
          item
            Color = cl3DLight
            Expanded = False
            FieldName = 'JJ'
            Title.Caption = '进价(元)'
            Width = 93
            Visible = True
          end
          item
            Color = cl3DLight
            Expanded = False
            FieldName = 'JSJ'
            ReadOnly = True
            Title.Caption = '结算价(元)'
            Width = 88
            Visible = True
          end
          item
            Color = cl3DLight
            Expanded = False
            FieldName = 'ZK'
            ReadOnly = True
            Title.Caption = '折扣(%)'
            Width = 92
            Visible = True
          end>
      end
    end
  end
  object ModiPanel1: TModiPanel
    Left = 0
    Top = 442
    Width = 692
    Height = 31
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 3
    DisButton = [bnEdit, bnSave, bnCancel, bnClose]
    BtnWidth = 65
    OnBtnClick = ModiPanel1BtnClick
    object BitBtn1: TBitBtn
      Tag = 24101
      Left = 452
      Top = 3
      Width = 75
      Height = 24
      Caption = '签批(&Q)'
      TabOrder = 7
      Visible = False
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 81
    Width = 692
    Height = 37
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 9
      Top = 17
      Width = 48
      Height = 12
      Caption = '志号查找'
    end
    object lbl_kf: TLabel
      Left = 157
      Top = 17
      Width = 24
      Height = 12
      Caption = '库房'
    end
    object Edit1: TEdit
      Left = 60
      Top = 14
      Width = 73
      Height = 20
      TabOrder = 0
      OnChange = Edit1Change
    end
    object RGr_JorZ: TRadioGroup
      Left = 312
      Top = 0
      Width = 377
      Height = 37
      Caption = '调整类型'
      Columns = 2
      ItemIndex = 1
      Items.Strings = (
        '调整结算价'
        '调整折扣')
      TabOrder = 2
      OnClick = RGr_JorZClick
    end
    object BBt_mr: TBitBtn
      Left = 625
      Top = 10
      Width = 56
      Height = 23
      Caption = '默认值'
      TabOrder = 5
      OnClick = BBt_mrClick
    end
    object CEd_jsj: TCurrencyEdit
      Left = 404
      Top = 12
      Width = 73
      Height = 21
      AutoSize = False
      TabOrder = 3
    end
    object CEd_zk: TCurrencyEdit
      Left = 576
      Top = 12
      Width = 41
      Height = 21
      AutoSize = False
      DisplayFormat = '00.00%'
      TabOrder = 4
    end
    object DBLCB_kf: TDBLookupComboBox
      Left = 184
      Top = 14
      Width = 109
      Height = 20
      KeyField = 'KFDM'
      ListField = 'KFMC'
      ListSource = DS_kf
      TabOrder = 1
      OnCloseUp = SpeedButton1Click
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 692
    Height = 81
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object XttxTitle: TRxLabel
      Left = 0
      Top = 0
      Width = 692
      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 GroupBox1: TGroupBox
      Left = 5
      Top = 32
      Width = 684
      Height = 41
      Caption = '显示票品'
      TabOrder = 0
      object SpeedButton1: TSpeedButton
        Left = 652
        Top = 11
        Width = 23
        Height = 22
        Hint = '查询票品'
        Flat = True
        Glyph.Data = {
          F6000000424DF600000000000000760000002800000010000000100000000100
          04000000000080000000C40E0000C40E00001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
          77777777777777777777CCCCC77777CCCCC7CFCCC77777CFCCC7CFCCC77777CF
          CCC7CCCCCCC7CCCCCCC7CCFCCCCCCFCCCCC7CCFCCC7CCFCCCCC7CCFCCC7CCFCC
          CCC77CCCCCCCCCCCCC7777CFCCC7CFCCC77777CCCCC7CCCCC777777CCC777CCC
          7777777CFC777CFC7777777CCC777CCC77777777777777777777}
        OnClick = SpeedButton1Click
      end
      object CB_fxrq: TCheckBox
        Left = 200
        Top = 16
        Width = 221
        Height = 17
        Caption = '发行日期从                到'
        TabOrder = 3
      end
      object CB_wrq: TCheckBox
        Left = 13
        Top = 16
        Width = 161
        Height = 17
        Caption = '显示没有发行日期的票品'
        TabOrder = 0
      end
      object DEd_qs: TDateEdit
        Left = 280
        Top = 12
        Width = 89
        Height = 21
        NumGlyphs = 2
        PopupFont.Charset = DEFAULT_CHARSET
        PopupFont.Color = clWindowText
        PopupFont.Height = -11
        PopupFont.Name = 'MS Sans Serif'
        PopupFont.Style = []
        YearDigits = dyFour
        TabOrder = 1
      end
      object DEd_jz: TDateEdit
        Left = 387
        Top = 12
        Width = 89
        Height = 21
        NumGlyphs = 2
        PopupFont.Charset = DEFAULT_CHARSET
        PopupFont.Color = clWindowText
        PopupFont.Height = -11
        PopupFont.Name = 'MS Sans Serif'
        PopupFont.Style = []
        YearDigits = dyFour
        TabOrder = 2
      end
      object CB_zh: TCheckBox
        Left = 508
        Top = 16
        Width = 49
        Height = 17
        Caption = '志号'
        TabOrder = 4
      end
      object Edt_zh: TEdit
        Left = 552
        Top = 13
        Width = 89
        Height = 20
        TabOrder = 5
      end
    end
  end
  object qryKC: TRxQuery
    CachedUpdates = True
    BeforePost = qryKCBeforePost
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      'Select '
      '  distinct  '#39'0'#39' as FLG,b.ZH,b.TMC,'
      '  0 YJ,a.XJ,a.JSJ,a.ZK,a.PPDM, 0 KCHSJ '
      'from '
      '  TYS_JYPPKC a,TB_YZPPTXXB b '
      'where '
      '  a.PPDM=b.TDM '
      'order by a.PPDM'
      '')
    UpdateObject = USQL_JYP_KC
    Macros = <>
    Left = 48
    Top = 168
    object qryKCFLG: TStringField
      FieldName = 'FLG'
      FixedChar = True
      Size = 1
    end
    object qryKCZH: TStringField
      FieldName = 'ZH'
      Size = 11
    end
    object qryKCTMC: TStringField
      FieldName = 'TMC'
      Size = 60
    end
    object qryKCYJ: TFloatField
      FieldName = 'YJ'
      OnGetText = qryKCYJGetText
      OnSetText = qryKCYJSetText
    end
    object qryKCXJ: TFloatField
      FieldName = 'XJ'
      OnGetText = qryKCYJGetText
      OnSetText = qryKCXJSetText
    end
    object qryKCPPDM: TStringField
      FieldName = 'PPDM'
      Size = 13
    end
    object qryKCKCHSJ: TFloatField
      FieldName = 'KCHSJ'
      OnGetText = qryKCYJGetText
    end
  end
  object USQL_JYP_KC: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_JYPPKC'
      'set'
      '  XJ = :XJ'
      'where'
      '  PPDM = :PPDM')
    Left = 76
    Top = 168
  end
  object DS_KC: TDataSource
    DataSet = qryKC
    Left = 104
    Top = 168
  end
  object QryTJD: TQuery
    CachedUpdates = True
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      'select * from tys_jyptjb where xh=0')
    UpdateObject = USQL_JYP_TJD
    Left = 184
    Top = 168
  end
  object USQL_JYP_TJD: TUpdateSQL
    ModifySQL.Strings = (
      'update tys_jyptjb'
      'set'
      '  XH = :XH,'
      '  PPDM = :PPDM,'
      '  YJ = :YJ,'
      '  XJ = :XJ,'
      '  XGRQ = :XGRQ,'
      '  XGR = :XGR'
      'where'
      '  XH = :OLD_XH')
    InsertSQL.Strings = (
      'insert into tys_jyptjb'
      '  (XH, PPDM, YJ, XJ, XGRQ, XGR)'
      'values'
      '  (:XH, :PPDM, :YJ, :XJ, :XGRQ, :XGR)')
    Left = 212
    Top = 168
  end
  object QryTJDB: TQuery
    CachedUpdates = True
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      'select'
      '  TJDH, TZLX, PPDM, SL, YDJ, XDJ, ZBR, TJRQ'
      'from '
      '  TYS_JYPTJDB'
      'where'
      '  TJDH='#39'0'#39)
    UpdateObject = USQL_JYP_TJDB
    Left = 296
    Top = 168
  end
  object USQL_JYP_TJDB: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_JYPTJDB'
      'set'
      '  TJDH = :TJDH,'
      '  TZLX = :TZLX,'
      '  PPDM = :PPDM,'
      '  SL = :SL,'
      '  YDJ = :YDJ,'
      '  XDJ = :XDJ,'
      '  ZBR = :ZBR,'
      '  TJRQ = :TJRQ'
      'where'
      '  TJDH = :OLD_TJDH and'
      '  PPDM = :OLD_PPDM')
    InsertSQL.Strings = (
      'insert into TYS_JYPTJDB'
      '  (TJDH, TZLX, PPDM, SL, YDJ, XDJ, ZBR, TJRQ)'
      'values'
      '  (:TJDH, :TZLX, :PPDM, :SL, :YDJ, :XDJ, :ZBR, trunc(sysdate))')
    DeleteSQL.Strings = (
      'delete from TYS_JYPTJDB'
      'where'
      '  TJDH = :OLD_TJDH and'
      '  PPDM = :OLD_PPDM')
    Left = 324
    Top = 168