ullb.dfm

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

inherited frmLLB: TfrmLLB
  Left = -87
  Top = 86
  Width = 808
  Height = 580
  Caption = ''
  PixelsPerInch = 96
  TextHeight = 12
  inherited Splitter1: TSplitter
    Height = 490
  end
  inherited pnlTitle: TPanel
    Width = 800
    inherited lblInterface: TLabel
      Top = 16
      Visible = False
    end
    inherited cmbInterface: TComboBox
      Visible = False
    end
  end
  inherited Panel2: TPanel
    Height = 490
    inherited TreeView1: TTreeView
      Height = 482
      OnClick = TreeView1Click
    end
  end
  inherited barStatus: TStatusBar
    Top = 531
    Width = 800
  end
  inherited pagTemp: TPageControl
    Width = 646
    Height = 490
    inherited tabEdit: TTabSheet
      inherited pnlEdit: TPanel
        Width = 638
        inherited navTemp: TwwDBNavigator
          inherited wwDBNavigator1Next: TwwNavButton
            Enabled = True
          end
          inherited wwDBNavigator1Last: TwwNavButton
            Enabled = True
          end
        end
      end
      inherited Panel6: TPanel
        Width = 638
        Height = 427
        inherited scrMain: TScrollBox
          Width = 628
          Height = 417
          object Panel1: TPanel
            Left = 0
            Top = 0
            Width = 628
            Height = 417
            Align = alClient
            TabOrder = 0
            object Bevel1: TBevel
              Left = 8
              Top = 120
              Width = 609
              Height = 17
            end
            object GroupBox1: TGroupBox
              Left = 8
              Top = 8
              Width = 609
              Height = 105
              TabOrder = 0
              object Label1: TLabel
                Left = 15
                Top = 39
                Width = 48
                Height = 12
                Caption = '启用日期'
              end
              object Label2: TLabel
                Left = 192
                Top = 39
                Width = 36
                Height = 12
                Caption = '月利率'
                FocusControl = DBEdit2
              end
              object Label3: TLabel
                Left = 353
                Top = 37
                Width = 48
                Height = 12
                Caption = '终止日期'
              end
              object DBEdit2: TDBEdit
                Left = 237
                Top = 34
                Width = 106
                Height = 20
                DataField = 'YLL'
                DataSource = souTemp
                ImeName = '拼音加加2.0'
                TabOrder = 0
              end
              object chkLLB: TCheckBox
                Left = 67
                Top = 72
                Width = 97
                Height = 17
                Caption = '显示历年利率'
                TabOrder = 1
                OnClick = chkLLBClick
              end
              object tmeQYRQ: TwwDBDateTimePicker
                Left = 68
                Top = 35
                Width = 121
                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 = 'QYRQ'
                DataSource = souTemp
                Date = 35247
                Epoch = 1950
                Time = 35247
                ShowButton = True
                TabOrder = 2
              end
              object tmeZZRQ: TwwDBDateTimePicker
                Left = 408
                Top = 33
                Width = 121
                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 = 'ZZRQ'
                DataSource = souTemp
                Date = 35309
                Epoch = 1950
                Time = 35309
                ShowButton = True
                TabOrder = 3
              end
            end
            object GroupBox2: TGroupBox
              Left = 8
              Top = 141
              Width = 609
              Height = 268
              TabOrder = 1
              object wwDBGrid1: TwwDBGrid
                Left = 2
                Top = 14
                Width = 605
                Height = 252
                Selected.Strings = (
                  'QYRQ'#9'22'#9'启用日期'
                  'YLL'#9'18'#9'月利率'
                  'ZZRQ'#9'25'#9'终止日期')
                IniAttributes.Delimiter = ';;'
                TitleColor = clBtnFace
                FixedCols = 0
                ShowHorzScrollBar = True
                Align = alClient
                DataSource = souTemp
                ReadOnly = True
                TabOrder = 0
                TitleAlignment = taLeftJustify
                TitleFont.Charset = ANSI_CHARSET
                TitleFont.Color = clWindowText
                TitleFont.Height = -12
                TitleFont.Name = '宋体'
                TitleFont.Style = []
                TitleLines = 1
                TitleButtons = False
                IndicatorColor = icBlack
              end
            end
          end
        end
      end
    end
    inherited tabBrowse: TTabSheet
      Caption = '查询界面'
      object Bevel2: TBevel [0]
        Left = 1
        Top = 148
        Width = 633
        Height = 15
      end
      inherited pnlBrowse: TPanel
        Caption = '     查询操作'
      end
      object GroupBox3: TGroupBox
        Left = 2
        Top = 36
        Width = 633
        Height = 105
        TabOrder = 1
        object Label5: TLabel
          Left = 31
          Top = 42
          Width = 24
          Height = 12
          Caption = '利率'
        end
        object btnCXLL: TSpeedButton
          Left = 203
          Top = 37
          Width = 40
          Height = 22
          Caption = '查询'
          OnClick = btnCXLLClick
        end
        object Label4: TLabel
          Left = 30
          Top = 16
          Width = 180
          Height = 12
          Caption = '请输入查询条件(可进行模糊查询)'
        end
        object chkCX: TCheckBox
          Left = 67
          Top = 69
          Width = 97
          Height = 17
          Caption = '显示历年利率'
          TabOrder = 0
          OnClick = chkCXClick
        end
        object edtLL: TEdit
          Left = 67
          Top = 38
          Width = 121
          Height = 20
          ImeName = '中文 (简体) - 微软拼音'
          TabOrder = 1
        end
      end
      object GroupBox4: TGroupBox
        Left = 1
        Top = 166
        Width = 633
        Height = 293
        TabOrder = 2
        object DBGrid2: TDBGrid
          Left = 2
          Top = 14
          Width = 629
          Height = 277
          Align = alClient
          DataSource = souTemp
          ImeName = '中文 (简体) - 微软拼音'
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'QYRQ'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'YLL'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'ZZRQ'
              Visible = True
            end>
        end
      end
    end
  end
  inherited qryTemp: TwwQuery
    SQL.Strings = (
      'select * from tLLB')
    object qryTempQYRQ: TDateTimeField
      DisplayLabel = '启用日期'
      DisplayWidth = 22
      FieldName = 'QYRQ'
      Origin = 'MAINDB.TLLB.QYRQ'
    end
    object qryTempYLL: TFloatField
      DisplayLabel = '月利率'
      DisplayWidth = 18
      FieldName = 'YLL'
      Origin = 'MAINDB.TLLB.YLL'
    end
    object qryTempZZRQ: TDateTimeField
      DisplayLabel = '终止日期'
      DisplayWidth = 25
      FieldName = 'ZZRQ'
      Origin = 'MAINDB.TLLB.ZZRQ'
    end
  end
  inherited sqlTemp: TUpdateSQL
    ModifySQL.Strings = (
      'update tLLB'
      'set'
      '  QYRQ = :QYRQ,'
      '  YLL = :YLL,'
      '  ZZRQ = :ZZRQ'
      'where'
      '  QYRQ = :OLD_QYRQ')
    InsertSQL.Strings = (
      'insert into tLLB'
      '  (QYRQ, YLL, ZZRQ)'
      'values'
      '  (:QYRQ, :YLL, :ZZRQ)')
    DeleteSQL.Strings = (
      'delete from tLLB'
      'where'
      '  QYRQ = :OLD_QYRQ')
  end
  inherited mnuTemp: TPopupMenu
    inherited Q1: TMenuItem
      Caption = '查询[&F]'
      ShortCut = 16454
      Visible = False
    end
  end
  object souQYRQ: TDataSource
    DataSet = qryQYRQ
    Left = 251
    Top = 113
  end
  object qryQYRQ: TQuery
    DatabaseName = 'MainDB'
    Left = 291
    Top = 113
  end
  object souZZRQ: TDataSource
    DataSet = qryZZRQ
    Left = 579
    Top = 177
  end
  object qryZZRQ: TQuery
    DatabaseName = 'MainDB'
    Left = 611
    Top = 177
  end
end