delphi基于角色访问控制的OA系统的设计与实现.doc

JSJ03-043@delphi基于角色访问控制的OA系统的设计与实现(源代码+论文)

收藏

资源目录
跳过导航链接。
JSJ03-043@delphi基于角色访问控制的OA系统的设计与实现(源代码+论文).zip
JSJ03-043@delphi基于角色访问控制的OA系统的设计与实现(源代码+论文)
代码
delphi基于角色访问控制的OA系统的设计与实现.doc---(点击预览)
Image
小图片
工具栏图片
按钮图片
tupian
operator_Data.MDF
operator_Log.LDF
Project1.cfg
Project1.dof
Project1.dpr
Project1.exe
Project1.res
Project1.~dpr
Thumbs.db
Uchangepw.dcu
Uchangepw.ddp
Uchangepw.dfm
Uchangepw.pas
Uchangepw.~ddp
Uchangepw.~dfm
Uchangepw.~pas
UDM.dcu
UDM.ddp
UDM.dfm
UDM.pas
UDM.~ddp
UDM.~dfm
UDM.~pas
UInter.dcu
UInter.ddp
UInter.dfm
UInter.pas
UInter.~ddp
UInter.~dfm
UInter.~pas
Ulogin.dcu
Ulogin.ddp
Ulogin.dfm
Ulogin.pas
Ulogin.~ddp
Ulogin.~dfm
Ulogin.~pas
Umain.dcu
Umain.ddp
Umain.dfm
Umain.pas
Umain.~ddp
Umain.~dfm
Umain.~pas
Unit10.dcu
Unit10.dfm
Unit10.pas
Unit10.~dfm
Unit10.~pas
Unit11.dcu
Unit11.ddp
Unit11.dfm
Unit11.pas
Unit11.~ddp
Unit11.~dfm
Unit11.~pas
Unit12.dcu
Unit12.dfm
Unit12.pas
Unit13.dcu
Unit13.ddp
Unit13.dfm
Unit13.pas
Unit13.~ddp
Unit13.~dfm
Unit13.~pas
Unit14.dcu
Unit14.ddp
Unit14.dfm
Unit14.pas
Unit14.~ddp
Unit14.~dfm
Unit14.~pas
Unit15.dcu
Unit15.ddp
Unit15.dfm
Unit15.pas
Unit15.~ddp
Unit15.~dfm
Unit15.~pas
Unit16.dcu
Unit16.ddp
Unit16.dfm
Unit16.pas
Unit16.~ddp
Unit16.~dfm
Unit16.~pas
Unit17.dcu
Unit17.ddp
Unit17.dfm
Unit17.pas
Unit17.~ddp
Unit17.~dfm
Unit17.~pas
Unit18.dcu
Unit18.ddp
Unit18.dfm
Unit18.pas
Unit18.~dfm
Unit18.~pas
Unit19.dcu
Unit19.ddp
Unit19.dfm
Unit19.pas
Unit19.~ddp
Unit19.~dfm
Unit19.~pas
Unit20.dfm
Unit20.pas
Unit20.~dfm
Unit20.~pas
Unit21.dfm
Unit21.pas
Unit21.~dfm
Unit21.~pas
Unit7.dcu
Unit7.ddp
Unit7.dfm
Unit7.pas
Unit7.~ddp
Unit7.~dfm
Unit7.~pas
Unit8.dcu
Unit8.ddp
Unit8.dfm
Unit8.pas
Unit8.~ddp
Unit8.~dfm
Unit8.~pas
Unit9.dcu
Unit9.ddp
Unit9.dfm
Unit9.pas
Unit9.~ddp
Unit9.~dfm
Unit9.~pas
UTool.dcu
UTool.ddp
UTool.dfm
UTool.pas
UTool.~ddp
UTool.~dfm
UTool.~pas
Uusermanager.dcu
Uusermanager.ddp
Uusermanager.dfm
Uusermanager.pas
Uusermanager.~ddp
Uusermanager.~dfm
Uusermanager.~pas
压缩包内文档预览:(预览前20页/共30页)
预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图 预览图
编号:508101    类型:共享资源    大小:1.99MB    格式:ZIP    上传时间:2015-11-10 上传人:QQ28****1120 IP属地:辽宁
12
积分
关 键 词:
毕业设计计算机
资源描述:
JSJ03-043@delphi基于角色访问控制的OA系统的设计与实现(源代码+论文),毕业设计计算机
内容简介:
管理员 权限 用户名 密码 部门 注册日期 用户 权限 用户名 部门 注册日期 密码 管理 M N nts本科毕业论文(设计)任务书 题 目 基于角色访问控制的 OA 系统 的设计与实现 题目 来源 教师科研 教师自拟 学生 自拟 其他 题目 类型 理论研究 应用研究 设计开发 其他 选题背景 及目的 随着计算机及网络技术的飞速发展, Internet/Intranet 应用在全球范围内日益普及,当今社会正快速向信息化社会前进,信息系统的作用也越来越大。各级政府、公司和企业凭着雄厚的资金和人才优势,加快了信息化的步伐 。为了提高工作效率,增强企业的竞争力,开发一个 高质量、高效率的办公自动化信息系统 已是迫在眉睫 。 本次毕业设计的目的是 开发一个多功能的 OA 软件, 锻炼学生的分析能力和实际编程能力 ,同时 引导学生进行了一次模拟实际产品的开发,对于学生以后工作能力的培养具有重要的意义 。 工作任务 及要求 ( 1)本毕业设计的主要任务: 综合运用以前所学的专业知识,设计开发一个 OA 软件,本设计要求实现 一方面是通过收发电子邮件为主的方式,与其它员工交流各种信息;员工管理个人日程安排。另一方面则是面向公司办公业务方面的业务管理功能。即完全采用计算机技术处理办公业务,使企 业内部人员能够方便快捷地共享信息、交流信息,高效地协同工作,既兼顾个人办公效率的提高,又可以实现群体协同工作 ( 2)本毕业设计的相关要求: 本系统的开发要求采用 C/S 结构,选用所熟悉的开发工具及开发环境进行本系统的设计与开发。 本毕业设计要求提供能实现 文档管理 ,电子邮件管理,工作任务管理,工作日程管理,发文管理 等功能的软件,要求软件具有操作简便、界面友好等特性。 提交本次毕业设计的毕业论文。在毕业论文中应详细说明所设计与实现的系统的设计流程;写作中应严格按照“成都信息工程学院本科毕业论文 (设计 )内容及格式的规范化要求”进行写作。 时间安排 1开题报告 ( 2007 年 2 月 26 日 2007 年 3 月 11 日) 2实施研究 ( 2007 年 3 月 12 日 2007 年 5 月 7 日) 3完成初稿 ( 2007 年 5 月 8 日 2007 年 5 月 18 日) 4修改定稿 ( 2007 年 5 月 19 日 2007 年 5 月 24 日) 5成绩评定 ( 2007 年 5 月 25 日 2007 年 5 月 29 日) 6答 辩 ( 2007 年 6 月 5 日 2007 年 6 月 10 日) 以上内容由指导教师填写 指导教师签字 年 月 日 系部 审核 年 月 日 接受任务签字 接受任务时间: 年 月 日 学生签名: nts本科毕业论文(设计)开题报告 题 目 基于角色访问控制的 OA系统 的设计与实现 选题意义 随着整个社会信息化建设的兴起,信息技术、信息产品广泛的渗透到经济 ,科技和社会各领域,在转变经济增长方式,增强技术创新能力,提高传统产业水平,优化产业结构,推动社会进步,提高人民生活水平 等方面的作用越来越大 。 政府、企事业单位的信息化建设是一个集办公自动化、业务管理、领导决策等应用为一体综合信息管理系统,是一个应用覆盖面广泛,涉及部门多的应用系统。财务、人事、或业务管理系统往往只是涉及一个部门,或者一部分人员使用的业务管理系统。而整个单位的信息化涉及各个部门和各项业务,使用人员包括单位的最高级领导、管理部门和全体员工。因此,政府和企业的信息化是一个涉及面广泛的综合信息管理系统。 在 21 世纪办公自动化以成为一种趋势,选择设计 OA 软件 可以 锻炼了 我 的 系统分析能力和 实际 编程 能力。 主要研究内容 综合运用以前所学的专业知识,设计开发一个多功能 OA 软件,本设计要求实现部分功能 功能,具体包括以下内容: ( 1)在设计与开发中,重点如何解决 各个不同用户使用本系统的权限问题 ,保障系统的安全性 ; ( 2) 在软件开发与设计中 能实现 文档管理 ,电子邮件管理,工作任务管理,工作日程管理,发文管理 等 OA 软件的主要功能; 主要研究思路和方法 本系统的开发要求采用 C/S 结构 。因此,本次毕业设计应首先分析 OA 软件的相关功能,结合本次毕业设计的相关要求写出需求分析;其次,综合运用以前所学的相关知识(包括计算机网络技术、相关 协议、信息安全相关知识等),选择所熟悉的开发工具进行本毕业设计的开发;在设计中以需求分析为基础,写出系统开发计划、实现流程及相关问题的实现方法;同时,在开发设计与实现中,要保存好相关的设计文挡,为后面的毕业论文的写作准备材料;最后,系统开发完毕后,进行调试和试运行,做好调试和试运行的相关记录,也为后面的毕业论文的写作准备材料。 已有工作条件 个人计算机 1 台,收集了与开发设计相关的资料,具备一定的设计开发能力;对 TCP IP 协议有了一定的了解与认识,对软件开发的总体流程有一定的了解,网络编程能力也有一定的基 础,对此系统的开发制定了初步的开发计划。 (接下页) nts工作进度安排 ( 1) 2007 年 2 月 26 日至 3 月 11 日,指导老师向学生下达毕业论文(设计)任务书,并指导学生完成开题报告; ( 2) 2007 年 3 月 12 日至 3 月 31 日,查阅相关资料,编写系统的开发设计文档,对系统进行详细系统的功能定义并确定下一部开发; ( 3) 2007 年 4 月 1 日至 5 月 7 日:系统功能的编码实现; ( 4) 2007 年 5 月 8 日至 5 月 24 日:统的全面测试,归并相关系统开发文档,完成毕业论文的撰写及定稿。 预期 成果 本设计的预期成果是 能够完成 OA 软件 的部分功能 内 部 电 子 邮 件、公告通知、个人考勤、日程安排、工作日志、工作流程(公文流转)、考勤管理、工作 计 划、 讨论区 、聊天室、文件柜、系 统 日志、等多个极具价值的功能模 块 。 形成一个真正实用的、功能完善的 OA 软件;提供本毕业设计开发的软件和毕业设计论文。 主要参考文献目录 1 明日科技 Delphi 函数参考大全 北京: 人民邮电出版社 , 2006 2 明日科技 Delphi 程序开发范例宝典 北京:人民邮电 出版社, 2006 3 伊文敏 Delphi + SQL 应用实例解析 北京:人民邮电 出版社, 2006 4 吴四九 网络数据库开发及应用 四川 : 四川大学出版社 , 2003 (以上内容在教师指导下由学生填写) 学生签字: 年 月 日 指导教师审核意见 签名: 年 月 日 nts 基于角色访问控制的 OA办公系统源代码 一 登陆界面代码: unit Ulogin; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, DB; type TForm1 = class(TForm) Panel1: TPanel; Edit1: TEdit; Edit2: TEdit; Panel2: TPanel; Button2: TButton; Button1: TButton; DataSource1: TDataSource; Label1: TLabel; Label2: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Panel2Click(Sender: TObject); private Private declarations public Public declarations end; var Form1: TForm1; strUserID:string=; /定义变量 strName,存放通过验证的用户名 strpassword:string=; /定义变量 strPassword,存放通过验证的用户密码 strTime:string=; implementation uses UDM, Umain; $R *.dfm procedure TForm1.Button1Click(Sender: TObject); ntsbegin strUserID:=edit1.Text; /取用户输入的用户名 strpassword:=edit2.Text; /取用户输入的密码 if (strUserID) then begin with dm.cx do begin sql.clear; sql.add(select * from Usersk where UserID=+strUserID+ and Password=+strpassword+); open; if isempty then /查询 结果记录集为空 showmessage(姓名或密码错。 ) else begin /读取权限,并判断权限的值 / dm.cx1.SQL.clear; / dm.cx1.SQL.add(select Right_1 from operator where name=+strname+ and password=+strpassword+); / dm.cx1.Open; / if dm.cx1.Fields0.AsInteger = 1 then IsManager := true / else if dm.cx1.Fields0.AsInteger = 0 then IsManager := false; form2.Show; /密码。帐号验证成功的话,就进入主采单 self.Hide; edit1.Text:=; /清空编辑框 edit2.Text:=; end; close; /关闭数据集 ADODataSet1 end; end else showmessage(姓名、密码不能为空。 ); end; procedure TForm1.Button2Click(Sender: TObject); begin close; /点出按纽推出。 end; procedure TForm1.Panel2Click(Sender: TObject); begin end; ntsend. 主界面代码如下: unit Umain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, Buttons, DB, ADODB, ComCtrls; type TForm2 = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N16: TMenuItem; BitBtn1: TBitBtn; BitBtn2: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; N17: TMenuItem; N18: TMenuItem; N19: TMenuItem; N20: TMenuItem; N21: TMenuItem; N22: TMenuItem; BitBtn5: TBitBtn; BitBtn6: TBitBtn; N23: TMenuItem; nts N24: TMenuItem; Label1: TLabel; Label2: TLabel; StatusBar1: TStatusBar; ADOQuery1: TADOQuery; N25: TMenuItem; N26: TMenuItem; Label3: TLabel; Label4: TLabel; Label6: TLabel; procedure FormShow(Sender: TObject); procedure N2Click(Sender: TObject); procedure N3Click(Sender: TObject); procedure N5Click(Sender: TObject); procedure Internet1Click(Sender: TObject); procedure N15Click(Sender: TObject); procedure N9Click(Sender: TObject); procedure N7Click(Sender: TObject); procedure N12Click(Sender: TObject); procedure N14Click(Sender: TObject); procedure N16Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtn4Click(Sender: TObject); procedure N18Click(Sender: TObject); procedure N19Click(Sender: TObject); procedure N21Click(Sender: TObject); procedure N22Click(Sender: TObject); procedure BitBtn5Click(Sender: TObject); procedure BitBtn6Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure N26Click(Sender: TObject); procedure FormCreate(Sender: TObject); private Private declarations public Public declarations end; type Tcdk=set of 1.14; var nts Form2: TForm2; cdk: Tcdk; implementation uses UDM, Uusermanager, Uchangepw, Ulogin, UInter, UTool, Unit7, Unit8, Unit10, Unit11, Unit13, Unit16, Unit14, Unit15, Unit18; $R *.dfm procedure TForm2.FormShow(Sender: TObject); begin / if ismanager then /在进入时判断判断用户的权限是否是管理员,是的话可以使用管理员操作按纽,否则不可以。 / begin / n2.Enabled :=true; / end else / begin / n2.Enabled :=false; / end; cdk:= ; ADOQuery1.SQL.clear; / dm.cx1.SQL.add(select PermissionID from Permissionsk where PermissionID in (select PermissionID from Role_Permissionsk where Role_Name=(select Role_Name from User_Rolesk where UserID=+ + strUserID+ + ); ADOQuery1.SQL.add(select PermissionID from Role_Permissionsk where Role_Name=(select Role_Name from User_Rolesk where UserID=+ + strUserID+ + ); ADOQuery1.Open; adoquery1.First; while not adoquery1.eof do begin cdk:= cdk + ADOQuery1.Fields.FieldByName(PermissionID).asInteger; adoquery1.next; end; If 1 in cdk then N2.Visible:= true else N2.Visible:= false; If 2 in cdk then N3.Visible:= true else N3.Visible:= false; nts If 3 in cdk then N7.Visible:= true else N7.Visible:= false; If 4 in cdk then N12.Visible:= true else N12.Visible:= false; If 5 in cdk then N23.Visible:= true else N23.Visible:= false; If 6 in cdk then N24.Visible:= true else N24.Visible:= false; If 7 in cdk then N14.Visible:= true else N14.Visible:= false; If 8 in cdk then N15.Visible:= true else N15.Visible:= false; If 9 in cdk then N9.Visible:= true else N9.Visible:= false; If 10 in cdk then N16.Visible:= true else N16.Visible:= false; If 11 in cdk then N18.Visible:= true else N18.Visible:= false; If 11 in cdk then N18.Visible:= true else N19.Visible:= false; If 12 in cdk then N19.Visible:= true else N19.Visible:= false; nts If 13 in cdk then N21.Visible:= true else N21.Visible:= false; If 14 in cdk then N22.Visible:= true else N22.Visible:= false; If 15 in cdk then N26.Visible:= true else N26.Visible:= false; label1.caption:=strUserID; Label4.Caption := DateTimeToStr(Now); ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(insert into 系统日志表 (用户 ID,上线时间 ,下线时间 ) ; ADOQuery1.SQL.Add(values(:用户 ID,:上线时间 ,:下线时间 ); ADOQuery1.Parameters.ParamByName(用户 ID).Value:=trim(label1.caption); ADOQuery1.Parameters.ParamByName(上线时间 ).Value:=trim(label4.caption); /ADOQuery1.Parameters.ParamByName(下线时间 ).Value:=trim(label5.caption); adoquery1.ExecSQL; end; procedure TForm2.N2Click(Sender: TObject); begin form3.ShowModal; /显示操作员管理页面。 end; procedure TForm2.N3Click(Sender: TObject); begin / if ismanager then /在进入时判断判断用户的权限是否 是管理员,是的话可以使用管理员操作按纽,否则不可以。 / begin form3.ShowModal; /管理员进入管理员操作修改密码。 / end else / begin / form4.showmodal; /不是管理员则进入修改密码页面修改密码 / end; end; procedure TForm2.N5Click(Sender: TObject); ntsbegin form2.close; /退出返回登陆页面 form1.Show; end; procedure TForm2.Internet1Click(Sender: TObject); begin form5.ShowModal; end; procedure TForm2.N15Click(Sender: TObject); begin form6.ShowModal end; procedure TForm2.N9Click(Sender: TObject); begin form7.ShowModal end; procedure TForm2.N7Click(Sender: TObject); begin form5.ShowModal end; procedure TForm2.N12Click(Sender: TObject); begin / if ismanager then / begin form8.Show; form2.Close; / end; end; procedure TForm2.N14Click(Sender: TObject); begin form10.Show; form2.Close; end; procedure TForm2.N16Click(Sender: TObject); begin form11.show; form2.Close; ntsend; procedure TForm2.BitBtn1Click(Sender: TObject); begin form11.show; form2.Close; end; procedure TForm2.BitBtn2Click(Sender: TObject); begin form7.show; form2.Close; end; procedure TForm2.BitBtn3Click(Sender: TObject); begin form10.Show; form2.Close; end; procedure TForm2.BitBtn4Click(Sender: TObject); begin form1.Show; form2.close; end; procedure TForm2.N18Click(Sender: TObject); begin /if ismanager then / begin form13.Show; form2.Close; /end; end; procedure TForm2.N19Click(Sender: TObject); begin form16.show; form2.Close; end; procedure TForm2.N21Click(Sender: TObject); begin /if ismanager then nts /begin form14.show; self.Hide; /end; end; procedure TForm2.N22Click(Sender: TObject); begin form15.show; self.Hide; end; procedure TForm2.BitBtn5Click(Sender: TObject); begin form15.show; self.Hide; end; procedure TForm2.BitBtn6Click(Sender: TObject); begin form16.show; form2.Close; end; procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Label6.Caption:=DateTimeToStr(Now); strTime:=label6.Caption; ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(update 系统日志表 set 下线时间 =+strTime+ where 用户 ID=+ + strUserID+ + and 上线时间 =+label4.caption+ ); adoquery1.ExecSQL; end; procedure TForm2.N26Click(Sender: TObject); begin form18.show; self.Hide; end; procedure TForm2.FormCreate(Sender: TObject); begin nts end; end. 三 管理员操作代码如下: unit Unit19; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids, StdCtrls; type TForm19 = class(TForm) GroupBox1: TGroupBox; ADOTable1: TADOTable; DataSource1: TDataSource; DBGrid1: TDBGrid; Label1: TLabel; DBNavigator1: TDBNavigator; GroupBox2: TGroupBox; DataSource2: TDataSource; ADOTable2: TADOTable; DBGrid2: TDBGrid; DBNavigator2: TDBNavigator; Label2: TLabel; GroupBox3: TGroupBox; ADOTable3: TADOTable; DataSource3: TDataSource; DBGrid3: TDBGrid; Label3: TLabel; GroupBox4: TGroupBox; ADOTable4: TADOTable; DBGrid4: TDBGrid; Label4: TLabel; DataSource4: TDataSource; DBNavigator3: TDBNavigator; DBNavigator4: TDBNavigator; procedure DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn); procedure DBNavigator2BeforeAction(Sender: TObject; nts Button: TNavigateBtn); procedure DBNavigator3BeforeAction(Sender: TObject; Button: TNavigateBtn); procedure DBNavigator4BeforeAction(Sender: TObject; Button: TNavigateBtn); procedure GroupBox1Click(Sender: TObject); private Private declarations public Public declarations end; var Form19: TForm19; implementation $R *.dfm procedure TForm19.DBNavigator1BeforeAction(Sender: TObject; Button: TNavigateBtn); begin if Button=nbDelete then if Application.MessageBox(确实要删除这行数据么? ,确认 ,MB_YESNO)=IDNO THEN aBORT; if Button=nbinsert then if Application.MessageBox(确实要增加数据? ,确认 ,MB_YESNO)=IDNO THEN aBORT; if Button=nbEdit then if Application.MessageBox(确实要修改数据? ,确认 ,MB_YESNO)=IDNO THEN aBORT; if Button=nbPost then if Application.MessageBox(确实要提交修改的数据? ,确认 ,MB_YESNO)=IDNO THEN aBORT; if Button=nbCancel then if Application.MessageBox(确实要取消修改? ,确认 ,MB_YESNO)=IDNO THEN aBORT; end; procedure TForm19.DBNavigator2BeforeAction(Sender: TObject; Button: TNavigateBtn); begin if Button=nbDelete then nts if Application.MessageBox(确实要删除这行数据么? ,确认 ,MB_YESNO)=IDNO THEN aBORT; if Button=nbinsert then if Application.MessageBox(确实要增加数据? ,确认 ,MB_YESNO)=IDNO THEN aBORT; if Button=nbEdit then if Application.MessageBox(确实要修改数据? ,确认 ,MB_YESNO)=IDNO THEN aBORT; if Button=nbPost then if Application.MessageBox(确实要提交修改的数据? ,确认 ,MB_YESNO)=IDNO THEN aBORT; if Button=nbCancel then if Application.MessageBox(确实要取消修改? ,确认 ,MB_YESNO)=IDNO THEN aBORT; end; procedure TForm19.DBNavigator3BeforeAction(Sender: TObject; Button: TNavigateBtn); begin if Button=nbDelete then if Application.MessageBox(确实要删除这行数据么? ,确认 ,MB_YESNO)=IDNO THEN aBORT; if Button=nbinsert then if Application.MessageBox(确实要增加数据? ,确认 ,MB_YESNO)=IDNO THEN aBORT; if Button=nbEdit then if Application.MessageBox(确实要修改数据? ,确认 ,MB_YESNO)=IDNO THEN aBORT; if Button=nbPost then if Application.MessageBox(确实要提交修改的数据? ,确认 ,MB_YESNO)=IDNO THEN aBORT; if Button=nbCancel then if Application.MessageBox(确实要取消修改? ,确认 ,MB_YESNO)=IDNO THEN aBORT; end; procedure TForm19.DBNavigator4BeforeAction(Sender: TObject; Button: TNavigateBtn); begin if Button=nbDelete then if Application.MessageBox(确实要删除这行数据么? ,确认 ,MB_YESNO)=IDNO THEN aBORT; nts if Button=nbinsert then if Application.MessageBox(确实要增加数据? ,确认 ,MB_YESNO)=IDNO THEN aBORT; if Button=nbEdit then if Application.MessageBox(确实要修改数据? ,确认 ,MB_YESNO)=IDNO THEN aBORT; if Button=nbPost then if Application.MessageBox(确实要提交修改的数据? ,确认 ,MB_YESNO)=IDNO THEN aBORT; if Button=nbCancel then if Application.MessageBox(确实要取消修改? ,确认 ,MB_YESNO)=IDNO THEN aBORT; end; procedure TForm19.GroupBox1Click(Sender: TObject); begin end; end. 第四 密码修改页面代码如下: Var user,pass:=string; begin user:=edit1.text; pass=edit2.text; begin if edit2.text then listbox1.Items.Add(Inputstring); listbox1.ItemIndex:=0; end; procedure TForm7.Button3Click(Sender: TObject); begin if listbox1.itemindex then begin NMUDP1.ReportLevel:=Status_Basic; NMUDP1.Remoteport:=8888; if listbox1.itemslistbox1.ItemIndex=computerName then edit1.Text:=computername+自言自语到: +edit1.Text else edit1.Text:=Computername+对 +listbox1.itemslistbox1.itemindex+说 :+Edit1.Text; TmpStr:=Edit1.Text; MyStream:=TmemoryStream.Create; try MyStream.Write(TmpStr1,Length(edit1.Text); if listbox1.Itemindex=0 then begin for i:=1 to listbox1.items.count-1 do begin NMUDP1.RemoteHost:=listbox1.Itemsi; NmUDP1.sendStream(mystream); nts end; end else begin NMUDP1.RemoteHost:=listbox1.Itemslistbox1.itemindex; NMUDP1.SendStream(MyStream); end; finally mystream.free; end; edit1.Text:=; edit1.SetFocus; end else edit1.SetFocus; end; procedure TForm7.FormShow(Sender: TObject); var sz:dword; begin sz:=sizeof(computername); getComputername(computerName,sz); ListBox1.Items.Clear; listBox1.Items.Add(大家 ); listBox1.Items.Add(computerName); listbox1.ItemIndex:=0; end; procedure TForm7.NMUDP1DataReceived(Sender: TComponent; NumberBytes: Integer; FromIP: String; Port: Integer); var mystream:TMemoryStream; TMpStr:String; begin Mystream:=TMemoryStream.Create; try NMUDP1.ReadStream(MYStream); SetLength(TmpStr,NumberBytes); MyStream.Read(tmpsTR1,NumberBytes); memo1.lines.Add(TMPstr); FINALLY MyStream.Free; end; ntsend; procedure TForm7.Edit1KeyPress(Sender: TObject; var Key: Char); var MYStream:TMemoryStream; TmpStr:String; i:integer; begin if(key=#13)and(edit1.Text0 then begin Host:= edit2.Text; active:=True; end; end; end; procedure TForm8.Button2Click(Sender: TObject); begin if ConnectFlag then ClientSocket1.Socket.SendText(edit1.text) else nts showmessage(连接失败 ); form9.Show; self.Hide; end; end. 第七 文件管理模块代码如下: unit Unit10; interface uses Windows,WinTypes,WinProcs, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, StdCtrls,DdeMan,Dialogs; type TForm10 = class(TForm) Label1: TLabel; GroupName: TEdit; Button1: TButton; Label2: TLabel; ItemName: TEdit; Button2: TButton; Label3: TLabel; Button3: TButton; Button4: TButton; CmdLine: TEdit; OpenDialog: TOpenDialog; DDEClient: TDdeClientConv; procedure Button4Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormCreate(Sender: TObject); private Private declarations public Public declarations end; var Form10: TForm10; ntsimplementation uses Umain; $R *.dfm procedure TForm10.Button4Click(Sender: TObject); begin form2.show; form10.Close; end; procedure TForm10.Button1Click(Sender: TObject); var Name:string; Mac:string; Cmd:array0.255 of Char; begin if GroupName.Text= then MessageDlg(不能建立。 ,mtError,mbOK,0) else begin Name:=GroupName.Text; /建立文件夹 Mac:=Format(CreateGroup(%s),Name) +#13#10; StrpCopy(Cmd,Mac); DDEClient.OpenLink; IF NOT DDEclient.ExecuteMacro(Cmd,False) then MessageDlg(不能建立。 ,mtInFormation,mbok,0); DDEClient.CloseLink; GroupName.SelectAll; end; end; procedure TForm10.Button2Click(Sender: TObject); var item,command:string; MAC:string; Cmd:array0.255 of Char; begin if GroupName.Text= then MessageDlg(Group name can not be blank.,mtError,mbOK,0) else begin nts item:=ItemName.Text; command:=CmdLine.Text; /创建标题 Mac:=Format(AddItem(%s,%s),command,item)+#13#10; StrpCopy (Cmd,Mac); DDEClient.OpenLink; if not DDEClient.ExecuteMacro(Cmd,False) then MessageDlg(不能创建。 ,mtInformation,mbOK,0); DDEClint.CloseLink; GroupName.SelectAll; end; end; procedure TForm10.Button3Click(Sender: TObject); begin if OpenDialog.execute then cmdLine.Text:= OpenDialog.fileName; end; procedure TForm10.FormCreate(Sender: TObject); begin end; end. 第八 邮件发送模块: unit Unit11; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP; type TForm11 = class(TForm) Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; nts Label6: TLabel; Label7: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Button1: TButton; Button2: TButton; Memo1: TMemo; Label8: TLabel; OpenDialog1: TOpenDialog; IdMsg: TIdMessage; SMTP1: TIdSMTP; Button3: TButton; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); private Private declarations public Public declarations end; var Form11: TForm11; implementation uses Umain; $R *.dfm procedure TForm11.Button2Click(Sender: TObject); begin SMTP1.AuthenticationType := atLogin; SMTP1.userid := edit2.text; SMTP1.Password := edit1.text; SMTP1.Host := edit3.text; SMTP1.Port :=25; try nts SMTP1.Connect; except Showmessage(连接 SMTP服务器失败 !); Exit; end; try with IdMsg do begin body.Clear; Body.Assign(memo1.lines); From.address := edit5.text; Recipients.EMailAddresses :=edit6.text; Subject:=edit4.text end; SMTP1.Send(IdMsg); finally showmessage(发送成功 ); SMTP1.Disconnect; end; end; procedure TForm11.Button1Click(Sender: TObject); begin if opendialog1.Execute then memo1.Lines.Add(opendialog1.filename); end; procedure TForm11.Button3Click(Sender: TObject); begin form2.show; form11.close; end; end. 第九:工作安排 ADOQuery1.Close; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(insert into 工作安排表 (安排人 ,安排日期 ,日程安排 ,工作日志 ,工作计
温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
提示  人人文库网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:JSJ03-043@delphi基于角色访问控制的OA系统的设计与实现(源代码+论文)
链接地址:https://www.renrendoc.com/p-508101.html

官方联系方式

2:不支持迅雷下载,请使用浏览器下载   
3:不支持QQ浏览器下载,请用其他浏览器   
4:下载后的文档和图纸-无水印   
5:文档经过压缩,下载后原文更清晰   
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

网站客服QQ:2881952447     

copyright@ 2020-2025  renrendoc.com 人人文库版权所有   联系电话:400-852-1180

备案号:蜀ICP备2022000484号-2       经营许可证: 川B2-20220663       公网安备川公网安备: 51019002004831号

本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知人人文库网,我们立即给予删除!