Powerbuilder 讲义1.pptVIP

Powerbuilder 讲义 一 项目的开始 关于这个项目 我的项目名称是个人通信录 实现的功能主要包括： 录入、编辑、查询好友的基本信息 录入、编辑、查询好友的联系方式 录入、编辑、查询好友兴趣爱好 录入、编辑、查询每个好友需记载的备忘事 项并能自动提醒 首先确定ER图 首先解决的是登录界面 登录界面要求如下： 用户输入用户名和密码 系统从用户信息表中查找有无相匹配的记录 如无相匹配记录则清空用户输入要求重新输入，如输入次数达到三次则退出系统 如有匹配记录则打开主界面 关于用户信息表 Userid identify int Username char 16 Password char 128 建立数据库连接 事务对象 SQLCA SQLCA.DBMS = MSS Microsoft SQL Server SQLCA.Database = relationermess SQLCA.ServerName = XJPI-9D52F60200 SQLCA.LogId = sa SQLCA.AutoCommit = False SQLCA.DBParm = 读取配置文件的函数 Profilestring（文件名，节名，项名，默认值） 我的配置文件 [connect] DBMS = MSS Microsoft SQL Server 6.x Database = relationermess ServerName =XJPI-9D52F60200 LogId = sa logpass= AutoCommit = False DBParm = 读取配置文件并设置事务对象 这部分通常在应用对象中完成 SQLCA.DBMS =profilestring(relationer.ini,connect,DBMS,) SQLCA.Database=profilestring(relationer.ini,connect,Database,) SQLCA.ServerName=profilestring(relationer.ini,connect,ServerName,) SQLCA.LogId =profilestring(relationer.ini,connect,LogId,) SQLCA.Logpass= profilestring(relationer.ini,connect,logpass,) SQLCA.AutoCommit=False SQLCA.DBParm= 建立连接 Connect using sqlca; 注意异常处理 if sqlca.sqlcode0 then MessageBox(提示,连接数据库失败,无法继续演示) halt end if 建立登录窗口 窗口的类型 Main Child Response Popup Mdi Mdihelp 变量的作用范围 全局 globe 窗口 instance 局部 local 变量命名规范 首先是作用范围 其次是数据类型 然后是下划线 最后是实际名称 嵌入式SQL 以：开始使用PB变量 以；标示语句结束 以sqlca.sqlcode表示执行结果，为0时为正常执行 登录程序 string ls_UserName string ls_PassWord ls_UserName = sle_username.text ls_PassWord = sle_password.text 登录程序 select top 1 usermessage.usename into :gs_User from usermessage where usermessage.usename=:ls_UserName and usermessage.PassWord=:ls_PassWord using sqlca; 登录程序 // if sqlca.sqlcode=0 then open(w_mainwindow) close(parent) 登录程序 else ii_number =ii_number+1 if ii_number3 then sle_username.text= sle_password.text= sle_username.setfocus() 登录程序 else messagebox(系统提示,您已经尝试登录超过三次，系统将自动退出) close(parent) end if end if * * 好友基本信息表 好友备忘事项表 好友兴趣爱好表 好友联系方式表 好友编码 好友编码 好友编码