求助post怎么设置，保存对数据库的修改

2011-11-10 02:59:18 152 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

表单的修改在动态表单中，修改是一个必备的功能。修改比之新增要麻烦一点。修改需要三个步骤。 1：要先选中要需要修改的数据，然后弹出模态窗体。 2：我们需要在模态窗体中显示原有的数据。 3：我们需要将修改好的数据进行保存操作。在此之前，我们需要创建一个方法，并以双击的形式来调用这个事件。在上一篇《表单的新增与删除》中说把获取到的数据以字符串拼接的形式插入代码中。那么我们就可以在字符串拼接中插入一个双击事件并调用方法。在弹出模态窗体之前，我们需要在数据库中获取我们所选中这一行的数据，所以我们可以通过. 阅读详情

具体是我做了两个form
form1为主form 显示数据库 person表并包括添加修改删除保存 4个按钮
在点击添加修改会弹出form2
然后对 edit1 edit2 edit3 combobox1 填写内容后点击保存能将数据保存到数据库
现在对点击按钮的代码怎么写代码我贴出来 form2的
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ADODB;

type
TOperate = (otAdd, otEdit);
TForm2 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Label2: TLabel;
Edit2: TEdit;
Label3: TLabel;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
ComboBox1: TComboBox;
Label4: TLabel;
procedure Button1Click(Sender: TObject);
private
Fop: TOperate;
procedure InitWindow(Query: TADOQuery);
public
{ Public declarations }
end;

var
Form2: TForm2;

function ShowPersonInfo(Query: TADOQuery; op: TOperate): Boolean;

implementation
uses Unit1;
{$R *.dfm}

function ShowPersonInfo(Query: TADOQuery; op: TOperate): Boolean;
begin
with TForm2.Create(nil) do
try
Fop := op;
InitWindow(Query);
Result := ShowModal = mrOk;
finally
Free;
end;
end;

{ TForm2 }

procedure TForm2.Button1Click(Sender: TObject);
begin
Self.ModalResult :=mrOk;
ShowModal;
if ModalResult=mrOK then
begin
Query.edit;
Query.fieldbyname('XH').AsString:=edit1.Text; 这里显示Query未定义不知道怎么去做请各位前辈帮助
Query.Post;
end;
end;

procedure TForm2.InitWindow(Query: TADOQuery);
begin
if Fop = otAdd then
begin
这里是写插入部分的要怎么写
end;
if Fop = otEdit then
begin
// showmessage(Query.FieldByName('SNAME').AsString);
Edit1.Text := Query.FieldByName('XH').AsString;
Edit2.text := Query.FieldByName('SNAME').AsString;
Edit3.Text := Query.FieldByName('MARKS').AsString;
ComboBox1.items.insert(0,query.fieldbyname('SEX').AsString);
ComboBox1.ItemIndex:=0;
这里是写修改部分我写了一部分不知掉全不全
end;
end;

end.
总体上就这么多
小弟肯定各位大虾鼎力相助

...全文