ujycl.dfm

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

object frmJYCL: TfrmJYCL
  Left = 155
  Top = 137
  BorderStyle = bsDialog
  Caption = '减员处理'
  ClientHeight = 348
  ClientWidth = 536
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 314
    Width = 536
    Height = 34
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object btnClose: TButton
      Left = 470
      Top = 6
      Width = 60
      Height = 25
      Caption = '关闭'
      ModalResult = 1
      TabOrder = 0
    end
    object btnPrior: TButton
      Left = 331
      Top = 6
      Width = 60
      Height = 25
      Caption = '上一步'
      TabOrder = 1
      OnClick = btnPriorClick
    end
    object btnNext: TButton
      Left = 401
      Top = 6
      Width = 60
      Height = 25
      Caption = '下一步'
      TabOrder = 2
      OnClick = btnNextClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 536
    Height = 314
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object pagMain: TPageControl
      Left = 0
      Top = 0
      Width = 536
      Height = 314
      ActivePage = tabCondition
      Align = alClient
      TabOrder = 0
      object tabCondition: TTabSheet
        Caption = '条件'
        object GroupBox1: TGroupBox
          Left = 24
          Top = 16
          Width = 481
          Height = 241
          Caption = '输入人员身份证号'
          TabOrder = 0
          object Label2: TLabel
            Left = 80
            Top = 80
            Width = 48
            Height = 12
            Caption = '身份证号'
          end
          object Label3: TLabel
            Left = 104
            Top = 116
            Width = 24
            Height = 12
            Caption = '姓名'
          end
          object edtSFZH: TEdit
            Left = 136
            Top = 76
            Width = 184
            Height = 20
            TabOrder = 0
          end
          object edtXM: TEdit
            Left = 136
            Top = 112
            Width = 185
            Height = 20
            TabOrder = 1
          end
        end
      end
      object tabSelect: TTabSheet
        Caption = '选择'
        ImageIndex = 1
        object Label1: TLabel
          Left = 8
          Top = 14
          Width = 72
          Height = 12
          Caption = '减员人员信息'
        end
        object Label4: TLabel
          Left = 9
          Top = 31
          Width = 312
          Height = 12
          Caption = '如果出现身份证号重复或姓名相同人员，请在如下结果选择'
        end
        object DBGrid1: TDBGrid
          Left = 0
          Top = 51
          Width = 528
          Height = 236
          Align = alBottom
          DataSource = souTemp
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
          ReadOnly = True
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = '宋体'
          TitleFont.Style = []
        end
      end
      object TabReason: TTabSheet
        Caption = '原因'
        ImageIndex = 2
        object Label5: TLabel
          Left = 190
          Top = 123
          Width = 6
          Height = 12
        end
        object lblSelect: TLabel
          Left = 40
          Top = 48
          Width = 24
          Height = 12
          Caption = '说明'
        end
        object Label7: TLabel
          Left = 42
          Top = 19
          Width = 72
          Height = 12
          Caption = '待减人员信息'
        end
        object GroupBox2: TGroupBox
          Left = 35
          Top = 97
          Width = 450
          Height = 178
          TabOrder = 2
          object Label6: TLabel
            Left = 171
            Top = 27
            Width = 48
            Height = 12
            Caption = '死亡时间'
          end
          object rbtnSW: TCheckBox
            Left = 44
            Top = 25
            Width = 97
            Height = 17
            Caption = '死亡'
            Checked = True
            State = cbChecked
            TabOrder = 0
            OnClick = rbtnSWClick
          end
          object rbtnQT: TCheckBox
            Left = 45
            Top = 117
            Width = 97
            Height = 17
            Caption = '其他'
            TabOrder = 1
            OnClick = rbtnQTClick
          end
        end
        object Memo1: TMemo
          Left = 99
          Top = 156
          Width = 321
          Height = 50
          BorderStyle = bsNone
          Lines.Strings = (
            '  作为减员依据，必须在这里录入死亡时间'
            ' ')
          ParentColor = True
          TabOrder = 0
        end
        object DateSWSJ: TDateTimePicker
          Left = 270
          Top = 119
          Width = 91
          Height = 20
          CalAlignment = dtaLeft
          Date = 36868.4803310185
          Time = 36868.4803310185
          DateFormat = dfShort
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 1
        end
      end
      object TabResult: TTabSheet
        Caption = '结果'
        ImageIndex = 3
        object DBGrid2: TDBGrid
          Left = 12
          Top = 83
          Width = 504
          Height = 191
          DataSource = souResult
          TabOrder = 0
          TitleFont.Charset = GB2312_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = '宋体'
          TitleFont.Style = []
        end
        object mmoResult: TMemo
          Left = 11
          Top = 16
          Width = 505
          Height = 55
          ParentColor = True
          TabOrder = 1
        end
      end
    end
  end
  object souTemp: TDataSource
    DataSet = qryTemp
    Left = 356
    Top = 31
  end
  object qryTemp: TQuery
    DatabaseName = 'MainDB'
    SQL.Strings = (
      'select ry.ryid_ff,ry.xm as "姓名",'
      'ry.sfzh as "身份证号",dw.dwmc as "单位名称"'
      'from tff_ryxx ry ,tff_dwxx dw'
      'where dw.dwid_ff=ry.ssdwid')
    Left = 388
    Top = 31
  end
  object stpTemp: TStoredProc
    DatabaseName = 'MainDB'
    StoredProcName = 'P_FF_SWCX'
    Left = 444
    Top = 33
    ParamData = <
      item
        DataType = ftString
        Name = 'P_RYID'
        ParamType = ptInput
      end
      item
        DataType = ftDateTime
        Name = 'P_SWSJ'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_ERRORCODE'
        ParamType = ptOutput
      end>
  end
  object souResult: TDataSource
    DataSet = qryResult
    Left = 356
    Top = 111
  end
  object qryResult: TQuery
    DatabaseName = 'MainDB'
    Left = 388
    Top = 111
  end
end