教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

   //2001-9-25 增加可以更新数据的功能 
//2001-9-10按所选列查找表的内容 
//采用动态生成数据窗口的方法,生成Gride风格 
if lb_colunm.SelectedIndex() < 1 then 
MessageBox("提示","请选择至少一列!") 
return 
end if 
string ls_SqlSyntax,ls_realse,ls_dw,ls_Header,ls_summary,ls_footer,ls_detail,ls_Table 
string ls_Other 
string ls_Col_Comments//列注释 
string ls_tab_Comments//表注释 
//string ls_Table 
ls_Table =ms_User+"."+ ms_Table 
string ls_Rtn = char(13)+char(10) 
ls_Realse = "release 8;" + ls_Rtn 
ls_dw = "datawindow(units=0 timer_interval=0 color=12632256 processing=1 print.documentname=’’ print.orientation=0 print.margin.left=110 print.margin.right=110 print.margin.top=96 print.margin.bottom=96 print.paper.size=0 print.paper.source=0 grid.lines=0 selected.mouse=no)"+ls_Rtn 
ls_Header = "header(height=80 color=~"536870912~" )" + ls_Rtn 
ls_Summary = "summary(height=0 color=~"536870912~" )" + ls_Rtn 
ls_footer = "footer(height=0 color=~"536870912~" )" + ls_Rtn 
ls_detail = "detail(height=92 color=~"536870912~" height.autosize=yes)" + ls_Rtn 
//生成数据窗口的主体 
int i 
string ls_Column1,ls_Retrieve,ls_text,ls_Column2 
string ls_Dbname 
long ln_X = 9,ln_y = 8 ,ln_id = 1 ,ln_Width=120 
ls_Column1 = "table(" 
ls_Retrieve = " retrieve= ~"select -1 as n_Order "+ls_Rtn 
//增加一个顺序号 
string str,ls_ColumnName,ls_Type,ls_Length,ls_Precision 
ls_Column1 = ls_Column1 + " column=(type=number updatewhereclause=yes name=n_order dbname=~""+ls_Table+".n_order~" )" +ls_Rtn 
ls_Text = ls_Text + "text(name= n_Order_t band=header font.charset=~"0~" font.face=~"宋体~" font.family=~"2~" font.height=~"-10~" font.pitch=~"2~" font.weight=~"400~" background.mode=~"1~" background.color=~"536870912~" color=~"0~" alignment=~"2~" border=~"6~" x=~""+string(ln_X)+"~" y=~""+string(ln_y)+"~" height=~"64~" width=~""+string(ln_Width)+"~" text=~"顺序~" )"+ls_Rtn 
ls_Column2 = ls_Column2 +"column(name=n_order height.autosize=yes band=detail id= "+string(ln_id)+"x=~""+string(ln_X)+"~" y=~""+string(ln_y)+"~" height=~"76~" width=~""+string(ln_Width)+"~" color=~"0~" border=~"0~" alignment=~"2~" format=~"[general]~" edit.focusrectangle=no edit.autohscroll=no edit.autoselect=no edit.autovscroll=no edit.case=any edit.codetable=no edit.displayonly=no edit.hscrollbar=no edit.imemode=0 edit.limit=0 edit.password=no edit.vscrollbar=no edit.validatecode=no edit.nilisnull=no edit.required=no criteria.required=no criteria.override_edit=no crosstab.repeat=no background.mode=~"1~" background.color=~"536870912~" font.charset=~"0~" font.face=~"宋体~" font.family=~"2~" font.height=~"-10~" font.pitch=~"2~" font.weight=~"400~" tabsequence=0 )"+ls_Rtn 
for i =1 to lb_colunm.TotalItems() 
if lb_colunm.State(i) = 1 then //it is hilighted 
str = lb_colunm.Text(i) 
ls_ColumnName = left(str,pos(str,’ ’) -1 ) 
//获得数剧列的类型和长度 
select DATA_TYPE, 
to_Char(DATA_LENGTH), 
to_Char(DATA_PRECISION) 
into :ls_Type,:ls_Length,:ls_Precision 
from dba_tab_columns 
where trim(table_name) = :ms_table 
and trim(owner) = :ms_User 
and trim(COLUMN_NAME) = :ls_ColumnName; 
if sqlca.sqlCode = -1 then 
MessageBox("数据库错误 select DATA_TYPE, ...",sqlca.sqlErrText) 
goto wrong 
end if 
//获得数剧列的注释 
select trim(COMMENTS) 
into :ls_col_Comments 
from dba_col_Comments 
where trim(table_name) = :ms_table 
and trim(owner) = :ms_User 
and trim(COLUMN_NAME) = :ls_ColumnName; 
if sqlca.sqlCode = -1 then 
MessageBox("数据库错误 select trim(COMMENTS) ...",sqlca.sqlErrText) 
goto wrong 
end if 
//将数据类型处理成pb的数据类型,只支持数字、字符和日期类型 
ls_Type = trim(ls_Type) 
if ls_Type = "LONG" then 
ls_Length = "32769"//to such type , pb treat its length as 32769 2001-9-26 
end if 
if ls_Type = "VARCHAR" OR ls_Type = "VARCHAR2" or ls_Type = "CHAR" or ls_Type = "LONG" then 
ls_Type = "char" 
elseif ls_Type = "NUMBER" OR ls_Type = "FLOAT" then //FLOAT 类型先处理NUMBER型 
ls_Type = "decimal" 
elseif ls_Type = "DATE" then 
ls_Type = "datetime" 
else 
continue ;//其它类型不处理 
end if 
ls_Column1 = ls_Column1 + "column=(type="+ls_Type 
if not isNull(ls_Length) and ls_Type <> "datetime"then 
ls_Column1 = ls_Column1 + "("+ls_Length+")" 
end if 
//坐标调整 
ln_X = ln_x + ln_Width +4 
//id调整 
ln_id ++ 
//显示宽度调整，根据注释 
if isNUll(ls_Col_Comments) then 
ls_Col_Comments = ls_ColumnName 
end if 
ln_Width = 36*len(trim(ls_Col_Comments)) 
ls_Column1 = ls_Column1 +" update=yes updatewhereclause=yes key=yes name="+ls_ColumnName+" dbname= ~""+ls_Table+"."+ls_ColumnName+"~" )"+ls_Rtn 
ls_Retrieve = ls_Retrieve +","+ ls_Table + "." + ls_ColumnName + ls_Rtn 
ls_Text = ls_Text + "text(name="+ls_ColumnName+"_t band=header font.charset=~"0~" font.face=~"宋体~" font.family=~"2~" font.height=~"-10~" font.pitch=~"2~" font.weight=~"400~" background.mode=~"1~" background.color=~"536870912~" color=~"0~" alignment=~"2~" border=~"6~" x=~""+string(ln_X)+"~" y=~""+string(ln_y)+"~" height=~"64~" width=~""+string(ln_Width)+"~" text=~""+ls_Col_Comments+"~" )"+ls_Rtn 
ls_Column2 = ls_Column2 +"column(name="+ls_ColumnName+ " height.autosize=yes band=detail id="+string(ln_id)+"x=~""+string(ln_X)+"~" y=~""+string(ln_y)+"~" height=~"76~" width=~""+string(ln_Width)+"~" color=~"0~" border=~"0~" alignment=~"2~" format=~"[general]~" edit.focusrectangle=no edit.autohscroll=no edit.autoselect=no edit.autovscroll=no edit.case=any edit.codetable=no edit.displayonly=no edit.hscrollbar=no edit.imemode=0 edit.limit=0 edit.password=no edit.vscrollbar=no edit.validatecode=no edit.nilisnull=no edit.required=no criteria.required=no criteria.override_edit=no crosstab.repeat=no background.mode=~"1~" background.color=~"536870912~" font.charset=~"0~" font.face=~"宋体~" font.family=~"2~" font.height=~"-10~" font.pitch=~"2~" font.weight=~"400~" tabsequence= "+string(ln_id)+")"+ls_Rtn 
end if 
next 
//2001-9-24 增加可以更新的功能 
ls_Retrieve = ls_Retrieve + " from "+ms_User+"."+ms_Table + ls_Rtn+ +"~""+ls_Rtn+ +" update= ~"" + ls_Table + "~" updatewhere=0 updatekeyinplace=yes " +")"+ls_Rtn 
ls_Other = "htmltable(border=~"1~" )"+ls_Rtn 
ls_Other = ls_Other +"htmlgen(clientComputedFields=~"1~" clientEvents=~"1~" clientFormatting=~"0~" clientScriptable=~"0~" clientValidation=~"1~" generateJavaScript=~"1~" )" 

//构造数据窗口的语法 
ls_SqlSyntax = ls_Realse + ls_Dw+ls_Header+ls_Summary+ls_Footer+ls_Detail+ls_Column1+ls_Retrieve+ls_Text+ls_Column2+ls_Other 
mle_2.Text = ls_SqlSyntax 
if dw_create.Create(ls_SqlSyntax) <> 1 then 
MessageBox("提示","数据窗口生成错误！") 
end if 
dw_create.SetRedraw(False) 
dw_create.SetTransObject(sqlca) 
dw_create.Retrieve() 
for i =1 to dw_create.RowCount() 
dw_create.SetItem(i,"n_Order",i) 
next 
dw_create.SetRedraw(TRUE) 
return 
wrong: 
return