欢迎来到人人文库网! | 帮助中心 人人文档renrendoc.com美如初恋!
人人文库网
全部分类
  • 图纸下载>
  • 教育资料>
  • 专业文献>
  • 应用文书>
  • 行业资料>
  • 生活休闲>
  • 办公材料>
  • 毕业设计>
  • ImageVerifierCode 换一换
    首页 人人文库网 > 资源分类 > DOC文档下载  

    超市售货管理系统VF6.0源代码.doc

    • 资源ID:101518       资源大小:95.50KB        全文页数:11页
    • 资源格式: DOC        下载积分:5积分
    扫码快捷下载 游客一键下载
    会员登录下载
    微信登录下载
    三方登录下载: 微信开放平台登录 支付宝登录   QQ登录   微博登录  
    二维码
    微信扫一扫登录

    手机扫码下载

    请使用微信 或支付宝 扫码支付

    • 扫码支付后即可登录下载文档,同时代表您同意《人人文库网用户协议》

    • 扫码过程中请勿刷新、关闭本页面,否则会导致文档资源下载失败

    • 支付成功后,可再次使用当前微信或支付宝扫码免费下载本资源,无需再次付费

    账号:
    密码:
      忘记密码?
        
    友情提示
    2、PDF文件下载后,可能会被浏览器默认打开,此种情况可以点击浏览器菜单,保存网页到桌面,就可以正常下载了。
    3、本站不支持迅雷下载,请使用电脑自带的IE浏览器,或者360浏览器、谷歌浏览器下载即可。
    4、本站资源(1积分=1元)下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰。
    5、试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓。

    超市售货管理系统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进货表.货号*查看介于符合条件的进货信息

    注意事项

    本文(超市售货管理系统VF6.0源代码.doc)为本站会员(网****)主动上传,人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知人人文库网(点击联系客服),我们立即给予删除!

    温馨提示:如果因为网速或其他原因下载失败请重新下载,重复下载不扣分。




    关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

    网站客服QQ:2881952447     

    copyright@ 2020-2024  renrendoc.com 人人文库版权所有   联系电话:400-852-1180

    备案号:蜀ICP备2022000484号-2       经营许可证: 川B2-20220663       公网安备川公网安备: 51019002004831号

    本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知人人文库网,我们立即给予删除!