pb 实用教程（第三版）实验六代码

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 not isNULL (sle_birthday) THEN
IF isDate(sle_birthday.text) THEN
ld_birthday = date(sle_birthday.text)
ELSE
MessageBox("输入数据错误","请使用 “年-月-日”的日期格式")
sle_birthday.setfocus()
RETURN
END IF
END IF

ll_id = long(sle_id.text)

IF rb_1.checked THEN
ls_party = rb_cp.text
ELSEIF rb_2.checked THEN
ls_party = rb_2.text