4.7.1 员工信息维护窗体
这个功能模块主要是实现对工作人员信息的添加和删除。在添加的操作窗体中主要是完成添加新来的工作人员的编号，姓名，性别，职位，和他要管理的区域。而当员工换工作了，或者是因为某些原因而不在这里继续工作的话，系统用户就需要用到员工信息删除的窗体将员工的信息记录删除。
实现其功能的代码为：
if edit1.Text<>'' then
begin
temp:=messagebox(handle,'确定要删除?','删除数据',MB_YESNO+MB_ICONQUESTION);
if(temp=IDYES)then
begin
datamodule3.ADOQuery5.Close;
datamodule3.ADOQuery5.SQL.Clear;
datamodule3.ADOQuery5.SQL.Add('delete from ygxxb where bh='''+edit1.Text+'''');
datamodule3.ADOQuery5.ExecSQL;
messagebox(handle,'删除成功!!','提示',MB_OK+MB_ICONSTOP);
edit1.Text:='';
datamodule3.ADOQuery5.close;
datamodule3.ADOQuery5.SQL.Clear;
datamodule3.ADOQuery5.SQL.Add('select * from ygxxb');
datamodule3.ADOQuery5.Open;
end;
end
else
begin
messagebox(handle,'请输入要删除的员工编号!','提示',MB_OK+MB_ICONSTOP);
end;
4.7.2 员工岗位/职位更改模块
不管在哪里工作，都会遇到岗位的调动，这个窗体正是为解决这个问题所做。通过此窗体能把员工的记录修改到他要调去的工作岗位和他的职位的变更情况。
把员工信息更改窗体保存为Form11.pas。窗体主要包括三个GroupBox组件，一个ComboBox组件，两个Edit组件，三个Label组件和三个Button组件。
以员工的岗位信息变更为例，实现其功能的主要代码如下：
var
sql:string;
begin
if edit2.Text<>'' then
begin
datamodule3.ADOQuery4.close;
datamodule3.ADOQuery4.SQL.Clear;
datamodule3.ADOQuery4.SQL.Add('select * from ygxxb where bh='''+edit2.Text+'''');
datamodule3.ADOQuery4.Open;
if datamodule3.ADOQuery4.RecordCount=1 then
begin
datamodule3.ADOQuery4.close;
datamodule3.ADOQuery4.SQL.Clear;
sql:='update ygxxb set zw='''+combobox1.Text+'''';
sql:=sql+' where bh='''+edit2.Text+'''';
datamodule3.ADOQuery4.SQL.Add(sql);
datamodule3.ADOQuery4.ExecSQL;
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.8 公共财物损坏处理模块
当学生在宿舍损坏了一些公共财物的时候，如果管理员觉得这些财物应该由学生赔偿的时候，就需要把这个学生的一些信息和这个学生所损坏的物品名称和数量以及物品的价格记录并且保存下来。并且给予这个学生一定的时间来赔偿这个物品，当这个物品没有及时得到赔偿的时候，管理人员就可以根据这些记录来找这些学生商量，看如何处理这些问题。
而且如果有学生在此模块中有记录，没有赔偿公物，那么在先前的“删除入住学生信息”模块中如果管理员要删除此学生的入住信息。系统则会提示管理员该生还没有对损坏的物品进行赔偿，而不允许删除该生的入住记录。
学生公共财物损坏处理窗体保存为Unit15.pas。界面主要包括有三个GroupBox组件，一个DBGrid组件，一个DBMemo组件，两个Label组件，一个Edit组件，一个Memo组件和三个Button组件。
这个模块的核心代码如下：
if edit1.Text<>'' then
begin
temp:=messagebox(handle,'是否已经赔偿?','赔偿处理',MB_YESNO+MB_ICONQUESTION);
if(temp=IDYES)then
begin
datamodule3.ADOQuery4.close;
datamodule3.ADOQuery4.SQL.Clear;
str:='delete from shgwb where xh='+edit1.Text;
转贴于 酷文网-论文下载中心 http://www.coolwen.net
共12页: 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] 10 [11] [12] 下一页
网摘收藏:
当前位置:
载入中...
-> 在百度中搜索：
-> 在Google中搜索：