毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

VB+SQL server学生信息管理系统毕业论文附源代码 第17页

更新时间:2007-10-13:  来源:毕业论文
 

If Not Testtxt(txtAddress.Text) Then

MsgBox "请输入家庭住址!", vbOKOnly + vbExclamation, "警告"

txtAddress.SetFocus

Exit Sub

End If

 

If Not IsNumeric(Trim(txtSID.Text)) Then

MsgBox "请输入数字!", vbOKOnly + vbExclamation, "警告"

Exit Sub

txtSID.SetFocus

End If

 

txtSQL = "select * from student_Info where student_ID = '" & Trim(txtSID.Text) & "'"

Set mrc = ExecuteSQL(txtSQL, MsgText)

If mrc.EOF = False Then

MsgBox "学号重复,请重新输入!", vbOKOnly + vbExclamation, "警告"

mrc.Close

txtSID.SetFocus

Else

mrc.Close

If Not IsDate(txtBorndate.Text) Then

MsgBox "出生时间应输入日期格式(yyyy-mm-dd)!", vbOKOnly + vbExclamation, "警告"

txtBorndate.SetFocus

Else

txtBorndate = Format(txtBorndate, "yyyy-mm-dd")

If Not IsDate(txtRudate.Text) Then

MsgBox "入校时间应输入日期格式(yyyy-mm-dd)!", vbOKOnly + vbExclamation, "警告"

txtRudate.SetFocus

Else

txtRudate = Format(txtRudate, "yyyy-mm-dd")

txtSQL = "select * from student_Info"

Set mrc = ExecuteSQL(txtSQL, MsgText)

mrc.AddNew

mrc.Fields(0) = Trim(txtSID.Text)

mrc.Fields(1) = Trim(txtName.Text)

mrc.Fields(2) = Trim(comboSex.Text)

mrc.Fields(3) = Trim(txtBorndate.Text)

mrc.Fields(4) = Trim(comboClassNo.Text)

mrc.Fields(5) = Trim(txtTel.Text)

mrc.Fields(6) = Trim(txtRudate.Text)

mrc.Fields(7) = Trim(txtAddress.Text)

mrc.Fields(8) = Trim(txtComment.Text)

mrc.Update

MsgBox "添加学籍信息成功!", vbOKOnly + vbExclamation, "警告"

mrc.Close

Me.Hide

End If

End If

End If

 

End Sub

Private Sub Command2_Click()

 

Unload Me

End Sub

 

Private Sub Form_Load()

Dim mrc As ADODB.Recordset

Dim txtSQL As String

Dim MsgText As String

Dim i As Integer

 

comboSex.AddItem ""

comboSex.AddItem ""

txtSQL = "select * from class_Info "

Set mrc = ExecuteSQL(txtSQL, MsgText)

 

For i = 1 To mrc.RecordCount

comboClassNo.AddItem mrc.Fields(0)

mrc.MoveNext

Next i

 

mrc.Close

End Sub

.........................................................................................................

 

............................... frmAddassinfo 添加班级信息窗口代码 ..............................

 

Private Sub Command1_Click()

Dim mrc As ADODB.Recordset

Dim MsgText As String

Dim txtSQL As String

 

If Not Testtxt(txtClassno.Text) Then

MsgBox "请输入班号!", vbOKOnly + vbExclamation, "警告"

txtClassno.SetFocus

Exit Sub

End If 

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ... 下一页  >> 

VB+SQL server学生信息管理系统毕业论文附源代码 第17页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。