图书管理系统设计51 分析图书管理系统的业务需求52 窗体与

第5章图书管理系统设计5.1分析图书管理系统的业务需求5.2窗体与控件对象5.3为系统登陆界面设计窗体容器5.4为登陆窗体添加标签〔Label〕控件5.5为登陆窗体添加文本框〔TextBox〕控件5.6为登陆窗体添加命令按钮(Button)控件5.7过程的其它相关知识5.8习题5.1分析图书管理系统的业务需求系统的主要功能将分为以下几个方面：〔1〕数据输入读者根本信息输入，例如读者的编号、姓名、性别、年龄等。图书根本信息输入，例如图书的条码、名称、作者、出版社、出版时间等。借阅情况的输入，即当又读者借阅某书后，向数据库添加借阅信息。〔2〕数据修改包括读者根本信息、图书根本信息输入、借阅信息的修改功能。〔3〕数据查询包括读者根本信息、图书根本信息输入、借阅信息的查询功能。由此，系统各局部功能模块如以下图所示。管理员登陆系统主界面读者管理读者信息录入读者信息修改图书信息查询图书信息修改图书信息录入读者信息查询借阅信息录入图书管理借阅管理借阅信息查询借阅信息修改5.2窗体与控件对象1.对象的属性和现实世界中的对象实体一样，VisualBasic.NET中的每个控件都有一组特征，这组特征就是控件的属性，选定一个控件，在属性窗口中就可以看到该控件的大局部属性及默认值，修改控件的属性能够控制控件的外观和操作。属性通常可以在控件设计阶段设置，也可以在程序运行时得到或改变属性的值。2.对象的方法控件的方法就是能够完成某种功能的程序，其功能的代码是VisualBasic.NET系统已经设计好的，不需要用户自己编写，用户只需要用某种特定的调用格式调用这些方法。3.对象的事件在现实生活中，皮球能响应人的拍打动作，同样，VisualBasic.NET中的对象也能响应外界的动作，我们把这种能被对象识别的动作称为事件。事件能引发对象的活动，即事件被触发后对象可以执行相应事件的代码。不同的对象能够响应的事件也不完全相同，VisualBasic.NET编程的核心就是为每个要处理的事件编写响应事件的过程代码，为不同的对象响应不同事件编写的事件过程就构成了应用程序。5.3为系统登陆界面设计窗体容器几乎在任何一个图书管理系统中，管理员使用软件时都需要翻开登陆界面，输入帐号和密码确认后进入系统，在本章中我们也将完成一个如下图的登陆系统界面。5.3.1窗体的主要属性1.Name属性用来设置或返回窗体的名称。2.Text属性该属性确定显示在Form的标题栏中的文本。当窗体为最小化时，该文本被显示在窗体图标的下面。3.Size属性该属性有两个值，分别用来返回或设置窗体的宽度和高度4.BackColor属性返回或设置窗体对象的背景颜色。5.BackGroundImage属性该属性主要用来设置窗体中要显示的图片，在设计状态下，单击属性窗口中的BackGroundImage设置框右侧的“．．．〞，翻开如以下图所示的【选择资源】对话框。选中【本地资源】选项，单击【导入】对话框，翻开如以下图所示的对话框，选择图片文件，单击【翻开】按钮，可为窗体设定相应的背景图片。6.FormBorderStyle属性 该属性用于控制窗体边界的类型，属性值的设置如下表所示设置值描述None窗体没有边框，可以改变大小FixedSingle窗体为单线边框，不能改变大小，可以包含最大化、最小化和关闭按钮。Sizable（缺省值）双线边框，可调整的边框，可以包含最大化、最小化和关闭按钮。Fixed3D3D边框。不能改变窗体大小，可以包含最大化、最小化和关闭按钮。FixedDialog用于对话框，不允许改变窗体大小，可以包含最大化、最小化和关闭按钮。FixedToolWindow用于工具窗口，不能改变窗体大小。只带有标题和关闭按钮。SizableToolWindow用于工具窗口，能改变窗体大小。只带有标题和关闭按钮。7.MaximizeBox/MinimizeBox属性设置窗体上是否具有最大化/最小化按钮。当数属性取True时，表示窗体具有最大化/最小化按钮，假设属性取False时，表示窗体没有最大化/最小化按钮。8.WindowState属性取值常数描述Normal0（缺省值）正常。Minimized1最小化（最小化为一个图标）Maximized2最大化（扩大到最大尺寸）5.3.2窗体的主要事件窗体常用事件如下：〔1〕Click事件当用鼠标单击窗体时触发该事件。〔2〕DoubleClick事件当用鼠标双击窗体时触发该事件。〔3〕Load事件此事件在一个窗体被装载时发生。当应用程序运行时，对启动窗体来说，在窗体画面未显示之前，会先触发该事件。对于未被加载的窗体，如果使用Load语句，或未装载前使用Show方法时都可以触发该事件。〔4〕Resize事件当窗体第一次显示或窗口状态改变时该事件发生。例如，一个窗体被最大化、最小化或被复原，或者在与运行时用代码改变了窗体大小等。〔5〕Activate和DeActivate事件Activate事件时当一个窗体变成活动窗体时触发。DeActivate是当另一个窗体或应用程序被激活，当前窗体不再是活动窗口时触发。〔6〕FormClosed事件当窗体关闭时触发该事件。5.3.3窗体的方法对象的方法用来实际上是VisualBasic.NET提供的一种特殊的子程序，用来完成一定的操作。窗体常用的方法如下：〔1〕Show方法Show方法用来显示窗体，如果使用Show方法时窗体还没有装载，VisualBasic.NET将自动装载窗体。语法：对象.Show()〔2〕Hide方法Hide方法用来隐藏窗体，但窗体并不从内存去除，应用程序仍然可以访问窗体上的控件。语法：对象.Hide()〔3〕Refresh方法Refres方法用来强制窗体重绘,当希望窗体或控件立即更新时可以使用该方法。语法：对象.Refresh()〔4〕Close方法Close方法关闭窗体，窗体关闭后，关闭在该对象内创立的所有资源并且释放该窗体。如果要关闭的窗体是应用程序的启动窗体，那么该应用程序结束。语法：对象.Close()5.3.4设计Windows窗体【例】设计图书管理系统的登陆窗体。学习了以上窗体的根本知识，设计一个登陆窗体的步骤操作如下：〔1〕启动VisualBasic.NET，选择【新建工程】菜单命令，翻开以下图所示【新建工程】对话框。选中【Windows应用程序】模板，输入工程名称“图书管理系统〞，单击【确定】按钮，系统将添加一默认名称Form1.vb的窗体，如下图。〔2〕单击选择Form1，通过属性窗口设置窗体常用属性如表所示。属性名称属性值Name登陆系统Text登陆系统FormBoderStyleFixedSingleSize300,200MaximizeBoxFalse〔3〕选择BackColor属性框右侧的下拉箭头，翻开【自定义】颜色调色板，为窗体设置如下图的背景颜色。〔4〕在解决方案资源管理器中右键单击窗体名称“Form1.vb〞，在弹出的菜单中选择【重命名】菜单，如以下图所示，窗体名称变为可编辑状态，改变窗体名称“登陆系统.vb〞。〔5〕单击【保存全部】按钮，翻开如以下图所示的【保存工程】对话框，选择“D:\图书管理系统实例〞目录，设置工程名称“图书管理系统〞，单击【保存】按钮保存工程和窗体。5.4为登陆窗体添加标签〔Label〕控件窗体创立以后，接下来就可以向窗体上添加需要的控件了。标签〔Label〕控件是VisualBasic.NET中最常用的控件之一，主要用来显示数据和提示信息。标签〔Label〕控件的常用属性1.Text属性该属性可用来获得或设置标签〔Label〕控件上显示的具体内容。2.Visible属性该属性用来设置控件是否可见，如True控件可见，假设为False那么控件不可见。5.4.2完成标签〔Label〕控件的设计【例5.2】向窗体上添加提示“帐号〞和“密码〞的标签〔Label〕控件，并设置其属性。具体实现步骤如下：〔1〕单击工具箱上的标签〔Label〕控件按钮，在窗体上拖动鼠标绘制一个适宜大小的标签〔Label〕控件，该标签控件的Text默认为“Label1〞，移动控件到适宜位置。〔2〕用相同的方法添加另一个标签〔Label〕控件。〔3〕设置两个Label控件的属性如表所示。控件名称属性属性值Label1Text用户名：ForeColorWhiteLabel1Text密码：ForeColorWhite5.5为登陆窗体添加文本框〔TextBox〕控件接下来，我们继续为窗体添加所需文本框〔TextBox〕控件，以允许用户输入对应的用户名和密码。在这之前，我们需要先学习一下文本框〔TextBox〕控件几个重要的属性、方法和事件。5.5.1TextBox控件的常用属性1.Text属性该属性用来设置或返回文本框〔TextBox〕控件中的内容。设置文本框〔TextBox〕控件内容的方法：对象.Text=〞abc〞返回文本框〔TextBox〕控件内容并赋给变量s的方法：s=对象.Text2.MaxLength属性用来设置TextBox控件中能够输入的字符的最大数量。语法：对象.MaxLength=n3.PasswordChar属性为了在文本框中不显示密码原文而使用其它占位符代替，可应用此属性。大多数基于Windows的应用程序都使用*做占位符。4.ReadOnly属性ReadOnly属性是布尔型，用于设置是否可以编辑文本框的Text属性内容，默认是False，此时文本框是可编辑的。当设置该属性为True时，文本框只读，不能编辑。5.Enabled属性当Enabled属性为False时，文本框是灰色的，文本框不能获得焦点，不能对文本框执行任何操作，也不能响应事件。5.5.2TextBox控件的常用事件1.TextChanged事件当文本框的内容发生改变时，触发该事件。2.KeyPress事件当文本框具有焦点时，按下任意键就会触发该事件。3.LostFocus事件当使用Tab键或用鼠标单击窗体上其它的对象，从而使该文本框失去焦点时触发该事件。5.5.3TextBox控件的常用方法1.Focus方法该方法的作用是是该文本框获得焦点，以便输入或修改数据。2.Undo方法该方法的作用是取消对文本框的上一次操作。5.5.4完成文本框〔TextBox〕控件的设计【例5.3】向窗体上添加输入用户名和密码信息的文本框〔TextBox〕控件，并设置其属性。具体操作步骤如下：〔1〕单击工具箱上的文本框〔TextBox〕控件按钮，在窗体上拖动鼠标绘制一个适宜大小的文本框〔TextBox〕控件，移动控件到适宜位置。〔2〕用相同的方法添加另一个文本框〔TextBox〕控件。〔3〕设置两个文本框的属性如下表所示。控件名称属性属性值TextBox1Text空Size100,21MaxLength20TextBox2Text空Size100,21PasswordChar*MaxLength205.6为登陆窗体添加命令按钮(Button)控件5.6.1命令按钮控件的常用属性1.Text属性Text属性用来设置命令按钮中显示的文字信息。2.Image属性Image属性用来设置在命令按钮上显示的图像。5.6.2完成按钮功能【例5.4】为窗体添加命令按钮〔Button〕控件，使其能对用户输入的信息进行判断。具体步骤如下：〔1〕单击工具箱上的命令按钮〔Button〕控件，在窗体上拖动鼠标绘制一个适宜大小的命令按钮〔Button〕，移动控件到适宜位置。〔2〕设置命令按钮〔Button〕的属性如表所示。〔3〕为按钮添加事件过程代码控件名称属性属性值Button1Text确定Button2Text取消事件过程定义的一般形式为：PrivateSub对象名_事件名称([参数列表])Handles事件列表[局部变量和常数声明]语句块EndSub说明：对象名_事件名称是事件的默认名称，我们可以根据需要修改事件的名称。窗体前面的Private表示该过程只能在该窗体中使用。Handles关键字声明过程处理一个指定事件。事件列表指要处理的具体事件是哪一个。〔4〕编写事件代码〔5〕运行程序5.7过程的其它相关知识实际上，在一个应用程序中，都提供了一个或多个特定功能的功能块，一个功能块就是一段程序，在VisualBasic.NET中我们把它定义成过程。定义了过程的好处在于，一个程序员只要将这个过程声明一次，就可以在任何需要使用该功能的地方调用这个过程就可以了，而不需要再重新定义，即一次定义，屡次使用，提高了代码的逻辑性和重用性。进一步，在VisualBasic.NET的应用程序中又可以定义模块，一个模块又由多个过程组成，一个应用程序通过过程间的相互调用构成。过程（功能块）用户1用户2用户n调用调用调用5.7.1通用Sub过程的定义VisualBasic.NET的Sub过程有两种：事件过程和通用过程。有关事件过程的定义和使用我们在前面已经介绍，这里要介绍的是通用过程的相关知识。通用Sub过程的定义格式如下：[Public|Private][Static]Sub过程名([参数列表]) [局部变量和常数声明] 语句块 [ExitSub] 语句块Endsub其中：Public表示过程是公用的，应用程序可以随处调用它〔假设定义在窗体，其它窗体的程序调用时要指定窗体名〕。Private表示过程为局部的，只有在该过程所在模块中的程序才可以调用。Static表示过程中所有局部变量的存储空间只分配一次，且它们的值在整个程序运行期间都存在。参数列表中的参数本身没有值，系统不为其分配存储空间，因此称为形参，多个形参之间用逗号隔开。ExitSub语句使执行立即从一个Sub过程中退出，程序接着从调用该Sub过程语句的下一句继续执行。形参的定义格式为：[ByVal]变量名[()][As类型][,[Byval]变量名[()][As类型]…]5.7.2通用Sub过程的创立【例5.5】建立一个计算个人所得税的Sub过程。建立一个过程的方法如下：〔1〕翻开代码窗口，选择对象列表框中的【常规】选项。〔2〕在代码编辑区的空白行处输入“PublicSubctax(moneysAsDouble)〞。〔3〕按回车键，自动出现“EndSub〞语句，在过程体中输入代码，如下所示：PublicSubctax(moneysAsDouble)'moneys为个人月收入DimtaxAsDoubleIf(moneys-2000)<=0Thentax=0ElseIf(moneys-2000)<=500Thentax=(moneys-2000)*0.05ElseIf(moneys-2000)<=2000Thentax=(moneys-2000)*0.1-25ElseIf(moneys-2000)<=5000Thentax=(moneys-2000)*0.15-125ElseIf(moneys-2000)<=20000Thentax=(moneys-2000)*0.2-375ElseIf(moneys-2000)<=40000Then

tax=(moneys-2000)*0.25-1375ElseIf(moneys-2000)<=60000Thentax=(moneys-2000)*0.3-3375ElseIf(moneys-2000)<=80000Thentax=(moneys-2000)*0.35-6375ElseIf(moneys-2000)<=100000Thentax=(moneys-2000)*0.4-10375Elsetax=(moneys-2000)*0.45EndIfMsgBox"该员工的个人所得税为"&tax&"元"EndSub5.7.3Sub过程的调用调用Sub过程由两种方式：1.用Call调用语法：Call过程名(实际参数列表)说明：实际参数的个数、类型和顺序都要和形参相匹配。如果过程不带参数，那么括号可以省略。2.把过程名作为一个语句语法：过程名〔[实参1[,实参2…]]〕5.7.4过程调用中的参数传递VisualBasic.NET的参数传递实际上又分为值传递和地址传递两种方式。1.