unit udecision;inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, teengine, series, mxdb, db, dbtables, mxtables, mxstore,
extctrls, teeprocs, chart, mxgraph, grids, mxgrid, stdctrls, comctrls,
mxpivsrc;
type
tfdecision = class(tform)
decisiongrid1: tdecisiongrid;
decisiongraph1: tdecisiongraph;
decisioncube1: tdecisioncube;
decisionsource1: tdecisionsource;
series10: tbarseries;
series11: tbarseries;
statusbar1: tstatusbar;
series2: tbarseries;
decisionpivot1: tdecisionpivot;
series3: tbarseries;
series4: tbarseries;
series5: tbarseries;
series6: tbarseries;
series7: tbarseries;
series8: tbarseries;
decisionquery1: tdecisionquery;
procedure formcreate(sender: tobject);
procedure decisiongrid1decisiondrawcell(sender: tobject; col,
row: integer; var value: string; var afont: tfont;
var acolor: tcolor; astate: tgriddrawstate;
adrawstate: tdecisiondrawstate);
procedure decisiongrid1decisionexaminecell(sender: tobject; icol, irow,
isum: integer; const valuearray: tvaluearray);
procedure decisiongrid1topleftchanged(sender: tobject);
private
public
end;
var fdecision: tfdecision;
implementation
procedure tfdecision.formcreate(sender: tobject);
begin
//開啟決策查詢元件
decisionquery1.open();
//設定決策網格的屬性
decisiongrid1.captioncolor :=rgb(0,255,0); //設定維標題的顏色 -green
decisiongrid1.labelcolor :=rgb(255,0,0); //設定欄位名稱的顏色--red
decisiongrid1.datacolor :=rgb(255,255,0);//陣列資料單元的顏色--yellow
decisiongrid1.datasumcolor :=rgb(255,0,255); //設定小計單元的顏色-pink
decisiongrid1.dimensions[2].color :=rgb(0,0,125);//設定第二維的顏色--bluｅ
//設定決策圖的背景色為白色
decisiongraph1.color :=rgb(255,255,255);
decisiongraph1.title.text.strings[0] :='動物資料';
end;
procedure tfdecision.decisiongrid1decisiondrawcell(sender: tobject; col,
row: integer; var value: string; var afont: tfont; var acolor: tcolor;
astate: tgriddrawstate; adrawstate: tdecisiondrawstate);
begin
//將決策網格資料區中的第3行的4列的單元的顏色設定為紫色
if (row=2) and (col=3) then
acolor := rgb(128,0,128);
end;
procedure tfdecision.decisiongrid1decisionexaminecell(sender: tobject; icol,
irow, isum: integer; const valuearray: tvaluearray);
var str:string;
begin
//利用狀態條顯示使用者右擊滑鼠所選擇的單元中的資料
if decisiongrid1.cells[icol,irow]<>'' then
begin
str := '滑鼠右擊所選擇的第'+inttostr(irow+1)+'行';
str :=str +'第'+inttostr(icol+1);
str :=str +'列的資料單元的資料為：'+ decisiongrid1.cells[icol,irow];
statusbar1.******text := str;
endelse
statusbar1.******text :='';
end;
procedure tfdecision.decisiongrid1topleftchanged(sender: tobject);
var rect:trect ;
str:string;
begin
rect := decisiongrid1.cellrect(3,2);
if rect.left =0 then
begin
statusbar1.******text :='決策網格第三行第四列的資料單元未顯示！';
exit;
end;
str :='決策網格第三行第四列的資料單元的座標為：(' ;
str :=str + inttostr(rect.left)+',';
str :=str + inttostr(rect.top)+',';
str :=str + inttostr(rect.right)+',';
str :=str + inttostr(rect.bottom)+')';
statusbar1.******text :=str;
end;
end.
組播的應用
組播技術指的是單個傳送者對應多個接收者的一種 網路通訊 組播 中較為典型的是採用 組播位址 的 ip組播 ipv6 支援單播 unicast 組播 multicast 以及 任意播 anycast 三種型別，ipv6中沒有關於廣播 broadcast 的具體劃分，而是作為組播的乙個典型型別。此外組播...
程序組的應用
題目 利用程序扇完成乙個小實驗。該程序扇有 1 個父程序和 3 個子程序，我們希望達到圖 1 中的效果，即將程序 0 父程序 和程序 1 設定成一組，假設為組 1，將程序 2 和 程序 3 設定成另乙個組，假設為組 2.另外，我們希望程序 0 和程序 2 分別是這兩個組的組長。測試 include ...
使用者與組的應用
引導流程過程 注意 安全問題 加電自檢 bootloader 載入核心 init 執行指令碼 登陸 1 允許任何人以單使用者模式登陸 給grub加口令 放到安全位置 2 etc passwd中 修改任何使用者的uid 0 哪些使用者可以使用哪些命令？zhs vi 通過設定目錄或檔案的訪問許可權 系統...