员工培训管理系统 第11页

员工培训管理系统 第11页
End Sub
Private Sub txtcomment_KeyPress(KeyAscii As Integer)
If KeyAscii = 39 Then
    KeyAscii = 0
ElseIf KeyAscii = 13 Then
    Call Cmdsave_Click
End If
End Sub

Private Sub txtInDate_GotFocus()
If cmdSave.Caption = "保存(&S)" Then
txtInDate.Text = Format(Date, "yyyy/mm/dd")
End If
End Sub

Private Sub txtInDate_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then txtAdd.SetFocus
End Sub
Private Sub txtInDate_LostFocus()
txtInDate.Text = Format(txtInDate.Text, "yyyy/mm/dd")
End Sub
Private Sub txtName_KeyPress(KeyAscii As Integer)
If KeyAscii = 39 Then KeyAscii = 0
End Sub
Private Sub txtStudentId_GotFocus() 
If cboClass.Text = Empty Then
    MsgBox "请选择部门.", vbInformation, "提示"
    cboClass.SetFocus
    Exit Sub
End If
End Sub
Private Sub txtStudentId_KeyPress(KeyAscii As Integer)
If KeyAscii >= 33 Then
If KeyAscii <= vbKey9 And KeyAscii >= vbKey0 Then
Else
KeyAscii = 0
MsgBox "请输入数字!"
End If
End If
End Sub

Private Sub txtstudentName_Change()
cmdDel.Enabled = False
End Sub

Private Sub txtstudentName_KeyPress(KeyAscii As Integer)
If (KeyAscii >= 33 And KeyAscii <= 64) Or (KeyAscii >= 91 And KeyAscii <= 96) Or (KeyAscii >= 123 And KeyAscii <= 127) Then KeyAscii = 0
If KeyAscii = 13 Then cboClass.SetFocus
End Sub

Private Sub txtTel_KeyPress(KeyAscii As Integer)
If KeyAscii >= 32 And KeyAscii <= 34 Or KeyAscii >= 36 And KeyAscii <= 44 Or KeyAscii > 45 And KeyAscii < 48 Or KeyAscii >= 58 And KeyAscii <= 127 Then KeyAscii = 0
If KeyAscii = 13 Then txtInDate.SetFocus

End Sub

Public Sub ClearText()                                  ’清空子函数
    txtstudentName.Text = ""
    cboClass.Text = ""
    txtStudentId.Text = ""
    txtBirth.Text = "____-__-__"                           ’日期格式
    txtTel.Text = ""
    txtInDate.Text = "____-__-__"
    txtAdd.Text = ""
    txtcomment.Text = ""
End Sub
Private Sub Form_Load()                   ’载入表时清空输入框,显示数据列表
    Set myModiStudent = New OpenRs
    StudentGrid.FormatString = " | 编号|  姓名|性别| 出生日期 |部门| 联系电话| 就职时间|  家庭住址  |    注释"
    myModiStudent.rsDK1 "select * from student_info"
    Set StudentGrid.DataSource = myModiStudent.rs1
    StudentGrid.FormatString = " | 编号|  姓名|性别| 出生日期 |部门| 联系电话| 就职时间|  家庭住址  |    注释"
  Call ClearText
  txtstudentName.SetFocus
  cmdAdd.Enabled = True 
End Sub
5.6 查询界面及代码设计
5.6.1查询界面
系统的查询界面包括:成绩信息查询、课程信息查询、培训计划查询、员工信息查询等。 
 
图6-6 查询界面
5.6.2查询界面代码设计
系统查询界面的代码设计如下(这里以成绩信息查询为例):
Dim ResultQuery As OpenRs     ’ 定义函数和sql查询语句
Dim sql As String
Dim sql1 As String
Dim sql2 As String
Dim sql3 As String
Dim sql4 As String
Dim sql5 As String

Private Sub cboClassno_KeyPress(KeyAscii As Integer)    ’课程编号的输入范围
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If Not ((Chr(KeyAscii) <= "Z" And Chr(KeyAscii) >= "A") Or (Chr(KeyAscii) <= "9" And Chr(KeyAscii) >= "0") Or KeyAscii = 8) Then
    KeyAscii = 0
End If
End Sub

Private Sub cmdExit_Click()                         ’退出按钮设置
Unload Me
End Sub

Private Sub CmdQuery_Click()                       ’查询按钮设置
sql = "select student_info.student_id,student_info.student_name,result_info.course_no,result_info.course_name,result_info.exam_no,result_info.result from  result_info inner join  student_info on result_info.student_id=result_info.student_id inner join  course_info on result_info.course_no=course_info.course_no where 1=1"   ’用sql语句连接几个相关表
If txtStudentId.Text <> "" Then                         ’以下设置各分支语句
    sql1 = "and student_info.student_id='" & txtStudentId.Text & "'"
Else
    sql1 = " "
End If

If txtStudentName.Text <> "" Then
    sql2 = "and student_info.student_name='" & txtStudentName.Text & "'"
Else
    sql2 = " "
End If

If cboResult.Text <> "" Then
    sql3 = "and result_info.result" & cboResult.Text & ""
Else
    sql3 = " "

 << 上一页  [11] [12] [13] [14] 下一页

Copyright © 2007-2012 www.chuibin.com 六维论文网 版权所有