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

首页 上一页 1 2 3 4 5 6 下一页 尾页 1/6/6