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

    企业数据信息管理系统程序清单及注释.doc

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

    手机扫码下载

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

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

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

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

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

    企业数据信息管理系统程序清单及注释.doc

    1附录程序清单及注释菜单窗体OptionExplicitDimsqlAsStringDimblnViewAsBooleanConstMeWidthAsInteger=9216ConstMeHeightAsInteger=6600caidan.Width=9216caidan.Height=6600PrivateSubabout_Click()Form2.ShowEndSubPrivateSubTSJ_Click()find1.Showcaidan.HideEndSubPrivateSubclean_Click()DimmydbAsDatabaseDimdbpathAsStringDimsqlAsStringdbpath=App.Path&"SJK.mdb"IfMsgBox("此功能将清除库中所有记录,你确定要执行吗?",vbOKCancel)=vbOKThenSetmydb=OpenDatabase(dbpath)sql="delete*fromhouse"mydb.Executesqlsql="delete*fromroom"mydb.Executesqlsql="delete*fromstudent"mydb.Executesqlsql="delete*fromcleaner"2mydb.ExecutesqlMsgBox("清库完毕!")EndIfEndSubPrivateSubdatacopy_Click()DimdbAsDatabaseDimdtAsNewTableDefIfMsgBox("是否备份",vbYesNo,"备份")=vbYesThenSetdb=OpenDatabase(App.Path&"SJK.mdb")Setdt=db.CreateTableDef("backup1")db.TableDefs.Delete"backup1"db.Execute"selecthouse.*intobackup1fromhouse"db.TableDefs.Delete"backup2"db.Execute"select*intobackup2fromroom"db.TableDefs.Delete"backup3"db.Execute"select*intobackup3fromstudent"db.TableDefs.Delete"backup4"db.Execute"select*intobackup4fromcleaner"db.CloseElse:ExitSubEndIfEndSubPrivateSubdatasave_Click()DimdbAsDatabaseDimdtAsNewTableDefIfMsgBox("是否还原",vbYesNo,"还原")=vbYesThenSetdb=OpenDatabase(App.Path&"SJK.mdb")db.TableDefs.Delete"house"db.Execute"selectbackup1.*intohousefrombackup1"db.TableDefs.Delete"room"db.Execute"select*intoroomfrombackup2"db.TableDefs.Delete"student"db.Execute"select*intostudentfrombackup3"3db.TableDefs.Delete"cleaner"db.Execute"select*intocleanerfrombackup4"db.CloseElseExitSubEndIfEndSubPrivateSubexit_Click()清表DimmydbAsDatabaseDimsqlAsStringIfMsgBox("注意!"+Chr(13)+"此操作将清所有临时除库中所有记录,你确定要执行吗?",vbOKCancel,"提示")=vbOKThenSetmydb=OpenDatabase(App.Path&"SJK.mdb")sql="delete*from查询汇总表"mydb.Executesqlsql="delete*from材料总表"mydb.Executesqlsql="delete*from总标准件表"mydb.Executesqlsql="delete*from总外购件表"mydb.Executesqlsql="delete*from总外协件表"mydb.Executesqlsql="delete*from总图号册表"mydb.ExecutesqlMsgBox("清库完毕!")ElseExitSubEndIfEndEndSubPrivateSubQXSZ_Click()4gly_f.ShowEndSubPrivateSubForm_Resize()ifminimizedthenexitIfMe.WindowState=vbMinimizedThenExitSubiflowerthestandardvaluesresetIfMe.Height<MeHeightThenMe.Height=MeHeightIfMe.Width<MeWidthThenMe.Width=MeWidthsetuplist1&msflexgrid1caidan.ScaleEndSubPrivateSubSJHY2_Click()Form4.Showcaidan.HideEndSub查询窗体OptionExplicitDimsqlAsStringDimfindstringAsStringDimcancelflagAsBooleanDimdbAsDatabaseDimdb1AsDatabaseDimrstAsRecordsetDimrst1AsRecordsetDimTnAsLongDimcount1AsIntegerPrivateSubBZJ_Click()sql="select*from材料总表where特性=GB"Data1.RecordSource=sqlData1.RefreshIfMsgBox("是否将此记录添加到总标准件中?",64,"")=vbOKThen

    注意事项

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

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




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

    网站客服QQ:2881952447     

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

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

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