图4-3 员工信息添加菜单
首先使用if判断语句判断edit 1与edit 2值是否为空；如果不为空，则直接将填入的数据写入数据库内相对应的数据项。并通过“string1”函数判断男女。
运行代码如下：
if (edit1.Text<>'')and(edit2.Text<>'') then
begin
string1:=radiogroup1.Items.Strings[radiogroup1.itemindex];
datamodule3.ADODataSet2.Open;
datamodule3.ADODataSet2.AppendRecord([edit1.Text,edit2.Text,string1,0,'',datetostr(date),0]);
edit1.Text:='';
edit2.Text:='';
MessageBox(handle,'添加完成!', '提示',MB_OK+MB_ICONINFORMATION);
datamodule3.ADODataSet2.Close;
end
在员工信息删除功能中，有两种方法可以对已添加的员工信息进行删除。第一种是在系统罗列出来的所有员工信息列表中直接选中员工进行删除操作。第二种就是通过查询员工编号，在确定要删除的员工信息之后，进行删除操作。如图4-4所示：
图4-4 员工信息删除窗口
在这个模块中，点击删除之后，会弹出“是/否删除”的对话框；使用if语句进行判断，如果点击“是”这个按钮（if(temp=IDYES)then），则通过sqlq语句进入数据库中复值，删除ygxxb中的数据，添加到数据值控件中，执行，刷新，显示删除完数据后表中的信息。如果点击“否”这个按钮，则直接退出该次操作。
运行代码如下：
begin
temp:=messagebox(handle,'确定要删除?','删除数据',MB_YESNO+MB_ICONQUESTION);
if (temp=IDYES) then
begin
if edit1.text<>'' then
begin
datamodule3.adoquery1.close;
datamodule3.adoquery1.sql.clear;
sqlq:='delete from ygxxb where ygh='''+edit1.Text+'''';
datamodule3.adoquery1.sql.add(sqlq);
datamodule3.adoquery1.ExecSQL;
datamodule3.adoquery1.close;
datamodule3.adoquery1.sql.clear;
sqlq:='select * from ygxxb';
datamodule3.adoquery1.sql.add(sqlq);
datamodule3.adoquery1.open;
messagebox(handle,'删除成功!','提示',MB_OK+MB_ICONINFORMATION);
end
4.4 住房信息管理
在这个菜单中，可以执行住房信息添加、住房分配和房屋报修三项功能。
在住房信息添加功能中，可以输入住房的基本情况，包括住房的编号、住房的面积等最基本的情况。如图4-5所示：
图4-5 住房信息添加窗口
首先使用if判断语句判断edit 1与edit 2值是否为空；如果不为空，则通过“sql”语句直接将填入的数据写入数据库内相对应的数据项。
运行代码如下：
begin
if (edit1.Text<>'')and(edit2.Text<>'') then
begin
datamodule3.ADOQuery5.Close;
datamodule3.ADOQuery5.SQL.Clear;
sql:='insert into zfb values('''+edit1.text+'''';
sql:=sql+','''+edit2.Text+'''';
sql:=sql+',0,0)';
datamodule3.ADOQuery5.SQL.Add(sql);
datamodule3.ADOQuery5.ExecSQL;
messagebox(handle,'添加完成!','提示',MB_OK+MB_ICONINFORMATION);
edit1.Text:='';
edit2.Text:='';
end
在住房分配功能中，通过输入员工和要申请的住房编号，点击申请按钮之后，系统会根据数据库里面的数据识别申请住房的员工是否已经申请过住房、住房是否因为已经有人居住而不能再被申请等情况。并且会在列表中显示出现有员工的信息，包括员工编号、姓名、性别、购房需要付的款项、员工已经申请的住房的编号、员工进入公司的日期。转贴于 酷文网-论文下载中心 http://www.coolwen.net
共10页: 上一页 [1] [2] [3] [4] [5] 6 [7] [8] [9] [10] 下一页
网摘收藏:
当前位置:
载入中...
-> 在百度中搜索：
-> 在Google中搜索：