圖書管理系統(tǒng)設(shè)計

1、任務(wù)分析任務(wù)分析 添加控件添加控件 設(shè)置屬性設(shè)置屬性 編寫代碼編寫代碼選擇數(shù)據(jù)選擇數(shù)據(jù)環(huán)境環(huán)境條件語句1語句2YNIf If 是是A A顏色顏色 變成變成B B顏色顏色 ElseElse 變成變成A A顏色顏色endifendif添加控件 Timer1 label1設(shè)置屬性Label1 caption fontcaption font* * * * * backstylebackstyleTimer1 Interval(100)Interval(100)編寫代碼 代碼段位置 Timer1 timer 代碼內(nèi)容參見課件P10（思考：哪三個地方需要修改？為什么？）實現(xiàn)閃爍實現(xiàn)閃爍If thisfo

2、rm.label2.forecolor=RGB(255,255,0) thisform.label2.forecolor=RGB(0,134,255) else thisform.label2.forecolor=RGB(255,255,0) endifIf If 還未達到終點線（右邊界）還未達到終點線（右邊界） 向右移動向右移動5 5像素像素ElseElse 回到起跑線（左邊界）回到起跑線（左邊界）endifendifIf If 已經(jīng)達到終點線（右邊界）已經(jīng)達到終點線（右邊界） 回到起跑線（左邊界）回到起跑線（左邊界） ElseElse 向右移動向右移動5 5像素像素endifendif9H

3、eight、width、top和left屬性if if thisform.label1.left thisform.label1.leftthisform.widththisform.width thisform.label1.left=0thisform.label1.left=0elseelsethisform.label1.left=thisform.label1.left+5thisform.label1.left=thisform.label1.left+5endifendif添加控件 Timer2 label2設(shè)置屬性Label2 caption fontcaption font*

4、 * * * * backstylebackstyleTimer2 Interval(10)Interval(10)編寫代碼 代碼段位置 Timer2 timerIf If ? ? ? ?ElseElse ? ?endifendif &用消息框詢問用戶是否要退出 &熟悉messagebox的用法 &標題欄文字，應(yīng)該設(shè)置第？個參數(shù) &消息框中間的提示信息，應(yīng)該設(shè)置第？個參數(shù)ask=messagebox(“確定要退出系統(tǒng)嗎？,4+32+256,學生管理系統(tǒng))if ask=6 close all quitelseendif 添加控件command2設(shè)置屬性Caption (退出)編寫代碼代碼段位置 Command2 click代碼內(nèi)容參見上一頁課件添加控件command1設(shè)置屬性Caption(登錄)編寫代碼代碼段位置