实验课题一人员档案的管理物料档案管理.docx
《实验课题一人员档案的管理物料档案管理.docx》由会员分享，可在线阅读，更多相关《实验课题一人员档案的管理物料档案管理.docx（36页珍藏版）》请在冰豆网上搜索。
实验课题一人员档案的管理物料档案管理
福建工程学院计算机与信息科学系
实验报告
–学年第学期任课老师：
张晓志
课程名称
C/S程序综合设计
班级
Wl1001
座号
26
姓名
张玉棠
实验题目
实验课题一、人员档案的管理、物料档案管理
实验时间
2012.9
实验目的、要求
设计实现对企业人员基本情况的档案的输入、删除与修改，企业人员基本情况主要包括：
人员代码、姓名、性别、出生日期、身份证号、籍贯、家庭住址、联系电话、其它情况等。
1．程序须包括主界面程序，程序名用“班级名＋座号＋main”，主界面可以通过菜单调用到其它所有子程序。
2．人员档案的增加、修改、删除的程序，其中人员档案表在数据库中必须以“班级＋＋（表示人员的中英文信息）”来命名，人员档案的信息管理程序也必须以“班级＋座号＋（表示程序名的中英文信息）”来命名。
其中人员代码不能为空，性别必须用“男”、“女”选择方式，出生日期必须用日期控件来控制。
修改、删除程序在执行修改删除操作前，都必须进行记录定位操作，所以必须有相应的查询程序，可以借用查询程序来完成记录定位。
人员档案的增加、修改、删除程序也可以用三个程序名，分别编程。
3．人员档案查询程序，程序名以“班级＋座号＋（表示程序名的中英文信息）”来命名，可以在查询框中输入人员姓名中的任何一个单字，查询出含该字的所有人员。
物料档案包括物料代码、物料名称、规格型号、计量单位、库存数量、备注等字段。
1．物料档案的增加、修改、删除程序，程序名以“班级＋座号＋（表示程序名的中英文信息）”来命名，具体内容参考人员档案管理程序。
物料表在数据库中以“班级＋座号＋（表示程序名的中英文信息）”来命名表，客户端输入时要求物料代码不为空，计量单位可以选择“件、套、公斤、吨、升、米、毫米、个”等，计量单位并可以输入其它单位名，库存数量默认为0。
可以使用建立索引来优化查询
2．物料查询程序可以在通过输入框的文字进行模糊查询（物料代码、名称、规格中是否含有输入框的文字），程序名用“班级＋座号＋（表示程序名的中英文信息）”来命名。
实验设计内容
1、人员档案的管理：
1.1、增加模块：
1）源代码：
unitwl1001_26_new;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,jpeg,ExtCtrls,DB,ADODB,StdCtrls,Buttons,ComCtrls;
type
Tnew=class（TForm）
ADOQuery1:
TADOQuery;
Image1:
TImage;
Label1:
TLabel;
Label2:
TLabel;
Label3:
TLabel;
Label4:
TLabel;
Label5:
TLabel;
Label6:
TLabel;
Label7:
TLabel;
Label8:
TLabel;
Edit1:
TEdit;
Edit2:
TEdit;
ComboBox1:
TComboBox;
DateTimePicker1:
TDateTimePicker;
Edit3:
TEdit;
Edit4:
TEdit;
Edit5:
TEdit;
Edit6:
TEdit;
BitBtn1:
TBitBtn;
BitBtn2:
TBitBtn;
Label9:
TLabel;
Label10:
TLabel;
procedureBitBtn2Click（Sender:
TObject）;
procedureFormCreate（Sender:
TObject）;
procedureBitBtn1Click（Sender:
TObject）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
new:
Tnew;
implementation
useswl1001_26_main,wl1001_26_login;
{$R*.dfm}
procedureTnew.BitBtn2Click（Sender:
TObject）;
begin
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
close;
end;
procedureTnew.FormCreate（Sender:
TObject）;
begin
edit1.Text:
=FormatDateTime（'yyyymdhns',Now）;
//edit2.SetFocus;
end;
procedureTnew.BitBtn1Click（Sender:
TObject）;
begin
ifedit2.Text=''then
begin
label10.Caption:
='姓名不能为空';
edit2.SetFocus;
exit;
end
else
begin
label10.Caption:
='*';
end;
ifedit5.Text=''then
begin
label9.Caption:
='电话不能为空';
edit5.SetFocus;
exit;
end
else
begin
label9.Caption:
='*';
end;
withADOQuery1do
begin
close;
sql.Clear;
sql.Add（'insertintowl1001_26_renyuanvalues（'）;
sql.Add（''''+trim（edit1.Text）+''','''+edit2.Text+''','''+ComboBox1.Text+''','''+FormatDateTime（'yyyy-mm-dd',DateTimePicker1.DateTime）+''','''+edit3.Text+''','''+edit4.Text+''','''+edit5.Text+''','''+edit6.Text+'''）'）;
//ShowMessage（sql.Text）;
ExecSQL;
ShowMessage（'已新增用户'）;
edit1.Text:
=FormatDateTime（'yyyymdhns',Now）;
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
end;
end;
end.
1.2、删除模块：
1）源代码：
unitwl1001_26_delete;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,jpeg,ExtCtrls,ComCtrls,StdCtrls,Grids,DBGrids,DB,ADODB,
Buttons;
type
Tdelete=class（TForm）
Image1:
TImage;
Label2:
TLabel;
Edit1:
TEdit;
BitBtn1:
TBitBtn;
ADOQuery1:
TADOQuery;
DataSource1:
TDataSource;
DBGrid1:
TDBGrid;
Label1:
TLabel;
Label3:
TLabel;
Label4:
TLabel;
Label5:
TLabel;
Label10:
TLabel;
Edit2:
TEdit;
Edit3:
TEdit;
ComboBox1:
TComboBox;
DateTimePicker1:
TDateTimePicker;
Label6:
TLabel;
Label7:
TLabel;
Label8:
TLabel;
Label9:
TLabel;
Label11:
TLabel;
Edit4:
TEdit;
Edit5:
TEdit;
Edit6:
TEdit;
Edit7:
TEdit;
BitBtn2:
TBitBtn;
BitBtn3:
TBitBtn;
procedureBitBtn1Click（Sender:
TObject）;
procedureDBGrid1CellClick（Column:
TColumn）;
procedureBitBtn3Click（Sender:
TObject）;
procedureBitBtn2Click（Sender:
TObject）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
delete:
Tdelete;
implementation
{$R*.dfm}
procedureTdelete.BitBtn1Click（Sender:
TObject）;
begin
withADOQuery1do
begin
sql.Clear;
sql.Add（'select*fromwl1001_26_renyuan'）;
sql.Add（'wherenamelike''%'+trim（Edit1.Text）+'%'''）;
//ShowMessage（sql.Text）;
open;
edit2.Text:
=fieldbyname（'id'）.AsString;
edit3.Text:
=fieldbyname（'name'）.AsString;
end;
end;
procedureTdelete.DBGrid1CellClick（Column:
TColumn）;
begin
withADOQuery1do
begin
edit2.Text:
=fieldbyname（'id'）.AsString;
edit3.Text:
=fieldbyname（'name'）.AsString;
ComboBox1.Text:
=fieldbyname（'sex'）.AsString;
DateTimePicker1.DateTime:
=fieldbyname（'birthdate'）.AsDateTime;
edit4.Text:
=fieldbyname（'pid'）.AsString;
edit5.Text:
=fieldbyname（'addre'）.AsString;
edit6.Text:
=fieldbyname（'tel'）.AsString;
edit7.Text:
=fieldbyname（'remark'）.AsString;
end;
end;
procedureTdelete.BitBtn3Click（Sender:
TObject）;
begin
withADOQuery1do
begin
close;
sql.Clear;
sql.Add（'deletefromwl1001_26_renyuanwhereid='''+trim（edit2.Text）+''''）;
//ShowMessage（sql.Text）;
ExecSQL;
ShowMessage（'删除成功'）;
close;
sql.Add（'select*fromwl1001_26_renyuan'）;
open
end;
end;
procedureTdelete.BitBtn2Click（Sender:
TObject）;
begin
close;
end;
end.
1.3、修改模块：
1）源代码:
unitwl1001_26_alter;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,jpeg,ExtCtrls,ComCtrls,StdCtrls,DB,ADODB,Grids,DBGrids,
Buttons;
type
Talter=class（TForm）
Image1:
TImage;
Label2:
TLabel;
Edit1:
TEdit;
BitBtn1:
TBitBtn;
DBGrid1:
TDBGrid;
ADOQuery1:
TADOQuery;
DataSource1:
TDataSource;
Label1:
TLabel;
Label3:
TLabel;
Label4:
TLabel;
Label5:
TLabel;
Label10:
TLabel;
Edit2:
TEdit;
Edit3:
TEdit;
ComboBox1:
TComboBox;
DateTimePicker1:
TDateTimePicker;
Label6:
TLabel;
Label7:
TLabel;
Label8:
TLabel;
Label9:
TLabel;
Label11:
TLabel;
Edit4:
TEdit;
Edit5:
TEdit;
Edit6:
TEdit;
Edit7:
TEdit;
BitBtn2:
TBitBtn;
BitBtn3:
TBitBtn;
procedureBitBtn1Click（Sender:
TObject）;
procedureDBGrid1CellClick（Column:
TColumn）;
procedureBitBtn2Click（Sender:
TObject）;
procedureBitBtn3Click（Sender:
TObject）;
procedureEdit1KeyPress（Sender:
TObject;varKey:
Char）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
alter:
Talter;
implementation
{$R*.dfm}
procedureTalter.BitBtn1Click（Sender:
TObject）;
begin
withADOQuery1do
begin
sql.Clear;
sql.Add（'select*fromwl1001_26_renyuan'）;
sql.Add（'wherenamelike''%'+trim（Edit1.Text）+'%'''）;
//ShowMessage（sql.Text）;
open;
edit2.Text:
=fieldbyname（'id'）.AsString;
edit3.Text:
=fieldbyname（'name'）.AsString;
end;
end;
procedureTalter.DBGrid1CellClick（Column:
TColumn）;
begin
withADOQuery1do
begin
edit2.Text:
=fieldbyname（'id'）.AsString;
edit3.Text:
=fieldbyname（'name'）.AsString;
ComboBox1.Text:
=fieldbyname（'sex'）.AsString;
DateTimePicker1.DateTime:
=fieldbyname（'birthdate'）.AsDateTime;
edit4.Text:
=fieldbyname（'pid'）.AsString;
edit5.Text:
=fieldbyname（'addre'）.AsString;
edit6.Text:
=fieldbyname（'tel'）.AsString;
edit7.Text:
=fieldbyname（'remark'）.AsString;
end;
end;
procedureTalter.BitBtn2Click（Sender:
TObject）;
begin
withADOQuery1do
begin
close;
sql.Clear;
sql.Add（'updatewl1001_26_renyuansetname='''+edit3.Text+''',sex='''+ComboBox1.Text+''',birthdate='''+FormatDateTime（'yyyy-mm-dd',DateTimePicker1.DateTime）+''',pid='''+edit4.Text+''',addre='''+edit5.Text+''',tel='''+edit6.Text+''',remark='''+edit7.Text+''''）;
sql.Add（'whereid='''+edit2.Text+''''）;
//ShowMessage（sql.Text）;
ExecSQL;
ShowMessage（'修改成功！
'）;
close;
sql.Add（'select*fromwl1001_26_renyuan'）;
open;
end;
end;
procedureTalter.BitBtn3Click（Sender:
TObject）;
begin
close;
end;
procedureTalter.Edit1KeyPress（Sender:
TObject;varKey:
Char）;
begin
ifkey=#13then
BitBtn1.Click;
end;
End.
1.4、查询模块：
1）源代码：
unitwl1001_26_main;
interface
uses
Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,
Dialogs,StdCtrls,Buttons,DB,Grids,DBGrids,ADODB,Menus,jpeg,
ExtCtrls;
type
Tmain=class（TForm）
MainMenu1:
TMainMenu;
N1:
TMenuItem;
N2:
TMenuItem;
N3:
TMenuItem;
N4:
TMenuItem;
N5:
TMenuItem;
N6:
TMenuItem;
N7:
TMenuItem;
ADOQuery1:
TADOQuery;
DBGrid1:
TDBGrid;
DataSource1:
TDataSource;
Label1:
TLabel;
Edit1:
TEdit;
BitBtn1:
TBitBtn;
Image1:
TImage;
N8:
TMenuItem;
procedureBitBtn1Click（Sender:
TObject）;
procedureN2Click（Sender:
TObject）;
procedureN3Click（Sender:
TObject）;
procedureN4Click（Sender:
TObject）;
procedureN8Click（Sender:
TObject）;
procedureN6Click（Sender:
TObject）;
procedureN7Click（Sender:
TObject）;
procedureEdit1KeyPress（Sender:
TObject;varKey:
Char）;
procedureFormClose（Sender:
TObject;varAction:
TCloseAction）;
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
main:
Tmain;
implementation
useswl1001_26_login,wl1001_26_alter,wl1001_26_delete,wl1001_26_new,
wl1001_26_copy,wl1001_26_help;
{$R*.dfm}
procedureTmain.BitBtn1Click（Sender:
TObject）;
begin
withADOQuery1do
begin
sql.Clear;
sql.Add（'select*fromwl1001_26_renyuan'）;
sql.Add（'wherenamelike''%'+trim（Edit1.Text）+'%'''）;
//ShowMessage（sql.Text）;
open;
end;
end;
procedureTmain.N2Click（Sender:
TObject）;
begin
new.ShowModal;
end;
procedureTmain.N3Click（Sender:
TObject）;
begin
delete.ShowModal;
end;
procedureTmain.N4Click（Sender:
TObject）;
begin
alter.ShowModal;
end;
procedureTmain.N8Click（Sender:
TObject）;
begin
Edit1.Clear;
close;
end;
procedureTmain.N6Click（Sender:
TObject）;
begin
copy.ShowModal;
end;
procedureTmain.N7Click（Sender:
TObject）;
begin
help.ShowModal;
end;
procedureTmain.Edit1KeyPress（Sender:
TObject;varKey:
Char）;
begin
ifkey=#13then
BitBtn1.Click;
end;
procedureTmain.FormClose（
升级会员 