新建 文本文档.txt

pb开发的简单学生管理系统发的付笛声夫妇

string name,pass,ls_pass
name=sle_name.text
pass=trim(sle_pass.text)
  SELECT "loginer"."password"  
    INTO <ls_pass>  
    FROM "loginer"  
   WHERE "loginer"."user" = 'name'  
	if sqlca.sqlde=0 then
		ls_pass=trim(ls_pass)
		if ls_pass=''or isnull(ls_pass)


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_id.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=true then
	ls_party=rb_1.text
elseif rb_2.checked=true then
	ls_party=rb_2.text
else ls_party=rb_2.text
end if

if rb_man.checked=true then
	ls_sex=rb_man.text
elseif rb_woman.checked=true then
	ls_sex=rb_woman.text
end if

if ddlb_nation.text="none" then
	ls_nation=""
else ls_nation=trim(ddlb_nation.text)
	
	
	sle_id.text=""
	sle_name.text=""
	sle_birthday.text=""
	mle_resume.text=""
	sle_home.text=""
	sle_tel.text=""
	sle_id.setfocus()