sy_lxqldbl.dfm

省级集邮品管理ERP

      end
      object Label_Year: TLabel
        Left = 301
        Top = 17
        Width = 24
        Height = 12
        Caption = '年度'
      end
      object Label_Month: TLabel
        Left = 388
        Top = 17
        Width = 24
        Height = 12
        Caption = '月份'
      end
      object cbbDwmc: TComboBox
        Left = 78
        Top = 13
        Width = 198
        Height = 20
        ItemHeight = 12
        TabOrder = 0
        OnChange = cbbDwmcChange
      end
      object Memo1: TMemo
        Left = 77
        Top = 45
        Width = 544
        Height = 72
        Lines.Strings = (
          '')
        ReadOnly = True
        TabOrder = 1
      end
      object cbbQldh: TComboBox
        Left = 548
        Top = 13
        Width = 125
        Height = 20
        ItemHeight = 12
        TabOrder = 2
        OnChange = cbbQldhChange
      end
      object speYear: TSpinEdit
        Left = 330
        Top = 13
        Width = 50
        Height = 21
        EditorEnabled = False
        MaxLength = 4
        MaxValue = 2100
        MinValue = 1900
        TabOrder = 3
        Value = 2000
        OnChange = cbbDwmcChange
      end
      object speMonth: TSpinEdit
        Left = 417
        Top = 13
        Width = 35
        Height = 21
        EditorEnabled = False
        MaxLength = 4
        MaxValue = 12
        MinValue = 1
        TabOrder = 4
        Value = 12
        OnChange = cbbDwmcChange
      end
    end
    object Panel3: TPanel
      Left = 0
      Top = 352
      Width = 692
      Height = 36
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 692
        Height = 36
        Align = alClient
        BevelOuter = bvLowered
        TabOrder = 0
        object Label8: TLabel
          Left = 18
          Top = 11
          Width = 36
          Height = 12
          Caption = '制表人'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label12: TLabel
          Left = 245
          Top = 11
          Width = 48
          Height = 12
          Caption = '制单日期'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
        end
        object Label4: TLabel
          Left = 493
          Top = 11
          Width = 34
          Height = 12
          Caption = '合 计'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object Label6: TLabel
          Left = 629
          Top = 11
          Width = 14
          Height = 12
          Caption = '元'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object DBE_ZBR: TDBEdit
          Left = 59
          Top = 7
          Width = 102
          Height = 20
          Color = clMenu
          DataField = 'ZBR'
          DataSource = DataSource1
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          ParentFont = False
          ReadOnly = True
          TabOrder = 0
        end
        object DBE_ZBRQ: TDBDateEdit
          Left = 298
          Top = 7
          Width = 121
          Height = 21
          DataField = 'ZBRQ'
          DataSource = DataSource1
          ReadOnly = True
          Color = clMenu
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = '宋体'
          Font.Style = []
          NumGlyphs = 2
          ParentFont = False
          TabOrder = 1
          YearDigits = dyFour
        end
        object edHj: TCurrencyEdit
          Left = 533
          Top = 7
          Width = 93
          Height = 20
          AutoSize = False
          Color = clMenu
          DecimalPlaces = 4
          DisplayFormat = '#,##0.00##'
          ReadOnly = True
          TabOrder = 2
        end
      end
    end
    object dgQld: TDBGrid
      Left = 0
      Top = 161
      Width = 692
      Height = 191
      Align = alClient
      Color = clMenu
      DataSource = DataSource1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgCancelOnExit]
      PopupMenu = data.pm_Export
      TabOrder = 2
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      OnKeyDown = dgQldKeyDown
      OnKeyUp = dgQldKeyUp
      Columns = <
        item
          Expanded = False
          FieldName = 'PPMC'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '票品名称'
          Width = 234
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'MZ'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '面值(元)'
          Width = 144
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'JE'
          ReadOnly = True
          Title.Alignment = taCenter
          Title.Caption = '金额(元)'
          Width = 161
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'BQTPSR'
          Title.Alignment = taCenter
          Title.Caption = '本期贴票收入(元)'
          Visible = False
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'JKJE'
          Title.Alignment = taCenter
          Title.Caption = '缴款金额(元)'
          Visible = False
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'SL'
          Title.Alignment = taCenter
          Title.Caption = '数量(枚)'
          Width = 115
          Visible = True
        end>
    end
  end
  object qryTemp: TQuery
    DatabaseName = 'yzpp'
    Left = 240
    Top = 272
  end
  object qryQld: TQuery
    CachedUpdates = True
    BeforeInsert = qryQldBeforeInsert
    BeforePost = qryQldBeforePost
    AfterPost = qryQldAfterPost
    AutoRefresh = True
    DatabaseName = 'yzpp'
    RequestLive = True
    SQL.Strings = (
      'select * from tys_txpqld'
      'where qldh = :qldh')
    UpdateObject = UpdateSQL1
    Left = 104
    Top = 274
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'qldh'
        ParamType = ptUnknown
      end>
    object qryQldQLDH: TStringField
      FieldName = 'QLDH'
      Origin = 'YZPP.TYS_TXPQLD.QLDH'
      Size = 16
    end
    object qryQldDWDM: TStringField
      FieldName = 'DWDM'
      Origin = 'YZPP.TYS_TXPQLD.DWDM'
      Size = 8
    end
    object qryQldND: TStringField
      FieldName = 'ND'
      Origin = 'YZPP.TYS_TXPQLD.ND'
      Size = 4
    end
    object qryQldYF: TStringField
      FieldName = 'YF'
      Origin = 'YZPP.TYS_TXPQLD.YF'
      Size = 2
    end
    object qryQldPPDM: TStringField
      FieldName = 'PPDM'
      Origin = 'YZPP.TYS_TXPQLD.PPDM'
      Size = 13
    end
    object qryQldDWMC: TStringField
      FieldName = 'DWMC'
      Origin = 'YZPP.TYS_TXPQLD.DWMC'
      Size = 40
    end
    object qryQldPPMC: TStringField
      FieldName = 'PPMC'
      Origin = 'YZPP.TYS_TXPQLD.PPMC'
      Size = 60
    end
    object qryQldMZ: TFloatField
      FieldName = 'MZ'
      Origin = 'YZPP.TYS_TXPQLD.MZ'
      OnGetText = qryQldMZGetText
    end
    object qryQldSL: TFloatField
      FieldName = 'SL'
      Origin = 'YZPP.TYS_TXPQLD.SL'
      OnSetText = qryQldSLSetText
      DisplayFormat = '#,##'
    end
    object qryQldJE: TFloatField
      FieldName = 'JE'
      Origin = 'YZPP.TYS_TXPQLD.JE'
      OnGetText = qryQldMZGetText
    end
    object qryQldBQTPSR: TFloatField
      FieldName = 'BQTPSR'
      Origin = 'YZPP.TYS_TXPQLD.BQTPSR'
      OnSetText = qryQldSLSetText
    end
    object qryQldJKJE: TFloatField
      FieldName = 'JKJE'
      Origin = 'YZPP.TYS_TXPQLD.JKJE'
      OnSetText = qryQldSLSetText
    end
    object qryQldZBR: TStringField
      FieldName = 'ZBR'
      Origin = 'YZPP.TYS_TXPQLD.ZBR'
      Size = 12
    end
    object qryQldSPR: TStringField
      FieldName = 'SPR'
      Origin = 'YZPP.TYS_TXPQLD.SPR'
      Size = 12
    end
    object qryQldZBRQ: TDateTimeField
      FieldName = 'ZBRQ'
      Origin = 'YZPP.TYS_TXPQLD.ZBRQ'
    end
    object qryQldBZ: TStringField
      FieldName = 'BZ'
      Origin = 'YZPP.TYS_TXPQLD.BZ'
      Size = 200
    end
    object qryQldZT: TStringField
      FieldName = 'ZT'
      Origin = 'YZPP.TYS_TXPQLD.ZT'
      Size = 1
    end
    object qryQldSDATE: TDateTimeField
      FieldName = 'SDATE'
      Origin = 'YZPP.TYS_TXPQLD.SDATE'
    end
  end
  object DataSource1: TDataSource
    DataSet = qryQld
    Left = 136
    Top = 274
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update tys_txpqld'
      'set'
      '  QLDH = :QLDH,'
      '  DWDM = :DWDM,'
      '  ND = :ND,'
      '  YF = :YF,'
      '  PPDM = :PPDM,'
      '  DWMC = :DWMC,'
      '  PPMC = :PPMC,'
      '  MZ = :MZ,'
      '  SL = :SL,'
      '  JE = :JE,'
      '  BQTPSR = :BQTPSR,'
      '  JKJE = :JKJE,'
      '  ZBR = :ZBR,'
      '  SPR = :SPR,'
      '  ZBRQ = :ZBRQ,'
      '  BZ = :BZ,'
      '  ZT = :ZT,'
      '  SDATE = :SDATE'
      'where'
      '  QLDH = :OLD_QLDH and'
      '  PPDM = :OLD_PPDM')
    InsertSQL.Strings = (
      'insert into tys_txpqld'
      
        '  (QLDH, DWDM, ND, YF, PPDM, DWMC, PPMC, MZ, SL, JE, BQTPSR, JKJ' +
        'E, ZBR, '
      '   SPR, ZBRQ, BZ, ZT, SDATE)'
      'values'
      
        '  (:QLDH, :DWDM, :ND, :YF, :PPDM, :DWMC, :PPMC, :MZ, :SL, :JE, :' +
        'BQTPSR, '
      '   :JKJE, :ZBR, :SPR, :ZBRQ, :BZ, :ZT, :SDATE)')
    DeleteSQL.Strings = (
      'delete from tys_txpqld'
      'where'
      '  QLDH = :OLD_QLDH and'
      '  PPDM = :OLD_PPDM')
    Left = 168
    Top = 274
  end
end