- 1、本文档共27页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
企业数据信息管理系统程序清单及注释.doc
附录程序清单及注释
菜单窗体
Option Explicit
Dim sql As String
Dim blnView As Boolean
Const MeWidth As Integer = 9216
Const MeHeight As Integer = 6600
caidan.Width = 9216
caidan.Height = 6600
Private Sub about_Click()
Form2.Show
End Sub
Private Sub TSJ_Click()
find1.Show
caidan.Hide
End Sub
Private Sub clean_Click()
Dim mydb As Database
Dim dbpath As String
Dim sql As String
dbpath = App.Path \SJK.mdb
If MsgBox(此功能将清除库中所有记录,你确定要执行吗?, vbOKCancel) = vbOK Then
Set mydb = OpenDatabase(dbpath)
sql = delete * from house
mydb.Execute sql
sql = delete * from room
mydb.Execute sql
sql = delete * from student
mydb.Execute sql
sql = delete * from cleaner
mydb.Execute sql
MsgBox (清库完毕!)
End If
End Sub
Private Sub datacopy_Click()
Dim db As Database
Dim dt As New TableDef
If MsgBox(是否备份, vbYesNo, 备份) = vbYes Then
Set db = OpenDatabase(App.Path \SJK.mdb)
Set dt = db.CreateTableDef(backup1)
db.TableDefs.Delete backup1
db.Execute select house.* into backup1 from house
db.TableDefs.Delete backup2
db.Execute select * into backup2 from room
db.TableDefs.Delete backup3
db.Execute select * into backup3 from student
db.TableDefs.Delete backup4
db.Execute select * into backup4 from cleaner
db.Close
Else: Exit Sub
End If
End Sub
Private Sub datasave_Click()
Dim db As Database
Dim dt As New TableDef
If MsgBox(是否还原, vbYesNo, 还原) = vbYes Then
Set db = OpenDatabase(App.Path \SJK.mdb)
db.TableDefs.Delete house
db.Execute select backup1.* into house from backup1
db.TableDefs.Delete room
db.Execute select * into room from backup2
db.TableDefs.Delete student
db.Execute select * into student from backup3
db.TableDefs.Delete cleaner
db.Execute select * into cleaner from backup4
db.Close
Else
Exit Sub
End If
End Sub
Private Sub exit_Click()
清表
Dim mydb As Database
Dim sql As String
If MsgBox(注意! + Chr(13) + 此操作将清所有临时除库中所有记录,你确定要执行吗?, vbOKCancel, 提示) = vbOK Then
Set mydb = OpenDatabase(App.Path \SJK.mdb)
sql = delete * from 查询汇总表
mydb.Execute sql
sql = del
您可能关注的文档
- .老年护理学[单选](. geriatric nursing [radio]).doc
- Laboratory User Manual - U.S. Department of ….doc
- 适用于全光开关的(CH)NAu(CS)三阶非线性光学性质研究.doc
- 2015年12月华师100分《当代散文赏析》在线作业..doc
- 年法国巴黎第届世界博览会.doc
- 策略制胜差异创造品牌附加值(Strategy winning difference creates brand value added).doc
- 经济信息资源的查询和利用(第四版).doc
- RAPORTTI UUDEN AJAN ALUN HISTORIAA KOSKEVISTA AINEISTOISTA JA….doc
- -年助理理财规划师基础知识 专业能力及答案.doc
- 集体林权制度改革政策解读(Policy interpretation of collective forest tenure reform).doc
最近下载
- 抖音直播手卡模板.pdf
- 小学英语课前三分钟活动方案.docx
- 购买商铺自营协议书.pdf VIP
- (高清版)B-T 3836.2-2021 爆炸性环境 第2部分:由隔爆外壳“d”保护的设备.pdf VIP
- Q/320582 ZD028-2020预应力混凝土方桩(螺锁式连接、焊接连接).docx
- Unit1+Personal+and+family+life-listening+and+speaking.(课件)-中职高一英语(高教版2021基础模块1).pptx
- 板式家具工序质量标准及检验规范.docx
- 以服务型党组织建设为引领-加强基层党组织建设.ppt VIP
- 危废应急预案.pdf VIP
- 2024年党员干部违规吃喝行为工作情况报告.docx VIP
文档评论(0)