银行系统管理系统

1、第一章 绪 论 1.1 管理信息系统概述管理信息系统（Management Information System，简称MIS）是一个以人为主导，利用计算机硬件、软件、网络通信设备以及其他办公设备，进行信息的收集、传输、加工、储存、更新和维护，以企业战略竞优、提高效益和效率为目的，支持企业的高层决策、中层控制、基层运作的集成化的人机系统。它具有如下特点：1）它是一个为管理决策服务的信息系统。2）它是一个对组织乃至整个供需链进行全面管理的综合系统。3）它是一个人机结合的系统。4）它是一个需要与先进的管理方法和手段相结合的信息系统。5）它是多科学交叉形成的边缘学科。1.2 课题背景目前银行设备管理系

2、统主要对银行的自助设备进行管理。随着中国银行信息化建设的深入，自助设备、自助银行已经成为开展个人金融业务不可替代的渠道。为了适应市场竞争和服务客户的需要，商业银行一般日益重视的自助渠道的建设，而大量自助设备投入市场后，自助业务的运营管理以及安全防范等方面面临许多迫切需要解决的问题，业务发展不断出现新的挑战。银行自助业务未来的运营效率、经营成本、管理水平和盈利能力，将直接决定银行核心竞争力的高低。随着银行卡的普及，很多地方安装了大量的存款机、取款机和POS机等银行自助设备。银行设备管理系统可以有效的记录银行设备的安装和使用情况，规范对自助设备的管理，从而为用户提供更加稳定和优质的服务。 本系统采

3、用目前比较流行的ADO数据访问技术，并将每个数据库表的字段和操作封装到类中，从而成功地将面向对象的程序设计思想应用到数据库应用程序设计中。第二章 需求分析 2.1 功能需求银行设备管理系统的用户是银行中负责自助设备管理和维护的技术人员，为了规范对自助设备的管理，为用户提供更加稳定和优质的服务。银行设备管理系统应实现以下功能：首先实现登录窗体，对用户的身份进行认证的功能。如果需要对普通用户进行管理，则使用Admin用户登录；否则建议使用Users用户登录。如果还要创建其他用户，可以在用户管理模块中创建和管理。本系统的实例包括设备类型管理、设备品牌管理、支行信息管理、设备维护信息管理、设备巡检信息

4、管理、设备移机管理和设备报废信息管理等主要功能，具体功能如下：1）设备类型信息的添加、修改、删除和查询。2）设备品牌信息的添加、修改、删除和查询。3）支行信息的添加、修改、删除和查询。4）设备维护信息的添加、修改、删除和查询。5）设备巡检信息的添加、修改、删除和查询。6）设备移机信息的添加、修改、删除和查询。7）设备报废信息的添加、修改、删除和查询，提交、审批、同意报废 申请等。 第一章 相关技术介绍 3.1 前台开发工具语言前台开发工具使用Visual Basic语言，Visual Basic是在Basic语言的基础上发展而来的，是在Windows环境中广泛使用的应用程序开发工具。Visua

5、l Basic功能强、效率高、易学习，无论是专业人员，还是非专业人员，都可以很容易地掌握Visual Basic。Visual Basic最大的两个特点是“可视化”和“事件驱动”，“可视化”是指开发图形用户界面的一种方法，用这种方法，程序员不用编写大量代码去描述界面元素的外观和位置，而只要把预先建立的界面元素用鼠标拖放到屏幕上的适当位置即可。“事件驱动”是指Windows应用程序的运行是通过事件来驱动的，用户或系统触发了某个事件，就执行程序员在此事件中编写的一个代码。3.2 数据库简介数据库，即数据的仓库，是存储在计算机内、有组织的、可共享的相关数据的集合。数据库中的数据按一定的数据模型组织、

6、描述和存储，具有较小的冗余度、较高的数据独立性和扩展性，并可为各种用户共享。本系统的后台数据库使用了SQL Server数据库，SQL语言包含查询、定义、操控和控制4个部分，是一种功能齐全的数据库语言。它的主要功能就是同各种数据库建立联系，进行沟通。SQL语言是一种优化过的语言，包括交互式语言和嵌入式语言，其中后者是嵌入其他语言之中使用的SQL语言。SQL语言的特点主要包括3点，即非过程化、统一性、公共性。3.3 ADO数据访问技术中间层采用ADO数据访问技术，将对数据库的操作以类的形式封装。它提供对各种数据库访问的标准接口。包括的主要对象有：连接对象Connection。连接时必须指定要连接

