- 1、本文档共34页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
PowerBuilder应用实例
第十四章 应 用 实 例 §14.1 实 例 概 述 本书的实例是一个科研成果管理系统。 本实例的功能包括了下面四部分: (1)录入 (2)查询 (3)统计 (4)设置 §14.2 创建一个应用 创建一个工作空间(Workspace)kygl、 创建一个目标(Target)kygl 创建一个应用(Application)kygl 在应用的Open事件中写语句 Solca.DBMS = ODBC Solca.AutoCommit = False Solca.DBParm = Connectstring=DSN=kygl Connect Using Sqlca; If Sqlca.Sqlcode 0 Then MessageBox(与数据库连接失败,错误。请稍后再试,或者向管理员联系。) Return End If //Open(w_userid) §14.3 数据库设计 科研人员简历表(employees) 科研项目情况表(items) 项目参加人员表 (member) 获奖情况表(prize) 辅助编码表 (code) 用户口令表 (yhkl) §14.4 创 建 表 §14.5 创 建 窗 口 主菜单窗口w_main 用户登录窗口w_userlogin 维护窗口w_employees_maintain、w_items_maintai 录入窗口w_employees_input、w_items_input、w__prize_input 编辑窗口w_employees_modify、w_items_modify 查询窗口w_employees_browse、w_prize_browse 统计窗口w_employees_stat、w_items_stat、w_items_fun_stat、w_prize_stat 编码设置窗口w_code 创建用户登录窗口 在“确定”按钮的Clicked事件中写代码 string ls_user,ls_password ls_user=sle_user.text select yhkl into :ls_password from yhkl where yhmc=:ls_user; if sle_user.text=or sle_password.text=then messagebox(,用户名或口令不能为空!) return end if if sle_password.text=ls_password then open(w_main) close(parent) else messagebox(,用户名或口令错误!) end if gs_user=ls_user //把用户名存储在全局变量中 创建录入和编辑窗口 首先创建用于录入和编辑科研人员的祖先窗口 祖先窗口的代码 ③ 定义实例变量: blob ib_emp_pic//存储图片 祖先窗口的代码 ④ 在窗口的Open事件中编写如下代码: dw_1.settransobject(sqlca) setnull(ib_emp_pic) 祖先窗口的代码 ⑤ 在窗口的CloseQuery事件中写如下代码: 祖先窗口的代码 ⑥ 创建一个函数wf_save(),此函数没有参数和返回值,代码略。 祖先窗口的代码 ⑦ 在“确定”按钮cb_save的Clicked事件中编写如下代码: wf_save() close(parent) 祖先窗口的代码 ⑧ 在浏览图片按钮cb_browse的Clicked事件中编写代码,略。 创建科研人员详细情况录入窗口 创建科研人员详细情况录入窗口 ③ 在窗口w_employees_input的Open事件中编写如下代码: long ll_newrow ll_newrow=dw_1.InsertRow(0) dw_1.ScrollToRow(ll_newrow) dw_1.SetFocus() 创建科研人员详细情况录入窗口 ④ 在“增加”按钮的Clicked事件中编写如下代码: wf_save() p_1.picturename=null setnull(ib_emp_pic) dw_1.reset() dw_1.insertrow(0) dw_1.setfocus() 创建科研人员编辑窗口 创建科研人员编辑窗口 ② 在窗口的Open事件中编写如下代码: long ll_rows string ls_code ls_code=message.stringparm ll_rows=dw_1.retrieve(ls_code) selectblob picture into:ib_emp_pic from Employees where em_code
文档评论(0)