T
tullip
Unregistered / Unconfirmed
GUEST, unregistred user!
在QUERY中用SQL实现查询功能，如何将查询出的结果进行修改
1。在FROM中创建DataSource1、Query1、DBGrid1、Edit1、Edit2、Button1
2。DataSource1与Query1相连、DBGrid1与DataSource1相连。
3。Query1中的SQL的属性为：select * from claim_data
4。在Button1按钮中输入如下代码：
begin
query1.Close;{首先关闭query1}
query1.SQL.Clear;{置空SQL语句}
query1.SQL.Add('select *');
query1.SQL.Add('from claim_data');
query1.SQL.Add('where claim_data.部门=
1');
query1.ParamByName('p1').AsString:=edit1.Text;
query1.Prepare;{准备展开query1语句}
query1.Open;{展开}
{将查询出的字段显示在EDIT2中}
edit2.Text:=query1.fieldbyname('部门').asstring;
end;
5。在EDIT2中
事件写在onexit
procedure Tform1.Edit2exit(Sender: TObject);
begin
if ls<>edit2.text then //ls为全局变量
begin
query1.requestlive:=true;
query1.active:=true;
if query1.Locate('部门',ls,[]) then
begin
query1.Active:=true;
query1.Edit;
query1.FieldByName('部门').AsString:=edit2.text;
query1.Post;
end;
end;
end;
我主要想用Button1的按妞实现查询，然后在Button2按妞可以将查询出的数据写回数据库
中。我想问问，我这样写对不对，为什么我这样写了却不能修改。如果您有更好的方法请
告诉我，谢谢，请您将原代码付上，谢谢。在一次感谢你们。
1。在FROM中创建DataSource1、Query1、DBGrid1、Edit1、Edit2、Button1
2。DataSource1与Query1相连、DBGrid1与DataSource1相连。
3。Query1中的SQL的属性为：select * from claim_data
4。在Button1按钮中输入如下代码：
begin
query1.Close;{首先关闭query1}
query1.SQL.Clear;{置空SQL语句}
query1.SQL.Add('select *');
query1.SQL.Add('from claim_data');
query1.SQL.Add('where claim_data.部门=
1');query1.ParamByName('p1').AsString:=edit1.Text;
query1.Prepare;{准备展开query1语句}
query1.Open;{展开}
{将查询出的字段显示在EDIT2中}
edit2.Text:=query1.fieldbyname('部门').asstring;
end;
5。在EDIT2中
事件写在onexit
procedure Tform1.Edit2exit(Sender: TObject);
begin
if ls<>edit2.text then //ls为全局变量
begin
query1.requestlive:=true;
query1.active:=true;
if query1.Locate('部门',ls,[]) then
begin
query1.Active:=true;
query1.Edit;
query1.FieldByName('部门').AsString:=edit2.text;
query1.Post;
end;
end;
end;
我主要想用Button1的按妞实现查询，然后在Button2按妞可以将查询出的数据写回数据库
中。我想问问，我这样写对不对，为什么我这样写了却不能修改。如果您有更好的方法请
告诉我，谢谢，请您将原代码付上，谢谢。在一次感谢你们。