7、到的数据源以及连接所使用的用户名和口令等信息。 命令对象Command。可以通过已建立的连接发出命令，对数据源进行指定的操作。 记录集对象Recordset。查询命令可以将查询结果存储在本地，这些数据以“行”（记录）为单位，返回数据的集合被称为记录集。字段对象Field。一个记录集行包含一个或多个字段。如果将记录集看作二维网格，字段将排列起来构成列。每一字段（列）都分别包含有名称、数据类型和值的属性。第四章 系统模型构建 4.1 系统结构设计本系统是对银行设备进行管理，主要包括基本信息管理，设备运行管理和系统用户管理，主要实现设备各种信息的增、删、改、查。 图4-1 银行设备管理系统功能模块示

8、意图4.2 数据库设计根据银行各种自助设备的使用量，本系统采用了小型的SQL Serve数据库，数据库名称为Device(设备)Device数据库包含以下7个表：基本信息表BaseInfo、设备信息表Device、设备维护表Maintenance、设备巡查表Check、设备移机表Movement、设备报废表Discard、用户信息表Users。4.2.1 基本信息表BaseInfo基本信息表BaseInfo，用来保存设备分类、设备品牌和支行名称的信息。基本信息表BaseInfo包括: 设备分类InfoID、设备品牌InfoName和支行名称Typeld。表4-1 基本信息表字段名称数据类型字段

9、大小InfoIDint4InfoNamevarchar50Typeldtinyint14.2.2 设备信息表Device设备信息表Device,用来保存设备的基本信息。设备信息表Device包括：设备编号（DevNo）、设备分类编号(TypeID)、设备品牌编号(EnterpriseID)、设备型号(Model)、购买价格(Price)、设备布放地点(Place)、设备所属支行编号(BranchID)、设备开通时间(StartDate)、设备管理员(Administrator)、提交人(Poster)和设备状态(Status)。 表4-2 设备信息表字段名称数据类型字段大小DevNovarch

10、ar50TypeIDint4EnterpriseIDint4Modelvarchar50 Price int4Placevarchar50BranchIDint4StartDatedatatime8Administratorvarchar50Postervarchar50Statusvarchar204.2.3 设备维护表Maintenance设备维护表Maintenance，用来保存设备的维护信息。设备维护表Maintenance包括：记录编号（MnID）、设备编号(DevNo)、设备报修时间(ReporDate)、到达现场时间(ArriveDate)、故障解决时间(SolveDate)、故

11、障原因(Reason)、是否更换配件(ChangeAccessory)、更换配件的列表(AccessoryList)、维护人姓名(Engineer)、维护费用(Amount)、备注(Comment)。 表4-3 设备维护表字段名称数据类型字段大小MnIDint4DevNovarchar50ReporDatedatetime8ArriveDatedatetime8 SolveDatedatetime4Reasonvarchar200ChangeAccessorybit1AccessoryListvarchar200Engineervarchar50Amountfloat8Commentvarch

12、ar5004.2.4 设备巡检表Check设备巡检表Check,用来保存设备巡检的信息。设备巡检表Check包括：记录编号（CheckID）、设备编号(DevNo)、设备巡检时间(CheckDate)、设备巡检内容(Comment)、是否发现故障(FindError)、故障原因(Reason)、是否更换配件(ChangeAccessory)、更换配件的列表(AccessoryList)、维修费用(Amount)、巡检人员(CheckPeron)。 表4-4 设备巡检表字段名称数据类型字段大小CheckIDint4DevNovarchar50CheckDatedatetime8Commentva

13、rchar500 FindErrorbit1Reasonvarchar200ChangeAccessorybit1AccessoryListvarchar200Amountfloat8CheckPeronvarchar504.2.6 设备报废表Discard设备报废表Discard,用来保存设备的报废信息。设备报废表Discard包括：记录编号（DisID）、设备编号(DevNo)、折算金额(DisSum)、报废原因(Reason)、申请时间(CreateDate)、申请人(UserName)、审批人(Checker)、审批日期(CheckDate)、审批意见(Result)、状态(Statu

14、s)。 表4-5 设备报废表字段名称数据类型字段大小DisIDint4DevNovarchar50DisSumint4Reasonvarchar200 CreateDatedatetime8UserNamevarchar40Checkervarchar40CheckDatedatetime8Resultvarchar200Statusvarchar10 4.2.7 用户信息表Users 用户信息表Users，用来保存系统用户信息。 用户信息表Users包括：用户名（UserName）和密码(UserPwd)。 表4-6 用户信息表字段名称数据类型字段大小UserNamevarchar50Use

