商场管理系统的设计与实现

1、摘 要商场管理系统是典型的管理信息系统(MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备，易使用等特点。经过分析，我们使用 MICROSOFT公司的 VB.NET开发工具作前端的应用开发工具，利用其提供的各种面向对象的开发工具，尤其是数据窗口这能方便而简洁操纵数据库的智能化对象，利用作为 后台的数据库，WINXP作为系统。首先，在短时间内建立系统应用原型，然后，对初始原型系统进行需求迭代，不断修正和改进，直到形成用户满意的可行系统。关键词：管理信息系统，商场管理，对象Abst

2、ractThe administrative system of the market is the typical the management information system (MIS), it develops two respects of main development including setting-up and maintenance and front application program of backstage supporter's database . Demand to set up the consistency of the data and

3、 integrality the storehouse of strong , data with good security to the former. Require to the latter the function of the application program is complete , apt characteristic of using etc. . Through analyzing,we use VB. NET of MICROSOFT Company developing instrument makes the application developing i

4、nstruments of the front, utilizes its various kinds of target -oriented developing instruments offered, data window this can convenient succinct to handle intelligent target of the database especially, utilize SQL as database of backstage supporter , as the system WINXP. First of all, set up the app

5、lied prototype of the system within short time, then, go on demand change and take the place of to initial prototype system , revise and improve constantly, until forming the feasible system that users are satisfied with.Keyword: The management information system, the market manages, the object目 录摘

6、要 1目 录 2引 言 3第2章 课题发展进程和最新动向(综述)2.1 课题来源 2.3 当前同类系统存在的问题及解决办法 2.4 本课题要达到的目标 第3章 设计方案或方案论证 3.1研究设计中要解决的问题 3.2具体实现中采用的关键技术及复杂性分析 第4章 系统设计4.1系统结构、站点结构设计 4.2模块划分 4.3数据库结构的设计 4.3.1 数据库需求分析 4.3.2 数据库概念结构设计 4.3.3 数据库逻辑结构设计 4.3.4 数据库结构的实现 第5章 系统的实现5.1 开发环境及工具 5.1.1软硬件环境 5.1.2开发工具 5.2 模块说明及程序流程设计 5.2.1模块说明 5

7、.2.2流程设计 5.3 关键技术（代码）分析 5.3.1商场管理信息系统主窗体的创建 5.3.2商品管理信息模块的代码 5.3.3商品类型信息模块的代码 5.3.4销量查询信息模块代码 5.3.5任命人事信息代码 5.3.6商场客户端主窗体的创建 5.3.7商场客户端登录窗体的创建 第 6 章 系统运行效果（系统测试）6.1 系统运行效果 6.2 自我总体评价 6.3 测试结果 6.4 改进意见 参考文献 致谢 第1章 前言计算机技术、网络技术、多媒体技术的成熟与发展，为商场管理自动化提供了强有力的技术支持企业的物资供应管理往往是很复杂，繁琐的。由于掌握的物资种类众多，订货，管理，发放的渠道

8、各有差异，各个企业之间的管理体制不尽相同。各类统计计划报表繁多，因此商场管理必须实现计算机化，而且必须根据企业的具体情况制定相应的方案以便提高工作效率,所以我选择这个题目做一定的研究并最终实现。商场管理涉及到大量的信息处理,如商品信息,查询信息，购买信息等，商品的流动是否合理，是否畅通，对企业的生产经营活动有着直接影响，商品管理水平的高低直接影响着企业的成本，如今的商场作业和商场控制作业已多样化，复杂化，靠人工去记忆去处理十分困难，如果不能正确的进货,验收,质量保证及销售,就会导致浪费时间,产生库存,延迟销售增加成本,以至失去为客户服务的机会,为了解决上问题,开发一个智能的商场管理系统显得十分

9、必要,本文将以一个典型的商场管理系统为例，讲述如何实现商场管理系统。开发本系统的目的是对自己的四年学习计算机技术的一种总结，通过对本系统的开发使自己所掌握的计算机技术更加的牢固。本论文包括系统设计、数据库设计、数据库结构的设计以及系统的实现。自己在本系统中的设计中担任主体设计工作，在指导老师谢旭升的指导下，在同学王丽娜和朱凌的帮助下设计出该系统。第2章 课题发展进程和最新动向（综述）2.1课题来源和朋友逛街，一开始对商品序号直接扫描在电脑上进行结算挺好奇的，加上自己也学了数据库之方面的知识，正好在这个时候自己要写毕业论文，所以就以这个商场管理信息系统做为自己毕业论文的题目。2.2用户的需求分析

10、用户的需求分析主要是商品信息包括类型的增加、删除，修改，及管理员对商品的查询。2.3当前同类系统存在的问题及解决办法当前同类系统存在的问题还不是很完善，在某些功能还必须借助于人工手段，各个企业还不能通过网络共享数据库。解决办法是开发一个智能商场管理系统，使得系统更加方便用户简单操作。2.4本课题要达到的目标本课题要达到的目标是要设计一个商场管理信息系统，实现商品基本信息的查询、商品出售找零、商品管理和类型管理等功能。第3章 设计方案或方案论证3.1研究设计中要解决的问题设计中要解决的问题是需求分析、可行性研究、软件概要设计、软件详细设计、软件编码、软件测试以及软件维护。3.2具体实现中采用的关

11、键技术及复杂性分析具体实现中采用的关键技术是数据库原理、软件工程等技术。第四章 系统设计4.1系统结构、站点结构设计不同的商场对商场管理的流程和要求不尽相同。一般而言，商场管理系统需要具备以下功能：商场管理端：l 资源管理：主要包括商品管理、商品类型、退出系统。商品管理用来对商品的增加、删除、修改。商品类型用来对商品类型的增加、删除。l 查询信息：主要用于对商品的销量查询。l 人事管理：主要用于对商场人员的添加、删除。商场客户端：主要是收银员对商品销售的收钱、找零等。4.2模块划分根据系统功能分析和物资仓库的管理特点，经过模块下的分析得到如下图所示商场管理系统功能模块结构图:.4.3数据库结构

12、的设计设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能需要增加的需求。数据库设计一般包括如下几个步骤：l 数据库需要分析。l 数据库概念结构设计。l 数据库逻辑结构设计。4.3.1数据库需求分析根据系统功能和数据流图，可以确定以下数据项和数据结构：l 商品信息：商品编号、商品名称、商品类型编号、商品价格、商品折扣、商品折扣等。l 部门信息：部门编号、部门名称等。l 员工级别信息：员工级别、员工级别备注等。l 员工信息：员工编号、员工姓名、员工级别、员工所在部门编号、员工是否在职、员工密码等。l 销售信息：商品编号、商品数量、商品价格、销售日期及时间、收银员编号、货单编

13、号等。l 商品类型信息：商品类型编号、商品名称等。4.3.2数据库概念结构设计根据上面的分析得到如下图所示的实体E-R图：实体之间关系E-R图如下图所示。04.3.3数据库逻辑结构设计：根据要求商场管理系统需要建立6个数据，包括：货物信息、部门信息、员工级别信息、员工信息、销售信息、商品类型信息。数据表结构如表4.1至4.6所示：表4.1 商品信息表字段名 数据类型 是否可空 说明SN CHAR(15) NOT NULL 商品编号NAME CHAR(20) NOT NULL 商品名称TYPE_ID SMALLINT(2) NOT NULL 商品类型编号PRICE INT(4) YES 商品价格

14、DISCOUNT TINYINT(1) YES 商品折扣MEMORY CHAR(30) YES 商品折扣表4.2 部门信息表 字段名 数据类型 是否可空 说明ID CHAR(1) NOT NULL 部门编号DEPARTMENT CHAR(10) NOT NULL 部门名称表4.3 员工级别信息表字段名 数据类型 是否可空 说明CLASS CHAR（！） NOT NULL 员工级别MEMORY CHAR（10） YES 员工级别备注表4.4 员工信息表字段名 数据类型 是否可空 说明ID CHAR（9） NOT NULL 员工编号NAME CHAR（8） NOT NULL 员工姓名CLASS_I

15、D CHAR（1） NOT NULL 员工级别DEPARTMENT CHAR(1) NOT NULL 员工所在部门编号EXIST BIT(1) YES 员工是否在职PASSWORD CHAR(6) YES 员工密码表4.5 销售信息表字段名 数据类型 是否可空 说明SN INT(4) NOT NULL 商品编号NUMBER SMALLINT(2) NOT NULL 商品数量PRICE MONEY(8) NOT NULL 商品价格DATAS DATETIME(8) NOT NULL 销售日期TIMES DATETIME(8) NOT NULL 销售时间SALERS_ID CHAR(4) NOT

16、NULL 收银员编号SERIAL_NO DHAR(4) NOT NULL 货单编号表4.6 商品类型信息表字段名 数据类型 是否可空 说明TYPE_ID SMALLINT(2) NOT NULL 商品类型编号TNAME CHAR(10) NOT NULL 商品名称4.3.4数据库结构的实现1创建商品信息表 CREATE TABLE GOODS (SN char (15) COLLATE Chinese_PRC_CI_AS NOT NULL ,NAME char (20) COLLATE Chinese_PRC_CI_AS NOT NULL ,TYPE_id smallint NOT NULL

17、,PRICE int NULL ,DISCOUNT tinyint NULL ,MEMORY char (30) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY2创建部门信息表 CREATE TABLE DEPARTMENT (ID char (1) COLLATE Chinese_PRC_CI_AS NOT NULL ,department char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ) ON PRIMARY3创建员工级别信息表 CREATE TABLE CLASSDESCRIPTION (class ch

18、ar (1) COLLATE Chinese_PRC_CI_AS NOT NULL ,memory char (20) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY4创建员工信息表 CREATE TABLE OPERATOR (ID char (4) COLLATE Chinese_PRC_CI_AS NOT NULL ,NAME char (8) COLLATE Chinese_PRC_CI_AS NOT NULL ,CLASS_ID char (1) COLLATE Chinese_PRC_CI_AS NOT NULL ,DEPARTMENT ch

19、ar (1) COLLATE Chinese_PRC_CI_AS NOT NULL ,EXIST bit NULL ,PASSWORD char (6) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY5 .创建销售信息表 CREATE TABLE SALES (SN int NOT NULL ,NUMBER smallint NOT NULL ,price money NOT NULL ,datas datetime NOT NULL ,times datetime NOT NULL ,salers_id char (4) COLLATE Chinese

20、_PRC_CI_AS NOT NULL ,serial_no int NOT NULL ) ON PRIMARY6创建商品类型信息表CREATE TABLE TYPE (type_id smallint NOT NULL ,Tname char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ) ON PRIMARY第5章 系统实现5.1 开发环境及工具5.1.1软硬件环境软件环境：兼容当前主流操作系统 Windows 95/98/NT/Me/2000/XP 等。硬件环境：586以上计算机，打印机、扫描仪等。5.1.2开发工具前台开发环境：Microsoft V

21、isual B后台数据库环境：SQL Server 2000用Microsoft Visual B作前台，用SQL Server 2000作后台开发商场管理系统从而使系统更加完善。5.2 模块说明及程序流程设计5.2.1 模块说明商场管理信息系统包括的模块有：1 源管理模块，用于商品管理和类型管理。2 查询管理模块，用于对商品销量查询。3 人事管理模块，用于对商场人员的管理。4 商品销售管理模块，用于对商品的出售和找零。5.2.2流程设计仔细分析调查有关商场管理信息需求的基础上，将得到如下图所示的本系统所处理的数据流程: 5.3 5.3关键技术（代码）分析5.3.1商场管理信息系统主窗体的创建

22、上面的SQL语句在SQL Server 2000 中的查询分析器的执行，将自动产生需要的所有的表格。有关数据库结构的所有的后台工作已经完成。现在将实现商场管理信息系统中各个功能模块。商场管理端主窗体的创建：主窗体的构架及所需控件属性设置控件 属性 属性取值Name Form1Form Text Apple商场管理端StartPosition WindowsDefaultLocationWindowsState Normal创建好的窗体如下图所示：商场管理端主窗体的菜单格式如下： 创建公用模块：在Visual Basic.Net中可以用公用模块来存放整个系统的公用的函数、过程和全局变量等，这样可

23、以提高代码的效率。增加的公用模块的代码如下：Module _publicPublic company As StringFunction checksum(ByVal string1) As BooleanDim i As Integerchecksum = Falsei = 0For i = 1 To Len(string1)If Mid(string1, i, 1) > "0" And Mid(string1, i, 1) < "9" Or Mid(string1, i, 1) = "." Thenchecksum =

24、 TrueEnd IfNextEnd FunctionEnd Module5.3.2商品管理信息模块的代码如下：Public Class Form2Inherits System.Windows.Forms.FormDim reader1 As SqlClient.SqlDataReaderPrivate Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadSqlDataAdapter2.Fill(DataSet11)SqlDataAdapter3.Fill(

25、DataSet11)DataGrid1.RowHeadersVisible = FalseSqlConnection1.Close()ComboBox1.SelectedIndex = 0End SubPrivate Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPressIf e.KeyChar = Chr(13) ThenSqlConnection1.Close()SqlConnection1.Open(

26、)SqlCommand1.CommandText = "select * from good where 产品号='" & Trim(TextBox1.Text) & "'"reader1 = SqlCommand1.ExecuteReader(CommandBehavior.CloseConnection)If reader1.Read ThenTextBox2.Text = reader1.GetString(1)ComboBox1.Text = reader1.GetString(3)Dim l, j As Inte

27、gerl = reader1.GetInt32(2) 100j = reader1.GetInt32(2) Mod 100If j > 9 ThenTextBox3.Text = Str(l) & "." & Trim(Str(j)ElseTextBox3.Text = Str(l) & ".0" & Trim(Str(j)End IfTryTextBox4.Text = reader1.GetString(4)CatchTextBox4.Text = ""End TryElseTextBox2.

28、Text = ""TextBox2.Focus()TextBox3.Text = ""TextBox4.Text = ""End IfEnd IfEnd SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickSqlConnection1.Close()SqlConnection1.Open()SqlCommand1.CommandText = "delete f

29、rom goods where sn='" & Trim(TextBox1.Text) & "'"SqlCommand1.ExecuteNonQuery()DataSet11.GOOD.Clear()SqlDataAdapter2.Fill(DataSet11)DataGrid1.Refresh()TextBox1.Text = ""TextBox2.Text = ""TextBox3.Text = ""TextBox4.Text = ""End Sub

30、Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickSqlConnection1.Close()SqlConnection1.Open()If Trim(TextBox1.Text) = "" Or Trim(TextBox2.Text) = "" Or Trim(TextBox3.Text) = "" ThenMsgBox("有记录为空")Exit Su

31、bEnd IfIf Not checksum(TextBox3.Text) ThenTextBox3.Text = ""Exit SubEnd IfSqlCommand1.CommandText = "select * from goods where sn='" & Trim(TextBox1.Text) & "'"reader1 = SqlCommand1.ExecuteReader(CommandBehavior.CloseConnection)If reader1.Read ThenMsgBox

32、("商品已存在")Exit SubEnd IfSqlConnection1.Close()SqlConnection1.Open()SqlCommand1.CommandText = "insert into goods values('" & Trim(TextBox1.Text) & "','" & Trim(TextBox2.Text) & "'," & _(ComboBox1.SelectedValue) & ",&q

33、uot; & Val(TextBox3.Text) * 100 & "," & "NULL" & ",'" & TextBox4.Text & "')"SqlCommand1.ExecuteNonQuery()DataSet11.GOOD.Clear()SqlDataAdapter2.Fill(DataSet11)DataGrid1.Refresh()TextBox1.Text = ""TextBox2.Text = "&

34、quot;TextBox3.Text = ""TextBox4.Text = ""End SubPrivate Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.ClickMe.Close()End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickS

35、qlConnection1.Close()SqlConnection1.Open()If Trim(TextBox1.Text) = "" Or Trim(TextBox2.Text) = "" Or Trim(TextBox3.Text) = "" ThenMsgBox("有记录为空")Exit SubEnd IfIf Not checksum(TextBox3.Text) ThenTextBox3.Text = ""Exit SubEnd IfSqlCommand1.CommandText

36、= "delete from goods where sn='" & Trim(TextBox1.Text) & "'"SqlCommand1.ExecuteNonQuery()SqlCommand1.CommandText = "insert into goods values('" & Trim(TextBox1.Text) & "','" & Trim(TextBox2.Text) & "',"

37、 & _(ComboBox1.SelectedValue) & "," & Val(TextBox3.Text) * 100 & "," & "NULL" & ",'" & TextBox4.Text & "')"SqlCommand1.ExecuteNonQuery()DataSet11.GOOD.Clear()SqlDataAdapter2.Fill(DataSet11)DataGrid1.Refresh()En

38、d SubPrivate Sub DataGrid1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGrid1.MouseDownTextBox1.Text = DataGrid1.CurrentRowIndexEnd SubEnd Class5.3.3商品类型信息模块的代码如下：Public Class TYPEInherits System.Windows.Forms.FormDim reader1 As SqlClient.SqlDataReade

39、rPrivate Sub TYPE_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadSqlDataAdapter1.Fill(DataSet11)End SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickMe.Close()End SubPrivate Sub TextBox1_KeyPress(ByVal

40、sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPressIf e.KeyChar = Chr(13) ThenListBox1.SelectedIndex = Val(TextBox1.Text)End IfEnd SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickIf Trim(TextBox1

41、.Text) <> "" ThenDim i As Integer = 0Dim string1 As StringSqlConnection1.Close()SqlConnection1.Open()SqlCommand1.CommandText = "select * from type"reader1 = SqlCommand1.ExecuteReader(CommandBehavior.CloseConnection)While reader1.Readi = reader1.GetInt16(0)If Trim(reader1.Ge

42、tString(1) = Trim(TextBox1.Text) ThenMsgBox("该品种已存在")Exit SubEnd IfEnd Whilei += 1SqlConnection1.Close()SqlConnection1.Open()SqlCommand1.CommandText = "insert into type values(" & i & ",'" & Trim(TextBox1.Text) & "')"SqlCommand1.Execute

43、NonQuery()DataSet11.Clear()SqlDataAdapter1.Fill(DataSet11)ListBox1.Refresh()End IfEnd SubPrivate Sub ListBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListBox1.MouseDownTextBox1.Text = ListBox1.SelectedValueEnd SubPrivate Sub Button2_Click(ByVal sende

44、r As System.Object, ByVal e As System.EventArgs) Handles Button2.ClickIf MsgBox("是否删除类型" & TextBox1.Text, 1) = 1 ThenSqlConnection1.Close()SqlConnection1.Open()SqlCommand1.CommandText = "delete from type where tname='" & Trim(TextBox1.Text) & "'"SqlC

45、ommand1.ExecuteNonQuery()DataSet11.Clear()SqlDataAdapter1.Fill(DataSet11)ListBox1.Refresh()TextBox1.Text = " "End IfEnd SubEnd Class5.3.4销量查询信息模块代码如下：Public Class salesInherits System.Windows.Forms.FormPrivate Sub sales_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handl

46、es MyBase.LoadSqlDataAdapter1.Fill(DataSet11)SqlDataAdapter3.Fill(DataSet11)End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.ClickDim string1, string2, string3, string4 As StringSqlConnection1.Close()SqlConnection1.Open()If TextBox1.Text =

47、"" Thenstring1 = "%"Elsestring1 = TextBox1.TextEnd IfIf CheckBox1.Checked = True Thenstring2 = ComboBox1.TextElsestring2 = "%"End IfIf CheckBox2.Checked = True Thenstring3 = ComboBox2.TextElsestring3 = "%"End IfSqlDataAdapter2.SelectCommand.Parameters("pa

48、ram1").Value = string1SqlDataAdapter2.SelectCommand.Parameters("param2").Value = string2SqlDataAdapter2.SelectCommand.Parameters("param3").Value = string3SqlDataAdapter2.SelectCommand.Parameters("param4").Value = DateTimePicker1.ValueSqlDataAdapter2.SelectCommand.P

49、arameters("param5").Value = DateTimePicker2.ValueDataSet11.SALE.Clear()SqlDataAdapter2.Fill(DataSet11)DataGrid1.Refresh()SqlConnection1.Close()End SubPrivate Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChangedIf CheckBox

50、1.Checked = True ThenComboBox1.Enabled = TrueElseComboBox1.Enabled = FalseEnd IfEnd SubPrivate Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChangedIf CheckBox2.Checked = True ThenComboBox2.Enabled = TrueElseComboBox2.Enabled = Fals

51、eEnd IfEnd SubEnd Class5.3.5任命人事信息代码如下：Public Class personnelInherits System.Windows.Forms.FormPrivate Sub personnel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.LoadStatusBarPanel1.Text = "公司：" & companyGettreeview()End SubPrivate Sub TreeView1_After

52、Select(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelectSelect Case Getb(TreeView1.SelectedNode.FullPath()Case 0StatusBarPanel2.Text = ""StatusBarPanel3.Text = ""GroupBox1.Hide()Button1.Hide()Label3.Hide()Label2.Hide()

53、Case 1StatusBarPanel2.Text = "部门：" & TreeView1.SelectedNode.TextStatusBarPanel3.Text = ""GroupBox1.Text = "部门：" & TreeView1.SelectedNode.TextTextBox1.Text = ""Button1.Show()Button3.Hide()Label3.Hide()Label2.Hide()Case 2StatusBarPanel2.Text = "部门：&

54、quot; & TreeView1.SelectedNode.Parent.TextStatusBarPanel3.Text = "员工：" & TreeView1.SelectedNode.TextGroupBox1.Text = "部门：" & TreeView1.SelectedNode.Parent.TextGroupBox1.Show()TextBox1.Text = TreeView1.SelectedNode.TextButton1.Hide()Button3.Show()SqlConnection1.Close()

55、SqlConnection1.Open()Dim reader1 As SqlClient.SqlDataReaderSqlCommand1.CommandText = "select id from operator where name='" & Trim(TreeView1.SelectedNode.Text) & "'"reader1 = SqlCommand1.ExecuteReader(CommandBehavior.CloseConnection)If reader1.Read ThenLabel3.Text

56、 = reader1.GetString(0)End IfLabel3.Show()Label2.Show()End SelectEnd SubFunction Getb(ByVal string1) As IntegerGetb = 0Dim i As IntegerFor i = 1 To Len(string1)If Mid(string1, i, 1) = ":" ThenGetb += 1End IfNextEnd FunctionSub Gettreeview()Dim reader1, reader2 As SqlClient.SqlDataReaderDim

57、 node1 As New TreeNode(company)Dim node2 As New TreeNode()Dim string1, string2 As StringSqlConnection1.Close()SqlConnection1.Open()TreeView1.Nodes.Clear()TreeView1.Nodes.Add(node1)SqlCommand1.CommandText = "select * from department"reader1 = SqlCommand1.ExecuteReader(CommandBehavior.CloseC

58、onnection)While reader1.Readstring1 = Trim(reader1.GetString(1)string2 = reader1.GetString(0)node2 = TreeView1.Nodes(0).Nodes.Add(string1)SqlCommand2.CommandText = "select * from operator where department='" & string2 & "'"SqlConnection2.Close()SqlConnection2.Open

59、()reader2 = SqlCommand2.ExecuteReader(CommandBehavior.CloseConnection)While reader2.ReadIf reader2.GetBoolean(4) = 0 Thennode2.Nodes.Add(reader2.GetString(1)End IfEnd WhileEnd WhileEnd SubPrivate Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.EnterE

60、nd SubPrivate Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.ClickSqlConnection1.Close()SqlConnection1.Open()SqlCommand1.CommandText = "update operator set exist=1 where name='" & Trim(TextBox1.Text) & "'"SqlCommand1.ExecuteNonQuery()Label4.Text = "删除员工" & TextBox1.TextGettreeview()TextBox1.Text = &