VF进销存管理系统论文（系统结构图+源代码） 第5页
图4 系统登录模块运行结果
1．表单设计
（1）新建一个表单，命名为Frm登录。
（2）向表单内添加Label控件、ListView控件、ImageList控件、Text控件、Command控件、Container控件、FormIn类控件、LockDateBase类控件。
（3）重要控件的属性设置如表4所示。
表4 重要控件及属性
对象 属性 值
Form1 AutoCenter .T.
Form1 ShowWindows 2-作为顶层表单
ListView1 BackColor 13160660
2．代码设计
在表单的 Init 事件下添加如下代码：
PUBLIC no
SET SAFT OFF
no=0
SELE 操作员信息表
thisform.listview.view=0
thisform.listview.icons=thisform.imagelist.object
IF reccount()<>0
FOR m=1 TO reccount()
SELE 操作员信息表
GOTO m
=thisform.listview.listitems.add(,,操作员信息表.用户名,操作员信息表.头像)
ENDFOR
ELSE
=thisform.listview.listitems.add(,,"超级管理员",rand(-11)*12)
ENDIF
在表单的Unload事件下添加如下代码：
QUIT
在“登录”按钮的Click事件下添加如下代码：
IF alltrim(thisform.text1.value)="超级管理员"
gly="超级管理员"
thisform.top=-1100
thisform.visible=.f.
DO FROM forms\frmmain
ELSE
SELECT * FROM 操作员信息表 WHERE 用户名=alltrim(thisform.text3.value) ;
INTO CURSOR lsb
IF alltrim(lsb.密码)==alltrim(thisform.text2.value)
gly=lsb.编号
thisform.top=-1100
thisform.visible=.f.
DO FROM forms\frmmain
ELSE
no=no+1
IF no>=3
messagebox("您输入密码不正确！”,16,”系统提示")
thisform.Lockdatebase1.lock(sys(5)+sys(2003)+"\data\Database.dbc","正在加密，请稍后...")
_screen.visible=.t.
_screen.top=0
thisform.release
ELSE
messagebox("您输入的密码不正确！请注意大小写！",16,"系统提示")
thisform.text2.value=""
thisform.listview.setfocus
ENDIF
ENDIF
ENDIF
在“密码”文本框的KeyPress事件下添加如下代码：
IF nkeycode=13
thisform.command1.click
ENDIF
在Listview控件的KeyPress事件下添加如下代码：
IF keyascii=13
this.click
ENDIF
在ListView控件的Click事件下添加如下代码：
thisform.text1.value=thisform.listview.selecteditem.text
select * from 操作员信息表 where 用户名=alltrim(thisform.listview.selecteditem.text) into cursor lsb_czy
thisform.text3.value=thisform.listview.selecteditem.text
thisform.text1.value=lsb_czy.编号
thisform.text2.setfocus
在“退出”按钮的Click事件下添加如下代码：
thisform.Lockdatebase1.lock(sys(5)+sys(2003)+"\data\database.dbc","正在加密，请稍后...")
IF file(sys(5)+sys(2003)+"\Setup.tmp")=.t.
DELE FILE (sys(5)+sys(2003)+"\Setup.tmp")
ENDIF
_screen.visible=.t.
_screen.top=0
thisform.release
为了保证应用程序的安全，通常要设计系统登录表单验证用户是否合法。只有合法的用户才可进入系统。系统登录模块运行结果。如图5所示
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>