?? 表操作.mb
字號:
'1、新建表Create Table
'2、向表中添加數據Insert
'3、讀取表中的數據FetcH
'4、修改表結構Alter Table
'5、修改表的結構Add Column
'6、建立字段索引Creat Index
'7、修改表的結構Creat Map
'8、修改表的結構DropMap
'9、編輯行Update
'10、刪除行Delete
'11、刪除一個表Drop Table
'12、整理表(刪除空記錄行)Pack Table
'13、保存表的最新編輯Commit Table
'14、控制表設置Set Table
'15、放棄表的最新編輯Rollback
'16、重命名一個表Rename Table
'17、表的查詢Fetch
'18、定位行光標EOT()
'19、迭擇數據Select
'20、操作選擇命令SelectionInfo()
'21、按地址查找圖對象Find
'22、按地址查找圖對象FindUsing
'23、按地址查找圖對象CommandInfo()
'24、按位置查找圖對象SearchPoint()
'25、按位置查找圖對象SearchRect()
'26、按位置查找圖對象SearchInfo()
'27、獲取表的信息NumTables()
'28、獲取表的信息TableInfo()
'29、獲取列的信息NumCols()
'30、獲取列的信息ColumnINfo()
'31、查詢一個表的元數據GetMetadata$()
'32、查詢一個表的元數據Metadata
'33、查詢無縫表TableInfo()
'34、查詢無縫表GetSeamlessSheet()
'35、表/文件的輸入Import
'36、表/文件的輸出Export
SUB BCZ
W$="表操作" CALL BZLBXZ
IF R=0 THEN EXIT SUB END IF
IF R=0 THEN EXIT SUB END IF
IF R=1 THEN GOTO BC01 END IF
IF R=2 THEN GOTO BC02 END IF
IF R=3 THEN GOTO BC03 END IF
IF R=4 THEN GOTO BC04 END IF
IF R=5 THEN GOTO BC05 END IF
IF R=6 THEN GOTO BC06 END IF
IF R=7 THEN GOTO BC07 END IF
IF R=8 THEN GOTO BC08 END IF
IF R=9 THEN GOTO BC09 END IF
IF R=10 THEN GOTO BC10 END IF
IF R=11 THEN GOTO BC11 END IF
IF R=12 THEN GOTO BC12 END IF
IF R=13 THEN GOTO BC13 END IF
IF R=14 THEN GOTO BC14 END IF
IF R=15 THEN GOTO BC15 END IF
IF R=16 THEN GOTO BC16 END IF
IF R=17 THEN GOTO BC17 END IF
IF R=18 THEN GOTO BC18 END IF
IF R=19 THEN GOTO BC19 END IF
IF R=20 THEN GOTO BC20 END IF
IF R=21 THEN GOTO BC21 END IF
IF R=22 THEN GOTO BC22 END IF
' IF R=23 THEN GOTO BC23 END IF
BC01:'新建表Create Table
CALL XJB
Create Table Cust
(name char(20),
Address char(30),
City char(30),
Amount DecimaL (5,2),
rderDate Date,
CustID Integer)
File"C:\MapBasic\cust.tab"
Create Map For Cust
Create Index on Cust (CustID)
Create Index On Cust (name)
Browse * From Cust
EXIT SUB
BC02:'向表中添加數據INSERT
Open Table "當前雨情分析_逐月對照"
Browse * From 當前雨情分析_逐月對照
NOTE "現在已經打開一個空表，是否開始向表中添加數據"
FOR I=1 TO 45
INSERT INTO 當前雨情分析_逐月對照 '增加一行數據
VALUES (STR$(I),45.1,76,34.4,0.1245,2.519,56,11.1,0.67,45,"豐水年")
NEXT
Browse * From 當前雨情分析_逐月對照
EXIT SUB
BC03:'讀取表中的數據
CALL XJB
Open Table "當前雨情分析_逐月對照" Interactive
FOR I=1 TO 45
INSERT INTO 當前雨情分析_逐月對照
VALUES (STR$(I),45.1,76,34.4,0.1245,2.519,56,11.1,0.67,45,"豐水年")
NEXT
Browse * From 當前雨情分析_逐月對照
FetcH First From 當前雨情分析_逐月對照
W$=當前雨情分析_逐月對照.CoL1
NOTE "現在使用First子句讀取的數據是第一行的第一列R="+W$
FetcH Last From 當前雨情分析_逐月對照
W$=當前雨情分析_逐月對照.CoL1
NOTE "現在使用Last子句讀取的數據是最后一行的第一列R="+W$
Browse * From 當前雨情分析_逐月對照
FetcH First From 當前雨情分析_逐月對照
W$=當前雨情分析_逐月對照.CoL1
NOTE "現在使用First子句讀取的數據是第一行第一列R="+W$
FetcH Next From 當前雨情分析_逐月對照
W$=當前雨情分析_逐月對照.CoL1
NOTE "現在使用Next子句讀取的數據是第一行的下一行的第一列R="+W$
FetcH Prev From 當前雨情分析_逐月對照
W$=當前雨情分析_逐月對照.CoL1
NOTE "現在使用Prev子句讀取的數據是第一行的第一列R="+W$
FOR I=1 TO 10
FetcH Rec I From 當前雨情分析_逐月對照
W$=當前雨情分析_逐月對照.CoL1
NOTE "現在使用Rec n子句讀取的數據是第"+I+"行第一列R="+W$
NEXT
EXIT SUB
BC04:'修改表結構Alter Table
CALL XJB
NOTE"請您觀察沒有修改的表格,現在開始修改本表格"
Alter Table 當前雨情分析_逐月對照
(Rename 多年平均 徐州平均 '改名
Rename 多年最大 徐州最大
Rename 多年最小 徐州最小
Modify 月份 char(6)
Drop 頻率
Add 今年最大 char(8),
明年預測 DECIMAL(6,1)
Order 月份,徐州平均,徐州最大,徐州最小,今年最大,明年預測,
離差系數Cv,離勢系數Cs,本年降水,距平值,重現期,豐枯評價)
Interactive
NOTE"現在已經對此表進行了重排序,請您展開表格觀察"
EXIT SUB
BC05:'修改表的結構Add Column
Open Table "當前雨情分析_逐月對照"
Add Column 當前雨情分析_逐月對照(多年平均)
Values 31,17,22,24,47,41,66,35,32,88
Browse * From 當前雨情分析_逐月對照
BC06:'建立字段索引Creat Index
Open Table "當前雨情分析_逐月對照" Interactive
NOTE"現在開始對此表的_徐州最小_進行索引"
Create Index on 當前雨情分析_逐月對照(徐州最小)
NOTE"徐州最小_索引進行完畢"
EXIT SUB
BC07:'修改表的結構Creat Map
EXIT SUB
BC08:'修改表的結構DropMap
EXIT SUB
BC09:'編輯行Update
CALL XJB
FOR I=1 TO 45
INSERT INTO 當前雨情分析_逐月對照 '增加一行數據
VALUES (STR$(I),45.1,76,34.4,0.1245,2.519,56,11.1,0.67,45,"豐水年")
NEXT
Browse * From 當前雨情分析_逐月對照
NOTE "現在開始對本表的多年平均列進行編輯"
Select * From 當前雨情分析_逐月對照
'Where W$="marketing" And 多年平均 > 120
Update 當前雨情分析_逐月對照
Set 多年平均 = 多年平均 * 3.07
Browse * From 當前雨情分析_逐月對照
'Update employees
'Set salary = salary * 1.07
'Where Rowid = 10
'Update sites
'Set Obj = CreatePoint(x, y)
'Where Rowid = 1
EXIT SUB
BC10:'刪除行Delete
CALL XJB
Open Table "當前雨情分析_逐月對照"
FOR I=1 TO 45
INSERT INTO 當前雨情分析_逐月對照 '增加一行數據
VALUES (STR$(I),45.1,76,34.4,0.1245,2.519,56,11.1,0.67,45,"豐水年")
NEXT
Browse * From 當前雨情分析_逐月對照
NOTE "現在要刪除當前表的所有行"
Delete From 當前雨情分析_逐月對照
Commit Table 當前雨情分析_逐月對照
EXIT SUB
BC11:'刪除一個表Drop Table
CALL XJB
Open Table "當前雨情分析_逐月對照"
Browse * From 當前雨情分析_逐月對照
NOTE "現在將要刪除當前表,請注意觀察"
Drop Table 當前雨情分析_逐月對照
NOTE "您可以打開當前目錄查看"
EXIT SUB
BC12:'整理表(刪除空記錄行)Pack Table
fi=ASK("請您先運行2'向表中添加數據INSERT,動手刪除幾個記錄,是否完成了?","完成了","沒有完成關")
Open Table "當前雨情分析_逐月對照"
Pack Table 當前雨情分析_逐月對照
Graphic Data
' Graphic | Data | Graphic Data } [ Interactive ]
BC13:'保存表的最新編輯Commit Table
bc14:'控制表設置Set Table
Open Table "當前雨情分析_逐月對照"
Set Table 當前雨情分析_逐月對照
FastEdit On
Undo On
ReadOnly
' Seamless On Preserve
' UserMap On
' UserBrowse On
' UserClose On
' UserEdit On
' UserRemoveMap On
' UserDisplayMap On
EXIT SUB
'Import "WORLD.MIF"
' Type "MIF"
' Into "world_2.tab"
' Map From world_2
' Open Table "facility"
' Export facility
' Into "FACIL.DXF"
' Type "DXF"
' Overwrite
' Preserve AttributeData
' Preserve MultiPolygonRgns As Blocks
' ASCII DecimalPlaces 3
' Transform (0, 0) (1, 1) (0, 0) (1, 1)
BC15:'放棄表的最新編輯Rollback
BC16:
BC17:'定位行光標Fetch，EOT()
BC18:'迭擇數據，操作選擇命令Select，SelectionInfo()
BC19:'按地址查找圖對象Find，FindUsing，CommandInfo()
BC20:'按位置查找圖對象SearchPoint()，SearchRect()，SearchInfo()
BC21:'獲取表的信息NumTables()，TableInfo()
BC22:'獲取列的信息NumCols()，ColumnINfo()
BC23:'查詢一個表的元數據GetMetadata$()，Metadata
'BC18:'查詢無縫表TableInfo()，GetSeamlessSheet()
'BC19:'表/文件的輸入Import，Export
'BC20:
'BC21:
'BC22:
'BC23:
END SUB
SUB XJB '新建表Create Table
CREATE TABLE 當前雨情分析_逐月對照 '建立當前雨情_逐月對照表格
(月份 char(4),
多年平均 DECIMAL(6,1), '表格個字段
多年最大 DECIMAL(6,0),
多年最小 DECIMAL(6,1),
離差系數Cv DECIMAL(2,6),
離勢系數Cs DECIMAL(2,6),
本年降水 DECIMAL(6,2),
距平值 DECIMAL(6,1),
頻率 DECIMAL(2,6),
重現期 DECIMAL(6,1),
豐枯評價 char(6))
FILE"當前雨情分析_逐月對照.TAB" '指定存入目錄
Browse * From 當前雨情分析_逐月對照
END SUB?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -