《新华书店进销存管理系统部分程序源代码》由会员分享,可在线阅读,更多相关《新华书店进销存管理系统部分程序源代码(5页珍藏版)》请在金锄头文库上搜索。
1、新华书店进销存管理系统部分程序源代码12020 年 4 月 19 日文档仅供参考附录 2新华书店进销存管理系统部分程序源代码1、主程序 MAIN.PRG程序代码毕业设计PUBLIC nkfgl,nxsgl,ncggl,nkcgl,nxtglSTORE .f. TO nkfgl,nxsgl,ncggl,nkcgl,nxtglPUBLIC nname,ndepartmentSTORE TO nname,ndepartmentDo Form loginfRead EventsDo Form mainRead EventsQuit22020 年 4 月 19 日文档仅供参考2、主表单 MAIN.SCX
2、代码2.1表单 Init过程程序代码do mmenu.mpr with this,.T.this.label2.caption = nnamethis.label4.caption = ndepartment3、系统登入表单LOGINF.SCX代码3.1表单登入按钮Click事件程序代码SELECT userGO TOP* 检查用户名和密码是否输入If empty(thisform.text1.value) thenthisform.label3.caption = 请输入用户名 returnelseif empty(thisform.text2.value) thenthisform.lab
3、el3.caption = 请输入密码 32020 年 4 月 19 日文档仅供参考returnendifendif* 操作 USER表 , 查询满足条件记录locate for name = alltrim(thisform.text1.value)if !found()thisform.label3.caption=用户不存在returnelseifuser.passwordalltrim(thisform.text2.value) then!=thisform.label3.caption=密码错误returnendifendifnname = user.namendepartment
4、= user.departmentnkfgl = user.kfgl42020 年 4 月 19 日文档仅供参考nxsgl = user.xsglncggl = user.cgglnkcgl = user.kcglnxtgl = user.xtglthisform.releaseclear events4、系统管理表单XTGLF.SCX代码4.1表单 Init过程程序代码thisform.text1.enabled = .f.thisform.text2.enabled = .f.thisform.text3.enabled = bo1.enabled = .f.thisform.check1.enabled = .f.thisform.check2.enabled = .f.thisform.check3.enabled = .f.thisform.check4.enabled = .f.thisform.check5.enabled = .f.52020 年 4 月 19 日