化妆品销售管理系统

年5月29日化妆品销售管理系统文档仅供参考化妆品销售管理系统课程名称:空间数据库基础专业:地理信息系统班级:0624111设计组:第七小组设计者:潘晓洋秦建雨刘钲任高鹏指导教师:苗东利、毛政利设计时间:12月河南城建学院测绘与城市空间信息系一、课题及任务 -2-1. 课题简介 -2-2. 任务分派 -2-二、系统需求分析调查 -3-1.系统需求分析 -3-2.系统功能简介 -3-三、系统设计 -4-1.系统总体设计 -4-2.系统详细设计 -4-3.数据库设计 -4-四、系统实施 -5-1.数据资源 -5-月销售记录 -5-积分表 -5-资料表 -5-密码 -6-天销售记录 -6-年销售记录 -6-2.主程序设计 -7-3.主要工作窗口 -7-1.欢迎界面 -7-2.登陆表单 -8-3、主界面 -9-4.用户注册 -17-5.修改密码表单 -17-6.用户注销 -18-7.信息查询表单 -19-8.查询结果浏览表单 -20-9.基本信息修改表单 -21-10．删除表单 -23-11、商品增添表单 -24-12、会员注册表单 -25-13.积分查询表单 -26-14.积分表单 -27-15.积分用户注销 -29-16.销售表单 -29-17、关于表单 -31-4.菜单设计 -32-五、设计体会 -33-六、参考文献 -34-一、课题及任务课题简介根据化妆品店的实际需求,开发的一个运行良好,管理方便的,便于销售,便于查询的管理系统。任务分派刘钲:建立资料表,积分表,天销售记录表,月销售记录表,年销售记录表,登陆表单,欢迎表单,用户注销表单;秦建雨:信息查询表单,信息修改表单,信息增添表单,信息删除表单任高鹏:积分(注册,查询,增添,注销)潘晓洋:建立数据库,销售系统(销售表单,记录的删除(天记录,月记录,年记录))报表:天销售报表,月销售报表,年销售报表,关于表单,菜单与表单的挂载,主程序,连编,调试,界面美化。二、系统需求分析调查1.系统需求分析现在发展迅速的信息时代,古老的纸质文档管理机制已不能很好的满足各大商家日常的管理与销售,一种有条理、简洁的管理系统迫切被需求。2.系统功能简介本系统具有基本的查询,增添,删除修改信息的功能,便捷易操作。在此基础之上,还增添了积分功能,使得来本店购买化妆品的每一个顾客都有一个记录,经过积分来促进销售,达到盈利倍增的目的。本系统支持多用户,可设置多个用户进行相同的管理。销售界面上具有保存记录的功能,能够经过相对应的菜单进行删除,使得管理更加人性化。经过本系统能够清晰地直观的看到各个数据的相关信息,使得浏览速度更加快捷,使用起来更加方便三、系统设计1.系统总体设计2.系统详细设计系统管理模块:登录密码的修改,新管理员的密码账号的创立,管理员信息的注销,退出系统;数据更新维护模块:化妆品信息的基本查询,信息的修改,化妆品的删除,化妆品的增添;积分模块:积分用户的注册,积分的查询,积分值的添加,积分用户的注销;销售模块:1.销售3.数据库设计四、系统实施1.数据资源月销售记录积分表资料表密码天销售记录年销售记录2.主程序设计主程序:SETTALKOFFCLEARALLcloseallclearall_SCREEN.VISIBLE=.F.setsysmenuoffsetdefatosys(5)+sys()+'\'doFORM欢迎界面.scxreadeventsRETURNQUIT3.主要工作窗口1.欢迎界面Form———InitPUBLICiasIntegeri=1time———timeri=i+1IFi=9THENthisform.Visible=.F.RELEASEthisformDOFORM登录.scxENDIF2.登陆表单数据环境:密码.dbfForm1——————InitPUBLICcountasIntegercount=1Combo1.rowsourcetype=6Combo1.rowsource=密码.姓名Oleboundcontrol1控件:Recordsource=密码.头像command1—————click:count=count+1locaforALLTRIM(密码.姓名)==alltrim(bo1.value)IFthisform.text2.Value==""MESSAGEbox("输入不能为空!")elseiffound()andALLTRIM(密码.密码)==alltrim(thisform.text2.value)DOFORM主窗体.scxreleasethisformelseifcount<3then=messagebox("输入有误!",48,"警告")elsemessagebox("对不起您是非法用户,系统将自动退出!",48,"警告")quitendifendifendifcommand2——————click:quit3、主界面数据环境:资料.dbf积分表.dbfForm1———————init:WITHthisform.grid1.ColumnCount=8.Column1.Header1.Caption="编号".Column1.Header1.BackColor=RGB(255,255,190).Column2.Header1.BackColor=RGB(255,255,190).Column2.Header1.Caption="品名".Column3.Header1.BackColor=RGB(255,255,190).Column3.Header1.Caption="价格".Column4.Header1.BackColor=RGB(255,255,190).Column4.Header1.Caption="规格".Column5.Header1.BackColor=RGB(255,255,190).Column5.Header1.Caption="数量".Column6.Header1.BackColor=RGB(255,255,190).Column6.Header1.Caption="产地".Column7.Header1.BackColor=RGB(255,255,190).Column7.Header1.Caption="生产日期".Column8.Header1.BackColor=RGB(255,255,190).Column8.Header1.Caption="保质期".Column1.width=50.Column2.width=160.Column3.width=50endwithdo菜单1.mprwiththis,.T.thisform.text1.SetFocusOlecontrol1——————init:this.Nodes.ClearThis.LineStyle=1&&tvwRootLinesthis.labelEdit=1&&tvwManualThis.Style=7&&tvwTreelinesPlusMinusPictureTextThis.ImageList=Thisform.Imagelist1&&与Imagelist控件建立关联this.labelEdit=1&&tvwManualthis.Nodes.Add(,,"表","表",2)this.Nodes.Add("表",4,"资料表","资料表",2)this.Nodes.Add("表",4,"积分表","积分表",2)this.Nodes.Add("表",4,"天销售记录","天销售记录",2)this.Nodes.Add("表",4,"月销售记录","月销售记录",2)this.Nodes.Add("表",4,"年销售记录","年销售记录",2)this.Refreshnodeclick:***ActiveX控件事件***LPARAMETERSnodeDOCASECASEthis.selectedItem.Text="表"WITHthisform.grid1.ColumnCount=8.Column1.Header1.Caption="编号".Column1.Header1.BackColor=RGB(255,255,190).Column2.Header1.BackColor=RGB(255,255,190).Column2.Header1.Caption="品名".Column3.Header1.BackColor=RGB(255,255,190).Column3.Header1.Caption="价格".Column4.Header1.BackColor=RGB(255,255,190).Column4.Header1.Caption="规格".Column5.Header1.BackColor=RGB(255,255,190).Column5.Header1.Caption="数量".Column6.Header1.BackColor=RGB(255,255,190).Column6.Header1.Caption="产地".Column7.Header1.BackColor=RGB(255,255,190).Column7.Header1.Caption="生产日期".Column8.Header1.BackColor=RGB(255,255,190).Column8.Header1.Caption="保质期".Column1.width=50.Column2.width=160.Column3.width=50endwiththis.Tag=""CASEthis.selectedItem.Text="积分表"WITHthisform.grid1.ColumnCount=3.Column1.Header1.Caption="姓名".Column1.Header1.BackColor=RGB(255,255,190).Column2.Header1.BackColor=RGB(255,255,190).Column2.Header1.Caption="学号".Column3.Header1.BackColor=RGB(255,255,190).Column3.Header1.Caption="积分"Column1.width=50.Column2.width=160.Column3.width=50endwiththis.Tag="select*from积分表intocursortemp"CASEthis.selectedItem.Text="天销售记录"WITHthisform.grid1.ColumnCount=8.Column1.Header1.Caption="编号".Column1.Header1.BackColor=RGB(255,255,190).Column2.Header1.BackColor=RGB(255,255,190).Column2.Header1.Caption="品名".Column3.Header1.BackColor=RGB(255,255,190).Column3.Header1.Caption="价格".Column4.Header1.BackColor=RGB(255,255,190).Column4.Header1.Caption="规格".Column5.Header1.BackColor=RGB(255,255,190).Column5.Header1.Caption="数量".Column6.Header1.BackColor=RGB(255,255,190).Column6.Header1.Caption="产地".Column7.Header1.BackColor=RGB(255,255,190).Column7.Header1.Caption="生产日期".Column8.Header1.BackColor=RGB(255,255,190).Column8.Header1.Caption="保质期".Column1.width=50.Column2.width=160.Column3.width=50endwiththis.Tag="sele*from天销售记录intocursortemp"CASEthis.selectedItem.Text="月销售记录"WITHthisform.grid1.ColumnCount=8.Column1.Header1.Caption="编号".Column1.Header1.BackColor=RGB(255,255,190).Column2.Header1.BackColor=RGB(255,255,190).Column2.Header1.Caption="品名".Column3.Header1.BackColor=RGB(255,255,190).Column3.Header1.Caption="价格".Column4.Header1.BackColor=RGB(255,255,190).Column4.Header1.Caption="规格".Column5.Header1.BackColor=RGB(255,255,190).Column5.Header1.Caption="数量".Column6.Header1.BackColor=RGB(255,255,190).Column6.Header1.Caption="产地".Column7.Header1.BackColor=RGB(255,255,190).Column7.Header1.Caption="生产日期".Column8.Header1.BackColor=RGB(255,255,190).Column8.Header1.Caption="保质期".Column1.width=50.Column2.width=160.Column3.width=50endwiththis.Tag="sele*from月销售记录intocursortemp"CASEthis.selectedItem.Text="年销售记录"WITHthisform.grid1.ColumnCount=8.Column1.Header1.Caption="编号".Column1.Header1.BackColor=RGB(255,255,190).Column2.Header1.BackColor=RGB(255,255,190).Column2.Header1.Caption="品名".Column3.Header1.BackColor=RGB(255,255,190).Column3.Header1.Caption="价格".Column4.Header1.BackColor=RGB(255,255,190).Column4.Header1.Caption="规格".Column5.Header1.BackColor=RGB(255,255,190).Column5.Header1.Caption="数量".Column6.Header1.BackColor=RGB(255,255,190).Column6.Header1.Caption="产地".Column7.Header1.BackColor=RGB(255,255,190).Column7.Header1.Caption="生产日期".Column8.Header1.BackColor=RGB(255,255,190).Column8.Header1.Caption="保质期".Column1.width=50.Column2.width=160.Column3.width=50endwiththis.Tag="sele*from年销售记录intocursortemp"CASEthis.selectedItem.Text="资料表"WITHthisform.grid1.ColumnCount=8.Column1.Header1.Caption="编号".Column1.Header1.BackColor=RGB(255,255,190).Column2.Header1.BackColor=RGB(255,255,190).Column2.Header1.Caption="品名".Column3.Header1.BackColor=RGB(255,255,190).Column3.Header1.Caption="价格".Column4.Header1.BackColor=RGB(255,255,190).Column4.Header1.Caption="规格".Column5.Header1.BackColor=RGB(255,255,190).Column5.Header1.Caption="数量".Column6.Header1.BackColor=RGB(255,255,190).Column6.Header1.Caption="产地".Column7.Header1.BackColor=RGB(255,255,190).Column7.Header1.Caption="生产日期".Column8.Header1.BackColor=RGB(255,255,190).Column8.Header1.Caption="保质期".Column1.width=50.Column2.width=160.Column3.width=50endwiththis.Tag="sele*from资料intocursortemp"ENDCASEthisform.grid1.RecordSource=this.Tagthisform.Refreshgrid1:recordsource=资料recordsourcetype=4text1————————interactivechange:WITHthisform.grid1.ColumnCount=8.Column1.Header1.Caption="编号".Column1.Header1.BackColor=RGB(255,255,190).Column2.Header1.BackColor=RGB(255,255,190).Column2.Header1.Caption="品名".Column3.Header1.BackColor=RGB(255,255,190).Column3.Header1.Caption="价格".Column4.Header1.BackColor=RGB(255,255,190).Column4.Header1.Caption="规格".Column5.Header1.BackColor=RGB(255,255,190).Column5.Header1.Caption="数量".Column6.Header1.BackColor=RGB(255,255,190).Column6.Header1.Caption="产地".Column7.Header1.BackColor=RGB(255,255,190).Column7.Header1.Caption="生产日期".Column8.Header1.BackColor=RGB(255,255,190).Column8.Header1.Caption="保质期".Column1.width=50.Column2.width=160.Column3.width=50endwiththisform.grid1.RecordSource="SELECT*FROM资料WHERE品名likeALLTRIM(thisform.text1.value)+'%'INTOCURSORtemp"thisform.grid1.refreshcommand2:click:WITHthisform.grid1.ColumnCount=8.Column1.Header1.Caption="编号".Column1.Header1.BackColor=RGB(255,255,190).Column2.Header1.BackColor=RGB(255,255,190).Column2.Header1.Caption="品名".Column3.Header1.BackColor=RGB(255,255,190).Column3.Header1.Caption="价格".Column4.Header1.BackColor=RGB(255,255,190).Column4.Header1.Caption="规格".Column5.Header1.BackColor=RGB(255,255,190).Column5.Header1.Caption="数量".Column6.Header1.BackColor=RGB(255,255,190).Column6.Header1.Caption="产地".Column7.Header1.BackColor=RGB(255,255,190).Column7.Header1.Caption="生产日期".Column8.Header1.BackColor=RGB(255,255,190).Column8.Header1.Caption="保质期".Column1.width=50.Column2.width=160.Column3.width=50endwiththisform.grid1.recordsource="SELECT*FROM资料INTOCURSORtemp"thisform.grid1.refreshcommand3:click:a=messagebox("是否接入网络?",4+32+0,"温馨提示")ifa=6ThisForm.HyperLink1.NavigateTo("")endif4.用户注册数据环境:密码.dbfCommand1—————————click:a=alltrim(thisform.text1.value)b=alltrim(thisform.text2.value)ifa=="".or.b==""messagebox("输入不能为空!",48,"温馨提示")elseappendblankreplace姓名withareplace密码withbmessagebox("注册成功!")endifcommand2————————click:thisform.text1.Value=""thisform.text2.Value=""5.修改密码表单数据环境:密码.dbfCombo1:rowsourcetype=6Rowsource=密码.姓名Command1————————click:aa=bo1.valuebb=trim(thisform.text1.value)ifaa==""andbb==""messagebox("数据不能为空!")elselocafor姓名=aaand密码=bba=trim(thisform.text2.value)if.not.姓名=aaor.not.密码=bbmessagebox("输入的用户名或者密码错误!",48,"温馨提示")elserepl密码withamessagebox("密码修改成功!")endifendifreleasethisformCommand2————————click:releasethisform6.用户注销数据环境:密码.dbfCommand1————————click:USE密码.dbfEXCLUSIVELOCATEALLFOR姓名=ALLTRIM(thisform.text7.value)IFEOF()MESSAGEBOX("注销用户不存在!",48,"温馨提示")ELSEIFthisform.text7.Value==""MESSAGEBOX("注销不能为空!",48,"温馨提示")elsea=messagebox("是否删除?",4+32+0,"温馨提示")ifa=6deleALLFOR姓名=ALLTRIM(thisform.text7.value)packmessagebox("删除成功!")ENDIFENDIFENDIFthisform.Refresh7.信息查询表单数据环境:资料.dbfCommand1————————click:docase casethisform.optiongroup1.value=1 select*from资料where编号=alltrim(thisform.text4.value)intocursortemp casethisform.optiongroup1.value=2 select*from资料where品名likealltrim(thisform.text1.value)+"%"intocursortemp casethisform.optiongroup1.value=3select*from资料where单价>=thisform.text2.valueand单价<=thisform.text3.valueintocursortempendcasedoform查询结果浏览.scxcommand2————————click:releasethisform8.查询结果浏览表单Form1————————init:Thisform.grid1.recordsourcr=tempThisform.grid1.refresh9.基本信息修改表单数据环境:资料.dbfForm1————————init:thisform.text2.Enabled=.F.thisform.text3.Enabled=.F.thisform.text4.Enabled=.F.thisform.text5.Enabled=.F.thisform.text6.Enabled=.F.thisform.text2.readonly=.t.thisform.text3.readonly=.t.thisform.text4.readonly=.t.thisform.text5.readonly=.t.thisform.text6.readonly=.t.Command1————————click:GOtopLOCATEALLFORALLTRIM(资料.编号)==ALLTRIM(thisform.text1.Value)IFthisform.text1.Value==""MESSAGEBOX("查询不能为空!",48,"温馨提示")elseIFFOUND()thisform.text2.Value=编号thisform.text3.Value=品名thisform.text4.Value=单价thisform.text5.Value=规格thisform.text6.Value=数量ELSEMESSAGEBOX("无此记录",48,"温馨提示")endifendifcommand2————————click:DOCASECASEthisform.check5.value=1replace编号WITHALLTRIM(thisform.text2.Value)CASEthisform.check1.Value=1replace品名WITHALLTRIM(thisform.text3.Value)CASEthisform.check2.Value=1replace单价WITHthisform.text4.ValueCASEthisform.check3.Value=1replace规格WITHALLTRIM(thisform.text5.Value)CASEthisform.check4.Value=1replace数量WITHthisform.text6.ValueENDCASEMESSAGEBOX("修改成功!")Command3————————thisform.text1.Value=""thisform.text1.setfocuscheck1————————click:thisform.text3.Enabled=.t.thisform.text3.readonly=.f.check2————————click:thisform.text4.Enabled=.t.thisform.text4.readonly=.f.check3————————click:thisform.text5.Enabled=.t.thisform.text5.readonly=.f.check4————————click:thisform.text6.Enabled=.t.thisform.text6.readonly=.f.check5————————click:thisform.text2.Enabled=.t.thisform.text2.readonly=.mand4————————click:RELEASEthisform10．删除表单数据环境:资料.dbfForm1————————init:thisform.list1.Visible=.F.text1————————enteractivechange:thisform.list1.RowSource=”sele品名from资料where品名likeALLTRIM(thisform.text1.value)+'%'intocursortemp"thisform.list1.Refreshlist1————————click:thisform.text1.Value=thisform.list1.Valuethisform.list1.Visible=.F.command1————————click:USE资料.dbfEXCLUSIVEGOtoplocaALLFOR品名=alltrim(thisform.text1.value)IFFOUND()DELETEALLFOR品名=alltrim(thisform.text1.value)PACKMESSAGEBOX("success!")ELSEMESSAGEBOX("norecord!")endif11、商品增添表单数据环境:资料.dbfCommand1————————click:SELECT资料IFthisform.text1.Value==""OR;thisform.text1.Value==""ORthisform.text2.Value==""MESSAGEBOX("输入不能为空!",48,"温馨提示")ELSEAPPENDblankreplace编号WITHALLTRIM(thisform.text1.value)replace品名WITHALLTRIM(thisform.text2.value)replace单价WITHthisform.text3.valuereplace规格WITHALLTRIM(thisform.text4.value)replace数量WITHthisform.text5.valueMESSAGEBOX("success!")ENDIFCommand2————————click:thisform.text1.value=""thisform.text2.value=""thisform.text3.value=0thisform.text4.value=""thisform.text5.value=012、会员注册表单数据环境:积分表.dbfCommand1————————click:a=alltrim(thisform.text1.value)b=alltrim(thisform.text2.value)c=thisform.text3.valueifa=="".or.b=="".or.c==0messagebox("输入不能为空!",48,"温馨提示")elseappendblankreplace姓名withareplace学号withbreplace积分withcmessagebox("注册成功!")endifcommand2————————click:thisform.text1.Value=""thisform.text2.Value=""thisform.text3.Value=013.积分查询表单数据环境:积分比表.dbfCommand1————————click:SELECT积分表GOtopDOCASECASEthisform.optiongroup1.value=1IFthisform.text4.value==""MESSAGEBOX("输入不能为空!",48,"温馨提示")elseLOCATEFOR姓名=ALLTRIM(thisform.text4.Value)IFEOF()MESSAGEBOX("查询信息不存在!",48,"温馨提示")elsethisform.text6.Value=积分ENDIFENDIFCASEthisform.optiongroup1.Value=2IFthisform.text5.value==""MESSAGEBOX("输入不能为空!",48,"温馨提示")elseLOCATEFOR学号=ALLTRIM(thisform.text5.Value)IFEOF()MESSAGEBOX("查询信息不存在!",48,"温馨提示")elsethisform.text6.Value=积分thisform.RefreshENDIFENDIFENDCASECommand2————————click:thisform.text4.Value=""thisform.text5.Value=""14.积分表单数据环境:资料表.dbfCommand1————————click:SELECT积分表GOtopDOCASECASEthisform.optiongroup1.value=1IFthisform.text4.value==""MESSAGEBOX("输入不能为空!",48,"温馨提示")elseLOCATEFORALLTRIM(积分表.姓名)==ALLTRIM(thisform.text4.Value)IFEOF()MESSAGEBOX("查询信息不存在!",48,"温馨提示")elsethisform.text6.Value=积分ENDIFENDIFCASEthisform.optiongroup1.Value=2IFthisform.text5.value==""MESSAGEBOX("输入不能为空!",48,"温馨提示")elseLOCATEFORALLTRIM(积分表.学号)==ALLTRIM(thisform.text5.Value)IFEOF()MESSAGEBOX("查询信息不存在!",48,"温馨提示")elsethisform.text6.Value=积分thisform.RefreshENDIFENDIFENDCASECommand2————————click:thisform.text4.Value=""thisform.text5.Value=""Command3————————click:SELECT积分表DOCASECASEthisform.optiongroup1.value=1LOCATEALLFOR姓名=ALLTRIM(thisform.text4.value)replace积分WITHthisform.text6.value+thisform.text8.valueMESSAGEBOX("success!")CASEthisform.optiongroup1.value=2LOCATEALLFOR学号=ALLTRIM(thisform.text5.value)replace积分WITHthisform.text6.value+thisform.text8.valueMESSAGEBOX("success!")ENDCASECommand4————————click:thisform.text6.Value=0thisform.text8.Value=015.积分用户注销数据环境:积分表.dbfCommand1————————click:CLOSETABLESALLUSE积分表.dbfEXCLUSIVELOCATEALLFOR学号=ALLTRIM(thisform.text7.value)IFEOF()MESSAGEBOX("注销用户不存在!",48,"温馨提示")ELSEIFthisform.text7.Value==""MESSAGEBOX("注销不能为空!",48,"温馨提示")elsea=messagebox("是否删除?",4+32+0,"温馨提示")ifa=6deleALLFOR学号=ALLTRIM(thisform.text7.value)packmessagebox("删除成功!")ENDIFENDIFENDIFthisform.Refresh16.销售表单数据环境:资料.dbfCommand1————————click:IFthisform.text5.Value=0.0thisform.text6.Value=thisform.text3.value*thisform.text4.ValueELSEthisform.text6.Value=thisform.text3.value*thisform.text4.Value*thisform.text5.Value/10ENDIFCommand2————————click:CLOSETABLESALLUSE天销售记