//利用combobox元件查詢資料庫表
procedure tform1.button1click(sender: tobject);
begin
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from '+trim(combobox2.text));
adoquery1.active:=true;
end;
//查詢記錄
procedure tform1.button1click(sender: tobject);
begin
adoquery.close;
adoquery.sql.clear;
adoquery.sql.add('select * from yourtable where 查詢條件');
adoquery.open;
//日期查詢
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from 全院收入表 where ks_name=:a and 費用類別=:b and 費用日期》=:d and 費用日期<=:e');
adoquery1.parameters.parambyname('a').value:=trim(combobox1.text);
adoquery1.parameters.parambyname('b').value:=trim(combobox2.text);
'c').value:=trim(combobox3.text);
adoquery1.parameters.parambyname('d').value:=datetostr(datetimepicker1.date);
adoquery1.parameters.parambyname('e').value:=datetostr(datetimepicker2.date);
adoquery1.active:=true;
//插入記錄
procedure tform1.button2click(sender: tobject);
begin
adoquery.close;
adoquery.sql.clear;
adoquery.sql.text:='insert into yourtable(欄位1,欄位2) values(:欄位1,:欄位2)';
// adoquery.sql.add('insert into yourtable values(:欄位1)');
adoquery.parameters.parambyname('欄位1').value:=trim(edit1.text);
adoquery.parameters.parambyname('欄位2').value:=trim(edit2.text);
adoquery.execsql;
end;
//刪除記錄
procedure tform1.button3click(sender: tobject);
begin
adoquery.close;
adoquery.sql.clear;
adoquery.sql.text:='delete from yourtable where 欄位3=:欄位3';
//這裡沒有新增where的條件判斷,實際使用時,注意新增判斷
// adoquery.sql.add('delete from new_table where 欄位3=:欄位3');
adoquery.parameters.parambyname('欄位3').value:=trim(edit3.text);
adoquery.execsql;
//刪除記錄也可用deleterecords()函式
procedure deleterecords(affectrecords: taffectrecords = arall);
這個函式有乙個引數:affectrecords可以取如下的值:
1、arcurrent :刪除當前記錄
2、arfiltered :刪除符合filter過濾後的所有記錄(如果你使用filter過濾的話)
3、arall :刪除所有記錄
4、arallchapters :delete affects all chapters(ado chapters)
//修改記錄
procedure tform1.button4click(sender: tobject);
begin
adoquery.close;
adoquery.sql.clear;
adoquery.sql.text:='update yourtable set 欄位4=:欄位4';
//這裡沒有新增where的條件判斷,實際使用時,注意新增判斷
// adoquery.sql.add('update yourtable set 欄位4=:欄位4');
adoquery.parameters.parambyname('欄位4').value:=trim(edit4.text);
adoquery.execsql;
//即時更新插入、刪除、修改後的記錄
在上面插入、刪除、修改的語句後新增如下**即可:
adoquery.close;
adoquery.sql.add('select * from yourtable where 查詢條件');
adoquery.open;
//使用adoquery時注意:
1、如果你需要更改資料,query.requestlive必須為true
2、如果有輸入引數的時候,容易出錯,通常的錯法是這樣:
比如:「where abc = : abc」
改正如下:「where abc=:abc」就是說=:前後都不能留空格。
3、adoquery.open與adoquery.execsql 有不同之處。
adoquery.open一般用在查詢,select時候;而adoquery.execsql用在insert,delete,update等。
單鏈表初始化,頭插,尾插,查詢,刪除
include using namespace std include 單鏈表的儲存結構 typedef struct node node,linklist 初始化單鏈表 void initlist l next null 建立空的單鏈表 l是帶頭結點的空煉表頭指標,通過鍵盤輸入表中元素值,利用頭插...
DataTable查詢 修改 刪除
我們在使用datatable的時候,如何在記憶體上對其進行增刪改呢?1 先例項化乙個datatable datatable dt new datatable 2 為其增加列 dt.columns.add id dt.columns.add name 3 查詢資料 通過唯一標識找到對應行 dataro...
查詢 插值查詢
插值查詢 插值查詢法的演算法思想 插值查詢法其實就是折半查詢法的加強優化版,它對mid的演算法進行了重新的規定,使此查詢法的效率更高。mid low high low key a low a high a low 插值查詢法的演算法可描述如下 int search keytype key,int n...