毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

VF进销存管理系统论文(系统结构图+源代码) 第6页

更新时间:2008-11-6:  来源:毕业论文

VF进销存管理系统论文
图5  系统登录模块运行结果
1.表单设计
(1)新建一个表单,命名为Frm登录。
(2)向表单内添加Label控件、ListView控件、ImageList控件、Text控件、Command控件、Container控件、FormIn类控件、LockDateBase类控件。
(3)重要控件的属性设置如表5所示。
表5                             重要控件及属性
对象 属性 值
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
4.3  商品信息管理模块设计
商品信息管理模块主要用于进行商品基础信息的管理,通过此模块可以对商品进行添加、修改、删除、保存等相关功能的操作。商品信息模块运行结果如图6所示。

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >> 

VF进销存管理系统论文(系统结构图+源代码) 第6页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。