新PowerBuilder 10.5实用教程 教学课件 樊金生 等主编 14.pptVIP

第十四章 应 用 实 例 §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