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

v b 神童教程(续)-为对象添加事件代码-编程入门网 设为首页 加入收藏 站内搜索 网站地图首页编程语言web开发数据库网络技术操作系统服务器网页设计图形设计办公软件常用软件杀毒频道学电脑h t t p:/w w w.b i a n c e n g.c n/Pr o g r a m m i n g/v b/2 0 0 8 12/1112 7.h t m（第 19 页）2 0 10-4-11 16:46:18v b 神童教程(续)-为对象添加事件代码-编程入门网C语言vb6C+JavaVC+DelphivfpVB.NETC#VC.NET汇编语言数据结构与算法软件工程其它编程当前位置:首页编程语言vb6正文 v b 神童教程(续)-为对象添加事件代码时间:2008-12-15 本站专稿 小二黑 本文欢迎非商业用途的转载,但需要注明出自“编程入门网”及相应的网址链接。一、form1的load事件代码：Pr i v a t e Su b Fo r m _Lo a d()Fo r m 1.M S1.Co l W i d t h(0)=6 0 0 Fo r m 1.M S1.Co l W i d t h(1)=10 0 0 Fo r m 1.M S1.Co l W i d t h(2)=2 30 0 Fo r m 1.M S1.Co l W i d t h(3)=40 0 0 Fo r m 1.T e x t 1.T e x t =Fo r m 1.T e x t 2.T e x t =Fo r m 1.T e x t 3.T e x t =Fo r m 1.T e x t 4.T e x t =En d Su b主要是在系统初始化时设置MSHFlexGrid控件的列宽，并将文本框置空。二、“添加记录”按钮(command1)的click事件代码：Pr i v a t e Su b Co m m a n d 1_Cl i c k()D i m s c A s I n t e g e rh t t p:/w w w.b i a n c e n g.c n/Pr o g r a m m i n g/v b/2 0 0 8 12/1112 7.h t m（第 2 9 页）2 0 10-4-11 16:46:18v b 神童教程(续)-为对象添加事件代码-编程入门网I f T e x t 1.T e x t =O r T e x t 2.T e x t =O r T e x t 3.T e x t =T h e n 即网站名称、网站地址和网站描述的内容必须填全了才打开数据库连接写入数据 由于系统数据库设计为“编号”字段采用的是A c c e s s 的自动编号 因此在添加记录时不接收编号的数据，由A c c e s s 自动加编号 M s g Bo x (请输入完整的网站信息)El s e s c =M s g Bo x(确实要添加这条记录吗？,v b O K Ca n c e l,提示信息)If s c =1 T h e n 运行时如果用户点击的是M s g Bo x 提示框的“确定”按钮，返回值是1 D i m c o n n A s Ne w A D O D B.Co n n e c t i o n D i m r s A s Ne w A D O D B.Re c o r d s e t D i m St r 1 A s St r i n g D i m St r 2 A s St r i n g D i m St r 3 A s St r i n g St r 1=Pr o v i d e r=M i c r o s o f t.Je t.O LED B.4.0;St r 2 =D a t a So u r c e=E:v b A c c e s s _d b.m d b;St r 3=Je t O LED B:D a t a b a s e Pa s s w o r d=c o n n.O p e n St r 1&St r 2&St r 3 s t r SQ L=s e l e c t *f r o m w z d z r s.O p e n s t r SQ L,c o n n,3,3 r s.A d d Ne w r s!网站名称=T e x t 1.T e x t r s!网站地址=T e x t 2.T e x t r s!网站描述=T e x t 3.T e x t r s.U p d a t e r s.Cl o s e c o n n.Cl o s e M s g Bo x (添加记录成功！)A d o d c 1.Re f r e s h h t t p:/w w w.b i a n c e n g.c n/Pr o g r a m m i n g/v b/2 0 0 8 12/1112 7.h t m（第 39 页）2 0 10-4-11 16:46:18v b 神童教程(续)-为对象添加事件代码-编程入门网 刷新数据源，M SH Fl e x G r i d 控件会实时刷新显示数据 En d If 以下四条语句的作用是在操作完成后将文本框置空T e x t 1.T e x t =T e x t 2.T e x t =T e x t 3.T e x t =T e x t 4.T e x t =En d IfEn d Su b三、“修改记录”按钮(command2)的click事件代码：Pr i v a t e Su b Co m m a n d 2 _Cl i c k()I f No t Is Nu m e r i c(T e x t 4.T e x t)O r Va l(T e x t 4.T e x t)=0 T h e n 编号字段是A c c e s s 的自动编号，为自然数 因此对t e x t 4的内容进行校验，如果不是数值或为0 则跳出s u b 过程 M s g Bo x 记录号是大于0 的自然数，请输入正确的编号！Ex i t Su bEn d IfI f T e x t 1.T e x t =O r T e x t 2.T e x t =O r T e x t 3.T e x t =T h e n 对三个文本框的内容进行校验，不接收空值 M s g Bo x 请输入完整的网站信息！Ex i t Su bEn d IfD i m s c A s I n t e g e r s c =M s g Bo x(确实修改这条记录吗？,v b O K Ca n c e l,提示信息)I f s c =1 T h e n 运行时如果用户点击的是M s g Bo x 提示框的“确定”按钮，返回值是1 D i m c o n n A s Ne w A D O D B.Co n n e c t i o n D i m r s A s Ne w A D O D B.Re c o r d s e th t t p:/w w w.b i a n c e n g.c n/Pr o g r a m m i n g/v b/2 0 0 8 12/1112 7.h t m（第 49 页）2 0 10-4-11 16:46:18v b 神童教程(续)-为对象添加事件代码-编程入门网 D i m St r 1 A s St r i n g D i m St r 2 A s St r i n g D i m St r 3 A s St r i n g St r 1=Pr o v i d e r=M i c r o s o f t.Je t.O LED B.4.0;St r 2 =D a t a So u r c e=E:v b A c c e s s _d b.m d b;St r 3=Je t O LED B:D a t a b a s e Pa s s w o r d=c o n n.O p e n St r 1&St r 2&St r 3 s t r SQ L=s e l e c t *f r o m w z d z w h e r e 编号=&Va l(T e x t 4.T e x t)&r s.O p e n s t r SQ L,c o n n,3,3 If r s!编号=Va l(T e x t 4.T e x t)T h e n 由于系统数据库使用的是自动编号作为主键 因此以编号字段的内容作为判断的依据 如果r s!编号=Va l(T e x t 4.T e x t)说明数据库中有此记录，才会修改其它三个字段的内容 否则给出“不存在此记录”的提示信息并关闭数据连接 r s!网站名称=T e x t 1.T e x t r s!网站地址=T e x t 2.T e x t r s!网站描述=T e x t 3.T e x t r s.U p d a t e r s.Cl o s e c o n n.Cl o s e M s g Bo x (修改记录成功！)A d o d c 1.Re f r e s h 刷新数据源，M SH Fl e x G r i d 控件会实时刷新显示数据 El s e M s g Bo x (不存在此记录！)T e x t 1.T e x t =T e x t 2.T e x t =h t t p:/w w w.b i a n c e n g.c n/Pr o g r a m m i n g/v b/2 0 0 8 12/1112 7.h t m（第 59 页）2 0 10-4-11 16:46:18v b 神童教程(续)-为对象添加事件代码-编程入门网 T e x t 3.T e x t =T e x t 4.T e x t =r s.Cl o s e c o n n.Cl o s e Ex i t Su b En d IfEn d If 以下四条语句的作用是在操作完成后将文本框置空T e x t 1.T e x t =T e x t 2.T e x t =T e x t 3.T e x t =T e x t 4.T e x t =En d Su b四、“删除记录”按钮(command3)的click事件代码：Pr i v a t e Su b Co m m a n d 3_Cl i c k()I f No t Is Nu m e r i c(T e x t 4.T e x t)O r Va l(T e x t 4.T e x t)=0 T h e n 编号字段是A c c e s s 的自动编号，为自然数 因此对t e x t 4的内容进行校验，如果不是数值或为0 则跳出s u b 过程 M s g Bo x 编号是大于0 的自然数，请输入正确的编号！Ex i t Su bEn d IfD i m s c A s I n t e g e rs c =M s g Bo x(确实要删除这个记录吗？,v b O K Ca n c e l,删除确认！)I f s c =1 T h e n 运行时如果用户点击的是M s g Bo x 提示框的“确定”按钮，返回值是1 D i m c o n n A s Ne w A D O D B.Co n n e c t i o n D i m r s A s Ne w A D O D B.Re c o r d s e t D i m St r 1 A s St r i n gh t t p:/w w w.b i a n c e n g.c n/Pr o g r a m m i n g/v b/2 0 0 8 12/1112 7.h t m（第 6 9 页）2 0 10-4-11 16:46:18v b 神童教程(续)-为对象添加事件代码-编程入门网 D i m St r 2 A s St r i n g D i m St r 3 A s St r i n g St r 1=Pr o v i d e r=M i c r o s o f t.Je t.O LED B.4.0;St r 2 =D a t a So u r c e=E:v b A c c e s s _d b.m d b;St r 3=Je t O LED B:D a t a b a s e Pa s s w o r d=c o n n.O p e n St r 1&St r 2&St r 3 s t r SQ L=s e l e c t *f r o m w z d z w h e r e 编号=&Va l(T e x t 4.T e x t)&r s.O p e n s t r SQ L,c o n n,3,3 I f r s!编号=Va l(T e x t 4.T e x t)T h e n 由于系统数据库使用的是自动编号作为主键 因此以编号字段的内容作为判断的依据 如果r s!编号=Va l(T e x t 4.T e x t)说明数据库中有此记录并进行删除操作 否则给“不存在此记录”的提示信息并关闭数据连接 r s.D e l e t e r s.Cl o s e c o n n.Cl o s e M s g Bo x (删除记录成功！)A d o d c 1.Re f r e s h 刷新数据源，M SH Fl e x G r i d 控件会实时刷新显示数据 El s e M s g Bo x (不存在此记录！)T e x t 4.T e x t =r s.Cl o s e c o n n.Cl o s e Ex i t Su b En d Ifh t t p:/w w w.b i a n c e n g.c n/Pr o g r a m m i n g/v b/2 0 0 8 12/1112 7.h t m（第 7 9 页）2 0 10-4-11 16:46:18v b 神童教程(续)-为对象添加事件代码-编程入门网En d If 以下四条语句的作用是在操作完成后将文本框置空T e x t 1.T e x t =T e x t 2.T e x t =T e x t 3.T e x t =T e x t 4.T e x t =En d Su b五、“退出系统”按钮(command4)的click事件代码：Pr i v a t e Su b Co m m a n d 4_Cl i c k()D i m s c A s I n t e g e rs c =M s g Bo x(确实要退出系统吗？,v b O K Ca n c e l,提示信息)I f s c =1 T h e n 运行时如果用户点击的是M s g Bo x 提示框的“确定”按钮，返回值是1 En d En d IfEn d Su b六、添加完事件代码之后，我们这个实例至此完成，运行一下吧！查看全套“vb神童教程(续)”-上一篇：vb神童教程(续)-ODBC数据源简介 下一篇：vb神童教程(续)-设计系统的界面及对象的属性 推荐内容 H Visual Basic中的界面设计原则和编程技巧 H vb神童教程(续)h t t p:/w w w.b i a n c e n g.c n/Pr o g r a m m i n g/v b/2 0 0 8 12/1112 7.h t m（第 8 9 页）2 0 10-4-11 16:46:18v b 神童教程(续)-为对象添加事件代码-编程入门网H 用VB编写托盘程序 H vb进度条控件个性使用 H vb程序实例（一）H vb的属性、方法和事件（一）H vb变量、常数和数据类型及过程概述（一）H vb的工具栏、对话框（一）H vb控件的使用（一）热门文章 H vb神童教程(续)H vb神童教程(续)-编写一个小型的信息管理系统 H vb神童教程(续)-vb连接Access数据库实例 H vb神童教程(续)-准备数据库 H vb神童教程(续)-设计系统的界面及对象的属性 H vb的datagrid控件的使用（一）H vb神童教程(续)-配置Access数据源 H vb神童教程(续)-vb adodb Connection对象简介 H vb神童教程(续)-使用ADO Data控件连接Access的 H vb神童教程(续)-为对象添加事件代码 H vb神童教程 H vb神童教程(续)-VB的ADO对象 H vb6.0安装程序制作图解教程 H vb神童教程(续)-ODBC数据源简介 H vb神童教程(续)-配置SQL Server数据源 H vb进度条控件个性使用 H vb中使用水晶报表教程 H vb的datagrid控件的使用（二）编程入门网 版权所有,All Rights Reserved.网站统计 h t t p:/w w w.b i a n c e n g.c n/Pr o g r a m m i n g/v b/2 0 0 8 12/1112 7.h t m（第 99 页）2 0 10-4-11 16:46:18