用vf開(kāi)發(fā)的學(xué)生信息管理系統(tǒng)實(shí)用經(jīng)典畢業(yè)論文(編輯修改稿)
2025-07-20 14:23 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 的click事件添加如下的代碼:ith thisformsele studentslocate for allt(學(xué)號(hào))=allt(.)if allt(學(xué)號(hào))==allt(.)replace 學(xué)號(hào) with allt(.),姓名 with allt(.),郵政編碼 with allt(.),。出生日期 with .,入學(xué)時(shí)間 with .,籍貫 with allt(.),。家庭住址 with allt(.),身份證號(hào)碼 with allt(.),性別 with allt(.),。政治面貌 with allt(.),備注 with allt(.)if !pictemp==wait windows 正在導(dǎo)入相片，請(qǐng)等待！....... at 100,40 timeout 2 nowaitappend general 照片 from amp。pictempendifendifsele lslocate for allt(學(xué)號(hào))=allt(.)if allt(學(xué)號(hào))==allt()replace 學(xué)號(hào) with ,姓名 with ,郵政編碼 with ,。出生日期 with ,入學(xué)時(shí)間 with ,籍貫 with ,。家庭住址 with ,身份證號(hào)碼 with ,性別 with ,。政治面貌 with ,備注 with ,照片 with endifpictemp==.f.endwith 學(xué)生信息查詢“定位查詢”按鈕的click事件添加如下的代碼if allt()==messagebox(請(qǐng)輸入學(xué)號(hào)或姓名！,64,提示)elsesele stulslocate for allt(學(xué)號(hào))=allt()。.(姓名)=allt()if found()go re()elsewait window at 18,38 nowait 39。沒(méi)有找到你要查詢的信息！39。endifendif“第一個(gè)”按鈕的click事件添加如下的代碼sele stulsskip 1if bof()=.f.=.f.messagebox(已經(jīng)到第一條記錄了！,64,提示)go topelsego re()endif=.t.=.t.“單個(gè)查詢”按鈕的click事件添加如下的代碼nxx=1do form xxxg“增加”按鈕的click事件添加如下的代碼set order to tagset safety offif alltrim()==messagebox(系名為空，請(qǐng)輸入！,64,提示)elselocate for =alltrim()if .()messagebox(系名已經(jīng)存在，請(qǐng)重新輸入！,48,提示)=elseappend blankreplace with alltrim()=endif amp。amp。重新顯示list列表=endif“刪除”按鈕的click事件添加如下的代碼Set safety offif ==取消==.f.=.f.=刪除=.t.=修改elseif alltrim()==messagebox(缺少完整信息，無(wú)法刪除！,0+48,警告)else=alltrim()nn=messagebox(是否確定刪除此系單位,其所屬的專業(yè)班級(jí)的數(shù)據(jù)庫(kù)都將刪除！,1+48,警告)if nn==1t=0use data\deandmago topdo while .()if alltrim(系)==alltrim()deletepackt=1endifskipenddoif t==0messagebox(將刪除的內(nèi)容不存在，請(qǐng)重新輸入。,60,提示)endifendif= amp。amp。重新顯示List列表=alltrim()endifendif“增加”按鈕的click事件添加如下的代碼set order to tagset safety offif alltrim()==messagebox(班級(jí)名為空，請(qǐng)輸入！,64,提示)elselocate for =alltrim()if .()messagebox(班級(jí)名已經(jīng)存在，請(qǐng)重新輸入！,48,提示)=elselocate for =alltrim()if alltrim()==replace with alltrim()elseappend blankreplace with alltrim()replace with alltrim()replace with alltrim()endif=endif amp。amp。重新顯示list列表=endif“刪除”按鈕的click事件添加如下的代碼Set safety offif ==取消==.f.=.f.=刪除=.t.=修改elseif alltrim()
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1