资源目录
压缩包内文档预览：(预览前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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。
川公网安备: 51019002004831号