【文章內容簡介】 維護 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. 信息 打印 模塊 信息打印模塊主要用于各種信息資料報表的查看和打印。 （ 1） 打開項目管理器，選擇文檔選項卡，選擇表單 選項，然后單擊新建按鈕創(chuàng)建新的表單“打印表單 .SCX” ,在彈出的對話框中單擊新建按鈕，打開表單設 計器窗口進行表 單設計。 （ 2）在表單中 添加 5 個命令按鈕并對其屬性進行設置如下： 控件 表單屬性 取值 Form Caption 打印信息 Command1 Caption 典藏圖書信息 Command2 Caption 讀者借閱信息 Command3 Caption 讀者類型 Command4 Caption 新書征訂數據 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 征訂數據報表 preview (5)Command5 按鈕的 click 事件： if messagebox(是否退出打印信息？ ,36,打印信息 )=6 endif 系統維護 模塊 系統維護模塊主要功能是管理員對系統進行管理。只有權限為 0 的 管理員才有資格使用該功能，如果非管理員（即權限為 1）則該功能不可使用。從而維護了系統的穩(wěn)定和安全。該模塊中管理員可以對讀者用戶的信息進行修改、增加、刪除，以及找回用戶密碼等操作。同時還可以對典藏圖書 信息進行修改，和征訂新圖書。 進入系統維護功能界面的設計 通過該界面管理員可以選擇所要進行的操作， 并進入響應功能界面。 （ 1） 打開項目管理器，選擇文檔選項卡，選擇表單 選項，然后單擊新建按鈕創(chuàng)建新的表單“系統維護 .SCX” ,在彈出的對話框中單擊新建按鈕，打開表單設 計器窗口進行表單設計。 （ 2）表單中 添加 5 個按鈕并對其屬性進行設置如下： (1)Command1 按鈕的 click 事件代碼： do form 讀者信息管理 (2)Command2 按鈕的 click 事件代碼： do form 圖書借閱管理 河南理工大學萬方科技學院 16 (3)Command3 按鈕的 click 事件代碼： do form 典藏圖書管理 (4)Command4 按鈕的 click 事件代碼： do form 圖書征訂 (5)Command5 按鈕的 click 事件代碼： if messagebox(是否退出系統管理？ ,36,系統管理 )=6 endif 典藏圖書管理 界面的設計 在該界面管理員可以對典藏圖書信息進行修改、增加、刪除操作。 （ 1） 打開項目管理器，選擇文檔選項卡，選擇表單 選項，然后單擊新建按鈕創(chuàng)建新的表單“典藏圖書管理 .SCX” ,在彈出的對話框中單擊表單向導按鈕，打開向導選取窗口，選擇表單向導來進行表單設計 ，如圖： （ 2）在向導的數據庫和表中選擇 ，讓后在可用字段中選擇所有字段，將它們添加到選定字段欄中，如下圖所示： （ 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