超市售货管理系统VF6.0源代码.doc
源代码一封面(1)Lable1的Timer1控件的Timer事件中添加如下代码:ifthisform.label1.left=thisform.widththisform.label1.left=0elsethisform.label1.left=thisform.label1.left+1endifi=int(rand()*255)j=int(rand()*255)k=int(rand()*255)thisform.label2.forecolor=rgb(i,j,k)(2)Command1按钮控件的Click事件中添加如下代码:*设置文件目录为"c:金孝镇123456789"setpathto"c:金孝镇123456789"*调用用户登陆界面doform用户登陆界面*释放开始界面二登陆界面(1)Command1按钮控件的Click事件中添加如下代码:opendatabase管理数据库useyhgotop*先打开“管理数据库”文件,然后使用yh表,并定位到第一个记录user_n=thisform.text1.valueuser_p=thisform.text2.valueis_user=.f.*定义逻辑变量is_user,用于判断是否为合法用户dowhile.not.eof()is_user=(user_n=yh.user_name).and.(user_p=yh.user_password)ifis_userexitelseskipendifenddo*编历yh中所有的记录,判断输入的用户名称和用户密码是否存在ifis_userdoform主界面*调用主界面useelsemessagebox("用户名或用户密码不正确!",0+16,"提示")closallendif(2)Command2按钮控件的Click事件中添加如下代码:usecloseall*关闭所有的表和数据库文件thisform.release*释放登陆界面三主界面主界面表单的init事件中添加如下代码:thisform.edit1.width=thisform.widththisform.edit1.height=thisform.height*控制edit1控件随表单自动调整大小doc:金孝镇123456789主菜单.mprwiththisform,.t.*加载主菜单四商品管理界面(一)商品信息(1)Form1的Init事件中添加如下代码:(2)Command1(第一个)按钮控件的Click事件中添加如下代码:gotopthisform.commandgroup2.command2.enabled=.f.thisform.commandgroup2.command8.enabled=.t.thisform.refresh()*定位到第一个记录,同时刷新表单(3)Command2(上一个)按钮控件的Click事件中添加如下代码:if!bof()skip-1elsegotopendifthisform.commandgroup2.command8.endbled=.t.thisform.refresh()*刷新表单(4)Command3(下一个)按钮控件的Click事件中添加如下代码:if!bof()skip-1elsegobottomendifthisform.commandgroup2.command2.endbled=.t.thisform.refresh()*刷新表单(5)Command4(最后一个)按钮控件的Click事件中添加如下代码:gobottomthisform.commandgroup2.command8.endbled=.f.thisform.commandgroup2.command2.endbled=.t.thisform.refresh()(6)Command6(添加)按钮控件的Click事件中添加如下代码:appenblank*给货物信息表添加空白记录thisform.commandgroup2.command7.caption="保存"thisform.refresh()(7)Command9(退出)按钮控件的Click事件中添加如下代码:docasecasethisform.commandgroup2.command9.caption="退出"usethisform.releasecasethisform.commandgroup2.command6.caption="保存"replace库存表.货号withthisform.text_货号.valuereplace库存表.namewiththisform.text_name.valuereplace库存表.specwiththisform.text_spec.valuereplace库存表.preduced_areawiththisform.text_area.valuereplace库存表.descriptionwiththisform.text_descrip.valuethisform.commandgroup2.command9.caption="退出"endcase(二)商品查询form1的click事件中添加如下代码:dotoplocatefor库存表_name=alltrim(thisform.text1.value)thisform.release五进货管理界面(一)进货管理(1)List1控件的Dbclick事件中添加如下代码:货号_select=list1.value*返回当前选择的货物的编号locatefor库存表.货号=货号_select*定位到与当前选择货号相同的记录thisform.text1.value=库存表.货号thisform.text2.value=库存表.namethisform.text8-value=库存表.spec*自动填写货物编号,名称,规格(2)Command1按钮控件的Click事件中添加如下代码:appendblank*在表尾添加空记录replace进货表.货号wlthalltrim(thisform.text1.value)replace进货表.unitwlthalltrim(thisform.text4.value)replace进货表.salerwlthalltrim(thisform.text8.value)replace进货表.keeperwlthalltrim(thisform.text6.value)replace进货表.in_timewlthalltrim(thisform.text7.value)replace进货表.in_comwlthalltrim(thisform.text8.value)replace进货表.amountwlththisform.spinner1.value*填写进货信息到进货表中thisform.list2.additem(thisform.text2.value)*将选中的货物添加到进货信息列表框的列表中(3)Command2按钮控件的Click事件中添加如下代码:ifthisform.list2.value=""messGEBOX("请先选取要移去的货物编号!",0+64,"提示")elsethisform.list2.removeitem*将选中的进货从列表清单中删除locatefor进货表.货号=alltrim(thisform.text1.value)delect*删除当前选中的进货endif(4)Command3按钮控件的Click事件中添加如下代码:pack*清理纪录releasethisform*释放菜单(二)进货统计(1)Command1按钮控件的Click事件中添加如下代码:star_time=thisform.text1.valueend_time=thisform.text2.valueselect进货表.*,库存表.name;from管理数据库!进货表innerjoin管理数据库!库存表;on进货表.货号=库存表.货号;where进货表.货号>=star_time;and进货表.货号<=end_time;orderby进货表.货号*查看介于符合条件的进货信息