各位大侠请帮我解决一各问题

[jackydeng1688]

unit FormDepartment;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls, DB, DBTables, ADODB;

type
TDepartment = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
DBGrid1: TDBGrid;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
Pane1: TPanel;
SpeedButton7: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure FormShow(sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Department: TDepartment;

implementation

uses FormManage;

{$R *.dfm}

procedure TDepartment.FormShow(sender: TObject);
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Text:='select dep,manager,tel,remark from mis_deplr';
adoquery1.Open;
end;

procedure TDepartment.SpeedButton1Click(Sender: TObject);
begin
edit1.Enabled:=true;
edit2.Enabled:=true;
edit3.Enabled:=true;
edit4.Enabled:=true;
edit1.SetFocus;
speedbutton1.Enabled:=false;
speedbutton2.Enabled:=false;
speedbutton3.Enabled:=false;
speedbutton4.Enabled:=true;
speedbutton5.Enabled:=true;
speedbutton6.Enabled:=false;
end;

procedure TDepartment.FormCreate(Sender: TObject);
begin
edit1.Enabled:=false;
edit2.Enabled:=false;
edit3.Enabled:=false;
edit4.Enabled:=false;
speedbutton4.Enabled:=false;
speedbutton5.Enabled:=false;
speedbutton7.visible:=false;

end;

procedure TDepartment.SpeedButton6Click(Sender: TObject);
begin
close;
end;

procedure TDepartment.SpeedButton2Click(Sender: TObject);
begin
edit1.Text:=ADOQuery1.Fieldbyname('dep').asstring;
edit2.Text:=ADOQuery1.Fieldbyname('manager').asstring;
edit3.Text:=ADOQuery1.Fieldbyname('tel').asstring;
edit4.Text:=ADOQuery1.Fieldbyname('remark').asstring;
edit1.enabled:=true;
edit2.enabled:=true;
edit3.enabled:=true;
edit4.enabled:=true;
speedbutton1.Enabled:=false;
speedbutton2.Enabled:=false;
speedbutton3.Enabled:=false;
speedbutton4.visible:=false;
speedbutton5.Enabled:=true;
speedbutton6.Enabled:=true;
speedbutton7.visible:=true;
end;

procedure TDepartment.SpeedButton5Click(Sender: TObject);
begin
edit1.text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit1.enabled:=false;
edit2.enabled:=false;
edit3.enabled:=false;
edit4.enabled:=false;
speedbutton1.Enabled:=true;
speedbutton2.Enabled:=true;
speedbutton3.Enabled:=true;
speedbutton4.Enabled:=false;
speedbutton4.visible:=true;
speedbutton5.Enabled:=false;
speedbutton6.Enabled:=true;
speedbutton7.visible:=false;
end;

procedure TDepartment.SpeedButton4Click(Sender: TObject);
begin
Edit1.Text:=Trim(Edit1.Text);
Edit2.Text:=Trim(Edit2.Text);
Edit3.Text:=Trim(Edit3.Text);
Edit4.Text:=Trim(Edit4.Text);
if edit1.text='' then
begin
MessageBox(0,'部门不能为空！','提示',MB_OK);
edit1.SetFocus;
Exit;
end;
if edit2.text='' then
begin
MessageBox(0,'管理者不能为空！','提示',MB_OK);
edit2.SetFocus;
Exit;
end;
if (ADOQuery1.Locate('dep',Edit1.Text,[loCaseInsensitive])=TRUE) and (ADOQuery1.Locate('manager',Edit2.Text,[loCaseInsensitive])=TRUE) then
BEGIN
MessageBox(0,'此记录已存在,请重新输入！','提示',MB_OK);
edit1.setfocus;
Exit;
end;
ADOQuery1.Edit;
ADOQuery1.Append;
ADOQuery1.FieldByName('dep').value:=Edit1.Text;
ADOQuery1.FieldByName('manager').value:=Edit2.Text;
ADOQuery1.FieldByName('tel').value:=Edit3.Text;
ADOQuery1.FieldByName('remark').value:=Edit4.Text;
edit1.text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit1.enabled:=false;
edit2.enabled:=false;
edit3.enabled:=false;
edit4.enabled:=false;
speedbutton1.Enabled:=true;
speedbutton2.Enabled:=true;
speedbutton3.Enabled:=true;
speedbutton4.Enabled:=false;
speedbutton5.Enabled:=false;
speedbutton6.Enabled:=true;

end;

procedure TDepartment.SpeedButton3Click(Sender: TObject);
begin
if MessageDlg('确实要删除吗？', mtConfirmation, [mbYes, mbNo], 0)=mrNo then exit;
ADOQuery1.Delete;
end;
end.
各位大侠请帮我解决一各问题,以上是我写的一个信息录入、删除、修改模块，现在是当我在模块中增加记录时（点击保存）在DBGrid控件中能看到增加的记录，但当我退出该模块再进入时，该记录就没有了，在数据表中也看不到（也就是说根本就没有增加该记录），请问是什么原因？是代码问题还是控件属性设置问题？（因开始写完时是可以的，后来我不知更改了什么地方就不行了）

[wdswcy]

....
ADOQuery1.Append;
ADOQuery1.FieldByName('dep').value:=Edit1.Text;
ADOQuery1.FieldByName('manager').value:=Edit2.Text;
ADOQuery1.FieldByName('tel').value:=Edit3.Text;
ADOQuery1.FieldByName('remark').value:=Edit4.Text;
//在此处应加以下语句
ADOQuery1.post;
.....

[zhuojohn]

缺少ADOQuery1.Post语句
Post实际写入数据到DB

[thebestofbest]

对头