用户可以通过主程序界面中的模块，选择所要进行的相关的数据操作。
4.3 学生信息管理模块
4.3.1入住学生信息模块
在这里，包括对入住学生信息的添加，修改和删除的三个子窗体的处理。
添加入住学生信息窗体保存为Unit4.pas。主要包含了一个GroupBox组件，一个RadioGroup组件，一个Memo组件，两个Button组件，四个Edit组件和五个Label组件。
在修改入住学生信息窗体保存为Unit5.pas。主要包含了两个Button组件，两个GroupBox组件，三个Edit组件，四个Label组件和一个Memo组件。
在删除入住学生信息窗体保存为Unit6.pas。主要包含了三个Button组件，一个DBGrid组件，两个GroupBox组件，和一个Edit组件。
以修改入住学生信息功能为例，实现其功能的代码如下：
var
str:string;
begin
if edit1.Text='' then
begin
messagebox(handle,'请输入要修改基本信息的学生编号!','提示',MB_OK+MB_ICONINFORMATION);
end
else
begin
str:='update xsxxb set xh='+edit1.text;
if edit2.Text<>'' then
begin
str:=str+',zy='''+edit2.Text+'''';
end;
if edit3.Text<>'' then
begin
str:=str+',bj='''+edit3.Text+'''';
end;
if memo1.Lines.Text<>'' then
begin
str:=str+',cc='''+memo1.Lines.text+'''';
end;
str:=str+' where xh='+edit1.Text;
datamodule3.ADOQuery1.Close;
datamodule3.ADOQuery1.SQL.Clear;
datamodule3.ADOQuery1.SQL.Add(str);
datamodule3.ADOQuery1.ExecSQL;
messagebox(handle,'修改成功!','提示',MB_OK+MB_ICONINFORMATION);
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
memo1.Clear;
end;
end;
4.3.2 新学期学生入住注册模块
在每个学期开学时，系统用户可以使用此窗口通过对学生学号的输入和学期的选择来完成给宿舍的学生注册。
新学期学生入住注册窗体保存为Unit7.pas。该窗体包含了一个GroupBox组件，两个Label组件，两个Button组件，一个ComboBox组件和一个Edit组件。
在Form7中的Caption中添加文字为“新学期学生入住注册”。在GroupBox1中的Caption中添加文字为“学生新学期注册：”。在ComboBox1<GroupBox1>中BevelOuter属性设置为bvLowered，在Text属性中添加文字为“第一学期注册”， Name属性为默认值。
在Label1< GroupBox1>中的Caption里写入文字为“请选择要注册的学期：”，在Label2< GroupBox1>中的Caption里写入文字为“请输入要注册的学生的学号：”。
在Edit1< GroupBox1>中的Text属性设置为空，Name属性和PasswordChar属性为默认值不变。
其核心代码如下：
temp:=messagebox(handle,'确定要注册?','提示',MB_YESNO+MB_ICONQUESTION);
if(temp=IDYES) then
begin
datamodule3.ADOQuery3.Close;
datamodule3.ADOQuery3.SQL.Clear;
datamodule3.adoquery3.SQL.Add('select * from xsxxb where xh='+edit1.Text);
datamodule3.ADOQuery3.Open;
if datamodule3.adoquery3.RecordCount=1 then
begin
datamodule3.adoquery3.Close;
datamodule3.ADOQuery3.SQL.Clear;
sql:='update xsxxb set mxqzc='''+combobox1.Text+'''';
sql:=sql+'where xh='+edit1.Text;
datamodule3.ADOQuery3.SQL.Add(sql);
datamodule3.adoquery3.ExecSQL;
messagebox(handle,'注册成功!','提示',MB_OK+MB_ICONINFORMATION);
edit1.Text:='';
end
else
begin
messagebox(handle,'没有这个学生编号，请重新查证!','提示',MB_OK+MB_ICONINFORMATION);
end;
end;
4.4 查询模块
此模块分为三个窗口来分类进行查询。在查询学生情况时，通过学生信息查询窗体，可以使用三种方式查询，可以按学生的学号，学生的姓名或者通过学生的班级来查阅某个学生或者某个班级的学生的相关信息。窗体显示如图4.4所示。
图4.4 学生信息查询模块
而在员工信息查询窗体中可以通过员工编号的输入或者员工姓名的输入来查阅某个员工的相关信息。
在宿舍空床查询窗体中主要是通过床位编号的输入来查看某个床位是否已经有人使用的信息。
这些查询模块起原理都是一样的，设置一条sql语句，然后调用这条语句对数据库的内容进行查询，然后将所得返回集输出。现在以学生信息查询模块为例。
转贴于 酷文网-论文下载中心 http://www.coolwen.net
共12页: 上一页 [1] [2] [3] [4] [5] 6 [7] [8] [9] [10] [11] [12] 下一页
网摘收藏:
当前位置:
载入中...
-> 在百度中搜索：
-> 在Google中搜索：