form2.frm

本人长期从事人事管理工作

      End
      Begin VB.Label Label8 
         Caption         =   "所学专业："
         Height          =   255
         Left            =   3240
         TabIndex        =   14
         Top             =   360
         Width           =   975
      End
      Begin VB.Label Label7 
         Caption         =   "最高学历："
         Height          =   255
         Left            =   120
         TabIndex        =   13
         Top             =   360
         Width           =   975
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "基本信息"
      ForeColor       =   &H00FF0000&
      Height          =   1335
      Left            =   240
      TabIndex        =   0
      Top             =   360
      Width           =   8655
      Begin MSDBCtls.DBCombo DBCombo2 
         Bindings        =   "Form2.frx":08CA
         DataField       =   "岗位名称"
         DataSource      =   "Data1"
         Height          =   330
         Left            =   5640
         TabIndex        =   35
         Top             =   840
         Width           =   2895
         _ExtentX        =   5106
         _ExtentY        =   582
         _Version        =   393216
         ListField       =   "岗位名称"
         Text            =   ""
      End
      Begin MSDBCtls.DBCombo DBCombo1 
         Bindings        =   "Form2.frx":08DE
         DataField       =   "所在部门"
         DataSource      =   "Data1"
         Height          =   330
         Left            =   1080
         TabIndex        =   34
         Top             =   840
         Width           =   3495
         _ExtentX        =   6165
         _ExtentY        =   582
         _Version        =   393216
         ListField       =   "部门名称"
         Text            =   ""
      End
      Begin VB.ComboBox Combo1 
         DataField       =   "性别"
         DataSource      =   "Data1"
         Height          =   300
         Left            =   5400
         TabIndex        =   12
         Text            =   "男"
         Top             =   360
         Width           =   735
      End
      Begin VB.TextBox Text3 
         DataField       =   "出生日期"
         DataSource      =   "Data1"
         Height          =   270
         Left            =   7200
         MaxLength       =   10
         TabIndex        =   11
         Top             =   360
         Width           =   1335
      End
      Begin VB.TextBox Text2 
         DataField       =   "姓名"
         DataSource      =   "Data1"
         Height          =   270
         Left            =   3240
         MaxLength       =   8
         TabIndex        =   10
         Top             =   360
         Width           =   1335
      End
      Begin VB.TextBox Text1 
         DataField       =   "员工编号"
         DataSource      =   "Data1"
         Height          =   270
         Left            =   1080
         MaxLength       =   10
         TabIndex        =   4
         Top             =   360
         Width           =   1335
      End
      Begin VB.Line Line1 
         X1              =   0
         X2              =   8640
         Y1              =   720
         Y2              =   720
      End
      Begin VB.Label Label6 
         Caption         =   "出生日期："
         Height          =   255
         Left            =   6240
         TabIndex        =   9
         Top             =   360
         Width           =   975
      End
      Begin VB.Label Label5 
         Caption         =   "岗位名称："
         Height          =   255
         Left            =   4680
         TabIndex        =   8
         Top             =   840
         Width           =   975
      End
      Begin VB.Label Label4 
         Caption         =   "所在部门："
         Height          =   255
         Left            =   120
         TabIndex        =   7
         Top             =   840
         Width           =   975
      End
      Begin VB.Label Label3 
         Caption         =   "性别："
         Height          =   255
         Left            =   4680
         TabIndex        =   6
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label2 
         Caption         =   "姓名："
         Height          =   255
         Left            =   2640
         TabIndex        =   5
         Top             =   360
         Width           =   975
      End
      Begin VB.Label Label1 
         Caption         =   "员工编号："
         Height          =   255
         Left            =   120
         TabIndex        =   3
         Top             =   360
         Width           =   975
      End
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()

Unload Form2  '关闭增加窗口

End Sub

Private Sub Command2_Click()




'对第一个栏目(课程编号)进行判断
Dim m

m = 0

If Len(Text1.Text) = 0 Then   '判断第一个栏目框是否为空

    MsgBox "课件编号不能为空!", vbOKOnly, "提示"
    Text1.SetFocus  '将焦点放在第一个栏目框中
  
Else                      '判断第一个栏目中是否有非字母和数字

      For i = 1 To Len(Text1.Text)   '从第一个字符开始，将每个字符依次取出判断
          letter$ = Mid(Text1.Text, i, 1)
          
          If Asc(letter) < 48 Or (Asc(letter) > 57 And _
             Asc(letter) < 65) Or Asc(letter) > 122 Then
             m = m + 1
          End If
          
      Next i
       
       
       'Data1.Recordset.FindFirst "员工编号 ='" & Text1.Text & "'"
       'If Data1.Recordset.NoMatch Then
       '   GoTo lijian:
       'Else
       '   MsgBox "员工编号不能重复!", vbOKOnly, "提示"
       'End If
       
      If m <> 0 Then
           MsgBox "员工编号只允许包含字母和数字!", vbOKOnly, "提示"
           Text1.SetFocus  '将焦点放在第一个栏目框中
      Else
       
'lijian:
       Form2.Data1.Recordset.Update  '添加数据
       Form1.Data1.Refresh  '刷新数据库，以便在DBGRID1中显示最新数据
       Unload Form2  '关闭窗体


      End If
 
End If
 
   
   
    
 
End Sub



Private Sub Form_Activate()

'Data1.DatabaseName = App.Path & "\mang.dbd"
'Data1.RecordSource = mang

'Data2.DatabaseName = App.Path & "\mang.dbd"
'Data2.RecordSource = dep

'Data3.DatabaseName = App.Path & "\mang.dbd"
'Data3.RecordSource = func


If Text3.Text = "" Then
Text3.Text = "1900-01-01"
End If

If Text5.Text = "" Then
Text5.Text = "1900-01-01"
End If

If Combo1.Text = "" Then
Combo1.Text = "男"
End If

If Combo4.Text = "" Then
Combo4.Text = "大专"
End If

End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path & "\mang.mdb"
Data1.RecordSource = "mang"

Data2.DatabaseName = App.Path & "\mang.mdb"
Data2.RecordSource = "dep"

Data3.DatabaseName = App.Path & "\mang.mdb"
Data3.RecordSource = "func"



Combo1.AddItem "男", 0
Combo1.AddItem "女", 1

Combo4.AddItem "小学", 0
Combo4.AddItem "初中", 1
Combo4.AddItem "高中", 2
Combo4.AddItem "大专", 3
Combo4.AddItem "本科", 4
Combo4.AddItem "硕士", 5
Combo4.AddItem "博士", 6
Combo4.AddItem "博士后", 7


End Sub