sy_qlbzd.dfm

省级集邮品管理ERP

      Height = 25
      Action = Act_Cancel
      Caption = '取消(&C)'
      TabOrder = 3
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333000033338833333333333333333F333333333333
        0000333911833333983333333388F333333F3333000033391118333911833333
        38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
        911118111118333338F3338F833338F3000033333911111111833333338F3338
        3333F8330000333333911111183333333338F333333F83330000333333311111
        8333333333338F3333383333000033333339111183333333333338F333833333
        00003333339111118333333333333833338F3333000033333911181118333333
        33338333338F333300003333911183911183333333383338F338F33300003333
        9118333911183333338F33838F338F33000033333913333391113333338FF833
        38F338F300003333333333333919333333388333338FFF830000333333333333
        3333333333333333333888330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object BBt_Quit: TBitBtn
      Left = 596
      Top = 6
      Width = 75
      Height = 25
      Hint = '返回'
      Caption = '返回(&X)'
      TabOrder = 4
      Kind = bkClose
    end
    object BBt_Add: TBitBtn
      Tag = 201
      Left = 15
      Top = 6
      Width = 75
      Height = 25
      Action = Act_Add
      Caption = '增加(&N)'
      TabOrder = 5
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33333333FF33333333FF333993333333300033377F3333333777333993333333
        300033F77FFF3333377739999993333333333777777F3333333F399999933333
        33003777777333333377333993333333330033377F3333333377333993333333
        3333333773333333333F333333333333330033333333F33333773333333C3333
        330033333337FF3333773333333CC333333333FFFFF77FFF3FF33CCCCCCCCCC3
        993337777777777F77F33CCCCCCCCCC3993337777777777377333333333CC333
        333333333337733333FF3333333C333330003333333733333777333333333333
        3000333333333333377733333333333333333333333333333333}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 475
      Top = 6
      Width = 75
      Height = 25
      Hint = '打印'
      Caption = '打印(&P)'
      TabOrder = 6
      OnClick = BitBtn2Click
      Glyph.Data = {
        36020000424D3602000000000000360000002800000010000000100000000100
        10000000000000020000000000000000000000000000000000001F7C00000000
        0000000000000000000000000000000000000000000000001F7C0000F75EF75E
        F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E00000000F75EF75E
        F75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75EF75E0000000000000000
        00000000000000000000000000000000000000000000000000000000FF7FF75E
        FF7FF75EFF7FF75EFF7FF75EFF7FF75EFF7FF75EFF7FF75E00000000F75EFF7F
        F75EFF7FF75EFF7FF75EFF7FF75EFF7FF75EFF7F007CFF7F00000000FF7FF75E
        FF7FF75EFF7FF75EFF7FF75EFF7FF75EFF7FF75EFF7FF75E0000000000000000
        00000000000000000000000000000000000000000000000000001F7C1F7C1F7C
        0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00001F7C1F7C1F7C1F7C1F7C1F7C
        0000FF7F0000000000000000FF7F0000FF7F00001F7C1F7C1F7C1F7C1F7C1F7C
        0000FF7FFF7FFF7FFF7FFF7FFF7FFF7FFF7F00001F7C1F7C1F7C1F7C1F7C1F7C
        0000FF7F00000000FF7F000000000000000000001F7C1F7C1F7C1F7C1F7C1F7C
        0000FF7FFF7FFF7FFF7F0000FF7FFF7F00001F7C1F7C1F7C1F7C1F7C1F7C1F7C
        0000FF7F0000F75EFF7F0000FF7F00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        0000FF7FFF7FFF7FFF7F000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        0000000000000000000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C}
    end
  end
  object ALi_Edit: TActionList
    Left = 472
    Top = 10
    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
      OnExecute = Act_FindExecute
    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 DataSource1: TDataSource
    DataSet = Qry_JJNXQB
    Left = 212
    Top = 134
  end
  object Qry_GXDWSJB: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'select DWJC DWMC,DWDM from TGS_GXDWSJB')
    Left = 324
    Top = 134
  end
  object Qry_Static: TQuery
    CachedUpdates = True
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'select * from TY_JJNXQB')
    Left = 388
    Top = 134
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update ty_ypzdb'
      'set'
      '  JHH = :JHH,'
      '  SQDWDM = :SQDWDM,'
      '  ND = :ND,'
      '  ZT = :ZT,'
      '  YPMC = :YPMC,'
      '  DW = :DW,'
      '  XQZTS = :XQZTS,'
      '  YDTS = :YDTS,'
      '  LSTS = :LSTS,'
      '  ZBR = :ZBR,'
      '  PZR = :PZR,'
      '  ZDRQ = :ZDRQ,'
      '  SDRQ = :SDRQ,'
      '  BZ = :BZ,'
      '  SDATE = :SDATE'
      'where'
      '  JHH = :OLD_JHH and'
      '  SQDWDM = :OLD_SQDWDM and'
      '  ND = :OLD_ND and'
      '  ZT = :OLD_ZT')
    InsertSQL.Strings = (
      'insert into ty_ypzdb'
      
        '  (JHH, SQDWDM, ND, ZT, YPMC, DW, XQZTS, YDTS, LSTS, ZBR, PZR, Z' +
        'DRQ, SDRQ, '
      '   BZ, SDATE)'
      'values'
      
        '  (:JHH, :SQDWDM, :ND, :ZT, :YPMC, :DW, :XQZTS, :YDTS, :LSTS, :Z' +
        'BR, :PZR, '
      '   :ZDRQ, :SDRQ, :BZ, :SDATE)')
    DeleteSQL.Strings = (
      'delete from ty_ypzdb'
      'where'
      '  JHH = :OLD_JHH and'
      '  SQDWDM = :OLD_SQDWDM and'
      '  ND = :OLD_ND and'
      '  ZT = :OLD_ZT')
    Left = 240
    Top = 134
  end
  object Qry_JJNXQB: TQuery
    CachedUpdates = True
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'SELECT * from ty_ypzdb')
    UpdateObject = UpdateSQL1
    Left = 184
    Top = 134
    object Qry_JJNXQBJHH: TStringField
      DisplayWidth = 20
      FieldName = 'JHH'
      Origin = 'YZPP.TY_JJNXQB.JHH'
    end
    object Qry_JJNXQBSQDWDM: TStringField
      FieldName = 'SQDWDM'
      Origin = 'YZPP.TY_JJNXQB.SQDWDM'
      Size = 8
    end
    object Qry_JJNXQBND: TStringField
      FieldName = 'ND'
      Origin = 'YZPP.TY_JJNXQB.ND'
      Size = 4
    end
    object Qry_JJNXQBXQZTS: TFloatField
      FieldName = 'XQZTS'
      Origin = 'YZPP.TY_JJNXQB.XQZTS'
      DisplayFormat = '#,##'
    end
    object Qry_JJNXQBYDTS: TFloatField
      FieldName = 'YDTS'
      Origin = 'YZPP.TY_JJNXQB.YDTS'
      OnChange = Qry_JJNXQBYDTSChange
      OnSetText = Qry_JJNXQBYDTSSetText
      DisplayFormat = '#,##'
    end
    object Qry_JJNXQBLSTS: TFloatField
      FieldName = 'LSTS'
      Origin = 'YZPP.TY_JJNXQB.LSTS'
      OnChange = Qry_JJNXQBLSTSChange
      OnSetText = Qry_JJNXQBYDTSSetText
      DisplayFormat = '#,##'
    end
    object Qry_JJNXQBZT: TStringField
      FieldName = 'ZT'
      Origin = 'YZPP.TY_JJNXQB.ZT'
      Size = 1
    end
    object Qry_JJNXQBZBR: TStringField
      FieldName = 'ZBR'
      Origin = 'YZPP.TY_JJNXQB.ZBR'
      Size = 12
    end
    object Qry_JJNXQBPZR: TStringField
      FieldName = 'PZR'
      Origin = 'YZPP.TY_JJNXQB.PZR'
      Size = 12
    end
    object Qry_JJNXQBZDRQ: TDateTimeField
      FieldName = 'ZDRQ'
      Origin = 'YZPP.TY_JJNXQB.ZDRQ'
    end
    object Qry_JJNXQBSDRQ: TDateTimeField
      FieldName = 'SDRQ'
      Origin = 'YZPP.TY_JJNXQB.SDRQ'
    end
    object Qry_JJNXQBBZ: TStringField
      FieldName = 'BZ'
      Origin = 'YZPP.TY_JJNXQB.BZ'
      Size = 100
    end
    object Qry_JJNXQBDWMC: TStringField
      FieldKind = fkLookup
      FieldName = 'DWMC'
      LookupDataSet = Qry_GXDWSJB
      LookupKeyFields = 'DWDM'
      LookupResultField = 'DWMC'
      KeyFields = 'SQDWDM'
      Lookup = True
    end
    object Qry_JJNXQBYPMC: TStringField
      FieldName = 'YPMC'
      Origin = 'YZPP.TY_YPZDB.YPMC'
      Size = 60
    end
    object Qry_JJNXQBDW: TStringField
      FieldName = 'DW'
      Origin = 'YZPP.TY_YPZDB.DW'
      Size = 6
    end
    object Qry_JJNXQBSDATE: TDateTimeField
      FieldName = 'SDATE'
      Origin = 'YZPP.TY_YPZDB.SDATE'
    end
  end
end