ucsdm.dfm

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

inherited frmCSDM: TfrmCSDM
  Left = -133
  Top = 64
  Height = 573
  Caption = ''
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  inherited Splitter1: TSplitter
    Height = 483
  end
  inherited Panel2: TPanel
    Height = 483
    inherited TreeView1: TTreeView
      Height = 475
      OnClick = TreeView1Click
    end
  end
  inherited barStatus: TStatusBar
    Top = 524
  end
  inherited pagTemp: TPageControl
    Height = 483
    inherited tabEdit: TTabSheet
      inherited Panel6: TPanel
        Height = 420
        inherited scrMain: TScrollBox
          Height = 410
          object Panel1: TPanel
            Left = 0
            Top = 0
            Width = 627
            Height = 410
            Align = alClient
            TabOrder = 0
            object Bevel1: TBevel
              Left = 8
              Top = 109
              Width = 609
              Height = 15
            end
            object GroupBox1: TGroupBox
              Left = 8
              Top = 5
              Width = 609
              Height = 96
              TabOrder = 0
              object Label1: TLabel
                Left = 10
                Top = 40
                Width = 48
                Height = 12
                Caption = '城市代码'
              end
              object Label2: TLabel
                Left = 166
                Top = 39
                Width = 48
                Height = 12
                Caption = '城市名称'
              end
              object DBEdit1: TDBEdit
                Left = 66
                Top = 35
                Width = 89
                Height = 20
                DataField = 'CSDM'
                DataSource = souTemp
                TabOrder = 0
              end
              object DBEdit2: TDBEdit
                Left = 222
                Top = 34
                Width = 89
                Height = 20
                DataField = 'CSMC'
                DataSource = souTemp
                TabOrder = 1
              end
              object CheckCS: TCheckBox
                Left = 66
                Top = 68
                Width = 97
                Height = 16
                Caption = '显示所有城市'
                TabOrder = 2
                OnClick = CheckCSClick
              end
            end
            object GroupBox2: TGroupBox
              Left = 8
              Top = 129
              Width = 609
              Height = 273
              TabOrder = 1
              object DBGrid1: TDBGrid
                Left = 2
                Top = 14
                Width = 605
                Height = 257
                Align = alClient
                DataSource = souTemp
                Font.Charset = ANSI_CHARSET
                Font.Color = clWindowText
                Font.Height = -12
                Font.Name = '宋体'
                Font.Style = []
                ParentFont = False
                ParentShowHint = False
                ReadOnly = True
                ShowHint = False
                TabOrder = 0
                TitleFont.Charset = GB2312_CHARSET
                TitleFont.Color = clWindowText
                TitleFont.Height = -12
                TitleFont.Name = '宋体'
                TitleFont.Style = []
                Columns = <
                  item
                    Expanded = False
                    FieldName = 'CSDM'
                    Title.Caption = '城市代码'
                    Width = 126
                    Visible = True
                  end
                  item
                    Expanded = False
                    FieldName = 'CSMC'
                    Title.Caption = '城市名称'
                    Width = 444
                    Visible = True
                  end>
              end
            end
          end
        end
      end
    end
    inherited tabBrowse: TTabSheet
      Caption = '查询界面'
      object Bevel3: TBevel [0]
        Left = 6
        Top = 158
        Width = 626
        Height = 15
      end
      inherited pnlBrowse: TPanel
        Width = 637
        Caption = '     查询操作'
      end
      object GroupBox5: TGroupBox
        Left = 5
        Top = 33
        Width = 628
        Height = 121
        TabOrder = 1
        object Label6: TLabel
          Left = 19
          Top = 16
          Width = 180
          Height = 12
          Caption = '请输入查询条件(可进行模糊查询)'
        end
        object SpeedButton2: TSpeedButton
          Left = 218
          Top = 43
          Width = 49
          Height = 22
          Caption = '查询'
          OnClick = btbCXClick
        end
        object Label7: TLabel
          Left = 19
          Top = 49
          Width = 48
          Height = 12
          Caption = '城市代码'
        end
        object Label8: TLabel
          Left = 19
          Top = 82
          Width = 48
          Height = 12
          Caption = '城市名称'
        end
        object SpeedButton3: TSpeedButton
          Left = 218
          Top = 79
          Width = 49
          Height = 22
          Caption = '查询'
          OnClick = SpeedButton1Click
        end
        object edtCSDM: TEdit
          Left = 81
          Top = 44
          Width = 122
          Height = 20
          Hint = '输入查询条件，例如输入51，可查出所有包含51的纪录'
          TabOrder = 0
          OnChange = edtCSDMChange
        end
        object edtCSMC: TEdit
          Left = 81
          Top = 80
          Width = 122
          Height = 20
          TabOrder = 1
          OnChange = edtCSMCChange
        end
        object chkSYCS: TCheckBox
          Left = 285
          Top = 84
          Width = 97
          Height = 17
          Caption = '显示所有城市'
          TabOrder = 2
          OnClick = chkSYCSClick
        end
        object chkZD: TCheckBox
          Left = 285
          Top = 64
          Width = 97
          Height = 17
          Caption = '自动匹配'
          TabOrder = 3
        end
      end
      object GroupBox4: TGroupBox
        Left = 6
        Top = 174
        Width = 626
        Height = 280
        TabOrder = 2
        object grdCX: TDBGrid
          Left = 2
          Top = 14
          Width = 622
          Height = 264
          Align = alClient
          DataSource = souTemp
          ImeName = '中文 (简体) - 微软拼音'
          Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
          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 = 123
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'CSMC'
              Title.Caption = '城市名称'
              Width = 152
              Visible = True
            end>
        end
      end
    end
  end
  inherited actlstTemp: TActionList
    Top = 25
  end
  inherited imgTemp: TImageList
    Top = 25
  end
  inherited qryTemp: TwwQuery
    SQL.Strings = (
      'select * from tCSDM')
    Left = 633
    Top = 40
    object qryTempCSDM: TStringField
      FieldName = 'CSDM'
      Origin = 'MAINDB.TCSDM.CSDM'
      FixedChar = True
      Size = 6
    end
    object qryTempCSMC: TStringField
      FieldName = 'CSMC'
      Origin = 'MAINDB.TCSDM.CSMC'
      Size = 40
    end
  end
  inherited souTemp: TwwDataSource
    Left = 601
    Top = 40
  end
  inherited sqlTemp: TUpdateSQL
    ModifySQL.Strings = (
      'update tCSDM'
      'set'
      '  CSDM = :CSDM,'
      '  CSMC = :CSMC'
      'where'
      '  CSDM = :OLD_CSDM')
    InsertSQL.Strings = (
      'insert into tCSDM'
      '  (CSDM, CSMC)'
      'values'
      '  (:CSDM, :CSMC)')
    DeleteSQL.Strings = (
      'delete from tCSDM'
      'where'
      '  CSDM = :OLD_CSDM')
    Left = 665
    Top = 40
  end
  inherited mnuTemp: TPopupMenu
    inherited Q1: TMenuItem
      Caption = '查询[&F]'
      ShortCut = 16454
    end
  end
  inherited imgTree: TImageList
    Top = 26
  end
  object souCSDM: TDataSource
    DataSet = qryCSDM
    Left = 278
    Top = 91
  end
  object qryCSDM: TQuery
    DatabaseName = 'MainDB'
    Left = 310
    Top = 91
  end
end