Delphi数据库应用实例
发布时间：2022-10-11 10:18:39 所属栏目：MySql教程 来源：
导读： Delphi 是具可视化界面的面向对象编程语言，它以其功能强大、简便易用等诸多特性，深受编程人员的欢迎。Delphi 中提供了数据库引擎 BDE(Borland Database Engine)，并内含众多的数据库调用构件，为编程人员开发客
|
Delphi 是具可视化界面的面向对象编程语言，它以其功能强大、简便易用等诸多特性，深受编程人员的欢迎。Delphi 中提供了数据库引擎 BDE(Borland Database Engine)，并内含众多的数据库调用构件，为编程人员开发客户/服务器应用程序提供了方便。通常情况下，利用 Delphi 开发数据库应用程序，可以使用TTable、TDataSource、TDBEdit、TDBNavigator等构件。只要正确设置了构件的某些属性，再编写必要的程序代码对一些特定事件进行处理，就能够完成对多种数据库进行的数据处理，例如：记录的输入、修改、删除和查询等。这样做虽然只需要编写极少量的程序代码就能达到很好的效果，但如果在程序设计过程中，某些数据表的结构发生了改变，则必须修改与此数据表有关的所有构件的属性，这将使程序员陷入繁琐的重复劳动中。 (一)用DELPHI实现将纯文本资料转入数据 在我们日常工作中，常会碰到这样一个难题：一大堆收集好的纯文本格式数据库实例，比较规整的资料怎样才能将它们分离，转到自己已经建好的数据库中进行管理呢？ 例如，有一段人事档案资料archive.txt，内容如下： 小许男21工程师 小吴女23助理工程师 小蔡男22助理工程师 小牟女22工程师 要将它转入数据库archive.dbf中，archive.dbf结构如下： 姓名，性别，年龄，职称 怎么办呢？现在通过使用delphi编程，很好地解决了这个难题。Delphi提供了许多功能强大，丰富的字符处理函数和过程，常用的有： (1)functionLength(S：String)：Integer //返回串的长度 (2)functionCopy(S：String；Index，Count：Integer)：String //给出一个字符串中串的拷贝 (3)functionPos(Substr：String；S：String)；Integer //查找子串在字符串中的位置 (4)ProcedureDelete(VarS：String；Index，Count：Inte?瞘er)； //从一个字符串中去除子串 利用Delphi提供的已有函数和过程基础上编制自己的三个函数，实现了纯文本格式资料转入数据库功能。只要Delphi支持的数据库都可以支持。 archive.txt中每行数据为一个字符串，字符串中每个被分割的数据为一个字段，分割每个字段的字符为分割符，这里是空格，也可以是，、；、#等符号。具体思想 是：先将字符串进行调整，然后把串中每个字符同分割符比较，将不是分割符的字符追加到MyStr串中，最后得到一个字段的内容。通过一个循环，就可以将一个字符串分 成几个字段。 FunctionRegulate(aString，Sepchar：string)：string //去掉多余的分割符，规范字符串 FunctionGetSubStr(varsString：string；SepChar：String)：String； //得到字符串中一个子串 //因要改变参数aString的值，所以将它用var定义。 FunctionGetSubStrNum(aString，SepChar：String)：Integer； //计算一个字符串要被分割成几个字段。 参数：aString是所需分割的一个字符串，SepChar是分割符。 FunctionRegulateStr(aString：String；Sepchar：String)：String； var i，Num：Integer； Flag：Boolean； MyStr，TempStr：String； begin Flag：=False；//进行标志，去除多余的分割符 Num：=Length(aString)；//计算aString串的长度 fori：=1toNumdo begin TempStr：=Copy(aString，i，1)；//取aString串中的一字符 if TempSt>=SepChar then begin MyStr：=MyStr+TempDtr； Flag：=True； end else if(Flag=True)then begin Mystr：=Mystr+TempSrt； Flag：=False； end； end； if MyStr[Length(MyStr)]>=SepChar then MyStr：=MyStr+SepChar； RegulateSrt：=MyStr； end； FunctionGetSubStr(varaString：String，SepChar：Strign)：String； var Mysrt：String； StrLen：Integer； SepCharPso：Integer； begin StrLen：=Length(aString)； SepCharPos：=Pos(SepChar，aString)；//计算分割符在子串中的位置 MyStr：=Copy(aString，1，SepCharPos-1)；//将分割符前所有字符放到mystr串中 Delete(aString，1，SepCharPos)；//除去分割符和分割符前的子串 GetSubStr：=MyStr；//返回一个字段 end； FunctionTforml.GetSubStrNum(aString：String；SepChar：String)：Integer； var i：Integer； StrLen：Integer； Num：Integer； begin StrLen：=Length(aString)； Num：=0； for i：=1 to StrLen do if Copy(aString，i，1)=SepChar then Num：=Num+1； GetSubSrtNum：=Num； end： 有了上面三个函数，现在介绍一下具体的应用： 1.首先建立一个窗体Forml，加入一个RichEditl(或Menol)，一个按钮Buttonl和一个Tablel，设置Tablel的属性： Tablell.DataBase=′c：\Archivs′ Tablell.TableName=′Archive.dbf′ 2.分别加入以下程序： ConstSpace:=′′ ProcedureTForml.FormCreate(Sender：Tobject)； begin RichRditl.Lines.LoadFromFile(′Archive.txt′)； end； ProcedureTForml.Button1Click(Sender：T object)； var i，j：Integer； MyLine：String； begin with Tablel do begin Open； for i：=0 to RichEditl.Lines.Count-1 do begin MyLine：=RegulateStr(Richeditl.Lines[i]，Space)； for j：=1 to Num To ken(MyLIne，Space) do begin Append； fileds[j-1].aString：=GetSubSrt(MyLine，Space))； post； end； end； end； end. （编辑：我爱资讯网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
站长推荐