1、寫出下列符號在mapobjects模組圖中所代表的詳細含義:
2、在mapobjects模組圖中存在如下物件,下列**是否正確?如不正確請改正:
(注:在地圖控制項中存在圖層)
procedure tobject);
var currentlayer: imomaplayer;
begin
currentlayer :=
showmessage(
end;
3、在一名為form1視窗中有一名為mainmap的地圖控制項(為mapobejcts地圖控制項)其包含如下圖層:第一層cities;第二層country。其中圖層country包含如下的屬性字段:
name、region等,請寫出以圖層country的region欄位作獨立值製圖專題圖的完整**。
4、有如下視窗,完成地圖查詢功能的完整**,主要控制項名稱如下:
5、在一資料庫中存在一名為:userinfo(使用者資訊)的表,其包含如下字段:
username char(10):存放使用者名稱; password char(10):存放使用者的密碼(密碼沒有加密)
請利用此表完成使用者登入功能的**:(假設資料庫所有的連線已設定完成,相應的資料集名為adsuserinfo) (20分)
介面控制項如下:
6、現開發一套工商管理gis系統,其中查詢模組使用者需求如下:
1、可對任意使用者的名稱進行模糊查詢,如:使用者輸入「文化用品」,系統將所有名稱中包含「文化用品」的商鋪或公司的位置在地圖上高亮顯示。
2、可對商鋪或公司的名稱進行拼音相近查詢(假設系統允許公司名稱發音相近或相同)。如使用者輸入「紅塔」則將所有發音相同或相近的公司(如洪塔、紅它)在地圖上高亮顯示。
該如何設計與查詢相關的表的結構?
寫出使用者需求1的**。(15分)
寫出使用者需求2的開發思路及相應的**(所用開發工具不限)(35分)
注:視窗名為searchfrm;輸入使用者名稱文字框名為:edtofind;地圖控制項名為:mainmap;命令按鈕名為:cbfind。
7、試述製作漸變色專題圖資料分類的方法有幾種,主要特點是什麼?
8、向地圖控制項中加入shp圖層的完整**。
9、提取地圖控制項中所有的圖層名稱的函式。
10、提取地圖控制項中某一圖層所有的欄位名稱的函式。
varcurrentlayer : imomaplayer;
begin
currentlayer:=
currentlayer:= comaplayer(
showmessage(
end;
獨立值procedure tobject);
var currentlayer :imomaplayer;
myvaluerenderer :imovaluemaprenderer;
currentrecord :imorecordset;
str :imostrings;
i :integer;
begin
myvaluerenderer :=
str :=
currentlayer :=
currentlayer :=imomaplayer(
:=myvaluerenderer;
currentrecord :='region'
while not do
begin
'region').valueasstring);
end;
:=for i := 0 to 1 do
begin
:=end;
end.
查詢function getlayername(map :tmap):tstrings;
var i :integer;
layernames :tstrings;
begin
layernames :=
for i := 0 to - 1 do
begin
end;
result :=layernames;
end;
function getfilename(map :tmap;layername :string):tstrings;
var currentrecordset :imorecordset;
currenttabledesc :imotabledesc;
i :integer;
myfilenames :tstrings;
begin
myfilenames :=
currentrecordset :=imomaplayer(
currenttabledesc :=
for i :=0 to - 1 do
begin
end;
result :=myfilenames;
end;
function getfilevalue(map :tmap;layername:string;filedname :string):tstrings;
var currentrecord :imorecordset;
currentvalues :string;
allvalue :tstrings;
i :integer;
begin
allvalue :=
currentrecord :=imomaplayer(
while not do
begin
currentvalues :=
if < 0 then
end;
result :=allvalue;
end;
seachresult:imorecordset
procedure tobject);
begin
:=getlayername(mainmap);
end;
procedure tobject);
begin
:=getfilename(
end;
procedure click(seader:tobject)
varcurrentlayer: imomaplayer;
begin
currentlayer := commaplayer(
searchresult:=
end;
procedure tobject; index: smallint;);
varmysymbol;imosymbol;
begin
mysymbol:=
軟體開發合同
甲方委託方 位址 郵編 乙方開發方 位址 郵編 負責人 甲方委託乙方,乙方接受甲方委託,開發軟體產品,雙方就合作事宜達成如下協議 一.合作方式 乙方根據甲方的要求定製開發軟體產品,並向甲方提供技術培訓 甲方向乙方支付費用。二.軟體內容要求及驗收標準 1.依據本合同約定,甲方委託乙方開發的軟體產品為 ...
軟體開發合同
合同編號 h00001s0a112 專案名稱 委託方 甲方 承攬方 乙方 簽訂日期 年月日 有效期限 年月日至年月日 一 合同標題 甲方同意委託乙方開發專案。乙方願意承接甲方上述開發專案,並保證按時 按質地完成開發任務。二 雙方責任 1 甲方負責提出資訊發布系統使用者需求,並在系統開發完成後,及時組...
軟體開發計畫
2.6 本計畫的批准者和批准日期 3.實施計畫 3.1 工作任務的分門與人員分工 對於專案開發中需完成的各項工作,從需求分析 設計 實現 測試直到維護,包括檔案的編制 審批 列印 分發工作,使用者培訓工作,軟體安裝工作等,按層次進行分解,指明每項任務的負責人和參加人員。3.2 介面人員 說明負責介面...