华南俳烁实业有限公司

１、建立一個(gè)網(wǎng)吧管理數(shù)據(jù)庫，文件名為db723.DBC，并輸入數(shù)據(jù)（40分）
該數(shù)據(jù)庫中有兩個(gè)數(shù)據(jù)表： 工作站表（works.DBF）和網(wǎng)站登陸表（logo.DBF）。其數(shù)據(jù)形式如下：
工作站表（WORKS.DBF）
IP地址 區(qū)域
202.202.0.1 2
202.202.0.2 2
202.202.0.11 3
202.202.0.12 3
202.202.1.10 4
202.202.10.18 5
                                   
要求：將數(shù)據(jù)庫中的works.DBF(父表)和logo.DBF（子表）以“IP地址”建立一對多永久關(guān)系。

2、建立程序文件COM-SQL723.PRG，要求將完成下列各小題任務(wù)的VFP數(shù)據(jù)表操作命令或VFP-SQL命令寫在該程序文件中。在程序首行用注釋語句注明考生姓名和準(zhǔn)考證號(hào)，并請用注釋語句標(biāo)注小題號(hào)。（30分）
（1）假定當(dāng)前統(tǒng)計(jì)時(shí)間為2007-09-09  16：00。網(wǎng)站登陸的數(shù)據(jù)流量計(jì)算公式為：登陸的總秒數(shù)，單位KB。請根據(jù)網(wǎng)站登陸的開始、結(jié)束時(shí)間，更新數(shù)據(jù)流量。注意結(jié)束時(shí)間標(biāo)注為ONLINE的應(yīng)取值16:00。時(shí)間跨度限制在24小時(shí)內(nèi)；

1)
use logo
replace all 數(shù)據(jù)流量 with VAL(LEFT(結(jié)束時(shí)間,2))*3600+VAL(RIGHT(結(jié)束時(shí)間))*60;
   -VAL(LEFT(開始時(shí)間,2))*3600-VAL(RIGHT(開始時(shí)間))*60 WHERE 結(jié)束時(shí)間<>"ONLINE"
replace all 數(shù)據(jù)流量 with 16*3600-;
    VAL(LEFT(開始時(shí)間,2))*3600-VAL(RIGHT(開始時(shí)間))*60 WHERE 結(jié)束時(shí)間="ONLINE"

（2）按數(shù)據(jù)流量從高到低的順序顯示IP地址為202.202.0.12工作站的登陸明細(xì)，包括IP地址、區(qū)域、日期、開始時(shí)間、數(shù)據(jù)流量；

2)
select 1
use logo
index on  IP地址 tag address
select 2
use words
set relation to IP地址 into logo
list for IP地址='202.202.0.12' fields IP地址,區(qū)域,logo.日期,logo.開始時(shí)間,logo.數(shù)據(jù)流量

（3）按IP地址分類匯總數(shù)據(jù)流量；

3)
use logo
index on IP地址 tag address
total to hz on IP地址 fields 數(shù)據(jù)流量
use hz
list

3、表單設(shè)計(jì)。按以下要求設(shè)計(jì)程序界面，表單文件名為:FORM723.SCX。（30分）
設(shè)計(jì)如圖所示一個(gè)表單，包括3個(gè)標(biāo)簽，1個(gè)文本框，1個(gè)命令按鈕（各控件的主要屬性參照圖形尺寸自定）。其中：
? 表單的標(biāo)題要顯示考生自己的姓名和考號(hào)；
21 文本框text1的顯示初值為:(無)；
22 該表單運(yùn)行后，可以在文本框text1中反復(fù)輸入一串字符，左鍵單擊“統(tǒng)計(jì)”命令按鈕，則由2個(gè)標(biāo)簽分別顯示字符個(gè)數(shù)（大號(hào)字）和將小寫字母轉(zhuǎn)換為大寫字母后該字符串的內(nèi)容（小號(hào)字）。注意該2標(biāo)簽開始沒有顯示；
23 雙擊表單任意空白處結(jié)束表單程序的運(yùn)行。

界面設(shè)計(jì)（10分）
主要屬性，事件代碼：
標(biāo)簽label1和label2的caption屬性值為空（5分）
”統(tǒng)計(jì)“按鈕的"click"事件：
s=alltrim(thisform.text.value)
thisform.label1.caption=str(len(s))
thisform.label2.caption=upper(s)
表單的"dblclick" 事件
Thisform.release