精通数据库系列之入门-本领篇3[MSSQL防范]

数据库编程示例

在本次讲座中,我们以Delphi5为开辟工具,尺度的paradox表为后台数据库,来向大家介绍若何举行最简单的数据库编程.在本例中,我们将实现对一个数据表单的增添、改正、删除以及对表中数据举行查询的功效.

本例所利用的计算机软硬件环境为:Windows NT 4.0 Server,Borland Delphi 5,PIII550,256M内存.当然啦,普通的朋友在Win98的环境下大概Win2000的环境下都可以按照本例的步骤来编程序的.笔者的机械主要用作服务器,所以就在服务器上编啦.废话少说,目前开始:

在正式编写程序之前要有很多预备工作,这当然包含Borland Delphi 5的安装.Delphi5自身带了对尺度数据表paradox的驱动（和一些fox系列数据库软件的.db文件是兼容的,这些文件都可以由Delphi直接读取）.

程序编写的第一步首先是数据表（即.db文件）的成立.在这一步要用到Delphi自带的一个工具叫Database Desktop.这个工具主要用来对表格举行操作,它不但可以操作像.db文件这样的尺度表格,还可以拜候像Oracle、sql server等大型数据库的文件,功效可以说是很强盛的.翻开Database Desktop,挑选File－New－Table,然后挑选paradox7,呈现以下界面:

在FieldName里面填写你要成立的表单的属性名称,如图所示,本例中要成立的是人员管理表,所以成立的属性为编号、姓名、性别、工作单位、工资、备注等.除工资之外的属性都是字符串范例,即图中Type项所挑选的A（Alpha）,而Size则是指的字符串的长度,属性值的长度是按照属性的具体意义来肯定的,比方"性别"挑选只有"男"和"女",一个汉字的长度,那么性别属性的长度设置成2便可以了（一个汉字等于两个字符的长度）.而工资属性是数值范例的,在paradox顶用Number来标志,即和前面对应的一个"N".属性设置完毕后,挑选Save As存盘.本例中,所成立的数据表格的存放途径和文件名为:D:\Program Files\Borland\Database Desktop\WorkDir\ryb.db（人员表）.

这样就完成了第一步,这一步只是编程之前的预备工作,也是背面针对这个表单编写数据库利用程序的底子.下面要举行的就是实际的程序编写了,请翻开Borland Delphi 5.

在缺省的Form1上安排这样一些控件（控件的位置就不用俺再罗嗦了吧?）:TdataBase、Ttable、TdataSourse、TdbGrid、Tlabel、TdbNavigator.按照你喜好的界面气势来安排这些控件,以下图本例中的控件安排:

下一步就是控件属性的设置啦,这一步也是本例中最关键的一步,因为很多网友对利用前端开辟工具对后台数据库举行编程对比陌生,也就是在这个地方.

我们将Tdatabase的DataBaseName属性设置成Mydb（这个名字可以随便起）,drivername为STANDARD（表明驱动的是paradox表）,params属性为path=D:\Program Files\Borland\Database Desktop\WorkDir（存放.db文件的途径,前面已经提到）,connected设为true（和数据表成立起衔接）,其他属性利用缺省值便可以了.

然后将Table的Databasename属性设为Mydb（即Database1的DataBaseName属性）,tablename为ryb.db（即数据表的名字）Active属性设置为True（翻开表单,便于编写程序）.

接着将Datasourse1的dataset属性设为为Table1(Ttable的name属性值).别的DBNavigator1和DbGrid1的datasourse属性都设为datasourse1.Tlabel的caption属性设为"数据库编程示例",如图所示（可以按照个人爱好改正字体,使它变得好看一些）. >这样控件的属性就设置完毕了,注意到dbgrid里面的"编号"、"姓名"等栏都是数据表中的属性,在ryb.db里面定义,而不是在前端的delphi程序里面定义.点击run按钮之后,这个简单的程序就运行了（见下图）. >这是通过Dbnavigator上的按钮便可以掌握对表单举行数据的增添、删除、改正了（将DbNavigator的ShowHint属性改成True的话可以在运行时看到各个按钮的提醒）.　

至此,我们实现了利用Delphi这种快速开辟工具编写简单的数据库利用程序, 细心的读者大概注意到了,到目前为止连一路程序都没有写,确切是这样,这就是第四代程序计划语言（可视化的编程语言）给我们带来的好处.当然啦,要编写对比复杂的程序不写代码是不大概的,下面我们将在上面的底子上实现查询的功效,并给大家附上源程序.在Form增添以下控件:一个Tquery、一个Tbutton、4个Tlabel、2个Tedit.并将Tlabel的属性举行下图所示的改正（新增添的控件都在黑色方框中）: 　

将Query1的DataBaseName属性也设置成MyDb（和Table一样）,SQL属性中写入Select* from ryb,RequestLive设为True（这样可以对Query里面的数据举行改正）,然后将Active属性设为True.最后将DataSourse1的DataSet属性改成query1（此时Table1控件可以从Form上去掉了）.

双击Button1,在程序编辑器里面写入以下代码:

Query1.close;

Query1.Sql.clear;

Query1.SQL.Add(Select * from ryb);

Query1.sql.add(where 姓名 like :xm and 工资 > :gz);

Query1.ParamByName(xm).asstring:=%+Edit1.text+%;

If (Edit2.text<>’’)then

Query1.ParamByName(gz).value:=strtofloat(Edit2.text);

Query1.prepare;

Query1.open; >

这样就完成了查询代码的编写,具体各条语句所引用的函数的含义大家可以参考Delphi的帮忙文档,在此就不作赘述了.别的在编写查询程序时,触及到一些关于数据库查询语言SQL的知识,在背面的文章中我们将有对比具体的介绍. >此时再履行这个程序,就编程的具有查询功效的数据库程序.在Edit1和Edit2中输入呼应的查询条件,然后点击Button1（肯定）,程序就履行呼应的查询操作,查询到的后果将在DBGrid1中显示.

到此为止,我们就实现了利用Borland Delphi5操作paradox数据表的程序示例,当然,这个程序是非常简单的,它实现的只是数据库操作的最基本功效.并且这个程序只是在单击环境下运行的,在计划的时刻,我们还不需求考虑一些比方并发性的问题.目前对比成熟的是在客户机/服务器构造下和浏览器/服务器下对数据库举行操作,并且随着网络功效的加入,很多新的问题也带入进来,在背面我们将举这方面的例子,请大家静候佳音吧! 　　以上是“精通数据库系列之入门-本领篇3[MSSQL防范]”的内容，如果你对以上该文章内容感兴趣，你可以看看七道奇为您推荐以下文章：