求助确认按钮的代码怎么写

[xqlsaber]

我是做了个简单数据库
现在点击确认按钮保存我的修改能容
procedure TForm2.InitWindow(Query: TADOQuery);
begin
if Fop = otAdd then
begin
ADD1.
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;
相关代码是这个
还有那个ADD 添加里边的代码怎么写
谢谢

[bdmh]

ADD1.Append;

[xqlsaber]

[Quote=引用 1 楼 bdmh 的回复:]
ADD1.Append;
[/Quote]
我修改部分的功能代码写完了
然后就是点击butten1
实现对信息的保存
不知道怎么写
麻烦给个例子

[bdmh]

ADD1.Append;
ADD1.FieldByName('xx').AsString := 'xxxxx';
ADD1.Post;

[xqlsaber]

[Quote=引用 3 楼 bdmh 的回复:]
ADD1.Append;
ADD1.FieldByName('xx').AsString := 'xxxxx';
ADD1.Post;
[/Quote]
我把完整代码贴上来 请帮忙看下 怎么添加
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

{$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
此处加代码？？？？
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.

[nm_wyh]

这代码，整不明白，不知道想干什么？

[xqlsaber]

[Quote=引用 5 楼 nm_wyh 的回复:]
这代码，整不明白，不知道想干什么？
[/Quote]
就是一个form 包含 3个edit 1个combobox
添加内容
还有修改内容
完成后点击butten 能保存到数据库

[xqlsaber]

自己再顶一下

[skylkj]

button 事件里面添加:

Query.append;
Query.FieldByName('XH').AsString：=Edit1.Text;
Query.post;

3楼都给了你方法了，有你自己来顶得时间，认真琢磨琢磨网上查查早自己解决了。
明显学习方法有问题