usspgzb.dfm

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

inherited frmSSPGZB: TfrmSSPGZB
  Left = -80
  Top = 42
  Caption = ''
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited pnlTitle: TPanel
    inherited lblInterface: TLabel
      Visible = False
    end
    inherited cmbInterface: TComboBox
      Visible = False
    end
  end
  inherited Panel2: TPanel
    inherited TreeView1: TTreeView
      OnClick = TreeView1Click
    end
  end
  inherited pagTemp: TPageControl
    inherited tabEdit: TTabSheet
      inherited Panel6: TPanel
        inherited scrMain: TScrollBox
          object Bevel1: TBevel
            Left = 0
            Top = 120
            Width = 625
            Height = 33
          end
          object GroupBox1: TGroupBox
            Left = 0
            Top = 8
            Width = 625
            Height = 105
            TabOrder = 0
            object Label1: TLabel
              Left = 251
              Top = 44
              Width = 24
              Height = 12
              Caption = '年度'
              FocusControl = DBEdit1
            end
            object Label2: TLabel
              Left = 138
              Top = 45
              Width = 48
              Height = 12
              Caption = '城市代码'
            end
            object Label3: TLabel
              Left = 402
              Top = 44
              Width = 48
              Height = 12
              Caption = '社平工资'
              FocusControl = DBEdit3
            end
            object Label_CSMC: TLabel
              Left = 8
              Top = 45
              Width = 48
              Height = 12
              Caption = '城市名称'
            end
            object LabelCSMC: TLabel
              Left = 64
              Top = 45
              Width = 6
              Height = 12
              Font.Charset = GB2312_CHARSET
              Font.Color = clBlack
              Font.Height = -12
              Font.Name = '宋体'
              Font.Style = []
              ParentFont = False
            end
            object Label4: TLabel
              Left = 551
              Top = 44
              Width = 12
              Height = 12
              Caption = '元'
            end
            object lblCSDM: TLabel
              Left = 205
              Top = 44
              Width = 6
              Height = 12
              Font.Charset = GB2312_CHARSET
              Font.Color = clBlack
              Font.Height = -12
              Font.Name = '宋体'
              Font.Style = []
              ParentFont = False
            end
            object Label5: TLabel
              Left = 376
              Top = 44
              Width = 12
              Height = 12
              Caption = '年'
            end
            object DBEdit1: TDBEdit
              Left = 280
              Top = 40
              Width = 89
              Height = 20
              DataField = 'ND'
              DataSource = souTemp
              TabOrder = 0
            end
            object DBEdit3: TDBEdit
              Left = 455
              Top = 40
              Width = 92
              Height = 20
              DataField = 'SPGZ'
              DataSource = souTemp
              TabOrder = 1
            end
          end
          object GroupBox2: TGroupBox
            Left = 0
            Top = 160
            Width = 625
            Height = 253
            TabOrder = 1
            object DBGrid1: TDBGrid
              Left = 2
              Top = 14
              Width = 621
              Height = 237
              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 = 132
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'ND'
                  Title.Caption = '年度（年）'
                  Width = 132
                  Visible = True
                end
                item
                  Expanded = False
                  FieldName = 'SPGZ'
                  Title.Caption = '社平工资（元）'
                  Width = 129
                  Visible = True
                end>
            end
          end
        end
      end
    end
    inherited tabBrowse: TTabSheet
      Caption = '查询界面'
      inherited pnlBrowse: TPanel
        Width = 637
      end
    end
  end
  inherited qryTemp: TwwQuery
    SQL.Strings = (
      'select * from tSSPGZB')
    object qryTempND: TFloatField
      FieldName = 'ND'
      Origin = 'MAINDB.TSSPGZB.ND'
    end
    object qryTempCSDM: TStringField
      FieldName = 'CSDM'
      Origin = 'MAINDB.TSSPGZB.CSDM'
      FixedChar = True
      Size = 6
    end
    object qryTempSPGZ: TFloatField
      FieldName = 'SPGZ'
      Origin = 'MAINDB.TSSPGZB.SPGZ'
    end
  end
  inherited sqlTemp: TUpdateSQL
    ModifySQL.Strings = (
      'update tSSPGZB'
      'set'
      '  ND = :ND,'
      '  CSDM = :CSDM,'
      '  SPGZ = :SPGZ'
      'where'
      '  ND = :OLD_ND and'
      '  CSDM = :OLD_CSDM')
    InsertSQL.Strings = (
      'insert into tSSPGZB'
      '  (ND, CSDM, SPGZ)'
      'values'
      '  (:ND, :CSDM, :SPGZ)')
    DeleteSQL.Strings = (
      'delete from tSSPGZB'
      'where'
      '  ND = :OLD_ND and'
      '  CSDM = :OLD_CSDM')
  end
  inherited mnuTemp: TPopupMenu
    inherited Q1: TMenuItem
      Caption = '查询[&F]'
      ShortCut = 16454
      Visible = False
    end
  end
  object DataSource1: TDataSource
    DataSet = qrytest
    Left = 203
    Top = 105
  end
  object qrytest: TQuery
    DatabaseName = 'MainDB'
    Left = 243
    Top = 105
  end
  object souND: TDataSource
    DataSet = qryND
    Left = 323
    Top = 129
  end
  object qryND: TQuery
    DatabaseName = 'MainDB'
    Left = 363
    Top = 129
  end
end