用VB做系统求救高手帮忙解答！急急急急。。。。。

来源：百度知道 编辑：UC知道 时间：2024/09/22 01:01:04
本人正在用VB做一个企业员工信息管理系统，做了一些实在做不下去了，因为我们没有学过VB，代码看不懂，解答好了本人将追加50分，急呀
想解答的加本人QQ314882286私聊，主要就是帮我完成六个功能：添加，查询，修改，删除，权限等一些问题

给你一些源码参考和研究

【连接Access数据库方法】
首先须引用Projects-Components-Microsoft ADO Data Controls 6.0 (OLEDB).之后在表单设置ADODC控件。然后Form_Load()输入以下代码：

Dim mode As String
Private Sub Form_Load()
Adodc1.ConnectionString = "provider=Microsoft.jet.OLEDB.4.0;Persist security info= False; Data source=" & App.Path & "\数据库名称.mdb"

Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 数据表"
Adodc1.Refresh
End Sub

’比如表单设置5个textbox分别为text1至text5。
【新增资料】
Private Sub cmdadd_Click()
mode = "add"
text1.SetFocus
text1.Text = ""
text2.Text = ""
text3.Text = ""
text4.Text = ""
text5.Text = ""
End Sub

‘【储存资料】
Private Sub cmdsave_Click()
If mode = "add" Then
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("栏位名1").Value
Adodc1.Recordset.Fields(