delphi7 dbgrid中加入COMBOBOX

在DBGrid 網 格 中 實 現 下 拉 列 表， 設 置 好DBGrid 中 該 字 段 的PickList 

字 符 串 列 表、 初 始 的 序 号 值DropDownRows 即 可。 以 職 工 信 息 庫 中 

的 籍 貫 字 段（ 字 符 串 類 型） 為 例， 具 體 設 計 步 驟 如 下： 

1、 在 窗 體 上 放 置Table1、DataSource1、DBGrid1、DBNavigator1 等 控 件 對 象，

按 下 表 設 置 各 個 對 象 的 屬 性:

---------------------------------------

對象       屬性         設定值

---------------------------------------

Table1       DataBase     sy1

             Table        zgk.dbf   //職工資訊庫

DataSource1 DataSet      Table1

DbGrid1      DataSource   DataSource1

DBNavigator1 DataSource   Datasource1

-------------------------------------------

2、 雙 擊Table1, 在 彈 出 的Form1.Table1 窗 口 中， 用 右 鍵 彈 出 快 捷 菜 單，

單 擊Add Fields 菜 單 項； 選 擇 所 有 的 字 段 後， 按OK 按 鈕。 

3、 修 改 第2 步 新 增 字 段 的DisplayLabel 屬 性。 以Table1ZGBH 字 段 為 例， 

在Object Inspector 窗 口 中 選 擇Table1ZGBH, 修 改 屬 性DisplayLabel= 職 工 編 

号， 其 餘 字 段 類 似。 

4、 雙 擊DBGrid1, 在 彈 出 的Editing DBGrid1.Columns 窗 口 中， 單 擊

Add all Fields 按 鈕， 增 加Table1 的 所 有 字 段。 

5、 在Editing DBGrid1.Columns 窗 口， 選 擇jg 這 一 行， 切 換 到

Object Inspector 窗 口， 修 改 它 的PickList.Strings 為“ 湖 北 枝 江 市

（ 換 行） 北 京 市（ 換 行） 河 南 平 頂 山 市（ 換 行） 浙 江 德 清 市” 

6、 在Form1.Oncreate 事 件 中 寫 入 語 句： 

Table1.Open; 

7、F9 運 行， 用 鼠 标 點 擊 某 個 記 錄 的 籍 貫 字 段， 右 邊 即 出 現 一 個

按 鈕， 點 擊 這 個 按 鈕， 可 出 現 一 個 下 拉 列 表， 包 含 第5 步 中 輸 入

的 四 行 字 符 串， 可 用 鼠 标 進 行 選 擇。 當 然 也 可 以 自 行 輸 入 一 個

并 不 屬 下 拉 列 表 中 的 字 符 串。