ygzbxxxr.dfm

一个用vb mysql实现的人事管理信息系统希望对大家有用。

        ListSource = DataSource3
        TabOrder = 9
      end
      object DBLookupComboBox3: TDBLookupComboBox
        Left = 559
        Top = 157
        Width = 105
        Height = 24
        Enabled = False
        KeyField = 'mc'
        ListField = 'mc'
        ListSource = DataSource4
        TabOrder = 10
      end
      object rzsj: TDateTimePicker
        Left = 86
        Top = 161
        Width = 135
        Height = 24
        Date = 33109.000000000000000000
        Time = 33109.000000000000000000
        DateFormat = dfLong
        Enabled = False
        TabOrder = 8
      end
      object Edit1: TEdit
        Left = 88
        Top = 14
        Width = 113
        Height = 24
        Enabled = False
        TabOrder = 0
        OnKeyPress = Edit1KeyPress
      end
      object ComboBox1: TComboBox
        Left = 87
        Top = 51
        Width = 66
        Height = 24
        Enabled = False
        ItemHeight = 16
        TabOrder = 2
        Items.Strings = (
          #30007
          #22899)
      end
      object ComboBox2: TComboBox
        Left = 322
        Top = 50
        Width = 97
        Height = 24
        Enabled = False
        ItemHeight = 16
        TabOrder = 3
        Items.Strings = (
          #20826#21592
          #22242#21592
          #32676#20247)
      end
      object ComboBox3: TComboBox
        Left = 88
        Top = 83
        Width = 129
        Height = 24
        Enabled = False
        ItemHeight = 16
        TabOrder = 4
        Items.Strings = (
          #21338#30740
          #30805#30740
          #22823#26412
          #22823#19987
          #39640#20013
          #21021#20013
          #23567#23398)
      end
      object Edit3: TEdit
        Left = 88
        Top = 118
        Width = 126
        Height = 24
        Enabled = False
        TabOrder = 6
      end
      object Edit2: TEdit
        Left = 322
        Top = 14
        Width = 121
        Height = 24
        Enabled = False
        TabOrder = 1
        OnKeyPress = Edit2KeyPress
      end
    end
    object GroupBox2: TGroupBox
      Left = 16
      Top = 204
      Width = 673
      Height = 85
      Caption = #32852#31995#20449#24687
      TabOrder = 1
      object Label14: TLabel
        Left = 12
        Top = 20
        Width = 60
        Height = 15
        Caption = #23478#24237#20303#22336
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label15: TLabel
        Left = 436
        Top = 58
        Width = 90
        Height = 15
        Caption = #22266#23450#32852#31995#30005#35805
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label16: TLabel
        Left = 216
        Top = 58
        Width = 60
        Height = 15
        Caption = #25163#26426#21495#30721
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label17: TLabel
        Left = 17
        Top = 58
        Width = 48
        Height = 15
        Caption = 'E-mail'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Bevel4: TBevel
        Left = 3
        Top = 44
        Width = 670
        Height = 2
        Shape = bsTopLine
      end
      object Bevel10: TBevel
        Left = 79
        Top = 9
        Width = 2
        Height = 73
      end
      object Bevel11: TBevel
        Left = 210
        Top = 44
        Width = 2
        Height = 40
      end
      object Bevel12: TBevel
        Left = 430
        Top = 45
        Width = 2
        Height = 40
      end
      object Bevel13: TBevel
        Left = 531
        Top = 45
        Width = 2
        Height = 40
      end
      object Bevel14: TBevel
        Left = 299
        Top = 45
        Width = 2
        Height = 40
      end
      object Edit5: TEdit
        Left = 88
        Top = 56
        Width = 113
        Height = 24
        Enabled = False
        TabOrder = 2
        OnKeyPress = Edit5KeyPress
      end
      object Edit6: TEdit
        Left = 304
        Top = 54
        Width = 121
        Height = 24
        Enabled = False
        TabOrder = 3
        OnKeyPress = Edit6KeyPress
      end
      object Edit7: TEdit
        Left = 536
        Top = 53
        Width = 121
        Height = 24
        Enabled = False
        TabOrder = 1
        OnKeyPress = Edit7KeyPress
      end
      object Edit4: TEdit
        Left = 88
        Top = 13
        Width = 569
        Height = 24
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -15
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnKeyPress = Edit4KeyPress
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 361
    Width = 706
    Height = 56
    Align = alClient
    TabOrder = 2
    object Button1: TButton
      Left = 72
      Top = 16
      Width = 89
      Height = 25
      Caption = #22686#21152'(&I)'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button3: TButton
      Left = 232
      Top = 16
      Width = 89
      Height = 25
      Caption = #25552#20132'(&X)'
      Enabled = False
      TabOrder = 1
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 406
      Top = 16
      Width = 89
      Height = 25
      Caption = #36864#20986'(&E)'
      TabOrder = 2
      OnClick = Button4Click
    end
    object Button2: TButton
      Left = 560
      Top = 16
      Width = 89
      Height = 25
      Caption = #24110#21161'(&H)'
      TabOrder = 3
      OnClick = Button2Click
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 168
    Top = 16
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 592
    Top = 33
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery3
    Left = 488
    Top = 33
  end
  object DataSource4: TDataSource
    DataSet = ADOQuery4
    Left = 512
    Top = 305
  end
  object ADOQuery1: TADOQuery
    Connection = dmain.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from ygzlb')
    Left = 112
    Top = 48
  end
  object ADOQuery2: TADOQuery
    Connection = dmain.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select  mc from jbcsb where lx=2')
    Left = 560
    Top = 32
  end
  object ADOQuery3: TADOQuery
    Connection = dmain.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select mc from jbcsb where lx=3')
    Left = 456
    Top = 32
  end
  object ADOQuery4: TADOQuery
    Connection = dmain.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select mc from jbcsb where lx=4')
    Left = 480
    Top = 296
  end
  object PopupMenu1: TPopupMenu
    Left = 488
    Top = 200
    object N1: TMenuItem
      Caption = #35835#21462
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #20445#23384
    end
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 504
    Top = 224
  end
end