超市售货管理系统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:金孝镇123456789setpathtoc:金孝镇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事件中添加如下代码：mand2.enabled=.mand8.enabled=.t.thisform.refresh()*定位到第一个记录，同时刷新表单(3)Command2（上一个）按钮控件的Click事件中添加如下代码：if!bof()mand8.endbled=.t.thisform.refresh()*刷新表单(4)Command3（下一个）按钮控件的Click事件中添加如下代码：if!bof()mand2.endbled=.t.thisform.refresh()*刷新表单(5)Command4(最后一个)按钮控件的Click事件中添加如下代码：mand8.endbled=.mand2.endbled=.t.thisform.refresh()(6)Command6(添加)按钮控件的Click事件中添加如下代码：appenblank*给货物信息表添加空白记录mand7.caption=保存thisform.refresh()(7)Command9(退出)按钮控件的Click事件中添加如下代码：mand9.caption=退出mand6.caption=保存replace库存表.货号withthisform.text_货号.valuereplace库存表.namewiththisform.text_name.valuereplace库存表.specwiththisform.text_spec.valuereplace库存表.preduced_areawiththisform.text_area.valuereplace库存表.descriptionwiththisform.text_mand9.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.v