2020年数据库管理系统企业员工信息管理.pdf

《2020年数据库管理系统企业员工信息管理.pdf》由会员分享，可在线阅读，更多相关《2020年数据库管理系统企业员工信息管理.pdf（37页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、数 据 库 管 理 系 统 企 业 员 工 信 息 管 理文 档 仅 供 参 考 数 据 库 应 用 技 术 课 程 设 计 说 明 书 题 目：企 业 员 工 信 息 管 理 系 统 学 院（系）：_专 业 班 级：_学 号：_学 生 姓 名：_指 导 教 师：_教 师 职 称：_起 止 时 间：.12.19-,12.31文 档 仅 供 参 考 研 室：软 件 工 程 辽 宁 工 业 大 学 课 程 设 计（论 文）任 务 书 院（系）：教 学 号 学 牛 工 厂 专 业 班 级 姓 名 设 计 题 目 企 业 员 工 信 息 管 理 系 统 设 计 技 术 参 数 1.题 目 要 达 到

2、的 目 标：完 成 系 统 的 登 陆、数 据 的 插 入 删 除 修 改 统 计 等 基 本 操 作。2.数 据 库：SQ LSER V ER。3.所 使 用 的 语 言、工 具:V B 6.0+SQLSERVER+WINDOWSXP04.所 采 用 的 技 术、系 统 结 构:ADO数 据 库 联 接 技 术。设 计 要 求 1.教 师 布 置 实 习 任 务 和 要 求 时，不 得 缺 席，并 做 好 记 录。2.上 机 前 预 先 把 所 有 的 源 程 序 编 写 好。3.上 机 时 不 得 迟 到，不 得 缺 席，爱 护 设 备，认 真 调 试 程 序。4.仔 细 查 阅 相 关

3、资 料，认 真 完 成 思 考 题。5.按 要 求 书 写 设 计 任 务 书，并 按 要 求 按 版 打文 档 仅 供 参 考 E L 不 得 雷 同。工 作 量 一 田 一 周 工 作 计 划 周 一 听 取 教 师 布 置 设 计 的 任 务 及 要 求。周 二 学 生 查 阅 相 关 资 料，进 行 数 据 库 设 计。周 三 至 周 五：详 细 设 计 与 界 面 设 计。周 一 至 周 四 程 序 设 计 与 上 机，调 试 源 程 序。周 五 书 写 课 程 设 计 任 务 书。参 考 资 料 数 据 库 应 用 技 术 数 据 库 应 用 技 术 实 验 指 导 书 自 编 数

4、 据 库 应 用 技 术 课 程 设 计 大 纲 自 编 等文 档 仅 供 参 考 说 明：此 表 一 式 四 份，学 生、指 导 教 师、教 研 室、系 部 各 一 份。可 加 附 页。指 导 教 师 评 语 教 师：学 生：1 2月 3 1日文 档 仅 供 参 考 目 录 第 一 章 概 述.第 二 章 问 题 定 义.第 三 章 需 求 分 析.第 四 章 数 据 库 设 计.第 五 章 界 面 设 计.第 六 章 代 码 与 注 释.设 计 总 结.参 考 文 献.错 误!未 定 义 书 签。错 误!未 定 义 书 签。错 误!未 定 义 书 签。错 误!未 定 义 书 签。错 误!未

5、 定 义 书 签。错 误!未 定 义 书 签。错 误!未 定 义 书 签。错 误!未 定 义 书 签。文 档 仅 供 参 考 第 一 章 概 述 企 业 人 事 档 案 是 企 业 在 人 事 管 理 活 动 中 形 成 的 重 要 人 事 记 录。人 事 档 案 在 发 展 中 国 特 色 社 会 主 义 过 程 中，是 人 力 资 源 储 备、促 进 人 才 合 理 流 动、科 学 配 置 和 合 理 使 用 人 才,全 面 考 察 了 解、正 确 评 价 和 使 用 人 才 的 重 要 依 据。可 是，有 的 企 业 却 片 面 地 认 为，人 事 档 案 不 过 是 人 的 经 历 记

