新华书店进销存管理系统程序源代码.docx
《新华书店进销存管理系统程序源代码.docx》由会员分享，可在线阅读，更多相关《新华书店进销存管理系统程序源代码.docx（51页珍藏版）》请在冰豆网上搜索。
新华书店进销存管理系统程序源代码
新华书店进销存管理系统程序源代码
1、主程序MAIN.PRG程序代码
SETDEFAULTTOC:
\毕业设计
PUBLICnkfgl,nxsgl,ncggl,nkcgl,nxtgl
STORE.f.TOnkfgl,nxsgl,ncggl,nkcgl,nxtgl
PUBLICnname,ndepartment
STORE""TOnname,ndepartment
DoFormloginf
ReadEvents
DoFormmain
ReadEvents
Quit
2、主表单MAIN.SCX代码
2.1表单Init过程程序代码
dommenu.mprwiththis,.T.
this.label2.caption=nname
this.label4.caption=ndepartment
3、系统登入表单LOGINF.SCX代码
3.1表单登入按钮Click事件程序代码
SELECTuser
GOTOP
*检查用户名和密码是否输入
Ifempty（thisform.text1.value）then
thisform.label3.caption="请输入用户名"
return
else
ifempty（thisform.text2.value）then
thisform.label3.caption="请输入密码"
return
endif
endif
*操作USER表，查询满足条件记录
locateforname=alltrim（thisform.text1.value）
if!
found（）
thisform.label3.caption="用户不存在"
return
else
ifuser.password!
=alltrim（thisform.text2.value）then
thisform.label3.caption="密码错误"
return
endif
endif
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
else
thisform.check1.value=0
endif
ifuser.xsglthen
thisform.check2.value=1
else
thisform.check2.value=0
endif
ifuser.cgglthen
thisform.check3.value=1
else
thisform.check3.value=0
endif
ifuser.kcglthen
thisform.check4.value=1
else
thisform.check4.value=0
endif
ifuser.xtglthen
thisform.check5.value=1
else
thisform.check5.value=0
endif
endif
thisform.refresh
4.3表单自定义过程DIS_RECCOMMAND程序代码
privaten
store0ton
n=reccount（"user"）
ifn=1.or.n=0then
mand1.enabled=.f.
mand2.enabled=.f.
mand3.enabled=.f.
mand4.enabled=.f.
else
ifrecno（"user"）=1then
mand1.enabled=.f.
mand2.enabled=.f.
mand3.enabled=.t.
mand4.enabled=.t.
else
ifrecno（"user"）=nthen
mand1.enabled=.t.
mand2.enabled=.t.
mand3.enabled=.f.
mand4.enabled=.f.
else
mand1.enabled=.t.
mand2.enabled=.t.
mand3.enabled=.t.
mand4.enabled=.t.
endif
endif
endif
thisform.refresh
4.4表单保存按钮Click事件程序代码
ifempty（thisform.text1.value）then
=messagebox（"请输入用户名",0+48+0,"出错"）
thisform.text1.setfocus
thisform.refresh
return
endif
ifempty（thisform.text2.value）then
=messagebox（"请输入密码",0+48+0,"出错"）
thisform.text2.setfocus
thisform.refresh
return
endif
if.not.（alltrim（thisform.text2.value）==alltrim（thisform.text3.value））then
=messagebox（"密码重复错误,请重新输入",0+48+0,"出错"）
thisform.text2.value=""
thisform.text3.value=""
thisform.text2.setfocus
thisform.refresh
return
endif
ifempty（bo1.value）then
=messagebox（"请选择所属部门",0+48+0,"出错"）
bo1.setfocus
thisform.refresh
return
endif
ifthisform.check1.value=0.and.thisform.check2.value=0.and.thisform.check3.value=0.and.thisform.check4.value=0.and.thisform.check5.value=0then
=messagebox（"至少选择一个用户权限",0+48+0,"出错"）
thisform.check1.setfocus
thisform.refresh
return
endif
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
thisform.check1.setfocus
thisform.refresh
return
endif
endif
*用户权限处理
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.
else
nkf=.f.
endif
ifthisform.check2.value=1then
nxs=.t.
else
nxs=.f.
endif
ifthisform.check3.value=1then
ncg=.t.
else
ncg=.f.
endif
ifthisform.check4.value=1then
nkc=.t.
else
nkc=.f.
endif
ifthisform.check5.value=1then
nxt=.t.
else
nxt=.f.
endif
*判断是新记录保存还是修改记录
Ifnewcommandthen&&newcommand=.t.是新记录保存
locateforuser.name=alltrim（thisform.text1.value）
iffound（）then
=messagebox（"用户已经存在",0+48+0,"出错"）
thisform.text1.setfocus
thisform.refresh
return
endif
*数据表user保存记录
insertintouser（name,password,department,kfgl,xsgl,cggl,kcgl,xtgl）values（nname,npassword,ndepartment,nkf,nxs,ncg,nkc,nxt）
=messagebox（"保存完毕",0+48+0,"提示"）
else
updateusersetpassword=npassword,department=ndepartment,kfgl=nkf,xsgl=nxs,cggl=ncg,kcgl=nkc,xtgl=nxtwherename=nname
=messagebox（"修改完成",0+48+0,"提示"）
endif
*表单初始化
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.
mand1.enabled=.t.
mand2.enabled=.t.
mand3.enabled=.t.
mand4.enabled=.t.
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.
thisform.refresh
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
endif
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.
thisform.refresh
5.3删除按钮Click事件程序代码
ifreccount（"book"）=1then
=messagebox（"只有一条记录,不能删除",0+16+0,"出错"）
return
else
nbookid=alltrim（thisform.text1.value）
nbookname=alltrim（thisform.text2.value）
mesbox=messagebox（"是否删除"+nbookid+"号图书",4+48+0,"警告"）
ifmesbox=7then
return
else
usebookEXCLUSIVE
deletefrombookwherebookid=nbookid
pack
=messagebox（nbookid+"图书已经删除",0+48+0,"提示"）
endif
endif
thisform.dis_record
thisform.dis_reccommand
thisform.grid1.recordsource="book"
thisform.refresh
5.4保存按钮Click事件程序代码
ifempty（thisform.text2.value）
=messagebox（"请输入书名",0+48+0,"出错"）
thisform.text2.setfocus
thisform.refresh
return
endif
ifempty（thisform.text3.value）
=messagebox（"请输入书号",0+48+0,"出错"）
thisform.text3.setfocus
thisform.refresh
return
endif
ifempty（thisform.text4.value）
=messagebox（"请输入出版社",0+48+0,"出错"）
thisform.text4.setfocus
thisform.refresh
return
endif
ifempty（thisform.text5.value）
=messagebox（"请输入作者信息",0+48+0,"出错"）
thisform.text5.setfocus
thisform.refresh
return
endif
ifempty（bo1.value）
=messagebox（"请选择图书类型",0+48+0,"出错"）
bo1.setfocus
thisform.refresh
return
endif
ifthisform.text7.value=0
=messagebox（"请输入价格",0+48+0,"出错"）
bo1.setfocus
thisform.refresh
return
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&&newcommand=.t.是新记录保存
*数据表book保存记录
insertintobook（bookid,bookname,bookno,bookphouse,bookwriter,bookcd,bookclass,bookprice,bookdisc
升级会员 