“请输入出生日期”vbOKO
lyvbExclamatio
“警告”Text5SetFocusExitSubE
dIfIfNotTesttxtText6TextThe
MsgBox“请输入入校日期”vbOKO
lyvbExclamatio
“警告”Text6SetFocusExitSubE
dIfIfNotTesttxtText7TextThe
MsgBox“请输入电话号码”vbOKO
lyvbExclamatio
“警告”Text7SetFocusExitSubE
dIfIfNotTesttxtText8TextThe
MsgBox“请输入家庭住址”vbOKO
lyvbExclamatio
“警告”Text8SetFocusExitSubE
dIfIfNotTesttxtText9TextThe
MsgBox“请输入备注信息”vbOKO
lyvbExclamatio
“警告”Text9SetFocusExitSubE
dIfIfNotIsNumericTrimText1TextThe
MsgBox“请输入数字”vbOKO
lyvbExclamatio
“警告”Text5SetFocusExitSubE
dIf
fsqlstr“selectfromclass_I
fo“stude
t_ID’”TrimText1Text“’”SetrstQuerySQLsqlstrMsgTextIfrstEOFFalseThe
MsgBox“学号重复，请重新输入！”vbOKO
lyvbExclamatio
“警告”rstCloseText1SetFocusElserstCloseIfNotIsDateText5TextThe
MsgBox“此出生日期应输入格式（yyyymmdd）”vbOKO
lyvbExclamatio
“警告”
Text5SetFocusElse
Text5FormatText5“yyyymmdd”IfNotIsDateText6TextThe
MsgBox“入校时间应填日期格式（yyyymmdd）”vbOKO
lyvbExclamatio
“警告”
Text6SetFocusElse
Text6FormatText6“yyyymmdd”sqlstr“selectfromstude
t_I
fo”SetrstQuerySQLsqlstrMsgTextrstAddNewrstFields0TrimText1TextrstFields1TrimText2TextrstFields2TrimCombo1TextrstFields3TrimText5TextrstFields4TrimCombo2TextrstFields5TrimText7TextrstFields6TrimText6TextrstFields7TrimText8TextrstFields8TrimText9TextMsgBox“添加学籍信息成功！”vbOKO
lyvbExclamatio
“警告”rstCloseE
dIfE
dIfE
dIfE
dSubPrivateSubComma
d2_ClickU
loadMeE
dSub
f图18修改学生信息窗体图19查询学生信息窗体
f模块的创建调试：
PublicfMai
FormAsfrmMai

PublicUserNameAsStri
g
SubMai

DimfLogi
AsNewfrmLogi

fLogi
ShowvbModal
IfNotfLogi
succThe
‘登录失败，退出应用程序
E
d
E
dIf
U
loadfLogi

SetfMai
FormShow
E
dSub
PublicFu
ctio
QuerySQLByValSQL_
图20模块的创建与调试
AsStri
gMsgAsStri
g_
AsADODBRecordset
Dimc
AsADODBCo
ecrio

DimrSAsADODBRecordset
DimssAsStri
g
O
ErrorGoToQuerySQL_Error
ssSqlitSQL
Setc
NewADODBCo
ectio

Co
ectStri
g“DriverSQLServerServerzcjUIDsaPWDsaDatabaseStude

t”c
Ope
Co
ectStri
g
IfI
Str“INSERTDELETEUPDATE”UCasess0The

c
ExecuteSQLMsgss0_“查询成功”Else
SetrSNewADODBRecordset
rSOpe
TrimSQLc
adOpe
KeysetadLockOptimistic
SetQuerySQLrSMsg“查询到”rSRecordCou
t“条记录r