VB数据库打印代码

来源：百度知道 编辑：UC知道 时间：2024/09/23 03:13:51
遇到一个vb与数据库的程序内容如下，谁能帮我解释下都是什么意思吗？
Open "cj.dat" For Random As #1 Len = Len(recordvar)
recordnumer = LOF(1) / Len(recordvar)
recordvar.stnum = Text1.Text
recordvar.stname = Text2.Text
recordvar.gaoshu = Text3.Text
recordvar.yingyu = Text4.Text
recordvar.wuli = Text5.Text
recordvar.cyuyan = Text6.Text
recordvar.jisuanji = Text7.Text
recordvar.average = recordvar.gaoshu * 2 + recordvar.yingyu * 2 + recordvar.wuli * 1.5 + recordvar.cyuyan * 1.5 + recordvar.jisuanji
recordnumer = recordnumer + 1
Put #1, recordnumer, recordvar
paixu
Close #1
Visible = False
Form2.Visible = True
Unload Form5
chonglai:

如何打印添加完后的全部数据

这段代码是一段保存记录代码,使用随机文件方式,不是数据库
'recorvar 的定义据目前代码推断如下,这段代码需放在模块内
Type recordvar
stnum as integer '学生号
stname as string*8 '学生姓名 这个长度可能定义的更大，比如10
gaoshu as integer '高数成绩
yingyu as integer
wuli as integer
cyuyan as integer
jisuanji as integer
average as integer
End Type

'随机方式打开文件 成绩.dat，文件号为1，记录长度为自定义的记录结构变量 recordvar 的长度

Open "cj.dat" For Random As #1 Len = Len(recordvar)
'根据文件的偏移位置LOF(1)，确定最后记录编号
recordnumer = LOF(1) / Len(recordvar)
'给记录的各项成绩赋值，准备记录
recordvar.stnum = Text1.Text
recordvar.stname = Text2.Text
recordvar.gaoshu = Text3.Text
recordvar.yingyu = Text4.Text
recordvar.wuli = Text5.Text
recordvar.cyuyan = Text6.Text
recordvar.jisuanji = Text7.Text
'计算平均分？奇怪的计算公式
recordvar.average = recordvar.gaoshu * 2 + recordvar.yingyu * 2 + recordvar.wuli * 1.5 + recordvar.cyuyan * 1.5 + recordvar.jisuanji