我刚学DELPHI，朋友有没有一些数据库处理的模块供我参考，象登陆，删除，查询，修改，填加等

Question

我刚学DELPHI，朋友有没有一些数据库处理的模块供我参考，象登陆，删除，查询，修改，填加等

Answer 1

添加//把dmd.do1换成adoquery1,或adotable1一下同理
  begin
  dmd.do1.Append;
  dmd.do1.FieldByName('名称').AsString:=edit1.Text;
  dmd.do1.FieldByName('型号').AsString:=edit2.Text;
  dmd.do1.FieldByName('单位').AsString:=edit3.Text;
  dmd.do1.FieldByName('数量').Asfloat:=strtofloat(edit4.Text);
  dmd.do1.FieldByName('金额').Asfloat:=strtofloat(edit5.Text);
  dmd.do1.FieldByName('日期').AsString:=datetostr(now);
  dmd.do1.Post;
  dmd.do1.Refresh;
  dbgrid1.Refresh;
  end;
修改
procedure TswForm39.Button2Click(Sender: TObject);
begin
  dmd.do1.Edit;
  dmd.do1.FieldByName('单位').AsString:=edit3.Text;
  dmd.do1.FieldByName('数量').Asfloat:=strtofloat(edit4.Text);
  dmd.do1.FieldByName('金额').Asfloat:=strtofloat(edit5.Text);
  dmd.do1.FieldByName('日期').AsString:=datetostr(now);
  dmd.do1.Post;
  dmd.do1.Refresh;
  dbgrid1.Refresh;
end;
删除
adoquery1.delete;
查询（adoquery)
procedure TswForm8.Button1Click(Sender: TObject);
begin
dmd.do1.Close;
dmd.do1.SQL.Clear;
dmd.do1.SQL.Add('select * from swfaxf');
dmd.do1.SQL.Add('where 编号 like ''%'+edit1.Text+'%''');
dmd.do1.SQL.Add('or ID like ''%'+edit1.Text+'%''');
dmd.do1.SQL.Add('or 收件人姓名 like ''%'+edit1.Text+'%''');
dmd.do1.SQL.Add('order by ID DESC');
dmd.do1.Open;
dmd.do1.Refresh;
end;
adotable的查询用filter