数据库设计与应用开发

精品文档

2)右击“Adodc控件”设置其属性如下所示。 3)在右侧属性-Form1中分别设置Text1的DataSource为“Adodc1”,DataField为“Sno”,Text2的DataSource为“Adodc1”,DataField为“Sname”,Text3的DataSource为“Adodc1”,DataField为“Ssex”。 4)点击VB中的“运行”按钮,则可以成功查询Student表中学生的信息。 。 9欢迎下载

精品文档

5)点击“Adodc控件”中向右的图标,则可以查询到所有学生的信息。 2、对数据库中数据的添加: 1)在VB中新建一个窗体,如图所示。 。

10欢迎下载

精品文档

2)在左侧工具中双击“Adodc控件”和“DataGrid控件”并将其放在合适的位置。 3)对“Adodc控件”属性的设置和前面相同。 4)双击退出按钮,对此按钮进行编程。 5)对Form1加入如图所示的按钮。 。

11欢迎下载

精品文档

6)双击新添加的各个按钮对其编程: Private Sub Command1_Click() Form.Show End Sub Private Sub Command2_Click() tex_Sno.Text = \tex_Sname.Text = \tex_Ssex.Text = \Adodc1.Refresh Adodc1.Recordset.AddNew cmd_add.Enabled = False '添加数据按钮禁用 cmd_save.Enabled = True '保存数据按钮启用 End Sub Private Sub Command3_Click() If tex_Sno.Text = \ MsgBox (\请输入学号\ElseIf tex_Sname.Text = \ MsgBox (\请输入姓名\ElseIf tex_Ssex.Text = \ MsgBox (\请输入性别\Else Adodc1.Recordset(\学号\ Adodc1.Recordset(\姓名\ Adodc1.Recordset(\性别\ cmd_add.Enabled = True cmd_save.Enabled = False End If End Sub 。

12欢迎下载

联系客服:779662525#qq.com(#替换为@)