新华书店进销存管理系统部分程序源代码

新华书店进销存管理系统部分程序源

代码

1

2020年4月19日

附录2

新华书店进销存管理系统部分程序源代码

1、主程序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

2

2020年4月19日

2、主表单MAIN.SCX代码

2.1 表单Init过程程序代码

do mmenu.mpr with this,.T.

https://www.sodocs.net/doc/ac938579.html,bel2.caption = nname

https://www.sodocs.net/doc/ac938579.html,bel4.caption = ndepartment

3、系统登入表单LOGINF.SCX代码

3.1 表单登入按钮Click事件程序代码

SELECT user

GO TOP

*检查用户名和密码是否输入

If empty(thisform.text1.value) then

https://www.sodocs.net/doc/ac938579.html,bel3.caption = "请输入用户名"

return

else

if empty(thisform.text2.value) then

https://www.sodocs.net/doc/ac938579.html,bel3.caption = "请输入密码"

3

2020年4月19日

return

endif

endif

*操作USER表,查询满足条件记录

locate for name = alltrim(thisform.text1.value) if !found()

https://www.sodocs.net/doc/ac938579.html,bel3.caption="用户不存在"

return

else

if user.password != alltrim(thisform.text2.value) then

https://www.sodocs.net/doc/ac938579.html,bel3.caption="密码错误"

return

endif

endif

nname = https://www.sodocs.net/doc/ac938579.html,

ndepartment = user.department

nkfgl = user.kfgl

4

2020年4月19日

nxsgl = user.xsgl

ncggl = user.cggl

nkcgl = user.kcgl

nxtgl = user.xtgl

thisform.release

clear events

4、系统管理表单XTGLF.SCX代码

4.1 表单Init过程程序代码

thisform.text1.enabled = .f.

thisform.text2.enabled = .f.

thisform.text3.enabled = .f.

https://www.sodocs.net/doc/ac938579.html,bo1.enabled = .f.

thisform.check1.enabled = .f.

thisform.check2.enabled = .f.

thisform.check3.enabled = .f.

thisform.check4.enabled = .f.

thisform.check5.enabled = .f.

5

2020年4月19日