mc_jtcyxx.dfm

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

    end
    object DBLookupComboBox3: TDBLookupComboBox
      Left = 256
      Top = 20
      Width = 124
      Height = 20
      DataField = '籍贯'
      DataSource = YZXXLL.DataSource1
      KeyField = '籍贯'
      ListField = '籍贯'
      ListSource = DataSource1
      TabOrder = 5
      OnEnter = DBLookupComboBox1Enter
      OnExit = DBLookupComboBox1Exit
      OnKeyPress = DBEdit2KeyPress
    end
    object DBLookupComboBox4: TDBLookupComboBox
      Left = 256
      Top = 45
      Width = 124
      Height = 20
      DataField = '国籍'
      DataSource = YZXXLL.DataSource1
      KeyField = '国籍'
      ListField = '国籍'
      ListSource = DataSource2
      TabOrder = 6
      OnEnter = DBLookupComboBox1Enter
      OnExit = DBLookupComboBox1Exit
      OnKeyPress = DBEdit2KeyPress
    end
    object DBLookupComboBox5: TDBLookupComboBox
      Left = 448
      Top = 20
      Width = 124
      Height = 20
      DataField = '职业'
      DataSource = YZXXLL.DataSource1
      KeyField = '职业'
      ListField = '职业'
      ListSource = DataSource4
      TabOrder = 11
      OnEnter = DBLookupComboBox1Enter
      OnExit = DBLookupComboBox1Exit
      OnKeyPress = DBEdit2KeyPress
    end
    object DBLookupComboBox6: TDBLookupComboBox
      Left = 448
      Top = 45
      Width = 124
      Height = 20
      DataField = '职务'
      DataSource = YZXXLL.DataSource1
      KeyField = '职务'
      ListField = '职务'
      ListSource = DataSource5
      TabOrder = 12
      OnEnter = DBLookupComboBox1Enter
      OnExit = DBLookupComboBox1Exit
      OnKeyPress = DBEdit2KeyPress
    end
    object DBLookupComboBox7: TDBLookupComboBox
      Left = 448
      Top = 70
      Width = 124
      Height = 20
      DataField = '职称'
      DataSource = YZXXLL.DataSource1
      KeyField = '职称'
      ListField = '职称'
      ListSource = DataSource6
      TabOrder = 13
      OnEnter = DBLookupComboBox1Enter
      OnExit = DBLookupComboBox1Exit
      OnKeyPress = DBEdit2KeyPress
    end
    object DBMemo1: TDBMemo
      Left = 72
      Top = 250
      Width = 500
      Height = 97
      DataField = '备注'
      DataSource = YZXXLL.DataSource1
      ImeName = '王码五笔型'
      TabOrder = 19
      OnKeyPress = DBEdit2KeyPress
    end
    object DBComboBox1: TDBComboBox
      Left = 136
      Top = 19
      Width = 57
      Height = 20
      Style = csDropDownList
      DataField = '性别'
      DataSource = YZXXLL.DataSource1
      ItemHeight = 12
      Items.Strings = (
        '男'
        '女')
      TabOrder = 1
      OnEnter = DBComboBox1Enter
      OnExit = DBComboBox1Exit
      OnKeyPress = DBEdit2KeyPress
    end
    object DBComboBox3: TDBComboBox
      Left = 256
      Top = 70
      Width = 124
      Height = 20
      DataField = '婚姻状况'
      DataSource = YZXXLL.DataSource1
      ItemHeight = 12
      Items.Strings = (
        '已婚'
        '未婚'
        '丧偶'
        '离异')
      TabOrder = 7
      OnEnter = DBLookupComboBox1Enter
      OnExit = DBLookupComboBox1Exit
      OnKeyPress = DBEdit2KeyPress
    end
    object DBComboBox2: TDBComboBox
      Left = 72
      Top = 120
      Width = 121
      Height = 20
      DataField = '与户主关系'
      DataSource = YZXXLL.DataSource1
      ItemHeight = 12
      Items.Strings = (
        '子女'
        '朋友'
        '爱人'
        '亲亲'
        '户主')
      TabOrder = 20
      OnEnter = DBComboBox1Enter
      OnExit = DBComboBox1Exit
      OnKeyPress = DBEdit2KeyPress
    end
  end
  object GroupBox2: TGroupBox
    Left = 591
    Top = 4
    Width = 197
    Height = 357
    Caption = '照片：'
    TabOrder = 1
    object Bevel1: TBevel
      Left = 2
      Top = 240
      Width = 194
      Height = 6
      Shape = bsTopLine
    end
    object Shape1: TShape
      Left = 7
      Top = 15
      Width = 185
      Height = 221
      Brush.Color = clBlack
    end
    object DBImage1: TDBImage
      Left = 8
      Top = 16
      Width = 183
      Height = 219
      BorderStyle = bsNone
      DataField = '照片'
      DataSource = YZXXLL.DataSource1
      Stretch = True
      TabOrder = 0
    end
    object BitBtn1: TBitBtn
      Left = 7
      Top = 246
      Width = 184
      Height = 25
      Caption = '追加照片[&I]'
      TabOrder = 1
      OnClick = BitBtn1Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
        33333333333F8888883F33330000324334222222443333388F3833333388F333
        000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
        F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
        223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
        3338888300003AAAAAAA33333333333888888833333333330000333333333333
        333333333333333333FFFFFF000033333333333344444433FFFF333333888888
        00003A444333333A22222438888F333338F3333800003A2243333333A2222438
        F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
        22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
        33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
        3333333333338888883333330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object BitBtn2: TBitBtn
      Left = 7
      Top = 273
      Width = 184
      Height = 25
      Caption = '清空照片[&D]'
      TabOrder = 2
      OnClick = BitBtn2Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333000033338833333333333333333F333333333333
        0000333911833333983333333388F333333F3333000033391118333911833333
        38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
        911118111118333338F3338F833338F3000033333911111111833333338F3338
        3333F8330000333333911111183333333338F333333F83330000333333311111
        8333333333338F3333383333000033333339111183333333333338F333833333
        00003333339111118333333333333833338F3333000033333911181118333333
        33338333338F333300003333911183911183333333383338F338F33300003333
        9118333911183333338F33838F338F33000033333913333391113333338FF833
        38F338F300003333333333333919333333388333338FFF830000333333333333
        3333333333333333333888330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object BitBtn3: TBitBtn
      Left = 7
      Top = 300
      Width = 184
      Height = 25
      Caption = '保存退出[&S]'
      TabOrder = 3
      OnClick = BitBtn3Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333330000333333333333333333333333F33333333333
        00003333344333333333333333388F3333333333000033334224333333333333
        338338F3333333330000333422224333333333333833338F3333333300003342
        222224333333333383333338F3333333000034222A22224333333338F338F333
        8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
        33333338F83338F338F33333000033A33333A222433333338333338F338F3333
        0000333333333A222433333333333338F338F33300003333333333A222433333
        333333338F338F33000033333333333A222433333333333338F338F300003333
        33333333A222433333333333338F338F00003333333333333A22433333333333
        3338F38F000033333333333333A223333333333333338F830000333333333333
        333A333333333333333338330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
    object BitBtn4: TBitBtn
      Left = 7
      Top = 327
      Width = 184
      Height = 25
      Caption = '放弃并退出[&Q]'
      TabOrder = 4
      OnClick = BitBtn4Click
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333FFFFF333333000033333388888833333333333F888888FFF333
        000033338811111188333333338833FFF388FF33000033381119999111833333
        38F338888F338FF30000339119933331111833338F388333383338F300003391
        13333381111833338F8F3333833F38F3000039118333381119118338F38F3338
        33F8F38F000039183333811193918338F8F333833F838F8F0000391833381119
        33918338F8F33833F8338F8F000039183381119333918338F8F3833F83338F8F
        000039183811193333918338F8F833F83333838F000039118111933339118338
        F3833F83333833830000339111193333391833338F33F8333FF838F300003391
        11833338111833338F338FFFF883F83300003339111888811183333338FF3888
        83FF83330000333399111111993333333388FFFFFF8833330000333333999999
        3333333333338888883333330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
  end
  object Query1: TQuery
    Active = True
    DatabaseName = 'WYGL'
    SQL.Strings = (
      'Select * From 文化程度')
    Left = 156
    Top = 93
    object Query1BDEDesigner: TStringField
      FieldName = '文化程度'
      Origin = 'WYGL.文化程度.文化程度'
      FixedChar = True
    end
  end
  object Query3: TQuery
    Active = True
    DatabaseName = 'WYGL'
    SQL.Strings = (
      'Select * From 籍贯')
    Left = 324
    Top = 21
    object Query3BDEDesigner: TStringField
      FieldName = '籍贯'
      Origin = 'WYGL.籍贯.籍贯'
      FixedChar = True
    end
  end
  object Query4: TQuery
    Active = True
    DatabaseName = 'WYGL'
    SQL.Strings = (
      'Select * From 国籍')
    Left = 324
    Top = 53
    object Query4BDEDesigner: TStringField
      FieldName = '国籍'
      Origin = 'WYGL.国籍.国籍'
      FixedChar = True
    end
  end
  object Query6: TQuery
    Active = True
    DatabaseName = 'WYGL'
    SQL.Strings = (
      'Select * From 职业')
    Left = 476
    Top = 21
    object Query6BDEDesigner: TStringField
      FieldName = '职业'
      Origin = 'WYGL.职业.职业'
      FixedChar = True
    end
  end
  object Query7: TQuery
    Active = True
    DatabaseName = 'WYGL'
    SQL.Strings = (
      'Select * From 职务')
    Left = 476
    Top = 45
    object Query7BDEDesigner: TStringField
      FieldName = '职务'
      Origin = 'WYGL.职务.职务'
      FixedChar = True
    end
  end
  object Query8: TQuery
    Active = True
    DatabaseName = 'WYGL'
    SQL.Strings = (
      'Select * From 职称')
    Left = 476
    Top = 77
    object Query8BDEDesigner: TStringField
      FieldName = '职称'
      Origin = 'WYGL.职称.职称'
      FixedChar = True
    end
  end
  object DataSource1: TDataSource
    DataSet = Query3
    Left = 284
    Top = 21
  end
  object DataSource2: TDataSource
    DataSet = Query4
    Left = 284
    Top = 53
  end
  object DataSource3: TDataSource
    DataSet = Query1
    Left = 124
    Top = 93
  end
  object DataSource4: TDataSource
    DataSet = Query6
    Left = 516
    Top = 21
  end
  object DataSource5: TDataSource
    DataSet = Query7
    Left = 516
    Top = 45
  end
  object DataSource6: TDataSource
    DataSet = Query8
    Left = 516
    Top = 77
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Filter = 'Bitmaps (*.bmp)|*.bmp'
    Left = 607
    Top = 84
  end
end