6.3.4 发送通知发送通知模块为管理员使用的模块，通过这一模块，可以将信息迅速传递个没一个人。发送通知模块代码： begin with ClientSocket1 do begin if Active then begin Active:=False; ConnectFlag:=False; end; if Length(EDit2.Text) >0 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 showmessage(''连接失败''); form9.Show; self.Hide; end
6.3.5 管理员操作管理员操作模块是系统重要的模块，管理员可以通过这一模块删除，修改，增加，用户。对普通用户进行时时控制。其主要代码如下： 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; 6.3.6 数据组模块数据组模块代码如下： Tdm = class(TDataModule) ADOConnection1： TADOConnection; ADODataSet1： TADODataSet; Cx:TADOQuery; cx1:TADOQuery; private { Private declarations } public { Public declarations } end; var dm:dm; IsManager:boolean; //定义一个量 用来判断用户权限的值 Implementation {$R *.dfm} end. 7 建议和措施1) 在数据库连接的语句方面可能不够严谨，可能会影响数据库的安全性以及OA办公系统的稳定性。需要改变了数据库语句的书写，使系统与数据库建立的连接更可靠。使系统运行更加稳定。 2) 程序外观设计不太好，从而使整个系统外观感觉不好，需要进一步对程序观方面需要进一步改进，使界面更加友好，使使用者感到系统的舒适性。 3) 程序在系统设置的人性化方面有所欠缺，未能很好的为系统使用者在某些地方提供便利，使系统缺乏人性化考虑，在系统中加以改进，以更好的服务与系统的使用者。 结 论本文研究了一套完整的办公自动化管理系统的规划方法和规划策略，阐述了模块的划分、各功能模块的设计方法和用到的关键技术。实现了一方面是通过收发电子邮件为主的方式，与其它员工交流各种信息；员工管理个人日程安排。另一方面则是面向公司办公业务方面的业务管理功能。即完全采用计算机技术处理办公业务，使企业内部人员能够方便快捷地共享信息、交流信息，高效地协同工作，既兼顾个人办公效率的提高，又可以实现群体协同工作。
| 
