新华书店进销存管理系统程序源代码Word文档格式.docx
- 文档编号:17192764
- 上传时间:2022-11-28
- 格式:DOCX
- 页数:51
- 大小:32.42KB
新华书店进销存管理系统程序源代码Word文档格式.docx
《新华书店进销存管理系统程序源代码Word文档格式.docx》由会员分享,可在线阅读,更多相关《新华书店进销存管理系统程序源代码Word文档格式.docx(51页珍藏版)》请在冰豆网上搜索。
ifempty(thisform.text2.value)then
请输入密码"
endif
endif
*操作USER表,查询满足条件记录
locateforname=alltrim(thisform.text1.value)
if!
found()
thisform.label3.caption="
用户不存在"
ifuser.password!
=alltrim(thisform.text2.value)then
密码错误"
nname=user.name
ndepartment=user.department
nkfgl=user.kfgl
nxsgl=user.xsgl
ncggl=user.cggl
nkcgl=user.kcgl
nxtgl=user.xtgl
thisform.release
clearevents
4、系统管理表单XTGLF.SCX代码
4.1表单Init过程程序代码
thisform.text1.enabled=.f.
thisform.text2.enabled=.f.
thisform.text3.enabled=.f.
bo1.enabled=.f.
thisform.check1.enabled=.f.
thisform.check2.enabled=.f.
thisform.check3.enabled=.f.
thisform.check4.enabled=.f.
thisform.check5.enabled=.f.
thisform.label5.visible=.f.
thisform.text3.visible=.f.
mand10.enabled=.f.
mand11.enabled=.f.
thisform.dis_record
thisform.dis_reccommand
4.2表单自定义过程DIS_RECORD程序代码
PUBLICnewcommand
STORE.f.TOnewcommand
ifreccount("
user"
)=0
thisform.text1.value="
thisform.text2.value="
bo1.value="
thisform.check1.value=0
thisform.check2.value=0
thisform.check3.value=0
thisform.check4.value=0
thisform.check5.value=0
else
thisform.text1.value=user.name
thisform.text2.value=user.password
bo1.value=user.department
ifuser.kfglthen
thisform.check1.value=1
ifuser.xsglthen
thisform.check2.value=1
ifuser.cgglthen
thisform.check3.value=1
ifuser.kcglthen
thisform.check4.value=1
ifuser.xtglthen
thisform.check5.value=1
thisform.refresh
4.3表单自定义过程DIS_RECCOMMAND程序代码
privaten
store0ton
n=reccount("
)
ifn=1.or.n=0then
mand1.enabled=.f.
mand2.enabled=.f.
mand3.enabled=.f.
mand4.enabled=.f.
ifrecno("
)=1then
mand3.enabled=.t.
mand4.enabled=.t.
else
)=nthen
mand1.enabled=.t.
mand2.enabled=.t.
4.4表单保存按钮Click事件程序代码
ifempty(thisform.text1.value)then
=messagebox("
0+48+0,"
出错"
)
thisform.text1.setfocus
thisform.refresh
ifempty(thisform.text2.value)then
thisform.text2.setfocus
if.not.(alltrim(thisform.text2.value)==alltrim(thisform.text3.value))then
密码重复错误,请重新输入"
thisform.text3.value="
ifempty(bo1.value)then
请选择所属部门"
bo1.setfocus
ifthisform.check1.value=0.and.thisform.check2.value=0.and.thisform.check3.value=0.and.thisform.check4.value=0.and.thisform.check5.value=0then
至少选择一个用户权限"
thisform.check1.setfocus
ifthisform.check1.value=1.and.thisform.check2.value=1.and.thisform.check3.value=1.and.thisform.check4.value=1.and.thisform.check5.value=1then
mesbox=messagebox("
此用户将具有全部权限,请确认"
4+48+0,"
警告"
ifmesbox=7then
*用户权限处理
PRIVATEnname,npassword,ndepartment,nkf,nxs,ncg,nkc,nxt
nname=alltrim(thisform.text1.value)
npassword=alltrim(thisform.text2.value)
ndepartment=alltrim(bo1.value)
ifthisform.check1.value=1then
nkf=.t.
nkf=.f.
ifthisform.check2.value=1then
nxs=.t.
nxs=.f.
ifthisform.check3.value=1then
ncg=.t.
ncg=.f.
ifthisform.check4.value=1then
nkc=.t.
nkc=.f.
ifthisform.check5.value=1then
nxt=.t.
nxt=.f.
*判断是新记录保存还是修改记录
Ifnewcommandthen&
&
newcommand=.t.是新记录保存
locateforuser.name=alltrim(thisform.text1.value)
iffound()then
用户已经存在"
*数据表user保存记录
insertintouser(name,password,department,kfgl,xsgl,cggl,kcgl,xtgl)values(nname,npassword,ndepartment,nkf,nxs,ncg,nkc,nxt)
保存完毕"
提示"
updateusersetpassword=npassword,department=ndepartment,kfgl=nkf,xsgl=nxs,cggl=ncg,kcgl=nkc,xtgl=nxtwherename=nname
修改完成"
*表单初始化
thisform.text1.enabled=.f.
thisform.text2.enabled=.f.
thisform.text3.enabled=.f.
bo1.enabled=.f.
thisform.check1.enabled=.f.
thisform.check2.enabled=.f.
thisform.check3.enabled=.f.
thisform.check4.enabled=.f.
thisform.check5.enabled=.f.
mand5.enabled=.t.
mand6.enabled=.t.
mand7.enabled=.t.
mand8.enabled=.t.
mand9.enabled=.t.
mand10.enabled=.f.
mand11.enabled=.f.
mand12.enabled=.t.
thisform.label5.visible=.f.
thisform.text3.visible=.f.
thisform.dis_reccommand
thisform.dis_record
newcommand=.f.
4.5表单浏览按钮Click事件程序代码
DEFINEWINDOWbrowsewinFROM1,1TO30,80noFLOATCLOSEnominimizenogrownozoomsystem
browfieldsname,department,kfgl,xsgl,cggl,kcglwindowbrowsewinnoappendnomodifynodelete
releasewindowbrowsewin
5、图书管理表单TSGL.SCX代码
5.1自定义过程AUTO_BOOKID程序代码
selectbook
setordertobookid
gobottom
privateautoid1,autoid2,autoid3,autoid4
autoid1=alltrim(str(val(substr(alltrim(book.bookid),2,6))+1,6,0))
autoid2=len(autoid1)
ifautoid2!
=6then
forn=autoid2to5
autoid1="
0"
+autoid1
endfor
autoid4="
B"
+alltrim(autoid1)
thisform.text1.value=autoid4
5.2新建按钮Click事件程序代码
thisform.text2.enabled=.t.
thisform.text3.enabled=.t.
thisform.text4.enabled=.t.
thisform.text5.enabled=.t.
thisform.text6.enabled=.t.
bo1.enabled=.t.
thisform.text7.enabled=.t.
thisform.text8.enabled=.t.
mand1.enabled=.f.
mand2.enabled=.f.
mand3.enabled=.f.
mand4.enabled=.f.
mand5.enabled=.f.
mand6.enabled=.f.
mand7.enabled=.f.
mand8.enabled=.f.
mand9.enabled=.f.
mand10.enabled=.t.
mand11.enabled=.t.
mand12.enabled=.t.
thisform.text2.value="
thisform.text3.value="
thisform.text4.value="
thisform.text5.value="
thisform.text6.value="
bo1.value="
thisform.text7.value=0
thisform.text8.value=0
thisform.auto_bookid
thisform.text2.setfocus
thisform.newcommand=.t.
5.3删除按钮Click事件程序代码
book"
只有一条记录,不能删除"
0+16+0,"
nbookid=alltrim(thisform.text1.value)
nbookname=alltrim(thisform.text2.value)
是否删除"
+nbookid+"
号图书"
usebookEXCLUSIVE
deletefrombookwherebookid=nbookid
pack
=messagebox(nbookid+"
图书已经删除"
thisform.grid1.recordsource="
5.4保存按钮Click事件程序代码
ifempty(thisform.text2.value)
请输入书名"
ifempty(thisform.text3.value)
请输入书号"
thisform.text3.setfocus
ifempty(thisform.text4.value)
请输入出版社"
thisform.text4.setfocus
ifempty(thisform.text5.value)
请输入作者信息"
thisform.text5.setfocus
ifempty(bo1.value)
请选择图书类型"
return
ifthisform.text7.value=0
请输入价格"
endif
PRIVATEnbookid,nbookname,nbookno,nbookphouse,nbookwriter,nbookcd,nbookclass,nbookprice,nbookdiscount
nbookid=alltrim(thisform.text1.value)
nbookname=alltrim(thisform.text2.value)
nbookno=alltrim(thisform.text3.value)
nbookphouse=alltrim(thisform.text4.value)
nbookwriter=alltrim(thisform.text5.value)
nbookcd=alltrim(thisform.text6.value)
nbookclass=alltrim(bo1.value)
nbookprice=thisform.text7.value
nbookdiscount=thisform.text8.value
Ifthisform.newcommandthen&
*数据表book保存记录
insertintobook(bookid,bookname,bookno,bookphouse,bookwriter,bookcd,bookclass,bookprice,bookdisc
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 新华书店 进销存 管理 系统 程序 源代码