|
（5）干部档案录入界面：
copyright paper51.com
程序代码： 内容来自www.paper51.com Dim t1$, t2$, t3$, t4$, t5$, t6$, t7$, t8$,t9$, t10$, t11$, t12$, t13$, t14$, c1$, c2$, c3$, c4$ copyright paper51.com Dim X1, x2, x3, x4 As Integer 内容来自论文无忧网 www.paper51.com
Private Sub Command1_Click() copyright paper51.com If Text1.Text = "" Then http://www.paper51.com
MsgBox "姓名不能为空，请输入姓名！" copyright paper51.com Text1.SetFocus copyright paper51.com Else http://www.paper51.com Data1.Recordset.AddNew 内容来自www.paper51.com
Text1.Text = "" paper51.com Text2.Text = "" 内容来自论文无忧网 www.paper51.com Text3.Text = "" paper51.com Text4.Text = "" 内容来自论文无忧网 www.paper51.com Text5.Text = "" http://www.paper51.com Text6.Text = "" 内容来自www.paper51.com Text7.Text = "" 内容来自论文无忧网 www.paper51.com
Text8.Text = "" http://www.paper51.com Text9.Text = "" copyright paper51.com
Text11.Text = "" copyright paper51.com Combo1.Text = "男" 内容来自论文无忧网 www.paper51.com Combo2.Text = "" copyright paper51.com Combo3.Text = "" http://www.paper51.com Combo4.Text = "" 内容来自www.paper51.com Text1.SetFocus copyright paper51.com Text2.BackColor = &H80000001 内容来自www.paper51.com Text3.BackColor = &H80000001 内容来自www.paper51.com Text4.BackColor = &H80000001 内容来自www.paper51.com Text5.BackColor = &H80000001 http://www.paper51.com
Text6.BackColor = &H80000001 paper51.com
Text7.BackColor = &H80000001 copyright paper51.com
Text8.BackColor = &H80000001 内容来自论文无忧网 www.paper51.com
Text9.BackColor = &H80000001 paper51.com Text11.BackColor = &H80000001 copyright paper51.com Combo1.BackColor = &H80000001 paper51.com
Combo2.BackColor = &H80000001 内容来自www.paper51.com Combo3.BackColor = &H80000001 http://www.paper51.com Combo4.BackColor = &H80000001 copyright paper51.com End If copyright paper51.com End Sub paper51.com Private Sub Command1_KeyPress(KeyAscii As Integer) paper51.com If Text1.Text = "" Then copyright paper51.com MsgBox "姓名不能为空，请输入姓名！" 内容来自www.paper51.com Text1.SetFocus copyright paper51.com Else paper51.com Data1.Recordset.AddNew copyright paper51.com
Text1.Text = "" http://www.paper51.com Text2.Text = "" 内容来自www.paper51.com Text3.Text = "" 内容来自www.paper51.com Text4.Text = "" paper51.com Text5.Text = "" http://www.paper51.com Text6.Text = "" paper51.com
Text7.Text = "" 内容来自www.paper51.com Text8.Text = "" copyright paper51.com
Text9.Text = "" 内容来自论文无忧网 www.paper51.com
Text11.Text = "" 内容来自论文无忧网 www.paper51.com Combo1.Text = "男" copyright paper51.com Combo2.Text = "" 内容来自www.paper51.com Combo3.Text = "" 内容来自论文无忧网 www.paper51.com
Combo4.Text = "" 内容来自www.paper51.com Text1.SetFocus paper51.com Text2.BackColor = &H80000001 http://www.paper51.com Text3.BackColor = &H80000001 http://www.paper51.com Text4.BackColor = &H80000001 http://www.paper51.com Text5.BackColor = &H80000001 内容来自论文无忧网 www.paper51.com Text6.BackColor = &H80000001 copyright paper51.com
Text7.BackColor = &H80000001 内容来自论文无忧网 www.paper51.com Text8.BackColor = &H80000001 paper51.com Text9.BackColor = &H80000001 http://www.paper51.com Text11.BackColor = &H80000001 copyright paper51.com Combo1.BackColor = &H80000001 copyright paper51.com Combo2.BackColor = &H80000001 内容来自论文无忧网 www.paper51.com Combo3.BackColor = &H80000001 copyright paper51.com Combo4.BackColor = &H80000001 paper51.com End If paper51.com End Sub 内容来自论文无忧网 www.paper51.com Private Sub Command2_Click() 内容来自www.paper51.com Text1.SetFocus http://www.paper51.com End Sub 内容来自www.paper51.com Private Sub Command3_Click() 内容来自www.paper51.com If Text1.Text = "" Then http://www.paper51.com MsgBox "姓名不能为空，请输入姓名！" 内容来自论文无忧网 www.paper51.com Text1.SetFocus copyright paper51.com
Else copyright paper51.com Data1.Recordset.Update 内容来自论文无忧网 www.paper51.com Data1.Recordset.Close paper51.com Unload Me copyright paper51.com 干部档案主菜单.Show 内容来自论文无忧网 www.paper51.com End If copyright paper51.com End Sub 内容来自论文无忧网 www.paper51.com Private Sub Command4_Click() 内容来自www.paper51.com Data1.Recordset.Close 内容来自论文无忧网 www.paper51.com Unload Me http://www.paper51.com 干部档案主菜单.Show 内容来自论文无忧网 www.paper51.com End Sub http://www.paper51.com Private Sub Form_Load() http://www.paper51.com Dim A As String paper51.com Dim B As Integer paper51.com
A = Me.hwnd http://www.paper51.com
B = 0 copyright paper51.com Disabled A, B 内容来自论文无忧网 www.paper51.com On Error GoTo W1 内容来自www.paper51.com Data1.DatabaseName = App.Path+ "\" + "人才库.mdb" http://www.paper51.com Data1.Refresh http://www.paper51.com
Data1.Recordset.AddNew http://www.paper51.com Exit Sub 内容来自论文无忧网 www.paper51.com W1: 内容来自论文无忧网 www.paper51.com
Exit Sub copyright paper51.com End Sub 内容来自www.paper51.com Private Sub Text1_KeyPress(KeyAscii As Integer) 内容来自论文无忧网 www.paper51.com
If KeyAscii = 13Then http://www.paper51.com t1 = Text1.Text paper51.com
If t1 = "" Then 内容来自论文无忧网 www.paper51.com
MsgBox" 请输入姓名 " http://www.paper51.com Text1.SetFocus copyright paper51.com Else 内容来自www.paper51.com Combo1 = "男" copyright paper51.com
Combo1.SetFocus paper51.com Combo1.BackColor =&H80000005 copyright paper51.com
End If 内容来自论文无忧网 www.paper51.com End If 内容来自论文无忧网 www.paper51.com
End Sub 内容来自论文无忧网 www.paper51.com
Private Sub Combo1_Click() copyright paper51.com c1 = Combo1.Text copyright paper51.com End Sub 内容来自论文无忧网 www.paper51.com Private Sub Combo1_Change() 内容来自论文无忧网 www.paper51.com
c1 = Combo1.Text http://www.paper51.com End Sub copyright paper51.com Private Sub Combo1_KeyPress(KeyAscii As Integer) 内容来自www.paper51.com If KeyAscii = 13Then copyright paper51.com
c1 = Combo1.Text copyright paper51.com Text2.SetFocus copyright paper51.com Text2.BackColor = &H80000005 copyright paper51.com End If copyright paper51.com End Sub copyright paper51.com Private Sub Text2_KeyPress(KeyAscii As Integer) paper51.com If KeyAscii = 13Then copyright paper51.com t2 = Text2.Text 内容来自论文无忧网 www.paper51.com If t2 = "" Then paper51.com Text2.SetFocus 内容来自www.paper51.com End If 内容来自www.paper51.com
If IsNumeric(t2) = False Then 内容来自论文无忧网 www.paper51.com
MsgBox " 请输入数据" http://www.paper51.com Text2.Text = "" 内容来自www.paper51.com Text2.SetFocus 内容来自www.paper51.com Else http://www.paper51.com Text3.SetFocus 内容来自论文无忧网 www.paper51.com Text3.BackColor =&H80000005 paper51.com End If paper51.com End If 内容来自论文无忧网 www.paper51.com End Sub http://www.paper51.com Private Sub Text3_KeyPress(KeyAscii As Integer) http://www.paper51.com
If KeyAscii = 13Then 内容来自论文无忧网 www.paper51.com t3 = Text3.Text copyright paper51.com If IsNumeric(t3)= False Then http://www.paper51.com
MsgBox "请输入数据" 内容来自论文无忧网 www.paper51.com Text3.Text = "" copyright paper51.com Text3.SetFocus 内容来自论文无忧网 www.paper51.com Else paper51.com If Val(t3) < 1 Or Val(t3)> 12 Then paper51.com MsgBox"月份不能小于 1 或大于 12，请重新输入！" copyright paper51.com Text3.Text ="" paper51.com Text3.SetFocus paper51.com Else 内容来自论文无忧网 www.paper51.com Text4.SetFocus 内容来自www.paper51.com Text4.BackColor = &H80000005 copyright paper51.com End If 内容来自论文无忧网 www.paper51.com End If 内容来自论文无忧网 www.paper51.com End If http://www.paper51.com End Sub http://www.paper51.com Private Sub Text4_KeyPress(KeyAscii As Integer) paper51.com If KeyAscii = 13Then 内容来自论文无忧网 www.paper51.com t4 = Text4.Text 内容来自www.paper51.com If IsNumeric(t4)= False Then 内容来自论文无忧网 www.paper51.com MsgBox "请输入数据" copyright paper51.com Text4.Text = "" paper51.com
Text4.SetFocus http://www.paper51.com |