vb+access企业数据信息管理系统附录程序清单及注释.docx
- 文档编号:9587352
- 上传时间:2023-02-05
- 格式:DOCX
- 页数:31
- 大小:19.97KB
vb+access企业数据信息管理系统附录程序清单及注释.docx
《vb+access企业数据信息管理系统附录程序清单及注释.docx》由会员分享,可在线阅读,更多相关《vb+access企业数据信息管理系统附录程序清单及注释.docx(31页珍藏版)》请在冰豆网上搜索。
vb+access企业数据信息管理系统附录程序清单及注释
附录程序清单及注释
菜单窗体
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 IfMe.Width 'setuplist1&msflexgrid1 caidan.Scale EndSub PrivateSubSJHY2_Click() Form4.Show caidan.Hide EndSub 查询窗体 OptionExplicit DimsqlAsString DimfindstringAsString DimcancelflagAsBoolean DimdbAsDatabase Dimdb1AsDatabase DimrstAsRecordset Dimrst1AsRecordset DimTnAsLong Dimcount1AsInteger PrivateSubBZJ_Click() sql="select*from材料总表where特性='GB'" Data1.RecordSource=sql Data1.Refresh IfMsgBox("是否将此记录添加到总标准件中? ",64,"")=vbOKThen Setdb=DBEngine.Workspaces(0).OpenDatabase(App.Path&"\sjk.mdb") Setrst=db.OpenRecordset("总标准件表",dbOpenDynaset) Setrst1=db.OpenRecordset(Data1.RecordSource,dbOpenDynaset) rst1.MoveLast count1=rst1.RecordCount rst1.MoveFirst DimaAsInteger Fora=1Tocount1 rst.AddNew rst.Fields("图号")=rst1.Fields("图号") rst.Fields("标准")=rst1.Fields("标准") rst.Fields("名称")=rst1.Fields("名称") rst.Fields("规格")=rst1.Fields("规格") rst.Fields("尺寸")=rst1.Fields("尺寸") rst.Fields("材料")=rst1.Fields("材料") rst.Fields("特性")=rst1.Fields("特性") rst.Fields("类")=rst1.Fields("类") rst.Fields("数量")=rst1.Fields("数量") rst.Fields("单重")=rst1.Fields("单重") rst.Fields("单价")=rst1.Fields("单价") rst.Fields("工时")=rst1.Fields("工时") rst.Fields("总重")=rst1.Fields("总重") rst.Fields("备注")=rst1.Fields("备注") rst.Update rst1.MoveNext Nexta rst.Close db.Close EndIf EndSub PrivateSubCommand10_Click() Data1.DatabaseName=App.Path&"\sjk.mdb" Data1.RecordSource="总外协件表" Data1.Refresh EndSub PrivateSubCommand4_Click() CallPrnt36 EndSub PrivateSubCommand5_Click() DimmydbAsDatabase DimdbpathAsString DimsqlAsString dbpath=App.Path&"\SJK.mdb" IfMsgBox("此功能将清除库中所有记录,你确定要执行吗? ",vbOKCancel)=vbOKThen Setmydb=OpenDatabase(dbpath) sql="delete*from查询汇总表" mydb.Executesql MsgBox("清库完毕! ") Data1.DatabaseName=App.Path&"\sjk.mdb" Data1.RecordSource="查询汇总表" Data1.Refresh EndIf EndSub PrivateSubCommand7_Click() Data1.DatabaseName=App.Path&"\sjk.mdb" Data1.RecordSource="总图号册表" Data1.Refresh EndSub PrivateSubCommand8_Click() Data1.DatabaseName=App.Path&"\sjk.mdb" Data1.RecordSource="总外购件表" Data1.Refresh EndSub PrivateSubCommand9_Click() Data1.DatabaseName=App.Path&"\sjk.mdb" Data1.RecordSource="总标准件表" Data1.Refresh EndSub PrivateSubForm_Load() DBGrid1.AllowUpdate=False Command2.Enabled=False Data1.DatabaseName=App.Path&"\sjk.mdb" sql="select*from材料总表" Data1.RecordSource=sql Data1.Refresh DimnumAsInteger Fornum=0ToData1.Recordset.Fields.Count-1 Combo1.AddItemData1.Recordset.Fields(num).Name Nextnum EndSub PrivateSubCombo2_Click() DimtempAsString SelectCaseCombo2.ListIndex Case0 temp="等于" Case1 temp="大于等于" Case2 temp="大于" Case3 temp="小于" Case4 temp="小于等于" Case5 temp="不等于" Case6 temp="包含" EndSelect 'laboperate.Caption=temp EndSub PrivateSubCommand1_Click() DimfieldnameAsString DimoperateAsString DimvalueAsString SelectCaseCombo2.ListIndex Case0 operate="=" Case1 operate=">=" Case2 operate=">" Case3 operate="<" Case4 operate="<=" Case5 operate="<>" Case6 operate="LIKE" EndSelect IfCombo1.Text<>""AndCombo2.Text<>""AndText1.Text<>""Then fieldname=Combo1.Text value=Text1.Text SelectCaseCombo1.ListIndex Case0,1,2,3,5,6,7,13',4,8,9,10,11,12 findstring=fieldname&operate&"'"&value&"'" Case4,8,9,10,11,12 findstring=Val(fieldname)&operate&Val(Text1.Text) EndSelect sql="select*from材料总表where"&""&findstring ElseIfMsgBox("输入条件不当,请重新输入.",vbYes,"信息提示")=vbYesThenExitSub EndIf Ifoperate="LIKE"Then findstring=fieldname&operate&"'*"&value&"*'" sql="select*from材料总表where"&fieldname&""&operate&""&"'*"&value&"*'" EndIf Command2.Enabled=True Data1.RecordSource=sql Data1.Refresh 'DAO查询方法 Setdb=DBEngine.Workspaces(0).OpenDatabase(App.Path&"\sjk.mdb") Setrst1=db.OpenRecordset(Data1.RecordSource,dbOpenDynaset) IfNot(rst1.BOFAndrst1.EOF)Then rst1.MoveLast Me.Caption="总共找到"&CStr(rst1.RecordCount)&"记录" Else: MsgBox"未找到符合条件的纪录! ",64,"数据查询": ExitSub EndIf EndSub PrivateSubCommand2_Click() DBGrid1.AllowUpdate=True Command2.Enabled=False Command4.Enabled=False Data1.DatabaseName=App.Path&"\sjk.mdb" sql="select*from"&biaostring Data1.RecordSource=sql Data1.Refresh EndSub PrivateSubCommand3_Click() '清汇总表 DimmydbAsDatabase DimsqlAsString Setmydb=OpenDatabase(App.Path&"\SJK.mdb") sql="delete*from查询汇总表" mydb.Executesql '开始汇总 Setdb=DBEngine.Workspaces(0).OpenDatabase(App.Path&"\sjk.mdb") Setrst=db.OpenRecordset("查询汇总表",dbOpenDynaset) Setrst1=db.OpenRecordset(Data1.RecordSource,dbOpenDynaset) rst1.MoveLast count1=rst1.RecordCount rst1.MoveFirst DimaAsInteger Fora=1Tocount1 rst.AddNew rst.Fields("图号")=rst1.Fields("图号") rst.Fields("标准")=rst1.Fields("标准") rst.Fields("名称")=rst1.Fields("名称") rst.Fields("规格")=rst1.Fields("规格") rst.Fields("尺寸")=rst1.Fields("尺寸") rst.Fields("材料")=rst1.Fields("材料") rst.Fields("特性")=rst1.Fields("特性") rst.Fields("类")=rst1.Fields("类") rst.Fields("数量")=rst1.Fields("数量") rst.Fields("单重")=rst1.Fields("单重") rst.Fields("单价")=rst1.Fields("单价") rst.Fields("工时")=rst1.Fields("工时") rst.Fields("总重")=rst1.Fields("总重") rst.Fields("备注")=rst1.Fields("备注") rst.Update rst1.MoveNext Nexta rst.Close db.Close Setdb=DBEngine.Workspaces(0).OpenDatabase(App.Path&"\sjk.mdb") Setrst=db.OpenRecordset("查询汇总表",dbOpenDynaset) Dimi,j,pAsInteger 'mc=名称gg=规格bz=标准cl=材料sl=数量DZ=单重zz=总重 Dimgg1,bz1,cl1,gm1,sl1,zz1,dz1,gg2,bz2,cl2,gm2,sl2,zz2,dz2AsString rst.MoveLast p=rst.RecordCount rst.MoveFirst Fori=0Top-2 gg1=rst.Fields("规格"): bz1=rst.Fields("标准"): cl1=rst.Fields("材料"): sl1=rst.Fields("数量"): zz1=rst.Fields("总重"): dz1=rst.Fields("单重") Forj=i+1Top-1 rst.Move1 gg2=rst.Fields("规格"): bz2=rst.Fields("标准"): cl2=rst.Fields("材料"): sl2=rst.Fields("数量"): zz2=rst.Fields("总重"): dz2=rst.Fields("单重") Ifgg1=gg2Andbz1=bz2Andcl1=cl2Anddz1=dz2Then sl1=Val(sl1)+Val(sl2): zz1=Val(zz1)+Val(zz2): rst.Delete: p=p-1: rst.MovePrevious EndIf Nextj rst.AbsolutePosition=i rst.Edit rst.Fields("数量")=sl1 rst.Fields("总重")=zz1 rst.Update Data1.Refresh Ifi+1<=p-2Then rst.Move1 Else ExitFor EndIf Nexti rst.Close Data1.DatabaseName=App.Path&"\sjk.mdb" Data1.RecordSource="查询汇总表" Data1.Refresh EndSub PrivateSubGB_Click() sql="select*from材料总表where类='钢板'" Data1.RecordSource=sql Data1.Refresh EndSub PrivateSubGG_Click() sql="select*from材料总表where类='钢管'" Data1.RecordSource=sql Data1.Refresh EndSub PrivateSubJXG_Click() sql="select*from材料总表where类='矩型管'" Data1.RecordSource=sql Data1.Refresh EndSub PrivateSubLabel4_Click() caidan.Show UnloadMe EndSub PrivateSubPrnt36() DimLnst1,Lnst
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- vb access 企业 数据 信息管理 系统 附录 程序 清单 注释
![提示](https://static.bdocx.com/images/bang_tan.gif)