补充： 实例分析-宿舍管理系统ppt课件.ppt

2)要调整到的寝室床位信息查询界面的设计 图31 调整床位信息 3.窗体的主要的对象属性的设置：宿舍调整窗体主要的对象属性的设置： 表13 组件 属性 取值 组件 属性 取值 Label1 Caption 宿 舍 调 整 GroupBox1 Caption AutoSize False Height 57 Font 宋体、小二、粗体、灰色 Width 657 GroupBox2 Caption GroupBox3 Caption 学生信息 Height 385 Height 65 Width 721 Width 689 GroupBox4 Caption 原始宿舍信息 GroupBox5 Caption 调整宿舍为 Height 153 Height 73 Width 689 Width 689 Label12 Caption 姓 名： Label13 Caption 学 号： Label14 Caption 寝室号： Label15 Caption 床位号： Label7 Caption 学 历 ： Label8 Caption 床位号： 4.相关程序：1)连接到用户综合管理模块，在“用户管理综合管理”菜单项按钮N2 Click事件处理程序中完成,代码如下：procedure TForm2.N2Click(Sender: TObject);beginform3:=tform3.create(self);form3.show;end;2)其他的菜单链接同1，按钮、快捷键的链接同菜单链接相同，只是在按钮或快捷键的Onclick事件处理中完成。3)在状态栏显示系统时间，在Timer1的Timer事件处理程序中完成，代码如下procedure TForm2.Timer1Timer(Sender: TObject);begin StatusBar1.Panels[5].text:=DateTimeToStr(Now);end; 5.2用户综合管理模块为了说明系统详细设计及其实现，以用户管理模块和入住管理模块为例进行说明。1.界面设计: 图21 用户管理—新增用户窗体布局 图22用户管理—删除用户窗体布局 图23用户管理—修改用户信息窗体布局 2.程序流程图：1)新增用户 图24 新增用户 2)用户删除 图 25 用户删除 3)用户信息修改 3.相关程序 （1） 在新增用户过程中，在“提交”按钮BitBtn1的OnClick事件处理程序中完成，代码如下：procedure TForm3.BitBtn1Click(Sender: TObject);var s:integer; //说明s是integer型的变量begin query1.SQL.Clear; //将控件query1内的SQL语句清空 query1.SQL.Add(select * from 用户表); //将控件query1内的SQL语句增加操作“查询‘用户表’内的所有内容” query1.Open; //激活query1控件 query1.First; //query1控件指向第一条记录 s:=0; //给变量S附值为0 while (not query1.Eof) and (s=0) do //若query1指针没超过最底一条记录并且s=0进行循环 begin if edit1.text=query1.FieldByName(用户名).AsString then//如果edit1的内容与query1指向“用户表“列名为“用户名”的某条内容相同则 begin s:=1; //给变量S附值为1showmessage(此用户名已存在) ; //显示“此用户已存在” edit1.Text:=; //文本框edit1内容清空 edit2.Text:=; //文本框edit2内容清空 edit3.Text:=; //文本框edit3内