人员档案的管理、料档案管理.docVIP

福建工程学院计算机与信息科学系 实验报告– 2012 学年第 2 学期 任课老师： 课程名称 C/S程序综合设计 班级 计1006 座号 31 姓名 实验题目 人员档案的管理、物料档案管理 简单物料进仓/出仓信息管理 用户登录与权限设计 实验时间 实验日期： 5—17 提交日期： 6—19 实验目的、要求 设计实现对企业人员基本情况的档案的输入、删除与修改，企业人员基本情况主要包括：人员代码、姓名、性别、出生日期、身份证号、籍贯、家庭住址、联系电话、其它情况等 企业物料进出仓的信息管理，物料进出仓的信息主要包括进出仓单号、进出仓日期、操作人员代码、备注、物料代码、进仓数量、出仓数量等 用户在这里就指操作人员，已经在人员档案中进行管理，通过设计用户登录和用户权限的管理，实现用户按权限访问资源，管理员按要求授予用户权限，登录程序安全稳定，设计用户菜单及程序调用。人员表中需要新增字段口令、用户权限。系统中每个操作人员都可以作为用户，当一个用户权限修改时，不会影响其他用户；可以对每个用户单独授予某个程序的执行权，也可以收回其执行权，而不影响其他用户的权限 实验设计内容 人员档案的管理、物料档案管理 主界面： 人员档案管理： 物料档案管理： 人员管理代码： 查询 procedure pro(); begin with datamodule1.ADOQuery1 do begin close; sql.Clear; sql.Add(select * from j100631employee); open; end; end; 模糊查询 procedure TForm2.Button4Click(Sender: TObject); begin if trim(edit8.Text)= then showmessage(请输入姓名) else begin with datamodule1.ADOQuery1 do begin close; sql.Clear; sql.Add(select * from j100631employee); sql.Add(where 姓名 like %+edit8.text+%); open; end; if datamodule1.ADOQuery1.RecordCount=0 then showmessage(没有找到符合条件的字段); end; end; 增加： procedure TForm2.Button1Click(Sender: TObject); begin if trim(edit1.Text)= then showmessage(人员代码不能为空) else begin datamodule1.ADOQuery1.Close; datamodule1.ADOQuery1.SQL.Clear; datamodule1.ADOQuery1.SQL.Add(select * from j100631employee); datamodule1.ADOQuery1.SQL.Add(where 人员代码=+edit1.Text+); datamodule1.ADOQuery1.Open;//该查找代码的记录 if datamodule1.ADOQuery1.RecordCount0 then showmessage(人员代码+edit1.Text+已存在，请重新输入！) else begin with datamodule1.ADOQuery1 do begin close; sql.Clear; sql.Add(insert into j100631employee(人员代码,姓名,性别,出生日期,身份证号,籍贯,家庭住址,联系电话,其他情况)); sql.Add(values(:v1,:v2,:v3,:v4,:v5,:v6,:v7,:v8,:v9)); parameters.ParamByName(v1).Value:=edit1.Text; parameters.ParamByName(v2).Value:=edit2.Text; parameters.ParamByName(v3).Value:=radiogroup1.Items[radiogroup1.ItemIndex]; parameters.ParamByName(v4).Value:=datetimepicker1.Date; parameters.ParamByName(v5).Value:=edit3.Text; parameters.ParamByName(v6).Value:=edit4.Text; parameters.Para