6、 录，其 本 身 不 能 直 接 带 来 经 济 效 益，管 好 管 坏 无 所 谓，因 此 对 人 事 档 案 工 作 在 管 理 制 度、管 理 手 段、管 理 模 式、管 理 人 员 等 方 面 不 够 重 视，存 在 着 这 样 和 那 样 的 问 题，影 响 了 企 业 的 改 革 和 发 展。因 此，研 究 开 发 出 一 套 比 较 通 用、功 能 比 较 完 善 的 企 业 员 工 培 训 管 理 软 件，力 求 在 这 一 领 域 取 得 一 些 新 的 成 果。员 工 管 理 系 统 是 一 个 企 事 业 单 位 不 可 缺 少 的 部 分，它 的 内 容 对 于 企 事

7、 业 单 位 的 决 策 者 和 管 理 者 来 说 都 至 关 重 要,因 此 员 工 管 理 系 统 应 该 能 够 为 用 户 提 供 充 分 的 信 息 和 快 捷 的 查 询 手 段。但 一 直 以 来 人 们 使 用 传 统 人 工 的 方 式 管 理 文 件 信 息，这 种 管 理 方 式 存 在 着 许 多 缺 点,如:效 率 低、保 密 性 差,另 外 时 间 一 长,将 产 生 大 量 的 文 件 和 数 据,这 对 于 查 找、更 新 和 维 护 都 带 来 了 不 少 的 困 难。随 着 科 学 技 术 的 不 断 提 高,计 算 机 科 学 日 渐 成 熟,其 强 大

8、 的 功 能 已 为 人 们 深 刻 认 识，它 已 进 入 人 类 社 会 的 各 个 领 域 并 发 挥 着 越 来 越 重 要 的 作 用。文 档 仅 供 参 考 第 二 章 问 题 定 义 用 户 管 理：系 统 的 登 录 人 员，需 要 经 过 密 码 才 能 进 入。她 们 拥 有 对 系 统 数 据 的 登 录 界 面，信 息 查 询，部 门/职 务 管 理，密 码 修 改 等 操 作 权 限。管 理 员 管 理：员 工 信 息 管 理，员 工 工 资 管 理，员 工 部 门/职 务 的 管 理，用 户 管 理,退 出 的 详 细 信 息 的 管 理。能 够 对 系 统 密 码

9、 进 行 更 改，能 够 管 理 用 户 信 息、权 限。员 工 信 息 管 理：指 管 理 系 统 的 管 理 人 员，能 够 查 询 到 员 工 信 息 编 号，姓 名，出 生 年 月，现 任 职 务，所 属 部 门，开 始 工 作 时 间，进 单 位 时 间，身 份 证 号，联 系 电 话，家 庭 住 址，填 表 时 间 等。文 档 仅 供 参 考 第 三 章 需 求 分 析 一、数 据 库 需 求 分 析 企 业 员 工 信 息 管 理 系 统 的 开 发 任 务 是 为 了 减 轻 工 作 人 员 的 工 作 负 担，为 了 管 理 工 作 能 够 系 统 化、规 范 化 和 自 动

10、 化 而 开 发 的。作 为 企 业 发 展 战 略 的 重 要 组 成 部 分，人 员 工 作 是 其 中 的 重 中 之 重，是 企 业 赖 以 生 存 的 命 脉，市 场 经 济 条 件 下，在 企 业 中 起 决 定 作 用 的 除 企 业 产 品、服 务 之 外，人 员 的 作 用 越 来 越 为 明 显。作 为 企 业“选、育、用、留、汰”的 重 要 部 门 一 一 人 力 资 源 部，对 员 工 信 息 管 理 工 作 的 支 持 将 发 挥 越 来 越 大 的 作 用。培 训 部 作 为 人 力 资 源 工 作 中“育”的 主 要 执 行 部 门 就 处 于“承 上 启 下”的

11、 重 要 地 位，所 谓“承 上”即 承 接“选 才”后 的 培 训 工 作，所 谓“启 下”即 经 过 培 训，更 好 的“用 人”和 更 好 的“留 人”。企 业 员 工 管 理 系 统 是 将 企 业 的 人 事 管 理、工 资 管 理、考 勤 管 理 有 机 相 合，综 合 运 用 的 一 个 企 业 管 理 软 件，它 使 企 业 的 人 事 管 理 由 以 往 的 手 工 作 业，向 自 动 化、网 络 化、现 代 化 迈 进 了 一 大 步。从 而 使 企 业 的 人 事 管 理 人 员 从 繁 重 的 人 事 管 理 中 解 放 出 来，大 大 提 高 了 工 作 效 率，减

