rs.Close
End If
rs.Open str1, cn, 1, 3
If rs.EOF Then
MsgBox "不存在该设备"
Else
Text1.Text = rs("编号")
Text2.Text = rs("设备名称")
Text3.Text = rs("设备编号")
Text4.Text = rs("领用者")
Text5.Text = rs("领用数量")
Text6.Text = rs("领用部门")
Text7.Text = rs("领用日期")
End If
End Sub
Private Sub Command2_Click()
主界面.Show
cn.Close
Unload Me
End Sub
消耗查询:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
If cn.State = 1 Then
cn.Close
End If
cn.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\设备管理系统.mdb;" & "Persist Security Info=False"
cn.Open
End Sub
Private Sub command1_Click()
str1 = "select * from 设备消耗登记表 where 编号='" & Text1.Text & "'"
If rs.State = 1 Then
rs.Close
End If
rs.Open str1, cn, 1, 3
If rs.EOF Then
MsgBox "该设备不存在"
Else
Text1.Text = rs("编号")
Text2.Text = rs("设备名称")
Text3.Text = rs("设备编号")
Text4.Text = rs("设备数量")
Text5.Text = rs("登记人")
Text6.Text = rs("使用部门")
Text7.Text = rs("报废日期")
Text8.Text = rs("报废原因")
End If
End Sub
Private Sub Command2_Click()
主界面.Show
cn.Close
Unload Me
End Sub
基本信息报表:
Private Sub Command1_Click()
DataReport1.Show
DataReport1.LeftMargin = 0
DataReport1.RightMargin = 0
DataReport1.TopMargin = 0
DataReport1.BottomMargin = 0
DataReport1.ReportWidth = 纸张宽度 * 56.7
End Sub
Private Sub Command2_Click()
主界面.Show
Unload Me
End Sub
领用报表:
Private Sub Command1_Click()
DataReport2.Show
DataReport2.LeftMargin = 0
DataReport2.RightMargin = 0
DataReport2.TopMargin = 0
DataReport2.BottomMargin = 0
DataReport2.ReportWidth = 纸张宽度 * 56.7
End Sub
Private Sub Command2_Click()
主界面.Show
Unload Me
End Sub
消耗报表:
Private Sub Command1_Click()
DataReport3.Show
- 上一篇:《计算机网络》课程通用题库管理系统设计与实现
- 下一篇:C#公司考勤管理系统的设计实现+流程图+ER图
-
-
-
-
-
-
-
中考体育项目与体育教学合理结合的研究
酸性水汽提装置总汽提塔设计+CAD图纸
乳业同业并购式全产业链...
杂拟谷盗体内共生菌沃尔...
河岸冲刷和泥沙淤积的监测国内外研究现状
十二层带中心支撑钢结构...
java+mysql车辆管理系统的设计+源代码
大众媒体对公共政策制定的影响
电站锅炉暖风器设计任务书
当代大学生慈善意识研究+文献综述