【正文】 （ 2） 將“ ”、 “ ” 、“ ”、 “ ”河南理工大學萬方科技學院 21 數(shù)據(jù)表添加到該表單的數(shù)據(jù)環(huán)境中。在表格中點擊某行，相應的圖書條碼會自動填充在圖書條碼框中，點擊相應的按鈕即可進行各種操作。 河南理工大學萬方科技學院 20 同 一樣利用表單向?qū)Вx擇 建立 ”圖書征訂 .scx”.如下圖所示： 圖書 借閱管理 界面的設計 該界面管理員可以對讀者的借閱信息進行修改，可以進行借書、還書、續(xù)借等功能。 同 一樣利用表單向?qū)?，選擇 建立 ”讀者信息管理 .scx”.如下圖所示： 河南理工大學萬方科技學院 19 讀者種類管理界面的設計 在該界面管理員可以對讀者種類信息進行修改、查閱等操作。 （ 1） 打開項目管理器，選擇文檔選項卡，選擇表單 選項，然后單擊新建按鈕創(chuàng)建新的表單“典藏圖書管理 .SCX” ,在彈出的對話框中單擊表單向?qū)О粹o，打開向?qū)нx取窗口，選擇表單向?qū)磉M行表單設計 ，如圖： （ 2）在向?qū)У臄?shù)據(jù)庫和表中選擇 ，讓后在可用字段中選擇所有字段，將它們添加到選定字段欄中，如下圖所示： （ 3）單擊 finish 按鈕，完成表單的創(chuàng)建，創(chuàng)建的表單如下圖： 河南理工大學萬方科技學院 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 河南理工大學萬方科技學院 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）實現(xiàn)表單的動態(tài)閃現(xiàn)效果。 （ 1） 打開項目管理器，選擇文檔選項卡，選擇表單 選項，然后單擊新建按鈕創(chuàng)建新的表單“系統(tǒng)維護 .SCX” ,在彈出的對話框中單擊新建按鈕，打開表單設 計器窗口進行表單設計。同時還可以對典藏圖書 信息進行修改，和征訂新圖書。從而維護了系統(tǒng)的穩(wěn)定和安全。 （ 2）在表單中 添加 5 個命令按鈕并對其屬性進行設置如下： 控件 表單屬性 取值 Form Caption 打印信息 Command1 Caption 典藏圖書信息 Command2 Caption 讀者借閱信息 Command3 Caption 讀者類型 Command4 Caption 新書征訂數(shù)據(jù) Command5 Caption 關閉 (1)Command1 按鈕的 click 事件： report form 典藏圖書信息 preview (2)Command2 按鈕 的 click 事件： report form 讀者借閱記錄 preview 河南理工大學萬方科技學院 15 (3)Command3 按鈕的 click 事件： report form 讀者類型 preview (4)Command4 按鈕的 click 事件： report form 征訂數(shù)據(jù)報表 preview (5)Command5 按鈕的 click 事件： if messagebox(是否退出打印信息？ ,36,打印信息 )=6 endif 系統(tǒng)維護 模塊 系統(tǒng)維護模塊主要功能是管理員對系統(tǒng)進行管理。使主表單播放音樂 （ 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)維護 endif Command5 按鈕的 click 事件代碼： do form 關于 Command6 按鈕的 click 事件代碼： clear events quit （ 3） Timer1 控件的 timer 事件： =time() （ 4） movie1 的 init 事件： =sys(5)+sys(2021)+\ =.t. =.t. （ 5） 在 Page1 中 （ page1 主要用于讀者對圖書資料的查詢）： （ a） Command1 按鈕的 click 事件： SELECT storebibli DO CASE case =條碼 set filter to = case =索書號 set filter to = case =書名 河南理工大學萬方科技學院 13 set filter to = case =作者 set filter to = case =出版社 set filter to = ENDCASE （ b） Command2 按鈕的 click 事件代碼： （ c） Command3 按鈕的 click 事件代碼： =.F. （ 6） 在 Page2 中 （ page2 主要用于讀者對讀者個人信息的查詢）： （ a） Command1 按鈕的 click 事件代碼： select 讀者借閱記錄 do case case =證號 set filter to =讀者借閱記錄 .證號 case =姓名 set filter to =讀者借閱記錄 .姓名 case =類號 set filter to =讀者借閱記錄 .類號 case =部門 set filter to =讀者借閱記錄 .部門 case =時間 set filter to =讀者借閱記錄 .時間 endcase 河南理工大學萬方科技學院 14 （ b） Command2 按鈕的 click 事件代碼： （ c） Command3 按鈕的 click 事件代碼： =.F.