sy_ckjhdzd1.dfm

省级集邮品管理ERP

        Width = 90
        Height = 20
        Color = clSilver
        DataField = 'PZR'
        DataSource = DS_Third
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        OnEnter = CE_KCEnter
      end
      object DBE_ZBR: TDBEdit
        Left = 63
        Top = 6
        Width = 90
        Height = 20
        Color = clSilver
        DataField = 'ZBR'
        DataSource = DS_Third
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 1
        OnEnter = CE_KCEnter
      end
      object DBE_ZDRQ: TDBEdit
        Left = 388
        Top = 6
        Width = 90
        Height = 20
        Color = clSilver
        DataField = 'ZDRQ'
        DataSource = DS_Third
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 2
        OnEnter = CE_KCEnter
      end
      object CE_KC: TCurrencyEdit
        Left = 556
        Top = 6
        Width = 90
        Height = 20
        AutoSize = False
        Color = clSilver
        DecimalPlaces = 4
        DisplayFormat = '#,##0.####'
        Font.Charset = GB2312_CHARSET
        Font.Color = clBlue
        Font.Height = -12
        Font.Name = '宋体'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        ZeroEmpty = False
        OnDblClick = CE_KCDblClick
        OnEnter = CE_KCEnter
      end
    end
  end
  object Qry_Third: TQuery
    CachedUpdates = True
    DatabaseName = 'YZPP'
    Filtered = True
    SQL.Strings = (
      'select  * from TYS_TXPCKJHDB')
    UpdateObject = USQL_Third
    Left = 459
    Top = 290
  end
  object DS_Third: TDataSource
    DataSet = Qry_Third
    Left = 487
    Top = 290
  end
  object Qry_Static: TQuery
    CachedUpdates = True
    DatabaseName = 'YZPP'
    Filtered = True
    SQL.Strings = (
      'select  * from TYS_JYCKJHDB')
    Left = 571
    Top = 290
  end
  object USQL_Third: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_TXPCKJHDB'
      'set'
      '  CKJHDH = :CKJHDH,'
      '  CKXZ = :CKXZ,'
      '  ZBR = :ZBR,'
      '  PZR = :PZR,'
      '  ZDRQ = :ZDRQ,'
      '  BZ = :BZ,'
      '  ZT = :ZT,'
      '  SDATE = :SDATE'
      'where'
      '  CKJHDH = :OLD_CKJHDH')
    InsertSQL.Strings = (
      'insert into TYS_TXPCKJHDB'
      '  (CKJHDH, CKXZ, ZBR, PZR, ZDRQ, BZ, ZT, SDATE)'
      'values'
      '  (:CKJHDH, :CKXZ, :ZBR, :PZR, :ZDRQ, :BZ, :ZT, :SDATE)')
    DeleteSQL.Strings = (
      'delete from TYS_TXPCKJHDB'
      'where'
      '  CKJHDH = :OLD_CKJHDH')
    Left = 431
    Top = 290
  end
  object Qry_Main: TQuery
    CachedUpdates = True
    BeforeInsert = Qry_MainBeforeInsert
    AfterScroll = Qry_MainAfterScroll
    DatabaseName = 'YZPP'
    Filtered = True
    SQL.Strings = (
      'select a.CKJHDH, a.DWDM, a.PPDM, a.KFDM, a.JJ, a.PPMC, '
      'a.XJ, a.ZK, a.JSJ, b.tpmz mz,a.FPSL, a.SDATE '
      'from TYS_TXCKJHDPPB a, TB_YZPPXXB b'
      'where a.PPDM=b.TDM and a.ckjhdh='#39'L20020801'#39
      'order by DWDM, JJ')
    UpdateObject = USQL_Main
    Left = 458
    Top = 330
    object Qry_MainCKJHDH: TStringField
      FieldName = 'CKJHDH'
      Origin = 'YZPP.TYS_TXCKJHDPPB.CKJHDH'
      Size = 10
    end
    object Qry_MainDWDM: TStringField
      FieldName = 'DWDM'
      Origin = 'YZPP.TYS_TXCKJHDPPB.DWDM'
      Size = 8
    end
    object Qry_MainKFDM: TStringField
      FieldName = 'KFDM'
      Origin = 'YZPP.TYS_TXCKJHDPPB.KFDM'
      Size = 3
    end
    object Qry_MainPPDM: TStringField
      FieldName = 'PPDM'
      Origin = 'YZPP.TYS_TXCKJHDPPB.PPDM'
      Size = 13
    end
    object Qry_MainPPMC: TStringField
      FieldName = 'PPMC'
      Origin = 'YZPP.TYS_TXCKJHDPPB.PPMC'
      Size = 60
    end
    object Qry_MainJJ: TFloatField
      FieldName = 'JJ'
      Origin = 'YZPP.TYS_TXCKJHDPPB.MZ'
      OnGetText = Qry_MainJJGetText
      OnSetText = Qry_MainJJSetText
    end
    object Qry_MainSJ: TFloatField
      FieldName = 'XJ'
      Origin = 'YZPP.TYS_TXCKJHDPPB.SJ'
      OnGetText = Qry_MainJJGetText
      OnSetText = Qry_MainJJSetText
    end
    object Qry_MainZK: TFloatField
      FieldName = 'ZK'
      Origin = 'YZPP.TYS_TXCKJHDPPB.ZK'
      OnChange = Qry_MainZKChange
      OnSetText = Qry_MainZKSetText
    end
    object Qry_MainJSJ: TFloatField
      FieldName = 'JSJ'
      Origin = 'YZPP.TYS_TXCKJHDPPB.JSJ'
      OnChange = Qry_MainZKChange
      OnGetText = Qry_MainJJGetText
      OnSetText = Qry_MainJSJSetText
    end
    object Qry_MainFPSL: TFloatField
      FieldName = 'FPSL'
      Origin = 'YZPP.TYS_TXCKJHDPPB.FPSL'
      OnGetText = Qry_MainFPSLGetText
      OnSetText = Qry_MainFPSLSetText
      DisplayFormat = '#,##'
    end
    object Qry_MainSDATE: TDateTimeField
      FieldName = 'SDATE'
      Origin = 'YZPP.TYS_TXCKJHDPPB.SDATE'
    end
    object Qry_MainZH: TStringField
      FieldKind = fkLookup
      FieldName = 'ZH'
      LookupDataSet = Qry_YZPPTXXB
      LookupKeyFields = 'PPDM'
      LookupResultField = 'ZH'
      KeyFields = 'PPDM'
      Size = 15
      Lookup = True
    end
    object Qry_MainKFMC: TStringField
      FieldKind = fkLookup
      FieldName = 'KFMC'
      LookupDataSet = Qry_KFB
      LookupKeyFields = 'KFDM'
      LookupResultField = 'KFMC'
      KeyFields = 'KFDM'
      Lookup = True
    end
    object Qry_MainDWMC: TStringField
      FieldKind = fkLookup
      FieldName = 'DWMC'
      LookupDataSet = Qry_GXDW
      LookupKeyFields = 'DWDM'
      LookupResultField = 'DWMC'
      KeyFields = 'DWDM'
      Size = 40
      Lookup = True
    end
    object Qry_MainMZ: TFloatField
      FieldName = 'MZ'
      Origin = 'YZPP.TB_YZPPXXB.TPMZ'
      OnGetText = Qry_MainMZGetText
    end
  end
  object DS_Main: TDataSource
    DataSet = Qry_Main
    Left = 486
    Top = 330
  end
  object USQL_Main: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_TXCKJHDPPB'
      'set'
      '  CKJHDH = :CKJHDH,'
      '  DWDM = :DWDM,'
      '  PPDM = :PPDM,'
      '  KFDM = :KFDM,'
      '  PPMC = :PPMC,'
      '  JJ = :JJ,'
      '  XJ = :XJ,'
      '  ZK = :ZK,'
      '  JSJ = :JSJ,'
      '  FPSL = :FPSL,'
      '  SDATE = :SDATE'
      'where'
      '  CKJHDH = :OLD_CKJHDH and'
      '  DWDM = :OLD_DWDM and'
      '  PPDM = :OLD_PPDM and'
      '  JJ = :JJ and '
      '  KFDM = :OLD_KFDM')
    InsertSQL.Strings = (
      'insert into TYS_TXCKJHDPPB'
      '  (CKJHDH, DWDM, PPDM, KFDM, PPMC, JJ, XJ, ZK, JSJ, FPSL, SDATE)'
      'values'
      
        '  (:CKJHDH, :DWDM, :PPDM, :KFDM, :PPMC, :JJ, :XJ, :ZK, :JSJ, :FP' +
        'SL, :SDATE)'
      '  ')
    DeleteSQL.Strings = (
      'delete from TYS_TXCKJHDPPB'
      'where'
      '  CKJHDH = :OLD_CKJHDH and'
      '  DWDM = :OLD_DWDM and'
      '  PPDM = :OLD_PPDM and'
      '  KFDM = :OLD_KFDM')
    Left = 430
    Top = 330
  end
  object Qry_YZPPTXXB: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'SELECT  ZH ,TDM PPDM FROM TB_YZPPXXB ')
    Left = 533
    Top = 328
  end
  object PM_Main: TPopupMenu
    Left = 535
    Top = 289
    object N_SDL: TMenuItem
      Caption = '锁定列'
      OnClick = N_SDLClick
    end
    object N_JSL: TMenuItem
      Caption = '解锁列'
      OnClick = N_JSLClick
    end
  end
  object Qry_Static2: TQuery
    CachedUpdates = True
    DatabaseName = 'YZPP'
    Filtered = True
    SQL.Strings = (
      'SELECT DWDM,DWMC FROM TGS_GXDWSJB')
    Left = 604
    Top = 287
  end
  object Qry_GXDW: TQuery
    DatabaseName = 'YZPP'
    SQL.Strings = (
      'SELECT DWDM,DWJC DWMC FROM TGS_GXDWSJB ')
    Left = 568
    Top = 329
  end
  object Qry_KFB: TQuery
    DatabaseName = 'yzpp'
    SQL.Strings = (
      'SELECT * FROM TGS_KFB')
    Left = 606
    Top = 330
    object Qry_KFBKFDM: TStringField
      FieldName = 'KFDM'
      Origin = 'YZPP.TGS_KFB.KFDM'
      Size = 3
    end
    object Qry_KFBKFMC: TStringField
      FieldName = 'KFMC'
      Origin = 'YZPP.TGS_KFB.KFMC'
      Size = 30
    end
  end
end