计算机毕业设计关键代码介绍3：
3、 系统信息录入界面的代码，用基本信息为例，能实现录入，查看，取消等功能。代码如下：
Private Sub btn添加_Click()
'调用劳动力信息窗体
Me.lblid.Caption = ""
frmLdl.btnAdd.Move frmLdl.btnDel.Left
frmLdl.btnEdit.Visible = False
frmLdl.Show 1
End Sub
Private Sub ddd_RowColChange()
'高亮度显示
Call MoveRow(ddd, ddd.Row)
End Sub
Private Sub Form_Activate()
'让当前的窗体最大化
Me.WindowState = 2
Call UpdateList
End Sub
Private Sub Form_Resize()
'动态改变窗体的边框标题
Call FormFace(Me, TopPicture, KKShape)
Call FormWZ1(Me) '调整窗体大小时用
Call TopCaption(Me.TopPicture, Label2.Caption)
End Sub
Public Sub UpdateList()
'显示列表的样式和标题
'将查询到的人员信息显示在列表中
'1
Dim arrName()
arrName = Array("工人代码", "姓名", "性别", "出生日期", "婚姻状况", "身份证号", "藉贯", "地址", "联系方式", "文化程度")
Dim arrColwidth()
arrColwidth = Array(0, 2000, 1000, 1000, 2000, 2000, 1000, 3500, 1200, 1300)
ddd.Cols = 10
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 = 31
Call UpdateDDD(ddd, ExecSql("select * from NMG"))
End Sub
Private Sub UserControl11_Click()
'调用劳动力窗体
If ddd.TextMatrix(ddd.Row, 0) = "" Then Exit Sub
Me.lblid.Caption = Trim(ddd.TextMatrix(ddd.Row, 0))
frmLdl.btnAdd.Visible = False
frmLdl.Show 1
End Sub
<责任编辑：计算机毕业设计网(http://www.xiaoniu168.com)>