《Pb学生管理系统源代码.docx》由会员分享，可在线阅读，更多相关《Pb学生管理系统源代码.docx（24页珍藏版）》请在金锄头文库上搜索。
1、PowerBuilder的创始人 米歇尔克茨曼。PowerBuilder奠基人 大卫李特瓦克。1991年6月。Powersoft公司发布了其旗标式客户/服务器硬功开发工具。1995年PowerBuilder1.01996年PowerBuilder5.02003年PowerBuilder9.0PowerBuilder特点：面向对象的编程和时间去懂的应用开发程序开发工具，支持跨平台开发可以轻松编写语句人性化设计。拥有独特的库文件画板和层次清晰的系统资源库。提供了丰富多样不同风格的数据窗口PowerBuilder9.0新特性。支持快速开发的jsp编辑器。支持xml、PBNI（PowerBuilder
2、 Native Interface）、EJB Client、PB9.0与Web Service 的关系，PB9.0与.NET、其他增强功能。建立应用对象建立Student的工作区和目标，然后建立一个名为student的对象在其Open事件中加入如下脚本：/设置SQLCA的属性,利用名为pbexam的数据源连接数据库SQLCA.DBMS=ODBCSQLCA.AutoCommit=FalseSQLCA.DBParm=Connectistring=DSN=pbexamCONNECT USING SQLCA;/打开登录窗口open(w_register)在应用程序的Close事件中加入如下脚本：/断开
3、数据库连接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语句根据用户名查
4、找密码/right为一全局变量，用来保存用户权限SELECT mm,qxINTO:password,rightFROM yhWHERE yh.hm=:sle_1.text;/SQLCode等于100代替没有得到任何记录。If SQLCA.SQLCode=100 ThenMessageBox(提示消息,没有此用户)sle_1.text=sle_1.SetFocus()ElseIf passwordsle_2.text ThenMessageBox(提示信息,密码错误！)sle_2.text=sle_2.SetFocus()Else/打开主窗口，关闭登录窗口Open(w_main)Close(Pa
5、rent)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 actsheetact
6、sheet=w_main.GetActiveSheet()actsheet.TriggerEvent(ue_print)在退出菜单项的Clicked事件中加入如下脚本:Close(ParentWindow)在窗口级联菜单项的Clicked事件中加入如下脚本:/修改菜单的选中标志m_jilian.checked=Truem_chongdie.checked=Falsem_shuiping.checked=Falsem_chuizhi.checked=False/改变工作表的排列方式ParentWindow.ArrangeSheets(cascade!)在窗口重叠菜单项的Clicked事件中加入如
7、下脚本:m_jilian.checked=Falsem_chongdie.checked=Truem_shuiping.checked=Falsem_chuizhi.checked=FalseParentWindow.ArrangeSheets(Layer!)在窗口水平菜单项的Clicked事件中加入如下脚本:m_jilian.checked=Falsem_chongdie.checked=Falsem_shuiping.checked=Truem_chuizhi.checked=FalseParentWindow.ArrangeSheets(Tile!)在窗口垂直菜单项的Clicked事件中
8、加入如下脚本:m_jilian.checked=Falsem_chongdie.checked=Falsem_shuiping.checked=Falsem_chuizhi.checked=TrueParentWindow.ArrangeSheets(TileHorizontal!)在个人成绩统计菜单项的Clicked事件中加入如下脚本:/打开专业选择窗口，并把统计的类型作为参数传递给专业选择窗口OpenWithParm(w_selectzy,person,w_main)MDI主窗口在主窗口的Open事件中加入如下脚本:/如果不是系统管理员则屏蔽用户管理菜单项If right1 then m_
9、main.m_file.m_id.visible=False/因为打开主窗口后还没有打开任何工作表，所以把和工作表相关的功能菜单的Enabled属性设为falsem_main.m_file.m_pageset.enabled=Falsem_main.m_file.m_preview.enabled=Falsem_main.m_file.m_previewcancle.enabled=Falsem_main.m_file.m_print.enabled=Falsem_main.m_edit.m_insert.enabled=Falsem_main.m_edit.m_del.enabled=Fal
10、sem_main.m_edit.m_save.enabled=Falsem_main.m_edit.m_append.enabled=Falsem_main.m_edit.m_retrieve.enabled=Falsem_main.m_edit.m_prior.enabled=Falsem_main.m_edit.m_next.enabled=Falsem_main.m_edit.m_first.enabled=Falsem_main.m_edit.m_last.enabled=Falsem_main.m_caozuo.m_select.enabled=Falsem_main.m_caozu
11、o.m_find.enabled=Falsem_main.m_caozuo.m_sortasc.enabled=Falsem_main.m_caozuo.m_sortdesc.enabled=Falsem_main.m_window.m_jilian.enabled=Falsem_main.m_window.m_chongdie.enabled=Falsem_main.m_window.m_shuiping.enabled=Falsem_main.m_window.m_chuizhi.enabled=False学生管理窗口在学生管理窗口的Open事件中加入如下脚本:/为数据窗口分配事务对象，并
12、检索数据dw_stu.SetTransObject(SQLCA)dw_stu.Retrieve)_/用静态文本显示当前日期st_1.text=string(today(),yyyy/mm/dd)在查询按钮的Clicked事件中加入如下脚本:If sle_1.text= Then/如果没有输入查询关键字提示输入MessageBox(提示,请输入您要查询的关键字)sle_1.SetFocus()Else/按输入的姓名查询，并用like事件模糊查询dw_stu.setFilter(xm like %+sle_1.text+%)dw_stu.filter()dw_stu.SetFocus()End I
13、f在学生管理窗口的Activate事件中加入如下脚本:/此事件在当前窗口获得焦点时触发/如果当前用户不是系统管理员和数据管理员则屏蔽和数据修改有关的菜单项If right2 Thenm_main.m_edit.m_insert.enabled=Falsem_main.m_edit.m_del.enabled=Falsem_main.m_edit.m_save.enabled=Falsem_main.m_edit.m_append.enabled=FalseElsem_main.m_edit.m_insert.enabled=Truem_main.m_edit.m_del.enabled=Tru
14、em_main.m_edit.m_save.enabled=Truem_main.m_edit.m_append.enabled=TrueEnd If/在当前窗口得到焦点后设置菜单项的enabled属性为True/在窗口得到焦点时使用菜单项即可m_main.m_file.m_pageset.enabled=Truem_main.m_file.m_preview.enabled=Truem_main.m_file.m_previewcancle.enabled=Truem_main.m_file.m_print.enabled=Truem_main.m_edit.m_retrieve.enabl
15、e=Turem_main.m_edit.m_prior.enable=Turem_main.m_edit.m_next.enable=Turem_main.m_edit.m_first.enable=Turem_main.m_edit.m_last.enable=Turem_main.m_caozuo.m_select.enabled=Truem_main.m_caozuo.m_find.enabled=Truem_main.m_caozuo.m_sortasc.enabled=Truem_main.m_caozuo.m_sortdesc.enabled=Truem_main.m_window.m_jilian.enabled=True
