ucount.dfm

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

inherited frmCount: TfrmCount
  Left = 137
  Top = 121
  Width = 610
  Height = 421
  Caption = '统计汇总'
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlMain: TPanel
    Width = 602
    Height = 394
    object pnlTop: TPanel
      Left = 0
      Top = 0
      Width = 602
      Height = 33
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object lblDWMC: TLabel
        Left = 8
        Top = 10
        Width = 48
        Height = 12
        Caption = '所有单位'
      end
    end
    object TabSet1: TTabSet
      Left = 0
      Top = 373
      Width = 602
      Height = 21
      Align = alBottom
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      Tabs.Strings = (
        '工商银行'
        '农业银行'
        '中国银行'
        '建设银行'
        '邮政储蓄'
        '邮政汇款'
        '其他 ')
      TabIndex = 0
      OnChange = TabSet1Change
    end
    object Panel1: TPanel
      Left = 0
      Top = 33
      Width = 602
      Height = 340
      Align = alClient
      BevelOuter = bvLowered
      Caption = 'Panel1'
      TabOrder = 2
      object grdInfo: TwwDBGrid
        Left = 1
        Top = 1
        Width = 600
        Height = 338
        IniAttributes.Delimiter = ';;'
        TitleColor = clBtnFace
        FixedCols = 0
        ShowHorzScrollBar = True
        Align = alClient
        BorderStyle = bsNone
        DataSource = souInfo
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgWordWrap, dgPerfectRowFit]
        ReadOnly = True
        TabOrder = 0
        TitleAlignment = taCenter
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        TitleLines = 1
        TitleButtons = False
        IndicatorColor = icBlack
      end
    end
  end
  object souInfo: TDataSource
    DataSet = cdsInfo
    Left = 480
    Top = 88
  end
  object qryInfo: TQuery
    DatabaseName = 'MainDB'
    Left = 448
    Top = 88
  end
  object cdsInfo: TClientDataSet
    Aggregates = <>
    PacketRecords = 20
    Params = <>
    ProviderName = 'dspInfo'
    Left = 416
    Top = 88
  end
  object dspInfo: TDataSetProvider
    DataSet = qryInfo
    Constraints = True
    Left = 384
    Top = 88
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '*.txt'
    Filter = 'TXT文件|*.txt'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Title = '数据倒出'
    Left = 168
    Top = 113
  end
  object KDatasetToText1: TKDatasetToText
    Dataset = cdsInfo
    Delimiter = ','
    Left = 200
    Top = 113
  end
end