实验课题一人员档案的管理物料档案管理Word下载.docx
- 文档编号:17323130
- 上传时间:2022-12-01
- 格式:DOCX
- 页数:36
- 大小:230.74KB
实验课题一人员档案的管理物料档案管理Word下载.docx
《实验课题一人员档案的管理物料档案管理Word下载.docx》由会员分享,可在线阅读,更多相关《实验课题一人员档案的管理物料档案管理Word下载.docx(36页珍藏版)》请在冰豆网上搜索。
物料档案包括物料代码、物料名称、规格型号、计量单位、库存数量、备注等字段。
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:
Label3:
Label4:
Label5:
Label6:
Label7:
Label8:
Edit1:
TEdit;
Edit2:
ComboBox1:
TComboBox;
DateTimePicker1:
TDateTimePicker;
Edit3:
Edit4:
Edit5:
Edit6:
BitBtn1:
TBitBtn;
BitBtn2:
Label9:
Label10:
procedureBitBtn2Click(Sender:
TObject);
procedureFormCreate(Sender:
procedureBitBtn1Click(Sender:
private
{Privatedeclarations}
public
{Publicdeclarations}
end;
var
new:
Tnew;
implementation
useswl1001_26_main,wl1001_26_login;
{$R*.dfm}
procedureTnew.BitBtn2Click(Sender:
begin
edit2.Clear;
edit3.Clear;
edit4.Clear;
edit5.Clear;
edit6.Clear;
close;
end;
procedureTnew.FormCreate(Sender:
edit1.Text:
=FormatDateTime('
yyyymdhns'
Now);
//edit2.SetFocus;
procedureTnew.BitBtn1Click(Sender:
ifedit2.Text='
'
then
begin
label10.Caption:
='
姓名不能为空'
;
edit2.SetFocus;
exit;
end
else
*'
ifedit5.Text='
label9.Caption:
电话不能为空'
edit5.SetFocus;
withADOQuery1do
sql.Clear;
sql.Add('
insertintowl1001_26_renyuanvalues('
);
+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('
已新增用户'
end.
1.2、删除模块:
unitwl1001_26_delete;
Dialogs,jpeg,ExtCtrls,ComCtrls,StdCtrls,Grids,DBGrids,DB,ADODB,
Buttons;
Tdelete=class(TForm)
DataSource1:
TDataSource;
DBGrid1:
TDBGrid;
Label11:
Edit7:
BitBtn3:
procedureDBGrid1CellClick(Column:
TColumn);
procedureBitBtn3Click(Sender:
delete:
Tdelete;
procedureTdelete.BitBtn1Click(Sender:
select*fromwl1001_26_renyuan'
wherenamelike'
%'
+trim(Edit1.Text)+'
open;
edit2.Text:
=fieldbyname('
id'
).AsString;
edit3.Text:
name'
procedureTdelete.DBGrid1CellClick(Column:
ComboBox1.Text:
sex'
DateTimePicker1.DateTime:
birthdate'
).AsDateTime;
edit4.Text:
pid'
edit5.Text:
addre'
edit6.Text:
tel'
edit7.Text:
remark'
procedureTdelete.BitBtn3Click(Sender:
deletefromwl1001_26_renyuanwhereid='
+trim(edit2.Text)+'
删除成功'
open
procedureTdelete.BitBtn2Click(Sender:
1.3、修改模块:
1)源代码:
unitwl1001_26_alter;
Dialogs,jpeg,ExtCtrls,ComCtrls,StdCtrls,DB,ADODB,Grids,DBGrids,
Talter=class(TForm)
procedureEdit1KeyPress(Sender:
TObject;
varKey:
Char);
alter:
Talter;
procedureTalter.BitBtn1Click(Sender:
procedureTalter.DBGrid1CellClick(Column:
procedureTalter.BitBtn2Click(Sender:
updatewl1001_26_renyuansetname='
sex='
birthdate='
pid='
addre='
tel='
remark='
+edit7.Text+'
whereid='
修改成功!
procedureTalter.BitBtn3Click(Sender:
procedureTalter.Edit1KeyPress(Sender:
ifkey=#13then
BitBtn1.Click;
End.
1.4、查询模块:
unitwl1001_26_main;
Dialogs,StdCtrls,Buttons,DB,Grids,DBGrids,ADODB,Menus,jpeg,
ExtCtrls;
Tmain=class(TForm)
MainMenu1:
TMainMenu;
N1:
TMenuItem;
N2:
N3:
N4:
N5:
N6:
N7:
N8:
procedureN2Click(Sender:
procedureN3Click(Sender:
procedureN4Click(Sender:
procedureN8Click(Sender:
procedureN6Click(Sender:
procedureN7Click(Sender:
procedureFormClose(Sender:
varAction:
TCloseAction);
main:
Tmain;
useswl1001_26_login,wl1001_26_alter,wl1001_26_delete,wl1001_26_new,
wl1001_26_copy,wl1001_26_help;
procedureTmain.BitBtn1Click(Sender:
procedureTmain.N2Click(Sender:
new.ShowModal;
procedureTmain.N3Click(Sender:
delete.ShowModal;
procedureTmain.N4Click(Sender:
alter.ShowModal;
procedureTmain.N8Click(Sender:
Edit1.Clear;
procedureTmain.N6Click(Sender:
copy.ShowModal;
procedureTmain.N7Click(Sender:
help.ShowModal;
procedureTmain.Edit1KeyPress(Sender:
procedureTmain.FormClose(
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 实验 课题 人员 档案 管理 物料
![提示](https://static.bdocx.com/images/bang_tan.gif)