15、rPwdvarchar50第五章 系统实现 5.1 主要模块功能说明5.1.1 实现用户管理模块的功能在系统初始化时，首先打开登录窗体，输入用户名和密码，进入 主窗体。如图： 图5-1 身份认证 图5-2 主体框5.1.2 实现基本信息管理模块基本信息管理模块主要对设备的分类、设备的品牌、设备的支行信息进行管理。1）添加功能 图5-3 添加2）修改功能 图5-4 修改 3）删除功能 图5-5 删除4） 查找功能 图5-6 删除 5)显示 图5-7 显示5.1.3 实现设备运行管理模块设备运行管理主要是对设备信息管理、设备维护管理、设备巡检管理、设备移机管理、设备报废申请管理、设备报废审批管理。

16、1）实现设备信息管理的功能 图5-8 设备信息管理 点击添加命令按钮点击确定后，所添的设备信息会显示在设备管理实现修改或删除功能首先选定设备管理的信息，然后点击修改或 删除按钮，可对信息进行修改或删除，其它模块也有这几项功能。2）实现设备维护管理的功能 点击添加按钮可以编辑设备维护信息，之后单击确定按钮，则信息将 添加成功 图5-9 设备维护管理3）实现设备巡检管理的功能设备巡检信息编辑窗体和设备巡检信息管理窗体的布局分别如图： 图5-10 设备巡检管理5）实现设备报废申请的管理功能 设备报废信息编辑窗体和设备报废申请管理窗体的布局如下图所示：图5-11 设备报废编辑6）设备显示 图5-12

17、显示5.2 问题分析本系统在连接数据库时出现问题，其连接代码如下：Public Const Conn As String = "Provider=SQLOLEDB.1;Persist SecurityInfo=False;UserID=sa;Password=sa;InitialCatalog=Device;Data Source=localhost;" 其中Provider是数据提供者，User ID为用户名，Password为用户密码，Initial Catalog为数据库名称，Data Source为指定数据源所在的计算机地址。运行程序时，程序不能成功运行！原因是数据

18、源所在的计算机地址出现错误，应将Data Source=（local）。而且在数据库还原之后，代码中的用户名、用户密码、数据库名称应该和所填写的用户名、用户密码、数据库名称一致！本系统有以下几个功能模块，对窗体、模块和类模块进行管理。 1）Const 用来管理工程中的常量。2）DbFunc 用来管理工程中与数据库操作相关的声明、变量和函数。3）GeneralFunc 用来管理工程中一些通用的自定义函数。4）Variable 用来管理工程中的全局变量。第六章 总结与心得通过这段时间的课程设计，我体会颇多，学到很多东西。我懂得了如何在VB的框架下编写可视化界面的应用程序，怎样连接数据库和采用ADO

19、数据库访问技术，利用设计这次银行设备管理系统的机会，我加强了对VB不和数据库及ADO数据库访问技术的认识，复习了自己以前的知识，自己的逻辑思考能力也提高不少。并且将VB作为前台开发语言和SQL Server作为后台数据库进行结合，从而对VB和SQL Server又有了更深入的认识！在这次课程设计中，我还懂得了程序开发的一些比较重要的步骤，比如系统分析、尤其是数据库连接！这是最重要的一步，对于数据库的连接我并不是那么了解，那么它就将是我成功的关键。老天不会让我太过顺利，他在这最后的时刻设置的障碍，是要考验我的能力，他要置我于死地？在这个问题的解决上，我打了退堂鼓，我不能忍受长时间的无功而反，时间

20、正在消磨我的意志。没有了柳暗花明的一天，那么我怎么能说经受住了考验？谢谢老师的那句话，她说：人力有所不能及，然而，人的精神是不会败倒的。我鼓起勇气，到处问，到处查资料，黄天不负有心人，在图书馆借的一本书上，我了解了连接数据库的一点知识。不得不说这是精神的胜利，是永不言败的精神让我的系统重见天日。但是此系统还有待改进，例如：在用户管理模块中，可以设计的更简单！课程设计是培养学生综合运用所学知识,发现,提出,分析和解决实际问题,锻炼实践能力的重要环节,是对学生实际工作能力的具体训练和考察过程.随着科学技术发展的日新日异，当今计算机应用在生活中可以说得是无处不在。因此作为二十一世纪的大学来说掌握计算

21、机开发技术是十分重要的。回顾起此次课程设计，至今我仍感慨颇多，的确，自从学习的整个过程，从理论到实践，在整整三周多的日子里，可以学到很多很多的东西，同时不仅可以巩固了以前所学过的知识，而且学到了很多在书本上所没有学到过的知识。通过这次课程设计使我懂得了理论与实际相结合是很重要的，只有理论知识是远远不够的，只有把所学的理论知识与实践相结合起来，从理论中得出结论，才能真正为社会服务，从而提高自己的实际动手能力和独立思考的能力。在设计的过程中遇到问题，这毕竟独立做的，难免会遇到过各种各样的问题，同时在设计的过程中发现了自己的不足之处，对以前所学过的知识理解得不够深刻，掌握得不够牢固，通过这次课程设计

