vb神童教程(续)--为对象添加事件代码 - 编程入门网.pdf

vb神童教程(续)--为对象添加事件代码-编程入门网

●设为首页

●加入收藏

●站内搜索

●网站地图

首页

编程语言

web开发

数据库

网络技术

操作系统

服务器

网页设计

图形设计

办公软件

常用软件

杀毒频道

学电脑

http://www.bianceng.cn/Programming/vb/200812/11127.htm（第1／9页）2010-4-1116:46:18
vb神童教程(续)--为对象添加事件代码-编程入门网
当前位置:首页→编程语言→vb6→正文
C语言
vb6
vb神童教程(续)--为对象添加事件代码
C++
Java
时间:2008-12-15本站专稿小二黑
VC++
Delphi

vfp
VB.NET

C#
VC.NET

汇编语言

数据结构与算法

软件工程

其它编程

本文欢迎非商业用途的转载,但需要注明出自“编程入门网”及相应的网址链接。

一、form1的load事件代码：

PrivateSubForm_Load()

Form1.MS1.ColWidth(0)=600
Form1.MS1.ColWidth(1)=1000
Form1.MS1.ColWidth(2)=2300
Form1.MS1.ColWidth(3)=4000
Form1.Text1.Text=""
Form1.Text2.Text=""
Form1.Text3.Text=""
Form1.Text4.Text=""
EndSub

主要是在系统初始化时设置MSHFlexGrid控件的列宽，并将文本框置空。

二、“添加记录”按钮(command1)的click事件代码：

PrivateSubCommand1_Click()

DimscAsInteger

http://www.bianceng.cn/Programming/vb/200812/11127.htm（第2／9页）2010-4-1116:46:18
vb神童教程(续)--为对象添加事件代码-编程入门网
IfText1.Text=""OrText2.Text=""OrText3.Text=""Then

'即网站名称、网站地址和网站描述的内容必须填全了才打开数据库连接写入数据
'由于系统数据库设计为“编号”字段采用的是Access的自动编号
'因此在添加记录时不接收编号的数据，由Access自动加编号

MsgBox("请输入完整的网站信息")

Else

sc=MsgBox("确实要添加这条记录吗？",vbOKCancel,"提示信息")

Ifsc=1Then

'运行时如果用户点击的是MsgBox提示框的“确定”按钮，返回值是1

DimconnAsNewADODB.Connection

DimrsAsNewADODB.Recordset

DimStr1AsString

DimStr2AsString

DimStr3AsString

Str1="Provider=Microsoft.Jet.OLEDB.4.0;"

Str2="DataSource=E:\vb\Access_db.mdb;"

Str3="JetOLEDB:DatabasePassword="

conn.OpenStr1&Str2&Str3

strSQL="select*fromwzdz"

rs.OpenstrSQL,conn,3,3

rs.AddNew

rs!网站名称=Text1.Text
rs!网站地址=Text2.Text
rs!网站描述=Text3.Text
rs.Update
rs.Close
conn.Close

MsgBox("添加记录成功！")

Adodc1.Refresh

http://www.bianceng.cn/Programming/vb/200812/11127.htm（第3／9页）2010-4-1116:46:18
vb神童教程(续)--为对象添加事件代码-编程入门网
'刷新数据源，MSHFlexGrid控件会实时刷新显示数据

EndIf

'以下四条语句的作用是在操作完成后将文本框置空

Text1.Text=""
Text2.Text=""
Text3.Text=""
Text4.Text=""

EndIf

EndSub

三、“修改记录”按钮(command2)的click事件代码：

PrivateSubCommand2_Click()

IfNotIsNumeric(Text4.Text)OrVal(Text4.Text)=0Then

'编号字段是Access的自动编号，为自然数
'因此对text4的内容进行校验，如果不是数值或为0则跳出s