DELPHI办公管理系统 第26页

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] 

DELPHI办公管理系统 第26页下载如图片无法显示或论文不完整，请联系qq752018766