100分 请高手来 解决我的软件 《物品管理软件v1.1》 添加物品不成功 修改也不成功 代码如下：

Question

这个是我下的源代码 ：unit UfrmObjectIntore;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls, DBCtrls, RzDBNav, DB, RzCmboBx,
  RzDBCmbo, RzDBEdit, Mask, RzEdit, ADODB;type
  TfrmObjectIntore = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    StatusBar1: TStatusBar;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    DBNavigator1: TDBNavigator;
    Button4: TButton;
    RzDBEdit1: TRzDBEdit;
    RzDBEdit2: TRzDBEdit;
    RzDBEdit3: TRzDBEdit;
    RzDBEdit4: TRzDBEdit;
    RzDBDateTimeEdit1: TRzDBDateTimeEdit;
    ADOQueryType: TADOQuery;
    DataSourceType: TDataSource;
    RzDBLookupComboBox1: TRzDBLookupComboBox;
    RzDBEdit5: TRzDBEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure RzDBLookupComboBox1CloseUp(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  frmObjectIntore: TfrmObjectIntore;implementationuses UfrmObject,UObjectManagerDM;
{$R *.dfm}procedure TfrmObjectIntore.Button1Click(Sender: TObject);
begin
    try
       with frmObject.ADOQueryObject do
       begin
            Append;
       end;
       self.StatusBar1.Panels[1].Text:='请输入信息，并按‘保存入库’按钮保存信息！';
    except
       Exit;
    end;
       
end;procedure TfrmObjectIntore.Button2Click(Sender: TObject);
begin
    try
       with frmObject.ADOQueryObject do
       begin
            Post;
       end;
       self.StatusBar1.Panels[1].Text:='保存信息成功！';
    except
       Exit;
    end;
end;procedure TfrmObjectIntore.Button4Click(Sender: TObject);
begin
    try
       frmObject.Button3Click(frmObject.Button3);
       self.StatusBar1.Panels[1].Text:='删除信息成功！';
    except
       Exit;
    end;end;procedure TfrmObjectIntore.RzDBLookupComboBox1CloseUp(Sender: TObject);
begin
     if self.RzDBLookupComboBox1.Text='' then
        Exit; 
     self.RzDBEdit5.Text:=self.RzDBLookupComboBox1.Text;
end;procedure TfrmObjectIntore.FormCreate(Sender: TObject);
begin
     try
        with self.ADOQueryType do
        begin
             Close;
             Open;
        end;
     except
        Exit;
     end;
       
end;procedure TfrmObjectIntore.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
     try
        with self.ADOQueryType do
        begin
             Close;
        end;
     except
        Exit;
     end;
end;end.

Answer 1

暈倒...你是在DBGrid里直接加記錄.還是用Edit往里輸入的呢?如果是用Edit往里輸入的.那麼你要寫ADOQuery1.FieldByName('字段').AsString:=Edit1.text;要這樣之後..再Post才能添加的啊.

Answer 2

看代码你应该是用的RzDBXXX的数据感知控件
这类控件大部分在正确的关联了数据集的字段和每一个对应的感知控件后，是可以自动提交或手动调用Post提交数据的。
建议你看一下控件带的例子或教程，肯定有详细说明的。

Answer 3

procedure TfrmObjectIntore.Button2Click(Sender: TObject);
begin
    try
       with frmObject.ADOQueryObject do
       begin
            //这里应该有赋值语句的
             fieldbyName('字段名').asString:=trim(edit1.text);
             ..
             ..
            Post;
       end;
       self.StatusBar1.Panels[1].Text:='保存信息成功！';
    except
       Exit;
    end;
end;
建议你多看看以前不错的帖子

Answer 4

天哪，这就是代码啊，等于没看
小伙子，刚学编程吗？ 
改一下这里
try
       with frmObject.ADOQueryObject do
       begin
            Post;
       end;
       self.StatusBar1.Panels[1].Text:='保存信息成功！';
    except
      on e : exception do  ////看看报什么错
      begin
       showmessage(e.message);
       Exit;
      end; 
    end;

Answer 5

另外，你在try ...except ... end 里面加exit是什么意思？？？？？
后面又没有语句了啊
exit并不能阻止控件的afterpost事件发生，如果要组织的话就要用abort

Answer 6

procedure TfrmObjectIntore.Button1Click(Sender: TObject);
begin
       with frmObject.ADOQueryObject do
       Append; 
       self.StatusBar1.Panels[1].Text:='请输入信息，并按‘保存入库’按钮保存信息！';       
end;
直接这样就行了,还用什么异常处理呀!