ss_jypbhbh.dfm

省级集邮品管理ERP

inherited frm_JYPBHBHCSH: Tfrm_JYPBHBHCSH
  Tag = 12400
  Left = 58
  Top = 52
  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 = [bnEdit, bnSave, bnCancel, bnClose]
    BtnWidth = 65
    OnBtnClick = ModiPanel1BtnClick
  end
  object Panel1: TPanel
    Left = 0
    Top = 45
    Width = 321
    Height = 397
    Align = alLeft
    BevelOuter = bvLowered
    TabOrder = 1
    object Label2: TLabel
      Left = 161
      Top = 12
      Width = 36
      Height = 12
      Caption = '库房号'
    end
    object Label3: TLabel
      Left = 11
      Top = 11
      Width = 24
      Height = 12
      Caption = '查找'
    end
    object cmbKFH: TComboBox
      Left = 202
      Top = 8
      Width = 97
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 0
      OnChange = cmbKFHChange
    end
    object Edit1: TEdit
      Left = 40
      Top = 6
      Width = 89
      Height = 20
      MaxLength = 10
      TabOrder = 1
      OnChange = Edit1Change
    end
    object RxDBGrid1: TRxDBGrid
      Left = 1
      Top = 35
      Width = 319
      Height = 361
      Align = alBottom
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      PopupMenu = data.pm_Export
      TabOrder = 2
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'ZH'
          Title.Caption = '志号'
          Width = 61
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'TJC'
          Title.Caption = '名称'
          Width = 122
          Visible = True
        end
        item
          Color = cl3DLight
          Expanded = False
          FieldName = 'TS'
          Title.Caption = '库存数量'
          Width = 102
          Visible = True
        end>
    end
  end
  object DBGrid1: TDBGrid
    Left = 321
    Top = 45
    Width = 371
    Height = 397
    Align = alClient
    DataSource = DataSource2
    PopupMenu = data.pm_Export
    TabOrder = 2
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Color = clInfoBk
        Expanded = False
        FieldName = 'QSBH'
        Title.Caption = '起始版号'
        Width = 107
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'ZZBH'
        Title.Caption = '终止版号'
        Width = 118
        Visible = True
      end>
  end
  object Panel11: TPanel
    Left = 0
    Top = 0
    Width = 692
    Height = 45
    Align = alTop
    BevelOuter = bvLowered
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object RxLabel1: 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 = 28
      Width = 60
      Height = 12
      Caption = '使用单位：'
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
  end
  object qryYZPPTXXB: TRxQuery
    AfterOpen = qryYZPPTXXBAfterOpen
    OnUpdateError = qryYZPPTXXBUpdateError
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'Select J.PPDM, Y.ZH, Y.TJC, J.KFDM, SUM(J.TS) TS'
      '  From TYS_JYPPKC J, TB_YZPPTXXB Y'
      '  Where J.PPDM = Y.TDM AND J.JJ > 0 and %CON'
      '  GROUP BY J.PPDM, Y.ZH, Y.TJC, J.KFDM'
      '  Order by j.ppdm'
      ' '
      ' '
      ' ')
    Macros = <
      item
        DataType = ftString
        Name = 'CON'
        ParamType = ptInput
        Value = '0=0'
      end>
    Left = 12
    Top = 97
  end
  object DataSource1: TDataSource
    DataSet = qryYZPPTXXB
    Left = 43
    Top = 97
  end
  object qryBHBH: TQuery
    CachedUpdates = True
    OnUpdateError = qryBHBHUpdateError
    DatabaseName = 'YZPP'
    DataSource = DataSource1
    RequestLive = True
    SQL.Strings = (
      'SELECT KFDM, PPDM, QSBH, ZZBH'
      ' FROM TKS_JYBHBHBKC Where KFDM = :KFDM AND PPDM = :PPDM')
    UpdateObject = UpdateSQL2
    Left = 18
    Top = 132
    ParamData = <
      item
        DataType = ftString
        Name = 'KFDM'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'PPDM'
        ParamType = ptUnknown
      end>
  end
  object UpdateSQL2: TUpdateSQL
    ModifySQL.Strings = (
      'update TKS_JYBHBHBKC'
      'set'
      '  KFDM = :KFDM,'
      '  PPDM = :PPDM,'
      '  QSBH = :QSBH,'
      '  ZZBH = :ZZBH'
      'where'
      '  KFDM = :OLD_KFDM and'
      '  PPDM = :OLD_PPDM and'
      '  QSBH = :OLD_QSBH')
    InsertSQL.Strings = (
      'insert into TKS_JYBHBHBKC'
      '  (KFDM, PPDM, QSBH, ZZBH)'
      'values'
      '  (:KFDM, :PPDM, :QSBH, :ZZBH)')
    DeleteSQL.Strings = (
      'delete from TKS_JYBHBHBKC'
      'where'
      '  KFDM = :OLD_KFDM and'
      '  PPDM = :OLD_PPDM and'
      '  QSBH = :OLD_QSBH')
    Left = 48
    Top = 133
  end
  object DataSource2: TDataSource
    DataSet = qryBHBH
    Left = 81
    Top = 134
  end
end