修改问题？

Question

ysmstoneman(迪蜚)　(2002-1-27 19:26:58)  得0分 
先在Unit1里uses unit2;
我已经这样做了还是不行呀
 

Answer 1

对了，请问以下，我怀疑是那个mrOk的问题？mrOk是用的什么按钮

Answer 2

在unit1中，你只要加入
  table1.Append;
  form2.showmodal;
就够了，然后在unit2中加入
if form1.table1.CanModify then
//     table1.Edit;
   form1.table1.Post
   else
   begin
     form1.table1.Cancel;
     showmessage('buneng xiugai');
   end;
close; 
就Ok了

Answer 3

一下是我的完整代码：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, Grids, DBGrids, DBTables, StdCtrls;type
  TForm1 = class(TForm)
    Table1: TTable;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  table1.Append;
  form2.showmodal;{  if table1.CanModify then
  begin
//     table1.Edit;
     if form2.ShowModal=mrOk then
        table1.Post
     else
        table1.Cancel;
  end
  else
     showmessage('buneng xiugai'); }
end;end.
unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls;type
  TForm2 = class(TForm)
    Button1: TButton;
    DBEdit1: TDBEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;implementationuses Unit1;//uses unit1;{$R *.dfm}procedure TForm2.Button1Click(Sender: TObject);
begin
{if Form1.table1.CanModify then
   begin
     Form1.table1.Edit;
     if form2.ShowModal=mrOk then
        Form1.table1.Post
     else
        Form1.table1.Cancel;
   end
   else
     showmessage('buneng xiugai');}
if form1.table1.CanModify then
//     table1.Edit;
   form1.table1.Post
   else
   begin
     form1.table1.Cancel;
     showmessage('buneng xiugai');
   end;
close;     
end;end.