【正文】
學(xué)生成績錄入專業(yè)管理用戶管理修改密碼退出系統(tǒng)班級管理學(xué)生班級管理學(xué)生信息管理學(xué)生信息錄入學(xué)生信息錄入學(xué)生信息錄入課程管理學(xué)生信息管理系統(tǒng)登錄系統(tǒng)主界面5系統(tǒng)詳細(xì)設(shè)計(jì)(1),見表1表1字段名數(shù)據(jù)類型備注班級Char(8)主鍵Not null系Char(10)Not null專業(yè)Char(14)Not null(2),見表2表2字段名數(shù)據(jù)類型備注學(xué)號Char(8)主鍵Not null班級Char(10)Not null課程Char(18)Not null成績Int (5)Not null學(xué)期Char(2)Not null備注MemoNull(3),見表3表3字段名數(shù)據(jù)類型備注班級Char(8)主鍵 Not null學(xué)號Char(8)Not null姓名Char(8)Not null性別Char(6)Not Null出生日期DatetimeNull政治面貌Char(8)Null身份證號碼Char(16)Null入學(xué)時(shí)間DatetimeNull籍貫Char(16)Null家庭住址Char(28)Null郵政編碼Char(6)Null照片GeneralNull備注MemoNull(4).dbf,見表4表4 用戶信息表 字段名數(shù)據(jù)類型備注姓名Char(8)主鍵 Not null密碼Char(6)Not null標(biāo)識LogicalNot null“進(jìn)入”按鈕的click事件添加如下的代碼:sele yonghuif allt()==messagebox(left(allt(),6)+為空,請輸入!,64,提示)elseif allt()==messagebox(密碼為空,請輸入!,64,提示)elsen=n+1locate for allt(姓名)=allt()。.and. allt(密碼)=allt()if found()if ==1 .and. 標(biāo)識checked=1do elseif ==.!標(biāo)識messagebox(你不是管理員!,48,警告)=0elsechecked=0cyonghu=allt(姓名)cmima=allt(密碼)do endifendifelseif n=3messagebox(你不是合法用戶,請與管理員聯(lián)系!,48,警告)clear eventquitelsemessagebox(left(allt(),6)+或密碼錯(cuò)誤,請重新輸入!,64,提示)==endifendifendifendif“取消”按鈕的click事件添加如下的代碼nr=messagebox(你選擇了退出登錄,是否退出?,68,用戶登錄)if nr=6quitendif“增加”按鈕的click事件添加如下的代碼:if ==增加if(==(選擇)).or.(alltrim()==)。.or.(alltrim()==)messagebox(班級、學(xué)號和姓名必須填充!!,64,提示)elselocate for alltrim()=alltrim()if !eof()=messagebox(此學(xué)號已經(jīng)存在,請重新輸入!,64,提示)=elsesele studentsappend blankreplace 班級 with alltrim(),學(xué)號with alltrim()。姓名 with alltrim(),出生日期with ctod(alltrim())。入學(xué)時(shí)間 with ctod(alltrim()), 籍貫with alltrim()。家庭住址 with alltrim(),身份證號碼with alltrim()。備注 with alltrim(),郵政編碼 with alltrim()if alltrim()==replace 性別 with alltrim()elsereplace 性別 with alltrim()endifif alltrim()==replace 政治面貌 with alltrim()elsereplace 政治面貌 with alltrim()endifamp。amp。 if .()==if !pictemp==wait windows 正在導(dǎo)入相片,請等待!....... at 100,40 timeout 2 nowaitamp。amp。 pictemp=append general from amp。pictempendifpictemp==繼續(xù)endifendifelse=增加endif 學(xué)生信息修改“修改”按鈕