|
Cxgrid не отображает связанный DataSet
#39505578
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
|
Есть обертка:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
type
TfrmDM = class(TDataModule)
...
function TfrmDM.Select(const ASQLText: string; const AParamArray: array of TParamQuery): TMyQuery;
var
AQuery: TMyQuery;
begin
AQuery := TMyQuery.Create(nil);
try
AQuery.Close;
InitQuery(AQuery, ASQLText, AParamArray);
AQuery.Open;
except
FreeAndNil(AQuery);
raise;
end;
Result := AQuery;
end;
...
Есть форма:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
object MyQuery1: TMyQuery
Connection = frmDM.con
SQL.Strings = (
'SELECT * FROM C_QUESTION')
...
object DataSource1: TDataSource
DataSet = MyQuery1
..
object cxgrdbtblvwMainGrid1DBTableView1: TcxGridDBTableView
DataController.DataSource = DataSource1
Хочу отобразить запрос в гриде:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
unit UfrmTest;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, MemDS, DBAccess, MyAccess, cxGraphics, cxControls, cxLookAndFeels,
cxLookAndFeelPainters, cxStyles, dxSkinsCore, dxSkinsDefaultPainters,
dxSkinscxPCPainter, cxCustomData, cxFilter, cxData, cxDataStorage, cxEdit,
cxDBData, cxGridLevel, cxClasses, cxGridCustomView, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxGrid, StdCtrls;
type
TForm1 = class(TForm)
MyQuery1: TMyQuery;
cxgrdbtblvwMainGrid1DBTableView1: TcxGridDBTableView;
cxgrdlvlMainGrid1Level1: TcxGridLevel;
cxgrdMain1: TcxGrid;
MyQuery1QUESTION_ID: TIntegerField;
MyQuery1QUESTIONNAME: TStringField;
MyQuery1QUESTIONCODE: TStringField;
Button1: TButton;
DataSource1: TDataSource;
cxgrdbclmnMainGrid1DBTableView1QUESTION_ID: TcxGridDBColumn;
cxgrdbclmnMainGrid1DBTableView1QUESTIONNAME: TcxGridDBColumn;
cxgrdbclmnMainGrid1DBTableView1QUESTIONCODE: TcxGridDBColumn;
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses
UfrmDM;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(MyQuery1.RecordCount));
end;
procedure TForm1.FormShow(Sender: TObject);
begin
MyQuery1 := frmDM.Select(MyQuery1.SQL.Text, []);
DataSource1.DataSet := MyQuery1;
end;
end.
Вопрос почему без выделенной строчки грид не отображает данные, ведь данное свойстве указано в DesignTime ? |
|
|
