用Delphi7.0开发的学生宿舍管理系统-论文

            else
             begin
              datamodule3.ADOQuery9.close;
              datamodule3.ADOQuery9.SQL.Clear;
              sql:='select * from xsxxb where xh='+edit1.Text;
              sql:=sql+' and bj='''+edit3.Text+'''';
              datamodule3.ADOQuery9.SQL.Add(sql);
              datamodule3.ADOQuery9.Open;
             end;
           end

          else
           begin
            datamodule3.ADOQuery9.close;
            datamodule3.ADOQuery9.SQL.Clear;
            sql:='select * from xsxxb where xh='+edit1.Text;
            sql:=sql+' and xm='''+edit2.text+'''';
            datamodule3.ADOQuery9.SQL.Add(sql);
            datamodule3.ADOQuery9.Open;
           end;
         end;
       end;
   end
  else
   begin
      datamodule3.ADOQuery9.close;

      datamodule3.ADOQuery9.SQL.Clear;
      datamodule3.ADOQuery9.SQL.Add('select * from xsxxb');
      datamodule3.ADOQuery9.Open;
   end;
end;
procedure TForm16.FormShow(Sender: TObject);
begin
      datamodule3.ADOQuery9.close;
      datamodule3.ADOQuery9.SQL.Clear;
      datamodule3.ADOQuery9.SQL.Add('select * from xsxxb');
      datamodule3.ADOQuery9.Open;
end;
procedure TForm16.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     datamodule3.ADOQuery9.close;
     edit1.Text:='';
     edit2.text:='';
     edit3.Text:='';
end;
4.5 宿舍信息管理模块
本模块实现的功能是对新的宿舍床位的添加，和把空床位分配给新搬进宿舍的学生。
把住房床位信息添加窗体和床位分配窗体分别保存为Unit8.pas和Unit9.pas。窗体显示如图4.5和4.6所示。它们都包含了一个GroupBox组件，两个Edit组件，两个Label组件和两个Button组件。

 在床位分配窗口中的主要目的是要实现把剩余的空床位分配给新来的同学。如果床位已经有人住了，系统则会提示不能将此床位分配给学生，同样，如果是已经分配了床位的学生申请床位分配，则系统会提示该学生已经分配了床位，而不再分配床位给该生。
其实现该功能的主要代码如下：
  if (edit1.Text<>'')and(edit2.Text<>'') then
   begin
    datamodule3.adoquery3.Close;
    datamodule3.adoquery3.SQL.Clear;
    datamodule3.ADOQuery3.SQL.Add('select * from cwxxb where cwbh='+edit2.Text+' and sfzr=0');
    datamodule3.ADOQuery3.Open;
    if datamodule3.ADOQuery3.RecordCount=1 then
     begin
       datamodule3.ADOQuery3.Close;
       datamodule3.ADOQuery3.sql.Clear;
       sql:='update xsxxb set cwbh='+edit2.Text;
       sql:=sql+' where xh='+edit1.Text;
       datamodule3.ADOQuery3.SQL.Add(sql);
       datamodule3.ADOQuery3.ExecSQL;
       datamodule3.ADOQuery3.Close;
datamodule3.ADOQuery3.sql.Clear;
       sql:='update cwxxb set sfzr=1';
       sql:=sql+' where cwbh='+edit2.Text;
       datamodule3.ADOQuery3.SQL.Add(sql);
       datamodule3.ADOQuery3.ExecSQL;
       messagebox(handle,'床位分配成功!','提示',MB_OK+MB_ICONINFORMATION);转贴于 酷文网-论文下载中心 http://www.coolwen.net

共12页: 上一页 [1] [2] [3] [4] [5] [6] [7] 8 [9] [10] [11] [12] 下一页

网摘收藏:

上一篇：基于Delphi的试卷生成系统的开发与实现
下一篇：中国如何定位品牌

 -> 在百度中搜索：用Delphi7.0开发的学生宿舍管理系统-论文
 -> 在Google中搜索：用Delphi7.0开发的学生宿舍管理系统-论文