学生信息管理系统总结之“经典语句一”
来源:互联网 发布:云计算开发工程师 编辑:程序博客网 时间:2024/05/22 14:18
学生信息管理系统在昨天接近尾声,大部分收工了。现在开始进入总结阶段,首先进行经典语句的总结。
一、验证数据有效性
(1)、判断是否为空
前边模块中定义了testtxt函数
IfNot TestTxt(TxtCourseno.Text) Then
MsgBox "请输入课程编号!", vbOKOnly +vbExclamation, "警告"
TxtCourseno.SetFocus
Exit Sub
End If
或是正常状态:
If Trim(TxtID.Text)= "" Then
smeg = "学号不能为空!"
MsgBox smeg, vbOKOnly + vbExclamation,"警告"
TxtID.SetFocus
Exit Sub
End If
(2)、判断学号是否为数字
If NotIsNumeric(TxtCourseno.Text) Then
MsgBox "编号为数字,请输入数字!",vbOKOnly + vbExclamation, "警告"
TxtCourseno.SetFocus
Exit Sub
End If
(3)、判断插入数据是否重复
While (mrc.EOF = False)
If (Trim(mrc.Fields(0)) =Trim(TxtCourseno.Text)) Then
MsgBox "课程编号不能重复,请重新输入!",vbOKOnly + vbExclamation, "警告"
TxtCourseno.SetFocus
Exit Sub
Else
mrc.MoveNext
End If
Wend
(4)判断日期格式是否真确
If NotIsDate(Txtborndate.Text) Then
MsgBox "出生时间应输入日期格式(yyyy-mm-dd)!",vbOKOnly + vbExclamation, "警告"
Txtborndate.SetFocus
Else
txtborndate = Format(Txtborndate, "yyyy-mm-dd")
End if
二、添加数据
mrc.AddNew
mrc.Fields(0) =Trim(TxtID.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, "警告"
三、查询数据库中的表
Dim mrcas ADODB.RecordSet
DimTxtSQL as string
DimMsgtext as string
txtSQL="select* from result_Info where student_ID and student_Name='" & Trim(TxtID.Text) & TxtName.Text & "'"
Setmrc=executeSQL(txtSQL,MsgText)
四、密码问题
(1)、判断密码登录次数是否超过三次
Dim miCount AsInteger
Micount=micount+1
Ifmicount=3 then
me.hide
End if
(2)、两次输入的密码是否相同
IfTrim(Text1(1).Text) <> Trim(Text1(2).Text) Then
MsgBox "两次输入的密码不一样,请确定!",vbOKOnly + vbExclamation, "警告"
Text1(1).SetFocus
Text1(1).Text = ""
Text1(2).Text = ""
Exit Sub
Else
mrc.AddNew
mrc.Fields(0) = Trim(Text1(0).Text)
mrc.Fields(1) = Trim(Text1(1).Text)
mrc.Update
mrc.Close
Me.Hide
MsgBox "添加用户成功!", vbOKOnly +vbExclamation, "警告"
End If
- 学生信息管理系统总结之“经典语句一”
- 学生信息管理系统 之经典语句
- 【学生信息管理系统】总结一
- 学生信息管理系统之数据库语句解析(一)
- 学生信息管理系统之总结
- 学生信息管理系统之数据库语句解析
- 学生信息管理系统总结(一)
- 学生信息管理系统系列一:问题总结
- 学生信息管理系统问题总结(一)
- 学生信息管理系统总结(一)
- 学生信息管理系统总结(一)
- 学生信息管理系统总结(一)
- 学生信息管理系统总结(一)
- 学生信息管理系统总结 之 “风格”
- 学生信息管理系统总结 之 "数据库"
- 学生信息管理系统之总结不足,引以为戒
- 学生信息管理系统之总结篇
- 学生信息管理系统错误总结之3021
- ssh无密码登录主机
- uva-133 - The Dole Queue
- 关于HTTP协议中的KeepAlive属性
- 双口RAM在高速数据采集系统中的应用
- c++中List在遍历时删除节点的方法,带源码
- 学生信息管理系统总结之“经典语句一”
- AVR-GCC Makefile 中文翻译并加上我的理解(原发于:2007-11-20)
- android 模拟器上GPS的使用
- 使用远程桌面时发生AtBroker.exe错误的解决方法
- ZOJ-2008-一个最短路问题-(dijkstra+heap,spfa)
- Oracle 不同故障的恢复方案
- Jamendo开源在线音乐播放器源码分析(一)
- 【hdu】 Nightmare
- 20条编程经验