畢業(yè)設(shè)計---vf學(xué)生信息管理系統(tǒng)-畢業(yè)設(shè)計(編輯修改稿)
2025-02-24 04:54 本頁面
【文章內(nèi)容簡介】 學(xué)期 Char（ 2） Not null 備注 Memo Null （ 3） ，見表 3 表 3 字段名 數(shù)據(jù)類型 備注 班級 Char（ 8） 主鍵 Not null 學(xué)號 Char（ 8） Not null 姓名 Char（ 8） Not null 性別 Char（ 6） Not Null 出生日期 Datetime Null 政治面貌 Char（ 8） Null 身份證號碼 Char（ 16） Null 入學(xué)時間 Datetime Null 籍貫 Char（ 16） Null 家庭住址 Char（ 28） Null 郵政編碼 Char（ 6） Null 照片 General Null 備注 Memo Null (4).dbf，見表 4 6 表 4 用戶信息表 字段 名 數(shù)據(jù)類型 備注 姓名 Char（ 8） 主鍵 Not null 密碼 Char（ 6） Not null 標(biāo)識 Logical Not null 登陸界面設(shè)計 “進入”按鈕的 click事件添加如下的代碼 : sele yonghu if allt()== messagebox(left(allt(),6)+ 為 空 ，請 輸 入 ！,64,提示 ) else if allt()== messagebox(密碼為空，請輸入！ ,64,提示 ) else n=n+1 locate for allt(姓名 )=allt()。 7 .and. allt(密碼 )=allt() if found() if ==1 .and. 標(biāo)識 checked=1 do else if ==.!標(biāo)識 messagebox(你不是管理員！ ,48,警告 ) =0 else checked=0 cyonghu=allt(姓名 ) cmima=allt(密碼 ) do endif endif else if n=3 messagebox(你不是合法用戶，請與管理員聯(lián)系！ ,48,警告 ) clear event quit else messagebox(left(allt(),6)+或密碼錯誤，請重新輸入！ ,64,提示 ) = = endif endif endif endif “取消”按鈕的 click事件添加如下的代碼 nr=messagebox(你選擇了退出登錄，是否退出？ ,68,用戶登錄 ) if nr=6 8 quit endif 學(xué)生信息錄入 “增加”按鈕的 click事件添加如下的代碼 : if ==增加 if(== （選擇）).or.(alltrim()==)。 .or.(alltrim()==) messagebox(班級、學(xué)號和姓名必須填充！！ ,64,提示 ) else locate for alltrim()=alltrim( ) if !eof() =messagebox(此學(xué)號已經(jīng)存在，請重新輸入！ ,64,提示 ) = else sele students append blank replace 班級 with alltrim(), 學(xué)號 with alltrim()。 姓名 with alltrim(), 出生日期 with ctod(alltrim())。 入學(xué)時間 with ctod(alltrim()), 籍貫 with alltrim()。 9 家庭住址 with alltrim(), 身 份 證 號 碼 with alltrim()。 備注 with alltrim(), 郵 政 編 碼 with alltrim() if alltrim()== replace 性別 with alltrim() else replace 性別 with alltrim() endif if alltrim()== replace 政治面貌 with alltrim() else replace 政治面貌 with alltrim() endif amp。amp。 if .()== if !pictemp== wait windows 正在導(dǎo)入相片，請等待！ ....... at 100,40 timeout 2 nowait amp。amp。 pictemp= append general from amp。pictemp endif pictemp= =繼續(xù) endif endif else =增加 endif 學(xué)生信息修改 10 “修改”按鈕的 click事件添加如下的代碼 : ith thisform sele students locate for allt(學(xué)號 )=allt(.) if allt(學(xué)號 )==allt(.) replace 學(xué)號 with allt(.),姓名 with allt(.),郵政編碼 with allt(.),。 出生日期 with .,入學(xué)時間 with .,籍貫 with allt(.),。 家庭住址 with allt(.),身份證號碼 with allt(.),性別 with allt(.),。 政治面貌 with allt(.),備注 with allt(.) if !pictemp== wait windows 正在導(dǎo)入相片，請等待！ ....... at 100,40 timeout 2 nowait append general 照片 from amp。pictemp endif endif sele ls locate for allt(學(xué)號 )=allt(.) if allt(學(xué)號 )==allt( ) replace 學(xué)號 with ,姓名 with ,郵政編碼 with ,。 出生日期 with ,入學(xué)時間 with ,籍貫 with ,。 家庭住址 with ,身份證號碼 with , 11 性別 with ,。 政治面貌 with ,備注 with ,照片 with endif pictemp= =.f. endwith 學(xué)生信息查詢 “定位查詢”按鈕的 click事件添加如下的代碼 if allt()== messagebox(請輸入學(xué)號或姓名！ ,64,提示 ) else sele stuls locate for allt(學(xué)號 )=allt()。 .(姓名 )=allt() if found() go re() else wait window at 18,38 nowait 39。沒有找到你要查詢的信息！ 39。 endif 12 endif “第一個”按鈕的 click事件添加如下的代碼 sele stuls skip 1 if bof() =.f. =.f. messagebox(已經(jīng)到第一條記錄了！ ,64,提示 ) go top else go re() endif =.t. =.t. “單個查詢”按鈕的 click事件添加如下的代碼 nxx=1 do form xxxg 系管理表單設(shè)計 “ 增加”按鈕的 click事件添加如下的代碼 13 set or
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1