计算机毕业设计介绍：
4.9 操作历史记录列表页面（frmLsjl）
点击用户管理里的操作历史记录，显示历史流水记录列表页面，包括用户帐号、模块名称、操作日期、操作时间，清空日志和取消按钮。
|
以下是引用片段：
Private Sub btn添加_Click()
'删除历史记录
Dim strResult As String
strResult = Exec_SqL("delete from 历史记录 ")
If strResult <> "OK" Then
MsgBox strResult
Exit Sub
End If
Call initForm
End Sub
Sub initForm()
'初始化列表表头
'向列表中填充数据
Dim arrName()
arrName = Array("用户帐号", "模块名称", "操作日期", "操作时间")
Dim arrColwidth()
arrColwidth = Array(ddd.Width / 4, ddd.Width / 4, ddd.Width / 4, ddd.Width / 4 - 300)
ddd.Cols = 4
ddd.Rows = 2
Dim i As Long
For i = 0 To ddd.Cols - 1
ddd.ColWidth(i) = arrColwidth(i)
ddd.TextMatrix(0, i) = arrName(i)
ddd.TextMatrix(1, i) = ""
Next
ddd.Rows = 21
Call UpdateDDD(ddd, ExecSql("select 用户帐号,模块名称,操作日期,操作时间 from 历史记录 "))
End Sub
|
〖资料来源:计算机毕业论文 www.xiaoniu168.com〗
第13页为计算机毕业论文部分......