答 案 软件开发技术 知识与应用(课件）.pptVIP

答 案;设通用对话框名为CD1 CD1.ShowOpen Data1.DatabaseName =CD1.FileName Data1.Refresh;数据控件属性;依附控件属性;数据控件的常用方法;数据控件的常用方法;数据控件的常用方法;数据库操作;Private Sub AddBttn_Click() AddBttn.Visible = 0 DelBttn.Visible = 0 OkBttn.Visible = -1 CancelBttn.Visible = -1 Data1.Recordset.AddNew Txh.SetFocus End Sub ;Private Sub OkBttn_Click() Data1.Recordset.Update AddBttn.Visible = -1 DelBttn.Visible = -1 OkBttn.Visible = 0 CancelBttn.Visible = 0 End Sub;Private Sub CancelBttn_Click() Data1. UpdateControls AddBttn.Visible = -1 DelBttn.Visible = -1 OkBttn.Visible = 0 CancelBttn.Visible = 0 Txh.SetFocus End Sub;Private Sub DelBttn_Click() Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then MsgBox “当前库中已无记录”, _ vbOKOnly + vbInformation, 注意 End If End If End Sub;Private Sub Exit_Click() Unload Me End Sub; Private Sub Open_Click() CommonDialog1.ShowOpen Data1.DatabaseName = _ CommonDialog1.FileName Data1.RecordSource = 学生 Data1.Refresh End Sub;VB 程序设计示例;VB 程序设计示例;VB 程序设计示例;VB 程序设计示例;主窗口: 选择一般查询子菜单 Private Sub Seek1_Click() XZ = 0 Unload Me xznj.Visible = True End Sub 选择按姓名查询选项 Private Sub SName_Click() XZ = 1 Unload Me xznj.Visible = True End Sub;标准模块文件代码: 定义全局变量XN,XZ,XM,XH Public XN As Integer Public XZ As Integer Public XM As String * 6 Public XH As Long 自定义子过程SRDX,根据XZ值显示不同的输入框 , _ 等待用户输入查询或修改对象名称或学号 Sub SRDX() Select Case XZ Case 1 XM = InputBox$(请输入需查询的学生姓名, 个别查询) Case 2 XH = Val(InputBox$(请输入需查询的学生学号, 个别查询)) Case 3 XM = InputBox$(请输入需修改的学生姓名, 修改) End Select End Sub;选择年级窗口代码⑴: Private Sub Form_Activate() Dim A As Integer 设置窗体和窗体中标签的Caption属性 If XZ = 0 Or XZ = 1 Or XZ = 2 Then Caption = 查询指定学生的成绩 Label1.Caption = 请选择要查阅哪个年级 Else Caption = 修改指定???生的成绩 Label1.Caption = 请选择要修改哪个年级 End If 为选择年级单选钮控件组的Value属性赋初值 For A = 0 To 2 OptXN(A).Value = False Next CmdJR.En