12、轻 了 管 理 人 员 的 工 作 量。企 业 员 工 管 理 系 统 的 数 据 需 求 包 括 如 下 几 点：数 据 的 一 致 性 与 完 整 性 由 于 系 统 的 数 据 是 共 享 的，在 不 同 的 公 司 中，员 工 信 息 是 共 享 数 据，因 此 如 何 保 证 这 些 数 据 的 一 致 性，是 系 统 必 须 解 决 的 问 题。要 解 决 这 一 问 题，要 有 一 定 的 人 员 维 护 数 据 的 一 致 性，在 数 据 录 入 处 控 制 数 据 的 去 向，而 且 要 求 对 数 据 库 的 数 据 完 整 性 进 行 严 格 的 约 束。二、数 据 库

13、概 念 的 结 构 设 计 数 据 库 是 数 据 库 应 用 程 序 的 重 要 组 成 部 分。一 个 设 计 结 构 合 理 的 数 据 库 对 于 应 用 程 序 的 开 发 效 率 和 程 序 的 性 能 都 是 非 常 重 要 的。数 据 库 的 设 计 过 程 大 致 如 下：根 据 用 户 需 求，确 定 数 据 库 中 要 保 存 的 数 据 信 息 对 用 户 需 求 进 行 分 析 是 数 据 库 设 计 的 第 一 个 阶 段。不 断 地 调 查 与 研 究 用 户 需 求，了 解 企 业 运 作 流 程 等 系 统 需 求，是 设 计 概 念 模 型 的 基 础。设

14、计 数 据 的 概 念 模 型 概 念 模 型 是 按 用 户 的 观 点 来 对 数 据 建 模，是 用 于 进 行 信 息 世 界 建 模 的 工 具。它 对 整 个 数 据 库 的 设 计 具 有 深 刻 的 影 响。文 档 仅 供 参 考 三、数 据 库 的 逻 辑 结 构 设 计：此 企 业 员 工 信 息 管 理 系 统 由 用 户 登 录，管 理 员 登 录，信 息 查 询，部 门 职 务 管 理，密 码 修 改，营 销 资 源 管 理，员 工 信 息 管 理，员 工 工 资 管 理 等 部 分 组 成。员 工 登 陆 属 性 表，用 员 工 姓 名 做 为 主 键，员 工 信

15、息 属 性 表 主 键 是 E I D 员 工 登 陆 属 性 表 的 主 键 作 为 员 工 登 陆 属 性 表 的 外 键；公 司 信 息 属 性 表，主 键 是 YID,员 工 信 息 的 主 键 作 为 其 外 键;员 工 工 资 表，主 键 为 PID。员 工 信 息 查 询 属 性 表，主 键 为 E N A M E。管 理 员 登 陆 属 性 表，主 键 为 C H A N G E T Y P E。四、数 据 字 典（DD）:企 业 员 工 信 息 管 理 基 本 信 息 表=用 户 登 录+管 理 员 登 录 用 户 登 录 表=员 工 信 息+员 工 工 资 登 记+员 工

16、部 门 职 务 登 记 管 理 员 登 录 表=员 工 信 息 管 理+员 工 工 作 管 理+员 工 部 门 职 务 管 理+用 户 管 理 五、程 序 流 程 图：图 3.1企 业 员 工 信 息 管 理 营 销 管 理 系 统 功 能 模 块 六、功 能 结 构 图：文 档 仅 供 参 考 由 田 延 员 工 部 门 员 工 工文 档 仅 供 参 考 图 3.2企 业 员 工 信 息 管 理 营 销 管 理 系 统 功 能 模 块文 档 仅 供 参 考 第 四 章 数 据 库 设 计 一、概 念 设 计：系 统 ER图 公 司 利 用 管 理 员 管 理 员 工 公 司 属 性 是：工

