delphi医嘱管理系统[开题报告＋论文＋源代码＋答辩ppt＋外文翻译](十)

var
  frm_maind: Tfrm_maind;

implementation

uses login,pulvar, cqyzlr, lsyzlr, bqcx, yzjh, about, info, personal;

{$R *.dfm}

procedure Tfrm_maind.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     DefWindowProc(Handle, WM_SYSCOMMAND, SC_CLOSE, 0);
end;

procedure Tfrm_maind.N7Click(Sender: TObject);
begin
   close;
end;

procedure Tfrm_maind.cqyzlrClick(Sender: TObject);
begin
  frm_cqyzlr:=tfrm_cqyzlr.create(application);
  frm_cqyzlr.showmodal;
end;

procedure Tfrm_maind.lsyzlrClick(Sender: TObject);
begin
  frm_lsyzlr:=tfrm_lsyzlr.create(application);
  frm_lsyzlr.showmodal;
end;

procedure Tfrm_maind.bqcxClick(Sender: TObject);
begin
  frm_bqcx:=tfrm_bqcx.create(application);
  frm_bqcx.showmodal;
end;

procedure Tfrm_maind.yzjhClick(Sender: TObject);
begin
  frm_yzjh:=tfrm_yzjh.create(application);
  frm_yzjh.showmodal;
end;

procedure Tfrm_maind.Timer1Timer(Sender: TObject);
begin
      ztl.Panels[1].Text:=FormatDateTime('yyyy-mm-dd hh:mm:ss', Now)+'|当前用户：'+choosename;
end;

procedure Tfrm_maind.N9Click(Sender: TObject);
begin
  frm_about:=tfrm_about.create(application);
  frm_about.showmodal;
end;

procedure Tfrm_maind.N4Click(Sender: TObject);
begin
  frm_info:=tfrm_info.create(application);
  frm_info.showmodal;
end;

procedure Tfrm_maind.N5Click(Sender: TObject);
begin
  frm_personal:=tfrm_personal.create(application);
  frm_personal.showmodal;
end;

end.

 总   结
 VCD租赁管理系统是一个典型的信息管理系统，其主要通过软件工程方面的选择课题、需求分析、总体设计、选用工具、程序模块、系统测试等几个步骤来实现。开发本系统的过程中，首先要对光盘管理进行系统调研，熟悉其中的新光盘登记、光盘出借的流程、步骤；其次在系统需求分析过程中，要透过现象看本质，敏锐观察到光盘管理中存在的各种问题，并在总体设计把握好对问题的分析、理解，进而解决问题；选用开发工具要选用自己最熟悉、应用较多的开发工具，本系统开发选用DELPHI 6.0，其具有语言简单、功能强大、组件众多的优点。程序模块的编制中，重点把握系统内部完整性、功能性、实用性、便捷性，使其能够协调统一、运行无误。
 
 致  谢
&

首页 上一页 7 8 9 10 11 下一页 尾页 10/11/11