pb做的圖書管理系統(tǒng)-資料下載頁
2025-08-07 03:50本頁面
【正文】 return elseif =OR isNULL() then messagebox(缺少數(shù)據(jù)！,請(qǐng)輸入姓名！) () returnend if//性別，系別if =OR isNULL() then messagebox(缺少數(shù)據(jù)！,請(qǐng)輸入性別) () return elseif =OR isNULL()then messagebox(缺少數(shù)據(jù)！,請(qǐng)輸入系別) () returnend if//專業(yè)if =OR isNULL()then messagebox(缺少數(shù)據(jù)！,請(qǐng)輸入專業(yè)) () returnend if//ls_studid=long()ls_name=trim()ls_sex=trim()ls_depart=trim()ls_speciality=trim()ls_remark=trim()//判斷是否重號(hào)select into :ls_studid2from studentwhere =:ls_studid。if ls_studid20 then messagebox(出錯(cuò)信息,學(xué)生編號(hào)第+string(ls_studid2)+號(hào)重號(hào)！請(qǐng)改正！) () returnend if//添加學(xué)生信息insert into student(stud_id,name,sex,depart,speciality,remark)values(:ls_studid,:ls_name,:ls_sex,:ls_depart,:ls_speciality,:ls_remark)。//判斷是否添加成功select into :ls_studid3from studentwhere =:ls_studid。if ls_studid30 then messagebox(提示,學(xué)生信息添加成功！) () ()else messagebox(提示,添加失??！)end ifstring ls_studentidls_studentid= trim ()if not ls_studentid= then ls_studentid = % + ls_studentid + % (ls_studentid)//檢索數(shù)據(jù)放入dw_1中else MessageBox (查詢出錯(cuò),請(qǐng)輸入要查詢的書本名稱)end ifstring ls_studentnamels_studentname= trim ()if not ls_studentname= then ls_studentname = % + ls_studentname + % (ls_studentname)//檢索數(shù)據(jù)放入dw_1中else MessageBox (查詢出錯(cuò),請(qǐng)輸入要查詢的書本名稱)end if()string ls_studentdepartls_studentdepart= trim ()if not ls_studentdepart= then ls_studentdepart = % + ls_studentdepart + % (ls_studentdepart)//檢索數(shù)據(jù)放入dw_1中else MessageBox (查詢出錯(cuò),請(qǐng)輸入要查詢的書本名稱)end if()
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1