合肥有线电视服务电话:vb&acess:人力资源管理系统

与数据库的连接有好多种,但现在常用的是ADO,你可以直接使用ADO控件,建立数据源,然后连接,也可以建立一个模块,可以适合多次使用例如下:
Attribute VB_Name = "Module1"
Option Explicit
Public strUserName As String '用户名称
Public iflag As Integer '是否连接成功标志
Public ichangeFlag As Integer '修改标志
Public strPublicSQL As String
Public Function getRS(ByVal SQL As String, ByVal databasename As String) _
As ADODB.Recordset
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConnection As String
Dim strArray() As String
Set con = New ADODB.Connection '创建连接
Set rs = New ADODB.Recordset '创建记录集
On Error GoTo getRS_Error
strConnection = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\"
strConnection = strConnection & databasename & ".mdb"
strArray = Split(SQL)
con.Open strConnection '打开连接
rs.Open Trim$(SQL), con, adOpenKeyset, adLockOptimistic
Set getRS = rs '返回记录集
iflag = 1
getRS_Exit:
Set rs = Nothing
Set con = Nothing
Exit Function
getRS_Error:
MsgBox "查询错误：" & Err.Description
iflag = 2
Resume getRS_Exit
End Function

Public Sub TransactSQL(ByVal SQL As String, ByVal databasename As String)
Dim con As ADODB.Connection
Dim strConnection As String
Dim strArray() As String
Set con = New ADODB.Connection '创建连接
On Error GoTo TransactSQL_Error
strConnection = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\"
strConnection = strConnection & databasename & ".mdb"
strArray = Split(SQL)
con.Open strConnection '打开连接
con.Execute SQL '执行命令
iflag = 1
TransactSQL_Exit:
Set con = Nothing
Exit Sub
TransactSQL_Error:
MsgBox "查询错误：" & Err.Description
iflag = 2
Resume TransactSQL_Exit
End Sub

Public Sub TabToEnter(Key As Integer)
If Key = 13 Then '判断是否为回车键
SendKeys "{TAB}" '转换为Tab键
End If
End Sub

Sub Main()
Dim fLogin As New frmLogin
fLogin.Show '显示窗体
End Sub

这位朋友你好，采用vb＋acess制作数据库系统实非明智之举。vb 虽提供了一些数据库连接功能，但其设计的复杂性、可用性以及效率问题，远非VFoxpro SQL Server2000 Oracle等所能及。就目前来说，小型数据库的开发，Foxpro不错，用的最多的是SQL Server2000，大型的有Oracle等等。你要是想做一个较好的人力资源管理系统，推荐用VFoxpro，若是要求不高，用acess制作即可。
至于需求分析，就要依据你所开发内容而定了；需求明确了，目标也就有了，至于实际操作设计，那是次要。