（3）Delphi的这段代码是干什么用的？每句大概什么意思？

第一个是查询大客户基础档案信息表中的数据
begin
ADOQuery1.Close; //关闭数据集
ADOQuery1.SQL.Add('Select * From 大客户基础档案信息表'); //给数据集添加sql查询语句
ADOQuery1.Open; //打开数据集进行查询
Str:=Edit1.text; //将edit1.text赋值给变量str
end;

第二个是给大客户基础档案信息表中添加数据
procedure TForm4.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;//关闭数据集
ADOQuery1.SQL.Add('insert 大客户基础档案信息表(ID,客户名,电话,邮箱,地址,VIP)values('Edit1.text','Edit2.text', 'Edit3.text','Edit4.text','Edit5.text','ComboBox1.text',)');
//给数据集添加sql插入语句
ADOQuery1.Open;//打开数据集进行插入数据
end;

你最好先欣赏一下 ADOQuery对象的用法，下面的就很好理解了

这一段是查询数据库的纪录

begin
ADOQuery1.Close;
ADOQuery1.SQL.Add('Select * From 大客户基础档案信息表');
ADOQuery1.Open;
Str:=Edit1.text;
end;

这一段是给数据库添加一个记录
procedure TForm4.Button1Click(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Add('inse