1. <small id="kntrr"><delect id="kntrr"></delect></small>
    2. <sub id="kntrr"></sub>
        1. <form id="kntrr"><listing id="kntrr"></listing></form>
            江蘇省高校計算機等級考試命題研究院 江蘇省高校計算機等級考試輔導
            2001年秋VFP上機卷部分疑難操作答案

            2001年秋VFP上機卷部分疑難操作答案

            ***試卷VFP01

            項目與數據庫操作

            1.(3)出生日期的年份必須在1985年之前:

            year(csrq)<=1985(用這種形式是包括1985年,因為試題中含有1985年的記錄)

            year(csrq)< 1985 (用這種形式不包括1985年,在確定時,把對話框中的勾去掉,即不用此規則對照表中現有記錄)

            3.  將性別字段的“男”、“女”分別改為“01”、“02

            在“表”菜單中選擇替換字段,然后按如下設置:

            或在命令窗口中輸入:repl all xb with “01” for xb=

            repl all xb with “02” for xb=

            查詢

            1chaxuna:  查詢籍貫為非江蘇的學生,在篩選中進行如下設置:

            字段名

            條件

            實例

            xs.jg

            =

            “江蘇”


            2.  chaxunb:
            做好后,運行一下,其結果得從“顯示”菜單的“瀏覽tmp”中來看。

            菜單

            2 “學生信息”菜單項的過程代碼是:

            use xs.dbf

                 browse

            表單

            2 基本工資的顯示格式:在基本工資文本框的InputMask屬性中輸入:999,999.99

            3.  其實這里指的就是熱鍵:在命令按Caption屬性中加上(\)就可以了。

               5 “新增”按鈕的代碼是:

            append blank

            thisform.refresh

               6 工齡文本框的校驗代碼:

            if !between(this.value,1,50)

                   wait window "數據輸入不合法!"

                   return 0

            endif

            **** 試卷VFP02

            項目與數據庫操作:

              1.(5XS表的刪除觸發器: 這題的表達式比較復雜,如果想確切表達的話,應該是:

            year(date())-val(iif(left(xh,1)=0,“20”,19)+left(xh,2))>5

            如果不嚴格的話,可以簡化成: year(date())-val(19 +left(xh,2))>5

              3 這題與第一套試卷類似:

             repl all xh with “19”+xh  for left(xh,1)=”9”

            repl all xh with “20”+xh  for left(xh,1)=”0”

            菜單

              3. “統計學生人數”的過程代碼是:

            public x

            use xs.dbf

            x=str(reccount())

            wait window x

              4. “退出”菜單的代碼是:set sysmenu to defa

            表單

             4LIST1DblClick事件代碼:

            Thisform.LIST2.ADDLISTITEM(Thisform.LIST1.VALUE)

            Thisform.LIST1.REMOVELISTITEM(Thisform.LIST1.LISTITEMID)

             5LIST2DblClick事件代碼:

            Thisform.LIST1.ADDLISTITEM(Thisform.LIST2.VALUE)

            Thisform.LIST2.REMOVELISTITEM(Thisform.LIST2.LISTITEMID)

             6>”按中增加的代碼

            IF Thisform.LIST1.LISTCOUNT=0

               This.ENABLED= .f.

            ENDIF

            <”按中增加的代碼

            IF Thisform.LIST2.LISTCOUNT=0

               This.ENABLED= .f.

            ENDIF

             

            **** 試卷VFP03

            和前兩份試卷基本相同。

             

            **** 試卷VFP04

            查詢

            2 其中的孤立記錄用右連接,在篩選中進行如下設置(“條件”中可以用 = in )

            字段名

            條件

            實例

            Cj.xh

            in

            Xs.xh


                
            并在“雜項”中把“無重復記錄”勾上。

            表單

            5.“確定”按的代碼(試卷中已給了答案):

            IF EMPTY(Thisform.Text1.Value)

               SET FILTER TO

            ELSE

               SET FILTER TO XH=ALLT(Thisform.Text1.Value)

            ENDIF  

            Thisform.Refresh()

            6.在表格第一列的Header1DblClick事件中的代碼:

            set order to xsxh

            thisform.refresh

             

            *** 試卷VFP05  、 試卷VFP06

            與前面的基本相同。

             

            *** 試卷VFP07

            一. 項目與數據庫

             1.(2)在表的驗證規則中寫:iif(xf>=3,bxk=.t.,bxk=.f.)

            注意:點確定按時把對話框中的勾去掉。

            3 和前面的類似,但要注意:

            repl all kcm with alltrim(kcm)+”*” for bxk=.t.

            查詢

            1.    輸出字段為: left(xs.xm,2)  as  姓氏

                             conut(*)  as 人數

            分組條件是姓氏, 排序條件兩個: 人數  姓氏

            在“雜項”中把“全部”前面的勾去掉,在下面的微調框里選擇10。

            2.    輸出字段為: int(cj/10)*10  as 分數段

                              conut(cj.cj)  as 人數

            篩選條件是: xs.zydh=”110002  and  cj.kcdh=”01”

            分組條件是: 分數段

            排序條件是: 分數段

            表單

            1.組合框的RowSourseType為字段

            3.選中表格,將ScrollBar屬性改為2——垂直

            4.表格的Init事件代碼:this.column5.dynamicforeColor="iif(cj.cj<60,rgb(255,0,0),rgb(0,23,0))"

            5.“計算”按的代碼:

            sele cj

            count to a1 for cj>=90

            count to a2 for cj<90.and.cj>=80

            count to a3 for cj<60

            thisform.text1.value=a1

            thisform.text2.value=a2

            thisform.text3.value=a3

            国产在线精品一区二区三区不卡_亚洲第一极品精品无码_永久免费无码网站在线观看_亚洲av综合日韩