Go homepage(回首页)
Upload pictures (上传图片)
Write articles (发文字帖)

The author:(作者)aaa
published in(发表于) 2014/7/19 0:10:26
delphi向数据表中添加信息

向数据表中添加信息

1．用SQL语句INSERT INTO在数据表中添加记录

用SQL语句INSERT INTO可以在数据表中添加记录，用该语句添加数据时表中的字段应与关键字Values中的字段名相对应。使用TADOQuery组件可以用ParamByName方法将信息以参数的形式传递到SQL语句中，这样便于代码的修改，使编程结构更加清晰。

下面利用SQL语句INSERT INTO向数据表中添加信息。

操作步骤如下：

（1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDataSource、TButton、TMemo、TComboBox和TDBGrid等组件。

（2）主要程序代码如下：

if (Edit1.Text<>'')and(Edit2.Text<>'')and(ComboBox1.Text<>'') then

begin

with ADOQuery1 do

begin

Close;

SQL.Clear;

SQL.Add('Insert into MR_Table(id,name,Sex,memo)');

SQL.Add('Values(:A,:B,:C,:D)');

Parameters.ParamByName('A').Value:=Edit1.Text;

Parameters.ParamByName('B').Value:=Edit2.Text;

Parameters.ParamByName('C').Value:=ComboBox1.Text;

Parameters.ParamByName('D').Value:=Memo1.Lines.Text;

ExecSQL;

end;

end

else

showmessage('请将添加信息填写完整。');

2．用Insert方法在当前记录上添加新记录

对数据表添加记录时，可以使用TADOQuery组件的Insert方法来完成，在对字段设置别名后，在FieldByName方法中应使用别名，而不是表中的字段名。

下面利用TADOQuery组件的Insert方法向数据表中添加记录。

操作步骤如下：

（1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDataSource、TButton、TMemo、TComboBox和TDBGrid等组件。

（2）主要程序代码如下：

向数据表中添加记录。

with ADOQuery1 do

begin

Insert; //向表中添加记录

FieldByName('编号').AsInteger:=StrToInt(Edit1.Text);

FieldByName('姓名').AsString:=Edit2.Text;

FieldByName('性别').AsString:=ComboBox1.Text;

FieldByName('备注').AsString:=Memo1.Lines.Text;

Post;

end;

在窗体显示时，显示数据表中的信息。

with ADOQuery1 do

begin

Close;

SQL.Clear;

//为显示的数据表字段设置别名

SQL.Add('Select id as 编号,name as 姓名,sex as 性别,memo as 备注 from MR_Table');

Open;

end;

3．用Append方法在记录尾添加新记录

对数据表添加记录时，可以使用TTable组件的Append方法来完成，该方法是在数据尾添加一个新记录，并用FieldByName方法向相应字段中添加数据。

下面利用TADOQuery组件的Append方法在记录尾添加新记录。

操作步骤如下：

（1）运行Delphi，在窗体中添加TADOConnection、TADOQuery、TDataSource、TButton、TMemo、TComboBox和TDBGrid等组件。

（2）主要程序代码如下：

with Table1 do

begin

Append;

FieldByName('id').AsInteger:=StrToInt(Edit1.Text);

FieldByName('name').AsString:=Edit2.Text;

FieldByName('sex').AsString:=ComboBox1.Text;

FieldByName('memo').AsString:=Memo1.Lines.Text;

Post;

end;

赞