PB图书管理系统设计 第9页
m_main.m_系统菜单.m_图书信息设置.enabled=false
 case "4"
  m_main.m_图书管理.enabled=false
  m_main.m_借阅人管理.enabled=false
  m_main.m_系统菜单.m_用户管理.enabled=false
  m_main.m_系统菜单.m_借阅规则设置.enabled=false
  m_main.m_系统菜单.m_图书信息设置.enabled=false
end choose  

4.2 函数countday
countday (date date1,date date2)
功能介绍：通过传入的date1（起始日期）值与date2（结束日期）值，计算出中间相差的天数，返回值为integer型。
代码分析：
int day
day=(integer(year(date2)) - integer(year(date1)))*365 +&
  (integer(month(date2)) - integer(month(date1)))*30 +&
  (integer(day(date2)) - integer(day(date1)))*1
return day

4.3 函数countfine
countfine (integer days, decimal fine, integer countday)
功能介绍：根据图书免费借阅天数days、罚金费率fine,以及已借阅的天数（由countday函数算出），计算出费用，返回值为decimal型。
代码分析：
  dec countfine
  if countday>=0 and countday<=days then//免费使用期内罚金为0 
   countfine=0
  else
   countfine=(countday - days)*fine//超根据期多少计算罚金
  end if
  return countfine
5 应用程序对象 App_librarain
功能介绍：PB程序由一个应用程序开始，即每个PB程序在开始运行时，先执行应用程序对象的Open事件。在Open事件中连接数据库，并打开登陆窗口w_login。
代码分析：
// Profile librarian
SQLCA.DBMS = "ODBC"
SQLCA.AutoCommit = False
SQLCA.DBParm = "ConnectString='DSN=librarian;UID=;PWD='"
Connect using SQLCA;
//判断数据库连接是否成功
if sqlca.sqlcode = 0 then
 open(w_login)
else
 messagebox('系统提示','连接数据库失败！')
end if
6 具体窗口的实现
（1）登录窗口 w_login               
 图5.1
功能介绍：本窗口主要是检查操作员输入的用户名及密码是否正确，如果正确，允许登录。如果错误，显示出错误提示。
操作方法：填写“用户名”与“密码”后，点击“登录”按钮进行验证，点击“放弃”退出。
代码分析：
Open事件：sle_1.setfocus()//“用户名”输入框获得焦点
this.width=923
this.height=588
“登录”按钮：string name,pwd
char lev
int test
name=sle_1.text
pwd=sle_2.text
//检测用户名与密码是否匹配
SELECT level
INTO :lev
FROM people
WHERE name=:name and password=:pwd;
if lev<>"" then
 open(w_main)
 level(lev)//根据权限设定菜单状态
else
 sle_1.setfocus()
 test=messagebox("提示：","用户名或者密码错误！",Exclamation!,
OKCancel!, 2)
end if//检测是否重新登录
if test=1 then
 return 1
else
 close(parent) 
end if
（2） 主窗口w_main
功能介绍：本窗口作为菜单及其他子窗口的容器。
窗口设置；本窗口为容器窗口，故它的WindowType为mdihelp!,表示本窗口为多文档界面，可以有菜单、工具栏与状态栏。WindowState为maximized!，表示窗口在运行时是最大化的风格。Menuname属性设为m_main,即是与本窗口连接的菜单名称。

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >>