sql.txt

来自「powerbuilder开发的学籍管理系统.rar」· 文本 代码 · 共 24 行

int li_time
string ls_subject,ls_teacher
date ld_date
ld_date=wf_getoledate()
if ddlb_subject.text="none" then
messagebox("缺少数据","请选择课程名称。")
return
else
ls_subject=trim(ddlb_subject.text)
end if
ls_teacher=trim(sle_teacher.text)
if ls_teacher="" then
messagebox("缺少数据","请输入任课老师姓名。")
return
end if
li_time=integer(sle_time.text)
insert into subject
values(:ls_subject,
       :ld_date,
       :ls_teacher,
       :li_time);
sle_time.text=""
sle_teacher.text=""