$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