delphi cxgrid 使用方法

delphi cxgrid 使用方法

1.繫結資料

方法cxgrid1dbtableview1.datacontroller.datasource:=datasource1

2.去掉"drag   a   column   header   here   to   group   by   that   column"

方法cxgrid1dbtableview1.optionsview.groupbybox置為false

3.去掉表頭下三角資料

方法cxgrid1dbtableview1.optionscustomize.columnfiltering置為false

4.增加序號

方法在dataset 裡邊增加 mycount 字段 型別為 string

在 cxgrid 增加顯示字段 序號 mycount

為該字段寫事件

procedure tfrm_form.redataset2mycountgettext(sender: tfield;

var text: string; displaytext: boolean);

begin

inherited;

text:=inttostr(redataset2.recno);

end;

將 序號 繫結 字段 mycount

5.cxgrid 增加一欄顯示checkbox

方法在dataset 裡邊增加 myselect欄位 型別為 boolean

在 cxgrid 增加顯示字段 選擇 select

設定select 欄位的properties為 checkbox .  readonly = false;

nullstyle = nssunchecked

procedure tfrm_form.cxgrid1dbtableview1cellclick(

sender: tcxcustomgridtableview;

acellviewinfo: tcxgridtabledatacellviewinfo; abutton: tmousebutton;

ashift: tshiftstate; var ahandled: boolean);

varrow: integer;

begin

inherited;

if acellviewinfo.item.name = 'mycheck' then

begin

row := cxgrid1dbtableview1.datacontroller.focusedrecordindex;

if cxgrid1dbtableview1.viewdata.records[row].values[0] = true then

cxgrid1dbtableview1.viewdata.records[row].values[0] := false

else

cxgrid1dbtableview1.viewdata.records[row].values[0] := true;

end;

end;

procedure tfrm_form.cxgrid1dbtableview1mouseup(sender: tobject;

button: tmousebutton; shift: tshiftstate; x, y: integer);

varrow: integer;

begin

inherited;

//單選

// for row:=0 to  cxgrid1dbtableview1.datacontroller.recordcount-1 do

// begin

//   cxgrid1dbtableview1.viewdata.records[row].values[0] := false;

// end;

//多選

if  cxgrid1dbtableview1.datacontroller.recordcount<>0 then

begin

row := cxgrid1dbtableview1.datacontroller.focusedrecordindex;

if cxgrid1dbtableview1.viewdata.records[row].values[0] = true then

cxgrid1dbtableview1.viewdata.records[row].values[0] := false

else

cxgrid1dbtableview1.viewdata.records[row].values[0] := true;

end;

end;

delphi cxgrid 使用方法

delphi cxgrid 使用方法 1.繫結資料 方法cxgrid1dbtableview1.datacontroller.datasource datasource1 2.去掉 drag a column header here to group by that column 方法cxgrid1...

dbms output put line使用方法

begin dbms output.put line a end 如果你是再sql plus中,只要再環境中打出 set serveroutput on 就可以了.還有一種方法 就是使用環境中的繫結變數也可以.再環境中定義 variable name varchar2 50 然後把過程新增乙個out...

sp addlinkedserver使用方法

exec sp droplinkedsrvlogin dbvip,null exec sp dropserver dbvip exec sp addlinkedserver server dbvip 被訪問的伺服器別名 srvproduct provider sqloledb datasrc ser...