附录程序清单及注释.doc

毕设资料-VB企业数据信息管理系统

收藏

资源目录
跳过导航链接。
毕设资料-VB企业数据信息管理系统.zip
毕设资料-VB企业数据信息管理系统
企业数据信息管理系统【同学捐助】
附录程序清单及注释.doc---(点击预览)
自述.ppt---(点击预览)
第三稿.doc---(点击预览)
目录及摘要.doc---(点击预览)
开题报告.doc---(点击预览)
中期报告.doc---(点击预览)
程序
程序
程序.rar
压缩包内文档预览:(预览前20页/共25页)
预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图
编号:67364533    类型:共享资源    大小:3.34MB    格式:ZIP    上传时间:2020-04-05 上传人:独** IP属地:江苏
20
积分
关 键 词:
资料 VB 企业 数据 信息管理 系统
资源描述:
毕设资料-VB企业数据信息管理系统,资料,VB,企业,数据,信息管理,系统
内容简介:
附录程序清单及注释菜单窗体Option ExplicitDim sql As StringDim blnView As BooleanConst MeWidth As Integer = 9216Const MeHeight As Integer = 6600caidan.Width = 9216caidan.Height = 6600Private Sub about_Click()Form2.ShowEnd SubPrivate Sub TSJ_Click()find1.Showcaidan.HideEnd SubPrivate Sub clean_Click()Dim mydb As DatabaseDim dbpath As StringDim sql As Stringdbpath = App.Path & SJK.mdbIf 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 IfEnd SubPrivate Sub datacopy_Click()Dim db As DatabaseDim dt As New TableDefIf MsgBox(是否备份, vbYesNo, 备份) = vbYes ThenSet db = OpenDatabase(App.Path & SJK.mdb)Set dt = db.CreateTableDef(backup1)db.TableDefs.Delete backup1db.Execute select house.* into backup1 from house db.TableDefs.Delete backup2db.Execute select * into backup2 from roomdb.TableDefs.Delete backup3db.Execute select * into backup3 from studentdb.TableDefs.Delete backup4db.Execute select * into backup4 from cleanerdb.Close Else: Exit Sub End IfEnd SubPrivate Sub datasave_Click()Dim db As DatabaseDim dt As New TableDefIf MsgBox(是否还原, vbYesNo, 还原) = vbYes ThenSet db = OpenDatabase(App.Path & SJK.mdb)db.TableDefs.Delete housedb.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 IfEnd SubPrivate Sub exit_Click()清表 Dim mydb As DatabaseDim sql As StringIf MsgBox(注意! + Chr(13) + 此操作将清所有临时除库中所有记录,你确定要执行吗?, vbOKCancel, 提示) = vbOK Then Set mydb = OpenDatabase(App.Path & SJK.mdb) sql = delete * from 查询汇总表 mydb.Execute sql sql = delete * from 材料总表 mydb.Execute sql sql = delete * from 总标准件表 mydb.Execute sql sql = delete * from 总外购件表 mydb.Execute sql sql = delete * from 总外协件表 mydb.Execute sql sql = delete * from 总图号册表 mydb.Execute sql MsgBox (清库完毕!)Else Exit SubEnd If EndEnd SubPrivate Sub QXSZ_Click()gly_f.ShowEnd SubPrivate Sub Form_Resize() if minimized then exit If Me.WindowState = vbMinimized Then Exit Sub if lower the standard values reset If Me.Height MeHeight Then Me.Height = MeHeight If Me.Width = Case 2 operate = Case 3 operate = Case 4 operate = = Case 5 operate = Case 6 operate = LIKE End Select If Combo1.Text And Combo2.Text And Text1.Text Then fieldname = Combo1.Text value = Text1.Text Select Case Combo1.ListIndex Case 0, 1, 2, 3, 5, 6, 7, 13 , 4, 8, 9, 10, 11, 12 findstring = fieldname & operate & & value & Case 4, 8, 9, 10, 11, 12 findstring = Val(fieldname) & operate & Val(Text1.Text) End Select sql = select * from 材料总表 where & & findstring ElseIf MsgBox(输入条件不当,请重新输入., vbYes, 信息提示) = vbYes Then Exit Sub End If If operate = LIKE Then findstring = fieldname & operate & * & value & * sql = select * from 材料总表 where & fieldname & & operate & & * & value & * End If Command2.Enabled = True Data1.RecordSource = sql Data1.Refresh DAO查询方法 Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & sjk.mdb) Set rst1 = db.OpenRecordset(Data1.RecordSource, dbOpenDynaset) If Not (rst1.BOF And rst1.EOF) Then rst1.MoveLast Me.Caption = 总共找到 & CStr(rst1.RecordCount) & 记录 Else: MsgBox 未找到符合条件的纪录!, 64, 数据查询: Exit Sub End IfEnd SubPrivate Sub Command2_Click()DBGrid1.AllowUpdate = TrueCommand2.Enabled = FalseCommand4.Enabled = FalseData1.DatabaseName = App.Path & sjk.mdbsql = select * from & biaostringData1.RecordSource = sqlData1.RefreshEnd SubPrivate Sub Command3_Click()清汇总表Dim mydb As DatabaseDim sql As String Set mydb = OpenDatabase(App.Path & SJK.mdb) sql = delete * from 查询汇总表 mydb.Execute sql开始汇总Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & sjk.mdb)Set rst = db.OpenRecordset(查询汇总表, dbOpenDynaset)Set rst1 = db.OpenRecordset(Data1.RecordSource, dbOpenDynaset)rst1.MoveLastcount1 = rst1.RecordCountrst1.MoveFirstDim a As IntegerFor a = 1 To count1rst.AddNewrst.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.Updaterst1.MoveNextNext arst.Closedb.CloseSet db = DBEngine.Workspaces(0).OpenDatabase(App.Path & sjk.mdb)Set rst = db.OpenRecordset(查询汇总表, dbOpenDynaset)Dim i, j, p As Integermc=名称 gg=规格 bz=标准 cl=材料 sl=数量 DZ=单重 zz=总重Dim gg1, bz1, cl1, gm1, sl1, zz1, dz1, gg2, bz2, cl2, gm2, sl2, zz2, dz2 As Stringrst.MoveLastp = rst.RecordCountrst.MoveFirstFor i = 0 To p - 2 gg1 = rst.Fields(规格): bz1 = rst.Fields(标准): cl1 = rst.Fields(材料): sl1 = rst.Fields(数量): zz1 = rst.Fields(总重): dz1 = rst.Fields(单重)For j = i + 1 To p - 1rst.Move 1gg2 = rst.Fields(规格): bz2 = rst.Fields(标准): cl2 = rst.Fields(材料): sl2 = rst.Fields(数量): zz2 = rst.Fields(总重): dz2 = rst.Fields(单重)If gg1 = gg2 And bz1 = bz2 And cl1 = cl2 And dz1 = dz2 Thensl1 = Val(sl1) + Val(sl2): zz1 = Val(zz1) + Val(zz2): rst.Delete: p = p - 1: rst.MovePreviousEnd IfNext jrst.AbsolutePosition = irst.Editrst.Fields(数量) = sl1rst.Fields(总重) = zz1rst.UpdateData1.RefreshIf i + 1 = p - 2 Thenrst.Move 1ElseExit ForEnd IfNext irst.CloseData1.DatabaseName = App.Path & sjk.mdbData1.RecordSource = 查询汇总表Data1.RefreshEnd SubPrivate Sub GB_Click()sql = select * from 材料总表 where 类 = 钢板Data1.RecordSource = sql Data1.RefreshEnd SubPrivate Sub GG_Click()sql = select * from 材料总表 where 类 = 钢管Data1.RecordSource = sql Data1.RefreshEnd SubPrivate Sub JXG_Click()sql = select * from 材料总表 where 类 = 矩型管Data1.RecordSource = sql Data1.RefreshEnd SubPrivate Sub Label4_Click()caidan.ShowUnload MeEnd SubPrivate Sub Prnt36() Dim Lnst1, Lnst2, Lnst3, Lnst4, Lnst5 As String Dim Lnst6, Lnst7, Lnst8, prdate As String Dim i, j, Pg As Integer prdate = CStr(Date) Lnst1 = Lnst2 = 图 号 名 称 规 格 标 准 材 料 数 量 单重单价工时购买方式 备 注 Lnst3 = 1234567890123412345678901212345678901234567890123456789012123456781234567812345678123412345678123456789012 Lnst4 = Text2.Text Tn = InputBox(请输入每页记录数!) Printer.FontSize = 12 Printer.Print Lnst5 Printer.Print Lnst1 Printer.Print Lnst2 j = 0 Pg = 0 Data1.Recordset.MoveFirst For i = 1 To Data1.Recordset.RecordCount Printer.Print Lnst3 Lnst6 = If IsNull(Trim(Data1.Recordset(0) = False Then Lnst6 = Lnst6 + Trim(Data1.Recordset(0) + Space(14 - LenB(Trim(Data1.Recordset(0) / 2) + Else Lnst6 = Lnst6 + Space(14) + End If If IsNull(Trim(Data1.Recordset(1) = False Then Lnst6 = Lnst6 + Trim(Data1.Recordset(1) + Space(12 - LenB(Trim(Data1.Recordset(1) + Else Lnst6 = Lnst6 + Space(12) + End If If IsNull(Trim(Data1.Recordset(2) = False Then Lnst6 = Lnst6 + Trim(Data1.Recordset(2) + Space(20 - LenB(Trim(Data1.Recordset(2) / 2) + Else Lnst6 = Lnst6 + Space(20) + End If If IsNull(Trim(Data1.Recordset(3) = False Then Lnst6 = Lnst6 + Trim(Data1.Recordset(3) + Space(12 - LenB(Trim(Data1.Recordset(3) / 2) + Else Lnst6 = Lnst6 + Space(12) + End If If IsNull(Trim(Data1.Recordset(4) = False Then Lnst6 = Lnst6 + Trim(Data1.Recordset(4) + Space(8 - LenB(Trim(Data1.Recordset(4) / 2) + Else Lnst6 = Lnst6 + Space(8) + End If If IsNull(Trim(Data1.Recordset(5) = False Then Lnst6 = Lnst6 + Trim(Data1.Recordset(5) + Space(8 - LenB(Trim(Data1.Recordset(5) / 2) + Else Lnst6 = Lnst6 + Space(8) + End If If IsNull(Trim(Data1.Recordset(6) = False Then Lnst6 = Lnst6 + Trim(Data1.Recordset(6) + Space(4 - LenB(Trim(Data1.Recordset(6) / 2) + Else Lnst6 = Lnst6 + Space(4) + End If If IsNull(Trim(Data1.Recordset(7) = False Then Lnst6 = Lnst6 + Trim(Data1.Recordset(7) + Space(4 - LenB(Trim(Data1.Recordset(7) / 2) + Else Lnst6 = Lnst6 + Space(4) + End If If IsNull(Trim(Data1.Recordset(8) = False Then Lnst6 = Lnst6 + Trim(Data1.Recordset(4) + Space(4 - LenB(Trim(Data1.Recordset(8) + Else Lnst6 = Lnst6 + Space(4) + End If If IsNull(Trim(Data1.Recordset(9) = False Then Lnst6 = Lnst6 + Trim(Data1.Recordset(9) + Space(8 - LenB(Trim(Data1.Recordset(9) / 2) + Else Lnst6 = Lnst6 + Space(8) + End If If IsNull(Trim(Data1.Recordset(10) = False Then Lnst6 = Lnst6 + Trim(Data1.Recordset(10) + Space(12 - LenB(Trim(Data1.Recordset(9) / 2) + Else Lnst6 = Lnst6 + Space(12) + End If Printer.Print Lnst6 j = j + 1 If j = Tn Then Pg = Pg + 1 Printer.Print Lnst4 j = 0 Printer.NewPage Printer.Print Lnst5 Printer.Print Lnst1 Printer.Print Lnst2 End If Data1.Recordset.MoveNext Next Pg = Pg + 1 Printer.Print Lnst4Printer.EndDocEnd SubPrivate Sub THC_Click() sql = select * from 材料总表 where 图号 LIKE *TLY* Data1.RecordSource = sql Data1.Refresh If MsgBox(是否将此记录添加到总图号册中?, 64, ) = vbOK Then Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & sjk.mdb)Set rst = db.OpenRecordset(总图号册表, dbOpenDynaset)Set rst1 = db.OpenRecordset(Data1.RecordSource, dbOpenDynaset)rst1.MoveLastcount1 = rst1.RecordCountrst1.MoveFirstDim a As IntegerFor a = 1 To count1rst.AddNewrst.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.Updaterst1.MoveNextNext arst.Closedb.CloseEnd IfEnd SubPrivate Sub WGJ_Click()sql = select * from 材料总表 where 特性 = WGData1.RecordSource = sql Data1.Refresh If MsgBox(是否将此记录添加到总外购件表中?, 64, ) = vbOK Then Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & sjk.mdb)Set rst = db.OpenRecordset(总外购件表, dbOpenDynaset)Set rst1 = db.OpenRecordset(Data1.RecordSource, dbOpenDynaset)rst1.MoveLastcount1 = rst1.RecordCountrst1.MoveFirstDim a As IntegerFor a = 1 To count1rst.AddNewrst.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.Updaterst1.MoveNextNext arst.Closedb.CloseEnd IfEnd SubPrivate Sub WXJ_Click()sql = select * from 材料总表 where 特性 = WXData1.RecordSource = sql Data1.Refresh If MsgBox(是否将此记录添加到总外协件表中?, 64, ) = vbOK Then Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & sjk.mdb)Set rst = db.OpenRecordset(总外协件表, dbOpenDynaset)Set rst1 = db.OpenRecordset(Data1.RecordSource, dbOpenDynaset)rst1.MoveLastcount1 = rst1.RecordCountrst1.MoveFirstDim a As IntegerFor a = 1 To count1rst.AddNewrst.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.Updaterst1.MoveNextNext arst.Closedb.CloseEnd IfEnd SubPrivate Sub HG_Click()sql = select * from 材料总表 where 类 = H型钢Data1.RecordSource = sql Data1.RefreshEnd Sub数据加载窗体Private Sub Command1_Click()Dim Tn As IntegerDim c As IntegerDim cnt As IntegerDim db As DatabaseDim db1 As DatabaseDim a As IntegerDim b As IntegerDim rst As RecordsetDim rst1 As RecordsetDim TN1, TN2, TN3 As Integer建表TN1 = Val(Text1.Text): TN2 = Val(Text2.Text): TN3 = (Text3.Text)If TN1 0 And TN2 0 And TN3 0 ThenSet db = DBEngine.Workspaces(0).OpenDatabase(App.Path & /sjk.mdb)Set db1 = DBEngine.Workspaces(0).OpenDatabase(App.Path & /sjk.mdb)Set rst = db1.OpenRecordset(材料总表, dbOpenDynaset)Set rst1 = db.OpenRecordset(升降提升, dbOpenDynaset)rst1.MoveLastcnt = rst1.RecordCountrst1.MoveFirstFor a = 1 To cntrst.AddNewrst.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.Updaterst1.MoveNextNext a数据计算rst.MoveFirstFor b = 1 To rst1.RecordCountrst.Editc = Val(rst.Fields(数量)rst.Fields(总重) = Val(rst.Fields(单重) * TN1 * TN3 * crst.Fields(数量) = TN1 * TN3 * crst.Updaterst.MoveNextNext bSet rst2 = db.OpenRecordset(升降横移)rst2.MoveLastcnt = rst2.RecordCountrst2.MoveFirstrst.MoveFirstFor a = 1 To cntrst.AddNewrst.Fields(图号) = rst2.Fields(图号)rst.Fields(标准) = rst2.Fields(标准)rst.Fields(名称) = rst2.Fields(名称)rst.Fields(规格) = rst2.Fields(规格)rst.Fields(尺寸) = rst2.Fields(尺寸)rst.Fields(材料) = rst2.Fields(材料)rst.Fields(特性) = rst2.Fields(特性)rst.Fields(类) = rst2.Fields(类)rst.Fields(数量) = rst2.Fields(数量)rst.Fields(单重) = rst2.Fields(单重)rst.Fields(单价) = rst2.Fields(单价)rst.Fields(工时) = rst2.Fields(工时)rst.Fields(备注) = rst2.Fields(备注)rst.Updaterst2.MoveNextNext a数据计算rst.AbsolutePosition = rst1.RecordCount - 1For b = 1 To rst2.RecordCountrst.Editc = Val(rst.Fields(数量)rst.Fields(总重) = Val(rst.Fields(单重) * TN2 * TN3 * crst.Fields(数量) = TN2 * TN3 * crst.Updaterst.MoveNextNext bElse MsgBox 输入错误,请确认后从新输入, vbOKEnd Iffind1.ShowMe.HideEnd SubPrivate Sub Command2_Click()caidan.ShowMe.HideEnd Sub权限窗体Private Sub Command1_Click()DataGrid1.AllowAddNew = TrueDataGrid1.AllowUpdate = True Adodc1.Recordset.AddNewEnd SubPrivate Sub Command2_Click() DataGrid1.AllowUpdate = False DataGrid1.AllowAddNew = False Adodc1.Recordset.Update Adodc1.RefreshEnd SubPrivate Sub Command3_Click() caidan.Show Unload MeEnd SubPrivate Sub Com
温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
提示  人人文库网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:毕设资料-VB企业数据信息管理系统
链接地址:https://www.renrendoc.com/p-67364533.html

官方联系方式

2:不支持迅雷下载,请使用浏览器下载   
3:不支持QQ浏览器下载,请用其他浏览器   
4:下载后的文档和图纸-无水印   
5:文档经过压缩,下载后原文更清晰   
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

网站客服QQ:2881952447     

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

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

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