DELPHI办公管理系统 第26页
Var
SHEmptyRecycleBin : TSHEmptyRecycleBin;
LibHandle : THandle;
Begin { EmptyRecycleBin }
LibHandle := LoadLibrary(PChar('Shell32.dll')) ;
if LibHandle <> 0 then
@SHEmptyRecycleBin := GetProcAddress(LibHandle, 'SHEmptyRecycleBinA')
else
begin
MessageDlg('Failed to load Shell32.dll.', mtError, [mbOK], 0);
Exit;
end;
if @SHEmptyRecycleBin <> nil then
SHEmptyRecycleBin(Application.Handle,
nil,
SHERB_NOCONFIRMATION or SHERB_NOPROGRESSUI or SHERB_NOSOUND);
FreeLibrary(LibHandle);
@SHEmptyRecycleBin := nil ;
end;
procedure TBM_OFFICEF.N16Click(Sender: TObject);
begin
BM_ABOUTF := TBM_ABOUTF.Create(Application);
BM_ABOUTF.SHOW;
end;
procedure TBM_OFFICEF.N10Click(Sender: TObject);
begin
ShellExecute(handle,'open','freecell.exe','','',SW_SHOWNORMAL);
end;
procedure TBM_OFFICEF.N15Click(Sender: TObject);
begin
ShellExecute(handle,'open','winmine.exe','','',SW_SHOWNORMAL);
end;
procedure TBM_OFFICEF.N21Click(Sender: TObject);
begin
try
BM_IDF.Caption :='北明办公管理系统_'+ N21.Caption ;
BM_IDF := TBM_IDF.Create(Application);
BM_IDF.Show;
BM_IDF.ManualDock(Panel1, nil, AlClient);
except
MessageBox(0, '窗体创建错误', '产生严重例外错误', MB_OK +
MB_ICONSTOP);
end;
end;
procedure TBM_OFFICEF.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
//if Key=VK_F2 then JB_01Click(Sender);
end;
procedure TBM_OFFICEF.SpeedButton3Click(Sender: TObject);
begin
JB_01Click(Sender);
end;
procedure TBM_OFFICEF.SpeedButton1Click(Sender: TObject);
begin
if Application.MessageBox('请确认是否退出本系统', '提示信息', mb_iconinformation + mb_YesNo) = id_yes then
begin
application.Terminate;
end;
end;
procedure TBM_OFFICEF.SpeedButton2Click(Sender: TObject);
begin
N17Click(Sender);
end;
procedure TBM_OFFICEF.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if Application.MessageBox('请确认是否退出本系统', '提示信息', mb_iconinformation + mb_YesNo) = id_yes then
begin
application.Terminate;
end
else
CanClose:=false;
end;
procedure TBM_OFFICEF.JB_09Click(Sender: TObject);
begin
if Application.MessageBox('请确认是否退出本系统', '提示信息', mb_iconinformation + mb_YesNo) = id_yes then
begin
application.Terminate;
end;
end;
end.
总 结
办公管理系统是一个典型的信息管理系统，其主要通过软件工程方面的选择课题、需求分析、总体设计、选用工具、程序模块、系统测试等几个步骤来实现。开发本系统的过程中，首先要对办公室管理进行系统调研，熟悉其中的信息管理、职员管理的流程、步骤；其次在系统需求分析过程中，要透过现象看本质，敏锐观察到办公管理中存在的各种问题，并在总体设计把握好对问题的分析、理解，进而解决问题；选用开发工具要选用自己最熟悉、应用较多的开发工具，本系统开发选用DELPHI 6.0，其具有语言简单、功能强大、组件众多的优点。程序模块的编制中，重点把握系统内部完整性、功能性、实用性、便捷性，使其能够协调统一、运行无误。
致 谢
我首先感谢我的指导老师吕老师，在他严格的要求下我懂得了开发软件要有一种极其认真负责的态度。无论做什么事都要大胆的去想去做，这样会有好的创意，才能更有作为。
在这里我还要感谢我们宿舍的其它5个同学。他们和我共同生活了四年，在生活和学习上给了我很大的帮助。
参 考 文 献
1 张春林.Delphi 6程序设计导学.北京：清华大学出版社，2002.5
2 飞思科技. Delphi6开发者手册. 北京：电子工业出版社,2002.3
3 飞思科技. Delphi6数据库开发. 北京：电子工业出版社, 2002.1
4 丁宝康.数据库原理. 北京：经济科学出版社，2004.1
5 何旭洪.Delphi 6.0数据库系统开发实例导航.北京：人民邮电出版社, 2002.4
6周璋鹏. 基于B/S结构的学生信息管理系统垢研究与开发.西北电力技术.2003，31(4):15~17,26
7 李全彬, 顾明亮. 基于ASP技术的学生信息管理系统的研究与开发. 徐州师范大学学报(自然科学版).2001,19(2):25~28
8 谷军.用Authorware开发学生信息管理系统.计算机与与现代化.2003(7):40~41,44
9李丹荣,杜维.基于Delphi6．0的实时数据采集与分析系统 机电工程.2003,20(5): 64~67
<< 上一页 [21] [22] [23] [24] [25] [26]