人人文库网 > 毕业设计 > 任务书类 > JSJ03-043@delphi基于角色访问控制的OA系统的设计与实现(源代码+论文)

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

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

资源目录

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

代码

delphi基于角色访问控制的OA系统的设计与实现.doc---(点击预览)

Image

小图片

工具栏图片

按钮图片

tupian

杨洋(修改版）.doc---(点击预览)

新建 Microsoft Word 文档.doc---(点击预览)

新建 Microsoft Word 文档 (2).doc---(点击预览)

基于角色访问控制的OA系统的设计与实现1.doc---(点击预览)

1.jpg

2.jpg

3.jpg

4.jpg

5.jpg

6.jpg

7.jpg

8.jpg

Thumbs.db

成版本-2007-06-17-05.rar

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
积分

版权申诉 word格式文档无特别注明外均可编辑修改；预览文档经过压缩，下载后原文更清晰！ 立即下载

关键词：: 毕业设计计算机

资源描述：: 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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

人人文库网所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。