=''
//sle_pw.text=''
openabc;
ifii_time<3then
do
fetchabcinto:ls_name,:ls_ps;
IFsle_name.text=ls_nameandsle_pw.text=ls_psTHEN
messagebox('系统登入成功','欢迎你的到来,'+ls_name+'!')
m_main.m_1.m_2.enabled=true
closeabc;
flag=1;
m_main.m_1.m_当前借阅.enabled=true
m_main.m_书库操作.m_书库修改.enabled=true
m_main.m_读者操作.m_读者管理.enabled=true
m_main.m_用户管理.m_管理入口.enabled=true
w_main.title='图书馆管理系统---当前管理员:'+ls_name
exit
endif
loopwhilesqlca.sqlcode<>100;
closeabc;
ifflag=0then
MessageBox('登录错误','密码或用户名有误,请重新输入!')
sle_name.setfocus()
sle_name.text=''
sle_pw.text=''
ii_time++
endif
else
MessageBox('登录错误','对不起,你无权使用本系统!')
close(w_gjlogin)
endif
//name=ls_name
ifflag=1thenclose(w_gjlogin)
click事件(取消)代码:close(parent)
2.借书管理窗口功能:
借阅图书窗口及其代码:
Click事件(确定)代码:
stringa,pw,f='',a1,a2,a3,a4,a5,ic
introw_count
inti,b=0
stringls_no
integerc=0,d
row_count=dw_1.rowcount()
selectbook1,book2,book3,book4,book5
into:a1,:a2,:a3,:a4,:a5
fromnamebook
wherename=:name;
ifa1<>''thenc=c+1
ifa2<>''thenc=c+1
ifa3<>''thenc=c+1
ifa4<>''thenc=c+1
ifa5<>''thenc=c+1
d=c
fori=1torow_count
ifdw_1.getitemstring(i,'book_no')='1'thend=d+1
next
ifd>5then
messagebox('','您所借的书不能超过五本!')
b=1
gotoaa
endif
openpt;
fori=1torow_count
fetchptinto:ls_no;
ifdw_1.getitemstring(i,'book_no')='1'then
c=c+1
a=dw_1.getitemstring(i,'book_name')
choosecasec
case1
updatenamebook
setbook1=:a
wherename=:name;
updatebook
setbook_jname=:name
wherebook_name=:a;
updatebook
setflag='已借出'
wherebook_name=:a;
case2
updatenamebook
setbook2=:a
wherename=:name;
updatebook
setbook_jname=:name
wherebook_name=:a;
updatebook
setflag='已借出'
wherebook_name=:a;
case3
updatenamebook
setbook3=:a
wherename=:name;
updatebook
setbook_jname=:name
wherebook_name=:a;
updatebook
setflag='已借出'
wherebook_name=:a;
case4
updatenamebook
setbook4=:a
wherename=:name;
updatebook
setbook_jname=:name
wherebook_name=:a;
updatebook
setflag='已借出'
wherebook_name=:a;
case5
updatenamebook
setbook5=:a
wherename=:name;
updatebook
setbook_jname=:name
wherebook_name=:a;
updatebook
setflag='已借出'
wherebook_name=:a;
endchoose
endif
next
closept;
aa:
ifb=0thenmessagebox('成功','借书成功!')
dw_1.retrieve()
return
click事件(取消)代码:close(w_rtobook)
当前借阅窗口极其代码:
OPEN:
stringlookforcondition
this.X=(w_main.WorkSpaceWidth()-this.Width)/2
this.Y=(w_main.WorkSpaceHeight()-w_main.mdi_1.MicroHelpHeight-this.Height)/2-50
dw_1.settransobject(sqlca)
//messagebox('',ls_name)
lookforcondition='name'+'='+"'"+ls_name+"'"
dw_1.setfilter(lookforcondition)
filter(dw_1)
dw_1.retrieve()
还书操作窗口及其代码:
OPEN:
integerflag=0
stringa1,a2,a3,a4,a5
selectbook1,book2,book3,book4,book5
into:a1,:a2,:a3,:a4,:a5
fromnamebook
wherename=:ls_name;
ifisnull(a1)andisnull(a2)andisnull(a3)andisnull(a4)andisnull(a5)then
messagebox('','你尚未借书,所以无需还书!')
flag=1
endif
stringlookforcondition
this.X=(w_main.WorkSpaceWidth()-this.Width)/2
this.Y=(w_main.WorkSpaceHeight()-w_main.mdi_1.MicroHelpHeight-this.Height)/2-50
dw_1.settransobject(sqlca)
//messagebox('',ls_name)
lookforcondition='name'+'='+"'"+ls_name+"'"
dw_1.setfilter(lookforcondition)
filter(dw_1)
dw_1.retrieve()
ifflag=1thenclose(w_hbook)
click事件(确认)代码:
stringa
ifcbx_1.checked=truethen
a=dw_1.getitemstring(dw_1.getrow(),'book1')
updatenamebook
setbook1=null
wherename=:ls_name;
updatebook
setbook_jname=null
wherebook_
上一篇:
PB图书管理系统(论文和程序)
下一篇:
HTML基础教程:学习掌握HTML 元素