会编程的高手帮帮忙,帮我编个小VB程序，万分感激

快要考试了，BT老师给我们一群菜鸟学生除了一道题目，是编写企业人事管理系统，像我们这种菜鸟根本不会，所以请论坛的朋友帮帮我啊，小弟万分感激。。。。我把附件给传上来，能帮帮我的朋友留个言吧！编好之后发给我。。。
要求:
《基于VB和ACCESS的数据库应用系统开发》实训指导书
Ⅰ系统设计
在每个单位的一般日常工作中都需要一套人事信息管理系统，以便于对单位的人员组成进行管理。因此，开发制作人事管理系统具有较大的社会现实意义，同时，人事管理系统是一切应用系统的典范，它具有一切应用系统的特征，系统结构与现实生活紧密结合，具体直观，它具有典型的数据库应用系统的特征，往往是数据库应用开发中经常进行例证的好例子，它的开发应用简单，而又不失一般性。
在本课题中包括技术人才管理、管理人才管理、数据信息备份、用户信息管理和退出系统等主要功能模块，全面系统地实现了人事信息管理系统的功能。
一、系统功能描述
系统开发的总体任务是实现企业人事信息关系的系统化、规范化和自动化，以此来提高企业的工作效率。
本系统所述的企业人事管理系统的主要功能包括：
1、企业的技术人才管理功能
 添加技术人才信息。
 查询技术人才信息。
 修改技术人才信息。
 删除技术人才信息。
2、企业的管理人才管理功能
 添加管理人才信息。
 查询管理人才信息。
 修改管理人才信息。
 删除管理人才信息。
3、数据信息备份功能
 数据信息备份功能主要是完成技术人才信息、管理人才信息和用户信息的备份。
4、系统管理功能
 用户信息管理。
 用户密码管理。
5、退出系统功能

二、功能模块划分
本系统可以实现5个完整的功能。根据这些功能，设计出系统的功能模块，如图所示。

在功能模块示意图的树状结构中，每一个叶子结点都是一个最小的功能模块，都是对数据库进行相应的操作，即添加记录、修改记录、删除记录以及查询显示记录信息。
三、系统流程分析
系统流程，就是指用户在使用系统时的工作过程。
本系统的流程分析，如下图所示。

Ⅱ数据库设计
数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高存储的效率，保证数据的完整性和一致性。另外，合理的数据库结构将非常有利于程序的实现。
一、数据库需求分析
用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能够充分满足各种信息的输入和输出。收集基本数据、数据结构和数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。针对一般单位人事信息管理系统的需求，通过对员工工作过程的内容和数据流程的分析，设计如下所示的数据项：
 技术人才基本信息：职工编号（是必填字段）、姓名、性别、民族、出生日期（年、月、日）、文化程度、政治面貌、技术职称、主要特长、工作经验、主要科研成果。
 管理人才基本信息：职工编号（是必填字段）、姓名、性别、国别、民族、出生日期（年、月、日）、身份证号、婚姻状况、文化程度、专业、政治面貌、技术职称、主要特长、工作以历、主要业绩。
 数据备份：备份用户输入的数据，防止丢失。
 系统管理：给用户提供添加用户和修改密码的功能。字段包括：用户名（是必填字段）和密码。
二、数据库逻辑结构
数据库包含以下3个表：技术人才表、管理人才表和密码表。
 技术人才表用来保存技术人才的基本信息。
技术人才表的结构下表所示：
字段名称数据类型字段属性
字段大小标题必填字段索引
职工编号文本 50 职工编号是有
姓名文本 50 姓名否无
性别文本 50 性别否无
民族文本 50 民族否无
年数字长整型年否
月数字长整型月否
日数字长整型日否
文化程度文本 50 文化程度否无
政治面貌文本 50 政治面貌否无
技术职称文本 50 技术职称否无
主要特长文本 50 主要特长否无
工作经验备注工作经验否
主要科研成果备注主要科研成果否无

 管理人才表用来保存管理人才的基本信息。
 系统密码表用来保存用户名和密码的基本信息。
Ⅲ 系统主窗体的建立：
一、系统的主窗体
系统的主窗体完成的功能如下：
当单击“技术人才管理”标签时，弹出“技术人才管理”窗体，进行“技术人才管理”。
当单击“管理人才管理”标签时，弹出“技术人才管理”窗体，进行“管理人才管理”。
当单击“数据信息备份”标签时，弹出“数据信息备份”窗体，进行“数据备份”。
当单击“系统管理”标签时，弹出“系统管理”窗体，进行“系统维护”。
当单击“退出系统”标签时，退出本系统。
当单击“关于”标签时，弹出“关于”窗体，显示相关信息。
Ⅳ 登录模块设计
用户要使用本系统，首先必须通过系统的身份认证，这个过程叫登录。登录过程主要就是根据用户名和密码来判断用户是否可以进入系统。
一、设计登录窗体
它由2个Label控件、2个Textbox控件和2个CommandButton控件组成。

