個人名片管理系統(tǒng)(參考版)
2024-09-11 09:15本頁面
【正文】 感到不足的是，這次課程設(shè)計實現(xiàn)的系統(tǒng)過于簡單， 功能不夠完善， 離老師的要求還有一定的距離。 七、心得體會 這是繼兩個學(xué)期的數(shù)據(jù)庫學(xué)習(xí)后，完成的第一個課程設(shè)計。 接下來，用戶就可以根據(jù)自 己所擁有的權(quán)限來進行相應(yīng)的操作了。 當進入系統(tǒng)后，系統(tǒng)就會根據(jù)登錄用戶已有的權(quán)限初始化界面，主要是通過菜單是否可用來實現(xiàn)的。 7 創(chuàng)建用戶窗口 w_users 系統(tǒng)管理員使 用該窗口可以刪除或者新建用戶，可以修改用戶的口令、名稱等，普通用戶使用該窗口可以修改自己的口令。該窗口界面如 下 圖所示。% + ls_data + %39。 and 39。.dbname39。39。 //對應(yīng)的 SQL 語句 () //避免 dw_1 中最后輸入的內(nèi)容被遺漏。窗口界面如下圖所示： 主要 腳本如下： 在‘查詢’命令按鈕的 Clicked 事件上編寫如下腳本： String ls_data //保存用戶輸入的數(shù)據(jù) String ls_ColName //保存列名 integer li_index //循環(huán)變量 18 String ls_sql = 39。 where 39。where39。where39。 return 1 end if end if case 2 //不保存 rollback。,amp。數(shù)據(jù)錯誤，不能保存。提示 39。,Question!,YesNoCancel!,1) choose case li_flag case 1 //保存 if () = 1 then mit。,39。 主要腳本如下： 在窗 口的 Open 事件中編寫如下腳本： (SQLCA) 在窗口的 CloseQuery 事件中編寫如下腳本： integer li_flag if () + () 0 then li_flag = MessageBox(39。然后開始編寫腳本 。 //只能修改自己的口令 end if idle(100) //設(shè)置觸發(fā) Application 對象 idle 事件的時限為 100 秒 end if 3 創(chuàng)建名片錄入窗 口 w_mp_input 新建一個窗口，然后在窗口上放置 1 個 DataWindow 控件、 6 個CommandButton 控件，按照 下 圖 安排控件的布局并 設(shè)置各個控件及窗口的屬性 。 then //如果不是系統(tǒng)管理員 =39。 then //沒有查詢權(quán)限 =False //名片查詢菜單不可用 end if if Lower(gs_userid)39。 then //沒有修改權(quán)限 =False //名片修改菜單不可用 end if if Mid(ls_temp,3,1)=39。 then //沒有錄入權(quán)限 =False //名片錄入菜單不可用 end if if Mid(ls_temp,2,1)=39。 if Mid(ls_temp,1,1)=39。 then //如果沒有登陸成功 halt close。 在ue_open 事件中編寫如下 腳本： string ls_temp 15 Open(w_login) //打 開登陸窗口 ls_temp= //接受登陸窗口的返回信息 if ls_temp39。ue_open39。 2 主窗口的建立 主窗口 w_main 打開時，應(yīng)該讓用戶輸入登錄信息，如果登錄成功則根據(jù)用戶的權(quán)限初始化用戶界面。 () end if 保存窗口。 =39。 =39。ok39。 if li_count0 then gs_userid=ls_userid select username into :gs_username from users where userid=:ls_userid。為了控制用戶嘗試登錄的次數(shù)，需要定義窗口實例變量，用來記錄用戶嘗試的次數(shù)： integer ii_count = 3 當用戶在 sle_userid 中輸入內(nèi)容，并且回車之后，應(yīng)該將焦點切換到sle_password 上，以便用戶繼續(xù)輸入登錄口令。O. 確 定 窗口 Title 系統(tǒng)登錄 WindowType Response 設(shè) 計完用戶界面后，首先保存一下我們的工作，命名為 w_login。然后按照表 1 設(shè)置控件及窗口的相關(guān)屬性 ： 控件 屬性 取值 st_1 Text 用戶標志 ： st_2 Text 登錄口令： 用戶標志右側(cè)的 SingleLineEdit Name sle_userid 登錄口令右側(cè)的 SingleLineEdit Name sle_password Password 選中該屬性 取消 Name cb_cancel Text amp。所以，登錄窗口采用 Response 類型的窗口。保存我們的工作 。 菜單占用空間很小，但是可以 執(zhí)行的命令卻可以非常多。39。000039。000039。39。000039。39。),6) ls_AgrSn = Right(as_bh,4) //從數(shù)據(jù)庫中選擇當天最大的編號 select max(bh) into :ls_Dbsn from mpgl where substring(bh,1,6) = :ls_part1。 *
公司管理相關(guān)推薦
鄂ICP備17016276號-1