文档介绍：Delphi课程设计报告
姓名:朱大鹏计科系022班学号:0204111085
【设计题目】公寓管理系统
【设计目的】
①.熟悉delphi编程的环境;
②.熟练使用SQL Server数据库,及SQL;
③.能够系统地规划程序设计的步骤;
④.做一个合理、有效的系统,方便公寓管理;
【系统分析】
公寓管理系统是为方便管理公寓日常事务的系统,它应该具备的功能有:建立设置楼层信息,建立必要的学生档案,及学生的住宿情况,删除过期的学生档案,可以按多种方式查询学生的档案,登记来访人员的信息,登记贵重物品的搬出情况,记录和排序各寝室的卫生评比情况(尚未实现),记录各寝室的财产状况,等等。
要尽可能使系统人性化(易操作,界面友好),健壮(尽量避免系统错误,对用户的误操作加以限制)以及节省系统资源,等等。
【概要设计】
【详细设计】
●本系统所用的是SQL Server数据库,用到了以下五个表:
本系统主要由菜单驱动,其主要功能描述如下:
登陆窗口:
procedure (Sender: TObject);
var
logname,pawor:string;
begin
;
;
logname:=;
('select * from userinfo where username=:username and password=:password');
('username').AsString:=;
('password').AsString:=;
;
if >=1 then
begin
pawor:=[2].Value; //获得用户权限
(Tform_main,form_main);
;
;
[1].Text:=logname;
[3].Text:=pawor;
if pawor='超级用户' then
:=true; //超级用户可以使用用户设置菜单项
end
else
begin
showmessage('Error:密码错误!');
:='';
;
end ;
end;
主窗体:
procedure (Sender: TObject);
var dow:string;
begin
case dayofweek(date()) of
1: dow:='日';
2: dow:='一';
3: dow:='二';
4: dow:='三';
5: dow:='四';
6: dow:='五';
7: dow:='六';
end;
[5].Text:=datetostr(date())+' '+timetostr(time());
[6].Text:='星期'+dow;
end;
procedure (Sender: TObject);
begin
(TForm_userconfig,Form_userconfig);
;
end;
procedure (Sender: TObject);
begin
:=getcurrentdir; //获得工程所在的路径
end;(下面代码省略)
主要菜单:
系统设置: 学生管理: 出入登记:
楼层设置窗体:
procedure