datamodule3.ADOQuery7.ExecSQL;
sqlstr:='update ygxxb set sfyf=1,qs='''+floattostr(sum)+'''';
sqlstr:=sqlstr+',zfh='''+edit2.Text+'''';
sqlstr:=sqlstr+' where ygh='''+edit1.Text+'''';
datamodule3.ADOQuery7.Close;
datamodule3.ADOQuery7.SQL.Clear;
datamodule3.ADOQuery7.SQL.Add(sqlstr);
datamodule3.ADOQuery7.ExecSQL;
datamodule3.ADOQuery7.Close;
datamodule3.ADOQuery7.SQL.Clear;
datamodule3.ADOQuery7.SQL.Add('select * from ygxxb');
datamodule3.ADOQuery7.Open;
edit1.Text:='';
edit2.Text:='';
end
在住房保修功能中，输入住房编号之后，在窗口的右边是否报修中点选是或者否，再点击确定，就完成了住房报修操作。如图4-7所示：
图4-7 住房报修窗口
首先使用if语句判断edit 1的值是否为空，“i:=radiogroup1.ItemIndex;” 返回是否要报修还是不报修，通过str语句把是否要报修加入表中相对应的数据项中。
运行代码如下：
begin
if edit1.text<>'' then
begin
i:=radiogroup1.ItemIndex;
str:='update zfb set sfyx='''+inttostr(i)+'''';
str:=str+' where zfh='''+edit1.text+'''';
datamodule3.ADOQuery6.Close;
datamodule3.ADOQuery6.SQL.Clear;
datamodule3.ADOQuery6.SQL.Add(str);
datamodule3.ADOQuery6.ExecSQL;
messagebox(handle,'报修成功!','提示',MB_OK+MB_ICONINFORMATION);
edit1.Text:='';
end
4.5 查询信息
在这个菜单中，可以执行员工信息查询和住房信息查询两项功能。
在员工信息查询功能中，可以直接查询到所有员工的基本信息，包括员工编号、员工姓名、员工性别、员工买房所花的资金、员工住房的编号、员工在公司注册的日期、员工是否有住房等情况。如图4-8所示：
图4-8 员工信息查询窗口
使用if语句判断edit 1的值是否为空，通过“select * from ygxxb”语句进入数据库中的ygxxb将所有员工信息全部以列表的形式显示在窗口中，在edit 1中输入数据后，通过“sql”语句进入ygxxb中根据数据查询相对应的员工信息，将窗口中的所有信息全部清除，再将从数据库中返回的数据显示在窗口的列表之中。
转贴于 酷文网-论文下载中心 http://www.coolwen.net
共10页: 上一页 [1] [2] [3] [4] [5] [6] [7] 8 [9] [10] 下一页
网摘收藏:
当前位置:
载入中...
-> 在百度中搜索：
-> 在Google中搜索：