欢迎来到网学网学习,获得大量论文和程序!
栏目导航
大学论文导航
源代码导航
精品资源
会员中心
免费论文,原创论文,参考论文,论文源代码-网学
网学
计算机论文全套
计算机论文和源代码全套
机械论文全套
通信论文全套
电子论文全套
ASP论文和源代码全套
ASP.net论文和源代码全套
C语言论文和源代码全套
delphi论文和源代码全套
JSP论文和源代码全套
JAVA论文和源代码全套
PHP论文和源代码全套
原创论文
您现在的位置:
网学
>>
免费论文
>>
论文导航
>>
论文全套
>>
VB论文和源代码全套
企业数据信息管理系统(论文和程序)
论文全套
2014-6-20
版权投诉
上传资料
复制论文网址
上传用户:
佳人有约
企业数据信息管理系统(论文和程序)
企业数据信息管理系统(论文和程序)-系统运行软件
企业数据信息管理系统(论文和程序)-系统图片展示
企业数据信息管理系统(论文和程序)-包括论文和程序列表
包括目录名称:
企业数据信息管理系统(论文和程序)
- 7 文件数, 1 目录数.
包括目录名称:
程序
- 31 文件数, 0 目录数.
..\caidan.001 ..\caidan.frm ..\CAIDAN.FRT ..\CAIDAN.FRX ..\caidan.log ..\caidan.tbk ..\中期报告(doc)749.doc ..\开题报告(doc)747.doc ..\目录及摘要(doc)748.doc ..\程序.rar ..\第三稿(doc)745.doc ..\自述.ppt
企业数据信息管理系统(论文和程序)-论文部分内容
附录程序清单及注释(doc)746-部分内容附录程序清单及注释 菜单窗体 OptionExplicit DimsqlAsString DimblnViewAsBoolean ConstMeWidthAsInteger=9216 ConstMeHeightAsInteger=6600 'caidan.Width=9216 'caidan.Height=6600 PrivateSubabout_Click() Form2.Show EndSub PrivateSubTSJ_Click() find1.Show caidan.Hide EndSub PrivateSubclean_Click() DimmydbAsDatabase DimdbpathAsString DimsqlAsString dbpath=App.Path&"\SJK.mdb" IfMsgBox("此功能将清除库中所有记录,你确定要执行吗?",vbOKCancel)=vbOKThen Setmydb=OpenDatabase(dbpath) sql="delete*fromhouse" mydb.Executesql sql="delete*fromroom" mydb.Executesql sql="delete*fromstudent" mydb.Executesql sql="delete*fromcleaner" mydb.Executesql MsgBox("清库完毕!") EndIf EndSub PrivateSubdatacopy_Click() DimdbAsDatabase DimdtAsNewTableDef IfMsgBox("是否备份",vbYesNo,"备份")=vbYesThen Setdb=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.Close Else:ExitSub EndIf EndSub PrivateSubdatasave_Click() DimdbAsDatabase DimdtAsNewTableDef IfMsgBox("是否还原",vbYesNo,"还原")=vbYesThen Setdb=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" db.TableDefs.Delete"cleaner" db.Execute"select*intocleanerfrombackup4" db.Close Else ExitSub EndIf EndSub PrivateSubexit_Click() '清表 DimmydbAsDatabase DimsqlAsString IfMsgBox("注意!"+Chr(13)+"此操作将清所有临时除库中所有记录,你确定要执行吗?",vbOKCancel,"提示")=vbOKThen Setmydb=OpenDatabase(App.Path&"\SJK.mdb") sql="delete*from查询汇总表" mydb.Executesql sql="delete*from材料总表" mydb.Executesql sql="delete*from总标准件表" mydb.Executesql sql="delete*from总外购件表" mydb.Executesql sql="delete*from总外协件表" mydb.Executesql sql="delete*from总图号册表" mydb.Executesql MsgBox("清库完毕!") Else ExitSub EndIf End EndSub PrivateSubQXSZ_Click() gly_f.Show EndSub PrivateSubForm_Resize() 'ifminimizedthenexit IfMe.WindowState=vbMinimizedThenExitSub 'iflowerthestandardvaluesreset IfMe.Height
""AndCombo2.Text<>""AndText1.Text<>""Then fieldname=Combo1.Text value=Text1.Text S
1
2
3
4
下一页
尾页
版权说明
【
设为主页
】【
加入收藏
】【
打印本文
】【
回到顶部
】【
关闭此页
】
相关文章
·
(超市商品信息管理系统系统)毕业论文(需
·
高校学生成绩管理系统(需要下
·
高校学生成绩管理系统(需要下载)
·
高校固定资产管理系统(需要下载)
·
餐饮酒店管理系统(需要下载)
·
项目管理在ERP中的应用(需要下载)
·
面向嵌入式系统的图形用户界面研究(需要下
·
面向MES的离散制造业车间生产管理研究(
·
附件A:动态车辆监管系统管理站点设计任务
最新文件
·
中药学专业毕业论文修稿_安徽医学高等专科
·
医学伦理学教学案例选择的新视角
·
网上创业七大货源优势
·
英语如何进行优化教学_英语教学论文
·
我国民事侵权及民事诉讼的发展浅析
·
议论文论据大全:律已
·
商业经济评论ppt模板
·
东西方不同的隐私观及折射的文化差异
·
全方位创新 建设大燃气企业集团
特别推荐