本人小白，在做一个人事管理系统，但画好窗口后就不会接着往下做了 ， 求大神指导 ，

具有以下简单功能就行：
（A）新员工资料的输入。
（B）员工的基本情况包括员工的个人基本信息、工龄、工资情况等的增删改查。
（C）工资管理情况包括整个学校的工资表、工资的账目统计、工资的发放等。
为了实现系统的安全性，对使用本系统的使用人员权限进行设置，增加了功能子模块：
（1）系统用户的增加、删除
（2）系统用户的修改
（3）系统用户密码的修改

QQ 260692442   谢谢

[ 本帖最后由 nsk123 于 2015-2-24 13:00 编辑 ]

新年快乐！
一般介绍数据库的书都会有这种单方面的资料，根据自己的意愿将别人的成果组合就是你的软件了。
我曾用的登录、修改密码和盘托出如下：
Private Sub Command1_Click()
  Dim s As String
  s = App.Path & "\情况表.mdb"
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" + Chr(34) + s + Chr(34) & ";Jet OLEDB:Database Password=chen233;"  '打开有密码数据库，密码为“chen233”
 Dim SQL As String
      SQL = "SELECT * FROM 权限表   where 姓名  = " & Chr(34) + Trim$(Text1(0).Text) + Chr(34)
       = adCmdunknow                'SQL必须用此句，否则会显示FROM子句出错
      Adodc1.RecordSource = SQL
      Adodc1.Refresh
         
 If Text1(1).Text = Adodc1.Recordset("密码") Then    '密码正确则修改密码
     If Text1(2).Text = Text1(3).Text And Text1(2).Text <> "" Then
        Adodc1.Recordset("密码") = Text1(2).Text
        Adodc1.Recordset.Update       '更改密码成功
          Unload Me
         
             MDIForm_总.one.Enabled = True     '根据权限进入不同的窗口
             MDIForm_总.two.Enabled = True

     Else
       MsgBox "你二次的密码不一致，请重新输入！"
       Text1(2).Text = ""
       Text1(3).Text = ""
       Text1(2).SetFocus
     End If
  End If
  
End Sub

Private Sub Command2_Click()
  Call Incom      '判断登录的有效性
End Sub

Private Sub Command3_Click()
    End
End Sub


Private Sub Form_Activate()
  Dim s As String
  s = App.Path & "\情况表.mdb"
   Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" + Chr(34) + s + Chr(34) & ";Jet OLEDB:Database Password=chen233;"  '打开有密码数据库，密码为“chen233”

'"Data Source =" + Chr(34) + s + Chr(34) & ";Persist Security Info=False"  '打开无密码数据库

 Dim SQL As String
      SQL = "SELECT * FROM 权限表  "
       = adCmdunknow                'SQL必须用此句，否则会显示FROM子句出错
      Adodc1.RecordSource = SQL
      Adodc1.Refresh
      
  Text1(0).SetFocus
End Sub

Private Sub Form_Load()
  Form_进入.Width = 5000
  Form_进入.Height = 4500
  Form_进入.Left = (Screen.Width - Form_进入.Width) / 2
  Form_进入.Top = (Screen.Height - Form_进入.Height) / 4
  
  Text1(1).PasswordChar = "*"    '输入密码时显示*号
  Text1(2).PasswordChar = "*"
  Text1(3).PasswordChar = "*"
  
   'Label2.Enabled = False
 
  Adodc1.Visible = False
End Sub


Public Sub Incom()     '登录判断
 Static n As Integer      '静态变量用于统计登录次数
   Dim s As String
  s = App.Path & "\情况表.mdb"
 
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source =" + Chr(34) + s + Chr(34) & ";Jet OLEDB:Database Password=chen233;"  '打开有密码数据库，密码为“chen233”

 Dim SQL As String, Purview$
      SQL = "SELECT * FROM 权限表   where 姓名  = " & Chr(34) + Trim$(Text1(0).Text) + Chr(34)
       = adCmdunknow                'SQL必须用此句，否则会显示FROM子句出错
      Adodc1.RecordSource = SQL
      Adodc1.Refresh
   
     Purview = Adodc1.Recordset("权限")
   
 If Trim$(Text1(0).Text) = Adodc1.Recordset("姓名") And Text1(1).Text = Adodc1.Recordset("密码") Then
     Unload Me
     
    If Purview = "输入" Then
       MDIForm_总.one.Enabled = True     '根据权限进入不同的菜单
       MDIForm_总.two.Enabled = True
    End If
   
    If Purview = "查询" Then MDIForm_总.two.Enabled = True
   
 Else
    n = n + 1
    If n < 3 Then
       i = MsgBox("密码错误，请重新输入！", vbCritical + vbRetryCancel + vbDefaultButton1, "登录失败")
          If i = vbRetry Then
             Text1(1).Text = ""
             Text1(1).SetFocus
          Else
             End
          End If
    Else
         End
    End If
 End If
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
  If Index = 0 And KeyAscii = 13 Then Text1(1).SetFocus
  If Index = 1 And KeyAscii = 13 Then Command2.SetFocus
End Sub
以上是登录页面的全部信息

以下是录入的基本语句
         With Adodc1
           .Recordset("master") = Trim$(Text1(0).Text)
           .Recordset("出生日期") = Text1(1).Text
           .Recordset("参加工作时间") = Text1(2).Text
           .Recordset("身份证号") = Trim$(Text1(3).Text)
           .Recordset("学历") = Trim$(Combo1.Text)
        End With
框架已成，加减即可成软件

你这是用 VB. NET 做的还是 用 ACCESS 里面VB 做的 ？