uyjcl.dfm

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

inherited frmYJCL: TfrmYJCL
  Left = 48
  Top = 40
  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 pnlBrowse: TPanel
          inherited btnCheck: TSpeedButton
            Left = 284
            Width = 79
          end
          object btnYJCL: TSpeedButton
            Left = 490
            Top = 5
            Width = 81
            Height = 22
            Caption = '月结处理'
            Flat = True
            Glyph.Data = {
              42020000424D4202000000000000420000002800000010000000100000000100
              1000030000000002000000000000000000000000000000000000007C0000E003
              00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
              1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1700FF7F1F7C1F7C
              1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C170017001700FF7F1F7C
              1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1700170017001700FF7F1F7C
              1F7C1F7C1F7C1F7C00000000000000000000170017001700FF7F17001700FF7F
              1F7C1F7C1F7C1F7C0000FF7FFF7FFF7F170017001700FF7F00001F7C17001700
              FF7F1F7C1F7C1F7C0000FF7F1042104210421700FF7FFF7F00001F7C1F7C1700
              FF7F1F7C1F7C1F7C0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F00001F7C1F7C1F7C
              1700FF7F1F7C1F7C0000FF7F10421042104210421042FF7F00001F7C1F7C1F7C
              1F7C1700FF7F1F7C0000FF7FFF7FFF7FFF7FFF7FFF7FFF7F00001F7C1F7C1F7C
              1F7C1F7C17001F7C0000FF7F104210421F7C1F7C1F7CFF7F00001F7C1F7C1F7C
              1F7C1F7C1F7C1F7C0000FF7FFF7FFF7FFF7F00000000000000001F7C1F7C1F7C
              1F7C1F7C1F7C1F7C0000FF7F104210421F7C00001F7C00001F7C1F7C1F7C1F7C
              1F7C1F7C1F7C1F7C0000FF7FFF7FFF7FFF7F000000001F7C1F7C1F7C1F7C1F7C
              1F7C1F7C1F7C1F7C0000000000000000000000001F7C1F7C1F7C1F7C1F7C1F7C
              1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
              1F7C1F7C1F7C}
            OnClick = btnYJCLClick
          end
          object cmbHYDM: TComboBox
            Left = 135
            Top = 6
            Width = 75
            Height = 20
            Enabled = False
            ItemHeight = 12
            TabOrder = 2
            Text = 'cmbHYDM'
            Visible = False
          end
          object chkAll: TCheckBox
            Left = 9
            Top = 8
            Width = 97
            Height = 17
            Caption = '选中全部单位'
            TabOrder = 0
            OnClick = chkAllClick
          end
          object cmbSSHY: TComboBox
            Left = 116
            Top = 6
            Width = 129
            Height = 20
            Style = csDropDownList
            ItemHeight = 12
            TabOrder = 1
            OnChange = cmbSSHYChange
          end
        end
        inherited scrMain: TScrollBox
          object Bevel1: TBevel
            Left = 0
            Top = 0
            Width = 624
            Height = 8
            Align = alTop
            Shape = bsSpacer
          end
          object ListView1: TListView
            Left = 0
            Top = 8
            Width = 624
            Height = 360
            Align = alClient
            Checkboxes = True
            Columns = <
              item
                Width = 27
              end
              item
                Caption = '单位名称'
                Width = 250
              end
              item
                Caption = '月结月份'
                Width = 100
              end
              item
                Caption = '月结情况'
                Width = 300
              end>
            ColumnClick = False
            GridLines = True
            HideSelection = False
            RowSelect = True
            TabOrder = 0
            ViewStyle = vsReport
          end
        end
      end
    end
  end
  inherited ActionList1: TActionList
    object actYJCL: TAction
      Category = '界面操作'
      Caption = '月结处理'
      ImageIndex = 7
    end
  end
  object spYJCL_DW: TStoredProc
    DatabaseName = 'MainDB'
    StoredProcName = 'P_YJCL_DW'
    Left = 312
    Top = 49
    ParamData = <
      item
        DataType = ftString
        Name = 'P_DWID'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'P_ERRORCODE'
        ParamType = ptOutput
      end>
  end
end