VB数据库开发

VB数据库开发-案例,数据库服务器,应用界面,VB应用程序,SQLServer,数据库访问接口VB数据库访问控件,数据库应用系统结构,主要内容,案例-一个教务管理系统的开发附录：数据库连接控件数据显示控件,案例教务管理系统的开发,实例目标首先创建一个名为“教务”的数据库，然后使用Vb程序浏览和访问数据库。技术要点静态查询和SQL语言的使用；使用ToolBar和ImageList控件制作工具栏。,实现步骤,创建数据库创建主窗体添加工具栏按钮控件：ToolBar和ImageList控件添加数据库连接控件添加数据显示控件编写代码,建立教务数据库,创建登陆模块,PrivateSubCommand1_Click()Ad1.RecordSource=team:Ad1.RefreshAd1.Recordset.MoveFirstAd1.Recordset.find姓名=+Text1.Text+IfAd1.Recordset.EOFThenx=MsgBox(没有该用户，重新输入吗？,vbYesNo,错误！)Ifx=vbYesThenExitSubElseEndEndIfIfAd1.Recordset.Fields(1)=Text2.TextThenUnloadForm1:Form2.Show:ExitSubx=MsgBox(密码错误，重新输入吗？,vbYesNo,错误！)Ifx=vbYesThenExitSubElseEndEndSub,创建主窗体,首先添加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种,除菜单按钮(5)外的5种样式,三、响应ToolBar控件事件ToolBar控件常用的事件有两个：ButtonClick和ButtonMenuClick。前者对按钮样式为0-2，后者对样式为5的菜单按钮。（1）用索引Index确定按钮(2)用关键字Key确定按钮,PrivateSubToolbar1_ButtonClick(ByvalButtonAsComctlLib.Button)SelectCaseButton.IndexCase1FileNewProcCase2FileOpenProcEndSelectEndSub注意：第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、数据表格显示控件DataGrid,DataGrid控件的属性,DataSource（数据源）属性此控件不能直接存取数据库中的数据，因此需将此属性设置成某一个ADODC控件，才能够具备存取数据库的能力。AllowAddNew（允许新增）属性AllowDelete（允许删除）属性AllowUpdate（允许更新）属性,程序代码,PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)Dimnews,oldSelectCaseButton.KeyCaseFirstAdodc1.Recordset.MoveFirstCasepreviousData1.Recordset.MovePreviousIfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveLastEndIfCasenextAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveFirstEndIf,程序代码,CaselastAdodc1.Recordset.MoveLastCaseaddAdodc1.Recordset.AddNewToolbar1.Buttons(delete).Enabled=FalseText1.SetFocus,程序代码,Casedelete设置一个错误陷阱OnErrorResumeNextnews=MsgBox(一定要删除该记录吗？,vbYesNo)Ifnews=vbYesThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLastEndIfEndIf,程序代码,CasefindUnloadMefrmex27_frm2.ShowCaseexitMsgBox欢迎使用VB数据库应用程序，感谢各位用户的支持和厚爱！old=MsgBox(要退出该用于程序吗？,vbYesNo)Ifold=vbYesThenEndEndIfEndSelectEndSub,进一步完善系统主界面,建立菜单的步骤:建立窗体,添加控件;启动菜单编辑器(“工具”/“菜单编辑器”);设置各菜单项;为相应的菜单项添加编写事件过程.,菜单显示区,简单的编辑按钮,属性设置,菜单上的说明文字,控件名称,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对象数据表,Adodc,Recordset,Fields,Field,Recordset,Fields,数据库服务器,应用界面VB,ADODC,SnoSnameSexBirthday张力男1991-11-12黎明女1992-01-18王强男1991-05-09,代码中引用属性的格式：Adodc1.RecordSet.Fields(0)Adodc1.RecordSet.Fields(“Sno”),Recordset对象的方法,代码中Recordset对象的方法使用格式：,Adodc1.RecordSet.MoveFirstAdodc1.RecordSet.MoveNextAdodc1.RecordSet.UpdateAdodc1.Refresh,Recordset方法还包括:插入记录操作:AddNew修改记录操作:Edit删除记录操作:Delete更新Recordset:Update更新ADODC的方法:Refresh,若要存取某个对象，必须从最上层的父对象向下指定路径。,Adodc1.Recordset存取Recordset对象Adodc1.Recordset.Fields存取Fields集合对象Adodc1.Recordset.fields(i)存取第I个Field对象,使用Vb传达SQL语句.,1、在设置ADODC控件时,CommandType属性设为1-adCmdText,RecordSource属性设为SQL语句。2、DataGrid控件时，属性设置不变。,ADODC数据源属性为SQL命令代码：,字符串连接运算符的使用：“+”连接的两个操作数必须为字符型变量“&”不管连接的两个操作数是什么类型，系统都先将操作数转换为字符型，然后再连接。当SQL条件子句含有属性名和属性值时：“属性名=属性值”/“专业=物理”当SQL条件子句属性值来源于变量时：“属性名=”&变量名&“”,数据显示控件,数据显示控件也称为数据感知控件。数据显示控件用