公寓管理系统论文

else
if Edit_floorcount.Text='' then
begin
showmessage('楼层数不能为空！');
Edit_floorcount.SetFocus;
end
else
if Edit_roomcount.Text='' then
begin
showmessage('每层房间数不能为空！');
edit1.Text:='';
edit1.SetFocus;
end ;
end;
2.主窗体：
procedureTForm_main.Timer1Timer(Sender: TObject);
var dow:string;
begin
case dayofweek(date()) of
1: dow:='日';
end;
procedureTForm_main.menu_config_uesrClick(Sender: TObject);
begin
application.CreateForm(TForm_userconfig,Form_userconfig);
Form_userconfig.ShowModal;
var flooger;
begin
///在个Edit都不能为空
if Edit_floorNum.Text='' then
begin
showmessage('楼房号不能为空！');
Edit_floorNum.SetFocus;
end
end;
procedureTForm_main.FormCreate(Sender: TObject);
begin
projectdir.Caption:=getcurrentdir;//获得工程所在的路径
end;（下面代码省略）
3.主要菜单：
系统设置：学生管理：出入登记：
4.楼层设置窗体：
procedureTForm_floorconfig1.But_submit1Click(Sender: TObject);
要尽可能使系统人性化（易操作，界面友好），健壮（尽量避免系统错误，对用户的误操作加以限制）以及节省系统资源，等等。
【概要设计】
【详细设计】
●本系统所用的是SQL Server数据库，用到了以下五个表：
●本系统主要由菜单驱动，其主要功能描述如下：
1.登陆窗口：
procedureTForm_flash.SpeedButton1Click(Sender: TObject);
Edit_roomcount.SetFocus;
end
else
begin
floorcount:=strtoint(Form_floorconfig1.Edit_floorcount.Text);
roomcount:=strtoint(Form_floorconfig1.Edit_roomcount.Text);
query1.ParamByName('username').AsString:=ComboBox1.Text;
query1.ParamByName('password').AsString:=Edit1.Text;
query1.Open;
if query1.RecordCount>=1 then
begin
2: dow:='一';
3: dow:='二';
4: dow:='三';
5: dow:='四';
6: dow:='五';
7: dow:='六';
end;
statusbar1.Panels.Items[5].Text:=datetostr(date())+' '+timetostr(time());
statusbar1.Panels.Items[6].Text:='星期'+dow;
form_main.StatusBar1.Panels[3].Text:=pawor;
if pawor='超级用户' then
form_main.menu_config_uesr.Enabled:=true;//超级用户可以使用用户设置菜单项
end
else
begin
showmessage('Error:密码错误！');
if r<10 then
parambyname('x1').asstring:=Edit_floorNum.Text+inttostr(f)+'0'+inttostr(r)
var
logname,pawor:string;
begin
query1.Close;
query1.SQL.Clear;
logname:=ComboBox1.Text;
query1.SQL.Add('select * from userinfo where username=:username and password=:password');
for f:=1 to floorcount do
with Form_floorconfig1.Query1 do
begin
for r:=1 to roomcount do
begin
Close;
SQL.Clear;
SQL.Add('insert into room(Num_room) values(:x1)');
Delphi课程设计报告
【设计题目】公寓管理系统
【设计目的】
①.熟悉delphi编程的环境;
②.熟练使用SQL Server数据库，及SQL;
③.能够系统地规划程序设计的步骤;
④.做一个合理、有效的系统，方便公寓管理;
【系统分析】
公寓管理系统是为方便管理公寓日常事务的系统，它应该具备的功能有：建立设置楼层信息，建立必要的学生档案，及学生的住宿情况，删除过期的学生档案，可以按多种方式查询学生的档案，登记来访人员的信息，登记贵重物品的搬出情况，记录和排序各寝室的卫生评比情况（尚未实现），记录各寝室的财产状况，等等。
pawor:=query1.FieldList.Fields[2].Value;//获得用户权限
application.CreateForm(Tform_main,form_main);
form_flash.Free;
form_main.Show;
form_main.StatusBar1.Panels[1].Text:=logname;