【数据库】实验三 PB程序

计算圆面积应用程序

cb1_Clicked源码：

Decimal r
r=Dec(sle_1.text)
sle_2.text=String(3.1415926*r*r)

计算器程序

数字、小数点代码：

IF flag THEN
    sle_1.text=""
    flag=false
END IF
sle_1.text=sle_1.text+THIS.text

等于代码：

CHOOSE CASE s1
        CASE'*'
            sle_1.text=String(dec(sle_1.text)*add1)
        CASE'/'
            sle_1.text=String(add1/dec(sle_1.text))
        CASE'+'
            sle_1.text=String(dec(sle_1.text)+add1)
        CASE'-'
            sle_1.text=String(add1 - dec(sle_1.text))
    END CHOOSE
    flag=true
    s1=''

运算符代码：

CHOOSE CASE s1
        CASE'*'
            sle_1.text=String(dec(sle_1.text)*add1)
        CASE'/'
            sle_1.text=String(add1/dec(sle_1.text))
        CASE'+'
            sle_1.text=String(dec(sle_1.text)+add1)
        CASE'-'
            sle_1.text=String(add1 - dec(sle_1.text))
    END CHOOSE
    Add1=dec(sle_1.text)
    s1=THIS.text
    flag=true

清除代码：

sle_1.text=""
Add1=0
s1=''
flag=true

创建ASA数据库

连接SQL SERVER 数据库

在数据库中创建表、指定关键字

在数据库中输入数据