sy_qlbzd.dfm

省级集邮品管理ERP

        000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
        338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
        4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
        8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
        333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
        0000}
      NumGlyphs = 2
    end
    object BBt_Print: TBitBtn
      Left = 431
      Top = 6
      Width = 75
      Height = 25
      Hint = '打印'
      Caption = '打印(&P)'
      TabOrder = 5
      OnClick = BBt_PrintClick
      Glyph.Data = {
        36020000424D3602000000000000360000002800000010000000100000000100
        10000000000000020000000000000000000000000000000000001F7C00000000
        0000000000000000000000000000000000000000000000001F7C0000F75EF75E
        F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E00000000F75EF75E
        F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E0000000000000000
        00000000000000000000000000000000000000000000000000000000FF7FF75E
        FF7FF75EFF7FF75EFF7FF75EFF7FF75EFF7FF75EFF7FF75E00000000F75EFF7F
        F75EFF7FF75EFF7FF75EFF7FF75EFF7FF75EFF7F007CFF7F00000000FF7FF75E
        FF7FF75EFF7FF75EFF7FF75EFF7FF75EFF7FF75EFF7FF75E0000000000000000
        00000000000000000000000000000000000000000000000000001F7C1F7C1F7C
        0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00001F7C1F7C1F7C1F7C1F7C1F7C
        0000FF7F0000000000000000FF7F0000FF7F00001F7C1F7C1F7C1F7C1F7C1F7C
        0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00001F7C1F7C1F7C1F7C1F7C1F7C
        0000FF7F00000000FF7F000000000000000000001F7C1F7C1F7C1F7C1F7C1F7C
        0000FF7FFF7FFF7FFF7F0000FF7FFF7F00001F7C1F7C1F7C1F7C1F7C1F7C1F7C
        0000FF7F0000F75EFF7F0000FF7F00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        0000FF7FFF7FFF7FFF7F000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        0000000000000000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C}
    end
    object BBt_Add: TBitBtn
      Left = 14
      Top = 6
      Width = 75
      Height = 25
      Action = Act_Add
      Caption = '添加(&N)'
      TabOrder = 6
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333FF33333333FF333993333333300033377F3333333777333993333333
        300033F77FFF3333377739999993333333333777777F3333333F399999933333
        33003777777333333377333993333333330033377F3333333377333993333333
        3333333773333333333F333333333333330033333333F33333773333333C3333
        330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
        993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
        333333333337733333FF3333333C333330003333333733333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object Bbt_Send: TBitBtn
      Left = 506
      Top = 6
      Width = 75
      Height = 25
      Hint = '修改'
      Caption = '发送(&T)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      Visible = False
      OnClick = Bbt_SendClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF
        FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0
        00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800
        F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0
        00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0
        F033777777777337F73309999990FFF0033377777777FFF77333099999000000
        3333777777777777333333399033333333333337773333333333333903333333
        3333333773333333333333303333333333333337333333333333}
      NumGlyphs = 2
    end
  end
  object ALi_Edit: TActionList
    Images = ImageList
    Left = 432
    Top = 290
    object Act_Add: TAction
      Caption = '添加(&A)'
      Hint = '添加'
      ImageIndex = 0
      ShortCut = 16449
      OnExecute = Act_AddExecute
    end
    object Act_Delete: TAction
      Caption = '删除(&D)'
      Hint = '删除'
      ImageIndex = 1
      ShortCut = 16452
      OnExecute = Act_DeleteExecute
    end
    object Act_Modify: TAction
      Caption = '修改(&M)'
      Hint = '修改'
      ImageIndex = 2
      ShortCut = 16461
      OnExecute = Act_ModifyExecute
    end
    object Act_Find: TAction
      Caption = '查询(&F)'
      ImageIndex = 17
    end
    object Act_Print: TAction
      Caption = '打印(&P)'
      Hint = '打印'
      ImageIndex = 9
      ShortCut = 16464
    end
    object Act_Save: TAction
      Caption = '存盘(&S)'
      Hint = '存盘'
      ImageIndex = 3
      ShortCut = 16467
      OnExecute = Act_SaveExecute
    end
    object Act_Cancel: TAction
      Caption = '取消(&C)'
      Hint = '取消'
      ImageIndex = 4
      ShortCut = 16474
      OnExecute = Act_CancelExecute
    end
  end
  object Qry_JJWXQB: TQuery
    AutoCalcFields = False
    CachedUpdates = True
    BeforeInsert = Qry_JJWXQBBeforeInsert
    AutoRefresh = True
    DatabaseName = 'yzpp'
    SQL.Strings = (
      
        'select T.SDATE,T.QLDH,T.TDM,T.DWDM,T.ND,T.PPMC,T.XQZTS,T.BZ, T.Z' +
        'BR,T.ZDRQ,T.ZT,A.ZH,A.TPMS,A.TPSJ,A.TPMZ '
      
        ' from TY_JJWXQB T,TB_YZPPTXXB A WHERE T.TDM=A.TDM AND T.QLDH=:QL' +
        'DH')
    UpdateObject = UpdateSQL1
    Left = 384
    Top = 246
    ParamData = <
      item
        DataType = ftString
        Name = 'QLDH'
        ParamType = ptUnknown
        Value = '788'
      end>
    object Qry_JJWXQBQLDH: TStringField
      FieldName = 'QLDH'
      Origin = 'YZPP.TY_JJWXQB.QLDH'
      Size = 16
    end
    object Qry_JJWXQBTDM: TStringField
      FieldName = 'TDM'
      Origin = 'YZPP.TY_JJWXQB.TDM'
      Size = 13
    end
    object Qry_JJWXQBDWDM: TStringField
      FieldName = 'DWDM'
      Origin = 'YZPP.TY_JJWXQB.DWDM'
      Size = 8
    end
    object Qry_JJWXQBND: TStringField
      FieldName = 'ND'
      Origin = 'YZPP.TY_JJWXQB.ND'
      Size = 4
    end
    object Qry_JJWXQBPPMC: TStringField
      FieldName = 'PPMC'
      Origin = 'YZPP.TY_JJWXQB.PPMC'
      Size = 60
    end
    object Qry_JJWXQBXQZTS: TFloatField
      FieldName = 'XQZTS'
      Origin = 'YZPP.TY_JJWXQB.XQZTS'
      OnGetText = Qry_JJWXQBXQZTSGetText
      OnSetText = Qry_JJWXQBXQZTSSetText
    end
    object Qry_JJWXQBBZ: TStringField
      FieldName = 'BZ'
      Origin = 'YZPP.TY_JJWXQB.BZ'
      Size = 200
    end
    object Qry_JJWXQBTPMS: TFloatField
      FieldName = 'TPMS'
      Origin = 'YZPP.TB_YZPPTXXB.TPMS'
    end
    object Qry_JJWXQBTPMZ: TFloatField
      FieldName = 'TPMZ'
      Origin = 'YZPP.TB_YZPPTXXB.TPMZ'
      OnGetText = Qry_JJWXQBTPMZGetText
    end
    object Qry_JJWXQBZH: TStringField
      FieldName = 'ZH'
      Origin = 'YZPP.TB_YZPPTXXB.ZH'
      Size = 11
    end
    object Qry_JJWXQBZBR: TStringField
      FieldName = 'ZBR'
      Origin = 'YZPP.TY_JJWXQB.ZBR'
      Size = 12
    end
    object Qry_JJWXQBZDRQ: TDateTimeField
      FieldName = 'ZDRQ'
      Origin = 'YZPP.TY_JJWXQB.ZDRQ'
    end
    object Qry_JJWXQBZT: TStringField
      FieldName = 'ZT'
      Origin = 'YZPP.TY_JJWXQB.ZT'
      Size = 1
    end
    object Qry_JJWXQBTPSJ: TFloatField
      FieldName = 'TPSJ'
      Origin = 'YZPP.TB_YZPPTXXB.TPSJ'
      OnGetText = Qry_JJWXQBTPMZGetText
    end
    object Qry_JJWXQBSDATE: TDateTimeField
      FieldName = 'SDATE'
      Origin = 'YZPP.TY_JJWXQB.SDATE'
    end
  end
  object DataSource1: TDataSource
    DataSet = Qry_JJWXQB
    Left = 352
    Top = 246
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update TY_JJWXQB'
      'set'
      '  QLDH = :QLDH,'
      '  TDM = :TDM,'
      '  DWDM = :DWDM,'
      '  ND = :ND,'
      '  PPMC = :PPMC,'
      '  XQZTS = :XQZTS,'
      '  ZT = :ZT,'
      '  ZBR = :ZBR,'
      '  ZDRQ = :ZDRQ,'
      '  BZ = :BZ'
      'where'
      '  QLDH = :OLD_QLDH and'
      '  TDM = :OLD_TDM')
    InsertSQL.Strings = (
      'insert into TY_JJWXQB'
      '  (QLDH, TDM, DWDM, ND, PPMC, XQZTS, ZT, ZBR, ZDRQ, BZ)'
      'values'
      '  (:QLDH, :TDM, :DWDM, :ND, :PPMC, :XQZTS, :ZT, :ZBR,:ZDRQ, :BZ)')
    DeleteSQL.Strings = (
      'delete from TY_JJWXQB'
      'where'
      '  QLDH = :OLD_QLDH and'
      '  TDM = :OLD_TDM')
    Left = 384
    Top = 278
  end
  object ImageList: TImageList
    Left = 148
    Top = 126
    Bitmap = {
      494C010109000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000004000000001001000000000000020
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000