网站大量收购独家精品文档,联系QQ:2885784924

powerbuilder编程简单入门.docx

  1. 1、本文档共15页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多

精品

精品word.

最新文件仅供参考已改成word文本

方便更改

一种简单的powerbuilder10数据库编程介绍

1、需求分析与数据库建立

进行需求分析(需求分析文档),确定数据关系,建立各种数据表,建立数据库(Access),设置ODBC数据源(控制面板-管理工具-数据源ODBC-“用户DSN”菜单下点“添加” 选相应的数据源驱动程序,如果用Access2003建立的,则选第三项“DriverdoMicrosoftAccess(*.mdb),然后点击“完成”-输入数据源名,如mydata,然后点击“选择”按钮选择建好的数据库,最后点“确定”,如下图所示)

2、界面设计(功能界面、重要数据表维护界面)

界面设计主要分为几个部分

按照管理系统所需的功能设计界面。

首先画出所有可能的业务流程(数据的各种可能输入、修改、删除业务,数据的输出、显示业务)

按照需要维护的表设计界面(往往给最高权限管理员直接修改数据用)

1/15

精品

精品word.

PAGE

PAGE10/15

3、开始程序编写

新建一个workspace

(new-workspace-workspace)

在workspace下建立一个目标

(new-Target-application),可取名frame

在目标下建一个主窗口

可取名w_main,窗体名一般以w_开头(new-PBObject-Window),将其WindowType设为“mdihelp!”

为主窗口建一个主菜单

可取名m_frame,菜单名一般以m_开头(new-PBObject-Menu)

程序中设置ODBODBC

点击按钮,选中“ODBODBC”项,然后单击右边“

点击

按钮,选中“ODBODBC”项,然后单击右边“New”按钮,弹出如下对话框,

建立配置文件

配置文件取名“config.ini”,内容如下:

[MyDB]DBMS=ODBC

AutoCommit=FalseDBParm=ConnectString=DSN=mydata;UID=;PWD=

自动连接数据库与退出程序关闭数据库的编写

首先建立GlobalVariabl如es下:

stringgs_userid,gs_usernamestringgs_root_path,gs_ini_path

//登录用户标识、用户姓名

//应用路径和主配置文件路径

其次申明GlobalExternalFunctions如下:

FUNCTION int GetComputerNameA(ref string computername,ref long size) LIBRARYKERNEL32.DLLaliasforGetComputerNameA;Ansi

FUNCTIONlongGetCurrentDirectoryA(longnBufferLength,REFstringszBuffer)LIBRARYKERNEL32.DLLaliasforGetCurrentDirectoryA;Ansi

FUNCTIONlongSetCurrentDirectoryA(stringszPathName)LIBRARYKERNEL32.DLLaliasforSetCurrentDirectoryA;Ansi

在程序的总入口(进入“”

在程序的总入口(进入“

”)Open事件中写入以下代码:

//Profilemoneyandfriendsstringls_1

//设置应用根目录gs_root_path=space(255)

GetCurrentDirectoryA(255,gs_root_path)ifright(gs_root_path,1)=\then

gs_root_path=left(gs_root_path,len(gs_root_path)-1)

endif

//设置配置文件路径

gs_ini_path=gs_root_path+\config.iniIFnotFileExists(gs_ini_path)THEN

MessageBox(找不到配置文件+gs_ini_path,系统配置错误,stopsign!,ok!)

RETURNENDIF

//SetProfileString(gs_ini_path,DBMS,ls_1=ProfileString(gs_ini_path,MyDB,DBMS,ODBC)SQLCA.DBMS=ls_1

SQLCA.AutoCommit=Falsel

文档评论(0)

tianya189 + 关注
官方认证
内容提供者

该用户很懒,什么也没介绍

认证主体阳新县融易互联网技术工作室
IP属地湖北
统一社会信用代码/组织机构代码
92420222MA4ELHM75D

1亿VIP精品文档

相关文档