17、资 管 理 信 息，奖 惩 管 理 信 息，考 勤 管 理 信 息。管 理 员 负 责 对 各 种 信 息 的 输 入 与 输 出 员 工 属 性 是：姓 名，性 别，年 龄，部 门，联 系 方 式，身 份 证 号 码文 档 仅 供 参 考 二、逻 辑 设 计：下 面 列 出 几 个 主 要 的 数 据 库 表 设 计：在 开 发 企 业 员 工 信 息 管 理 系 统 的 过 程 中，因 为 要 多 处 用 到 对 数 据 库 的 操 作，因 此 这 些 操 作 在 每 次 用 到 时 在 每 个 V B程 序 中 去 实 现。根 据 企 业 员 工 信 息 系 统 数 据 库 模 块 图

18、分 析 可 知 道，各 表 所 包 含 的 字 段 的 列 名，数 据 类 型，长 度，是 否 允 许 为 空 等 具 体 情 况 如 下：表 4.1数 据 库 用 户 登 陆 表 字 段 名 称 标 识 名 称 数 据 类 型 空 否 字 段 说 明 Uname 用 户 名/管 理 员 名 char N 主 码 Upassword密 码 char NUtype 用 户 身 份 char N表 4.2 数 据 库 员 工 信 息 查 询 表 字 段 名 称 标 识 名 称 数 据 类 型 空 否 字 段 说 明 y id 员 工 编 号 Char N 主 码 changei 变 动 编 Cha

19、r N文 档 仅 供 参 考 表 4.3 数 据 库 员 工 工 资 表 d号 changetype变 动 类 型 Char Nename 姓 名 Char Nnowduty 现 任 职 务/部 门 Char Nbeforeduty曾 任 职 务/部 门 Char Nchangereason变 动 原 因 Char Nchangetime变 动 时 间 DatetimeN三、物 理 设 计 字 段 名 称 标 识 名 称 数 据 类 型 空 否 字 段 说 明 pid 员 工 编 aChar N 主 码 pay 基 本 工 资 Float Nprize 奖 金 Float N文 档 仅 供 参

20、 考 查 询 模 块 对 在 职 员 工 进 行 查 询 查 询 包 括 按 编 号 或 者 姓 名 或 者 身 份 证 号 等 位 关 键 字 查 询 对 离 职 员 工 进 行 查 询 同 上 操 作 模 块 对 员 工 的 基 本 信 息 进 行 录 入，修 改。员 工 信 息 应 该 包 括：学 号、姓 名、年 龄、学 历（不 多 于 3 个）、地 址、身 份 证 号 码（不 多 于 19个）、部 分、职 务、籍 贯、名 族、政 治 身 份。照 片 录 入。员 工 的 调 动 和 升 降 职 位 对 员 工 进 行 离 职 操 作 维 护 模 块 员 工 信 息 的 修 改，员 工 信

21、 息 的 删 除。查 看 数 据 库 看 是 否 有 此 员 工 编 号 存 在 Adodcl.CommandType=adCmdTextAdodcl.RecordSource=nselect*from employermessege where eid=,n&Trim（Textid.Text）&n,MAdodcl.RefreshIf Adodcl.Recordset.EOF=False ThenMsgBox”此 员 工 编 号 已 经 存 在，不 能 进 行 登 记！vbOKOnly+vbExclamation,“警 告”Textid.Text=Textid.SetFocusExit Sub

22、End If文 档 仅 供 参 考 第 五 章 界 面 设 计 一、登 陆 窗 口 如 下 所 示:在 企 业 员 工 管 理 系 统 中 主 窗 台 界 面 中 包 括 用 户 登 录 管 理，管 理 员 登 录 图 5.1主 窗 体 截 图。图 5.1主 窗 体 截 图 在 企 业 员 工 信 息 管 理 系 统 中 单 击 用 户 登 录 模 块 能 够 进 行、新 用 户 注 册.登 录.退 出。用 户 登 录 表 窗 体 截 图 如 图 5.2所 示。文 档 仅 供 参 考 图 5.2 用 户 登 录 截 图文 档 仅 供 参 考 在 企 业 员 工 信 息 管 理 系 统 中 登

