会员注册 | 登录 | 微信快捷登录 支付宝快捷登录 QQ登录 微博登录 | 帮助中心 人人文库renrendoc.com美如初恋!
站内搜索 百度文库

热门搜索: 直缝焊接机 矿井提升机 循环球式转向器图纸 机器人手爪发展史 管道机器人dwg 动平衡试验台设计

   首页 人人文库网 > 资源分类 > DOC文档下载

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

  • 资源星级:
  • 资源大小:122.00KB   全文页数:24页
  • 资源格式: DOC        下载权限:注册会员/VIP会员
您还没有登陆,请先登录。登陆后即可下载此文档。
  合作网站登录: 微信快捷登录 支付宝快捷登录   QQ登录   微博登录
友情提示
2:本站资源不支持迅雷下载,请使用浏览器直接下载(不支持QQ浏览器)
3:本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰   

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

1附录程序清单及注释菜单窗体OptionExplicitDimsqlAsStringDimblnViewAsBooleanConstMeWidthAsInteger9216ConstMeHeightAsInteger6600caidan.Width9216caidan.Height6600PrivateSubabout_ClickForm2.ShowEndSubPrivateSubTSJ_Clickfind1.Showcaidan.HideEndSubPrivateSubclean_ClickDimmydbAsDatabaseDimdbpathAsStringDimsqlAsStringdbpathApp.Path\SJK.mdbIfMsgBox此功能将清除库中所有记录,你确定要执行吗,vbOKCancelvbOKThenSetmydbOpenDatabasedbpathsqldeletefromhousemydb.Executesqlsqldeletefromroommydb.Executesqlsqldeletefromstudentmydb.Executesqlsqldeletefromcleaner2mydb.ExecutesqlMsgBox清库完毕EndIfEndSubPrivateSubdatacopy_ClickDimdbAsDatabaseDimdtAsNewTableDefIfMsgBox是否备份,vbYesNo,备份vbYesThenSetdbOpenDatabaseApp.Path\SJK.mdbSetdtdb.CreateTableDefbackup1db.TableDefs.Deletebackup1db.Executeselecthouse.intobackup1fromhousedb.TableDefs.Deletebackup2db.Executeselectintobackup2fromroomdb.TableDefs.Deletebackup3db.Executeselectintobackup3fromstudentdb.TableDefs.Deletebackup4db.Executeselectintobackup4fromcleanerdb.CloseElseExitSubEndIfEndSubPrivateSubdatasave_ClickDimdbAsDatabaseDimdtAsNewTableDefIfMsgBox是否还原,vbYesNo,还原vbYesThenSetdbOpenDatabaseApp.Path\SJK.mdbdb.TableDefs.Deletehousedb.Executeselectbackup1.intohousefrombackup1db.TableDefs.Deleteroomdb.Executeselectintoroomfrombackup2db.TableDefs.Deletestudentdb.Executeselectintostudentfrombackup33db.TableDefs.Deletecleanerdb.Executeselectintocleanerfrombackup4db.CloseElseExitSubEndIfEndSubPrivateSubexit_Click清表DimmydbAsDatabaseDimsqlAsStringIfMsgBox注意Chr13此操作将清所有临时除库中所有记录,你确定要执行吗,vbOKCancel,提示vbOKThenSetmydbOpenDatabaseApp.Path\SJK.mdbsqldeletefrom查询汇总表mydb.Executesqlsqldeletefrom材料总表mydb.Executesqlsqldeletefrom总标准件表mydb.Executesqlsqldeletefrom总外购件表mydb.Executesqlsqldeletefrom总外协件表mydb.Executesqlsqldeletefrom总图号册表mydb.ExecutesqlMsgBox清库完毕ElseExitSubEndIfEndEndSubPrivateSubQXSZ_Click4gly_f.ShowEndSubPrivateSubForm_ResizeifminimizedthenexitIfMe.WindowStatevbMinimizedThenExitSubiflowerthestandardvaluesresetIfMe.HeightMeHeightThenMe.HeightMeHeightIfMe.WidthMeWidthThenMe.WidthMeWidthsetuplist1msflexgrid1caidan.ScaleEndSubPrivateSubSJHY2_ClickForm4.Showcaidan.HideEndSub查询窗体OptionExplicitDimsqlAsStringDimfindstringAsStringDimcancelflagAsBooleanDimdbAsDatabaseDimdb1AsDatabaseDimrstAsRecordsetDimrst1AsRecordsetDimTnAsLongDimcount1AsIntegerPrivateSubBZJ_Clicksqlselectfrom材料总表where特性GBData1.RecordSourcesqlData1.RefreshIfMsgBox是否将此记录添加到总标准件中,64,vbOKThen

注意事项

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

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

copyright@ 2015-2017 人人文库网网站版权所有
苏ICP备12009002号-5