第9章应用对象 本章重点内容 ●应用程序对象的含义及创建 ●应用程序对象的基本属性设置 ●应用程序对象的常用方法和事件 ●事务对象的含义及使用 数据库原理及应用 十一五 国家级规划教材
数据库原理及应用——“十一五” 国家级规划教材 1 第9章 应用对象 ⚫ 本章重点内容 ⚫ 应用程序对象的含义及创建 ⚫ 应用程序对象的基本属性设置 ⚫ 应用程序对象的常用方法和事件 ⚫ 事务对象的含义及使用
91应用对象概述 ●应用程序对象是应用程序的入口点,是包含用 户应用程序所有信息的非可视对象。它包括字 体程序图标库的路径、全局变量程序结构函数 应用程序实例变量、外部函数等信息。在开发 Power Builder应用程序时,用户必须要创建 个应用程序对象。 ●在运行一个应用程序时总是先运行应用程序对 象的Open事件,所以为了使应用程序能够执行 定的功能,一定要在Open事件中加入的代码 以告诉 PowerBiulder应该做什么,例如打开数 据库、打开主窗口。当应用程序终止时, Close 事件被触发,以完成系统必须的一些清理工作, 如关闭数据库等。 数据库原理及应用 十一五 国家级规划教材
数据库原理及应用——“十一五” 国家级规划教材 2 ⚫ 应用程序对象是应用程序的入口点，是包含用 户应用程序所有信息的非可视对象。它包括字 体程序图标库的路径、全局变量程序结构函数、 应用程序实例变量、外部函数等信息。在开发 PowerBuilder应用程序时，用户必须要创建一 个应用程序对象。 ⚫ 在运行一个应用程序时总是先运行应用程序对 象的Open事件，所以为了使应用程序能够执行 一定的功能，一定要在Open事件中加入的代码， 以告诉PowerBiulder应该做什么，例如打开数 据库、打开主窗口。当应用程序终止时，Close 事件被触发，以完成系统必须的一些清理工作， 如关闭数据库等。 9.1 应用对象概述
92创建应用对象 921工作区 ●1创建一个工作区 1)单击工具栏上的图标,或者选择File→New 菜单项,打开建立新对象对话框 (2)选择 Workspace选项卡,选中图标后单击 OK按钮;或双击图标,打开 New Workspace对 话框。 (3)在 New Workspace对话框中选择保存位置 并输入文件名后单击“保存”按钮即可 数据库原理及应用 十一五 国家级规划教材
数据库原理及应用——“十一五” 国家级规划教材 3 ⚫ 9.2.1 工作区 ⚫ 1.创建一个工作区 – 1）单击工具栏上的图标，或者选择File→New 菜单项，打开建立新对象对话框。 –（2）选择Workspace选项卡，选中图标后单击 OK按钮；或双击图标，打开New Workspace对 话框 。 –（3）在New Workspace对话框中选择保存位置 并输入文件名后单击“保存”按钮即可。 9.2 创建应用对象
92创建应用对象 2.打开和关闭一个工作区 如果当前没有打开的工作区,则选择 File→Open菜单项,弹出打开对话框,选中要 打开的工作区后单击OK按钮或双击打开 如果当前已有一个打开的工作区,需要打开另 个工作区,则需选择Fle→ Open Workspace 菜单项,将弹出 Open Workspace对话框 当打开新的工作区后,原来的工作区将会自动 关闭,即 PowerBuilder中一次只能有一个工作 区工作,并且打开应用程序对象所在的工作区 将同时打开应用程序对象 数据库原理及应用 十一五 国家级规划教材
数据库原理及应用——“十一五” 国家级规划教材 4 9.2 创建应用对象 ⚫ 2．打开和关闭一个工作区 – 如果当前没有打开的工作区 ， 则 选 择 File→Open菜单项，弹出打开对话框，选中要 打开的工作区后单击OK按钮或双击打开。 –如果当前已有一个打开的工作区，需要打开另 一个工作区，则需选择File→Open Workspace 菜单项，将弹出Open Workspace对话框 。 –当打开新的工作区后，原来的工作区将会自动 关闭，即PowerBuilder中一次只能有一个工作 区工作，并且打开应用程序对象所在的工作区 将同时打开应用程序对象
92创建应用对象 ●9,2.2创建应用程序对象 (1)确定应用程序对象所在的工作区,打开这个 工作区或新建工作区。 (2)单击工具栏上的new图标,或者选择 Fie→New菜单项,打开建立新对象对话框 (3)选择 Target选项卡,选中 Application图标后单 击OK按钮,或双击该图标,打开 Specify New Application and library对话框。 (4)输入应用程序对象名称( Application Name 应用库( Library)和对象文件名( Target),单击 OK按钮,即可完成应用程序的创建 数据库原理及应用 十一五 国家级规划教材
数据库原理及应用——“十一五” 国家级规划教材 5 9.2 创建应用对象 ⚫ 9.2.2 创建应用程序对象 – （1）确定应用程序对象所在的工作区，打开这个 工作区或新建工作区。 – （ 2 ） 单击工具栏上的 new 图 标 ， 或者选择 File→New菜单项，打开建立新对象对话框。 – （3）选择Target选项卡，选中Application图标后单 击OK按钮 ，或 双击 该图 标， 打开Specify New Application and Library对话框。 –（4）输入应用程序对象名称（Application Name）、 应用库（Library）和对象文件名（Target），单击 OK按钮，即可完成应用程序的创建
9.3应用程序对象的属性设置 Genera选项卡网区 GeneralToolbar 应用程序对象名称 AppName fal 应用程序的显示名称 DisplayName 设置状态条的默认文本 MicroHelpDefault 默认设置为 Ready DWMessageT itle 定义显示数据窗口消息 DDE Timeout 对话框时的默认标题 RightToLeft 厂 FreeD LIbraries DDE超时设置 Additional Properties 数据库原理及哑 国家级规划教材
数据库原理及应用——“十一五” 国家级规划教材 6 9.3 应用程序对象的属性设置 ⚫ General选项卡 应用程序对象名称 应用程序的显示名称 设置状态条的默认文本 ，默认设置为Ready 定义显示数据窗口消息 对话框时的默认标题 DDE超时设置
9.3应用程序对象的属性设置 ● Application对话框 Label Font Variable Types Text Font Column Font Header Font For Font styles equa Regular 尘 Agency FB TAIGDT Bold 10 TAmdtSymbols Bold italic 11 TAMGDT 12 Effects ample 厂 Underline Text Color ackoroun Window Text This is a True Type font. this font will be used on both your screen and your printer. 数据库原理及 国家 OK Cancel △pp Help
数据库原理及应用——“十一五” 国家级规划教材 7 9.3 应用程序对象的属性设置 ⚫ Application对话框
9.3应用程序对象的属性设置 ●图9-10 Toolba选项卡 四 Properties. fpgl inherited from口区 General Toolbar Toolbar Frame Title Toolbar Sheet itle Toolbar PopMenut ext M ToolbarUserControl Toolbar Text Toolbar T ips 数据库原理及应用 国家级规划教材
数据库原理及应用——“十一五” 国家级规划教材 8 9.3 应用程序对象的属性设置 ⚫ 图9-10 Toolbar选项卡
9.4应用程序对象的方法和事件 * fpol(fpg)(E: \fpol Fpgl pbl) inherited from application-Application 曲op° n( string commanding ]returns ( none 型單回单击该按钮将显 STRING MYdb 彐示/隐藏错误摄 SQLCA DBMS =ODBC SQLCA. AutoConmit False 示 SQLCA.DBParm-Connectstring-'DSN-Fpd1; UID-dba; PWD-sql; databasename=fpgl connect using sqlca 单击该按钮将显 事件下拉列表 工 if sqlca sqlcode g then 示/隐藏函数原 messagebox("“提示”,"数据库连接失败,请检查数据库fpq1.db是否存在 else end if 数据库原理及应用 十一五 国家级规划教材
数据库原理及应用——“十一五” 国家级规划教材 9 9.4 应用程序对象的方法和事件 对象下拉列表 事件下拉列表 单击该按钮将显 示/隐藏错误提 示 单击该按钮将显 示/隐藏函数原 型
9.4.1应用对象的事件pen 脚本 数据源名称 ●/*初始化事务对象属性并通过事务对象与数找 连接* SQLCA DBMS =ODBC e SQLCA Auto Commit= False ● SQLCA DBParm ConnectString-DSN=fpgl; UID-dba; PWD=sql; databasename=fpgl ● connect using sqlca o if sqlca sqlcode <0 then , message box(提示,数据库连接失败,请检查数据库gdb是否存 open(w main) ● end if 数据库原理及应用 十一五 国家级规划教材
数据库原理及应用——“十一五” 国家级规划教材 10 9.4.1 应用对象的事件-open ⚫ 脚本 ⚫ /* 初始化事务对象属性并通过事务对象与数据库建立连接*/ ⚫ SQLCA.DBMS = "ODBC" ⚫ SQLCA.AutoCommit = False ⚫ SQLCA.DBParm = "ConnectString='DSN=fpgl;UID=dba;PWD=sql;databasename=fpgl'" ⚫ connect using sqlca; ⚫ if sqlca.sqlcode < 0 then ⚫ messagebox("提示","数据库连接失败，请检查数据库fpgl.db是否存 在") ⚫ else ⚫ open(w_main) ⚫ end if 数据源名称