23、录 用 户 管 理 进 入 此 模 块，此 模 块 主 要 完 成 对 产 品 登 录 界 面，信 息 查 询，部 门/职 务 的 管 理，密 码 修 改，退 出 的 详 细 信 息 的 管 理。用 户 管 理 表 窗 体 截 图 如 图 5.3 所 示。图 5.3用 户 登 录 表 截 图 在 企 业 员 工 信 息 管 理 系 统 中 登 录 管 理 员 管 理 进 入 此 模 块，此 模 块 主 要 完 成 员 工 信 息 管 理，员 工 工 资 管 理，员 工 部 门/职 务 的 管 理，用 户 管 理，退 出 的 详 细 信 息 的 管 理。管 理 员 管 理 表 窗 体 截 图 如

24、 图 5.4 所 示。文 档 仅 供 参 考 图 5.4 管 理 员 登 录 管 理 表 截 图文 档 仅 供 参 考 在 企 业 员 工 信 息 管 理 系 统 中 登 录 管 理 员 管 理 进 入 员 工 信 息 管 理 模 块，此 模 块 主 要 完 成 员 工 信 息 编 号，姓 名，出 生 年 月，现 任 职 务，所 属 部 门，开 始 工 作 时 间，进 单 位 时 间，身 份 证 号，联 系 电 话，家 庭 住 址，填 表 时 间 等。员 工 信 息 管 理 表 窗 体 截 图 如 图 5.5所 示。f.员 工 信 息 管 理 目 回 区 员 工 信 息 _员 工 编 号：启

25、姓 名 j李 颗 粒 性 别：r出 生 年 月：口 975-2-5现 任 职 务：职 员 所 属 部 门：开 始 工 作 时 间 J1998-6-11进 单 位 时 间：r身 份 证 号 码：|41568795465487541联 系 电 话：卜 义 786489541冢 庭 住 址：用 匕 武 门 埴 表 时 间：图 5.5 员 工 信 息 管 理 表 截 图文 档 仅 供 参 考 第 六 章 代 码 与 注 释 一、登 录 代 码 Option ExplicitPublic OK As BooleanDim miCount As IntegerPrivate Sub Form_Load()

