設(shè)計(jì)表單答案.doc

第一題：1、創(chuàng)建對(duì)象 ：Form1，Label1，Command1 ，Command2，2、修改屬性：（1） Form1的Caption屬性改為登錄，MinButton屬性改為.f.MaxButton屬性改為.f.Closable屬性改為.f.AutoCenter屬性改為.t.(2) Label1的Caption 屬性改為請(qǐng)輸入口令： Label1的BackStyle屬性改為0-透明， Label1的Fontname屬性改為隸書(shū)， Label1的FontSize 屬性改為18 Label1的FontBold屬性改為.T.(3) Command1的Caption屬性改為確定E，F(xiàn)ontBold屬性改為.T.，Default屬性改為.T. （4） Command2的Caption屬性改為取消C，F(xiàn)ontBold屬性改為.T.，Cancel屬性改為.T.（5） Text1的PassWordChar屬性改為* 3、編寫(xiě)事件代碼(1) Form1的Activate或Init事件:Thisform.Text1.setFocus(2) Command1的Click事件If alltrim(thisform.text1.value)=abc=messagebox(口令測(cè)試，0+64+0，謝謝，歡迎使用!)thisform.releaseelse =messagebox(口令測(cè)試，0+64+0，口令錯(cuò)，請(qǐng)核對(duì)后重新輸入！)Thisform.Text1.value=Thisform.Text1. setFocusendif(3) Command2的Click事件Thisform.Text1.value=Thisform.Text1. setFocus第二題：1、 新建表單，打開(kāi)“表單設(shè)計(jì)器”添加兩個(gè)標(biāo)簽、一個(gè)組合框、一個(gè)命令按鈕；2、 添加表單數(shù)據(jù)環(huán)境：把科目表（kmye.dbf）添加到表單數(shù)據(jù)環(huán)境中：3、 設(shè)置屬性：修改表單Form1的屬性： 自動(dòng)居中（AutoCenter）改為：.T.真 標(biāo)題（Caption）改為：查詢修改標(biāo)簽Label1的屬性： 自動(dòng)大?。ˋutoSize）改為：.T.真 標(biāo)題(Caption) 改為：會(huì)計(jì)科目查詢 字號(hào)（FontSize）改為：20 字體（FontName）改為：楷體GB_2312修改標(biāo)簽Label2的屬性： 自動(dòng)大小（AutoSize）改為：.T.真 標(biāo)題(Caption) 改為：請(qǐng)輸入要查詢的科目代碼： 字號(hào)（FontSize）改為：16 字體（FontName）改為：楷體GB_2312修改組合框（Combo1）的屬性： 數(shù)據(jù)值源的類(lèi)型（RowSourceType）改為：6字段 數(shù)據(jù)值源的源（RowSource）改為：kmye.科目代碼修改命令按鈕Command1的屬性： 標(biāo)題(Caption) 改為：查詢4、 編寫(xiě)事件代碼命令按鈕Command1的Click的事件代碼：a=Tbo1.ValueSelect kmye.* From kmye Where kmye.科目代碼=Alltrim(a)第三題：1、創(chuàng)建對(duì)象 ：Form1，Label1，Command1 ，Command2，Timer1 2、修改屬性：（1）Form1的Caption屬性改為電子標(biāo)題板， Form1的MinButton屬性改為.F. Form1的MaxButton屬性改為.F. (2) Label1的Caption 屬性改為熱烈歡迎 Label1的Fontname屬性改為隸書(shū)， Label1的FontSize 屬性改為36 Label1的FontBold屬性改為.T.（3）Command1的Caption屬性改為開(kāi)始S Command1的FontBold屬性改為.T.（4）Command2的Caption屬性改為結(jié)束= Thisform.WidthThisform.Label1.Left=0 ENDIF（2）Command1的Click事件Thisform.Timer1.Enabled=.T.（3）Command2的Click事件Thisform.Timer1.Enabled=.F.第四題：1、創(chuàng)建對(duì)象 ：Form1，Label1，Text1，OptionGroup1， Check1，Check2，Check3，Command1 2、修改屬性：（1） Form1的Caption屬性改為文本設(shè)置， Form1的MinButton屬性改為.F. Form1的MaxButton屬性改為.F. Form1的Closable屬性改為.F.(2) Label1的Caption 屬性改為請(qǐng)輸入文本內(nèi)容： Label1的Fontname屬性改為隸書(shū)， Label1的FontSize 屬性改為18 Label1的FontBold屬性改為.T.(3) Text1的Fontname屬性改為宋體， Label1的FontSize 屬性改為12（4） Check1的Caption屬性改為粗體（5） Check2的Caption屬性改為斜體（6） Check3的Caption屬性改為下劃線（7） OptionGroup1的ButtonCount屬性改為3 Option1的Caption屬性改為紅色 Option2的Caption屬性改為綠色 Option1的Caption屬性改為藍(lán)色（8）Command1的Caption屬性改為關(guān)閉Q3、編寫(xiě)事件代碼（1） Command1的Click事件Thisform.Release (2) OptionGroup1的Click事件 DO CASE CASE THIS.VALUE=1 Thisform.Text1.ForeColor=RGB(255,0,0) CASE THIS.VALUE=2 Thisform.Text1.ForeColor=RGB(0,255,0) CASE THIS.VALUE=3 Thisform.Text1.ForeColor=RGB(0,0,255) ENDCASE (3) Check1的Click事件 IF THIS.VALUE=1 Thisform.Text1.FontBold=.T. ELSE Thisform.Text1.FontBold=.F. ENDIF(4) Check2的Click事件 IF THIS.VALUE=1 Thisform.Text1.FontItalic=.T. ELSE Thisf