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

附录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.