省、市和地區詞典

如果可能的話，妳可以從省到門牌號。這是壹個非常簡單的問題。首先，在數據庫中準備壹張表，包括省、市、縣（市）、區（鄉鎮）、村（居委會、街道辦事處）、組（小巷）和門牌號。

在界面上獲得六個組合框1-6組件。

獲取另壹個ADODATEset組件並連接數據庫；

當界面顯示時，加載第壹個框並保存名稱。

程序t表格1。TabSheet2Show（發件人:to object）；

定義變量

I，j:word；

開始

ADODATAset。關閉；

ADODATAset。CommandText:=““；

ado dataset . commandtext:=‘從xzqhb中選擇不同的省‘；

ADODATAset。開放；

如果ADODATAset。記錄計數& gt那就0

開始

combobx 1。項目。清除；

for i:=0到ADODATAset。記錄計數-1 do

開始

combobox 1 . items . add（ado dataset . field values【‘province‘】）；

ADODATAset。接下來；

結束；

在combobox1的更新事件中，編寫加載城市的代碼。

程序t表格1。ComboBox1Change（發件人:to object）；

定義變量

I，j:word；

開始

ADODATAset。關閉；

ADODATAset。CommandText:=““；

ado dataset . commandtext:=‘Select Distinct from xzqhb where province =‘‘‘+combobox 1 . text+‘‘‘；

ADODATAset。開放；

如果ADODATAset。記錄計數& gt那就0

開始

combobox2。項目。清除；

for i:=0到ADODATAset。記錄計數-1 do

開始

combobo x2 . items . add（ado dataset . field values【‘city】）；

ADODATAset。接下來；

結束；

在combobox2的更新事件中，寫入裝貨縣（市）的代碼。

程序t表格1。ComboBox2Change（發件人:to object）；

定義變量

I，j:word；

開始

ADODATAset。關閉；

ADODATAset。CommandText:=““；

ado dataset . commandtext:=‘從xzqhb中選擇不同的縣（市），其中省=‘‘‘+combobox 1 . text+‘‘，市=‘‘‘‘+combobox 2 . text+‘‘‘；

ADODATAset。開放；

如果ADODATAset。記錄計數& gt那就0

開始

combobox3。項目。清除；

for i:=0到ADODATAset。記錄計數-1 do

開始

combobox 3 . items . add（ado dataset . field values【‘county（city）‘】）；

ADODATAset。接下來；

結束；

其他框自己寫，註意SQL語句的變化，尤其是where子句。