輸入地址欄位全自動取得台灣郵政及電話區號 |
|
|
|
banson1716
高階會員   發表：55 回覆：182 積分：167 註冊：2002-04-14 發送簡訊給我 |
輸入地址欄位資料自動取得台灣郵政及電話區號 ADO開發--程式如下----台灣全省郵政及電話區號資料庫密碼: 1617 procedure TForm1.SetPost_Tel(Sender: TObject);
Begin
SZip:= '';
if((Copy(Edit1.Text,3,2)='縣')and
(Copy(Edit1.Text,9,2)='市'))then
begin
SZip:= _Left(Edit1.Text,10);
end
else
if((Copy(Edit1.Text,5,2)='縣')and
(Copy(Edit1.Text,11,2)='市'))then
begin
SZip:= _Left(Edit1.Text,12);
end
else
if((Copy(Edit1.Text,5,2)='市')and
(Copy(Edit1.Text,9,2)='區')and
(Copy(Edit1.Text,11,2)<>'區'))
then
begin
SZip:= _Left(Edit1.Text,10);
end
else
if((Copy(Edit1.Text,5,2)='市')and
(Copy(Edit1.Text,9,2)<>'區')and
(Copy(Edit1.Text,11,2)='區'))Then
begin
SZip:= _Left(Edit1.Text,12);
end
else
if((Copy(Edit1.Text,5,2)='市')and
(Copy(Edit1.Text,9,2)<>'區')and
(Copy(Edit1.Text,11,2)<>'區'))Then
begin
SZip:= _Left(Edit1.Text,6);
end
else
if(Copy(Edit1.Text,5,2)='鎮')Then
begin
SZip:= _Left(Edit1.Text,6);
end
else
if(Copy(Edit1.Text,5,2)='縣')and
(Copy(Edit1.Text,11,2)='鎮')Then
begin
SZip:= _Left(Edit1.Text,12);
end
else
if(Copy(Edit1.Text,5,2)='縣')and
(Copy(Edit1.Text,11,2)= '鄉')Then
begin
SZip:= _Left(Edit1.Text,12);
end
else
if(Copy(Edit1.Text,5,2)='縣')and
(Copy(Edit1.Text,11,2)= '鎮')Then
begin
SZip:= _Left(Edit1.Text,12);
end
else
exit;
End; procedure TForm1.ExecuteFilter;
begin
with ADOQuery1 do
begin
if sZip ='' then
begin
Filtered:= False;
Filter:= '';
end
Else
begin
Adoquery1.Active:=false;
Adoquery1.Close;
Adoquery1.SQL.Clear;
ADOQuery1.SQL.Append('select 地名, 郵政區號, 電話區號 from 郵政電話 where 地名 like "' sZip '%" ORDER BY 地名');
Adoquery1.Active:=true;
end;
end;
end; procedure TForm1.GetPost_Tel(Sender: TObject);
Begin
Edit2.Text:='';
Edit3.Text:='';
try
SetPost_Tel(Sender);
if SZip ='' then exit;
ExecuteFilter;
Edit2.Text:= ADOQuery1.FieldByName('電話區號').AsString;
Edit3.Text:= ADOQuery1.FieldByName('郵政區號').AsString;
Finally
with ADOQuery1 do
begin
Filtered:= False;
Filter:= '';
end;
end;
end; procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13{VK_RETURN}) then
begin
PostMessage(Handle, WM_KEYDOWN, VK_TAB, 0);
end;
end; procedure TForm1.Edit1Exit(Sender: TObject);
begin
GetPost_Tel(Sender);
end; 發表人 - banson1716 於 2002/12/20 21:02:43 發表人 - banson1716 於 2002/12/23 00:46:35
 附加檔案：24105_Zip.rar
|
|
kiang
一般會員  發表：4 回覆：4 積分：1 註冊：2003-12-07 發送簡訊給我 |
|
|
banson1716
高階會員 發表：55 回覆：182 積分：167 註冊：2002-04-14 發送簡訊給我 |
|
|
小春
一般會員 發表：0 回覆：1 積分：0 註冊：2004-07-13 發送簡訊給我 |
|
|
oliver3721
一般會員 發表：0 回覆：1 積分：0 註冊：2004-11-04 發送簡訊給我 |
|
|
wus
一般會員 發表：0 回覆：2 積分：0 註冊：2005-06-09 發送簡訊給我 |
發表時間：2002-12-20 15:51:37
IP:61.223.xxx.xxx 未訂閱
系統時間：2024-05-17 16:20:07
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |