第5章 节 基于VB的数据库系统开发基础 数据库基础PPT课件.pptVIP

第5章 基于VB的数据库系统开发基础;引子;引子;引子;引子;5.1 VB程序设计基础;5.1 VB程序设计基础;5.1 VB程序设计基础;5.1 VB程序设计基础;5.1 VB程序设计基础;5.2 VB界面设计;5.2 VB界面设计;5.2 VB界面设计;5.2 VB界面设计;Private Sub Command1_Click() Label2.caption = Text1.text End Sub;5.2 VB界面设计;Label控件除了上述的公共属性外，还有一个常用属性—Alignment。 Alignment属性：用于设置Caption属性中文本的对齐方式，有三种可选值： 值为0时，左对齐(Left Justify) 值为1时，右对齐(Right Justify) 值为2时，居中对齐(Center Justify)。 ;2. TextBox 控件;5.2 VB界面设计;上机实验5-2 ;上机实验5-2 ;上机实验5-3 过程;上机实验5-3 ;5.2 VB界面设计;5.2 VB界面设计;5.2 VB界面设计;5.2 VB界面设计;IF语句的语法 IF 条件 THEN … ELSE … END IF 代码： If Option1.Value = True Then Label2 = Text1 “是一个男孩，他的爱好是： Else Label2 = Text1 “是一个女孩，她的爱好是： End If;5.2 VB界面设计;5.2 VB界面设计; List 属性 可以在属性窗口中添加， 也可以在程序中添加项目。 【例6-10】 ComboBox控件 Combo1.AddItem (优秀) Combo1.AddItem (良好) Combo1.AddItem (中等) Combo1.AddItem (及格) Combo1.AddItem (不及格) Combo1.ListIndex = 0;Select Case 表达式 Case 值1 …… Case 值2 …… End select 代码： Select Case Combo1.ListIndex Case 0 Label3 = Text1 的考评结果为：90-100 Case 1 Label3 = Text1 的考评结果为：80-89 Case 2 Label3 = Text1 的考评结果为：70-79 … End Select ;5.2 VB界面设计;5.2 VB界面设计;5.2 VB界面设计;5.3 ODBC技术 ;5.3 ODBC技术 ;5.4 ADO 数据控件及其数据库访问技术;5.4 ADO 数据控件及其数据库访问技术;5.4 ADO 数据控件及其数据库访问技术;5.4 ADO 数据控件及其数据库访问技术;5.4 ADO 数据控件及其数据库访问技术; Private Sub cmdLast_Click() If Adodc1.Recordset.RecordCount = 0 Then MsgBox 当前没有记录 Exit Sub End If Adodc1.Recordset.MoveLast End Sub; Private Sub cmdNext_Click() If Adodc1.Recordset.EOF Then MsgBox 已经到达记录底端 Else Adodc1.Recordset.MoveNext End If End Sub;使用TextBox控件绑定数据;5.5 ADO数据对象及其数据库访问技术;使用ADO对象自动填充下拉列表框;使用ADO对象自动填充下拉列表框;使用ADO对象自动填充下拉列表框;使用ADO对象进行商品信息查询;使用ADO对象进行商品信息查询;使用ADO对象进行商品信息查询