VB数据库开发

VB数据库开发-案例数据库服务器应用界面VB应用程序SQLServer数据库访问接口VB数据库访问控件数据库应用系统结构主要内容案例-一个教务管理系统的开发附录：数据库连接控件数据显示控件案例—教务管理系统的开发实例目标首先创建一个名为“教务”的数据库，然后使用Vb程序浏览和访问数据库。技术要点静态查询和SQL语言的使用；使用ToolBar和ImageList控件制作工具栏。实现步骤创建数据库创建主窗体添加工具栏按钮控件：ToolBar和ImageList控件添加数据库连接控件添加数据显示控件编写代码建立教务数据库创建登陆模块PrivateSubCommand1_Click()Ad1.RecordSource=team:Ad1.RefreshAd1.Recordset.MoveFirstAd1.Recordset.find姓名='+Text1.Text+'IfAd1.Recordset.EOFThenx=MsgBox(没有该用户，重新输入吗？,vbYesNo,错误！)Ifx=vbYesThenExitSubElseEndEndIfIfAd1.Recordset.Fields(1)=Text2.TextThenUnloadForm1:Form2.Show:ExitSubx=MsgBox(密码错误，重新输入吗？,vbYesNo,错误！)Ifx=vbYesThenExitSubElseEndEndSub创建主窗体首先添加ToolBar和ImageList控件到工具箱；步骤：1.工程/部件选“MicrosoftWindowsCommonControl6.0”2.ToolBar控件包含用来创建工具栏的按钮对象集合；ToolBar可以拥有文本和相关联的ImageList提供的图像；3.ImageList控件的属性创中选择图像标签；4.设置按钮属性：索引(1)，标题(第一个)，关键字(First)，样式(0-tbrDefault)，工具提示文本(单击此按钮查看第一个记录)，图像(1)。5.根据题意添加8个按钮创建工具栏通过ToolBar、ImageList组合使用建立工具栏，步骤：1.“MicrosoftWindowsCommonControls6.0”将控件添加到工具箱2.在ImageList控件中添加所需的图象3.在ToolBar控件中创建Button对象。4.在ButtonClick事件中用SelectCase语句对各按钮进行相应的编程。一、在ImageList控件中添加图象ImageList控件不单独使用，专门为其它控件提供图像库.索引（Index）、关键字（Key）在ToolBar中引用图象文件的扩展名为：.ico、.bmp、.gif、.jpg等二、在ToolBar控件中添加按钮1.为工具栏连接图象ToolBar与ImageList的连接工具栏样式2.为工具栏增加按钮索引（Index）、关键字（Key）每个按钮的编号、标识,ButtonClick事件中引用；图象(Image)ImageList对象中的图象值可以是Key或Index样式(Style)，共6种Style=0Style=3Style=4Style=1Style=2除菜单按钮(5)外的5种样式三、响应ToolBar控件事件ToolBar控件常用的事件有两个：ButtonClick和ButtonMenuClick。前者对按钮样式为0-2，后者对样式为5的菜单按钮。（1）用索引Index确定按钮(2)用关键字Key确定按钮PrivateSubToolbar1_ButtonClick(ByvalButtonAsComctlLib.Button)SelectCaseButton.IndexCase1FileNewProcCase2FileOpenProc……EndSelectEndSub注意：第1个按钮的Index值为1。用Index还是用Key比较，Key可读性好，可维护性好。SelectCaseButton.KeyCaseTNewFileNewProcCaseTOpenFileOpenProc.....加入数据连接控件1、数据连接控件（ADODC）ADODC控件（可以连接所有数据库）设置参数：Connection—选择数据库驱动程序和数据库名RecordSource—连接的数据源类型加入数据显示控件1、添加标签控件Label，说明显示内容；2、添加文本控件Text,先是数据库中的内容；3、根据数据库中表的属性内容，分别添加10个Label和9个Text。其中性别使用Checkbox控件。4、分别设置Text的Datasource(数据源属性)为Data或ADODC，DataField（数据域）为相应的表属性名。5、数据表格显示控件DataGridDataGrid控件的属性DataSource（数据源）属性此控件不能直接存取数据库中的数据，因此需将此属性设置成某一个ADODC控件，才能够具备存取数据库的能力。AllowAddNew（允许新增）属性AllowDelete（允许删除）属性AllowUpdate（允许更新）属性程序代码PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)Dimnews,oldSelectCaseButton.KeyCaseFirstAdodc1.Recordset.MoveFirstCasepreviousData1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveLastEndIfCasenextAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveFirstEndIf程序代码CaselastAdodc1.Recordset.MoveLastCaseaddAdodc1.Recordset.AddNewToolbar1.Buttons(delete).Enabled=FalseText1.SetFocus程序代码Casedelete'设置一个错误陷阱OnErrorResumeNextnews=MsgBox(一定要删除该记录吗？,vbYesNo)Ifnews=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfEndIf程序代码CasefindUnloadMefrmex27_frm2.ShowCaseexitMsgBox欢迎使用VB数据库应用程序，感谢各位用户的支持和厚爱！old=MsgBox(要退出该用于程序吗？,vbYesNo)Ifold=vbYesThenEndEndIfEndSelectEndSub进一步完善系统主界面建立菜单的步骤:建立窗体,添加控件;启动菜单编辑器(“工具”/“菜单编辑器”);设置各菜单项;为相应的菜单项添加编写事件过程.菜单显示区简单的编辑按钮属性设置菜单上的说明文字控件名称Caption将子菜单向上或下移一级菜单编辑器菜单列表框启动菜单编辑器：1、工具／菜单编辑器(CTRL+E)2、窗体上快显菜单／菜单编辑器菜单项属性常用属性：1.标题(Caption)热键：前面加&2.名称(Name)文本框分隔符也应有名称。3.快捷键(Shortcut)菜单名没有快捷键4.复选(Checked)检查框TRUE有5.有效(Enabled)检查框6.可见(Visible)检查框操作按钮弹出菜单(快捷菜单)显示在窗体的浮动菜单，操作时使用右键，菜单与鼠标位置有关。PopupMenu方法建立弹出菜单。形式：[对象.]PopupMenu菜单名,标志,x,y位置性能0：X位置确定弹出菜单的左边界0：只能用鼠标左键触发弹出菜单；4：弹出菜单以X为中心2：能用鼠标左、右键键触发弹出菜单；8：X位置确定弹出菜单的右边界位置与性能是加的关系。PrivateSubForm_Mouseup(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenPopupMenuEditPop,8,200,200EndIfEndSub表示弹出的位置和触发的键进一步完善登陆窗口PrivateSubcmdOK_Click()'测试密码是否正确IftxtPassword.Text=ThenOK=TrueMe.HideElseMsgBox密码错误，再试一次！,,登录txtPassword.SetFocustxtPassword.SelStart=0txtPassword.SelLength=Len(txtPassword.Text)EndIfEndSub附录：数据连接控件数据显示控件数据库连接控件Data控件（不能连接SQLServer）设置参数：Connect—数据库类型（如Access或Excel）DatabaseName—数据库的逻辑路径RecordSource—连接的数据库中的表名ADODC控件（可以连接所有数据库）设置参数：Connection—选择数据库驱动程序和数据库名RecordSource—连接的数据源类型ADODC数据控件的使用步骤:1.引用数据库控件引擎选取VB菜单的“工程/部件”命令，待出现“部件”对话框时，选取其中的MicrosoftADODataControl6.0(OLEDB)和MicrosoftDataGridControl6.0(OLEDB)选项。2.在窗体上布置一个ADODC控件，在ADODC上，单击鼠标右键，在快捷菜单中选取“ADODC属性”命令设置其属性。3.ADODC控件属性设置：在“属性页”设置通用选项（数据链接属性）。再在“属性页”设置记录源选项选取选取数据链接属性对话框OLEDB提供者数据链接属性对话框链接选择或输入数据库名称回到ADODC属性页，选取“记录源”选项，设置“命令类型”并选择具体的数据表。在窗体上布置DataGrid控件，然后将它的DataSource属性设置为“Adodc1”(这是ADODC控件的名称)。按F5执行程序ADODC的属性及参数ConnectionString(连接字符串)属性基本参数：provider和DataSourceProvider：制定存取数据库所使用的OLEDB驱动程序。DataSource：指定数据库文件的完整路径和文件名。CommandType（命令类型）属性adCmdTable（数据表）,adCmdText（指令）,adCmdStoredProc（存储过程）RecordSource（记录源）属性与数据库结构相关的对象VB针对数据库的组织结构提供了相应的对象。Field对象——字段Fields对象——数据记录Recordset对象——数据表AdodcRecordsetFieldsFieldRecordsetFields数据库服务器应用界面VBADODCSnoSnameSexBirthday101张力男1991-11-12102黎明女1992-01-18103王强男1991-05-09Field代码中引用属性的格式：Adodc1.RecordSet.Fields(0)Adodc1.RecordSet.Fields(“Sno”)方法说明MoveNext将当前数据记录移到下一条MovePrevious将当前数据记录移到上一条MoveFirst将当前数据记录移到第一条MoveLast将当前数据记录移到最后一条EOF当前数据记录是否在最后一条之后BOF当前数据记录是否在第一条之前Recordset对象的方法代码中R