Pb学生管理系统源代码.docx

PowerBuilder的创始人 米歇尔克茨曼。 PowerBuilder奠基人 大卫李特瓦克。 1991年6月。Powersoft公司发布了其旗标式客户/服务器硬功开发工具。 1995年PowerBuilder1.0 1996年PowerBuilder5.0 2003年PowerBuilder9.0 PowerBuilder特点： 面向对象的编程和时间去懂的应用开发程序开发工具， 支持跨平台开发 可以轻松编写语句 人性化设计。 拥有独特的库文件画板和层次清晰的系统资源库。 提供了丰富多样不同风格的数据窗口 PowerBuilder9.0新特性。 支持快速开发的jsp编辑器。 支持xml、PBNI（PowerBuilder Native Interface）、EJB Client、PB9.0与Web Service 的关系，PB9.0与.NET、其他增强功能。 建立应用对象 建立Student的工作区和目标，然后建立一个名为student的对象在其Open事件中加入如下脚本： //设置SQLCA的属性,利用名为pbexam的数据源连接数据库 SQLCA.DBMS=ODBC SQLCA.AutoCommit=False SQLCA.DBParm=Connectistring=DSN=pbexam CONNECT USING SQLCA; //打开登录窗口 open(w_register)在应用程序的Close事件中加入如下脚本： //断开数据库连接 DISCONNECT USING SQLCA;登录窗口 在用户名的单行编辑框的ue_enterkey事件中加入如下脚本： //判断用户是否按下回车 If key = KeyEnter! Then //把输入焦点转移到密码单行编辑框 sle_2.SetFocus() End If在密码单行编辑框的ue_enterkey事件中加入如下脚本： If key = KeyEnter! Then //触发登录按钮的Clicked事件 cb_1.TriggerEvent(Clicked!) End If在登录按钮的Clicked事件的脚本中加入如下脚本： String password,right //用SQL语句根据用户名查找密码 //right为一全局变量，用来保存用户权限 SELECT mm,qx INTO:password,right FROM yh WHERE yh.hm=:sle_1.text; //SQLCode等于100代替没有得到任何记录。 If SQLCA.SQLCode=100 Then MessageBox(提示消息,没有此用户) sle_1.text= sle_1.SetFocus() ElseIf passwordsle_2.text Then MessageBox(提示信息,密码错误！) sle_2.text= sle_2.SetFocus() Else //打开主窗口，关闭登录窗口 Open(w_main) Close(Parent) End If在取消按钮的Clicked事件的中加入如下脚本： Close(parent)//关闭登录窗口菜单设计 在学生管理菜单项的Clicked事件中加入如下脚本: //打开学生管理窗口 OpenSheet(w_student,w_main,4)在页面设置菜单项的Clicked事件中加入如下脚本: window actsheet //取得当前活动窗口 actsheet=w_main.GetActiveSheet() //触发活动窗口的ue_pageset事件 actsheet.TriggerEvent(ue_pageset)在打印菜单项的Clicked事件中加入如下脚本: window actsheet actsheet=w_main.GetActiveSheet() actsheet.TriggerEvent(ue_print)在退出菜单项的Clicked事件中加入如下脚本: Close(ParentWindow)在窗口级联菜单项的Clicked事件中加入如下脚本: //修改菜单的选中标志 m_jilian.checked=True m_chongdie.checked=False m_shuiping.checked=False m_chuizhi.checked=False //改变工作表的排列方式 ParentWindow.ArrangeSheets(cascade!)在窗口重叠菜单项的Clicked事件中加入如下脚本: m_jilian.checked=False m_chongdie.checked=True m_shuiping.checked