sy_gryprkdsc.dfm

省级集邮品管理ERP

inherited frm_GRYPRKDSC: Tfrm_GRYPRKDSC
  Tag = 52100
  Left = 77
  Top = 33
  Caption = '邮资票品管理信息系统——购入票业务'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 12
  object ModiPanel1: TModiPanel
    Left = 0
    Top = 441
    Width = 692
    Height = 32
    Align = alBottom
    BevelOuter = bvLowered
    TabOrder = 0
    BtnWidth = 65
    OnBtnClick = ModiPanel1BtnClick
  end
  object Panel1: TPanel
    Left = 0
    Top = 45
    Width = 160
    Height = 396
    Align = alLeft
    BevelOuter = bvLowered
    TabOrder = 1
    object DBG_RKD: TDBGrid
      Left = 1
      Top = 1
      Width = 158
      Height = 394
      Align = alClient
      DataSource = DS_RKD
      ImeName = '微软拼音输入法 3.0'
      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 = 'RKDH'
          Title.Caption = '入库单号'
          Width = 121
          Visible = True
        end>
    end
  end
  object Panel2: TPanel
    Left = 160
    Top = 45
    Width = 532
    Height = 396
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 2
    object Label2: TLabel
      Left = 17
      Top = 60
      Width = 48
      Height = 12
      Caption = '来源单位'
    end
    object Label3: TLabel
      Left = 16
      Top = 92
      Width = 48
      Height = 12
      Caption = '开单日期'
    end
    object Label5: TLabel
      Left = 230
      Top = 95
      Width = 36
      Height = 12
      Caption = '制表人'
    end
    object DBG_RKDPP: TDBGrid
      Left = 1
      Top = 124
      Width = 530
      Height = 271
      Align = alBottom
      DataSource = DS_RKDPP
      FixedColor = clMenu
      ImeName = '微软拼音输入法 3.0'
      Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      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 = 68
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'TMC'
          ReadOnly = True
          Title.Caption = '名称'
          Width = 91
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'kfmc'
          PickList.Strings = (
            'ASD1'
            'ASF3'
            '12332')
          Title.Alignment = taCenter
          Title.Caption = '库房'
          Width = 60
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JJ'
          Title.Alignment = taCenter
          Title.Caption = '进价(元)'
          Width = 52
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'XJ'
          Title.Alignment = taCenter
          Title.Caption = '销价(元)'
          Width = 54
          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 = 'SL'
          Title.Alignment = taCenter
          Title.Caption = '数量'
          Width = 59
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'DW'
          Title.Caption = '单位'
          Width = 30
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JSJE'
          ReadOnly = True
          Title.Caption = '结算金额(元)'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'BZ'
          Title.Caption = '备注'
          Width = 117
          Visible = True
        end>
    end
    object RG_yf: TRadioGroup
      Left = 18
      Top = 8
      Width = 172
      Height = 37
      Caption = '入库单月份'
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        '本月'
        '下月')
      TabOrder = 1
    end
    object DBLCBo_dw: TDBLookupComboBox
      Left = 71
      Top = 56
      Width = 193
      Height = 20
      DataField = 'LYDW'
      DataSource = DS_RKD
      KeyField = 'DWDM'
      ListField = 'DWMC'
      ListSource = DS_dw
      TabOrder = 2
    end
    object DBDE_kdrq: TDBDateEdit
      Left = 72
      Top = 87
      Width = 122
      Height = 21
      DataField = 'KDRQ'
      DataSource = DS_RKD
      NumGlyphs = 2
      TabOrder = 3
      YearDigits = dyFour
    end
    object DBEdt_zbr: TDBEdit
      Left = 272
      Top = 88
      Width = 121
      Height = 20
      DataField = 'ZBR'
      DataSource = DS_RKD
      TabOrder = 4
    end
  end
  object Panel_Head: 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 = 25
      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
    end
  end
  object DS_RKD: TDataSource
    DataSet = qry_RKD
    Left = 68
    Top = 109
  end
  object qry_RKD: TQuery
    CachedUpdates = True
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      'SELECT RKDH, YJDH, RKXZ, LYDW, RKRQ, JSZT, KDRQ, DJRQ, FZR, '
      '  SHR, ZBR, YSY, JZY, KGY, G.DWMC'
      ' FROM TKS_GRPRKD J, TGS_GXDWSJB G '
      ' WHERE J.LYDW = G.DWDM '
      '  and J.YSY IS NULL '
      '  and to_char(KDRQ,'#39'YYYYMM'#39')=:KDRQ'
      '  and J.RKDH not in'
      '  (select RKDH from TKS_GRPRKPP where KFDM not in'
      '   (select KFDM from TGS_KFRYDZB where YGDM=:YGDM))'
      ' order by j.rkdh')
    UpdateObject = USQL_RKDGR
    Left = 40
    Top = 109
    ParamData = <
      item
        DataType = ftString
        Name = 'KDRQ'
        ParamType = ptUnknown
        Value = #39#39
      end
      item
        DataType = ftString
        Name = 'YGDM'
        ParamType = ptUnknown
        Value = #39#39
      end>
  end
  object USQL_RKDGR: TUpdateSQL
    ModifySQL.Strings = (
      'update tks_grprkd '
      'set'
      '  YJDH = :YJDH,'
      '  RKXZ = :RKXZ,'
      '  LYDW = :LYDW,'
      '  RKRQ = :RKRQ,'
      '  JSZT = :JSZT,'