表2 登录窗体控件属性表
控件属性属性取值
form Name frmLogin
Caption 登录
Label Name Label1
caption 用户名
Label Name Label2
caption 密码
Text Name txtusername
Text Name txtpassword
passwordchar *
command Name cmdok
Command Name cmdcancel

登录窗体的代码如下。
Option Explicit
Public LoginSucceeded As Boolean
Dim connconnection As ADODB.Connection
Dim rsRecordset As ADODB.Recordset
    '检查正确的密码

Private Sub cmdOK_Click()
    Dim numlogin As Integer
    Dim strconnect As String
    strconnect = "Provider= Microsoft.Jet.OLEDB.3.51;" & "Data Source=" & App.Path & "\人才信息.mdb;"
    Set connconnection = New ADODB.Connection
    connconnection.CursorLocation = adUseClient
    connconnection.Open strconnect
    Set rsRecordset = New ADODB.Recordset
    rsRecordset.CursorType = adOpenStatic
    rsRecordset.CursorLocation = adUseClient
    rsRecordset.LockType = adLockPessimistic
    rsRecordset.Source = "select * from 密码表 where 用户名='" & txtusername.Text & "'"
    rsRecordset.ActiveConnection = connconnection
    rsRecordset.Open
    If (rsRecordset.RecordCount = 0) Then
       MsgBox "无此用户名", , "登录"
    Else
     If (rsRecordset.Fields("密码").Value = Trim(txtpassword.Text)) Then
        Form1.Show
        Me.Hide
     Else
        MsgBox "无效的密码，请重试!", , "登录"
        txtpassword = ""
        txtpassword.SetFocus
        numlogin = numlogin + 1
        If numlogin >= 3 Then
            MsgBox "错误输入已达3次，系统退出！", vbOKOnly + vbExclamation, "警告"
            Unload Me
            Exit Sub
        End If
     End If
  End If
  connconnection.Close
  Set connconnection = Nothing
End Sub

Private Sub cmdCancel_Click()
    '设置全局变量为 false
    '不提示失败的登录
    LoginSucceeded = False
    Unload Me
End Sub

当输入用户名和密码后，进入企业人事管理的主窗体，主窗体如图3所示。
进入企业人事管理的主窗体后，单击鼠标左键，显示6个LABEL控件，如图4所示。

Ⅶ  技术人才管理模块的设计
技术人才管理模块完成的功能如下：
当单击“查询”标签控件时，进入查询信息窗体，可以查询所有技术人才信息。
当单击“录入”标签控件时，进入录入信息窗体，可以输入所有技术人才信息。
当单击“修改”标签控件时，进入修改信息窗体，可以修改所有技术人才信息。
当单击“删除”标签控件时，进入删除信息窗体，可以删除任一技术人才信息。
当单击“退出”标签控件时，可以返回上级菜单。
一、技术人才管理主窗体的建立
主窗体布局如图5所示。
三、技术人才录入窗体的建立
技术人才录入窗体如图6所示。
表7 技术人才录入窗体控件属性表
控件属性属性取值
label Name Label1
Caption 技术人才录入
Text1\text2\text3\text4 text 为空
Text6～text8、text12～text17 Caption 为空
Frame Name Frame1
Caption 为空
option Name Option1
Caption 男
option Name Option2
Caption 女

--------------------编程问答-------------------- 我是新手没有积分，大家帮帮我啊。。。。 --------------------编程问答-------------------- 已经如此详细了,而且如此简单的一个程序,还要别人为你写软件出来?还是你自己写吧,没人会给你写的!
怎么会以这种人,好大的脸呀!不过我还是给你出个主意 :就在你们学校花钱找人给你写一个! --------------------编程问答-------------------- no money, no help, no code. --------------------编程问答--------------------

引用 3 楼 vansoft 的回复:

no money, no help, no code.

在理
其实着用系统网上多滴是自己找个下了就OK了 --------------------编程问答-------------------- 又没钱，又没分，你是谁啊，别人的时间就这样浪费？ --------------------编程问答-------------------- no money, no help, no code. --------------------编程问答--------------------

--------------------编程问答-------------------- 帮你顶 --------------------编程问答-------------------- 到书店，这类程序有的是，带光盘的，可以直接调用~ --------------------编程问答--------------------

引用 9 楼 cdsnl 的回复:

到书店，这类程序有的是，带光盘的，可以直接调用~

呵 --------------------编程问答-------------------- no money, no help, no code. --------------------编程问答-------------------- 垃圾一个不要在论坛上吵 --------------------编程问答-------------------- 代写作业?
NO! --------------------编程问答--------------------

补充：VB ,  基础类