22、之后，一定把以前所学过的知识重新温故。这次课程设计终于顺利完成了，在设计中遇到了很多问题，最后在老师的辛勤指导下，终于游逆而解。同时，在老师的身上我学得到很多实用的知识，在次我表示感谢！同时，对给过我帮助的所有同学和各位指导老师再次表示忠心的感谢！附 录1. 源代码：登入Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox2.Text = "1" And

23、TextBox1.Text = "1" Then Dim a As New Form11 a.Show() Me.Hide() Else MsgBox("对不起，你不是本系统用户！", vbOKOnly, "输入") End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End SubEnd Class主体框Public C

24、lass Form11 Private Sub 进入ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 进入ToolStripMenuItem.Click Dim f As New Form4 f.Show() End Sub Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMen

25、uItem.Click Me.Close() End Sub Private Sub 进入ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 进入ToolStripMenuItem1.Click Dim f As New Form7 f.Show() End Sub Private Sub 设备维护管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArg

26、s) Handles 设备维护管理ToolStripMenuItem.Click Dim f As New Form9 f.Show() End Sub Private Sub 设备巡查管理ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 设备巡查管理ToolStripMenuItem.Click Dim a As New Form13 a.Show() End Sub Private Sub 设备报废管理ToolStripMenuItem_Click(ByVa

27、l sender As System.Object, ByVal e As System.EventArgs) Handles 设备报废管理ToolStripMenuItem.Click Dim a As New Form15 a.Show() End SubEnd Class信息管理Public Class Form4 Private Sub 添加ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加ToolStripMenuItem.Click Dim f

28、As New Form2 f.Show() End Sub Private Sub 修改ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改ToolStripMenuItem.Click Dim f As New Form5 f.Show() End Sub Private Sub 删除ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Hand

29、les 删除ToolStripMenuItem.Click Dim f As New Form5 f.Show() End Sub Private Sub 查找ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查找ToolStripMenuItem.Click Dim f As New Form3 f.Show() End Sub Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Objec

30、t, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click Me.Close() End Sub End Class基本信息的添加、修改、查找、删除添加Imports System.DataImports System.Data.SqlClientPublic Class Form2 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim strconn A

31、s String = "data source=toshiba-PC;initial catalog= device;"& "integrated security= true;" Dim conn As New SqlConnection(strconn) Dim strdel As String = "insert in to baseinfo (infold,infoname,typeld)VALUES('" + TextBox1.Text + "','" + TextBox2

32、.Text + "','" + TextBox3.Text + "')" Dim comm As New SqlCommand(strdel, conn) conn.Open() comm.ExecuteScalar() conn.Close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End SubEnd Class修

33、改Imports System.DataImports System.Data.SqlClientPublic Class Form5 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Cli

34、ck Dim strconn As String = "data source=toshiba-PC;initial catalog= device;" & "integrated security= true;" Dim conn As New SqlClient.SqlConnection(strconn) Dim strdel As String = "UPDATE baseinfo (infoid,infoname,typeld)VALUES('" + TextBox1.Text + "',&

35、#39;" + TextBox2.Text + "','" + TextBox3.Text + "')" Dim comm As New SqlClient.SqlCommand(strdel, conn) conn.Open() If (comm.ExecuteNonQuery() Then MsgBox("信息已修改，请继续操作！") Else MsgBox("不存在该记录！") End If conn.Close() End SubEnd ClassImports Syste

36、m.DataImports System.Data.SqlClientPublic Class Form6 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub删除 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim strco

37、nn As String = "data source=toshiba-PC;initial catalog= device;" & "integrated security= true;" Dim conn As New SqlConnection(strconn) Dim strdel As String = "delete from baseinfo (infoid,infoname,typeld) where id='" & Trim(TextBox1.Text) & "'&q

