//function說明:輸入一欄位數值,將所有相同欄位名稱一樣的數值,全部刪除

//適用於M/S 一對多TABLE使用

//使用元件說明

//有使用到LeftStr() 在 interface 的uses要增加StrUtils

//tmp: TADOQuery;
//ComboBox1: TComboBox;
//ComboBox2: TComboBox;
//DATAMODULE1.Con1: : TADOConnection;

FUNCTION DELETE_INDEX_KEY(INDEX_KEY:STRING):VARIANT;

VAR I,J:INTEGER;
STR1:STRING;
begin
RESULT:=TRUE;
DATAMODULE1.Con1.GetTableNames(SELF.ComboBox1.Items);

//取得table名稱紀錄於combobox1
FOR I:=0 TO COMBOBOX1.Items.Count -1 DO
BEGIN
COMBOBOX1.ItemIndex:=I;
STR1:=LEFTSTR(COMBOBOX1.Items.Strings[I],1);
IF STR1 <> '~' THEN

//因為有些資料庫會有系統暫存table,以"~"字元為開頭,不列入查詢範圍
BEGIN
DATAMODULE1.Con1.GetFieldNames(COMBOBOX1.Text,COMBOBOX2.Items);

//將combobox1.text的table名稱內的欄位名稱紀錄於combobox2
FOR J:=0 TO COMBOBOX2.Items.Count -1 DO
BEGIN
COMBOBOX2.ItemIndex:=J;
IF COMBOBOX2.Text='INDEX_KEY' THEN
BEGIN
TMP.Active:=FALSE;
TMP.SQL.Text:='DELETE FROM ' COMBOBOX1.Text ' WHERE INDEX_KEY=" ' INDEX_KEY ' " ';
TMP.ExecSQL;
END;
END;
END;
END;
end;

也可以將FUNCTION DELETE_INDEX_KEY(INDEX_KEY:STRING):VARIANT;

改為FUNCTION DELETE_INDEX_KEY(INDEX_KEY:STRING;Field_Name:STRING):VARIANT;

Field_Name設定為指定的欄位名稱

在IF COMBOBOX2.Text='INDEX_KEY' THEN部分

修改成IF COMBOBOX2.Text=Field_Name THEN

TMP.SQL.Text:='DELETE FROM ' COMBOBOX1.Text ' WHERE INDEX_KEY="' INDEX_KEY '"';
修改成

TMP.SQL.Text:='DELETE FROM ' COMBOBOX1.Text ' WHERE ' Field_Name '=" ' INDEX_KEY ' " ';

就變成指定欄位名稱與指定欄位值,將符合資料的table內的資料刪除