數(shù)據(jù)庫系統(tǒng)原理課程設(shè)計(jì)報(bào)告-圖書館管理系統(tǒng)-文庫吧資料
2025-01-30 08:58本頁面
【正文】 （ 2） 將“ ”、 “ ” 、“ ”、 “ ”河南理工大學(xué)萬方科技學(xué)院 21 數(shù)據(jù)表添加到該表單的數(shù)據(jù)環(huán)境中。在表格中點(diǎn)擊某行，相應(yīng)的圖書條碼會(huì)自動(dòng)填充在圖書條碼框中，點(diǎn)擊相應(yīng)的按鈕即可進(jìn)行各種操作。 河南理工大學(xué)萬方科技學(xué)院 20 同 一樣利用表單向?qū)?，選擇 建立 ”圖書征訂 .scx”.如下圖所示： 圖書 借閱管理 界面的設(shè)計(jì) 該界面管理員可以對(duì)讀者的借閱信息進(jìn)行修改，可以進(jìn)行借書、還書、續(xù)借等功能。 同 一樣利用表單向?qū)?，選擇 建立 ”讀者信息管理 .scx”.如下圖所示： 河南理工大學(xué)萬方科技學(xué)院 19 讀者種類管理界面的設(shè)計(jì) 在該界面管理員可以對(duì)讀者種類信息進(jìn)行修改、查閱等操作。 （ 1） 打開項(xiàng)目管理器，選擇文檔選項(xiàng)卡，選擇表單 選項(xiàng)，然后單擊新建按鈕創(chuàng)建新的表單“典藏圖書管理 .SCX” ,在彈出的對(duì)話框中單擊表單向?qū)О粹o，打開向?qū)нx取窗口，選擇表單向?qū)磉M(jìn)行表單設(shè)計(jì) ，如圖： （ 2）在向?qū)У臄?shù)據(jù)庫和表中選擇 ，讓后在可用字段中選擇所有字段，將它們添加到選定字段欄中，如下圖所示： （ 3）單擊 finish 按鈕，完成表單的創(chuàng)建，創(chuàng)建的表單如下圖： 河南理工大學(xué)萬方科技學(xué)院 17 （ a）在表單 Form 的 init 事件中添加代碼： local formtitle,myvalue formtitle= =sys(2021)+[SetFormAttri] hwnd=FindWindow(0,) =formtitle myvalue=int(rand(second())*10) mytime=200 do case case myvalue=1 mytype=5 case myvalue=2 mytype=9 case myvalue=3 mytype=3 case myvalue=4 mytype=12 case myvalue=5 mytype=8 case myvalue=6 mytype=10 河南理工大學(xué)萬方科技學(xué)院 18 case myvalue=7 mytype=6 case myvalue=7 mytype=8 case myvalue=8 mytype=2 otherwise mytype=16 endcase AnimateWindow(hwnd,mytime,mytype) clear dlls （ b）在 form 的 load 事件中添加代碼： declare integer FindWindow in win32API string lpClassName,string lpWindowName declare integer AnimateWindow in win32API integer hwnd,integer dwTime,integer dwFlags （ a）和（ b）實(shí)現(xiàn)表單的動(dòng)態(tài)閃現(xiàn)效果。 （ 1） 打開項(xiàng)目管理器，選擇文檔選項(xiàng)卡，選擇表單 選項(xiàng)，然后單擊新建按鈕創(chuàng)建新的表單“系統(tǒng)維護(hù) .SCX” ,在彈出的對(duì)話框中單擊新建按鈕，打開表單設(shè) 計(jì)器窗口進(jìn)行表單設(shè)計(jì)。同時(shí)還可以對(duì)典藏圖書 信息進(jìn)行修改，和征訂新圖書。從而維護(hù)了系統(tǒng)的穩(wěn)定和安全。 （ 2）在表單中 添加 5 個(gè)命令按鈕并對(duì)其屬性進(jìn)行設(shè)置如下： 控件 表單屬性 取值 Form Caption 打印信息 Command1 Caption 典藏圖書信息 Command2 Caption 讀者借閱信息 Command3 Caption 讀者類型 Command4 Caption 新書征訂數(shù)據(jù) Command5 Caption 關(guān)閉 (1)Command1 按鈕的 click 事件： report form 典藏圖書信息 preview (2)Command2 按鈕 的 click 事件： report form 讀者借閱記錄 preview 河南理工大學(xué)萬方科技學(xué)院 15 (3)Command3 按鈕的 click 事件： report form 讀者類型 preview (4)Command4 按鈕的 click 事件： report form 征訂數(shù)據(jù)報(bào)表 preview (5)Command5 按鈕的 click 事件： if messagebox(是否退出打印信息？ ,36,打印信息 )=6 endif 系統(tǒng)維護(hù) 模塊 系統(tǒng)維護(hù)模塊主要功能是管理員對(duì)系統(tǒng)進(jìn)行管理。使主表單播放音樂 （ 2） Commandgroup1 中 ： Command1 按鈕的 click 事件： =.T. Command2 按鈕的 click 事件： do form 修改密碼 Command3 按鈕的 click 事件： do form 打印表單 Command4 按鈕的 click 事件： if capp_currentpop=1 =.f. else do form 系統(tǒng)維護(hù) endif Command5 按鈕的 click 事件代碼： do form 關(guān)于 Command6 按鈕的 click 事件代碼： clear events quit （ 3） Timer1 控件的 timer 事件： =time() （ 4） movie1 的 init 事件： =sys(5)+sys(2021)+\ =.t. =.t. （ 5） 在 Page1 中 （ page1 主要用于讀者對(duì)圖書資料的查詢）： （ a） Command1 按鈕的 click 事件： SELECT storebibli DO CASE case =條碼 set filter to = case =索書號(hào) set filter to = case =書名 河南理工大學(xué)萬方科技學(xué)院 13 set filter to = case =作者 set filter to = case =出版社 set filter to = ENDCASE （ b） Command2 按鈕的 click 事件代碼： （ c） Command3 按鈕的 click 事件代碼： =.F. （ 6） 在 Page2 中 （ page2 主要用于讀者對(duì)讀者個(gè)人信息的查詢）： （ a） Command1 按鈕的 click 事件代碼： select 讀者借閱記錄 do case case =證號(hào) set filter to =讀者借閱記錄 .證號(hào) case =姓名 set filter to =讀者借閱記錄 .姓名 case =類號(hào) set filter to =讀者借閱記錄 .類號(hào) case =部門 set filter to =讀者借閱記錄 .部門 case =時(shí)間 set filter to =讀者借閱記錄 .時(shí)間 endcase 河南理工大學(xué)萬方科技學(xué)院 14 （ b） Command2 按鈕的 click 事件代碼： （ c） Command3 按鈕的 click 事件代碼： =.F.
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1