OA办公自动化系统结构化分析与设 - 图文

3概要设计说明书 4.详细设计说明书 5．代码界面设计

1.7其他可供选择的方案 1.8结论意见 3.1引言 3.2总体设计 3.3接口设计 4.1引言 4.2程序系统的结构 4.3程序1（系统账户管理）设计说明 4.4程序2（实验室设备信息管理）设计说明 4.5程序3（系统数据管理）设计说明 条目为麻萍叶编写） 汪励雯 麻萍叶 麻萍叶 汪励雯 第 33 页 共 37 页

附录

一． 管理员登录代码

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim sqlstr As String = \管理员表\

Dim com As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, SqlConnection1) Dim flag As Boolean SqlConnection1.Open()

Dim r As SqlClient.SqlDataReader = com.ExecuteReader While r.Read

If TextBox1.Text = r(\登录账号\) And TextBox2.Text = r(\密码\) Then flag = True End If End While

SqlConnection1.Close() If Not flag Then

MessageBox.Show(\您输入的管理员账号或密码有误，请重新登录！\) Else

Dim f As 管理员操作界面 f = New 管理员操作界面 f.Show() End If

End Sub

二． 设备更新界面

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

SqlCommand1.Connection = SqlConnection1 Dim updatastring As String Dim updatastring1 As String Dim updatastring2 As String Dim updatastring3 As String Dim updatastring4 As String Dim updatastring5 As String Dim updatastring6 As String Dim updatastring7 As String Dim updatastring8 As String Dim updatastring9 As String SqlConnection1.Open()

updatastring = \设备信息表 set 设备名='\ & TextBox1.Text & \设备编号='\ & TextBox12.Text & \

第 34 页 共 37 页

SqlCommand1.CommandType = CommandType.Text SqlCommand1.CommandText = updatastring SqlCommand1.ExecuteNonQuery()

updatastring1 = \设备信息表set 设备类别='\ & TextBox2.Text & \设备编号='\ & TextBox12.Text & \

SqlCommand1.CommandType = CommandType.Text SqlCommand1.CommandText = updatastring1 SqlCommand1.ExecuteNonQuery()

updatastring2 = \设备信息表set 设备数量='\ & TextBox3.Text & \设备编号='\ & TextBox12.Text & \

SqlCommand1.CommandType = CommandType.Text SqlCommand1.CommandText = updatastring2 SqlCommand1.ExecuteNonQuery()

updatastring3 = \设备信息表 set 购买人='\ & TextBox4.Text & \设备编号='\ & TextBox12.Text & \

SqlCommand1.CommandType = CommandType.Text SqlCommand1.CommandText = updatastring3 SqlCommand1.ExecuteNonQuery()

updatastring4 = \设备信息表 set 设备单价='\ & TextBox5.Text & \设备编号='\ & TextBox12.Text & \

SqlCommand1.CommandType = CommandType.Text SqlCommand1.CommandText = updatastring4 SqlCommand1.ExecuteNonQuery()

updatastring5 = \设备信息表 set 购置日期='\ & TextBox6.Text & \设备编号='\ & TextBox12.Text & \

SqlCommand1.CommandType = CommandType.Text SqlCommand1.CommandText = updatastring5 SqlCommand1.ExecuteNonQuery()

updatastring6 = \设备信息表 set 设备型号='\ & TextBox7.Text & \编号='\ & TextBox12.Text & \

SqlCommand1.CommandType = CommandType.Text SqlCommand1.CommandText = updatastring6 SqlCommand1.ExecuteNonQuery()

updatastring7 = \设备信息表 set 设备规格='\ & TextBox9.Text & \设备编号='\ & TextBox12.Text & \

SqlCommand1.CommandType = CommandType.Text SqlCommand1.CommandText = updatastring7 SqlCommand1.ExecuteNonQuery()

updatastring8 = \设备信息表 set 生产厂家='\ & TextBox8.Text & \设备编号='\ & TextBox12.Text & \

SqlCommand1.CommandType = CommandType.Text SqlCommand1.CommandText = updatastring8 SqlCommand1.ExecuteNonQuery() MessageBox.Show(\更新成功！\)

第 35 页 共 37 页

SqlConnection1.Close() End Sub

三． 所有设备查询代码

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

DataSet91.Clear()

SqlDataAdapter1.Fill(DataSet91, \设备信息表\) DataGrid1.SetDataBinding(DataSet91, \设备信息表\)

Dim dv As DataView = New DataView(DataSet91.Tables(\设备信息表\)) DataGrid1.SetDataBinding(dv, \) End Sub End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

四． 设备报废处理代码

DataSet11.Clear()

SqlDataAdapter1.Fill(DataSet11, \报废信息统计表\) DataGrid2.SetDataBinding(DataSet11, \报废信息统计表\)

Dim dv As DataView = New DataView(DataSet11.Tables(\报废信息统计表\)) If ComboBox1.SelectedItem = \设备编号\ Then Dim t As String = TextBox1.Text Dim t1 As String = \ Dim t2 As String = \

dv.RowFilter = \设备编号=\ & t1 & t & t2 End If

If ComboBox1.SelectedItem = \报废数量\ Then Dim t As String = TextBox1.Text Dim t1 As String = \ Dim t2 As String = \

dv.RowFilter = \报废数量=\ & t1 & t & t2 End If

If ComboBox1.SelectedItem = \报废处理人\ Then Dim t As String = TextBox1.Text Dim t1 As String = \ Dim t2 As String = \

dv.RowFilter = \报废处理人=\ & t1 & t & t2 End If

If ComboBox1.SelectedItem = \处理日期\ Then

Dim t As String = TextBox1.Text Dim t1 As String = \ Dim t2 As String = \

dv.RowFilter = \处理日期=\ & t1 & t & t2

第 36 页 共 37 页

End If

If ComboBox1.SelectedItem = \报废原因\ Then

Dim t As String = TextBox1.Text Dim t1 As String = \ Dim t2 As String = \

dv.RowFilter = \报废原因=\ & t1 & t & t2 End If

DataGrid2.SetDataBinding(dv, \) End Sub

五． 设备修理及购买代码

类似代码四略

第 37 页 共 37 页