unjndsbzgz.dfm

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

inherited frmNJNDSBZGZ: TfrmNJNDSBZGZ
  Left = -115
  Top = 123
  Height = 581
  Caption = ''
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited Splitter1: TSplitter
    Height = 491
  end
  inherited pnlTitle: TPanel
    inherited lblInterface: TLabel
      Visible = False
    end
    inherited cmbInterface: TComboBox
      Visible = False
    end
  end
  inherited Panel2: TPanel
    Height = 491
    inherited TreeView1: TTreeView
      Height = 483
      OnClick = TreeView1Click
    end
  end
  inherited barStatus: TStatusBar
    Top = 532
  end
  inherited pagTemp: TPageControl
    Height = 491
    inherited tabEdit: TTabSheet
      inherited pnlEdit: TPanel
        inherited btnInsert: TSpeedButton
          Visible = False
        end
        inherited btnDelete: TSpeedButton
          Visible = False
        end
      end
      inherited Panel6: TPanel
        Height = 428
        inherited scrMain: TScrollBox
          Height = 418
          object Panel1: TPanel
            Left = 0
            Top = 0
            Width = 627
            Height = 418
            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 = 8
                Top = 40
                Width = 24
                Height = 12
                Caption = '城市'
              end
              object Label2: TLabel
                Left = 6
                Top = 79
                Width = 84
                Height = 12
                Caption = '市平均标准工资'
                FocusControl = DBEdit2
              end
              object Label3: TLabel
                Left = 128
                Top = 40
                Width = 48
                Height = 12
                Caption = '城市代码'
              end
              object labelCS: TLabel
                Left = 64
                Top = 40
                Width = 6
                Height = 12
                Font.Charset = GB2312_CHARSET
                Font.Color = clBlack
                Font.Height = -12
                Font.Name = '宋体'
                Font.Style = []
                ParentFont = False
              end
              object Label8: TLabel
                Left = 244
                Top = 78
                Width = 12
                Height = 12
                Caption = '元'
              end
              object lblCSDM: TLabel
                Left = 192
                Top = 40
                Width = 6
                Height = 12
                Font.Charset = GB2312_CHARSET
                Font.Color = clBlack
                Font.Height = -12
                Font.Name = '宋体'
                Font.Style = []
                ParentFont = False
              end
              object DBEdit2: TDBEdit
                Left = 126
                Top = 74
                Width = 108
                Height = 20
                DataField = 'PJBZGZ'
                DataSource = souTemp
                TabOrder = 0
              end
            end
            object GroupBox2: TGroupBox
              Left = 8
              Top = 140
              Width = 609
              Height = 269
              TabOrder = 1
              object DBGrid1: TDBGrid
                Left = 2
                Top = 14
                Width = 605
                Height = 253
                Align = alClient
                DataSource = souTemp
                ReadOnly = True
                TabOrder = 0
                TitleFont.Charset = ANSI_CHARSET
                TitleFont.Color = clWindowText
                TitleFont.Height = -12
                TitleFont.Name = '宋体'
                TitleFont.Style = []
                Columns = <
                  item
                    Expanded = False
                    FieldName = 'CSDM'
                    Title.Caption = '城市代码'
                    Width = 80
                    Visible = True
                  end
                  item
                    Expanded = False
                    FieldName = 'PJBZGZ'
                    Title.Caption = '市平均标准工资（元）'
                    Width = 236
                    Visible = True
                  end>
              end
            end
          end
        end
      end
    end
    inherited tabBrowse: TTabSheet
      Caption = '查询界面'
      object Bevel2: TBevel [0]
        Left = 0
        Top = 181
        Width = 635
        Height = 17
      end
      inherited pnlBrowse: TPanel
        Width = 637
        Caption = '     查询操作'
      end
      object GroupBox3: TGroupBox
        Left = 0
        Top = 34
        Width = 636
        Height = 140
        TabOrder = 1
        object Label4: TLabel
          Left = 30
          Top = 16
          Width = 180
          Height = 12
          Caption = '请输入查询条件(可进行模糊查询)'
        end
        object Label5: TLabel
          Left = 31
          Top = 55
          Width = 24
          Height = 12
          Caption = '城市'
        end
        object Label6: TLabel
          Left = 31
          Top = 85
          Width = 48
          Height = 12
          Caption = '城市代码'
        end
        object Label7: TLabel
          Left = 30
          Top = 114
          Width = 84
          Height = 12
          Caption = '市平均标准工资'
        end
        object btnCX1: TSpeedButton
          Left = 267
          Top = 48
          Width = 38
          Height = 22
          Caption = '查询'
          OnClick = btnCX1Click
        end
        object btnCX2: TSpeedButton
          Left = 267
          Top = 79
          Width = 38
          Height = 22
          Caption = '查询'
          OnClick = btnCX2Click
        end
        object btnCX3: TSpeedButton
          Left = 267
          Top = 109
          Width = 38
          Height = 22
          Caption = '查询'
          OnClick = btnCX3Click
        end
        object chkCX: TCheckBox
          Left = 323
          Top = 113
          Width = 97
          Height = 17
          Caption = '全部显示'
          TabOrder = 0
          OnClick = chkCXClick
        end
        object edtCS: TEdit
          Left = 131
          Top = 48
          Width = 121
          Height = 20
          TabOrder = 1
        end
        object edtCSDM: TEdit
          Left = 131
          Top = 80
          Width = 121
          Height = 20
          TabOrder = 2
        end
        object edtPJGZ: TEdit
          Left = 131
          Top = 109
          Width = 121
          Height = 20
          TabOrder = 3
        end
      end
      object GroupBox4: TGroupBox
        Left = 0
        Top = 198
        Width = 635
        Height = 261
        TabOrder = 2
        object grdLJND: TDBGrid
          Left = 2
          Top = 14
          Width = 631
          Height = 245
          Align = alClient
          DataSource = souTemp
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -12
          TitleFont.Name = '宋体'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'CSDM'
              Title.Caption = '城市代码'
              Width = 102
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'PJBZGZ'
              Title.Caption = '平均工资标准（元）'
              Width = 120
              Visible = True
            end>
        end
      end
    end
  end
  inherited actlstTemp: TActionList
    Top = 33
  end
  inherited imgTemp: TImageList
    Top = 33
  end
  inherited qryTemp: TwwQuery
    SQL.Strings = (
      'select * from tNJNDSBZGZ')
    Top = 32
    object qryTempCSDM: TStringField
      FieldName = 'CSDM'
      Origin = 'MAINDB.TNJNDSBZGZ.CSDM'
      FixedChar = True
      Size = 6
    end
    object qryTempPJBZGZ: TFloatField
      FieldName = 'PJBZGZ'
      Origin = 'MAINDB.TNJNDSBZGZ.PJBZGZ'
    end
  end
  inherited souTemp: TwwDataSource
    Top = 32
  end
  inherited sqlTemp: TUpdateSQL
    ModifySQL.Strings = (
      'update tNJNDSBZGZ'
      'set'
      '  CSDM = :CSDM,'
      '  PJBZGZ = :PJBZGZ'
      'where'
      '  CSDM = :OLD_CSDM')
    InsertSQL.Strings = (
      'insert into tNJNDSBZGZ'
      '  (CSDM, PJBZGZ)'
      'values'
      '  (:CSDM, :PJBZGZ)')
    DeleteSQL.Strings = (
      'delete from tNJNDSBZGZ'
      'where'
      '  CSDM = :OLD_CSDM')
    Top = 32
  end
  inherited mnuTemp: TPopupMenu
    inherited Q1: TMenuItem
      Caption = '查询[&F]'
      ShortCut = 16454
      Visible = False
    end
  end
  inherited imgTree: TImageList
    Top = 34
  end
  object DataSource1: TDataSource
    DataSet = qrytest
    Left = 315
    Top = 33
  end
  object qrytest: TQuery
    DatabaseName = 'MainDB'
    Left = 283
    Top = 33
  end
end