分享到:
计算机软件 最近更新
讨论未来电商发展趋势论文提纲
浅谈自媒体对现代生活的影响
论文范文:网络发展对青少年心理发展的影响
论我国电子商务应用中的支付问题
电子商务模式研究
中小型企业客户关系管理系统的开发与应用
中石油浙江销售分公司信息管理系统设计
图书馆管理系统分析与设计
物流师职业资格认证报名管理系统
销售管理系统的开发与设计
酒店客房管理系统
财务管理系统的实现
餐饮管理系统设计与实现
社区卫生服务管理系统
汽车营销企业的客户关系管理系统
明道管理咨询有限公司客户关系管理系统设计与开发
企业订单管理系统开发
基于WEB的CRM信息系统的开发与研究
高校科研工作量统计系统的开发与设计
基于Struts的连锁店管理系统
纵横进出口产品管理系统(9)
分页标题#e#
*——调用“系统登录”表单
DO FORM LogOn
*——退出“Splash”表单
THISFORM.release


二、进入系统的登陆界面,如图4.12
 
图4.12 登陆界面

登陆界面的设计代码:
*——精确比较
SET EXACT ON
*——判断是否输入了用户名
IF ALLTRIM(THISFORM.TextUser.VALUE)==""
 MESSAGEBOX("请输入用户名",48,"进销存管理系统")
 THISFORM.TextUser.SetFocus
 Return
ENDIF
*——获取输入的信息
USER_N=ALLTRIM(THISFORM.TextUser.VALUE)
USER_P=ALLTRIM(THISFORM.TextPass.VALUE)
*——定义逻辑变量is_user,用于判断是否为合法用户
LOCAL Is_User
Is_User=.F.
*——遍历用表中中所有的记录
*——判断输入的用户名称和用户密码是否存在
SELECT 用户信息
GO TOP
DO WHILE .NOT. EOF()
 *——寻找与输入的用户名和密码匹配的记录
 Is_User=(USER_N=用户信息.用户名).AND.(USER_P=用户信息.密码)
 *——如果找到
 IF IS_USER
  EXIT
 ELSE
  SKIP
 ENDIF
ENDDO
*——如果正确
IF IS_USER
 *——保存登录用户
 cCurUser=ALLTRIM(THISFORM.TextUser.Value)
 *——调用主界面
 DO FORM MainForm
 *——退出当前表单
 THISFORM.RELEASE
*——如果登录不正确
ELSE
 MESSAGEBOX("用户名或用户密码不正确!",0+16,"进销存管理系统")
 THISFORM.TextUser.Value=""
 THISFORM.TextPass.Value=""
 THISFORM.TextUser.SetFocus
ENDIF
*——模糊比较
SET EXACT OFF


三、商品信息管理窗体:商品信息管理的功能主要包括信息浏览,商品查询,商品添加,商品编辑和商品删除,通过窗体可以对所有功能进行操作,如图4.13:
 
图4.13 商品信息管理

进货记录查询:能实现对进货信息的查询,如图4.14:
 
 图4.14 进货记录查询

进货记录查询的程序代码
*——查询条件默认为“.T.
SearchFilter=".T."
*——如果“txt商品编号”非空
IF NOT EMPTY(ALLTRIM(THISFORM.txt商品编号.Value))
   SearchFilter=SearchFilter +  " AND '" + ALLTRIM(THISFORM.txt商品编号.Value) + "' $ 商品编号"
ENDIF
*——如果“txt商品名称”非空
IF NOT EMPTY(THISFORM.txt商品名称.Value)
   SearchFilter=SearchFilter +  " AND '" + ALLTRIM(THISFORM.txt商品名称.Value) + "' $ 商品名称"
ENDIF
*——如果“txt商品类别”非空
IF NOT EMPTY(ALLTRIM(THISFORM.cmb商品类别.Value))
   SearchFilter=SearchFilter +  " AND '" + ALLTRIM(THISFORM.cmb商品类别.Value) + "' $ 类别"
ENDIF
*——如果“txt经手人”非空
IF NOT EMPTY(ALLTRIM(THISFORM.txt经手人.Value))
   SearchFilter=SearchFilter +  " AND '" + ALLTRIM(THISFORM.txt经手人.Value) + "' $ 经手人"
ENDIF
*——如果“txt供货单位”非空
IF NOT EMPTY(ALLTRIM(THISFORM.txt供货单位.Value))
   SearchFilter=SearchFilter +  " AND '" + ALLTRIM(THISFORM.txt供货单位.Value) + "' $ 供货单位"
ENDIF
*——如果“txt进货日期”非空
IF NOT EMPTY(THISFORM.txt进货日期.Value)
   IF NOT EMPTY(THISFORM.txt进货日期.Value)
  nYear=YEAR(THISFORM.txt进货日期.Value)
  nMonth=MONTH(THISFORM.txt进货日期.Value)
  nDay=DAY(THISFORM.txt进货日期.Value)
  sDate=ALLTRIM(STR(nYear))+"/"+ALLTRIM(STR(nMonth))+"/"+ALLTRIM(STR(nDay))
     SearchFilter=SearchFilter + "AND TTOD(进货时间)={^"+sDate +"}"
 ENDIF
ENDIF
*——设置过滤条件
SELECT InView
SET FILTER TO
SET FILTER TO &SearchFilter
*——刷新表单
THISFORM.Refresh

出货记录查询:能实现对出货信息的查询,如图4.15:
 
 图4.15 出货记录查询

出货记录查询代码
*——收集查询条件
SearchFilter=".T."
IF NOT EMPTY(ALLTRIM(THISFORM.txt商品编号.Value))
   SearchFilter=SearchFilter +  " AND '" + ALLTRIM(THISFORM.txt商品编号.Value) + "' $ 商品编号"
ENDIF
IF NOT EMPTY(THISFORM.txt商品名称.Value)
   SearchFilter=SearchFilter +  " AND '" + ALLTRIM(THISFORM.txt商品名称.Value) + "' $ 商品名称"

随机推荐
浙江省烟草局车辆管理系统的分析与设计
软科学学术论文质量评价系统
纵横进出口产品管理系统
新世纪的软件产业与集成电路产业
基于JSP网页自动生成工具的设计与实现
城市DLG数据库元数据组织与管理研究
直饮水秒流量计算与VB编程
Asp+Sql网上书店系统论文开题报告
中小企业人事管理系统
销售管理系统的开发与设计

设为首页 | 关于我们 | 广告联系 | 友情链接 | 版权申明

Copyright 2009-2014 All Right Reserved [粤ICP备05100058号-11]