知识大全简单数据库应用的创建及MASTAPP介绍（三）[2]

Posted 2022-07-21 数据库

篇首语：健儿须快马，快马须健儿。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全简单数据库应用的创建及MASTAPP介绍（三）[2]相关的知识，希望对你有一定的参考价值。

DELPHI基础教程：简单数据库应用的创建及MASTAPP介绍（三）[2] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　程序清单修改数据库中的记录

　　unit Unit ;

　　interface

　　uses

　　Windows Messages SysUtils Classes Graphics Controls Forms

　　Dialogs StdCtrls Grids DBGrids ExtCtrls DB DBTables Buttons;

　　type

　　TForm = class（TForm）

　　DataSource : TDataSource;

　　customerTable: TTable;

　　Panel : TPanel;

　　DBGrid : TDBGrid;

　　Panel : TPanel;

　　UpperCaseFirstAddBtn: TButton;

　　UpperCaseSecondAddBtn: TButton;

　　MixedCaseFirstAddBtn: TButton;

　　MixedCaseSecondAddBtn: TButton;

　　BitBtn : TBitBtn;

　　procedure ForceCase（TargetField:String;ToUpper:Boolean）

　　procedure UpperCaseFirstAddBtnClick（Sender: TObject）

　　procedure MixedCaseFirstAddBtnClick（Sender: TObject）

　　procedure UpperCaseSecondAddBtnClick（Sender: TObject）

　　procedure MixedCaseSecondAddBtnClick（Sender: TObject）

　　procedure FormCreate（Sender: TObject）

　　private

　　 Private declarations

　　public

　　 Public declarations

　　end;

　　var

　　Form : TForm ;

　　implementation

　　const

　　upper=true;

　　Mixed=False;

　　$R * DFM

　　Function IsUpper（ch:char） Boolean;

　　begin

　　If （ch>= A ）and（ch<= Z ）then

　　IsUpper:=true

　　else

　　IsUpper:=False;

　　end;

　　procedure TForm ForceCase（TargetField:String;ToUpper:Boolean）

　　var

　　WorkBuffer:string;

　　i:Integer;

　　begin

　　with customerTable do

　　begin

　　DisableControls;

　　TRY

　　First; 将记录指针移到第一条记录处

　　While not EOF do

　　begin

　　WorkBuffer:=FieldByName（TargetField） AsString;

　　If ToUpper then

　　for i:= to Length（WorkBuffer）do

　　WorkBuffer[i]:=UpCase（WorkBuffer[i]）

　　else

　　begin

　　for i:= to Length（WorkBuffer） do

　　If IsUpper（WorkBuffer[i]） then

　　WorkBuffer[i]:=chr（ord（WorkBuffer[i]）+ ）

　　WorkBuffer[ ]:=UpCase（WorkBuffer[ ]）

　　end;

　　Edit;

　　FieldByName（TargetField） AsString:=WorkBuffer;

　　post;

　　Next;

　　end;

　　Finally

　　enableControls;

　　end;

　　procedure TForm UpperCaseFirstAddBtnClick（Sender: TObject）

　　begin

　　ForceCase（ Addr Upper）

　　end;

　　procedure TForm MixedCaseFirstAddBtnClick（Sender: TObject）

　　begin

　　ForceCase（ Addr Mixed）

　　end;

　　procedure TForm UpperCaseSecondAddBtnClick（Sender: TObject）

　　begin

　　ForceCase（ Addr Upper）

　　end;

　　procedure TForm MixedCaseSecondAddBtnClick（Sender: TObject）

　　begin

　　ForceCase（ Addr Mixed）

　　end;

　　procedure TForm FormCreate（Sender: TObject）

　　begin

　　customerTable open;

　　end;

　　end

　　 插入和删除记录

　　虽然我们使用DBD或者在应用程序窗体中用TDBNavigator可以插入删除表中的记录但是任何重要的数据库应用程序都是根据最终用户的命令完成此类操作的同样如果我们掌握了字段对象及其用法修改数据库中的记录插入和删除记录将变得非常容易

cha138/Article/program/Delphi/201311/25168

知识大全 简单数据库应用的创建及MASTAPP介绍（三）[2]

知识大全简单数据库应用的创建及MASTAPP介绍（三）[2]