ss_jypfhzcsh.dfm

省级集邮品管理ERP

inherited frm_JYPZFHZYEB: Tfrm_JYPZFHZYEB
  Tag = 12300
  Left = 86
  Top = 76
  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, bnPrint, bnClose]
    BtnWidth = 65
    OnBtnClick = ModiPanel1BtnClick
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 78
    Width = 692
    Height = 364
    Align = alClient
    DataSource = DataSource1
    PopupMenu = data.pm_Export
    TabOrder = 1
    TitleFont.Charset = GB2312_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -12
    TitleFont.Name = '宋体'
    TitleFont.Style = []
    Columns = <
      item
        Color = cl3DLight
        Expanded = False
        FieldName = 'DWMC'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '单位名称'
        Width = 202
        Visible = True
      end
      item
        Color = clInfoBk
        Expanded = False
        FieldName = 'YJZJJE'
        Title.Alignment = taCenter
        Title.Caption = '增加金额(元)'
        Width = 110
        Visible = True
      end
      item
        Color = clInfoBk
        Expanded = False
        FieldName = 'YJTJJE'
        Title.Alignment = taCenter
        Title.Caption = '退缴金额(元)'
        Width = 112
        Visible = True
      end
      item
        Color = clInfoBk
        Expanded = False
        FieldName = 'YJHKJE'
        Title.Alignment = taCenter
        Title.Caption = '回款金额(元)'
        Width = 110
        Visible = True
      end
      item
        Color = clInfoBk
        Expanded = False
        FieldName = 'YJZXJE'
        Title.Alignment = taCenter
        Title.Caption = '注销金额(元)'
        Visible = False
      end
      item
        Color = cl3DLight
        Expanded = False
        FieldName = 'YJYE'
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = '余额(元)'
        Width = 95
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 45
    Width = 692
    Height = 33
    Align = alTop
    BevelOuter = bvLowered
    TabOrder = 2
    object Label1: TLabel
      Left = 17
      Top = 12
      Width = 186
      Height = 12
      Caption = '系统启用时间          年     月'
    end
    object Edit1: TEdit
      Left = 103
      Top = 8
      Width = 41
      Height = 20
      Color = clMenu
      ReadOnly = True
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 164
      Top = 8
      Width = 23
      Height = 20
      Color = clMenu
      ReadOnly = True
      TabOrder = 1
    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 qryJYPZFHZYEB: TQuery
    CachedUpdates = True
    AfterOpen = qryJYPZFHZYEBAfterOpen
    OnUpdateError = qryJYPZFHZYEBUpdateError
    DatabaseName = 'YZPP'
    RequestLive = True
    SQL.Strings = (
      'SELECT G.DWMC, G.DWDM, ND, YF, ZJJE, TJJE, HKJE, ZXJE, YE'
      ' FROM TYS_TXPZFHZYEB J, TGS_GXDWSJB G'
      ' WHERE G.DWDM = J.DWDM(+) AND FHDX = '#39'1'#39)
    UpdateObject = UpdateSQL2
    Left = 58
    Top = 126
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_JYPZFHZYEB'
      'set'
      '  DWDM = :DWDM,'
      '  ND = :ND,'
      '  YF = :YF,'
      '  YJZJJE = :YJZJJE,'
      '  YJTJJE = :YJTJJE,'
      '  YJHKJE = :YJHKJE,'
      '  YJZXJE = :YJZXJE,'
      '  YJYE = :YJYE'
      'where'
      '  DWDM = :OLD_DWDM and'
      '  ND = :OLD_ND and'
      '  YF = :OLD_YF')
    InsertSQL.Strings = (
      'insert into TYS_JYPZFHZYEB'
      '  (DWDM, ND, YF, YJZJJE, YJTJJE, YJHKJE, YJZXJE, YJYE)'
      'values'
      '  (:DWDM, :ND, :YF, :YJZJJE, :YJTJJE, :YJHKJE, :YJZXJE, :YJYE)')
    DeleteSQL.Strings = (
      'delete from TYS_JYPZFHZYEB'
      'where'
      '  DWDM = :OLD_DWDM and'
      '  ND = :OLD_ND and'
      '  YF = :OLD_YF')
    Left = 89
    Top = 126
  end
  object DataSource1: TDataSource
    DataSet = qryJYPZFHZYEB
    Left = 121
    Top = 127
  end
  object SqlStrings: TSqlStrings
    jyp_Sql.Strings = (
      
        'SELECT G.DWJC DWMC, G.DWDM, ND, YF, YJZJJE, YJTJJE, YJHKJE, YJZX' +
        'JE, YJYE'
      'FROM TYS_JYPZFHZYEB J,'
      '(Select * from TGS_GXDWSJB Where FHDX = '#39'1'#39' and JYYW = '#39'1'#39')G'
      'Where G.DWDM = J.DWDM(+)'
      'order by G.PXM')
    txp_Sql.Strings = (
      'SELECT  G.DWJC DWMC, G.DWDM, ND, YF, ZJJE, TJJE, HKJE, ZXJE, YE'
      'FROM TYS_TXPZFHZYEB J,'
      ' (Select * From TGS_GXDWSJB Where FHDX = '#39'1'#39' and TXYW='#39'1'#39')G'
      'Where  G.DWDM= J.DWDM(+)'
      'order by G.PXM')
    yp_Sql.Strings = (
      
        'SELECT  G.DWJC DWMC, G.DWDM, ND, YF, YJZJJE, YJTJJE, YJHKJE, YJZ' +
        'XJE, YJYE'
      'FROM TYS_YPZFHZYEB J,'
      ' (Select * From TGS_GXDWSJB Where FHDX = '#39'1'#39' and JYYW='#39'1'#39') G'
      'Where G.DWDM = J.DWDM(+)'
      'order by G.PXM')
    grp_Sql.Strings = (
      
        'SELECT G.DWJC DWMC, G.DWDM, ND, YF, YJZJJE, YJTJJE, YJHKJE, YJZX' +
        'JE, YJYE'
      'From TYS_GRPZFHZYEB J,'
      '(Select * from TGS_GXDWSJB where FHDX = '#39'1'#39' and JYYW = '#39'1'#39')G'
      'where G.DWDM = J.DWDM(+)'
      'order by G.PXM')
    Left = 16
    Top = 126
  end
  object UpdateSQL2: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_TXPZFHZYEB'
      'set'
      '  DWDM = :DWDM,'
      '  ND = :ND,'
      '  YF = :YF,'
      '  ZJJE = :ZJJE,'
      '  TJJE = :TJJE,'
      '  HKJE = :HKJE,'
      '  ZXJE = :ZXJE,'
      '  YE = :YE'
      'where'
      '  DWDM = :OLD_DWDM and'
      '  ND = :OLD_ND and'
      '  YF = :OLD_YF')
    InsertSQL.Strings = (
      'insert into TYS_TXPZFHZYEB'
      '  (DWDM, ND, YF, ZJJE, TJJE, HKJE, ZXJE, YE)'
      'values'
      '  (:DWDM, :ND, :YF, :ZJJE, :TJJE, :HKJE, :ZXJE, :YE)'
      ' ')
    DeleteSQL.Strings = (
      'delete from TYS_TXPZFHZYEB'
      'where'
      '  DWDM = :OLD_DWDM and'
      '  ND = :OLD_ND and'
      '  YF = :OLD_YF')
    Left = 90
    Top = 166
  end
  object UpdateSQL3: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_YPZFHZYEB'
      'set'
      '  DWDM = :DWDM,'
      '  ND = :ND,'
      '  YF = :YF,'
      '  YJZJJE = :YJZJJE,'
      '  YJTJJE = :YJTJJE,'
      '  YJHKJE = :YJHKJE,'
      '  YJZXJE = :YJZXJE,'
      '  YJYE = :YJYE'
      'where'
      '  DWDM = :OLD_DWDM and'
      '  ND = :OLD_ND and'
      '  YF = :OLD_YF')
    InsertSQL.Strings = (
      'insert into TYS_YPZFHZYEB'
      '  (DWDM, ND, YF, YJZJJE, YJTJJE, YJHKJE, YJZXJE, YJYE)'
      'values'
      '  (:DWDM, :ND, :YF, :YJZJJE, :YJTJJE, :YJHKJE, :YJZXJE, :YJYE)')
    DeleteSQL.Strings = (
      'delete from TYS_YPZFHZYEB'
      'where'
      '  DWDM = :OLD_DWDM and'
      '  ND = :OLD_ND and'
      '  YF = :OLD_YF')
    Left = 90
    Top = 196
  end
  object UpdateSQL4: TUpdateSQL
    ModifySQL.Strings = (
      'update TYS_GRPZFHZYEB'
      'set'
      '  DWDM = :DWDM,'
      '  ND = :ND,'
      '  YF = :YF,'
      '  YJZJJE = :YJZJJE,'
      '  YJTJJE = :YJTJJE,'
      '  YJHKJE = :YJHKJE,'
      '  YJZXJE = :YJZXJE,'
      '  YJYE = :YJYE'
      'where'
      '  DWDM = :OLD_DWDM and'
      '  ND = :OLD_ND and'
      '  YF = :OLD_YF'
      ' ')
    InsertSQL.Strings = (
      'insert into TYS_GRPZFHZYEB'
      '  (DWDM, ND, YF, YJZJJE, YJTJJE, YJHKJE, YJZXJE, YJYE)'
      'values'
      '  (:DWDM, :ND, :YF, :YJZJJE, :YJTJJE, :YJHKJE, :YJZXJE, :YJYE)')
    DeleteSQL.Strings = (
      'delete from TYS_GRPZFHZYEB'
      'where'
      '  DWDM = :OLD_DWDM and'
      '  ND = :OLD_ND and'
      '  YF = :OLD_YF')
    Left = 90
    Top = 227
  end
  object qry_Tmp: TQuery
    DatabaseName = 'yzpp'
    Left = 76
    Top = 351
  end
end