應用IBTable元件

2021-04-24 18:47:14 字數 1424 閱讀 5504

unit uib_table;


inte***ce


uses


windows, messages, sysutils, variants, classes, graphics, controls, forms,


dialogs, db, ibcustomdataset, ibtable, ibquery, dbtables, stdctrls,


grids, dbgrids, extctrls, dbctrls, ibdatabase, checklst;


type


tfib_table = class(tform)


ibtable1: tibtable;


button1: tbutton;


dbgrid1: tdbgrid;


datasource1: tdatasource;


ibdatabase1: tibdatabase;


ibtable2: tibtable;


datasource2: tdatasource;


dbgrid2: tdbgrid;


ibtransaction1: tibtransaction;


memo1: tmemo;


label1: tlabel;


label2: tlabel;


procedure formcreate(sender: tobject);


procedure button1click(sender: tobject);


private


public


end;


var  fib_table: tfib_table;


implementation


procedure tfib_table.formcreate(sender: tobject);


begin


ibtable1.open;


end;


//獲取ibtable1元件的索引，並將索引欄位名稱顯示在編輯框中


procedure tfib_table.button1click(sender: tobject);


var i:integer;


begin


ibtable1.active := false;


memo1.text :='';


ibtable1.indexdefs.update;


//獲取ibtable1元件的索引


for i := 0 to ibtable1.indexdefs.count - 1 do


begin


//將索引欄位名稱顯示在編輯框中


memo1.lines.add(ibtable1.indexdefs[i].fields)   ;


end;


ibtable1.active := true;


end;


end.

快應用 元件

自定義元件 為了更好的組織邏輯與 可以把頁面按照功能拆成多個模組，每個模組負責其中乙個功能部分，最後頁面將這些模組引入管理起來，傳遞業務與配置資料完成 分離 注意 自定義元件中資料模型只能使用data屬性，data型別可以是object 或 function 如果是函式，返回結果必須是物件 元件的引...

許可權元件應用

4.許可權元件的應用 1.拷貝rbac元件到新專案中，並且註冊 2.遷移資料庫 1.修改rbac使用者表 manytomanyfield 中 關聯寫上role 不要寫字串 class user models.model 使用者表 name models.charfield 使用者名稱 max len...

Jmeter BeanShell元件應用

什麼是beanshell beanshell是乙個小型嵌入式j a源 直譯器，具有物件指令碼語言特性，能夠動態地執行標準j a語法，並利用在j ascript和perl中常見的鬆散型別 命令 閉包等通用指令碼來對其進行拓展。前置處理器 請求傳送之前對請求引數做一些處理 後置處理器 請求傳送完成之後對...