数据库.vf

数据库.vf 1.系统规划说明书 在此次大作业之间，我家并没有一套完善的商品管理系统。一直以来，商品管理工作都是爸妈自己用纸记得。其操作方法很繁琐很累，简明性和实用性都较差。因此，我决定利用此次作业的机会，开发一套专门用于商品管理工作的数据库系统。经过仔细研究分析，为了便于对商品的了解管理，其中主要侧重点在商品管理方面。系统管理分为操作员管理，密码管理 由于知识与时间有限，只设计几个很简单的功能，等以后有时间在设计个功能强大点的 2.系统说明书 FOXPRO在数据库开发方面具有方面，实用，简单，直接等优点。同时其也具有一定的局限性。本系统主要是给我家里用，因此主要侧重于实用性和方便性。同时在安全性方面，我们也十分重视。特别是操作员的密码管理 (一)、界面的设计，我主要是本着实用漂亮的原则设计制作。在系统界面被打开时，界面包括本系统的系统名称，设计人员。下面是系统的首界面 系统界面中有登陆系统按钮，系统使用人员可以点击进入密码验证页此程序的实现代码会在详细设计书中说明。(二)、密码验证作为系统最基本的安全管理步骤。用户如果不输入合法的用户名和密码，系统是不能进入的。当用户输入合法的用户名和密码时，系统管理会自动判断此用户的用户名与密码是否具有合法性。密码验证页包括操作员姓名和密码两个部分。具体的代码实现也将在详细设计书说明。当操作员的名称和密码均正确的时候，系统便会进入管理系统进入界面进入后就是菜单部分菜单一共分为四个部分。下面为本系统的使用数据 流程 快递问题件怎么处理流程河南自建厂房流程下载关于规范招聘需求审批流程制作流程表下载邮件下载流程设计 图: 一，详细设计说明书 根据系统规划和需要分析，把系统划分为数据修改，删除数据，商品搜索，显示全部四个模块本系统用到的主要有以下文件:主程序 setting reset 程序的调 用关系如下:主程序中调用界面表单登陆界面.scx，登陆界面.scx，调用表单开 始.scx，密码正确则调用表单选 进入 修改数据 删除数据 商品搜索 显示全部 查看 修改 添加 查询 显示全 部 择.Scx。菜单项调用相对应的表单。(一)、各主程序的代码实现为: 主程序“ set directory to curdir() clear screen clear events do setting open database 数据1 do form "登陆界面.scx" on shutdown quit read events close database do reset setting程序set sysmenu off set sysmenu to set status bar off set talk off set notify off set clock status set palette off set bell on set safety off set escape on set keycomp to windows set carry on set confirm on set exact on set near on set ansi off set lock on set multilocks on set deleted on set optimize on set refresh to 0,5 set collate to 'stroke' set default to sys(5)+curdir() set path to sys(5)+curdir() set sysformats off set seconds on set century off set currency left set currency to 'nt$' set hours to 12 set date to usa set decimals to 2 set fdow to 1 set fweek to 1 set mark to '.' set separator to ',' set point to '.' reset程序:set sysmenu to default set sysmenu on set talk on set notify on set safety on: (二)、在运行主程序后，系统调用登陆界面表单 登录界面:用到的表: 主要事件代码: Timer2的timer事件代码: 为了实现五角星的闪动: IF THISFORM.label5.visible thisform.label5.visible=.f. endif else thisform.label5.visible=.t. Timer3的timer事件代码: 为了实现五角星的闪动: IF THISFORM.label5.visible thisform.label5.visible=.t. else thisform.label5.visible=.t. endif Timer4的timer事件代码: 为了实现五角星的闪动: IF THISFORM.label5.visible thisform.label5.visible=.t else thisform.label5.visible=.t. endif 同时在每个五角星的颜色也做了设置。 登录系统按钮代码: LPARAMETERS nButton, nShift, nXCoord, nYCoord release thisform DO FORM .\开始.scx 开始表单的设计: Combo1对应用户名表中的用户名 确定按钮代码: *判断密码是否正确 i=i+1 SELECT 用户名 LOCATE FOR 用户名=ALLTRIM(THISFORM.Combo1.Value) DO CASE CASE i<=3 AND FOUND() AND THISFORM.Text1.Value=用户名.密码 &&输入次 数未超过3次且用户名正确、口令正确 用户名=THISFORM.Combo1.Value RELEASE THISFORM do form "表单1.scx" CASE i<=3 AND FOUND() AND THISFORM.Text2.Value!=用户名.密码 &&输入次数未超过3次且用户名正确、口令不正确 MESSAGEBOX("密码错误,请重输!","警告") THISFORM.Text1.Value="" THISFORM.Text1.Setfocus CASE i<=3 AND NOT FOUND() &&输入次数未超过3次且用户名不正确 MESSAGEBOX("用户名姓名错误,请重输!","警告") THISFORM.Combo1.Value="" THISFORM.Text1.Value="" THISFORM.Combo1.Setfocus CASE i>3 &&输入次数超过3次 MESSAGEBOX("禁止进入系统!","警告") THISFORM.Release ENDCASE 退出代码:RELEASE THISFORM CLEAR EVENTS 进入表单1: 上面显示了制作人的基本信息，有进入与返回按钮，以后的返回按钮全部都是差不多的的。进入代码:thisform.release do form "选择.scx" 返回代码:thisform.release do form "开始.scx" 点击进入进入选择界面 可以选择相应的表单进行相应的操作修改数据:修改数据包括修改后查看和添加 功能，结束后返回选择菜单，实现功能如下: 修改数据: 查看代码:do form 查看 修改:if messagebox("是否确认修改当前 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 ～",64+4+256,"修改记录")=6 messagebox("修改成功～") endif 添加:if messagebox("是否确认添加当前记录～",64+4+256,"添加记 录")=6 thisform.refresh messagebox("添加成功～") endif 第一条:goto top thisform.refresh 下一条:skip if eof() messagebox("已是最后一条记录",48,"信息窗口") skip -1 endif thisform.refresh 上一条:skip -1 if bof() messagebox("已是第一条记录",48,"信息窗口") else endif thisform.refresh 最后一条:goto bottom thisform.refresh 删除表单: 删除代码 if messagebox("是否确认删除当前记录～",64+4+256,"删除记录")=6 delete next 1 pack thisform.refresh messagebox("删除成功～") endif 然后是查看与上一条，下一条，第一条，最后一条，返回，退出 代码同上 搜索表单会比较复杂:分为三个条件，商品名称，进货地点，放货地点， 由三个combo分别与其对应。商品名称代码:flag=thisform.check1.value do case case flag=0 thisform.combo1.enabled=.f. thisform.combo1.value='' case flag=1 thisform.combo1.enabled=.t. endcase 进货地点代码:flag=thisform.check3.value do case case flag=0 thisform.combo3.enabled=.f. thisform.combo3.value='' case flag=1 thisform.combo3.enabled=.t. endcase 放货地点代码:flag=thisform.check4.value do case case flag=0 thisform.combo4.enabled=.f. thisform.combo4.value='' case flag=1 thisform.combo4.enabled=.t. endcase 进行查询的代码: getaa=alltrim(thisform.combo1.value) getcc=alltrim(thisform.combo3.value) getdd=alltrim(thisform.combo4.value) flag1=thisform.check1.value flag3=thisform.check3.value flag4=thisform.check4.value if flag1=0 and flag3=0 and flag4=0 ") messagebox("请输入查询条件",48,"错误 endif if flag1=1 and flag3=0 and flag4=0 select * from 商品信息 where 商品名称=getaa endif if flag1=0 and flag3=1 and flag4=0 select * from 商品信息 where 进货地点=getcc endif if flag1=0 and flag3=0 and flag4=1 where 放货地点=getdd select * from 商品信息 endif if flag1=1 and flag3=1 and flag4=0 select * from 商品信息 where 商品名称=getaa and 进货地点=getcc endif if flag1=1 and flag3=0 and flag4=1 select * from 商品信息 where 商品名称=getaa and 放货地点=getdd endif if flag1=0 and flag3=1 and flag4=1 select * from 商品信息 where 进货地点=getcc and 放货地点=getdd endif if flag1=1 and flag3=1 and flag4=1 select * from 商品信息 where 商品名称=getaa and 进货地点=getcc and 放货地点=getdd endif if flag1=1 and flag3=1 and flag4=1 select * from 商品信息 where 商品名称=getaa and 进货地点=getcc and 放货地点=getdd endif 显示全部的代码:select * from 商品信息 此过程中用到了报表，表为 然后是返回选择与退出 显示全部表单点击后后进入查看表单及下面的这个: 系统用到的表为: 这两个星期的上机实践学习，可以说得是苦多于甜，但学到了很多很多的的东西，同时不仅巩固了以前所学过的知识。我认为要学好C++语言程序这门课程，不仅要认真阅读课本知识，更重要的是要通过上机实践增强和巩固C++语言知识。经过这两个星期的上机实践学习。我对C++语言有了更进一步的认识和了解，要想学好它要重在实践，要通过不断的上机操作才能更好地学习它，通过实践，我也发现我的好多不足之处，首先是自己在指法上还不行，经常按错字母，通过学习也有所改进;再有对C++语言的一些标准库函数不太了解，还有对函数调用的正确使用不够熟悉，还有对C++语言中经常出现的错误也不了解，通过实践，使我在这几个方面的认识有所提高。 通过实践的学习，我认到学好计算机要重视实践操作，不仅仅是学习C++语言，还是其它的语言，以及其它的计算机方面的知识都要重在实践，所以后在学习过程中，我会更加注视实践操作，让自己更好的学习计算机 用到的资料 谭浩强 Visual Roxpro及其应用系统开发(第二版) 北京 清华大学出版社2007 王珊 萨师煊 数据库系统概论(第四版) 北京 高等教育出版社 2006 456/ 农村信用社招聘考试命题研究中心 公共基础知识 中国经济出版社 2009 谭浩强 Visual Foxpro及其应用系统开发(简明版)北京 清华大学出版社2007 史济民 RosBASE+及其应用系统开发 北京:清华大学出版社 2005