氧化铝攻城设备管理系统程序截图+代码-无忧无虑毕设网

氧化铝攻城设备管理系统程序截图+代码-无忧无虑毕设网 无忧无虑毕设网(www.5156bs.com) 本文配套程序下载地址:无忧无虑毕设网(www.5156bs.com)-大学生毕业设计站,免费毕业设计论文,无忧无虑毕设网大学生毕业设计,出售各类毕业设计源码,论文,程序源码,网站源码,免费视频教程,我们将竭诚为您服务～ 毕业设计源码:www.5156bs.com 无忧无虑毕设网(www.5156bs.com) 毕业设计源码:www.5156bs.com 无忧无虑毕设网(www.5156bs.com) 毕业设计源码:www.5156bs.com 无忧无虑毕设网(www.5156bs.com) 毕业设计源码:www.5156bs.com 无忧无虑毕设网(www.5156bs.com) 毕业设计源码:www.5156bs.com 无忧无虑毕设网(www.5156bs.com) 毕业设计源码:www.5156bs.com 无忧无虑毕设网(www.5156bs.com) 毕业设计源码:www.5156bs.com 无忧无虑毕设网(www.5156bs.com) 毕业设计源码:www.5156bs.com 无忧无虑毕设网(www.5156bs.com) 毕业设计源码:www.5156bs.com 无忧无虑毕设网(www.5156bs.com) 毕业设计源码:www.5156bs.com 无忧无虑毕设网(www.5156bs.com) 毕业设计源码:www.5156bs.com 无忧无虑毕设网(www.5156bs.com) 毕业设计源码:www.5156bs.com 无忧无虑毕设网(www.5156bs.com) 代码 添加用户 Private Sub Command1_Click() '单击添加用户按钮时，将界面上文本框置空，以便输入要添加的用户信息 TxtName.Locked = False '添加用户时将用户名文本框改为可编辑 TxtName.Text = "" Txtsec.Locked = False Combo1.Text = "" RTxtBox1.Text = "" MsgBox "请输入要添加的用户信息～" End Sub 确定添加用户 Private Sub Command1_Click() '单击添加用户按钮时，将界面上文本框置空，以便输入要添加的用户信息 TxtName.Locked = False '添加用户时将用户名文本框改为可编辑 TxtName.Text = "" Txtsec.Locked = False Combo1.Text = "" RTxtBox1.Text = "" MsgBox "请输入要添加的用户信息～" End Sub 修改用户 Private Sub ListView1_Click() '当单击ListView1中相应用户时，在文本框中显示出该用户的信息 TxtName.Locked = True '修改用户名文本框 Dim rs2 As New ADODB.Recordset rs2.Open "select Role_Name from Role_Info where Role_id in (select Role_id from SysAd_Info where Admin_Name='" + ListView1.SelectedItem + "')", DBCnn, adOpenStatic, adLockOptimistic Dim rs3 As New ADODB.Recordset '定义 记录 混凝土 养护记录下载土方回填监理旁站记录免费下载集备记录下载集备记录下载集备记录下载 集，用于打开在listview中选定的用户信息 rs3.Open "select * from SysAd_Info where Admin_Name='" + ListView1.SelectedItem + "'", DBCnn, adOpenStatic, adLockOptimistic '将选定的用户信息显示出来 毕业设计源码:www.5156bs.com 无忧无虑毕设网(www.5156bs.com) TxtName.Text = rs3.Fields("Admin_Name") Txtsec.Text = rs3.Fields("Admin_SecNum") Combo1.Text = rs2.Fields("Role_Name") RTxtBox1.Text = rs3.Fields("Admin_Else") If rs3.Fields("Times") >= 6 Then TxtZT.Text = "被锁定" Else TxtZT.Text = "未锁定" End If rs3.Close rs2.Close End Sub 删除用户 Private Sub Command2_Click() '删除一个已经存在的用户，并同时将权限 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 中的信息删除 Dim rs As New ADODB.Recordset '定义记录集，用于打开用户信息表 Dim rs1 As New ADODB.Recordset '定义记录集，用于打开权限信息表 '打开用户信息表 If TxtName.Text = "" Then MsgBox "请从左侧用户列表中选择一个要删除的用户" Exit Sub End If If TxtName.Text = "Admin" Then MsgBox "不能删除超级用户:Admin" Exit Sub End If '选择了一个用户后，将该用户信息从用户信息表中删除，并将权限信息一并删除 '打开用户信息表 If MsgBox("确实要删除记录吗,", vbYesNo + vbQuestion + vbDefaultButton1, "确认窗口") = vbYes Then rs.Open "select * from SysAd_Info where Admin_Name='" + ListView1.SelectedItem + "'", DBCnn, adOpenStatic, adLockOptimistic rs.Delete '删除用户信息表中用户信息 MsgBox "成功删除该用户～" Unload frmadmin frmadmin.Show '完成事务日志的填写 rslog.Open "select * from Log_Info where 操作员=''", DBCnn, adOpenStatic, 毕业设计源码:www.5156bs.com 无忧无虑毕设网(www.5156bs.com) adLockOptimistic rslog.AddNew rslog.Fields("操作员") = frmlog.txtuser.Text rslog.Fields("日期") = Date rslog.Fields("操作时间") = Time rslog.Fields("操作模块") = "用户管理界面" rslog.Fields("操作") = "删除用户" rslog.Fields("备注") = "删除用户:" & TxtName.Text rslog.Update rslog.Close rs.Close End If End Sub 报废查询 Private Sub Command1_Click() Dim rs1 As New ADODB.Recordset DataGrid1.Enabled = True ' MyDate1 = Left(Format(DTPbrokeK.Value, "short date"), 4) + Right(Left(Format(DTPbrokeK.Value, "short date"), 7), 2) + Right(Format(DTPbrokeK.Value, "short date"), 2) ' MyDate2 = Left(Format(DTPbrokeJ.Value, "short date"), 4) + Right(Left(Format(DTPbrokeJ.Value, "short date"), 7), 2) + Right(Format(DTPbrokeJ.Value, "short date"), 2) If Option1.Value = True Then ' If Val(MyDate1) > Val(MyDate2) Then ' MsgBox "开始时间不能大于结束时间", , "信息提示" ' DTPbrokeJ.SetFocus ' Exit Sub ' Else If DataEnvironment1.rsCmdbroke.State <> adStateClosed Then DataEnvironment1.rsCmdbroke.Close End If DataEnvironment1.Cmdbroke DTPbrokeK.Value, DTPbrokeJ.Value Set DataGrid1.DataSource = DataEnvironment1 DataGrid1.DataMember = "Cmdbroke" If DataGrid1.ApproxCount < 1 Then 'visiblerows为窗口中能看到 的记录条数,通过判断该属性设置datagrid1的enabled属性 DataGrid1.Enabled = False MsgBox "没有记录" 毕业设计源码:www.5156bs.com 无忧无虑毕设网(www.5156bs.com) End If ' End If End If If Option2.Value = True Then If Combroke.Text = "请选择" Then MsgBox "请选择一个工程设备" Exit Sub End If If DataEnvironment1.rsCmdbroke1.State <> adStateClosed Then DataEnvironment1.rsCmdbroke1.Close End If DataEnvironment1.Cmdbroke1 Combroke.Text Set DataGrid1.DataSource = DataEnvironment1 DataGrid1.DataMember = "Cmdbroke1" If DataGrid1.ApproxCount < 1 Then 'visiblerows为窗口中能看到的记录条数,通过判断该属性设置datagrid1的enabled属性 DataGrid1.Enabled = False MsgBox "没有记录" End If End If End Sub 打印结果 Private Sub Command3_Click() If Option1.Value = True Then Databroke.Show End If If Option2.Value = True Then MsgBox "该条件下没有报表打印" Exit Sub End If End Sub 添加设备类型 Private Sub Command2_Click() '添加设备类型按钮 Dim rs As New ADODB.Recordset '设备类型记录集 If TxtT.Text = "" Then 毕业设计源码:www.5156bs.com 无忧无虑毕设网(www.5156bs.com) MsgBox "请输入设备类型名称" '如果未输入设备类型就显示 Exit Sub End If rs.Open "select * from EquType_Info where Type_Name like'" & Trim(TxtT.Text) & "'", DBCnn, adOpenStatic, adLockOptimistic If rs.RecordCount > 0 Then '如果原来存在此设备类型就不能添加 MsgBox "已存在该设备类型名称，不能添加相同类型" TxtT.Text = "" '文本框设置为空 Else '如果原来没有此设备类型就可以添加 rs.AddNew rs.Fields("Type_Name") = TxtT.Text '添加的类型是文本框中的 内容 财务内部控制制度的内容财务内部控制制度的内容人员招聘与配置的内容项目成本控制的内容消防安全演练内容 rs.Update MsgBox "设备类型添加成功" Unload frmEt frmEt.Show '完成对日志文件的填写 rslog.Open "select * from Log_Info where 操作员=''", DBCnn, adOpenStatic, adLockOptimistic rslog.AddNew rslog.Fields("操作员") = frmlog.txtuser.Text rslog.Fields("日期") = Date rslog.Fields("操作时间") = Time rslog.Fields("操作模块") = "设备类型管理界面" rslog.Fields("操作") = "添加" rslog.Fields("备注") = "添加的类型为:" & TxtT.Text rslog.Update rslog.Close End If rs.Close End Sub 添加设备类型 Private Sub Command2_Click() '添加设备类型按钮 Dim rs As New ADODB.Recordset '设备类型记录集 If TxtT.Text = "" Then MsgBox "请输入设备类型名称" '如果未输入设备类型就显示 Exit Sub End If rs.Open "select * from EquType_Info where Type_Name like'" & Trim(TxtT.Text) & "'", DBCnn, adOpenStatic, adLockOptimistic If rs.RecordCount > 0 Then '如果原来存在此设备类型就不能添加 MsgBox "已存在该设备类型名称，不能添加相同类型" 毕业设计源码:www.5156bs.com 无忧无虑毕设网(www.5156bs.com) TxtT.Text = "" '文本框设置为空 Else '如果原来没有此设备类型就可以添加 rs.AddNew rs.Fields("Type_Name") = TxtT.Text '添加的类型是文本框中的内容 rs.Update MsgBox "设备类型添加成功" Unload frmEt frmEt.Show '完成对日志文件的填写 rslog.Open "select * from Log_Info where 操作员=''", DBCnn, adOpenStatic, adLockOptimistic rslog.AddNew rslog.Fields("操作员") = frmlog.txtuser.Text rslog.Fields("日期") = Date rslog.Fields("操作时间") = Time rslog.Fields("操作模块") = "设备类型管理界面" rslog.Fields("操作") = "添加" rslog.Fields("备注") = "添加的类型为:" & TxtT.Text rslog.Update rslog.Close End If rs.Close End Sub 入库查询 Private Sub Command1_Click() Dim rs1 As New ADODB.Recordset DataGrid1.Enabled = True If DataEnvironment1.rsCmdin.State <> adStateClosed Then DataEnvironment1.rsCmdin.Close End If DataEnvironment1.Cmdin DTPinK.Value, DTPinJ.Value Set DataGrid1.DataSource = DataEnvironment1 DataGrid1.DataMember = "Cmdin" If DataGrid1.ApproxCount < 1 Then 'visiblerows为窗口中能看到的记录条数,通过判断该属性设置datagrid1的enabled属性 DataGrid1.Enabled = False MsgBox "没有记录" End If ' End If ElseIf Option2.Value = True Then If Comin.Text = "" Then MsgBox "请选择一个工程设备" 毕业设计源码:www.5156bs.com 无忧无虑毕设网(www.5156bs.com) Exit Sub End If If DataEnvironment1.rsCmdin1.State <> adStateClosed Then DataEnvironment1.rsCmdin1.Close End If DataEnvironment1.Cmdin1 Comin.Text Set DataGrid1.DataSource = DataEnvironment1 DataGrid1.DataMember = "Cmdin1" If DataGrid1.ApproxCount < 1 Then 'visiblerows为窗口中能看到 的记录条数,通过判断该属性设置datagrid1的enabled属性 DataGrid1.Enabled = False MsgBox "没有记录" End If End If If Option1.Value = True Then DataGrid1.Columns("Lab_ID").Width = 0 DataGrid1.Columns("Type_Id").Width = 0 End If DataGrid1.Columns("Equip_ID").Caption = "设备编号" DataGrid1.Columns("Equip_Date").Caption = "购置日期" DataGrid1.Columns("Equip_Price").Caption = "购置金额" DataGrid1.Columns("Equip_Year").Caption = "保修年限" DataGrid1.Columns("Equip_Else").Caption = "备注" DataGrid1.Columns("Type_Name").Caption = "设备类型" DataGrid1.Columns("Lab_Name").Caption = "工程设备" DataGrid1.Columns("Orter_Name").Caption = "供应商" End Sub 毕业设计源码:www.5156bs.com 无忧无虑毕设网(www.5156bs.com) 毕业设计源码:www.5156bs.com