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;
