udataout.~dfm

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

object frmDataOut: TfrmDataOut
  Left = 159
  Top = 128
  Width = 549
  Height = 376
  Caption = '发放数据生成'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 458
    Top = 0
    Width = 83
    Height = 349
    Align = alRight
    BevelOuter = bvNone
    BorderWidth = 5
    TabOrder = 0
    object btnOK: TBitBtn
      Left = 3
      Top = 9
      Width = 78
      Height = 25
      Caption = '数据生成'
      Default = True
      TabOrder = 0
      OnClick = btnOKClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 3
      Top = 38
      Width = 78
      Height = 25
      Caption = '关闭[&C]'
      TabOrder = 1
      Kind = bkClose
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 458
    Height = 349
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 5
    TabOrder = 1
    object TabSet1: TTabSet
      Left = 5
      Top = 326
      Width = 448
      Height = 18
      Align = alBottom
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      Tabs.Strings = (
        '单位汇总表'
        '当月发放数据'
        '补发数据'
        '新增人员报表'
        '发放机构人员变更表')
      TabIndex = 0
      OnChange = TabSet1Change
    end
    object Panel3: TPanel
      Left = 5
      Top = 147
      Width = 448
      Height = 179
      Align = alClient
      BevelOuter = bvLowered
      TabOrder = 5
      object mmoMain: TMemo
        Left = 1
        Top = 1
        Width = 446
        Height = 177
        Align = alClient
        BorderStyle = bsNone
        Color = clBtnFace
        ScrollBars = ssVertical
        TabOrder = 0
      end
    end
    object grpJG: TGroupBox
      Left = 5
      Top = 5
      Width = 448
      Height = 67
      Align = alTop
      Caption = '发放机构选择'
      TabOrder = 2
      object chkJG_1: TCheckBox
        Left = 13
        Top = 20
        Width = 97
        Height = 17
        Caption = '工商银行'
        TabOrder = 0
      end
      object chkJG_2: TCheckBox
        Left = 96
        Top = 20
        Width = 97
        Height = 17
        Caption = '农业银行'
        TabOrder = 1
      end
      object chkJG_3: TCheckBox
        Left = 178
        Top = 20
        Width = 97
        Height = 17
        Caption = '中国银行'
        TabOrder = 2
      end
      object chkJG_4: TCheckBox
        Left = 261
        Top = 20
        Width = 97
        Height = 17
        Caption = '建设银行'
        TabOrder = 3
      end
      object chkJG_5: TCheckBox
        Left = 13
        Top = 45
        Width = 97
        Height = 17
        Caption = '邮政储蓄'
        TabOrder = 4
      end
      object chkJG_6: TCheckBox
        Left = 96
        Top = 45
        Width = 97
        Height = 17
        Caption = '邮政汇款'
        TabOrder = 5
      end
      object chkJG_7: TCheckBox
        Left = 178
        Top = 45
        Width = 97
        Height = 17
        Caption = '其他'
        TabOrder = 6
      end
    end
    object Panel4: TPanel
      Left = 5
      Top = 120
      Width = 448
      Height = 27
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 3
      object Label6: TLabel
        Left = 2
        Top = 7
        Width = 72
        Height = 12
        Caption = '生成文件路径'
      end
      object btnDir: TSpeedButton
        Left = 371
        Top = 3
        Width = 22
        Height = 20
        Glyph.Data = {
          E6000000424DE6000000000000007600000028000000100000000E0000000100
          0400000000007000000000000000000000001000000010000000FFFFFF00BCA4
          96009B877C0099663300754E270000000000C0C0C00000000000000000000000
          0000000000000000000000000000000000000000000000000000000111111111
          1111004444444444445100423333333334510423333333333541042333333333
          3541423333333333544142222222222453414444444444444341042333333333
          3341042333333222224104233333244444400042222240000000000444440000
          00000000000000000000}
        OnClick = btnDirClick
      end
      object edtPath: TEdit
        Left = 78
        Top = 3
        Width = 295
        Height = 20
        TabOrder = 0
      end
    end
    object pnlDW: TPanel
      Left = 5
      Top = 72
      Width = 448
      Height = 24
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object Label1: TLabel
        Left = 4
        Top = 7
        Width = 72
        Height = 12
        Caption = '发放单位代码'
      end
      object lblDWMC: TLabel
        Left = 193
        Top = 7
        Width = 6
        Height = 12
      end
      object edtDW: TEdit
        Left = 77
        Top = 3
        Width = 101
        Height = 20
        TabOrder = 0
        OnChange = edtDWChange
      end
    end
    object pnlSJ: TPanel
      Left = 5
      Top = 96
      Width = 448
      Height = 24
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 1
      Visible = False
      object Label2: TLabel
        Left = 4
        Top = 6
        Width = 48
        Height = 12
        Caption = '新增日期'
      end
      object Label3: TLabel
        Left = 128
        Top = 6
        Width = 12
        Height = 12
        Caption = '年'
      end
      object Label4: TLabel
        Left = 183
        Top = 6
        Width = 12
        Height = 12
        Caption = '月'
      end
      object Label9: TLabel
        Left = 232
        Top = 8
        Width = 48
        Height = 12
        Caption = '反馈日期'
      end
      object Label7: TLabel
        Left = 337
        Top = 7
        Width = 12
        Height = 12
        Caption = '年'
      end
      object Label8: TLabel
        Left = 392
        Top = 7
        Width = 12
        Height = 12
        Caption = '月'
      end
      object edtYear: TSpinEdit
        Left = 78
        Top = 2
        Width = 49
        Height = 21
        MaxValue = 2010
        MinValue = 2000
        TabOrder = 0
        Value = 2000
      end
      object edtMonth: TSpinEdit
        Left = 142
        Top = 2
        Width = 37
        Height = 21
        MaxLength = 2
        MaxValue = 12
        MinValue = 1
        TabOrder = 1
        Value = 1
      end
      object edtYear2: TSpinEdit
        Left = 284
        Top = 3
        Width = 49
        Height = 21
        MaxValue = 2010
        MinValue = 2000
        TabOrder = 2
        Value = 2000
      end
      object edtMonth2: TSpinEdit
        Left = 350
        Top = 3
        Width = 37
        Height = 21
        MaxLength = 2
        MaxValue = 12
        MinValue = 1
        TabOrder = 3
        Value = 1
      end
    end
  end
  object toCSV: TKDatasetToText
    Dataset = qryMain
    Delimiter = ','
    Left = 428
    Top = 136
  end
  object qryMain: TQuery
    DatabaseName = 'MainDB'
    Left = 428
    Top = 176
  end
end