delphi中对用户输入数据控制.pdfVIP

Delphi中对用户输入数据的控制

一个数据库应用程序，常常需要提供数据输入功能，即让用户输入数据，并存入数据库中，这就涉及到一个数据输入是否合法的问题。若用

PowerBuilder来编写这种程序，实现这一点是非常方便的，因为PowerBuilder中每一个数据输入控件都可以单独对其输入进行控制，但

Delphi没有提供这样的功能。我们用Delphi编写这样的程序时，就需要自己编写一些代码来实现。这并不是Delphi的一个缺点，相反，我们通

过对用户输入数据的人为控制，可以编写出相当方便可靠的数据库应用程序。下面举一个很常见的例子加以说明。

也许大家在编写数据库程序时遇到过这种情况：库中一些字段必须是非空的，比如索引字段，但用户输入时可能会忘记，如果对这种情况不

作出提示，仍旧将这条记录存入库中，就会破坏库的完整性，而且在排序、查找等操作中也会出错。于是我们就要对这种情况加以控制。举

例如下：

立一个简单的数据库，设名为People.dbf，别名为man，库结构如表1。表1字段名类型长度namec8agen3workc10

二、创建一个工程。

三、在Form1中放入如下控件，并设定其属性如表2。

四、定义一个布尔类型的数组，作为三个DbEdit框中是否有数据输入的标志。

implementation

var

test:array[1..3]ofboolean;

{＄R＊.DFM}

五、编写Dbedit1、DbEdit2、DbEdit3的OnExit代码如下：

procedureTForm1.DBEdit1Exit(Sender:TObject);

begin

ifDbEdit1.text=′′then{若要进行更精确的控制，在这里可以填写代码}

est[1]:=false

lsetest[1]:=true;

end;

procedureTForm1.DBEdit2Exit(Sender:TObject);

begin

ifDbEdit2.text=′′then

test[2]:=false

lsetest[2]:=true;

end;

procedureTForm1.DBEdit3Exit(Sender:TObject);

begin

ifDbEdit3.text=′′then

est[3]:=false

lsetest[3]:=true;

end;

六、编写Button1的Onclick代码如下：

procedureTForm1.Button1Click(Sender:TObject);

vari:integer;

begin

i:=1;

whiletest[i]and(i=3)do{检测test数组元素是否为真}

i:=i＋1;

ifi=3then{有数据输入为空的情况}

beginshowmessage(′数据未完全录入′);{提示}

caseiof

1:DbEdit1.Setfocus;

2:DbEdit2.Setfocus;

3:DbEdit3.Setfocus