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...