你好,欢迎来到电脑编程技巧与维护杂志社! 杂志社简介广告服务读者反馈编程社区  
合订本订阅
 
 
您的位置:杂志经典 / 网络与通信
关系数据库的VB通用查询编程技巧(七)
 

8.Grid1EnterCell事件,控制Combo1Grid1中出现的位置。

Private Sub Grid1_EnterCell()

    Combo1(Grid1.Col).Visible = True

    Combo1(Grid1.Col).Left = Grid1.Left + Grid1.CellLeft

    Combo1(Grid1.Col).Top = Grid1.Top + Grid1.CellTop

    Combo1(Grid1.Col).ZOrder 0

End Sub

9.Grid1LeaveCell事件

实现将Combo1中的文本内容添加到Grid1相应的单元格中。

Private Sub Grid1_LeaveCell()

    If Grid1.Row > 0 Then

        Grid1.Text = Combo1(Grid1.Col).Text

        If Grid1.Text = "True" Then

            Grid1.Text = "1"

        ElseIf Grid1.Text = "False" Then

            Grid1.Text = "0"

        End If

        Combo1(Grid1.Col).Visible = False

    End If

End Sub

四、验证

为验证以上程序功能,建立一个实验数据库CX.mdb,在此数据库中添加一个表STUDENT_TBL,结构如表1所示。

1 STUDENT_TBL表结构

字段名

字段数据类型

主键

说明

STUID

Varchar(12)

Yes

学生编号

STUname

Varchar(50)

 

学生姓名

STUsorce

Varchar(20)

 

课程

STUchive

Varchar(50)

 

成绩

 

然后向表中输入几条合理的数据,如表2所示。

2 数据录入

学生编号

学生姓名

课程

成绩

200201050401

刘强

VB

80.5

200201050402

李飞

VB

95

200201050403

刘立

VC++

65

 

注意,在验证程序功能时,除了以上内容外,还要在代码中更改constrstrsqlstrdemandstrtable的值。实现代码如下。

constr字符串,用于编程者根据所使用的数据库不同(如AccessSQL Server,来修改成不同的连接字符串,本例中以cx.mdb为例:

    constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\cx.mdb;Persist Security Info=False"

  推荐精品文章

·2024年9月目录 
·2024年8月目录 
·2024年7月目录 
·2024年6月目录 
·2024年5月目录 
·2024年4月目录 
·2024年3月目录 
·2024年2月目录 
·2024年1月目录
·2023年12月目录
·2023年11月目录
·2023年10月目录
·2023年9月目录 
·2023年8月目录 

  联系方式
TEL:010-82561037
Fax: 010-82561614
QQ: 100164630
Mail:gaojian@comprg.com.cn

  友情链接
 
Copyright 2001-2010, www.comprg.com.cn, All Rights Reserved
京ICP备14022230号-1,电话/传真:010-82561037 82561614 ,Mail:gaojian@comprg.com.cn
地址:北京市海淀区远大路20号宝蓝大厦E座704,邮编:100089