usbjgwh.dfm

来自「行业应急系统 包括: 应急系统（待遇核发） 发放系统 开」· DFM 代码 · 共 450 行

inherited frmSBJGWH: TfrmSBJGWH
  Caption = 'frmSBJGWH'
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited Panel2: TPanel
    inherited TreeView1: TTreeView
      OnClick = TreeView1Click
    end
  end
  inherited pagTemp: TPageControl
    inherited tabEdit: TTabSheet
      inherited pnlEdit: TPanel
        object SpeedButton1: TSpeedButton [4]
          Left = 192
          Top = 4
          Width = 65
          Height = 25
          Action = actFind
          Flat = True
          Glyph.Data = {
            42020000424D4202000000000000420000002800000010000000100000000100
            1000030000000002000000000000000000000000000000000000007C0000E003
            00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
            1F7C1F7C1F7C1F7C000000000000000000001F7C1F7C1F7C1F7C1F7C00000000
            0000000000001F7C0000E07F0000000000001F7C1F7C1F7C1F7C1F7C0000FF7F
            0000000000001F7C0000FF7F0000000000001F7C1F7C1F7C1F7C1F7C0000E07F
            0000000000001F7C00000000000000000000000000001F7C0000000000000000
            0000000000001F7C00000000E07F000000000000000000000000E07F00000000
            0000000000001F7C00000000FF7F0000000000001F7C00000000FF7F00000000
            0000000000001F7C00000000E07F0000000000001F7C00000000E07F00000000
            0000000000001F7C1F7C00000000000000000000000000000000000000000000
            000000001F7C1F7C1F7C1F7C0000E07F0000000000001F7C0000E07F00000000
            00001F7C1F7C1F7C1F7C1F7C000000000000000000001F7C0000000000000000
            00001F7C1F7C1F7C1F7C1F7C1F7C0000000000001F7C1F7C1F7C000000000000
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000E07F00001F7C1F7C1F7C0000E07F0000
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000000000001F7C1F7C1F7C000000000000
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
            1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
            1F7C1F7C1F7C}
        end
      end
      inherited Panel6: TPanel
        inherited scrMain: TScrollBox
          object GroupBox1: TGroupBox
            Left = 0
            Top = 0
            Width = 628
            Height = 417
            Align = alClient
            Caption = '社保机构信息'
            TabOrder = 0
            object Label1: TLabel
              Left = 15
              Top = 48
              Width = 72
              Height = 12
              Caption = '社保机构代码'
              FocusControl = DBEdit1
            end
            object Label2: TLabel
              Left = 221
              Top = 48
              Width = 48
              Height = 12
              Caption = '机构名称'
              FocusControl = DBEdit2
            end
            object Label3: TLabel
              Left = 51
              Top = 72
              Width = 36
              Height = 12
              Caption = '省区名'
              FocusControl = DBEdit3
            end
            object Label4: TLabel
              Left = 318
              Top = 72
              Width = 36
              Height = 12
              Caption = '地区名'
              FocusControl = DBEdit4
            end
            object Label5: TLabel
              Left = 49
              Top = 96
              Width = 36
              Height = 12
              Caption = '县区名'
              FocusControl = DBEdit5
            end
            object Label6: TLabel
              Left = 306
              Top = 96
              Width = 48
              Height = 12
              Caption = '机构级别'
              FocusControl = DBEdit6
            end
            object Label7: TLabel
              Left = 54
              Top = 154
              Width = 24
              Height = 12
              Caption = '地址'
              FocusControl = DBEdit7
            end
            object Label8: TLabel
              Left = 385
              Top = 154
              Width = 48
              Height = 12
              Caption = '邮政编码'
              FocusControl = DBEdit8
            end
            object Label9: TLabel
              Left = 31
              Top = 203
              Width = 48
              Height = 12
              Caption = '银行名称'
              FocusControl = DBEdit9
            end
            object Label10: TLabel
              Left = 39
              Top = 232
              Width = 48
              Height = 12
              Caption = '帐户名称'
              FocusControl = DBEdit10
            end
            object Label11: TLabel
              Left = 330
              Top = 234
              Width = 24
              Height = 12
              Caption = '帐号'
              FocusControl = DBEdit11
            end
            object Label12: TLabel
              Left = 63
              Top = 260
              Width = 24
              Height = 12
              Caption = '会计'
              FocusControl = DBEdit12
            end
            object Label13: TLabel
              Left = 330
              Top = 260
              Width = 24
              Height = 12
              Caption = '出纳'
              FocusControl = DBEdit13
            end
            object Label14: TLabel
              Left = 39
              Top = 286
              Width = 48
              Height = 12
              Caption = '联系电话'
              FocusControl = DBEdit14
            end
            object Label15: TLabel
              Left = 330
              Top = 286
              Width = 24
              Height = 12
              Caption = '传真'
              FocusControl = DBEdit15
            end
            object Bevel1: TBevel
              Left = 6
              Top = 127
              Width = 617
              Height = 4
            end
            object Bevel2: TBevel
              Left = 6
              Top = 185
              Width = 617
              Height = 4
            end
            object DBEdit1: TDBEdit
              Left = 95
              Top = 44
              Width = 113
              Height = 20
              DataField = 'JGDM'
              DataSource = souTemp
              TabOrder = 0
            end
            object DBEdit2: TDBEdit
              Left = 284
              Top = 44
              Width = 244
              Height = 20
              DataField = 'JGMC'
              DataSource = souTemp
              TabOrder = 1
            end
            object DBEdit3: TDBEdit
              Left = 95
              Top = 68
              Width = 169
              Height = 20
              DataField = 'SQM'
              DataSource = souTemp
              TabOrder = 2
            end
            object DBEdit4: TDBEdit
              Left = 359
              Top = 68
              Width = 169
              Height = 20
              DataField = 'DQM'
              DataSource = souTemp
              TabOrder = 3
            end
            object DBEdit5: TDBEdit
              Left = 95
              Top = 92
              Width = 169
              Height = 20
              DataField = 'XQM'
              DataSource = souTemp
              TabOrder = 4
            end
            object DBEdit6: TDBEdit
              Left = 359
              Top = 92
              Width = 169
              Height = 20
              DataField = 'JGJB'
              DataSource = souTemp
              TabOrder = 5
            end
            object DBEdit7: TDBEdit
              Left = 93
              Top = 150
              Width = 244
              Height = 20
              DataField = 'DZ'
              DataSource = souTemp
              TabOrder = 6
            end
            object DBEdit8: TDBEdit
              Left = 440
              Top = 150
              Width = 86
              Height = 20
              DataField = 'YZBM'
              DataSource = souTemp
              TabOrder = 7
            end
            object DBEdit9: TDBEdit
              Left = 94
              Top = 199
              Width = 432
              Height = 20
              DataField = 'YHMC'
              DataSource = souTemp
              TabOrder = 8
            end
            object DBEdit10: TDBEdit
              Left = 95
              Top = 228
              Width = 169
              Height = 20
              DataField = 'ZHMC'
              DataSource = souTemp
              TabOrder = 9
            end
            object DBEdit11: TDBEdit
              Left = 357
              Top = 230
              Width = 169
              Height = 20
              DataField = 'ZH'
              DataSource = souTemp
              TabOrder = 10
            end
            object DBEdit12: TDBEdit
              Left = 95
              Top = 256
              Width = 169
              Height = 20
              DataField = 'KJ'
              DataSource = souTemp
              TabOrder = 11
            end
            object DBEdit13: TDBEdit
              Left = 357
              Top = 256
              Width = 169
              Height = 20
              DataField = 'CN'
              DataSource = souTemp
              TabOrder = 12
            end
            object DBEdit14: TDBEdit
              Left = 95
              Top = 282
              Width = 169
              Height = 20
              DataField = 'LXDH'
              DataSource = souTemp
              TabOrder = 13
            end
            object DBEdit15: TDBEdit
              Left = 357
              Top = 282
              Width = 169
              Height = 20
              DataField = 'CZ'
              DataSource = souTemp
              TabOrder = 14
            end
          end
        end
      end
    end
  end
  inherited actlstTemp: TActionList
    inherited actFind: TAction
      OnExecute = actFindExecute
    end
  end
  inherited qryTemp: TwwQuery
    AutoRefresh = True
    SQL.Strings = (
      'select * from tSBJG')
    UpdateMode = upWhereKeyOnly
    object qryTempJGDM: TStringField
      FieldName = 'JGDM'
      Origin = 'MAINDB.TSBJG.JGDM'
      FixedChar = True
      Size = 6
    end
    object qryTempJGMC: TStringField
      FieldName = 'JGMC'
      Origin = 'MAINDB.TSBJG.JGMC'
      Size = 40
    end
    object qryTempSQM: TStringField
      FieldName = 'SQM'
      Origin = 'MAINDB.TSBJG.SQM'
      FixedChar = True
      Size = 6
    end
    object qryTempDQM: TStringField
      FieldName = 'DQM'
      Origin = 'MAINDB.TSBJG.DQM'
      Size = 10
    end
    object qryTempXQM: TStringField
      FieldName = 'XQM'
      Origin = 'MAINDB.TSBJG.XQM'
      Size = 10
    end
    object qryTempJGJB: TFloatField
      FieldName = 'JGJB'
      Origin = 'MAINDB.TSBJG.JGJB'
    end
    object qryTempDZ: TStringField
      FieldName = 'DZ'
      Origin = 'MAINDB.TSBJG.DZ'
      Size = 80
    end
    object qryTempYZBM: TStringField
      FieldName = 'YZBM'
      Origin = 'MAINDB.TSBJG.YZBM'
      FixedChar = True
      Size = 6
    end
    object qryTempYHMC: TStringField
      FieldName = 'YHMC'
      Origin = 'MAINDB.TSBJG.YHMC'
      Size = 40
    end
    object qryTempZHMC: TStringField
      FieldName = 'ZHMC'
      Origin = 'MAINDB.TSBJG.ZHMC'
      Size = 30
    end
    object qryTempZH: TStringField
      FieldName = 'ZH'
      Origin = 'MAINDB.TSBJG.ZH'
      Size = 24
    end
    object qryTempKJ: TStringField
      FieldName = 'KJ'
      Origin = 'MAINDB.TSBJG.KJ'
      Size = 10
    end
    object qryTempCN: TStringField
      FieldName = 'CN'
      Origin = 'MAINDB.TSBJG.CN'
      Size = 10
    end
    object qryTempLXDH: TStringField
      FieldName = 'LXDH'
      Origin = 'MAINDB.TSBJG.LXDH'
    end
    object qryTempCZ: TStringField
      FieldName = 'CZ'
      Origin = 'MAINDB.TSBJG.CZ'
    end
  end
  inherited sqlTemp: TUpdateSQL
    ModifySQL.Strings = (
      'update tSBJG'
      'set'
      '  JGDM = :JGDM,'
      '  JGMC = :JGMC,'
      '  SQM = :SQM,'
      '  DQM = :DQM,'
      '  XQM = :XQM,'
      '  JGJB = :JGJB,'
      '  DZ = :DZ,'
      '  YZBM = :YZBM,'
      '  YHMC = :YHMC,'
      '  ZHMC = :ZHMC,'
      '  ZH = :ZH,'
      '  KJ = :KJ,'
      '  CN = :CN,'
      '  LXDH = :LXDH,'
      '  CZ = :CZ'
      'where'
      '  JGDM = :OLD_JGDM')
    InsertSQL.Strings = (
      'insert into tSBJG'
      
        '  (JGDM, JGMC, SQM, DQM, XQM, JGJB, DZ, YZBM, YHMC, ZHMC, ZH, KJ' +
        ', CN, '
      'LXDH, '
      '   CZ)'
      'values'
      
        '  (:JGDM, :JGMC, :SQM, :DQM, :XQM, :JGJB, :DZ, :YZBM, :YHMC, :ZH' +
        'MC, :ZH, '
      '   :KJ, :CN, :LXDH, :CZ)')
    DeleteSQL.Strings = (
      'delete from tSBJG'
      'where'
      '  JGDM = :OLD_JGDM')
  end
end