26、OK=FalsemiCount=0End SubPrivate Sub cmdOK_Click()Dim txtsql As StringDim mrc As ADODB.RecordsetDim MsgText As StringUserName=If Trim(txtUserName.Text=ThenMsgBox”没 有 这 个 用 户，请 重 新 输 入 用 户 名！二 vbOKOnly+vbExclamation,警 告 txtUserName.SetF ocusElsetxtsql=select*from userjnfo whereuser_ID=H,&txtUserName.T

27、ext&H,nSet mrc=ExecuteSQL(txtsql,MsgText)文 档 仅 供 参 考 If mrc.EOF=True ThenMsgBox”没 有 这 个 用 户，请 重 新 输 入 用 户 名！二 vbOKOnly+vbExclamation,警 告 txtUserName.SetFocusElseIf Trim(mrc.Fields(l)=Trim(txtPassword.Text)ThenOK=Truemrc.CloseMe.HideUserName=Trim(txtUserName.Text)ElseMsgBox”输 入 密 码 不 正 确，请 重 新 输 入！”,

28、vbOKOnly+vbExdamation,警 告”txtPassword.SetF ocustxtPassword.Text=,M,End IfEnd IfEnd IfmiCount=miCount+1If miCount=3 ThenMe.Hide文 档 仅 供 参 考 End IfExit Sub二、员 工 部 门/职 务 代 码 Private Sub Commandl_CIick()，判 断 员 工 编 号 是 否 为 空 IfTextid.Text=n,ThenMsgBox”员 工 编 号 不 能 为 空！vbOKOnly+vbExclamation,警 告”Textid.SetF

29、ocusExit SubEnd If，查 看 数 据 库 看 是 否 有 此 编 号 的 员 工 存 在 Adodc2.CommandType=adCmdTextAdodc2.RecordSource=n select*fromemployermessege where eid=,n&Trim(Textid.Text)&n,nAdodcl.RefreshIf Adodc2.Recordset.EOF=True ThenMsgBox”此 员 工 不 存 在，不 能 进 行 登 记，请 先 填 写 正 确 员 工 编 号！”,vbOKOnly+vbExclamation,n警 告,，Textid.

30、Text=文 档 仅 供 参 考 Textid.SetFocusExit SubEnd If，查 看 数 据 库 看 此 编 号 是 否 已 登 记 Adodcl.CommandType=adCmdTextAdodcl.RecordSource=select*from bd whereyid=,n&Trim(Textid.Text)&Adodcl.RefreshIf Adodcl.Recordset.EOF=False ThenMsgBox”此 员 工 已 经 登 记！，vbOKOnly+vbExclamation,警 告”Textid.Text=Textid.SetFocusExit Sub

31、End If，查 看 姓 名 是 否 为 空 If Textname.Text=ThenMsgBox”姓 名 不 能 为 空！n,vbOKOnly+vbExclamation,警 告”Textname.SetF ocusExit SubEnd If文 档 仅 供 参 考，查 看 曾 任 职 务 是 否 为 空 If Textbeforeduty.Text=n n ThenMsgBox”曾 任 职 务 不 能 为 空！、vbOKOnly+vbExdamation,警 告 Textbeforeduty.SetF ocusExit SubEnd If，查 看 现 任 职 务 是 否 为 空 If T

32、extnowduty.Text=n n ThenMsgBox”现 任 职 务 不 能 为 空！、vbOKOnly+vbExclamation,警 告”Textnowduty.SetF ocusExit SubEnd If三、管 理 员 管 理 用 户 代 码 Private Sub Commandl_Click()Adodcl.Recordset.MoveFirstEnd SubPrivate Sub Command2_Click()Adodcl.Recordset.MovePreviousIf Adodcl.Recordset.BOF ThenAdodcl.Recordset.MoveLas

33、t文 档 仅 供 参 考 If Adodcl.Recordset.EOF ThenExit SubEnd IfEnd IfEnd SubPrivate Sub Command3_Click()Adodcl.Recordset.MoveNextIf Adodcl.Recordset.EOF ThenAdodcl.Recordset.MoveFirstIf Adodcl.Recordset.BOF ThenExit SubEnd IfEnd IfEnd SubPrivate Sub Command4_Click()Adodcl.Recordset.MoveLastEnd SubPrivate Su

34、b Command5_Click()Text3.Enabled=TrueCommandl.Enabled=FalseCommand2.Enabled=FalseCommand3.Enabled=False文 档 仅 供 参 考 Command4.Enabled=FalseCommand5.Enabled=FalseCommand6.Enabled=FalseTextl.DataField=n nTextl.DataField=n nText3.DataField=n nEnd SubPrivate Sub Command6_Click()Dim res As Stringres=MsgBox(

35、“你 确 定 要 删 除 此 信 息 吗？vbQuestion+vbYesNo,提 示)If res=vbYes ThenAdodcl.Recordset.DeleteAdodcl.Recordset.MoveNextIf Adodcl.Recordset.EOF ThenAdodcl.Recordset.MoveFirstEnd IfEnd IfEnd SubPrivate Sub Command7_CIick()Dim res As Stringres=MsgBox(你 确 定 要 更 新 此 信 息 吗？”,文 档 仅 供 参 考 vbQuestion+vbYesNo,提 示”)If r

36、es=vbYes ThenAdodcl.Recordset.DeleteAdodcl.RecordSource=n select*fromusermessege where uname=,n&Trim(Textl.Text)&n,nIf Adodcl.Recordset.EOF=False ThenMsgBox”此 用 户 名 已 经 存 在，请 另 外 选 择 用 户 名！，vbOKOnly+vbExclamation,警 告”Textl.SetFocusExit SubEnd IfAdodcl.Recordset.AddNewAdodcl.Recordset.FieIds(nUname)=

37、Trim(Textl.Text)Adodcl.Recordset.Fields(nUpasswordn)=Trim(Text2.Text)Adodcl.Recordset.Fields(nUtypeM)=Trim(Text3.Text)Adodcl.Recordset.UpdateMsgBox”信 息 修 改 成 功！工 vbOKOnly+vbExclamation,提 示 文 档 仅 供 参 考 Adodcl.Recordset.MoveLastEnd IfText 1.Enabled=FalseTextl.Enabled=FalseText3.Enabled=FalseCommandl.E

38、nabled=TrueCommand2.Enabled=TrueCommand3.Enabled=TrueCommand4.Enabled=TrueCommand5.Enabled=TrueCommand6.Enabled=TrueTextl.DataField=nUnamenTextl.DataField=UpasswordText3.DataField=nUtypenEnd SubPrivate Sub Command8_Click()Textl.Enabled=FalseTextl.Enabled=FalseText3.Enabled=FalseCommandl.Enabled=True

39、Commandl.Enabled=TrueCommand3.Enabled=True文 档 仅 供 参 考 Command4.Enabled=TrueCommand5.Enabled=TrueCommand6.Enabled=TrueF ormglygl.ShowMe.HideEnd Sub三、密 码 修 改 Private Sub Commandl_Click()，判 断 原 密 码 是 否 为 空 If Len(Trim(Textl.Text)=0 ThenMsgBox”原 密 码 不 允 许 为 空！二 vbOKOnly+vbExdamation,警 告 Textl.SetFocusEx

40、it SubEnd If，判 断 原 密 码 是 否 正 确 Adodcl.CommandType=adCmdTextAdodcl.RecordSource=n select*fromusermessege where uname=,n&Labell.Caption&Adodcl.RefreshTrim(Textl.Text)文 档 仅 供 参 考 Trim(Adodcl.Recordset.Fields(nUpasswordn).Value)ThenMsgBox”原 密 码 不 正 确！，vbOKOnly+vbExdamation,警 告 Textl.Text=n nTextl.Text=n

41、 nText3.Text=n nTextl.SetFocusExit SubEnd If，判 断 新 密 码 是 否 为 空 If Len(Trim(Text2.Text)=0 ThenMsgBox”新 密 码 不 允 许 为 空！工 vbOKOnly+vbExclamation,警 告”Textl.SetFocusExit SubEnd If，限 制 密 码 长 度 If Len(Trim(Text2.Text)16 ThenMsgBox”密 码 必 须 为 6-16 位！1 vbOKOnly+vbExclamation,警 告 文 档 仅 供 参 考 Textl.Text=Tex t3.T

42、ext=Textl.SetFocusExit SubEnd If，判 断 灾 次 输 入 的 密 码 是 否 为 空 If Len(Trim(Text3.Text)=0 ThenMsgBox”请 再 次 输 入 密 码！”，vbOKOnly+vbExclamation,警 告 Text3.SetFocusExit SubEnd If，判 断 两 次 所 输 入 的 密 码 是 否 一 致 If Textl.Text Text3.Text ThenMsgBox”输 入 密 码 不 一 致，请 重 新 输 入”,vbOKOnly+vbExclamation,”警 告 Textl.Text=n nT

43、ext3.Text=n nText2.SetFocusExit SubEnd If彳 修 改 密 码文 档 仅 供 参 考 MsgBox”恭 喜 你，修 改 密 码 成 功！请 记 住 你 的 新 密 码！”,vbOKOnly+vbExclamation,提 示 Adodcl.Recordset.Fields(nUpasswordn)=Trim(Text2.Text)Adodcl.Recordset.UpdateAdodcl.RefreshText 1.Text=n nTextl.Text=Text3.Text=Formyhgl.ShowMe.HideEnd SubPrivate Sub Co

44、mmand2_Click()Text 1.Text=Textl.Text=n nText3.Text=End SubPrivate Sub Command3_Click()F ormyhgl.ShowMe.HideEnd SubPrivate Sub Form_Load()文 档 仅 供 参 考 LabeU.Caption=Formyonghu.Adodcl.UserNameEnd Sub设 计 总 结 一 个 完 整 的 学 生 信 息 管 理 系 统 就 创 立 完 毕 了。在 本 例 中 我 们 详 细 地 讲 述 了 该 学 生 信 息 管 理 系 统 的 系 统 设 计 部 分，包

45、括 功 能 模 块 设 计、数 据 库 结 构 设 计 等。系 统 设 计 为文 档 仅 供 参 考 整 个 程 序 构 建 了 骨 架，各 个 功 能 模 块 实 现 各 个 细 节 部 分。在 本 项 目 的 软 件 开 发 的 过 程 中，我 全 面 实 践 一 个 面 向 数 据 库 的 应 用 系 统 的 开 发 过 程，学 习 了 很 多 有 关 的 知 识。这 样 的 项 目 对 我 学 过 的 数 据 结 构，程 序 设 计，数 据 库，VB等 课 程 是 一 个 综 合 性 很 高 的 实 践。一 些 以 前 没 有 学 得 很 杂 实 的 课 程 的 内 容，由 于 需 要

46、 在 实 践 中 运 用，刚 开 始 我 也 感 到 很 头 痛。但 回 过 头 再 去 看 有 关 的 教 科 书，经 过 一 段 时 间 的 钻 研，对 与 这 些 知 识 点 的 相 关 的 背 景，概 念 和 解 决 方 案 理 解 得 更 透 彻 了。另 外 我 还 充 分 体 会 了 从 事 软 件 开 发 工 作 需 要 特 别 严 谨 认 真 的 态 度 和 作 风，一 点 都 马 虎 不 得。每 一 个 细 微 的 细 节 都 必 须 十 分 的 注 意，如 果 不 认 真 思 考 决 策，就 会 出 现 或 大 或 小 的 错 误，如 果 早 期 的 错 误 隐 藏 下 来

47、，对 后 面 的 工 作 影 响 就 会 很 大，甚 至 有 时 要 推 倒 很 多 前 面 做 的 工 作 重 来。有 时 候，我 自 己 觉 得 我 写 的 程 序 非 常 的 正 确，可 是 就 是 编 译 通 不 过，在 查 找 错 误 的 过 程 中，面 临 着 否 认 自 己 的 过 程，非 常 的 痛 苦。这 时 候，我 一 般 是 先 自 己 经 过 书 本 和 资 料 找 解 决 办 法，实 在 没 辙 了 才 向 老 师 请 教。尽 管 向 老 师 请 教 解 决 问 题 比 较 快，自 己 钻 研 花 的 时 间 较 多，但 我 强 迫 自 己 独 立 的 思 考 对 我

48、 的 学 习 提 高 帮 助 非 常 大。在 反 重 复 复 的 学 习 及 不 耻 下 问 之 下，我 的 辛 勤 努 力 有 了 回 报，终 于 做 出 了 一 个 简 单 的 系 统，虽 然 这 个 系 统 的 功 能 非 常 的 简 单，在 实 际 的 运 用 中，还 有 些 不 足。因 为 我 涉 及 到 的 仅 仅 是 企 业 营 销 管 理 的 一 部 分 简 单 内 容，离 实 际 的 客 户 需 求 肯 定 还 有 一 定 的 差 距。由 于 我 的 知 识 浅 薄，经 验 不 足 及 阅 历 颇 浅，因 此，在 该 系 统 的 设 计 方 面 还 有 很 多 不 足，比 如

49、 功 能 过 少，界 面 不 够 醒 目 等 问 题，我 会 在 以 后 的 学 习 工 作 的 中，根 据 实 际 的 具 体 要 求 不 断 的 修 改，完 善，争 取 使 该 系 统 慢 慢 趋 向 完 美。在 本 系 统 的 设 计 过 程 和 论 文 编 写 过 程 中，佟 老 师 和 同 学 们 都 给 予 了 我 许 多 无 私 的 帮 助，特 别 是 佟 老 师 给 我 的 论 文 提 出 了 很 多 宝 贵 的 修 改 意 见，在 这 里，我 向 这 些 无 私 帮 助 我 的 人 表 示 衷 心 的 感 谢。文 档 仅 供 参 考 参 考 文 献 1陈 天 河 等.集 成

50、开 发 宝 典 M.北 京：电 子 工 业 出 版 社，2李 君 芳，赵 艳 杰.电 脑 知 识 与 技 术 M.机 械 工 业 出 版 社，（9）3王 珊，萨 师 炬.数 据 库 系 统 概 论 M,北 京：高 等 教 育 出 版 社，4张 白 一，崔 尚 森.面 向 对 象 程 序 设 计 M.西 安：电 子 科 技 大 学 出 版 社，5叶 齐 炼，申 华.学 校 教 务 工 作 实 用 手 册 M.北 京：开 明 出 版 社，6杨 舒 等.操 作 系 统 教 程 M.北 京：华 中 科 技 大 学 出 版 社，7朱 如 龙.SQL Server数 据 库 应 用 系 统 M.北 京：机