- 1、本文档共15页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 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
您可能关注的文档
最近下载
- (人教2024版)化学九年级上册 跨学科实践:基于碳中和理念设计低碳行动方案 课件.pptx
- ECAM23.420.SB ECAM23.420.SW Chinese manual德隆全自动咖啡机说明书.pdf
- 2025年春新星球版地理七年级下册课件 8.2 俄罗斯(第1课时).pptx
- 施工现场文明施工环境保护管理措施【精选文档】.pdf
- 棉花叶面肥的选择与使用.pptx
- 三级综合医院医疗质量管理与控制指标表.pdf
- 市政道路施工测量的方案.doc VIP
- 2025年新改版苏教版六年级下册科学全册精编知识点(精心编辑).pdf
- 食品配送售后服务承诺.docx VIP
- 煤矿作业规程编制指南.pdf
文档评论(0)