这是我的毕业论文的代码,求达人看看,哪里有错误,帮偶更正下
跪谢!
自动录入学号代码如下：
String xh,xh_l,xh_r,temp
Integer i,ii,xh_p,en_xh
xh = xh1 + xh2 + xh3 + xh4 + xh5 + xh6 //获得的初始学号
xh_p = pos(xh,"xh") //字段xh的位置
xh_l = Left(xh,xh_p - 1) //xh左边的字段
xh_r = Right(xh,Len(xh) - (xh_p + 1)) //xh右边的字段
en_xh = Integer(xh_e) - Integer(xh_s) + 1
If xh = "" Then
MessageBox("学号不能为空","请重新输入学号",StopSign!,Ok!)
Else
If Integer(xh_e) < Integer(xh_s) Then
MessageBox("初始错误","开始序号必须比结束序号小",StopSign!,OK!)
End If
FOR i= 1 TO en_xh //采用循环语句一次设置整个班的学号
dw_1.ScrollToROw(dw_1.InsertRow(0)) //增加新记录
dw_1.SetColumn("Stuid") //设置学号
If (ii + Integer(xh_s))<10 Then
dw_1.SetText(xh_l + "0" + String(ii + Integer(xh_s)) + xh_r)
Else
dw_1.SetText(xh_l + String(ii + Integer(xh_s)) + xh_r)
End If
ii++
dw_1.SetColumn("xycode")
dw_1.SetText(yx) //设置院系
dw_1.SetColumn("zycode")
dw_1.SetText(zy) //设置专业
dw_1.SetColumn("grade")
If sle_class.Text = "none" Then //设置班级
dw_1.SetText(temp)
Else
dw_1.SetText(Right(sle_class.Text,2))
End If
dw_1.SetColumn("class")
If sle_grade.Text = "none" Then //设置年级
dw_1.SetText(temp)
Else
dw_1.SetText(sle_grade.Text)
End If
NEXT
dw_1.Modify("#1.Edit.DisplayOnly = True") //设置学号列不可修改
dw_1.Modify("#3.Edit.DisplayOnly = True") //设置院系列不可更改
dw_1.Modify("#4.Edit.DisplayOnly = True") //设置专业列不可更改
dw_1.Modify("#5.Edit.DisplayOnly = True") //设置年级列不可更改
dw_1.Modify("#6.Edit.DisplayOnly = True") //设置班级列不可更改
End If
IF dw_1.RowCount() = 0 Then
cb_4.Enabled = False
Else
cb_4.Enabled = True
End If
8.1.２打印的代码：
在打印预览窗口的Open事件中编写以下代码
blob lblb_data
idw_data = message.powerobjectparm //接受传递过来的参数：打印数据窗口
dw_print.create( idw_data.describe("datawindow.syntax")) //创建数据窗口
idw_data.getfullstate( lblb_data )
dw_print.setfullstate( lblb_data )
dw_print.sort( )
dw_print.groupcalc( )
dw_print.Event ue_sharechild( )
dw_print.modify("datawindow.print.preview=yes datawindow.print.preview.rulers=yes")
post event ue_set_page( )
this.title = dw_print.describe('datawindow.print.documentname')+' 预览'
ddlb_pre.text = '100%'
em_1.Text = '100'
If dw_print.RowCount () = 0 Then //不可打印
cb_printer.Enabled = False
cb_print.Enabled = False
cb_first.Enabled = False
cb_last.Enabled = False
cb_prior.Enabled = False
cb_next.Enabled = False
Else //可以打印
cb_printer.Enabled = True
cb_print.Enabled = True
cb_first.Enabled = True
cb_last.Enabled = True
cb_prior.Enabled = True
cb_next.Enabled = True
End If
在′打印′按钮的Clicked 事件中
dw_print.Object.DataWindow.Print.Copies = ii_print_copies
Choose Case ii_print_mode
Case 1 //打印全部
Case 2 //范围打印
dw_print.Object.DataWindow.Print.Page.Range = is_print_range
End Choose
dw_print.Print()
ib_printed = True
close(parent)
居然还有人用PB......... 上大学的时候用PB做毕业设计的都只打到及格