vb数据库编程实例

vb数据库编程实例vb数据库编程实例 VB编程实例4(单个数据库表应用程序) 1.打开工程vblx,添加一个窗口Form1,修改Form1的属性, 名称(Name)为:fxs,Caption(窗口标题)为: 学生档案,保存在你的目录下.在fmain中添加水平菜单 (m3):数据库,添加下拉菜单(m31): 学生档案,其单击代码为:fxs.Show 2.准备好access数据库 xs.mdb,有两个表xs,cj,在数据源中添加系统DSN,选择驱动程序为Microsoft Access Driver,名称为lx,数据库指向你的x...

vb数据库编程实例 VB编程实例4(单个数据库表应用程序) 1.打开工程vblx,添加一个窗口Form1,修改Form1的属性, 名称(Name)为:fxs,Caption(窗口标题)为: 学生档案,保存在你的目录下.在fmain中添加水平菜单 (m3):数据库,添加下拉菜单(m31): 学生档案,其单击代码为:fxs.Show 2.准备好access数据库 xs.mdb,有两个表xs,cj,在数据源中添加系统DSN,选择驱动程序为Microsoft Access Driver,名称为lx,数据库指向你的xs.mdb 添加ADO部件(Microsoft ADO Data Control 6.0)和DataGrid 部件(Microsoft DataGrid Control 6.0). 3.在窗体上放一个框架Frame1,去掉Caption,设 BorderStyle为0-None,在Frame1上放一个Frame2, 去掉Caption,设BorderStyle为0-None, 在Frame2上放置Adodc1,设其ConnectionString属性为DNS=lx, RecordSource的命令类型为2-adCmdTable,表名为xs,在Frame2上放置命令按钮数组 Command1(0~3),Caption分别为:添加,保存,删除,关闭在Frame1上放一个Frame3,去掉Caption,在Frame3上放置标签数组zdm(0~7),设置字体,颜色, Caption分别为序号,登录名,姓名,性别,生日,电子邮件,电话,住址, 放置文本框数组zdz(0~7), DataSource为Adodc1,DataField分别为 xh,dlm,xm,xb,sr,eml,dh,dz 4.在窗体上放一个DataGrid1,设其DataSource为Adodc1,右击 DataGrid1选择检索字段, 再右击调出属性页,在通用页设置允许添加,删除,更新,在列页设置各列的标题分别为: 序号,登录名,姓名,性别,生日,电子邮件,电话,住址,在布局页设置各列的宽和对齐方式 5.响应Form的Load事件,添加如下代码: Left = (Screen.Width - Width) \ 2 Top = (Screen.Height - Height) \ 2'窗口居中 Frame1.Left = 0: Frame1.Top = 0 Frame1.Width = ScaleWidth Frame1.Height = ScaleHeight / 4 Frame2.Left = (ScaleWidth - Frame2.Width) \ 2 Frame3.Left = (ScaleWidth - Frame3.Width) \ 2 DataGrid1.Top = ScaleHeight / 4: DataGrid1.Left = 0 DataGrid1.Width = ScaleWidth DataGrid1.Height = ScaleHeight * 3 / 4 Adodc1.Refresh 响应Form的Resize事件,添加如下代码: If WindowState = 1 Then Exit Sub'最小化时不执行代码 If WindowState = 0 Then Left = (Screen.Width - Width) \ 2 Top = (Screen.Height - Height) \ 2'正常窗口居中 End If Frame1.Left = 0: Frame1.Top = 0 Frame1.Width = ScaleWidth Frame1.Height = ScaleHeight / 4 Frame2.Left = (ScaleWidth - Frame2.Width) \ 2 Frame3.Left = (ScaleWidth - Frame3.Width) \ 2 DataGrid1.Top = ScaleHeight / 4: DataGrid1.Left = 0 DataGrid1.Width = ScaleWidth DataGrid1.Height = ScaleHeight * 3 / 4 响应Form的 Unload事件,添加如下代码: Adodc1.Recordset.Close 响应Command1的Click事件 Select Case Index Case 0 Adodc1.Recordset.AddNew Case 1 Adodc1.Recordset.Update Case 2 Adodc1.Recordset.Delete Case 3 Unload fxs End Select

                    本文档为【vb数据库 编程 实例】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

vb数据库 编程 实例

你可能还喜欢

vb数据库编程实例