附录2新的华书店进销存管理系统部分程序源代码.doc

附录2 新华书店进销存管理系统部分程序源代码 主程序MAIN.PRG程序代码 SET DEFAULT TO C:\毕业设计 PUBLIC nkfgl,nxsgl,ncggl,nkcgl,nxtgl STORE .f. TO nkfgl,nxsgl,ncggl,nkcgl,nxtgl PUBLIC nname,ndepartment STORE TO nname,ndepartment Do Form loginf Read Events Do Form main Read Events Quit 主表单MAIN.SCX代码 2.1 表单Init过程程序代码 do mmenu.mpr with this,.T. this.label2.caption = nname this.label4.caption = ndepartment 系统登入表单LOGINF.SCX代码 3.1 表单登入按钮Click事件程序代码 SELECT user GO TOP *检查用户名和密码是否输入 If empty(thisform.text1.value) then thisform.label3.caption = 请输入用户名 return else if empty(thisform.text2.value) then thisform.label3.caption = 请输入密码 return endif endif *操作USER表，查询满足条件记录 locate for name = alltrim(thisform.text1.value) if !found() thisform.label3.caption=用户不存在 return else if user.password != alltrim(thisform.text2.value) then thisform.label3.caption=密码错误 return endif endif nname = ndepartment = user.department nkfgl = user.kfgl nxsgl = user.xsgl ncggl = user.cggl nkcgl = user.kcgl nxtgl = user.xtgl thisform.release clear events 系统管理表单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程序代码 PUBLIC newcommand STORE .f. TO newcommand if reccount(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 = thisform.text2.value = user.password bo1.value = user.department if user.kfgl then thisform.check1.value = 1 else thisform.check1.value = 0 endif if user.xsgl then thi