低级问题

Question

procedure TForm4.FormCreate(Sender: TObject);
begin
  with TDataModule6 do
  begin
    with DataModule6.ADOQuery1 do  // 这里错
    begin
      Close;
      sql.Clear;
      sql.Add('select * from Tab_Address');
      open;
    end;
  end;
end;我已经引用了 DataModule6 所在单元  但是运行后还是出错: Access viodlation at address 004B58FC in module 'Project2.exe'
申明: 我用的是sqlserver 2000

Answer 1

  with TDataModule6 do/////////TdataModule6是什么？
  begin
    with DataModule6.ADOQuery1 do  // 这里错
    begin
      Close;
      sql.Clear;
      sql.Add('select * from Tab_Address');
      open;
    end;
  end;
end;------------>
procedure TForm4.FormCreate(Sender: TObject);
begin
   with DataModule6.ADOQuery1 do  // 这里错
    begin
      Close;
      sql.Clear;
      sql.Add('select * from Tab_Address');
      open;
    end;
end;

Answer 2

with TDataModule6 do//这个不要
  begin
    with DataModule6.ADOQuery1 do  // 这里错

Answer 3

procedure TForm4.FormCreate(Sender: TObject);
begin
 // with TDataModule6 do
 // begin
    with DataModule6.ADOQuery1 do  // 这里错
    begin
      Close;
      sql.Clear;
      sql.Add('select * from Tab_Address');
      open;
    end;
 /// end;
end;

Answer 4

Form4是什么？是主窗体么？DataModule6是在Form4前创建的么？最好不要放在FormCreate事件里。

Answer 5

Form4 不是主窗体..   DataModule6 是一个单独的 DataModule

Answer 6

工程中，是先创建的Form4吧？
放到FormShow事件里试试。