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

sql2000+公寓管理系统+delphi[开题报告＋论文＋源代码＋答辩ppt 　　 【设计题目】 公寓管理系统 【设计目的】 ①.熟悉delphi编程的环境; ②.熟练使用SQL Server数据库，及SQL; ③.能够系统地规划程序设计的步骤; ④.做一个合理、有效的系统，方便公寓管理; 【系统分析】 公寓管理系统是为方便管理公寓日常事务的系统，它应该具备的功能有：建立设置楼层信息，建立必要的学生档案，及学生的住宿情况，删除过期的学生档案，可以按多种方式查询学生的档案，登记来访人员的信息，登记贵重物品的搬出情况，记录和排序各寝室的卫生评比情况（尚未实现），记录各寝室的财产状况，等等。 要尽可能使系统人性化（易操作，界面友好），健壮（尽量避免系统错误，对用户的误操作加以限制）以及节省系统资源，等等。 【概要设计】 【详细设计】 ● 本系统所用的是SQL Server数据库，用到了以下五个表： 本系统主要由菜单驱动，其主要功能描述如下： 登陆窗口： procedure TForm_flash.SpeedButton1Click(Sender: TObject); 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’); query1.ParamByName(‘username’).AsString:=ComboBox1.Text; query1.ParamByName(‘password’).AsString:=Edit1.Text; query1.Open; if query1.RecordCount=1 then begin 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; form_main.StatusBar1.Panels[3].Text:=pawor; if pawor=‘超级用户’ then form_main.menu_config_uesr.Enabled:=true; //超级用户可以使用用户设置菜单项 end else begin showmessage(‘Error:密码错误！’); edit1.Text:=‘‘; edit1.SetFocus; end ; end; 主窗体： procedure TForm_main.Timer1Timer(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; statusbar1.Panels.Items[5].Text:=datetostr(date())+’ ‘+timetostr(time()); statusbar1.Panels.Items[6].Text:=‘星期’+dow; end; procedure TForm_main.menu_config_uesrClick(Sender: TObject); begin application.CreateForm(TForm_userconfig,Form_userconfig); Form_userconfig.ShowModal; end; procedure TForm_main.FormCreate(Sender: TObject); begin projectdir.Caption:=getcurrentdir; //获得工程所在的路径 end;（下面代码省略） 主要菜单： 系统设置： 学生管理： 出入登记： 楼层设置窗体： procedure TForm_floorconfig1.But_submi 　　t1Click(Sender: TObject); var floorcount,roomcount :integer; f,r :integer