edit1.Text:='';
edit2.Text:='';
end
else
begin
messagebox(handle,'此床位有人或无此床位!','提示',MB_OK+MB_ICONSTOP);
end;
end
else
begin
messagebox(handle,'信息不完整!','提示',MB_OK+MB_ICONSTOP);
end;
而在床位添加的窗口中主要是为了节约操作人员的时间，通过批量的添加，而且是一个房间的添加，来完成对新床位的添加操作。如果在该添加过程中，其中有一个床位是有人住了的，则会添加失败，也就是说，在此种情况下，只能分开来添加，添加该床位的前一段未住学生的床位信息和后一段未住学生的床位信息。
添加床位的核心代码为：
temp:=messagebox(handle,'确定要添加床位?','提示',MB_YESNO+MB_ICONQUESTION);
if(temp=IDYES) then
begin
if (edit1.Text<>'')and(edit2.Text<>'') then
begin
sum1:=strtoint(edit2.Text);
datamodule3.ADOQuery3.Close;
datamodule3.ADOQuery3.SQL.Clear;
datamodule3.adoquery3.SQL.Add('select * from cwxxb where cwbh>='+edit1.Text+'and cwbh<='+edit2.Text);
datamodule3.ADOQuery3.Open;
if datamodule3.adoquery3.RecordCount=0 then
begin
for sum:=strtoint(edit1.Text) to sum1 do
begin
datamodule3.adoquery3.Close;
datamodule3.ADOQuery3.SQL.Clear;
sql:='insert into cwxxb values('+inttostr(sum);
sql:=sql+',0)';
datamodule3.ADOQuery3.SQL.Add(sql);
datamodule3.ADOQuery3.Prepared:=true;
datamodule3.adoquery3.ExecSQL;
sleep(10);
end;
messagebox(handle,'添加成功!','提示',MB_OK+MB_ICONINFORMATION);
edit1.Text:='';
edit2.Text:='';
end
else
begin
messagebox(handle,'这个床位段中有已经存在的床位号!','提示',MB_OK+MB_ICONINFORMATION);
end;
end
else
begin
messagebox(handle,'请输入起始和截止的床位编号!','提示',MB_OK+MB_ICONINFORMATION);
end;
end;
4.6 信息登记模块
用户可以对学生的财物出楼进行登记、来访学生的人进行登记。
把学生物品出入楼处理窗体保存为Unit14.pas。包含有五个GroupBox组件，一个DBGrid组件，一个DBMemo组件，一个memo组件，三个Edit组件，五个Label组件和三个Button组件。
这个窗体的主要功能是当一个学生把一些贵重物品如电脑等搬出寝室，就必须在管理员那里登记一下，为的是防止一些不法之徒做出偷窃等犯罪行为。
这个模块所要登记的一些记录为学生学号，学生姓名，所在班级和要搬出楼的一些物品名称和数量。当按提交按钮后，系统会自动去数据库寻找是否这个学生学号与这个学生姓名是否相符合，如果符合，系统则允许记录，如果不符合，系统则会提示管理员，学号与姓名不符，不允许记录，这样做的目的是为了防止一些人冒名顶替。在此“学生姓名”和“所在班级”只用在出楼记录中提交，而在查询记录中是只指向“学生号”的，因为学生号是唯一的，目的在于为了防止学生乱报或报假学生号，如果学生号错误，系统则无法显示出记录信息，则说明该学生号不存在。
把来宾信息处理窗体保存为Unit13.pas。窗体包含了五个GroupBox组件，五个Edit组件，七个Label组件，一个ComboBox组件，一个DBGrid组件，两个Date TimePicker组件和五个Button组件。
该窗口的主要功能是记录来宾的信息和他要访问的学生的姓名等信息。等记录完成后，这位来宾就可以去访问他要访问的那个学生了，而且管理员可以通过某个时间段的查询，来查看在该段时间内所来访来宾的信息。此功能模块中的注销功能是在某段时期后，系统用户对来访来宾的信息记录删除。
该窗口的主要功能是记录来宾的信息和他要访问的学生的姓名等信息。等记录完成后，这位来宾就可以去访问他要访问的那个学生了，而且管理员可以通过某个时间段的查询，来查看在该段时间内所来访来宾的信息。此功能模块中的注销功能是在某段时期后，系统用户对来访来宾的信息记录删除。
4.7 员工信息管理模块
这个模块主要管理的是这些负责楼房的工作人员的信息的管理。主要包括员工信息的操作和员工职位的更改。转贴于 酷文网-论文下载中心 http://www.coolwen.net
共12页: 上一页 [1] [2] [3] [4] [5] [6] [7] [8] 9 [10] [11] [12] 下一页
网摘收藏:
当前位置:
载入中...
-> 在百度中搜索：
-> 在Google中搜索：