《PowerBuilder技术教程 教学课件 ppt 作者 戴士弘 高职 第7－8章 第8章》由会员分享，可在线阅读，更多相关《PowerBuilder技术教程 教学课件 ppt 作者 戴士弘 高职 第7－8章 第8章（124页珍藏版）》请在金锄头文库上搜索。
1、第 8 章 Powerscript语言,8.1 Powerscript语言 8.2 Powerscript的整体印象 8.3 Powerscript语句的分类 8.4 Powerscript数据类型 8.5 常量、 变量、 函数 8.6 变量赋值语句 8.7 关于null 8.8 控制语句 8.9 类、对象和代词 8.10 文件管理 实训项目与习题,8.1 Powerscript 语言,实例8.1 文件拷贝 (1) 功能要求: 程序执行时打开一个源文件选择对话框, 用户选定文件名后打开“另存为”对话框, 用户输入适当的文件夹和文件名后将源文件复制到目标文件。 文件类型应不受限制。 ,(2) 操
2、作步骤: 在系统主画板上单击【Function】, 再单击【New】。 在如图8 - 1 的对话框中, 将函数的Return数据类型设置为integer, 在 Arguments 的Name 框中键入source, 在Data Type 框中选择string。 Pass By 保持默认值 Value。 单击【ADD】, 在source 的下面继续键入destinate和string, 结果如图8 - 1 所示。单击【OK】, 这时出现一个空白窗口, 这是脚本输入窗口。在空白窗口的左上角用鼠标单击, 可见两个字符串变量source 和 destinate。,图 8-1 函数的参量和返回设置对话框
3、, 在窗口中键入如下程序脚本: integer FileNum, loops, i long flen, bytes_read, bytes-write blob b, tot_b flen = FileLength(source) /文件长度 FileNum = FileOpen(source,StreamMode!, Read!, LockRead!) IF flen 32765 THEN /每次最多只能读出32765个字节 IF Mod(flen, 32765) = 0 THEN /先确定需要读多少次 loops = flen/32765 ELSE loops = (flen/32765
4、) + 1 END IF ELSE loops = 1,END IF FOR i = 1 to loops /分次读出文件 bytes_read = FileRead(FileNum, b) /每次读32765个字节（32KB） tot_b = tot_b + b /将各次读出的字节流组合起来 NEXT FileClose(FileNum) /关闭文件 FileNum = FileOpen(destinate,StreamMode!, write!, LockRead!) bytes_write = Filewrite(FileNum, b) FileClose(FileNum) /关闭文件
5、if flen = bytes_write then return 1 else return _1 end if, 在系统主画板中单击【Application】 , 在Application 的对象画板中单击【script】 , 在出现的脚本输入窗口中选择Open 事件并键入如下脚本语句: string source_file, destinate, path_and_name integer value do while true value = GetFileOpenName(“请选择源文件名“, source_file, path_and_name, “DOC“, & “Text Fi
6、les (*.TXT),*.TXT,Doc Files (*.DOC),*.DOC,All Files (*.*),*.*“) /将用户选择的源文件名送变量source_file,包括全部路径的文件名送变量Path_and_file,IF value = 1 THEN Exit /打开成功退出循环, 不成功重新询问 End if value = MessageBox(“选择无效“, “是否再试?“, Question!, YesNo!) if value = 2 then return loop do while true value = GetFileSaveName(“请选择目标文件名“,
7、destinate, & path_and_name, “DOC“, & “Text Files (*.TXT),*.TXT,Doc Files (*.DOC),*.DOC,All Files (*.*),*.*“) IF value = 1 THEN exit end if,value = Messagebox(“选择无效“, “是否再试?“, Question!, YesNo!) if value = 2 then return loop value = f_filecopy(source_file, destinate)/调用函数 if value = _1 then Messagebo
8、x(source_file+“to“+path_and_name, “copy 失败“) else Messagebox(source_file+“to“+path_and_name, “copy 成功“) end if,图 8-2 源文件选择对话框, 在对话框中选择一个文件, 如mouse, 单击【打开】, 可见目标文件对话框。 在文件名编辑框中键入新的文件名mouse1, 然后单击【保存】, 随后出现文件copy 是否成功的信息框(如图8-3 所示)。,单击【确定】, 程序运行结束。 在这个实例中, 涉及到以下几个问题: 使用不同类型的数据; 变量的使用和说明; 创建和调用函数; 循环和判
9、断。,图 8-3 结果通报窗口,8.2 Powerscript 的整体印象,从上例的简单应用程序可以看出如下特征: (1) Powerscript 编写的程序可以由多个程序脚本组成。 （每个程序段称为一个程序脚本, 在上述的实例中有两个程序脚本。） (2) 每个脚本由若干条语句构成, 这些语句在一般情况下是顺序执行的。 (3) 每行只有一条语句, 但一条语句可以写成多行。 (4) 语句长度不限, & 是连接两行成为一条语句的标记。 (5) 语句的每个字母大小写不影响语句本身的功能。 (6) 注释部分用/ 开始, 可以单独占一行, 也可以写在语句的后面。,8.3 Powerscript 语句的分
10、类,Powerscript 有如下几种不同的类型: (1) 赋值语句, 如实例8.1中的最后一条语句value = f_filecopy(.)。 (2) 变量声明语句, 如实例8.1中的第1行语句 integer FileNum, loops, i。 (3) 函数调用语句, 如实例8.1中的倒数第2条语句 MessageBox()。 (4) SQL 数据库查询语句, 参见实例8.7。 (5) 过程控制语句, 如实例8.1 中的 If . Then 和 Do while . loop。,8.4 Powerscript 数据类型,Powerscript的常见数据类型包括数值型, 字符串, 日期,
11、时间等。不同类型的数据具有不同的运算属性。 例如, 数值型数据可以进行四则运算, 但日期型数据就不能。 日期型数据有较为严格的错误控制和显示格式, 但字符串就没有。因此, 不同类型的数据适用于不同的目的，使用恰当的数据类型会在编写脚本时更加方便, 这里仅列出几个常用的数据类型: integer 或int , 整数。如 123, 432, 600等。 在 -32 768+32 767 范围的整数为integer。 Decimal 十进制小数。如 123.45, 76.890等。十进制数可以是18位有效数字的整数或小数。, Long 长整数。 如 1 234 567, 2 345 345等。 长整
12、数是在_2 147 483 648+2 147 483 647的范围的整数。长整数在机内使用32个二进制位存储。 Int, long, decimal 都是数值变量。 他们都可以进行加, 减, 乘, 除和乘方等算术运算。 string 是用单引号或双引号围起来的由英文字母, 阿拉伯数字,标点符号及各种文字组成的字符串。例如: “hello,students”, “大学生”, “张三”, “男”, “李四”, “女”, “a” 等都是string。 Date 日期型。日期型数据以特定的格式存储和显示数据。 日期型数据可以通过日期类的函数实现计算功能。,实例8.2 使用函数MessageBox(
13、)显示变量和表达式的值 (1) 实例要求: 计算半径为15.67 的圆的面积, 并显示出计算结果。 (2) 操作步骤: 打开Application 脚本输入窗口, 在Select Event 下拉列表中选择Open, 脚本中加入如下语句: dec2 x1, s x1 = 15.67 s = x1*x1*3.14 messagebox(“面积为“, string(s), 执行应用, 如图 8 - 4 所示对话信息窗口。 函数MessageBox(t,s)可以显示两个字符串, 第一个参数字符串显示在窗口的标题处, 第二个参数字符串显示在窗口的中间。窗口显示直到用户单击【确定】或按右上角的关闭按钮才
14、关闭。此例中算得的面积为771.02。 在PB中没有数据输出语句, 所有数值和其它的变量的值都必须在窗口中通过文本方式显示在屏幕上。显示都是以字符串方式显示的, 因此所有类型的数值在显示之前都要转换成为字符串。函数string 用于将数值型。日期型等数据类型转换成为某种格式的字符串。显示字符串的方法有两个, 一个是制作一个窗口, 在窗口上面使用静态文本或编辑框的Text属性显示字符; 另一种方法, 也是最简单的方法, 是使用函数MessageBox()。 例如, 将显示对话框的脚本加入到Application 对象的Open事件中。,图 8-4 面积显示框,不同的类型的数据取值的范围不同, 如
15、int 是整型数, 其范围为-32 768+32 767。 因此, 32 769虽然也是整数, 但它已经超过了整型数的范围, 所以不是整型数, 而是长整数（Long）。 不恰当的使用数据类型将导致计算错误, 这一点可以在实例8.3 中看出。,8.5 常量、变量、函数,8.5.1 常量 任何类型的不变化的数据都称为常量。如123, 12.52, 2.345E12称为数值常量, 它们分别是整数, 十进制小数和实数。 “张三“, 1980_12_30 也是常量, 前者是字符型常量, 称为字符串, 后者为日期型常量。 除此以外, True, false, 20:30:32等也都是常量, 常量是某种类型
16、的数据的特定值。,8.5.2 变量 可以在不同的时刻表示不同值的符号称为变量。 变量常用一个字母或一串字符表示, 如name, age, salary 等。 变量也可以用字母和数字混合构成, 如name1 , name_1, x_number 等。 在程序设计过程中一般用变量来存放某种类型的数据, 因此变量都有特定的数据类型, 将某种类型的一个数据值送给某个变量保存的过程称为变量的赋值。 除了前述的各种数据类型以外, 用户定义的一个类也可以作为一个变量的数据类型，如窗口, 菜单或一个其它的控件等。,与其它许多高级语言不同的是, 在Powerscript 中有一种数据类型称为Any, Any 型的变量可以接
