VB程序设计与数据库管理.ppt

设置ADO Data控件的记录源 单击 标签控件及其属性 控件名 属性名 值 Label1 Caption 景区编号： Label2 Caption 景区名称： Label3 Caption 景区地址： Label4 Caption 最佳游玩时间： Label5 Caption 建议游玩天数： Label6 Caption 更多信息： 文本框控件及其属性 Text1 DataSource Adodc1 DataField ScenicId Text1 空 Text2 DataSource Adodc1 DataField ScenicName Text1 空 Text3 DataSource Adodc1 DataField Address Text1 空 Text4 DataSource Adodc1 DataField BestTime Text1 空 Text5 DataSource Adodc1 DataField RPDays Text1 空 Text6 DataSource Adodc1 DataField Details Text1 空 命令按钮控件及其属性 Command1 名称 cmdAdd Caption 添加 Command2 名称 cmdDelete Caption 删除 Command3 名称 cmdUpdate Caption 更新 Command4 名称 cmdClose Caption 关闭 代码 Private Sub Form_Load() If Adodc1.Recordset.EOF And Adodc1.Recordset.BOF Then cmdDelete.Enabled = False cmdUpdate.Enabled = False End If End Sub Private Sub cmdAdd_Click() Adodc1.Recordset.AddNew cmdDelete.Enabled = False cmdUpdate.Enabled = True Text1.SetFocus End Sub 数据库中无记录 增加记录 删除按钮代码 Private Sub cmdDelete_Click() If MsgBox(“删除当前记录？, vbYesNo, 提示) = vbYes Then Adodc1.Recordset.Delete Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveFirst End If End If End Sub 其他代码 Private Sub cmdUpdate_Click() Adodc1.Recordset.Update cmdDelete.Enabled = True End Sub Private Sub cmdClose_Click() Unload Me End Sub Private Sub Adodc1_MoveComplete(ByVal adReason As……) Adodc1.Caption = 记录 Trim(Adodc1.Recordset.AbsolutePosition) End Sub DataGrid控件 一、DataGrid控件基本概念 二、DataGrid控件常用属性 三、DataGrid控件应用 主要内容 一、DataGrid控件基本概念 DataGrid 控件是一种类似于电子数据表的绑定控件，可以显示一系列行和列来表示 Recordset 对象的记录和字段。 VB工程中使用DataGrid控件 在默认情况下，DataGrid控件并不出现在VB工具箱中，将DataGrid控件添加到工程中的方法如下： 执行“工程”菜单中的“部件”命令 选择该选项 单击“确定” 双击 二、DataGrid控件的常用属性 1. AllowAddNew属性，返回或设置一个逻辑值。若值为True, 用户可以向与 DataGrid 控件连接的Recordset对象中添加记录；若值为False，则不能向与DataGrid控件连接的Recordset对象中添加记录。 2. AllowDelete属性，返回或设置一个逻辑值。若值为True,用户可以从与 DataGrid 控件连接的 Recordset对象中删除记录；若值为False，则不能从与DataGrid 控件连接的Recordset对象中删除记