用VB开发数据应用程序3实例.ppt

C/S——VB数据库应用系统开发 数据库应用系统结构 Visual Basic快速入门 开放数据库连接（ODBC） 数据访问接口（ADO） VB数据库编程举例 VB开发数据库应用系统实例分析 VB数据库编程举例 示例1 示例1说明 示例1控件的属性设置 示例1程序代码 “退出”按钮单击（Click）鼠标事件程序代码 “查找”按钮单击（Click）鼠标事件程序代码 窗体加载（Load事件）时初始化程序代码 示例1实现过程展示 示例2 示例2说明 示例2控件的属性设置 示例2程序代码 窗体启动时的初始化代码 “添加”命令按钮 “取消”命令按钮 “删除”命令按钮 “更新”命令按钮 “第一条”命令按钮 “末一条”命令按钮 “下一条”命令按钮 “上一条”命令按钮 结束程序代码 示例2实现过程展示 示例3 示例3说明 示例3控件的属性设置 示例3程序代码 Form1上的“查找”和“退出”命令按钮代码 Form2上的初始化dtgCond控件代码 Form2上的Load事件代码 Form2上“返回”按钮代码 示例3实现过程展示 “退出”命令按钮 Private Sub CmdExit_Click() End End Sub 设置控件和属性 编写程序代码 执行程序观察结果 示例3说明 示例3控件的属性设置 示例3程序代码 示例3实现过程展示 示例3在示例1的基础上增加了一个窗体，这个窗体用DataGrid控件显示数据。 示例3中的两个窗体的布局分别图1和图2所示。 图1 Form1布局 图2 Form2布局 在图所示的Form1上，当用户单击“查找”命令按钮时，显示Form2。 Form2上DataGrid中的数据是根据Form1中当前显示的学号值去查找此学生的姓名、所修的课程名、课程的学分以及考试成绩。 在Form2上单击“返回”命令按钮（对象名为cmdReturn），可以返回到Form1，并且同时卸载Form2。 Form1窗体上各控件属性的设置同示例1。 Form2窗体 DataGrid数据绑定控件的对象名为：dtgCond DtgCond控件的列属性在程序代码中设置。 ADO数据控件名为：AdodcGrid ConnectionString属性的值同示例1的AdodcStudent CommandType和RecordSource属性我们在程序代码中设置。 Form1上的“查找”和“退出”命令按钮代码 Form2上的代码 Form2上的初始化dtgCond控件代码 Form2上的Load事件代码 Form2上“返回”按钮代码 Private Sub CmdExit_Click() 退出按钮 End End Sub ? Private Sub CmdSearch_Click() 查找按钮 Form2.Show 显示Form2窗体 End Sub Private Sub InitGrid() 初始化dtgCond控件 With DtgCond 设置DtgCond的列标题 .Columns(0).Caption = 学号 .Columns(1).Caption = 课程名 .Columns(2).Caption = 学分 .Columns(3).Caption = 成绩 设置DtgCond的列宽 .Columns(0).Width = 1000 .Columns(1).Width = 2000 .Columns(2).Width = 800 .Columns(3).Width = 800 End With End Sub Private Sub Form_Load() Dim strSno As String Dim strSelect As String strSno = Trim(Form1.TxtSno.Text) 得到Form1窗体上当前显示的学号的值 ‘ 编写满足要求的查询语句，查找学号值等于给定值的学生的姓名、 ‘ 修的课程名、 学分和成绩 strSelect = “ select Sname, Cname,Ccredit,Grade from student s join sc “ _ “ on s.sno = sc.sno join course c on o = o where “ _ “ sc.sno = ‘ “ strSno “ ‘ “ 设置ADO数据控件相应的属性 AdodcGrid.CommandType = adCmdText