Есть форма, на которой расположены ADOConnection1, ADOQuery1, Грид и 2 лейбла и 3 кнопки. При создании формы в обработчике Create выполняется соединение и запрос, в сетку данные попададют. Это устраивает. по нажатии одной из кнопок в обработчике форма закрывается. если начать писать обработчик для другой кнопки, с участием адо компонент, то список свойств вообще не раскрывается (не раскрывается для любого компонента на форме). Т.е. из этого обработчика я не могу получить доступ к компонентам. Подскажите плиз.

Я, если честно, не знаю что такое Code Insight, могу объяснить так. Я к примеру пишу в свойстве OnCreate
///////////
try
ADOConnection1.Connected:=True;
ADOQuery1.open;
except
MessageDlg('Произошла ошибка подключения или выполнения запроса', mtError,
[mbOk], 0);
abort;
end;
///////////

Это работает.

В свойстве кнопки onclick я напишу ADOConnection1. а после точки список свойств не выпадает. Т.е. я даже не могу обратится не к одному объекту формы.

Вопр, походу снялся, я протупил.

unit Statistica;

interface

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

type
TForm1 = class(TForm)
MaskEdit1: TMaskEdit;
MaskEdit2: TMaskEdit;
Label1: TLabel;
Label2: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
DBGrid1: TDBGrid;
BitBtn3: TBitBtn;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation




{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
try
ADOConnection1.Connected:=True;
ADOQuery1.open;
except
MessageDlg('лалалала', mtError,
[mbOk], 0);
abort;
end;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
здесь затык.
end;

end.


Какие тут ошибки то. Походу просто не раскрывается список. Я написал Адоконнект.коннектион:=Фальц; ДбГрид очистился.

Да, кстати, компил проходит - приложение запускается.

Пишет Unable to Invoke Code Completion due to errors in source code

Спасибо тебе, JibSkeart.
Все равно не понятно где ошибка, весь проект состоит из одной формы (пока).
Ну вот скл запрос статический.

select [Workstations].[User_Name],
SUM ([Connections].[Bytes_Recv]),
[Sites].[Host_Name],
[Categories].[Category_Name]
from [Categories],[Sites],[Pages],[Workstations],[Connections]

where [Connections].[Workstation_Id]=[Workstations].[Workstation_Id]
AND [Connections].[Page_Id]=[Pages].[Page_Id]
AND [Pages].[Site_Id]=[Sites].[Site_Id]
AND [Categories].[Category_Id] = [Pages].[Category_Id]
group by [Workstations].[User_Name],[Sites].[Host_Name],[Categories].[Category_Name]
order by [Workstations].[User_Name]

Тока че он даст.