1、新华书店进销存管理系统程序源代码新华书店进销存管理系统程序源代码1、主程序MAIN.PRG程序代码SET DEFAULT TO C:毕业设计PUBLIC nkfgl,nxsgl,ncggl,nkcgl,nxtglSTORE .f. TO nkfgl,nxsgl,ncggl,nkcgl,nxtglPUBLIC nname,ndepartmentSTORE TO nname,ndepartmentDo Form loginfRead EventsDo Form mainRead EventsQuit2、主表单MAIN.SCX代码2.1 表单Init过程程序代码do mmenu.mpr with t
2、his,.T.this.label2.caption = nnamethis.label4.caption = ndepartment3、系统登入表单LOGINF.SCX代码3.1 表单登入按钮Click事件程序代码SELECT userGO TOP*检查用户名和密码是否输入If empty(thisform.text1.value) then thisform.label3.caption = 请输入用户名 returnelse if empty(thisform.text2.value) then thisform.label3.caption = 请输入密码 return endifen
3、dif*操作USER表,查询满足条件记录locate for name = alltrim(thisform.text1.value) if !found() thisform.label3.caption=用户不存在 returnelse if user.password != alltrim(thisform.text2.value) then thisform.label3.caption=密码错误 return endifendifnname = user.namendepartment = user.departmentnkfgl = user.kfglnxsgl = user.xs
4、glncggl = user.cgglnkcgl = user.kcglnxtgl = user.xtglthisform.releaseclear events4、系统管理表单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 =
5、 .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_recordthisform.dis_reccommand4.2 表单自定义过程DIS_RECORD程序代码PUBLIC newcommandSTORE .f. TO newcommandif reccount(user) = 0 thisform.tex
6、t1.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 = 0else thisform.text1.value = user.namethisform.text2.value = user.passwordbo1.value = user.departmentif user.kfgl then thisfor
7、m.check1.value = 1else thisform.check1.value = 0endifif user.xsgl then thisform.check2.value = 1else thisform.check2.value = 0endifif user.cggl then thisform.check3.value = 1else thisform.check3.value = 0endifif user.kcgl then thisform.check4.value = 1else thisform.check4.value = 0endifif user.xtgl
8、then thisform.check5.value = 1else thisform.check5.value = 0endifendifthisform.refresh4.3 表单自定义过程DIS_RECCOMMAND程序代码private nstore 0 to nn = reccount(user) if n=1 .or. n=0 then mand1.enabled = .f. mand2.enabled = .f. mand3.enabled = .f. mand4.enabled = .f.else if recno(user)=1 then mand1.enabled = .f
9、. mand2.enabled = .f. mand3.enabled = .t. mand4.enabled = .t. else if recno(user)=n then 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 endifendifthisform.refresh4.4 表单保存按钮Clic
10、k事件程序代码if empty(thisform.text1.value) then =messagebox(请输入用户名,0+48+0,出错) thisform.text1.setfocus thisform.refresh returnendifif empty(thisform.text2.value) then =messagebox(请输入密码,0+48+0,出错) thisform.text2.setfocus thisform.refresh returnendifif .not.(alltrim(thisform.text2.value) = alltrim(thisform.
11、text3.value) then =messagebox(密码重复错误,请重新输入,0+48+0,出错) thisform.text2.value = thisform.text3.value = thisform.text2.setfocus thisform.refresh returnendifif empty(bo1.value) then =messagebox(请选择所属部门,0+48+0,出错) bo1.setfocus thisform.refresh returnendifif thisform.check1.value=0.and.thisform.check2.valu
12、e=0.and.thisform.check3.value=0.and.thisform.check4.value=0.and.thisform.check5.value=0 then =messagebox(至少选择一个用户权限,0+48+0,出错) thisform.check1.setfocus thisform.refresh returnendifif thisform.check1.value=1.and.thisform.check2.value=1.and.thisform.check3.value=1.and.thisform.check4.value=1.and.thisf
13、orm.check5.value=1 then mesbox=messagebox(此用户将具有全部权限,请确认,4+48+0,警告) if mesbox=7 then thisform.check1.setfocus thisform.refresh return endifendif*用户权限处理PRIVATE nname,npassword,ndepartment,nkf,nxs,ncg,nkc,nxtnname = alltrim(thisform.text1.value)npassword = alltrim(thisform.text2.value)ndepartment = al
14、ltrim(bo1.value)if thisform.check1.value = 1 then nkf = .t.else nkf = .f.endifif thisform.check2.value = 1 then nxs = .t.else nxs = .f.endifif thisform.check3.value = 1 then ncg = .t.else ncg = .f.endifif thisform.check4.value = 1 then nkc = .t.else nkc = .f.endifif thisform.check5.value = 1 then nx
15、t = .t.else nxt = .f.endif*判断是新记录保存还是修改记录If newcommand then & newcommand = .t. 是新记录保存 locate for user.name=alltrim(thisform.text1.value) if found() then =messagebox(用户已经存在,0+48+0,出错) thisform.text1.setfocus thisform.refresh return endif *数据表user保存记录 insert into user(name,password,department,kfgl,xsg
16、l,cggl,kcgl,xtgl) values (nname,npassword,ndepartment,nkf,nxs,ncg,nkc,nxt) =messagebox(保存完毕,0+48+0,提示)else update user set password= npassword,department=ndepartment,kfgl=nkf,xsgl=nxs,cggl=ncg,kcgl=nkc,xtgl=nxt where name= nname =messagebox(修改完成,0+48+0,提示)endif *表单初始化 thisform.text1.enabled = .f. th
17、isform.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 =
18、.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.refres
19、h4.5 表单浏览按钮Click事件程序代码DEFINE WINDOW browsewin FROM 1,1 TO 30,80 noFLOAT CLOSE nominimize nogrow nozoom systembrow fields name,department,kfgl,xsgl,cggl,kcgl window browsewin noappend nomodify nodeleterelease window browsewin5、图书管理表单TSGL.SCX代码5.1 自定义过程AUTO_BOOKID程序代码select bookset order to bookidgo b
20、ottomprivate autoid1,autoid2,autoid3,autoid4autoid1 = alltrim(str(val(substr(alltrim(book.bookid),2,6)+1,6,0)autoid2 = len(autoid1)if autoid2 != 6 then for n = autoid2 to 5 autoid1 = 0 + autoid1 endforendifautoid4 = B + alltrim(autoid1)thisform.text1.value = autoid45.2 新建按钮Click事件程序代码thisform.text2.
21、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.e
22、nabled = .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 = 0thisform.text8.value =
23、 0thisform.auto_bookidthisform.text2.setfocusthisform.newcommand = .t.thisform.refresh5.3 删除按钮Click事件程序代码if reccount(book)=1 then =messagebox(只有一条记录,不能删除,0+16+0,出错) returnelse nbookid = alltrim(thisform.text1.value) nbookname = alltrim(thisform.text2.value) mesbox=messagebox(是否删除+nbookid+号图书,4+48+0,
24、警告) if mesbox=7 then return else use book EXCLUSIVE delete from book where bookid=nbookid pack =messagebox(nbookid+图书已经删除,0+48+0,提示) endifendifthisform.dis_recordthisform.dis_reccommandthisform.grid1.recordsource = bookthisform.refresh5.4 保存按钮Click事件程序代码if empty(thisform.text2.value) =messagebox(请输入
25、书名,0+48+0,出错) thisform.text2.setfocus thisform.refresh returnendifif empty(thisform.text3.value) =messagebox(请输入书号,0+48+0,出错) thisform.text3.setfocus thisform.refresh returnendifif empty(thisform.text4.value) =messagebox(请输入出版社,0+48+0,出错) thisform.text4.setfocus thisform.refresh returnendifif empty(
26、thisform.text5.value) =messagebox(请输入作者信息,0+48+0,出错) thisform.text5.setfocus thisform.refresh returnendifif empty(bo1.value) =messagebox(请选择图书类型,0+48+0,出错) bo1.setfocus thisform.refresh return endifif thisform.text7.value = 0 =messagebox(请输入价格,0+48+0,出错) bo1.setfocus thisform.refresh return endif PR
27、IVATE nbookid,nbookname,nbookno,nbookphouse,nbookwriter,nbookcd,nbookclass,nbookprice,nbookdiscountnbookid = alltrim(thisform.text1.value)nbookname = alltrim(thisform.text2.value)nbookno = alltrim(thisform.text3.value)nbookphouse = alltrim(thisform.text4.value)nbookwriter = alltrim(thisform.text5.va
28、lue)nbookcd = alltrim(thisform.text6.value)nbookclass = alltrim(bo1.value)nbookprice = thisform.text7.valuenbookdiscount = thisform.text8.value*判断是新记录保存还是修改记录If thisform.newcommand then & newcommand = .t. 是新记录保存 *数据表book保存记录 insert into book (bookid,bookname,bookno,bookphouse,bookwriter,bookcd,bookclass,bookprice,bookdisc
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1