在PB中根據(jù)結(jié)構(gòu)伸展文件創(chuàng)建數(shù)據(jù)表

2024-07-21 02:09:59

字體：大中小

供稿：網(wǎng)友

在powerbuilder(文中簡(jiǎn)稱pb)中，沒有現(xiàn)成的像 vfp 中根據(jù)結(jié)構(gòu)伸展文件生成數(shù)據(jù)表的函數(shù)。而在數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)的開發(fā)中，常常需要根據(jù)用戶的要求創(chuàng)建數(shù)據(jù)表。我們可以仿照vfp的結(jié)構(gòu)伸展文件創(chuàng)建一個(gè)數(shù)據(jù)表sjbjg(如圖)，用來(lái)存放用戶欲創(chuàng)建數(shù)據(jù)表的結(jié)構(gòu)，從而來(lái)相對(duì)簡(jiǎn)單地解決這個(gè)問(wèn)題。

為sjbjg數(shù)據(jù)表建立一個(gè)名為d_sjbjg的grid數(shù)據(jù)窗口，數(shù)據(jù)源采用quick select。

新建一個(gè)窗口，添加一個(gè)數(shù)據(jù)窗口控件dw_1和一個(gè)按鈕控件cb_1。dw_1的dataobject設(shè)置為d_sjbjg，cb_1的text設(shè)置為“創(chuàng)建數(shù)據(jù)表”。在cb_1的clicked事件中輸入以下代碼:

string mysql

int ls_last，row

mysql='drop table tablename' // table name創(chuàng)建的數(shù)據(jù)表名稱

execute immediate :mysql using sqlca;

mysql='create table tablename ('

ls_last=dw_1.rowcount()

if ls_last＞0 then

for row=1 to ls_last

mysql=mysql+trim(dw_1.getitemstring(row，“field_name ”))//相應(yīng)的數(shù)據(jù)表字段名

choose case dw_1.getitemstring(row，“field_type”)//相應(yīng)數(shù)據(jù)表字段類型

case 'char'

mysql=mysql+' char('+trim(dw_1.getitemstring(row，“field_len”))+') '//相應(yīng)數(shù)據(jù)表字段長(zhǎng)度

case 'decimal'

mysql=mysql+' decimal('+trim(dw_1.getitemstring(row，“field_len”))+'，'

mysql=mysql+trim(dw_1.getitem string(row，“field_dec”))+') '

case 'integer'

mysql=mysql+' integer '

case 'date'

mysql=mysql+' date '

end choose

if row＜＞ls_last then mysql=mysql+'，' else mysql=mysql+')'

next

end if

execute immediate :mysql using sqlca;//創(chuàng)建數(shù)據(jù)表

messagebox(“信息提示”，'數(shù)據(jù)表table name創(chuàng)建完畢'，information！，ok！)

由于不同數(shù)據(jù)庫(kù)對(duì)數(shù)據(jù)表的數(shù)據(jù)類型要求不盡相同，故本文僅以常用的char(字符型)、decimal(十進(jìn)制型)、integer(整型)、date(日期型)為例，其他數(shù)據(jù)類型參照上述類型進(jìn)行修改。

本程序在pb 9.0 調(diào)試通過(guò)，數(shù)據(jù)庫(kù)為pb 9.0 自帶的adaptive server anywhere。

商業(yè)源碼熱門下載www.html.org.cn

上一篇：PowerBuilder數(shù)據(jù)窗口編程技巧十則

下一篇：PB中自定義事件ID含義