动态生成数据窗口的一个例子.docVIP

动态生成数据窗口的一个例子 动态生成数据窗口的一个例子 //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 colorprocessing=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=