uswdysl.dfm

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

inherited frmSWDYSL: TfrmSWDYSL
  Left = 121
  Top = 101
  Caption = '死亡待遇审理'
  PixelsPerInch = 96
  TextHeight = 12
  inherited barStatus: TStatusBar
    Panels = <
      item
        Width = 80
      end
      item
        Alignment = taCenter
        Width = 170
      end
      item
        Alignment = taCenter
        Width = 170
      end
      item
        Alignment = taCenter
        Width = 50
      end
      item
        Alignment = taRightJustify
        Width = 50
      end>
  end
  inherited Panel1: TPanel
    inherited pagTemp: TPageControl
      inherited tabEdit: TTabSheet
        inherited scrMain: TScrollBox
          object GroupBox1: TGroupBox
            Left = 0
            Top = 0
            Width = 624
            Height = 207
            Align = alTop
            Caption = '死亡申报'
            TabOrder = 0
            object Label1: TLabel
              Left = 68
              Top = 78
              Width = 48
              Height = 12
              Caption = '死亡时间'
            end
            object Label2: TLabel
              Left = 320
              Top = 78
              Width = 48
              Height = 12
              Caption = '死亡证号'
              FocusControl = DBEdit2
            end
            object Label3: TLabel
              Left = 68
              Top = 103
              Width = 48
              Height = 12
              Caption = '死亡原因'
              FocusControl = DBEdit3
            end
            object Label5: TLabel
              Left = 32
              Top = 26
              Width = 84
              Height = 12
              Caption = '死者社会保障号'
            end
            object Label6: TLabel
              Left = 320
              Top = 26
              Width = 48
              Height = 12
              Caption = '死者姓名'
            end
            object Label7: TLabel
              Left = 44
              Top = 53
              Width = 72
              Height = 12
              Caption = '所属单位代码'
            end
            object Label8: TLabel
              Left = 320
              Top = 53
              Width = 48
              Height = 12
              Caption = '所属单位'
            end
            object Label13: TLabel
              Left = 68
              Top = 128
              Width = 48
              Height = 12
              Caption = '申报日期'
            end
            object Label14: TLabel
              Left = 68
              Top = 154
              Width = 48
              Height = 12
              Caption = '审核意见'
              FocusControl = DBEdit10
            end
            object DBEdit2: TDBEdit
              Left = 371
              Top = 74
              Width = 158
              Height = 20
              DataField = 'SWZH'
              DataSource = souDetail
              TabOrder = 2
            end
            object DBEdit3: TDBEdit
              Left = 127
              Top = 99
              Width = 402
              Height = 20
              DataField = 'SWYY'
              DataSource = souDetail
              TabOrder = 3
            end
            object Edit1: TEdit
              Left = 127
              Top = 23
              Width = 158
              Height = 20
              TabOrder = 0
              OnChange = Edit1Change
            end
            object wwDBDateTimePicker1: TwwDBDateTimePicker
              Left = 127
              Top = 74
              Width = 115
              Height = 20
              CalendarAttributes.Font.Charset = DEFAULT_CHARSET
              CalendarAttributes.Font.Color = clWindowText
              CalendarAttributes.Font.Height = -11
              CalendarAttributes.Font.Name = 'MS Sans Serif'
              CalendarAttributes.Font.Style = []
              DataField = 'SWSJ'
              DataSource = souDetail
              Epoch = 1950
              ShowButton = True
              TabOrder = 1
            end
            object DBEdit1: TDBEdit
              Left = 371
              Top = 22
              Width = 158
              Height = 20
              Color = clBtnFace
              DataField = 'SWZH'
              DataSource = souDetail
              ReadOnly = True
              TabOrder = 4
            end
            object DBEdit8: TDBEdit
              Left = 127
              Top = 49
              Width = 158
              Height = 20
              Color = clBtnFace
              DataField = 'SWZH'
              DataSource = souDetail
              ReadOnly = True
              TabOrder = 5
            end
            object DBEdit9: TDBEdit
              Left = 371
              Top = 49
              Width = 158
              Height = 20
              Color = clBtnFace
              DataField = 'SWZH'
              DataSource = souDetail
              ReadOnly = True
              TabOrder = 6
            end
            object DBEdit10: TDBEdit
              Left = 128
              Top = 150
              Width = 402
              Height = 20
              Color = clBtnFace
              DataField = 'SHYJ'
              DataSource = souDetail
              ReadOnly = True
              TabOrder = 7
            end
            object wwDBDateTimePicker2: TwwDBDateTimePicker
              Left = 127
              Top = 124
              Width = 112
              Height = 20
              CalendarAttributes.Font.Charset = DEFAULT_CHARSET
              CalendarAttributes.Font.Color = clWindowText
              CalendarAttributes.Font.Height = -11
              CalendarAttributes.Font.Name = 'MS Sans Serif'
              CalendarAttributes.Font.Style = []
              DataField = 'SBRQ'
              DataSource = souDetail
              Epoch = 1950
              ShowButton = True
              TabOrder = 8
            end
          end
          object GroupBox2: TGroupBox
            Left = 0
            Top = 207
            Width = 624
            Height = 161
            Align = alClient
            Caption = '遗属信息--使用Ctrl+Insert组合键插入，Ctrl+Delete组合键删除'
            TabOrder = 1
            object Panel2: TPanel
              Left = 2
              Top = 14
              Width = 620
              Height = 145
              Align = alClient
              BevelInner = bvLowered
              BevelOuter = bvNone
              Caption = 'Panel2'
              TabOrder = 0
              object DBCtrlGrid1: TDBCtrlGrid
                Left = 1
                Top = 1
                Width = 618
                Height = 143
                Align = alClient
                ColCount = 1
                DataSource = souYSXX
                PanelHeight = 71
                PanelWidth = 602
                TabOrder = 0
                RowCount = 2
                OnExit = DBCtrlGrid1Exit
                object Label4: TLabel
                  Left = 18
                  Top = 10
                  Width = 72
                  Height = 12
                  Caption = '遗属身份证号'
                end
                object Label9: TLabel
                  Left = 207
                  Top = 10
                  Width = 48
                  Height = 12
                  Caption = '遗属姓名'
                end
                object Label10: TLabel
                  Left = 37
                  Top = 32
                  Width = 48
                  Height = 12
                  Caption = '通信地址'
                end
                object Label11: TLabel
                  Left = 407
                  Top = 32
                  Width = 24
                  Height = 12
                  Caption = '邮编'
                end
                object Label12: TLabel
                  Left = 373
                  Top = 10
                  Width = 60
                  Height = 12
                  Caption = '与死者关系'
                end
                object DBEdit4: TDBEdit
                  Left = 92
                  Top = 6
                  Width = 108
                  Height = 20
                  DataField = 'YSSFZH'
                  DataSource = souYSXX
                  TabOrder = 0
                end
                object DBEdit5: TDBEdit
                  Left = 254
                  Top = 6
                  Width = 108
                  Height = 20
                  DataField = 'YSXM'
                  DataSource = souYSXX
                  TabOrder = 1
                end
                object DBEdit6: TDBEdit
                  Left = 91
                  Top = 29
                  Width = 271
                  Height = 20
                  DataField = 'TXDZ'
                  DataSource = souYSXX
                  TabOrder = 3
                end
                object DBEdit7: TDBEdit
                  Left = 439
                  Top = 29
                  Width = 103
                  Height = 20
                  DataField = 'YB'
                  DataSource = souYSXX
                  TabOrder = 4
                end
                object cmbGX: TwwDBLookupCombo
                  Left = 438
                  Top = 6
                  Width = 104
                  Height = 20
                  DropDownAlignment = taLeftJustify
                  Selected.Strings = (
                    'DMMC'#9'20'#9'名称'#9'F'
                    'DM'#9'10'#9'代码'#9'F')
                  DataField = 'GX'
                  DataSource = souYSXX
                  LookupTable = qryYSGX
                  LookupField = 'DM'
                  TabOrder = 2
                  AutoDropDown = False
                  ShowButton = True
                  AllowClearKey = False
                  OnEnter = cmbGXEnter
                end
              end
            end
          end
        end
      end