level 1
你是步是饿的慌
楼主
PB小白,照着书写代码,其他的都正确,可是显示了两条 ERROR C0031:Syntax error,点击他们光标都指向第一行。代码如下,感激不尽!
long ll_id,ll_i
date ld_birthday
string ls_name,ls_nation,ls_sex,ls_home,ls_tel,ls_party
//数据格式检验
if sle_id.text="" or isnull(sle_id.text)then
messagebox("缺少数据","请输入学号")
sle_id.setfocus()
return
elseif sle_name.text="" or isnull(sle_name.text)then
messagebox("缺少数据","请输入学生姓名")
sle_name.setfocus()
return
end if
if sle_birthday.text<>" " and notisnull(sle_birthday)then
ifisdate(sle_birthday.text)then
ld_birthday=date(sle_birthday.text)
else
messagebox("输入数据错误","请使用年-月-日的日期格式")
sle_birthday.setfocus()
return
end if
ll_id=long(sle_id.text)
//取出党团员档案
if rb_cy.checked=true then
ls_party=rb_cy.text
elseif rb_cp.checked=truethen
ls_party=rb_cp.text
else
ls_party=rb_none.text
end if
//取出性别选择
if rb_man.checked=true then
ls_sex=rb_woman.text
end if
//由民族ddlb,取出民族选择
ifddlb_nation.text="none"then
ls_nation=""
else
ls_nation=trim(ddlb_nation.text)
end if
//检查学号有无重号
select student.stud_id
into:ll_i
from student
wherestudent.stud_id=:ll_id ;
if ll_i<>0 then
messagebox("错误信息","学号第"+string(ll_i)+"学号重!请改正。")
sle_id.setfocus()
return
end if
ls_name=trim(sle_name.text)
ls_home=trim(sle_home.text)
ls_tel=trim(sle_tel.text)
//向数据库写入数据
INSERT INTO"student"
("stud_id",
"name",
"birthday",
"sex",
"nation",
"home",
"tel",
"party",
"resume")
VALUES ( ll_id,
'ls_name',
ld_birthday,
'ls_sex',
'la_nation',
'ls_home',
'ls_tel',
'la_party',
'mle_resume.text') ;
//数据写入数据库后,将输入控件全部置空
sle_id.text=""
sle_name.text=""
sle_birthday.text=""
mle_resume.text=""
sle_home.text=""
sle_tel.text=""
sle_id.setfocus()
//将光标放到学号输入栏
2016年01月13日 10点01分
1
long ll_id,ll_i
date ld_birthday
string ls_name,ls_nation,ls_sex,ls_home,ls_tel,ls_party
//数据格式检验
if sle_id.text="" or isnull(sle_id.text)then
messagebox("缺少数据","请输入学号")
sle_id.setfocus()
return
elseif sle_name.text="" or isnull(sle_name.text)then
messagebox("缺少数据","请输入学生姓名")
sle_name.setfocus()
return
end if
if sle_birthday.text<>" " and notisnull(sle_birthday)then
ifisdate(sle_birthday.text)then
ld_birthday=date(sle_birthday.text)
else
messagebox("输入数据错误","请使用年-月-日的日期格式")
sle_birthday.setfocus()
return
end if
ll_id=long(sle_id.text)
//取出党团员档案
if rb_cy.checked=true then
ls_party=rb_cy.text
elseif rb_cp.checked=truethen
ls_party=rb_cp.text
else
ls_party=rb_none.text
end if
//取出性别选择
if rb_man.checked=true then
ls_sex=rb_woman.text
end if
//由民族ddlb,取出民族选择
ifddlb_nation.text="none"then
ls_nation=""
else
ls_nation=trim(ddlb_nation.text)
end if
//检查学号有无重号
select student.stud_id
into:ll_i
from student
wherestudent.stud_id=:ll_id ;
if ll_i<>0 then
messagebox("错误信息","学号第"+string(ll_i)+"学号重!请改正。")
sle_id.setfocus()
return
end if
ls_name=trim(sle_name.text)
ls_home=trim(sle_home.text)
ls_tel=trim(sle_tel.text)
//向数据库写入数据
INSERT INTO"student"
("stud_id",
"name",
"birthday",
"sex",
"nation",
"home",
"tel",
"party",
"resume")
VALUES ( ll_id,
'ls_name',
ld_birthday,
'ls_sex',
'la_nation',
'ls_home',
'ls_tel',
'la_party',
'mle_resume.text') ;
//数据写入数据库后,将输入控件全部置空
sle_id.text=""
sle_name.text=""
sle_birthday.text=""
mle_resume.text=""
sle_home.text=""
sle_tel.text=""
sle_id.setfocus()
//将光标放到学号输入栏