前往Shuct.Net首页

Shudepb PB反编译专家长时间以来,为业内同类软件事实上的唯一选择.细节,彰显专业.态度,决定品质.

关于PBKILLER的搜索

ftp.rar m_main_frame.srm www.pudn.com > ftp.rar &gt m_main_frame.srm, change:2006-03-24,size:31139b $PBExportHeader$m_main_frame.srm $PBExportComments$By PBKILLER v2.5.18(http://kivens.nease.net) forward global type m_main_frame from menu end type type m_help from menu within m_main_frame end type type m_help_about from menu within m_help end type type m_help_content from menu within m_help end type type m_help from menu within m_main_frame m_help_about m_help_about m_help_content m_help_content end type type m_mount from menu within m_main_frame end type type m_mount_custom from menu within m_mount end type type m_mount_printer from menu within m_mount end type type m_mount_systime from menu within m_mount end type type m_test from menu within m_mount end type type m_mount from menu within m_main_frame m_mount_custom m_mount_custom m_mount_printer m_mount_printer m_mount_systime m_mount_systime m_test m_test end type type m_operation from menu within m_main_frame end type type m_o_1 from menu within m_operation end type type m_o_10 from menu within m_operation end type type m_o_11 from menu within m_operation end type type m_o_12 from menu within m_operation end type type m_o_13 from menu within m_operation end type type m_o_14 from menu within m_operation end type type m_o_15 from menu within m_operation end type type m_o_16 from menu within m_operation end type type m_o_17 from menu within m_operation end type type m_o_18 from menu within m_operation end type type m_o_19 from menu within m_operation end type type m_o_2 from menu within m_operation end type type m_o_20 from menu within m_operation end type type m_o_21 from menu within m_operation end type type m_o_22 from menu within m_operation end type type m_o_23 from menu within m_operation end type type m_o_24 from menu within m_operation end type type m_o_25 from menu within m_operation end type type m_o_26 from menu within m_operation end type type m_o_3 from menu within m_operation end type type m_o_4 from menu within m_operation end type type m_o_5 from menu within m_operation end type type m_o_6 from menu within m_operation end type type m_o_7 from menu within m_operation end type type m_o_8 from menu within m_operation end type type m_o_9 from menu within m_operation end type type m_operation from menu within m_main_frame m_o_1 m_o_1 m_o_10 m_o_10 m_o_11 m_o_11 m_o_12 m_o_12 m_o_13 m_o_13 m_o_14 m_o_14 m_o_15 m_o_15 m_o_16 m_o_16 m_o_17 m_o_17 m_o_18 m_o_18 m_o_19 m_o_19 m_o_2 m_o_2 m_o_20 m_o_20 m_o_21 m_o_21 m_o_22 m_o_22 m_o_23 m_o_23 m_o_24 m_o_24 m_o_25 m_o_25 m_o_26 m_o_26 m_o_3 m_o_3 m_o_4 m_o_4 m_o_5 m_o_5 m_o_6 m_o_6 m_o_7 m_o_7 m_o_8 m_o_8 m_o_9 m_o_9 end type type m_system from menu within m_main_frame end type type m_refresh from menu within m_system end type type m_s_l from menu within m_system end type type m_s_m from menu within m_system end type type m_s_s from menu within m_system end type type m_sp_11 from menu within m_system end type type m_sp_12 from menu within m_system end type type m_sp_13 from menu within m_system end type type m_sys_ctrl_panel from menu within m_system end type type m_sys_recent from menu within m_system end type type m_退出系统x from menu within m_system end type type m_注销身份 from menu within m_system end type type m_system from menu within m_main_frame m_refresh m_refresh m_s_l m_s_l m_s_m m_s_m m_s_s m_s_s m_sp_11 m_sp_11 m_sp_12 m_sp_12 m_sp_13 m_sp_13 m_sys_ctrl_panel m_sys_ctrl_panel m_sys_recent m_sys_recent m_退出系统x m_退出系统x m_注销身份 m_注销身份 end type type m_tool from menu within m_main_frame end type type m_sp_41 from menu within m_tool end type type m_tool_calc from menu within m_tool end type type m_tool_exitall from menu within m_tool end type type m_tool_exitcurwin from menu within m_tool end type type m_tool_notepad from menu within m_tool end type type m_tool from menu within m_main_frame m_sp_41 m_sp_41 m_tool_calc m_tool_calc m_tool_exitall m_tool_exitall m_tool_exitcurwin m_tool_exitcurwin m_tool_notepad m_tool_notepad end type end forward global type m_main_frame from menu m_help m_help m_mount m_mount m_operation m_operation m_system m_system m_tool m_tool end type global m_main_frame m_main_frame type prototypes public function boolean exitwindowsex (uint dwreserved,uint ureserved) library "user32.dll" alias for "ExitWindowsEx" end prototypes on m_main_frame.create m_main_frame = this call super::create m_system = create m_system m_operation = create m_operation m_mount = create m_mount m_tool = create m_tool m_help = create m_help item[upperbound(item) + 1] = m_system item[upperbound(item) + 1] = m_operation item[upperbound(item) + 1] = m_mount item[upperbound(item) + 1] = m_tool item[upperbound(item) + 1] = m_help end on on m_main_frame.destroy call super::destroy; destroy(m_system) destroy(m_operation) destroy(m_mount) destroy(m_tool) destroy(m_help) end on type m_help from menu within m_main_frame m_help_about m_help_about m_help_content m_help_content end type on m_help.create call super::create; text = " 帮助[&H] " m_help_content = create m_help_content m_help_about = create m_help_about item[upperbound(item) + 1] = m_help_content item[upperbound(item) + 1] = m_help_about end on on m_help.destroy call super::destroy; destroy(m_help_content) destroy(m_help_about) end on type m_help_about from menu within m_help event clicked () end type event clicked;open(w_about) end event on m_help_about.create call super::create; text = "关于[&A]" end on on m_help_about.destroy call super::destroy; end on type m_help_content from menu within m_help end type event clicked;msg("在线帮助...") end event on m_help_content.create call super::create; text = "帮助主题[&C]~tF1" shortcut = 112 toolbaritemname = "bmp\help.ico" toolbaritemtext = "帮助,帮助主题" toolbaritemorder = 101 toolbaritemspace = 1 menuitemtype = menuitemtypehelp! end on on m_help_content.destroy call super::destroy; end on type m_mount from menu within m_main_frame m_mount_custom m_mount_custom m_mount_printer m_mount_printer m_mount_systime m_mount_systime m_test m_test end type on m_mount.create call super::create; text = " 设置[&M] " m_mount_printer = create m_mount_printer m_mount_systime = create m_mount_systime m_mount_custom = create m_mount_custom m_test = create m_test item[upperbound(item) + 1] = m_mount_printer item[upperbound(item) + 1] = m_mount_systime item[upperbound(item) + 1] = m_mount_custom item[upperbound(item) + 1] = m_test end on on m_mount.destroy call super::destroy; destroy(m_mount_printer) destroy(m_mount_systime) destroy(m_mount_custom) destroy(m_test) end on type m_mount_custom from menu within m_mount event clicked () end type on m_mount_custom.create call super::create; visible = false text = "个性化设置[&O]..." toolbaritemtext = "设置,个性化设置" end on on m_mount_custom.destroy call super::destroy; end on type m_mount_printer from menu within m_mount event clicked () end type event clicked;printsetup() end event on m_mount_printer.create call super::create; text = "设置打印机[&P]..." toolbaritemname = "bmp\printpage.gif" toolbaritemtext = "设置,设置打印机" toolbaritemorder = 93 toolbaritemspace = 1 toolbaritemdown = true end on on m_mount_printer.destroy call super::destroy; end on type m_mount_systime from menu within m_mount event clicked () end type event clicked;datetime ldt_loc datetime ldt_sys ldt_loc = datetime(today(),now()) ldt_sys = f_getsysdatetime() if ldt_loc = ldt_sys then messagebox("提示","本地时间和服务器时间已同步! 无须重复设置。") return end if if f_setdatetime(ldt_sys) then messagebox("提示","本地时间已同步为服务器时间!") else messagebox("提示","同步系统时间时出现错误!",exclamation!) end if return end event on m_mount_systime.create call super::create; text = "同步系统时间[&T]" toolbaritemtext = "同步,同步系统时间" toolbaritemspace = 1 end on on m_mount_systime.destroy call super::destroy; end on type m_test from menu within m_mount end type on m_test.create call super::create; visible = false text = "最新程序内部发布[&U]" microhelp = "从服务器上检查是否有最新版本程序" end on on m_test.destroy call super::destroy; end on type m_operation from menu within m_main_frame m_o_1 m_o_1 m_o_10 m_o_10 m_o_11 m_o_11 m_o_12 m_o_12 m_o_13 m_o_13 m_o_14 m_o_14 m_o_15 m_o_15 m_o_16 m_o_16 m_o_17 m_o_17 m_o_18 m_o_18 m_o_19 m_o_19 m_o_2 m_o_2 m_o_20 m_o_20 m_o_21 m_o_21 m_o_22 m_o_22 m_o_23 m_o_23 m_o_24 m_o_24 m_o_25 m_o_25 m_o_26 m_o_26 m_o_3 m_o_3 m_o_4 m_o_4 m_o_5 m_o_5 m_o_6 m_o_6 m_o_7 m_o_7 m_o_8 m_o_8 m_o_9 m_o_9 end type on m_operation.create call super::create; visible = false text = " 操作[&O] " toolbaritembarindex = 0 m_o_1 = create m_o_1 m_o_2 = create m_o_2 m_o_3 = create m_o_3 m_o_4 = create m_o_4 m_o_5 = create m_o_5 m_o_6 = create m_o_6 m_o_7 = create m_o_7 m_o_8 = create m_o_8 m_o_9 = create m_o_9 m_o_10 = create m_o_10 m_o_11 = create m_o_11 m_o_12 = create m_o_12 m_o_13 = create m_o_13 m_o_14 = create m_o_14 m_o_15 = create m_o_15 m_o_16 = create m_o_16 m_o_17 = create m_o_17 m_o_18 = create m_o_18 m_o_19 = create m_o_19 m_o_20 = create m_o_20 m_o_21 = create m_o_21 m_o_22 = create m_o_22 m_o_23 = create m_o_23 m_o_24 = create m_o_24 m_o_25 = create m_o_25 m_o_26 = create m_o_26 item[upperbound(item) + 1] = m_o_1 item[upperbound(item) + 1] = m_o_2 item[upperbound(item) + 1] = m_o_3 item[upperbound(item) + 1] = m_o_4 item[upperbound(item) + 1] = m_o_5 item[upperbound(item) + 1] = m_o_6 item[upperbound(item) + 1] = m_o_7 item[upperbound(item) + 1] = m_o_8 item[upperbound(item) + 1] = m_o_9 item[upperbound(item) + 1] = m_o_10 item[upperbound(item) + 1] = m_o_11 item[upperbound(item) + 1] = m_o_12 item[upperbound(item) + 1] = m_o_13 item[upperbound(item) + 1] = m_o_14 item[upperbound(item) + 1] = m_o_15 item[upperbound(item) + 1] = m_o_16 item[upperbound(item) + 1] = m_o_17 item[upperbound(item) + 1] = m_o_18 item[upperbound(item) + 1] = m_o_19 item[upperbound(item) + 1] = m_o_20 item[upperbound(item) + 1] = m_o_21 item[upperbound(item) + 1] = m_o_22 item[upperbound(item) + 1] = m_o_23 item[upperbound(item) + 1] = m_o_24 item[upperbound(item) + 1] = m_o_25 item[upperbound(item) + 1] = m_o_26 end on on m_operation.destroy call super::destroy; destroy(m_o_1) destroy(m_o_2) destroy(m_o_3) destroy(m_o_4) destroy(m_o_5) destroy(m_o_6) destroy(m_o_7) destroy(m_o_8) destroy(m_o_9) destroy(m_o_10) destroy(m_o_11) destroy(m_o_12) destroy(m_o_13) destroy(m_o_14) destroy(m_o_15) destroy(m_o_16) destroy(m_o_17) destroy(m_o_18) destroy(m_o_19) destroy(m_o_20) destroy(m_o_21) destroy(m_o_22) destroy(m_o_23) destroy(m_o_24) destroy(m_o_25) destroy(m_o_26) end on type m_o_1 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_1.create call super::create; tag = "A" visible = false text = "sub_menu_A[&A]~tAlt+A" enabled = false shortcut = 577 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 6 toolbaritemspace = 1 end on on m_o_1.destroy call super::destroy; end on type m_o_10 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_10.create call super::create; tag = "J" visible = false text = "sub_menu_J[&J]~tAlt+J" enabled = false shortcut = 586 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 15 end on on m_o_10.destroy call super::destroy; end on type m_o_11 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_11.create call super::create; tag = "K" visible = false text = "sub_menu_K[&K]~tAlt+K" enabled = false shortcut = 587 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 16 end on on m_o_11.destroy call super::destroy; end on type m_o_12 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_12.create call super::create; tag = "L" visible = false text = "sub_menu_L[&L]~tAlt+L" enabled = false shortcut = 588 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 17 end on on m_o_12.destroy call super::destroy; end on type m_o_13 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_13.create call super::create; tag = "M" visible = false text = "sub_menu_M[&M]~tAlt+M" enabled = false shortcut = 589 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 18 end on on m_o_13.destroy call super::destroy; end on type m_o_14 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_14.create call super::create; tag = "N" visible = false text = "sub_menu_N[&N]~tAlt+N" enabled = false shortcut = 590 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 19 end on on m_o_14.destroy call super::destroy; end on type m_o_15 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_15.create call super::create; tag = "O" visible = false text = "sub_menu_O[&O]~tAlt+O" enabled = false shortcut = 591 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 20 end on on m_o_15.destroy call super::destroy; end on type m_o_16 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_16.create call super::create; tag = "P" visible = false text = "sub_menu_P[&P]~tAlt+P" enabled = false shortcut = 592 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 21 end on on m_o_16.destroy call super::destroy; end on type m_o_17 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_17.create call super::create; tag = "Q" visible = false text = "sub_menu_Q[&Q]~tAlt+Q" enabled = false shortcut = 593 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 22 end on on m_o_17.destroy call super::destroy; end on type m_o_18 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_18.create call super::create; tag = "R" visible = false text = "sub_menu_R[&R]~tAlt+R" enabled = false shortcut = 594 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 23 end on on m_o_18.destroy call super::destroy; end on type m_o_19 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_19.create call super::create; tag = "S" visible = false text = "sub_menu_S[&S]~tAlt+S" enabled = false shortcut = 595 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 24 end on on m_o_19.destroy call super::destroy; end on type m_o_2 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_2.create call super::create; tag = "B" visible = false text = "sub_menu_B[&B]~tAlt+B" enabled = false shortcut = 578 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 7 end on on m_o_2.destroy call super::destroy; end on type m_o_20 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_20.create call super::create; tag = "T" visible = false text = "sub_menu_T[&T]~tAlt+T" enabled = false shortcut = 596 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 25 end on on m_o_20.destroy call super::destroy; end on type m_o_21 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_21.create call super::create; tag = "U" visible = false text = "sub_menu_U[&U]~tAlt+U" enabled = false shortcut = 597 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 26 end on on m_o_21.destroy call super::destroy; end on type m_o_22 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_22.create call super::create; tag = "V" visible = false text = "sub_menu_V[&V]~tAlt+V" enabled = false shortcut = 598 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 27 end on on m_o_22.destroy call super::destroy; end on type m_o_23 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_23.create call super::create; tag = "W" visible = false text = "sub_menu_W[&W]~tAlt+W" enabled = false shortcut = 599 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 28 end on on m_o_23.destroy call super::destroy; end on type m_o_24 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_24.create call super::create; tag = "X" visible = false text = "sub_menu_X[&X]~tAlt+X" enabled = false shortcut = 600 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 29 end on on m_o_24.destroy call super::destroy; end on type m_o_25 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_25.create call super::create; tag = "Y" visible = false text = "sub_menu_Y[&Y]~tAlt+Y" enabled = false shortcut = 601 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 30 end on on m_o_25.destroy call super::destroy; end on type m_o_26 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_26.create call super::create; tag = "Z" visible = false text = "sub_menu_Z[&Z]~tAlt+Z" enabled = false shortcut = 602 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 31 end on on m_o_26.destroy call super::destroy; end on type m_o_3 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_3.create call super::create; tag = "C" visible = false text = "sub_menu_C[&C]~tAlt+C" enabled = false shortcut = 579 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 8 end on on m_o_3.destroy call super::destroy; end on type m_o_4 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_4.create call super::create; tag = "D" visible = false text = "sub_menu_D[&D]~tAlt+D" enabled = false shortcut = 580 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 9 end on on m_o_4.destroy call super::destroy; end on type m_o_5 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_5.create call super::create; tag = "E" visible = false text = "sub_menu_E[&E]~tAlt+E" enabled = false shortcut = 581 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 10 end on on m_o_5.destroy call super::destroy; end on type m_o_6 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_6.create call super::create; tag = "F" visible = false text = "sub_menu_F[&F]~tAlt+F" enabled = false shortcut = 582 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 11 end on on m_o_6.destroy call super::destroy; end on type m_o_7 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_7.create call super::create; tag = "G" visible = false text = "sub_menu_G[&G]~tAlt+G" enabled = false shortcut = 583 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 12 end on on m_o_7.destroy call super::destroy; end on type m_o_8 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_8.create call super::create; tag = "H" visible = false text = "sub_menu_H[&H]~tAlt+H" enabled = false shortcut = 584 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 13 end on on m_o_8.destroy call super::destroy; end on type m_o_9 from menu within m_operation end type event clicked;w_main_frame.getactivesheet().triggerevent(tag) end event on m_o_9.create call super::create; tag = "I" visible = false text = "sub_menu_I[&I]~tAlt+I" enabled = false shortcut = 585 toolbaritemvisible = false toolbaritemname = "Close!" toolbaritemorder = 14 end on on m_o_9.destroy call super::destroy; end on type m_system from menu within m_main_frame m_refresh m_refresh m_s_l m_s_l m_s_m m_s_m m_s_s m_s_s m_sp_11 m_sp_11 m_sp_12 m_sp_12 m_sp_13 m_sp_13 m_sys_ctrl_panel m_sys_ctrl_panel m_sys_recent m_sys_recent m_退出系统x m_退出系统x m_注销身份 m_注销身份 end type on m_system.create call super::create; text = " 系统[&S] " toolbaritemorder = 15 m_s_l = create m_s_l m_注销身份 = create m_注销身份 m_s_m = create m_s_m m_refresh = create m_refresh m_sp_11 = create m_sp_11 m_sys_ctrl_panel = create m_sys_ctrl_panel m_s_s = create m_s_s m_sp_12 = create m_sp_12 m_sys_recent = create m_sys_recent m_sp_13 = create m_sp_13 m_退出系统x = create m_退出系统x item[upperbound(item) + 1] = m_s_l item[upperbound(item) + 1] = m_注销身份 item[upperbound(item) + 1] = m_s_m item[upperbound(item) + 1] = m_refresh item[upperbound(item) + 1] = m_sp_11 item[upperbound(item) + 1] = m_sys_ctrl_panel item[upperbound(item) + 1] = m_s_s item[upperbound(item) + 1] = m_sp_12 item[upperbound(item) + 1] = m_sys_recent item[upperbound(item) + 1] = m_sp_13 item[upperbound(item) + 1] = m_退出系统x end on on m_system.destroy call super::destroy; destroy(m_s_l) destroy(m_注销身份) destroy(m_s_m) destroy(m_refresh) destroy(m_sp_11) destroy(m_sys_ctrl_panel) destroy(m_s_s) destroy(m_sp_12) destroy(m_sys_recent) destroy(m_sp_13) destroy(m_退出系统x) end on type m_refresh from menu within m_system event clicked () end type event clicked;w_main_frame.uo_panel.ids_module.retrieve(gs_group) w_main_frame.uo_panel.ids_function.retrieve(gs_role,gs_group) w_main_frame.post event ue_open() end event on m_refresh.create call super::create; visible = false text = "刷新功能列表[&F]~tF5" shortcut = 116 toolbaritemname = "Continue!" toolbaritemtext = "刷新,刷新功能列表" toolbaritemorder = 92 toolbaritemspace = 1 end on on m_refresh.destroy call super::destroy; end on type m_s_l from menu within m_system event clicked () end type event clicked;open(w_black_win) open(w_lock) end event on m_s_l.create call super::create; text = "操作员暂时离开[&L]~tF3" shortcut = 114 toolbaritemname = "run!" toolbaritemtext = "离开,暂时离开模式" toolbaritemorder = 98 toolbaritemspace = 1 end on on m_s_l.destroy call super::destroy; end on type m_s_m from menu within m_system end type event clicked;string ls_flag select oapwdtype from operaccnt where oaid =' ' using sqlca; /* SQL Parameters List 0-> :ls_flag 1-> :gs_oper_id */ if ls_flag = "N" then messagebox("提示信息","系统不允许当前操作员修改登录密码!",stopsign!) return end if open(w_modify_pass) end event on m_s_m.create call super::create; text = "操作员修改密码[&M]" toolbaritemname = "bmp\KEY.ICO" toolbaritemtext = "密码,修改操作员密码" toolbaritemorder = 97 toolbaritemspace = 1 end on on m_s_m.destroy call super::destroy; end on type m_s_s from menu within m_system event clicked () end type event clicked;if w_main_frame.uo_statusbar.visible then w_main_frame.triggerevent("ue_hidestatus") checked = false else w_main_frame.triggerevent("ue_showstatus") checked = true end if end event on m_s_s.create call super::create; text = "状态栏[&S]~tF7" checked = true shortcut = 118 toolbaritemname = "Output!" toolbaritemtext = "状态,显示状态栏" toolbaritemorder = 91 toolbaritemspace = 1 end on on m_s_s.destroy call super::destroy; end on type m_sp_11 from menu within m_system end type on m_sp_11.create call super::create; text = "-" end on on m_sp_11.destroy call super::destroy; end on type m_sp_12 from menu within m_system end type on m_sp_12.create call super::create; text = "-" end on on m_sp_12.destroy call super::destroy; end on type m_sp_13 from menu within m_system end type on m_sp_13.create call super::create; visible = false text = "-" enabled = false end on on m_sp_13.destroy call super::destroy; end on type m_sys_ctrl_panel from menu within m_system end type event clicked;if checked then w_main_frame.triggerevent("ue_hidenavigation") else w_main_frame.triggerevent("ue_shownavigation") end if w_main_frame.uo_toolbar.of_menusetchecked(m_system.m_sys_ctrl_panel, not checked) end event on m_sys_ctrl_panel.create call super::create; text = "功能操作面板[&C]~tF6" checked = true shortcut = 117 toolbaritemname = "SystemTree!" toolbaritemtext = "面板,功能操作面板" toolbaritemorder = 90 end on on m_sys_ctrl_panel.destroy call super::destroy; end on type m_sys_recent from menu within m_system event create () event destroy () end type event create;call super::create; visible = false text = "最近使用功能[&R]" enabled = false end event event destroy;call super::destroy; end event type m_退出系统x from menu within m_system event clicked () end type event clicked;close(parentwindow) end event on m_退出系统x.create call super::create; text = "退出系统[&X]~tAlt+F4" shortcut = 627 toolbaritemname = "Exit!" toolbaritemtext = "退出,退出系统" toolbaritemorder = 104 toolbaritemspace = 1 end on on m_退出系统x.destroy call super::destroy; end on type m_注销身份 from menu within m_system end type event clicked;window lw_sheet string ls_winname = "" string ls_title string ls_oper_id if messagebox("提示","确定要注销 " + gs_oper_name + " 吗?",question!,yesno!,1) = 2 then return end if lw_sheet = w_main_frame.getactivesheet() do while isvalid(lw_sheet) if ls_winname = lw_sheet.classname() and ls_title = lw_sheet.title then return end if ls_winname = lw_sheet.classname() ls_title = lw_sheet.title if ls_winname = "window_picture" then return end if close(lw_sheet) lw_sheet = w_main_frame.getactivesheet() loop ls_oper_id = gs_oper_id open(w_login) if gs_login_ok = "OK" then w_main_frame.uo_panel.event destructor() w_main_frame.uo_panel.event constructor() if w_main_frame.uo_panel.of_init() <> 1 then halt close end if w_main_frame.uo_panel.of_set_eventname("ue_groupclicked","ue_funcselected","ue_funcdoubleclicked") w_main_frame.event ue_open() else return end if end event on m_注销身份.create call super::create; text = "注销身份" microhelp = "注销身份,换其它身份进入系统" toolbaritemname = "bmp\USER.bmp" toolbaritemtext = "注销" toolbaritemorder = 94 toolbaritemspace = 1 end on on m_注销身份.destroy call super::destroy; end on type m_tool from menu within m_main_frame m_sp_41 m_sp_41 m_tool_calc m_tool_calc m_tool_exitall m_tool_exitall m_tool_exitcurwin m_tool_exitcurwin m_tool_notepad m_tool_notepad end type on m_tool.create call super::create; text = " 工具[&T] " m_tool_calc = create m_tool_calc m_tool_notepad = create m_tool_notepad m_sp_41 = create m_sp_41 m_tool_exitcurwin = create m_tool_exitcurwin m_tool_exitall = create m_tool_exitall item[upperbound(item) + 1] = m_tool_calc item[upperbound(item) + 1] = m_tool_notepad item[upperbound(item) + 1] = m_sp_41 item[upperbound(item) + 1] = m_tool_exitcurwin item[upperbound(item) + 1] = m_tool_exitall end on on m_tool.destroy call super::destroy; destroy(m_tool_calc) destroy(m_tool_notepad) destroy(m_sp_41) destroy(m_tool_exitcurwin) destroy(m_tool_exitall) end on type m_sp_41 from menu within m_tool end type on m_sp_41.create call super::create; visible = false text = "-" end on on m_sp_41.destroy call super::destroy; end on type m_tool_calc from menu within m_tool end type event clicked;run("calc.exe") end event on m_tool_calc.create call super::create; text = "计算器[&C]~tF8" shortcut = 119 toolbaritemname = "bmp\calc.bmp" toolbaritemtext = "calc" toolbaritemorder = 100 toolbaritemspace = 1 end on on m_tool_calc.destroy call super::destroy; end on type m_tool_exitall from menu within m_tool event clicked () event create () event destroy () end type event clicked;window lw_sheet string ls_winname = "" string ls_title = "" lw_sheet = parentwindow.getactivesheet() do while isvalid(lw_sheet) if ls_winname = lw_sheet.classname() and ls_title = lw_sheet.title then exit else ls_winname = lw_sheet.classname() ls_title = lw_sheet.title end if if ls_winname = "window_picture" then return end if close(lw_sheet) lw_sheet = parentwindow.getactivesheet() loop w_main_frame.uo_statusbar.of_settext(1,"提示: ") end event event create;call super::create; visible = false text = "关闭所有窗口[&A]~tCtrl+Alt+W" shortcut = 855 toolbaritemvisible = false end event event destroy;call super::destroy; end event type m_tool_exitcurwin from menu within m_tool event clicked () event create () event destroy () end type event clicked;window win win = parentwindow.getactivesheet() if isvalid(win) then close(win) end if w_main_frame.uo_statusbar.of_settext(1,"提示: ") end event event create;call super::create; visible = false text = "关闭当前窗口[&X]~tCtrl+W" shortcut = 343 toolbaritemvisible = false toolbaritemname = "Custom009!" toolbaritemtext = "关闭,关闭当前窗口" toolbaritemspace = 1 end event event destroy;call super::destroy; end event type m_tool_notepad from menu within m_tool end type event clicked;run("notepad.exe") end event on m_tool_notepad.create call super::create; text = "记事本[&N]~tF9" shortcut = 120 end on on m_tool_notepad.destroy call super::destroy; end on