sql2000 公寓管理系统 delphi[开题报告＋论文＋源代码＋答辩ppt.doc

《sql2000 公寓管理系统 delphi[开题报告＋论文＋源代码＋答辩ppt.doc》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、sql2000+公寓管理系统+delphi[开题报告＋论文＋源代码＋答辩ppt【设计题目】公寓管理系统【设计目的】①.熟悉delphi编程的环境;②.熟练使用SQLServer数据库，及SQL;③.能够系统地规划程序设计的步骤;④.做一个合理、有效的系统，方便公寓管理;【系统分析】公寓管理系统是为方便管理公寓日常事务的系统，它应该具备的功能有：建立设置楼层信息，建立必要的学生档案，及学生的住宿情况，删除过期的学生档案，可以按多种方式查询学生的档案，登记来访人员的信息，登记贵重物品的搬出情况，记录和排序各寝室的卫生评比情况（尚未实现），记录各寝室的财产状况，等等。

2、要尽可能使系统人性化（易操作，界面友好），健壮（尽量避免系统错误，对用户的误操作加以限制）以及节省系统资源，等等。【概要设计】【详细设计】●本系统所用的是SQLServer数据库，用到了以下五个表：本系统主要由菜单驱动，其主要功能描述如下：登陆窗口：procedureTForm_flash.SpeedButton1Click(Sender:TObject);varlogname,pae:=ComboBox1.Text;query1.SQL.Add(‘select*fromuserinfoe=:usernameandpassByName(‘username’).A

3、sString:=ComboBox1.Text;query1.ParamByName(‘pass(Tform_main,form_main);form_flash.Free;form_main.Sho_main.StatusBar1.Panels.Text:=logname;form_main.StatusBar1.Panels.Text:=pa_main.menu_config_uesr.Enabled:=true;//超级用户可以使用用户设置菜单项endelsebeginshoessage(‘Error:密码错误！’);edit1.Text:=‘‘;edit

4、1.SetFocus;end;end;主窗体：procedureTForm_main.Timer1Timer(Sender:TObject);vardos[5].Text:=datetostr(date())+’‘+timetostr(time());statusbar1.Panels.Items[6].Text:=‘星期’+do_main.menu_config_uesrClick(Sender:TObject);beginapplication.CreateForm(TForm_userconfig,Form_userconfig);Form_usercon

5、fig.Sho_main.FormCreate(Sender:TObject);beginprojectdir.Caption:=getcurrentdir;//获得工程所在的路径end;（下面代码省略）主要菜单：系统设置：学生管理：出入登记：楼层设置窗体：procedureTForm_floorconfig1.But_submit1Click(Sender:TObject);varfloorcount,roomcount:integer;f,r:integer;begin///在个Edit都不能为空ifEdit_floorNum.Text=‘‘thenbegi

6、nshoessage(‘楼房号不能为空！’);Edit_floorNum.SetFocus;endelseifEdit_floorcount.Text=‘‘thenbeginshoessage(‘楼层数不能为空！’);Edit_floorcount.SetFocus;endelseifEdit_roomcount.Text=‘‘thenbeginshoessage(‘每层房间数不能为空！’);Edit_roomcount.SetFocus;endelsebeginfloorcount:=strtoint(Form_floorconfig1.Edit_floorc

7、ount.Text);roomcount:=strtoint(Form_floorconfig1.Edit_roomcount.Text);forf:=1tofloorcountdo_floorconfig1.Query1dobeginforr:=1toroomcountdobeginClose;SQL.Clear;SQL.Add(‘insertintoroom(Num_room)values(:x1)’);ifr<10thenparambyname(‘x1’).asstring:=Edit_floorNum.Text+inttostr(f)+’0’+in

8、ttostr(r)els