PB9.0实验操作说明

1、.实验步骤：一、建立数据库1.创建数据库exam_pb2.建立表 students3.为表students指定主键为“学号”4.向表中输入数据二、建立应用程序1.建立工作空间“练习一”2.建立应用程序“test”3.建数据窗口dw_15.建应用程序窗口w_main6在应用程序窗口中添加控件7.为数据窗口指定目标对象“student” 为主窗口定义标题！ 为控件定义标题！8.为应用程序和控件编写脚本 一定要保存窗口！ 应用程序test脚本：open(w_main) 打开主窗口应用程序窗口w_main的各个脚本： w_main open事件的脚本：SQLCA.DBMS = ODBCSQLCA.Au

2、toCommit = FalseSQLCA.DBParm = Connectstring=DSN=exam_pb;uid=dba;pwd=sqlconnect using sqlca;dw_1.settransobject(sqlca) “增加”命令按钮click事件的脚本：dw_1.insertrow(0)dw_1.setfocus() “删除”命令按钮click的脚本：dw_1.deleterow(0) “检索”命令按钮click的脚本：dw_1.retrieve() “过滤”命令按钮click的脚本：w_main.dw_1.setfilter(系别=计算机系)w_main.dw_1.fi

3、lter() “保存”命令按钮click的脚本：dw_1.update() “退出”命令按钮click的脚本：close(parent)三、连接数据库1.建立ODBC数据源“exam_pb” 用户名：dba 密码： sql 考试时也是这个2.建立数据库描述文件“exam_pb” 预览和测试！3.连接数据源四、运行程序 -实验步骤：一、建立工作空间“练习二”二、建立应用程序“test” 三、建立主窗口“w_main” 为主窗口定义标题！ 保存！ 为应用程序test编写脚本“open(w_main)”四、建立菜单“m_main” 为菜单添加子菜单项！ 为子菜单项定义标题！五、将菜单挂在主窗口上 保

4、存！时刻不要忘记 六、建立计算器窗口“calculator” 为计算器窗口定义标题！ 1.为计算器窗口添加控件 此窗口包含三个静态文本框控件三个单行编辑框控件五个命令按钮！ 清空单行编辑框中的“none”字符2.为各个控件编写脚本为“加”命令按钮编写脚本：real m,nm=real(sle_1.text)n=real(sle_2.text)sle_3.text=string(m+n)为“减”命令按钮编写脚本：real m,nm=real(sle_1.text)n=real(sle_2.text)sle_3.text=string(m - n) 一定要注意m的后面和n的前面要有空格。否则报错！

5、因为他会把减号当成负号，如此以来就丢失了运算符！为“乘”命令按钮编写脚本：real m,nm=real(sle_1.text)n=real(sle_2.text)sle_3.text=string(m*n)为“除”命令按钮编写脚本：real m,nm=real(sle_1.text)n=real(sle_2.text)if integer(sle_2.text)=0 thenmessagebox(出错,除数不能为0！)elsesle_3.text=string(m / n)end if为“退出编写脚本”close(parent)七、为菜单窗口中的菜单项“计算器”和“退出”编写脚本!“计算器”：

6、open(calculator)“退 出”：close(w_main)八、运行程序-实验步骤：一、建立工作空间“练习三”二、建立应用程序“test” 三、建立主窗口“w_main” 为主窗口定义标题！ 保存！ 为应用程序test编写脚本“open(w_main)”四、建立菜单“m_main” 为菜单添加子菜单项！ 为子菜单项定义标题！五、将菜单挂在主窗口上 六、建立比较器窗口“com” 为比较器窗口定义标题！ 1.为比较器窗口添加控件 此窗口包含三个静态文本框控件三个单行编辑框控件三个命令按钮！ 为各控件定义标题！2.为各个控件编写脚本(1)为“比较”命令按钮编写脚本：real m,nm=re

7、al(sle_1.text)n=real(sle_2.text)if mn then sle_3.text=大于elseif mn thensle_3.text=小于else sle_3.text=等于 end if(2)为“显示”命令按钮编写脚本：string strstr=string(sle_1.text+sle_3.text+sle_2.text)messagebox(结果是,str)(3)为“退出”编写脚本close(parent)七、为菜单窗口中的菜单项“比较器”和“退出”编写脚本!“比较器”：open(com)“退 出”：close(w_main)八、运行程序OK!-实验步骤：一

8、、建立数据库1.创建数据库exam_pb2.建立表 manage3.为表manage指定主键为“商品编号”4.向表中输入数据二、建立应用程序1.建立工作空间“练习四”2.建立应用程序“test”3.建数据窗口dw_15.建应用程序窗口w_main6在应用程序窗口中添加控件7.为数据窗口指定目标对象“manage” 为主窗口定义标题！ 为控件定义标题！8.为应用程序和控件编写脚本 应用程序test脚本：open(w_main) 应用程序窗口w_main的各个脚本： w_main open事件的脚本：SQLCA.DBMS = ODBCSQLCA.AutoCommit = FalseSQLCA.DBParm = Connectstring=DSN=exam_pb;uid=dba;pwd=sqlconnect using sqlca;dw_1.settransobject(sqlca) “增加”命令按钮click事件的脚本：dw_1.insertrow(0)dw_1.setfocus() “删除”命令按钮click的脚本：dw_1.deleterow(0) “检索”命令按钮click的脚本：dw_1.retrieve() “排序”命令按钮click的脚本：dw_1.setsort(编号+ A) /A前面有个空格dw_1.sort() “保存”命令按钮c