用VB 做啊~~~有点急啊~~要程序啊~~~

来源：百度知道 编辑：UC知道 时间：2024/06/19 14:12:59
设计一个”通讯录”程序，当用户在下拉列表框中选择某一人名后，在”电话号码”文本框中显示出对应的 电话号码，当用户选择或则取消”单位”和”住址”复选框后，将打开或关闭”工作单位”或”家庭住址”文本框

Private Sub Check1_Click()
If Check1.Value = 1 Then
Text2.Enabled = True
End If
End Sub

Private Sub Combo1_Click()
Adodc1.RecordSource = "select * from tb_stu where 姓名='" + Combo1.Text + "'"
Adodc1.Refresh
Text1.Text = Adodc1.Recordset.Fields("电话号码")
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_ExpStu.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from tb_stu "
Adodc1.Refresh
'Set DataGrid1.DataSource = Adodc1
If Adodc1.Recordset.RecordCount > 0 Then
If Adodc1.Recordset.EOF = True Then
Exit Sub
Else
For i = 0 To Adodc1.Recordset.RecordCount - 1
Combo1.AddItem (Adodc1.Recordset.Fields("姓名"))
Adodc1.Recordset.MoveNext
Next