joinsoci.dfm

企业端数据申报系统：单位管理模块 单位查询. 业务申报模块 在线数据下载 在线数据上传 在线业务申核 申报业务查询 磁盘数据导出 磁盘数据导入 在线业务模块 在线业务

      Caption = 'Singchange'
    end
    object Yes_but: TAction
      Caption = 'Yes_but'
    end
    object Ret_but: TAction
      Caption = 'Ret_but'
    end
    object Multchange: TAction
      Caption = 'Multchange'
    end
    object cancel_but: TAction
      Caption = 'cancel_but'
      ImageIndex = 2
      OnExecute = cancel_butExecute
    end
    object save_but: TAction
      Caption = 'save_but'
      ImageIndex = 1
      ShortCut = 16467
      OnExecute = save_butExecute
    end
    object bgcancel_but: TAction
      Caption = 'bgcancel_but'
      ImageIndex = 4
      OnExecute = bgcancel_butExecute
    end
    object help_but: TAction
      Caption = 'help_but'
      ImageIndex = 3
      ShortCut = 112
      OnExecute = help_butExecute
    end
    object curcancel_but: TAction
      Caption = 'curcancel_but'
      ImageIndex = 2
      OnExecute = curcancel_butExecute
    end
    object ywwizard_but: TAction
      Caption = 'ywwizard_but'
      ImageIndex = 8
      OnExecute = ywwizard_butExecute
    end
  end
  inherited PopupMenu1: TPopupMenu
    OwnerDraw = True
    Left = 336
    Top = 112
    object N1: TMenuItem
      AutoCheck = True
      Caption = #19994#21153#21150#29702
      Checked = True
      RadioItem = True
      OnClick = N1Click
    end
    object N2: TMenuItem
      AutoCheck = True
      Caption = #19994#21153#26597#35810
      SubMenuImages = ImageList2
      RadioItem = True
      OnClick = N2Click
    end
  end
  inherited ImageList2: TImageList
    Left = 240
    Top = 112
  end
  object DataSource1: TDataSource
    DataSet = Query1
    OnDataChange = DataSource1DataChange
    Left = 432
    Top = 208
  end
  object Query1: TQuery
    CachedUpdates = True
    AfterEdit = Query1AfterEdit
    AutoRefresh = True
    DatabaseName = 'Esiis'
    Constrained = True
    RequestLive = True
    SQL.Strings = (
      'select * from psarch')
    Left = 432
    Top = 232
    object Query1ISCODE: TStringField
      FieldName = 'ISCODE'
      Origin = 'ESIIS.PSARCH.ISCODE'
      Size = 18
    end
    object Query1PSNAME: TStringField
      FieldName = 'PSNAME'
      Origin = 'ESIIS.PSARCH.PSNAME'
      Size = 18
    end
    object Query1STATUS: TStringField
      FieldName = 'STATUS'
      Origin = 'ESIIS.PSARCH.STATUS'
      Visible = False
      Size = 1
    end
    object Query1statusname: TStringField
      FieldKind = fkLookup
      FieldName = 'statusname'
      LookupDataSet = Query3
      LookupKeyFields = 'code'
      LookupResultField = 'name'
      KeyFields = 'STATUS'
      Lookup = True
    end
    object Query1chgreasonname: TStringField
      FieldKind = fkLookup
      FieldName = 'chgreasonname'
      LookupDataSet = Query4
      LookupKeyFields = 'upcode'
      LookupResultField = 'upname'
      KeyFields = 'chgreason'
      Lookup = True
    end
    object Query1CHANTIME: TDateField
      FieldName = 'CHANTIME'
      Origin = 'ESIIS.PSARCH.CHANTIME'
      OnChange = Query1CHANTIMEChange
      OnSetText = Query1CHANTIMESetText
      EditMask = '!9999/99/00;1;_'
    end
    object Query1CHANINFO: TStringField
      FieldName = 'CHANINFO'
      Origin = 'ESIIS.PSARCH.CHANINFO'
      OnChange = Query1CHANINFOChange
      Size = 30
    end
    object Query1IFDEL: TStringField
      FieldName = 'IFDEL'
      Origin = 'ESIIS.PSARCH.IFDEL'
      Size = 1
    end
    object Query1ORGANID: TIntegerField
      FieldName = 'ORGANID'
      Origin = 'ESIIS.PSARCH.ORGANID'
    end
    object Query1chgreason: TStringField
      FieldName = 'chgreason'
      Origin = 'ESIIS.PSARCH.chgreason'
      OnChange = Query1chgreasonChange
      Size = 3
    end
    object Query1MANID: TFloatField
      FieldName = 'MANID'
      Origin = 'ESIIS.PSARCH.MANID'
    end
    object Query1AGCARDNO: TStringField
      FieldName = 'AGCARDNO'
      Origin = 'ESIIS.PSARCH.AGCARDNO'
      Size = 8
    end
    object Query1PSSENO: TFloatField
      FieldName = 'PSSENO'
      Origin = 'ESIIS.PSARCH.PSSENO'
    end
    object Query1CPSENO: TFloatField
      FieldName = 'CPSENO'
      Origin = 'ESIIS.PSARCH.CPSENO'
    end
    object Query1REWAGE: TFloatField
      FieldName = 'REWAGE'
      Origin = 'ESIIS.PSARCH.REWAGE'
      OnChange = Query1REWAGEChange
      OnSetText = Query1REWAGESetText
      DisplayFormat = '#0.00'
      EditFormat = '#0.00'
    end
    object Query1itcode: TFloatField
      FieldName = 'itcode'
      Origin = 'ESIIS.PSARCH.itcode'
      OnChange = Query1itcodeChange
    end
    object Query1itcodename: TStringField
      FieldKind = fkLookup
      FieldName = 'itcodename'
      LookupDataSet = Query5
      LookupKeyFields = 'itcode'
      LookupResultField = 'itcode_name'
      KeyFields = 'itcode'
      Lookup = True
    end
    object Query1JOINDATE: TDateField
      FieldName = 'JOINDATE'
      Origin = 'ESIIS.PSARCH.JOINDATE'
    end
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 464
    Top = 208
  end
  object Query2: TQuery
    CachedUpdates = True
    AutoRefresh = True
    DatabaseName = 'Esiis'
    SQL.Strings = (
      'select b.iscode iscode,b.psname psname,b.agcardno agcardno'
      ',c.upname upreasonname,b.cgdate cgdate,b.opname opcode'
      ',b.opdate opdate,b.notes notes,d.name procflgname '
      'from psupcase b,upreason c,sbcode d'
      
        'where b.upreason=c.upcode and b.procflg=d.code and d.type='#39'procf' +
        'lg'#39' '
      'order by b.opdate desc')
    Left = 464
    Top = 232
    object Query2iscode: TStringField
      FieldName = 'iscode'
      Size = 18
    end
    object Query2psname: TStringField
      FieldName = 'psname'
      Size = 18
    end
    object Query2agcardno: TStringField
      FieldName = 'agcardno'
      Size = 8
    end
    object Query2upreasonname: TStringField
      FieldName = 'upreasonname'
      Size = 50
    end
    object Query2cgdate: TDateField
      FieldName = 'cgdate'
    end
    object Query2opcode: TStringField
      FieldName = 'opcode'
      Size = 10
    end
    object Query2opdate: TDateField
      FieldName = 'opdate'
    end
    object Query2notes: TStringField
      FieldName = 'notes'
      Size = 200
    end
    object Query2procflg: TStringField
      FieldName = 'procflgname'
      Size = 1
    end
  end
  object ImageList3: TImageList
    Left = 56
    Top = 112
    Bitmap = {
      494C010105000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000003000000001001000000000000018
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      420800000000C618000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000008410
      207EE071C071000008214A290000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000084104208393DAC20E07E
      447E007A00763169000029298C31EF3D00000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      00000000000000000000000000000000000000000000393DEE28393DED24037F
      887E407E407E3169A56C29256B31000000000