实验课题一人员档案的管理物料档案管理.docx
- 文档编号:4397747
- 上传时间:2022-12-01
- 格式:DOCX
- 页数:36
- 大小:230.74KB
实验课题一人员档案的管理物料档案管理.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(
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实验 课题 人员 档案 管理 物料