udwxx.dfm

行业应急系统 包括: 应急系统（待遇核发） 发放系统 开发环境:Delphi5 (sp1)+ Oracle 8.05 MultiExport是一个可以将数据按指定字段倒出

inherited frmDWXX: TfrmDWXX
  Left = 6
  Top = 132
  Width = 808
  Height = 452
  Caption = '社会化发放单位信息'
  OnActivate = FormActivate
  OnDeactivate = FormDeactivate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object splLeft: TSplitter [0]
    Left = 151
    Top = 0
    Width = 3
    Height = 425
    Cursor = crHSplit
    Beveled = True
  end
  inherited pnlMain: TPanel
    Left = 154
    Width = 646
    Height = 425
    object grdMain: TDBGridEh
      Left = 0
      Top = 30
      Width = 646
      Height = 374
      Align = alClient
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      TabOrder = 3
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = '宋体'
      FooterFont.Style = []
      FooterColor = clWindow
      Flat = True
    end
    object pnlEdit: TPanel
      Left = 0
      Top = 30
      Width = 646
      Height = 374
      Align = alClient
      BevelInner = bvLowered
      BevelOuter = bvSpace
      BorderWidth = 5
      TabOrder = 1
      object Label1: TLabel
        Left = 120
        Top = 248
        Width = 24
        Height = 12
        Caption = '帐户'
      end
      object Label2: TLabel
        Left = 112
        Top = 272
        Width = 48
        Height = 12
        Caption = '邮政编码'
      end
      inline frmRyxxEdit: TFrameRyxx
        Left = 7
        Top = 7
        Width = 632
        Height = 360
        Align = alClient
        TabOrder = 1
      end
      inline frmDWXXEdit: TframeDwxx
        Left = 7
        Top = 7
        Width = 632
        Height = 360
        Align = alClient
        inherited DBNavigator1: TDBNavigator
          Hints.Strings = ()
        end
      end
    end
    object Panel2: TPanel
      Left = 0
      Top = 0
      Width = 646
      Height = 30
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object chkSingle: TCheckBox
        Left = 5
        Top = 6
        Width = 82
        Height = 17
        Caption = '单记录显示'
        TabOrder = 0
        OnClick = chkSingleClick
      end
    end
    object TabSet1: TTabSet
      Left = 0
      Top = 404
      Width = 646
      Height = 21
      Align = alBottom
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      Tabs.Strings = (
        '单位信息'
        '人员信息')
      TabIndex = 0
      OnChange = TabSet1Change
    end
  end
  object treDW: TTreeView
    Left = 0
    Top = 0
    Width = 151
    Height = 425
    Align = alLeft
    Indent = 19
    TabOrder = 1
    OnClick = treDWClick
    OnExpanding = treDWExpanding
  end
  object qryMaster: TQuery
    CachedUpdates = True
    BeforeInsert = qryMasterBeforeInsert
    AfterInsert = qryMasterAfterInsert
    BeforePost = qryMasterBeforePost
    AfterPost = qryMasterAfterPost
    BeforeDelete = qryMasterBeforeDelete
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'SELECT *'
      'FROM tFF_DWXX'
      'where dwid_ff=:dwid_ff')
    UpdateObject = sqlMaster
    Left = 56
    Top = 320
    ParamData = <
      item
        DataType = ftString
        Name = 'dwid_ff'
        ParamType = ptInput
      end>
    object qryMasterDWID_FF: TStringField
      DisplayLabel = '社会化发放ID'
      FieldName = 'DWID_FF'
      Origin = 'MAINDB.TFF_DWXX.DWID_FF'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryMasterSSDWID: TStringField
      DisplayLabel = '所属单位ID'
      FieldName = 'SSDWID'
      Origin = 'MAINDB.TFF_DWXX.SSDWID'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryMasterDWID: TStringField
      DisplayLabel = '单位序号'
      FieldName = 'DWID'
      Origin = 'MAINDB.TFF_DWXX.DWID'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryMasterZH: TStringField
      DisplayLabel = '帐户'
      FieldName = 'ZH'
      Origin = 'MAINDB.TFF_DWXX.ZH'
      Size = 40
    end
    object qryMasterKHMC: TStringField
      DisplayLabel = '开户名称'
      FieldName = 'KHMC'
      Origin = 'MAINDB.TFF_DWXX.KHMC'
      Size = 80
    end
    object qryMasterYZBM: TStringField
      DisplayLabel = '邮政编码'
      FieldName = 'YZBM'
      Origin = 'MAINDB.TFF_DWXX.YZBM'
      FixedChar = True
      Size = 6
    end
    object qryMasterSSHY: TFloatField
      FieldName = 'SSHY'
      Origin = 'MAINDB.TFF_DWXX.SSHY'
      Visible = False
    end
    object qryMasterDWDM: TStringField
      DisplayLabel = '单位代码'
      DisplayWidth = 10
      FieldName = 'DWDM'
      Origin = 'MAINDB.TFF_DWXX.DWDM'
      FixedChar = True
      Size = 10
    end
    object qryMasterDWMC: TStringField
      DisplayLabel = '单位名称'
      DisplayWidth = 17
      FieldName = 'DWMC'
      Origin = 'MAINDB.TFF_DWXX.DWMC'
      Size = 40
    end
    object qryMasterFRDB: TStringField
      DisplayLabel = '法人代表'
      DisplayWidth = 10
      FieldName = 'FRDB'
      Origin = 'MAINDB.TFF_DWXX.FRDB'
      Size = 10
    end
    object qryMasterDWJBR: TStringField
      DisplayLabel = '单位经办人'
      DisplayWidth = 10
      FieldName = 'DWJBR'
      Origin = 'MAINDB.TFF_DWXX.DWJBR'
      Size = 10
    end
    object qryMasterLXDH: TStringField
      DisplayLabel = '联系电话'
      DisplayWidth = 12
      FieldName = 'LXDH'
      Origin = 'MAINDB.TFF_DWXX.LXDH'
    end
    object qryMasterDWDZ: TStringField
      DisplayLabel = '单位地址'
      DisplayWidth = 80
      FieldName = 'DWDZ'
      Origin = 'MAINDB.TFF_DWXX.DWDZ'
      Size = 80
    end
    object qryMasterSHHFFSJ: TDateTimeField
      DisplayLabel = '社会化发放时间'
      DisplayWidth = 18
      FieldName = 'SHHFFSJ'
      Origin = 'MAINDB.TFF_DWXX.SHHFFSJ'
    end
    object qryMasterSJDWDM: TStringField
      DisplayLabel = '上级单位代码'
      FieldName = 'SJDWDM'
      Origin = 'MAINDB.TFF_DWXX.SJDWDM'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryMasterJBR: TStringField
      DisplayLabel = '经办人'
      DisplayWidth = 10
      FieldName = 'JBR'
      Origin = 'MAINDB.TFF_DWXX.JBR'
      Size = 10
    end
    object qryMasterJBRQ: TDateTimeField
      DisplayLabel = '经办日期'
      DisplayWidth = 18
      FieldName = 'JBRQ'
      Origin = 'MAINDB.TFF_DWXX.JBRQ'
    end
    object qryMasterSHR: TStringField
      DisplayLabel = '审核人'
      DisplayWidth = 10
      FieldName = 'SHR'
      Origin = 'MAINDB.TFF_DWXX.SHR'
      Size = 10
    end
    object qryMasterSHRQ: TDateTimeField
      DisplayLabel = '审核日期'
      DisplayWidth = 18
      FieldName = 'SHRQ'
      Origin = 'MAINDB.TFF_DWXX.SHRQ'
    end
  end
  object souMaster: TDataSource
    DataSet = qryMaster
    Left = 24
    Top = 320
  end
  object sqlMaster: TUpdateSQL
    ModifySQL.Strings = (
      'update tFF_DWXX'
      'set'
      '  DWID_FF = :DWID_FF,'
      '  SSDWID = :SSDWID,'
      '  DWID = :DWID,'
      '  DWDM = :DWDM,'
      '  DWMC = :DWMC,'
      '  SSHY = :SSHY,'
      '  FRDB = :FRDB,'
      '  DWJBR = :DWJBR,'
      '  ZH = :ZH,'
      '  KHMC = :KHMC,'
      '  YZBM = :YZBM,'
      '  DWDZ = :DWDZ,'
      '  LXDH = :LXDH,'
      '  SHHFFSJ = :SHHFFSJ,'
      '  SJDWDM = :SJDWDM,'
      '  JBR = :JBR,'
      '  JBRQ = :JBRQ,'
      '  SHR = :SHR,'
      '  SHRQ = :SHRQ'
      'where'
      '  DWID_FF = :OLD_DWID_FF')
    InsertSQL.Strings = (
      'insert into tFF_DWXX'
      
        '  (DWID_FF, SSDWID, DWID, DWDM, DWMC, SSHY, FRDB, DWJBR, ZH, KHM' +
        'C, YZBM, '
      '   DWDZ, LXDH, SHHFFSJ, SJDWDM, JBR, JBRQ, SHR, SHRQ)'
      'values'
      
        '  (:DWID_FF, :SSDWID, :DWID, :DWDM, :DWMC, :SSHY, :FRDB, :DWJBR,' +
        ' :ZH, :KHMC, '
      
        '   :YZBM, :DWDZ, :LXDH, :SHHFFSJ, :SJDWDM, :JBR, :JBRQ, :SHR, :S' +
        'HRQ)')
    DeleteSQL.Strings = (
      'delete from tFF_DWXX'
      'where'
      '  DWID_FF = :OLD_DWID_FF')
    Left = 96
    Top = 320
  end
  object souRYXX: TDataSource
    DataSet = qryRYXX
    Left = 26
    Top = 263
  end
  object qryRYXX: TQuery
    CachedUpdates = True
    AfterInsert = qryRYXXAfterInsert
    BeforePost = qryRYXXBeforePost
    AfterPost = qryRYXXAfterPost
    DatabaseName = 'MainDB'
    DataSource = souMaster
    SQL.Strings = (
      'select * from tFF_RYXX'
      'where dwid_ff=:dwid_ff')
    UpdateObject = sqlRYXX
    Left = 58
    Top = 263
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'DWID_FF'
        ParamType = ptInput
      end>
    object qryRYXXRYID_FF: TStringField
      DisplayLabel = '发放人员ID'
      FieldName = 'RYID_FF'
      Origin = 'MAINDB.TFF_RYXX.RYID_FF'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryRYXXDWID_FF: TStringField
      DisplayLabel = '单位序号'
      FieldName = 'DWID_FF'
      Origin = 'MAINDB.TFF_RYXX.DWID_FF'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryRYXXRYID: TStringField
      DisplayLabel = '人员ID'
      FieldName = 'RYID'
      Origin = 'MAINDB.TFF_RYXX.RYID'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryRYXXXM: TStringField
      DisplayLabel = '姓名'
      FieldName = 'XM'
      Origin = 'MAINDB.TFF_RYXX.XM'
      Size = 10
    end
    object qryRYXXSFZH: TStringField
      DisplayLabel = '身份证号'
      FieldName = 'SFZH'
      Origin = 'MAINDB.TFF_RYXX.SFZH'
      FixedChar = True
    end
    object qryRYXXHDJE: TFloatField
      DisplayLabel = '核定金额'
      FieldName = 'HDJE'
      Origin = 'MAINDB.TFF_RYXX.HDJE'
    end
    object qryRYXXFFFS: TFloatField
      DisplayLabel = '发放方式'
      FieldName = 'FFFS'
      Origin = 'MAINDB.TFF_RYXX.FFFS'
      Visible = False
    end
    object qryRYXXFFFS_C: TStringField
      DisplayLabel = '发放方式'
      FieldKind = fkLookup
      FieldName = 'FFFS_C'
      LookupDataSet = frmRyxxEdit.qryFFFS
      LookupKeyFields = 'DM'
      LookupResultField = 'DMMC'
      KeyFields = 'FFFS'
      Lookup = True
    end
    object qryRYXXFFJGID: TStringField
      DisplayLabel = '发放机构ID'
      FieldName = 'FFJGID'
      Origin = 'MAINDB.TFF_RYXX.FFJGID'
      Visible = False
      FixedChar = True
      Size = 10
    end
    object qryRYXXFFJGID_C: TStringField
      DisplayLabel = '发放机构'
      FieldKind = fkLookup
      FieldName = 'FFJGID_C'
      LookupDataSet = frmRyxxEdit.qryFFJG
      LookupKeyFields = 'FFJGID'
      LookupResultField = 'JGMC'
      KeyFields = 'FFJGID'
      Lookup = True
    end
    object qryRYXXDJQK: TFloatField
      DisplayLabel = '定居情况'
      FieldName = 'DJQK'