毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

PB图书管理系统设计 第9页

更新时间:2010-2-27:  来源:毕业论文
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]  ... 下一页  >> 

PB图书管理系统设计 第9页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。