vb+access企业数据信息管理系统附录程序清单及注释Word下载.docx

1、delete * from roomdelete * from studentdelete * from cleaner MsgBox （清库完毕!）End IfPrivate Sub datacopy_Click（）Dim db As DatabaseDim dt As New TableDef是否备份, vbYesNo, 备份） = vbYes ThenSet db = OpenDatabase（App.Path &Set dt = db.CreateTableDef（backup1db.TableDefs.Delete db.Execute select house.* into bac

2、kup1 from house backup2select * into backup2 from roombackup3select * into backup3 from studentbackup4select * into backup4 from cleanerdb.Close Else: Exit Sub End IfPrivate Sub datasave_Click（）是否还原还原houseselect backup1.* into house from backup1 room db.Execute select * into room from backup2 db.Tab

3、leDefs.Delete studentselect * into student from backup3cleanerselect * into cleaner from backup4 db.Close ElsePrivate Sub exit_Click（）清表 注意! + Chr（13） + 此操作将清所有临时除库中所有记录，你确定要执行吗?, vbOKCancel, 提示） = vbOK Then Set mydb = OpenDatabase（App.Path &delete * from 查询汇总表delete * from 材料总表delete * from 总标准件表de

4、lete * from 总外购件表delete * from 总外协件表delete * from 总图号册表Else EndPrivate Sub QXSZ_Click（）gly_f.ShowPrivate Sub Form_Resize（） if minimized then exit If Me.WindowState = vbMinimized Then Exit Subif lower the standard values reset If Me.Height MeHeight Then Me.Height = MeHeight If Me.Width Case 2LIKE If

5、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） & Val（Text1.Text）select * from

6、材料总表 where findstring ElseIf MsgBox（输入条件不当,请重新输入., vbYes, 信息提示） = vbYes Then Exit Sub If operate = *select * from 材料总表 where fieldname & Command2.Enabled = True Data1.RecordSource = sqlDAO查询方法 Set rst1 = db.OpenRecordset（Data1.RecordSource, dbOpenDynaset） If Not （rst1.BOF And rst1.EOF） Then rst1.Mov

7、eLast Me.Caption = 总共找到 CStr（rst1.RecordCount） & 记录 MsgBox 未找到符合条件的纪录!数据查询:Private Sub Command2_Click（）DBGrid1.AllowUpdate = TrueCommand4.Enabled = Falseselect * from biaostringPrivate Sub Command3_Click（）清汇总表开始汇总Set db = DBEngine.Workspaces（0）.OpenDatabase（App.Path &Dim i, j, p As Integermc=名称 gg=规

8、格 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 T

9、o 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.MovePreviousNext jrst.AbsolutePosition = irst.Edit） = sl1） = zz1If i + 1 = p - 2 ThenExit ForNext iPrivate Sub GB_Click（）select * from 材料总表 where 类 = 钢板Private Sub GG_Click（）钢管Private Sub JXG_Click（）矩型管Private Sub Label4_Click（）caidan.ShowUnload MePrivate Sub Prnt36（） Dim Lnst1, Lnst