【正文】
(0,FALSE) //加亮當(dāng)前行 ((),TRUE) class=[()] (SQLCA) (class) cb_1clicked PrintSetup() cb_2clicked Datawindow dw_dy Dw_dy=dw_1 Openwithparm(w_print_preview,dw_dy) cb_3clicked Datawindow dw_dy Dw_dy=dw_1 Openwithparm(w_print_a4,dw_dy) cb_4clicked Close(aprent) 十,用戶權(quán)限管理 1. 表 u結(jié)構(gòu) 表 u包括列: uno、 char(4), uname、 char(8), password、 char(6), u、 tinyint, s、 tinyint,c、 tinyint, sc、 tinyint。其中, uno為主鍵。 2權(quán)限分配 利用表 u中的 u、 s、 c、 sc字段值為 3分別表示無(wú)、查詢、編輯三種權(quán)限。 修改菜單 m_main: 用戶管理 學(xué)生管理 課程管理 選課管理 系統(tǒng)維護(hù) 增加 增加 增加 按學(xué)生 幫助 刪除 刪除 刪除 按課程 修改密碼 修改 修改 修改 退出 查詢 查詢 查詢 w_main窗口 open事件腳本 int u,s,c,sc select u,s,c,sc into :u,:s,:c,:sc from u where uno=:g_uno。 if =0 then if u=1 then .enabled=false elseif u=2 then .m_增加 =false .m_刪除 =false .m_修改 =false end if if s=1 then .enabled=false elseif s=2 then .m_增加 .enabled=false .m_刪除 .enabled=false .m_修改 .enabled=false end if if c=1 then .enabled=false elseif c=2 then .m_增加 =false .m_刪除 =false .m_修改 =false end if if sc=1 then .enabled=false end if end if w_sc_1窗口 open事件腳本 int sc select sc into :sc from u where uno=:g_uno。 if =0 then if sc=2 then =false =false =false end if end if w_sc_2窗口 open事件腳本 int sc select sc into :sc from u where uno=:g_uno。 if =0 then if sc=2 then =false =false =false end if end if a)在 ” m_main” 窗口中 在 ” w_main” 窗口中 當(dāng) s=1,u=2,c=3,sc=1時(shí)執(zhí)行結(jié)果如圖所示 實(shí)踐報(bào)告心得 通過(guò)這次課程設(shè)計(jì),使我對(duì)這學(xué)期所學(xué)的知識(shí)有了一個(gè)整體的回顧, 在莊老師的指導(dǎo)和同學(xué)的幫 助下,使我會(huì)運(yùn)用 數(shù)據(jù)庫(kù)的連接技術(shù),全面的會(huì)做一個(gè)簡(jiǎn)單的學(xué)生選課管理系統(tǒng) ,會(huì)使用 PB開(kāi)發(fā)工具,使我有了很大的提高,我在以后會(huì)更加努力去學(xué)好數(shù)據(jù)庫(kù)的開(kāi)發(fā)。