Como usar QuantumGrid 4 ???
Pessoal,
Alguém já usou a Quantum Grid???Como posso inserir dados no segundo nível da QuantumGrid???
Ex:
+ ddddd } Level 1
cccccc rrrrrr kkkkk } Level 2
sssssss eeeee tttttttt } Level 2
+ ggggg } Level 1
+ www } Level 1
Obrigado,
Fergos
Alguém já usou a Quantum Grid???Como posso inserir dados no segundo nível da QuantumGrid???
Ex:
+ ddddd } Level 1
cccccc rrrrrr kkkkk } Level 2
sssssss eeeee tttttttt } Level 2
+ ggggg } Level 1
+ www } Level 1
Obrigado,
Fergos
Fergos
Curtidas 0
Respostas
Espiridiao
04/04/2003
Oi,
eu utilizo a quantum grid mas não percebi o que tu quer fazer, pois so á referencia ao Level e não á view.
eu utilizo a quantum grid mas não percebi o que tu quer fazer, pois so á referencia ao Level e não á view.
GOSTEI 0
Fergos
04/04/2003
Jorge,
Eu estou usando arquivo de texto(ficheiro - Text File).
Meu problema é que eu não consigo inserir dados no segundo nível(Level),
ou seja, eu coloquei no form uma TcxGrid e nela eu adicionei dois Levels
tvMaster e um level no tvMaster(TcxGridTableView), o tvDetail(TcxGridTableView). Eu consigo inserir dados no primeiro level(tvMaster), mas não consigo enteder como acessar no segundo Level (tvDetail).
Enviando o código do acesso aos levels:
unit QGrid;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxEdit,
DB, cxDBData, StdCtrls, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls,
cxGridCustomView, cxGrid, cxContainer, cxTextEdit, cxDataStorage;
type
TForm1 = class(TForm)
cxGrid1: TcxGrid;
cxGrid1Level1: TcxGridLevel;
tvMaster: TcxGridTableView;
cxGrid1Level2: TcxGridLevel;
tvDetail: TcxGridTableView;
tvMasterColumn1: TcxGridColumn;
tvMasterColumn2: TcxGridColumn;
tvMasterColumn3: TcxGridColumn;
tvDetailColumn1: TcxGridColumn;
tvDetailColumn2: TcxGridColumn;
Button1: TButton;
Button2: TButton;
btnAtribuiLevel1: TButton;
btnAtribuiLevel2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure btnAtribuiLevel1Click(Sender: TObject);
procedure btnAtribuiLevel2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
tvMaster.Columns[0].DataBinding.ValueTypeClass := TcxIntegerValueType;
tvMaster.Columns[1].DataBinding.ValueTypeClass := TcxIntegerValueType;
tvMaster.DataController.RecordCount := tvMaster.DataController.RecordCount + 1;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
tvDetail.Columns[0].DataBinding.ValueTypeClass := TcxIntegerValueType;
tvDetail.Columns[1].DataBinding.ValueTypeClass := TcxIntegerValueType;
tvDetail.DataController.RecordCount := tvDetail.DataController.RecordCount + 1;
end;
procedure TForm1.btnAtribuiLevel1Click(Sender: TObject);
begin
tvMaster.DataController.Values[0,0] := 1;
tvMaster.DataController.Values[0,1] := 2;
end;
procedure TForm1.btnAtribuiLevel2Click(Sender: TObject);
begin
tvDetail.DataController.Values[0,0] := 4;
tvDetail.DataController.Values[0,1] := 5;
end;
end.
Obrigado,
Fergos
Eu estou usando arquivo de texto(ficheiro - Text File).
Meu problema é que eu não consigo inserir dados no segundo nível(Level),
ou seja, eu coloquei no form uma TcxGrid e nela eu adicionei dois Levels
tvMaster e um level no tvMaster(TcxGridTableView), o tvDetail(TcxGridTableView). Eu consigo inserir dados no primeiro level(tvMaster), mas não consigo enteder como acessar no segundo Level (tvDetail).
Enviando o código do acesso aos levels:
unit QGrid;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxEdit,
DB, cxDBData, StdCtrls, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls,
cxGridCustomView, cxGrid, cxContainer, cxTextEdit, cxDataStorage;
type
TForm1 = class(TForm)
cxGrid1: TcxGrid;
cxGrid1Level1: TcxGridLevel;
tvMaster: TcxGridTableView;
cxGrid1Level2: TcxGridLevel;
tvDetail: TcxGridTableView;
tvMasterColumn1: TcxGridColumn;
tvMasterColumn2: TcxGridColumn;
tvMasterColumn3: TcxGridColumn;
tvDetailColumn1: TcxGridColumn;
tvDetailColumn2: TcxGridColumn;
Button1: TButton;
Button2: TButton;
btnAtribuiLevel1: TButton;
btnAtribuiLevel2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure btnAtribuiLevel1Click(Sender: TObject);
procedure btnAtribuiLevel2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
tvMaster.Columns[0].DataBinding.ValueTypeClass := TcxIntegerValueType;
tvMaster.Columns[1].DataBinding.ValueTypeClass := TcxIntegerValueType;
tvMaster.DataController.RecordCount := tvMaster.DataController.RecordCount + 1;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
tvDetail.Columns[0].DataBinding.ValueTypeClass := TcxIntegerValueType;
tvDetail.Columns[1].DataBinding.ValueTypeClass := TcxIntegerValueType;
tvDetail.DataController.RecordCount := tvDetail.DataController.RecordCount + 1;
end;
procedure TForm1.btnAtribuiLevel1Click(Sender: TObject);
begin
tvMaster.DataController.Values[0,0] := 1;
tvMaster.DataController.Values[0,1] := 2;
end;
procedure TForm1.btnAtribuiLevel2Click(Sender: TObject);
begin
tvDetail.DataController.Values[0,0] := 4;
tvDetail.DataController.Values[0,1] := 5;
end;
end.
Obrigado,
Fergos
Oi,
eu utilizo a quantum grid mas não percebi o que tu quer fazer, pois so á referencia ao Level e não á view.
GOSTEI 0