|
2.3 系统的总体设计 这个管理系统从4月1日开始着手设计开发,经过一段时间的分析，并根据对办公室日常工作流程的具体要求及需要本软件实现的功能，将本软件分为5个大的模块，分别是：第一部分：办公管理；第二部分：信息设置；第三部分：外部工具； 第四部分：帮助其他。 paper51.com
程序流程图如下： paper51.com
http://www.paper51.com
2.4 系统的详细设计 http://www.paper51.com
进入Access后要做的第一件事就是建立一个数据库。Access提供了6种用构造数据库系统的对象，根据本课题的需要，在这里选择一个空的数据库，命名建立了一个数据库名称为“bm”，办公管理系统。并在此数据库下创建了八个表，用于存放原始数据。它只是存放数据，对其中数据的修改要通过对应的窗体来完成。创建各表的具体结构如下： 内容来自论文无忧网 www.paper51.com
1. 职员表: 内容来自论文无忧网 www.paper51.com
paper51.com 2. 部门表: http://www.paper51.com
copyright paper51.com
3. 打印设置表: 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com 4. 打印纸信息表: copyright paper51.com http://www.paper51.com 5. 身份证信息表: http://www.paper51.com http://www.paper51.com 6. 通讯录信息表: 内容来自www.paper51.com
http://www.paper51.com 7. 邮编电话表: copyright paper51.com http://www.paper51.com 8. 用户权限表: 内容来自www.paper51.com
内容来自www.paper51.com 3 本程序的技术实现及具体功能 http://www.paper51.com 3.1 登录的界面与程序设计实现 http://www.paper51.com
copyright paper51.com
代码设置: http://www.paper51.com
unit BM_LOGINU; http://www.paper51.com interface copyright paper51.com
uses 内容来自论文无忧网 www.paper51.com Windows, Messages, SysUtils, Variants,Classes, Graphics, Controls, Forms, 内容来自www.paper51.com Dialogs, Buttons, StdCtrls, jpeg, ExtCtrls; 内容来自论文无忧网 www.paper51.com type 内容来自www.paper51.com TBM_LOGINF = class(TForm) copyright paper51.com
Panel1: TPanel; copyright paper51.com Label1: TLabel; 内容来自www.paper51.com Label2: TLabel; 内容来自www.paper51.com Label3: TLabel; 内容来自www.paper51.com Image1: TImage; 内容来自论文无忧网 www.paper51.com
edtPassword: TEdit; paper51.com edtAliasName: TEdit; http://www.paper51.com Panel2: TPanel; 内容来自论文无忧网 www.paper51.com
btnOK: TSpeedButton; http://www.paper51.com btnCancel: TSpeedButton; paper51.com
procedure btnOKClick(Sender:TObject); 内容来自www.paper51.com procedureedtAliasNameKeyDown(Sender: TObject; var Key: Word; paper51.com Shift:TShiftState); http://www.paper51.com procedureedtPasswordKeyDown(Sender: TObject; var Key: Word; paper51.com Shift:TShiftState); 内容来自www.paper51.com procedure btnCancelClick(Sender:TObject); copyright paper51.com procedureFormCloseQuery(Sender: TObject; var CanClose: Boolean); paper51.com private copyright paper51.com { Private declarations } paper51.com public paper51.com { Public declarations } 内容来自www.paper51.com end; copyright paper51.com var 内容来自论文无忧网 www.paper51.com BM_LOGINF: TBM_LOGINF; 内容来自论文无忧网 www.paper51.com
Logined: Boolean = false; 内容来自www.paper51.com
function LoginExecute(aFormClass:TFormClass): Boolean; //打开登录窗口，并判断是否登录成功 内容来自论文无忧网 www.paper51.com implementation copyright paper51.com uses BM_DMU,BM_OFICEU; 内容来自论文无忧网 www.paper51.com
{$R *.dfm} 内容来自论文无忧网 www.paper51.com function LoginExecute(aFormClass:TFormClass): Boolean; copyright paper51.com begin 内容来自www.paper51.com
with aFormClass.Create(Application) do http://www.paper51.com begin copyright paper51.com
Logined := False; copyright paper51.com try 内容来自www.paper51.com
showModal; copyright paper51.com finally paper51.com free; 内容来自www.paper51.com end; paper51.com result := Logined; http://www.paper51.com end; paper51.com end; 内容来自论文无忧网 www.paper51.com procedureTBM_LOGINF.btnOKClick(Sender: TObject); copyright paper51.com var http://www.paper51.com
vLogined: variant; copyright paper51.com
sql2,bumen:string; paper51.com begin 内容来自www.paper51.com
with dm.User do 内容来自论文无忧网 www.paper51.com
begin 内容来自论文无忧网 www.paper51.com Close ; copyright paper51.com sql.Clear; copyright paper51.com
sql2:='select A.*,B.部门编码,B.部门名称 from 用户权限 A,部门 B where A.用户名称= "'; 内容来自论文无忧网 www.paper51.com sql2:=sql2+edtAliasName.TEXT+'"'+' and A.密码="'+ edtPassword.Text +'"'; 内容来自论文无忧网 www.paper51.com sql2:=sql2+ ' and A.部门=B.部门编码'; paper51.com
sql.Add(sql2); paper51.com open; copyright paper51.com if RecordCount> 0 thenvLogined:=true copyright paper51.com else vLogined:=false; 内容来自论文无忧网 www.paper51.com end; copyright paper51.com if vLogined=false then http://www.paper51.com begin 内容来自www.paper51.com
Application.MessageBox('用户名和密码不正确，请重新输入', '提示信息',mb_iconInformation + mb_defbutton1); http://www.paper51.com exit; paper51.com end http://www.paper51.com else 内容来自论文无忧网 www.paper51.com begin copyright paper51.com BM_OFFICEF.StatusBar1.Panels[0].TEXT :='系统提示:' ; 内容来自www.paper51.com BM_OFFICEF.StatusBar1.Panels[1].TEXT := '北明公司: '+dm.User.Fields[6].AsString+' 操作员: ' +dm.User.Fields[4].AsString; paper51.com BM_OFFICEF.StatusBar1.Panels[2].TEXT := '登陆时间: '+FormatDateTime('YYYY"年"MMMM DD"日" TT',now); 内容来自www.paper51.com end; 内容来自论文无忧网 www.paper51.com Logined := true; copyright paper51.com Close; 内容来自论文无忧网 www.paper51.com end; 内容来自论文无忧网 www.paper51.com |