“请输入出生日期”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