m_main.srm

PB9.0生成的图书管理系统

$PBExportHeader$m_main.srm
forward
global type m_main from menu
end type
type m_文件 from menu within m_main
end type
type m_打印设置 from menu within m_文件
end type
type m_打印报表 from menu within m_文件
end type
type m_管理用户 from menu within m_文件
end type
type m_更改密码 from menu within m_文件
end type
type m_退出 from menu within m_文件
end type
type m_文件 from menu within m_main
m_打印设置 m_打印设置
m_打印报表 m_打印报表
m_管理用户 m_管理用户
m_更改密码 m_更改密码
m_退出 m_退出
end type
type m_图书管理 from menu within m_main
end type
type m_图书出借 from menu within m_图书管理
end type
type m_图书归还 from menu within m_图书管理
end type
type m_图书整理 from menu within m_图书管理
end type
type m_图书管理 from menu within m_main
m_图书出借 m_图书出借
m_图书归还 m_图书归还
m_图书整理 m_图书整理
end type
type m_查询 from menu within m_main
end type
global type m_main from menu
m_文件 m_文件
m_图书管理 m_图书管理
m_查询 m_查询
end type
end forward

global type m_main from menu
m_文件 m_文件
m_图书管理 m_图书管理
m_查询 m_查询
end type
global m_main m_main

on m_main.create
m_main=this
call super::create
this.text = "m_main"
this.m_文件=create m_文件
this.m_图书管理=create m_图书管理
this.m_查询=create m_查询
this.Item[UpperBound(this.Item)+1]=this.m_文件
this.Item[UpperBound(this.Item)+1]=this.m_图书管理
this.Item[UpperBound(this.Item)+1]=this.m_查询
end on

on m_main.destroy
call super::destroy
destroy(this.m_文件)
destroy(this.m_图书管理)
destroy(this.m_查询)
end on

type m_文件 from menu within m_main
m_打印设置 m_打印设置
m_打印报表 m_打印报表
m_管理用户 m_管理用户
m_更改密码 m_更改密码
m_退出 m_退出
event create ( )
event destroy ( )
end type

on m_文件.create
call super::create
this.text = "文件"
this.m_打印设置=create m_打印设置
this.m_打印报表=create m_打印报表
this.m_管理用户=create m_管理用户
this.m_更改密码=create m_更改密码
this.m_退出=create m_退出
this.Item[UpperBound(this.Item)+1]=this.m_打印设置
this.Item[UpperBound(this.Item)+1]=this.m_打印报表
this.Item[UpperBound(this.Item)+1]=this.m_管理用户
this.Item[UpperBound(this.Item)+1]=this.m_更改密码
this.Item[UpperBound(this.Item)+1]=this.m_退出
end on

on m_文件.destroy
call super::destroy
destroy(this.m_打印设置)
destroy(this.m_打印报表)
destroy(this.m_管理用户)
destroy(this.m_更改密码)
destroy(this.m_退出)
end on

type m_打印设置 from menu within m_文件
event create ( )
event destroy ( )
end type

on m_打印设置.create
call super::create
this.text = "打印设置"
end on

on m_打印设置.destroy
call super::destroy
end on

event clicked;PrintSetup()
end event

type m_打印报表 from menu within m_文件
event create ( )
event destroy ( )
end type

on m_打印报表.create
call super::create
this.text = "打印报表"
end on

on m_打印报表.destroy
call super::destroy
end on

event clicked;open(w_report)
end event
type m_管理用户 from menu within m_文件
end type

event clicked;open(w_users)
end event

on m_管理用户.create
call super::create
this.text = "管理用户"
this.enabled = false
end on

on m_管理用户.destroy
call super::destroy
end on

type m_更改密码 from menu within m_文件
event create ( )
event destroy ( )
end type

on m_更改密码.create
call super::create
this.text = "更改密码"
end on

on m_更改密码.destroy
call super::destroy
end on

event clicked;OpenWithParm(w_login,username)
end event

type m_退出 from menu within m_文件
event create ( )
event destroy ( )
end type

on m_退出.create
call super::create
this.text = "退出"
end on

on m_退出.destroy
call super::destroy
end on

event clicked;close(w_main)
end event

type m_图书管理 from menu within m_main
m_图书出借 m_图书出借
m_图书归还 m_图书归还
m_图书整理 m_图书整理
event create ( )
event destroy ( )
end type

on m_图书管理.create
call super::create
this.text = "图书管理"
this.m_图书出借=create m_图书出借
this.m_图书归还=create m_图书归还
this.m_图书整理=create m_图书整理
this.Item[UpperBound(this.Item)+1]=this.m_图书出借
this.Item[UpperBound(this.Item)+1]=this.m_图书归还
this.Item[UpperBound(this.Item)+1]=this.m_图书整理
end on

on m_图书管理.destroy
call super::destroy
destroy(this.m_图书出借)
destroy(this.m_图书归还)
destroy(this.m_图书整理)
end on

type m_图书出借 from menu within m_图书管理
event create ( )
event destroy ( )
end type

on m_图书出借.create
call super::create
this.text = "图书出借"
end on

on m_图书出借.destroy
call super::destroy
end on

event clicked;open(w_borrow)
end event

type m_图书归还 from menu within m_图书管理
event create ( )
event destroy ( )
end type

on m_图书归还.create
call super::create
this.text = "图书归还"
end on

on m_图书归还.destroy
call super::destroy
end on

event clicked;open(w_return)

end event

type m_图书整理 from menu within m_图书管理
event create ( )
event destroy ( )
end type

on m_图书整理.create
call super::create
this.text = "图书整理"
end on

on m_图书整理.destroy
call super::destroy
end on

event clicked;open(w_bookhandle)
end event

type m_查询 from menu within m_main
event create ( )
event destroy ( )
end type

on m_查询.create
call super::create
this.text = "查询"
end on

on m_查询.destroy
call super::destroy
end on