38、uot; Dim comm As New SqlClient.SqlCommand(strdel, conn) conn.open() If (comm.ExecuteNonQuery() Then MsgBox("记录已删除！") Else MsgBox("不存在该记录！") End If End SubEnd Class查找Imports System.DataImports System.Data.SqlClientPublic Class Form3 Private Sub Button1_Click(ByVal sender As System

39、.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim strconn As String = "data source=toshiba-PC;initial catalog= device;" & "integrated security= true;" Dim conn As New SqlClient.SqlConnection(strconn) Dim strsel As String = "select * from baseinfo where id=

40、'" & TextBox1.Text & "'" Dim comm As New SqlCommand(strsel, conn) Dim da As SqlDataAdapter = New SqlDataAdapter da.SelectCommand = comm Dim ds As DataSet = New DataSet conn.Open() da.Fill(ds, "stu") DataGrid1.DataSource = ds.Tables("stu") conn.Close

41、() End SubEnd Class设备运行管理设备信息管理Imports System.DataImports System.Data.SqlClientPublic Class Form7 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim strconn As String = "data source=toshiba-PC;initial catalog= device;" & &quo

42、t;integrated security= true;" Dim conn As New SqlConnection(strconn) Dim strdel As String = "insert in to Device (DevNo,TypeID,EnterpriseID,Model,Price,Place,BranchID,StartDate,Administrator, Poster,Status)VALUES('" + TextBox1.Text + "','" + TextBox2.Text + "

43、;','" + TextBox3.Text + "','" + TextBox4.Text + "','" + TextBox5.Text + "','" + TextBox6.Text + "','"ComboBox1+"','"ComboBox1+"','"ComboBox1+"','"ComboBox1+"

44、;')" Dim comm As New SqlCommand(strdel, conn) conn.Open() comm.ExecuteScalar() conn.Close() End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim strconn As String = "data source=toshiba-PC;initial catalog= device;"

45、 & "integrated security= true;" Dim conn As New SqlClient.SqlConnection(strconn) Dim strdel As String = "UPDATE Device (DevNo,TypeID,EnterpriseID,Model,Price,Place,BranchID,StartDate,Administrator, Poster,Status)VALUES('" + TextBox1.Text + "','" + TextBo

46、x2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "','" + TextBox5.Text + "','" + TextBox6.Text + "','"ComboBox1+"','"ComboBox1+"','"ComboBox1+"','"

47、ComboBox1+"')" Dim comm As New SqlClient.SqlCommand(strdel, conn) conn.Open() If (comm.ExecuteNonQuery() Then MsgBox("信息已修改，请继续操作！") Else MsgBox("不存在该记录！") End If conn.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventAr

48、gs) Handles Button1.Click Dim strconn As String = "data source=toshiba-PC;initial catalog= device;" & "integrated security= true;" Dim conn As New SqlClient.SqlConnection(strconn) Dim strsel As String = "select * from Device where id= '" & TextBox1.Text &

49、; "'" Dim comm As New SqlCommand(strsel, conn) Dim da As SqlDataAdapter = New SqlDataAdapter da.SelectCommand = comm Dim ds As DataSet = New DataSet conn.Open() da.Fill(ds, "stu") DataGrid1.DataSource = ds.Tables("stu") conn.Close() End Sub Private Sub Button5_Click

50、(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click Dim strconn As String = "data source=toshiba-PC;initial catalog= device;" & "integrated security= true;" Dim conn As New SqlConnection(strconn) Dim strdel As String = "insert in to Device

51、(DevNo,TypeID,EnterpriseID,Model,Price,Place,BranchID,StartDate,Administrator, Poster,Status) where id='" & Trim(TextBox1.Text) & "'" Dim comm As New SqlClient.SqlCommand(strdel, conn) conn.Open() If (comm.ExecuteNonQuery() Then MsgBox("记录已删除！") Else MsgBox(&

52、quot;不存在该记录！") End If End Sub Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click Me.Close() End SubEnd Class设备维护管理Imports System.DataImports System.Data.SqlClientPublic Class Form9 Private Sub Button2_Click(ByVal sender As System.Object,

53、ByVal e As System.EventArgs) Handles Button2.Click Dim strconn As String = "data source=toshiba-PC;initial catalog= device;" & "integrated security= true;" Dim conn As New SqlConnection(strconn) Dim strdel As String = "insert in to Maintenance (MnID,DevNo,ReporDate,Arriv

54、eDate,SolveDate,Reason,ChangeAccessory,AccessoryList,Engineer,Amount,Comment)VALUES('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "')" Dim comm As New SqlCommand(strdel, conn) conn.Open() comm.ExecuteScalar() conn.Clos

55、e() End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim strconn As String = "data source=toshiba-PC;initial catalog= device;" & "integrated security= true;" Dim conn As New SqlClient.SqlConnection(strconn) Dim strdel As String = "UPDATE Maintenance (MnID,DevNo,ReporDate,ArriveDate,SolveDate,Reason,ChangeAccessory,AccessoryList,Engineer,Amount,Comment)VALUES('" + TextBox1.Text + "','"