Delphi - 手把手教你基于D7+Access常用管理系统架构的设计与实现（更新中）

前言

　　从事软件开发工作好多年了，学的越深入越觉得自己无知，所以还是要对知识保持敬畏之心，活到老，学到老！

健身和代码一样都不能少，身体是革命的本钱，特别是我们这种高危工种，所以小伙伴们运动起来！有没有健身撸铁，体脂现在是多少呀？明年（2020/03/22）徐州的马拉松有没有报名呀！？

　　扯的有点远了，接下来我将抽三天时间手把手教你基于Delphi7+Access，同时搭配第三方控件RC、AlphaControl（第三方控件主要用于美化界面），完成通用管理系统架构的设计。骚年，想想是不是还有点小激动？

涉及知识点

Access数据库建立与关键表结构设计
Delphi ADOConnection动态连接Access数据库
Delphi前台fsMDIForm和fsMDIChild窗体设计
dxBarManager方式通用菜单架构设计
主界面常见状态栏涉及与动态更新（软件版本信息、时间状态信息、登录组信息、滚动信息、当前时间...）
Delphi通用登录界面设计及主界面载入交互
MD5方式验证和保存密码
动态窗体菜单列表（打开窗体事件、销毁窗体事件）
RzCheckTree方式设计常见用户权限
imageList图标库
第三方控件：RC、AlphaControl皮肤控件

看到这么多知识点是不是感觉有点晕啊！

没关系，接下来我们一步一步实现！注意我们的口号，保持对知识的敬畏之心！　　

整体设计方案

　　这个是我们系统实现部分的一个设计方案，因为系统是通用的嘛，所以这里我就叫它Common Management System了，下面简称CMS。

　　这里暂不做DFEMA和PFEMA的深层次分析，有BUG的系统才是好系统，不然还要开发和维护人员做什么？（客户小姐姐：呸，渣男！）

项目实现

　　骚年，扶好了，我要教你开车了，啊呸，我要教你开发了。

Access数据库建立与关键表结构设计

　　创建一个Access文件，命名为DataX.mdb，再创建两张表，分别命名为sysUser和sysUserAuthority，其中ID栏位自动生成，VDate栏位为日期格式，其余栏位均为长文本根式，并添加如下数据，如下图。

Delphi ADOConnection动态连接Access数据库

　　启动Delphi7，新建一个项目，分别命名为：工程文件命名为：CommonManagementSystem.dpr，单元文件命名为：uMain.pas，主窗体命名为：MainFrm。

然后保存，注意文件的保存位置，因为接下来连接Access数据库时需要根据相对路径来，参考下图。

　　然后，在主窗体上放一个ADOConnection控件，命名为conMain。接下来在工程onShow事件中写如下代码:

 procedure TMainFrm.FormShow(Sender: TObject);

 begin

   // 动态连接Access数据库

   try

     Screen.Cursor := crSQLWait;

     ChDir(ExtractFilePath(Application.ExeName));

     ChDir('..');

     try //动态加载数据库

       conMain.Connected := False;

       conMain.ConnectionString := 'Provider=Microsoft.Jet.OlEDB.4.0;Data Source=' + GetCurrentDir + '\DataX\DataX.mdb' + ';User ID=admin;Password=;Persist security Info=False';

       conMain.Connected := True;

       conMain.LoginPrompt := False;

       statusPaneAccess.Caption := '数据库已连接';//状态栏控件statusPane

       Screen.Cursor := crDefault;

     except

       Screen.Cursor := crDefault;

       statusPaneAccess.Caption := '数据库未连接';

       MessageDlg('数据库连接失败，请确认！', mtError, [mbOK], );

     end;

     Screen.Cursor := crDefault;

   except

     statusPaneAccess.Caption := '数据库未连接';

     MessageDlg('数据库连接失败，请确认！', mtError, [mbOK], );

   end;

 end;

　 OK，到这里工程动态连接Access数据库的功能已经实现了。

　　骚年，是不是感觉很简单，是的，你没有看错，跟着我一步步做，就是so easy！（