以下是网学网为您推荐的VB类作品-基于VB人才信息管理系统的设计，希望本篇文章对您学习有所帮助。
四、技术人才管理窗体设计 该窗体主要完成录入、删除、修改、查询技术人才管理功能的调用，如图４-4所示。 图 4-4技术人才菜单 1．当用户单击“录入”时，将调出“技术人才录入窗体” 完成技术人才信息保存。工作界面使用的控件，如表4-3所示，控件属性设置如表4-4所示。 控件设置
表 4-4工作界面窗体控件设置 控件主要属性
表4-5工作界面的各个控件属性设置 复选框和文本框的数据源均为Datal。这里将Text11的”MultiLine”属性设为：“True”是为了能输入多行文字。数据录入的工作流程如图4-6所示。
事件过程如表４-6所示。
表4-6 2．技术人才信息查询 信息查询的工作界面与数据录入时使用的工作界面基本相同，只是多了一个输入姓名的文本框和一个显示“请输入姓名”的标签，如4-7图所示：本程序使用Visual Basic自身提供的Find查询的模糊查询方法。 图4-7技术人才信息查询工作界面 Private Sub Command1_Click() ''查询记录 Set rsRecordSet2 = New ADODB.Recordset rsRecordSet2.ActiveConnection = connConnection strcon = "select * from 技术人才表 where " strtext = Text18.Text strque = strcon & " 职工编号 =''" & strtext & "''" If Text18 = "" Then MsgBox " 请输入职工编号 ！ ", vbExclamation Text18 = "" Text18.SetFocus Exit Sub End If rsRecordSet2.Source = strque rsRecordSet2.Open If rsRecordSet2.RecordCount = 0 Then MsgBox "没有找到要查询的信息", vbOKOnly End If Call bind1 Command1.Enabled = False Command2.Enabled = False End Sub 因为这里是进行查询，这时数据应该只能显示不能修改，故需要将所有用于显示数据的文本框锁住，即除用于输入姓名的文本框“Text17”外，将其他文本框的Locked属性设置为”True”。在删除数据的程序中对文本框的Locked属性也作了相同的设定。 3.技术信息人才删除 在该窗体中对记录的删除方法是先查询后删除，工作界面如4-8图所示，工作时首先输入需要待删除人员的职工编号，然后计算机查找相应记录，在查到需要删除的记录后，单击“删除”按钮即可删除记录。 图4-8技术信息人才删除界面 代码段如下： Private Sub Command4_Click() If blquery Then blquery = False rsRecordSet2.Delete ''删除查询后的记录 Else rsRecordSet.Delete ''删除没有点击"查询"按钮时的的记录 End If rsRecordSet.Close ''关闭原来的记录集 strcon = "select * from 技术人才表 " rsRecordSet.Source = strcon rsRecordSet.LockType = adLockPessimistic rsRecordSet.Open ''重新打开原来的记录集 Call bind Command4.Enabled = False Command2.Enabled = True Command3.Enabled = True End Sub | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
本文选自计算机毕业设计http://myeducs.cn
|
