类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
我刚学DELPHI，朋友有没有一些数据库处理的模块供我参考，象登陆，删除，查询，修改，填加等
网友回答：
添加//把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